Jump to content

SUPER OFERTA!
Compre o Delphi com 45% de desconto
SOMENTE ATÉ O FIM DE MARÇO

botao_delphi.png

110.png

Curso Gratuito para todos Usuários
+ Super Treinamento Assinando o SAC Anual

botao_campanha_thulio.png

sem_ttulo-620.fw_-e1583866078274.png 

Curso Dominando o ACBrMonitor
Novo Módulo Soluções de Varejo
Assine o SAC ACBr em qualquer plano e tenha acesso

Saiba Mais

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba Mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

Leandro Vignoto

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

Recommended Posts

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"CTE.thumb.png.20874d5413c683e446f6cd2ba78f9391.png

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

NFE.png

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...