Ref. a Distribuição de Documentos CT-e

[Leandro Vignoto]

Bom Dia !

   Em testes realizados, não está sendo carregado informações para o componente ACBRCTe com relação a distribuição de documentos pelo seguinte motivo:

   Na unit "pcteRetDistDFeInt" na função TRetDistDFeInt.LerXml está sendo procurado o valor "DocZip" em maiúsculo, onde acredito que deveria ser "docZip"

Citar

      while Leitor.rExtrai(2, 'DocZip', '', i + 1) <> '' do
      begin
        FdocZip.Add;
        FdocZip.Items.FNSU   := Leitor.rAtributo('NSU', 'DocZip');
        FdocZip.Items.schema := StrToSchemaCTe(ok, Leitor.rAtributo('schema', 'DocZip'));

  Na unit "pcnRetDistDfeInt" está dessa forma

Citar

      i := 0;
      while Leitor.rExtrai(2, 'docZip', '', i + 1) <> '' do
      begin
        FdocZip.Add;
        FdocZip.Items.FNSU   := Leitor.rAtributo('NSU');
        FdocZip.Items.schema := StrToSchemaNFe(ok, Leitor.rAtributo('schema'));

 

Att.

Leandro

[Italo Giurizzato Junior]

Boa noite Leandro,

Favor atualizar os fontes e realizar novos testes.

[Leandro Vignoto]

Boa Tarde, Italo

  Nesse ponto passou com a alteração feita, porém deu outros erros para baixo, conforme vou descrever agora.

  1)  Nessa linha "FdocZip.Items.FInfZip := UnZip(StrDecod);"  porque a variável StrAux está em branco.

       Se descomentar "StrAux := RetornarConteudoEntre(Leitor.Grupo, '>', '</docZip');" funcionou corretamente.

  2) Nessa linha "if (oLeitorInfZip.rExtrai(2, 'retEvento') <> '') then", TROCAR POR if (oLeitorInfZip.rExtrai(2, 'retEventoCTe') <> '') then

 

  Veja o XML de retorno em anexo.

Att.

Leandro

3106104116120917490700014157001000011780178247430101-procEventoCTe.xml

[Italo Giurizzato Junior]

Boa noite Leandro,

Favor anexar a unit alterada para que possamos analisar.

[Leandro Vignoto]

Segue alterada

pcteRetDistDFeInt.pas

[Italo Giurizzato Junior]

Boa noite Leandro,

Muito obrigado pela colaboração, ainda hoje estarei enviando para o repositório.