function [dimC, diasIF, fname] = SaveCoordFromFData (diaIstr, diaFstr, outFileDir, comInfo)
% 
% Exemplo:
%   [dimC, diasIF, fname] = SaveCoordFromFData ("01-Jul-1989", "31-Dec-1989", "/db/Economia/DataOrg2026/", 1);
% 
  Meses = {'jan','feb','mar','apr','may','jun','jul','aug','sep','oct','nov','dec'};
  
  load /db/Economia/DataOrg2026/NY_19890420__20090420__319_CtR_Rm000s.mat;

  %outFileDir = "/db/Economia/DataOrg2026/"
  entI = 1;
  entQt = Data1.QtEnt;

  if comInfo == 1
    NameEmp = Data1.nameEnt;
    sNameEmp = Data1.snameEnt;
    Class = Data1.Class;
  else
    NameEmp = []
    sNameEmp = []
    Class = []
  end

% "NY_20000101_20001231__319_dim251.txt"

  [ V C eigVeM ddd Cm1 M34 diasIF ] = CrisesGetCoordBaseVP ( diaIstr, diaFstr, entI, entQt, 0, 6 );

  vd1 = split(diasIF(1),"-");
  [~,vd1(2)] = ismember(lower(vd1(2)),Meses);
  if strlength(vd1(2)) == 1
    vd1(2) = "0" + vd1(2);
  end
  if strlength(vd1(1)) == 1
    vd1(1) = "0" + vd1(1);
  end
  
  vd2 = split(diasIF(3),"-");
  [~,vd2(2)] = ismember(lower(vd2(2)),Meses);
  if strlength(vd2(2)) == 1
    vd2(2) = "0" + vd2(2);
  end
  if strlength(vd2(1)) == 1
    vd2(1) = "0" + vd2(1);
  end

  dimC = size(C);
  %fprintf("diasIF: %s\n", diasIF)
  fname = sprintf("%sNY_%s%s%s_%s%s%s__%d_dim%d.txt", outFileDir, vd1(3), vd1(2), ...
		  vd1(1), vd2(3), vd2(2), vd2(1), dimC(1), dimC(2));
  fprintf("fname: %s\n", fname);
    
  CriaFileCoord (C, fname, dimC(2), NameEmp, sNameEmp, Class, comInfo, V);
