Distribuição CTe: não está salvando o arquivo cteSimpProc

[galegoga]

Boa tarde, @Italo Giurizzato Junior!

Foi postado um ajuste seu na distribuição cte. Veja aqui.

O ajuste funcionou, agora está faltando adicionar o novo valor enumerado (schprocCTeSimp) na rotina que salva os documentos na pasta, localizado no método TDistribuicaoDFe.TratarResposta

acredito o código deva ficar da seguinte forma:

        schprocCTe,
        schprocCTeOS,
        schprocGTVe,
        schprocCTeSimp:
          FNomeArq := FretDistDFeInt.docZip.Items[I].resDFe.chDFe + '-cte.xml';

 

Segue em anexo o arquivo com a correção.

ACBrCTeWebServices.pas

[galegoga]

Bom dia! Além desse ajuste é necessário ajustar o arquivo pcnRetDistDFeInt.

          if (oLeitorInfZip.rExtrai(1, LowerCase(FtpDFe) + 'Proc') <> '') or
             (oLeitorInfZip.rExtrai(1, LowerCase(FtpDFe) + 'OSProc') <> '') or
             (oLeitorInfZip.rExtrai(1, LowerCase(FtpDFe) + 'SimpProc') <> '') or
             (oLeitorInfZip.rExtrai(1, 'GTVeProc') <> '') then
          begin
            FdocZip.Items[i].XML := InserirDeclaracaoXMLSeNecessario(oLeitorInfZip.Grupo);

 

Ajuste no arquivo em anexo.

@douglaswf, após o ajuste o sistema parou de apresentar erro mas está havendo perda de arquivo se você utiliza o código padrão acbr para salvar a distribuição.

Você pode efetuar o ajuste ou aguardar os moderadores ajustarem.

São dois ajustes esse e o acima.

pcnRetDistDFeInt.pas

Editado Ontem às 14:33 por galegoga

[galegoga]

Arquivo ACBrCTeWebServices.pas atualizado

Refere-se a primeira postagem.

ACBrCTeWebServices.pas

[Italo Giurizzato Junior]

Bom dia @galegoga,

Muito obrigado pela colaboração, já foi criado a TK-6647 para analise.