Olá.
Estou implementando o CTeDistribuicaoDFe e estava com um problema de "data error". Esse trecho do código está comentado na unit pcteRetDistDFeInt na linha 430
//StrAux := RetornarConteudoEntre(Leitor.Grupo, '>', '</docZip');
StrAux := RetornarConteudoEntre(Leitor.Grupo, '<docZip>', '</docZip');
StrDecod := DecodeBase64(StrAux);
FdocZip.Items[i].FInfZip := UnZip(StrDecod);
e ao descomentar a linha 430 e comentar a linha seguinte funcionou corretamente.
StrAux := RetornarConteudoEntre(Leitor.Grupo, '>', '</docZip');
//StrAux := RetornarConteudoEntre(Leitor.Grupo, '<docZip>', '</docZip');
StrDecod := DecodeBase64(StrAux);
FdocZip.Items[i].FInfZip := UnZip(StrDecod);
O problema do data error era porque o Strcod estava retornando vazio em StrDecod := DecodeBase64(StrAux); então proque o motivo do comentário na linha 430 ou qual é o erro que estou cometendo?
É meu primeiro post então desculpe se não estiver de acordo com as regras.
Obrigado.