Path distribuicao NFe trunk2

[Ricardo Longo]

Bom dia pessoal,

Não estou conseguindo pegar o caminho do arquivo XML das NFe e eventos retornados na distribuicao.

Tenho a seguinte configuração

  with acbrnf1.Configuracoes.Arquivos do
   begin
     Salvar             := True;
     SepararPorMes      := True;
     AdicionarLiteral   := True;
     EmissaoPathNFe     := True;
     SalvarEvento       := True;
     SepararPorCNPJ     := False;
     SepararPorModelo   := False;
     PathSalvar         := dtUsuarios.VConfigFile.Values['banconfe']+'\NFe';
     PathSchemas        := ExtractFilePath(Application.ExeName)+'Schemas\NFe';
     PathNFe            := dtUsuarios.VConfigFile.Values['banconfe']+'\NFe\NF';
     PathInu            := dtUsuarios.VConfigFile.Values['banconfe']+'\NFe\Inu';
     PathEvento         := dtUsuarios.VConfigFile.Values['banconfe']+'\NFe\Evento';
   end;

  acbrnf1.Configuracoes.Geral.ModeloDF := moNFe;
  acbrnf1.Configuracoes.Geral.VersaoDF := ve400;

  acbrnf1.Configuracoes.Arquivos.DownloadNFe.PathDownload := dtUsuarios.VConfigFile.Values['banconfe']+'\NFe\DistribuicaoDFe';
 

e percebi que os arquivos estão sendo salvos em 

Quando NFe

...\NFe\DistribuicaoDFe\201805\Down\xxxxxxx.xml

Quando evento

...\NFe\Evento\201805\Evento\Ciencia\xxxxxxx-procEventoNFe.xml

 

O caminho do arquivo XML NFe estou usando dessa forma,

                  Arquivo := dtACBr.acbrnf1.Configuracoes.Arquivos.DownloadNFe.PathDownload +
                             '\' + FormatDateTime( 'yyyymm', Items[ i ].resNFe.dhEmi ) + '\Down\' +
                             Items[ i ].resNFe.chNFe + '-nfe.xml';
 

Mas a do evento não estou conseguindo. Tem algum método de buscar o caminho se ficar criando muita lógica ?

 

Obrigado pela atenção

Ricardo

 

 

[Ricardo Longo]

Não consigo nem montar a lógica porque os dados retornados não correspondem ao evento

[Ricardo Longo]

Resolvi da seguinte forma

.......

                if ( Items[ i ].schema = schprocNFe ) then
                begin

                  // Retorno de NFe

                  Arquivo := dtACBr.acbrnf1.Configuracoes.Arquivos.DownloadNFe.PathDownload +
                             '\' + FormatDateTime( 'yyyymm', Items[ i ].resNFe.dhEmi ) + '\Down\' +
                             Items[ i ].resNFe.chNFe + '-nfe.xml';

 

........

 

                if ( Items[ i ].schema = schprocEventoNFe ) then
                begin

                  // Retorno de Evento

                  if pcnConversao.TpEventoToStr( Items[ i ].procEvento.tpEvento ) = '210200' then
                  begin
                    Arquivo := dtUsuarios.VConfigFile.Values['banconfe'] + '\NFe\Evento\' + FormatDateTime( 'yyyymm', UnitBiblioteca.DataCorrente ) + '\Evento\Confirmacao\';
                  end
                  else if pcnConversao.TpEventoToStr( Items[ i ].procEvento.tpEvento ) = '210210' then
                  begin
                    Arquivo := dtUsuarios.VConfigFile.Values['banconfe'] + '\NFe\Evento\' + FormatDateTime( 'yyyymm', UnitBiblioteca.DataCorrente ) + '\Evento\Ciencia\';
                  end
                  else if pcnConversao.TpEventoToStr( Items[ i ].procEvento.tpEvento ) = '210220' then
                  begin
                    Arquivo := dtUsuarios.VConfigFile.Values['banconfe'] + '\NFe\Evento\' + FormatDateTime( 'yyyymm', UnitBiblioteca.DataCorrente ) + '\Evento\Desconhecimento\';
                  end
                  else if pcnConversao.TpEventoToStr( Items[ i ].procEvento.tpEvento ) = '210240' then
                  begin
                    Arquivo := dtUsuarios.VConfigFile.Values['banconfe'] + '\NFe\Evento\' + FormatDateTime( 'yyyymm', UnitBiblioteca.DataCorrente ) + '\Evento\NaoRealizada\';
                  end;

                  Arquivo := Arquivo +
                             StringReplace( dtACBr.acbrnf1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[ i ].procEvento.ID, 'ID', '', [rfReplaceAll] ) +
                             '-procEventoNFe.xml';
 

.....

[Ricardo Longo]

Para o evento o melhor caminho foi esse,

........

 

                if ( Items[ i ].schema = schprocEventoNFe ) then
                begin

                  // Retorno de Evento

                  Arquivo := pcnConversao.TpEventoToDescStr( Items[ i ].procEvento.tpEvento );
                  Arquivo := dtUsuarios.VConfigFile.Values['banconfe'] + '\NFe\Evento\' + FormatDateTime( 'yyyymm', UnitBiblioteca.DataCorrente ) + '\Evento\' + Arquivo + '\';

                  Arquivo := Arquivo +
                             StringReplace( dtACBr.acbrnf1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[ i ].procEvento.ID, 'ID', '', [rfReplaceAll] ) +
                             '-procEventoNFe.xml';
 

.......