Consulta Distribuição Dfe - Buffer error .

[adilsonpazzini]

Boa tarde, Bom estou com um problema, quando executo o comando abaixo :

DMNFE.NFe.DistribuicaoDFePorUltNSU( UF_IBGE(DM.Empresa.UF).ToInteger,
                                                                        TextoToNum(DM.Empresa.CNPJ),
                                                                        ANSU);                        

Porem não informando o valor para aNSU, O  mesmo ocorre o erro abaixo . .

na Unit :

pcnRetDistDfeInt.pas na Rotina - TRetDistDfeInt.LerXML .

Onde quando vai executar a linha -  448 

"StrDecod := UnZip(DecodeBase64(StrAux));"

 

Ai conforme o giro do  while Leitor.rExtrai(2, 'docZip', '', i + 1) <> '' do .. 

eu pedi pra ele me marcar qual valor da Variavel "i" que estava dando problema, conforme mensagem abaixo foi no giro - 11 .

 

 

Observação se eu utilizar somente o comando "DistribuicaoDFePorChaveNFe" funciona normal , porem tenho que ficar informando chave por chave .

desde ja agradeço .

 

Adilson Pazzini .

 

Sistema - Lazarus 1.8.4 , fpc 3.0.4 , Acbr Atualizado .

[adilsonpazzini]

Citar

 

Estou com o mesmo problema somente em alguns xml ao baixar . porem agora também por chave .

 

  DMNFE.NFe.DistribuicaoDFePorChaveNFe(UF_IBGE(DM.Empresa.UF).ToInteger,   TextoToNum(DM.Empresa.CNPJ),  AChaveNFe);            

[adilsonpazzini]

Bom pelo que vi o problema esta na hora de descompactar .. eles esta fazendo a parte do :

DecodeBase64(StrAux)

o Resultado esta retornando - "‹     …RÑn£0ü‹÷`Chc‰ÚãŽBHîúè' È•¤_S¢V½—ó‹wdz;£‘¡—Cú ÑõØ´ƒvK£Rêäc|¹\Ì 3»þ€-B(þó”äe%Âø$×ÿ'ÏêvP¢-¥Î²D·4¨IèmÇ·ùS×+Ñìë¡Y·{sÛãv/
e¥-ræP0ǣĶ­QÅ%sÇ!s¢åÙãËÂf̵\JO3pŸ>ÿäßg €pM»£ä›,ù•ÿ£…º[yœ 8
×y±ŠFhƒ¢ø~d9
ÖEö”Ù*ÊQR„àiÄ_P›xÔ™J=À€]knêÍ›QVPÏ·©O™n}B OP§ôkÇ7œÇ†¹æès¬aW6¢áb+ÑŸîÝßuõÖ?^ñÛ¦jñö²Ô«&’Ö\Ér«ºe¾cÉÞ8Ð>÷Òjc°:8–mž`(óZŽaÞJÀÓwáïMpr7  "

 

Porem a hora que vai pra função UnZip é que da o problema . Eu estou usando o Lazarus 1.8.4 FPC 3.0.4 32 Bits, vi que ele direciona para a funcao no "ACBrCompress.pas"

function DeCompress(inStream, outStream: TStream): Boolean;
begin
  if (DetectCompressType(inStream) = ctZipFile) then
    Result := ZipFileDeCompress(inStream, outStream)
  else
    Result := GZIPUtils.unzipStream(inStream, outStream) //*** onde executa esse comando . e é aqui que esta dando o "Buffer Error

end;

 

Se alguem puder me ajudar agradeço .

 

Adilson Pazzini .

[adilsonpazzini]

Direciona para a Unit: GZIPUtils.pas

e ao executar a funcao : - function unzipStream(inStream, outStream: TStream): boolean;

na Funcao :

  RawDeflateDeCompress(inStream, outStream);

 ai da o Erro em : readCount := ds.Read(Buffer^, MAXWORD);  

Se alguem puder me ajudar agradeço .

 

Adilson Pazzini .

[adilsonpazzini]

Segue arquivo que vai pra função de descompactar .. caso precisem para testes .

 

Adilson Pazzini

arq.xml

[adilsonpazzini]

Vi que o problema só acontece em NF´s Resumidas .. se eu fizer a Confirmacao do destinatario e pedir pra consultar novamente ai o erro ja nao acontece mais, desconfio que o xml resumido que vem a primeira vez , e que esta com algum problema para descompactar .

 

 

Desde ja agradesço

 

Adilson PAZZINI

[adilsonpazzini]

Bom dia, Seguinte , fazendo testes ainda, estou utilizando o DEMO do AcbrNFe . e la não acontece esse problema , ele consegue executar o processo "AcbrNFe.DistribuicaoDFe", sem dar o Problema de "Buffer Error", agora

fico com a duvida de ter utilizado alguma propriedade configuração interna do componente . pra ocasionar esse problema . algum tem alguma luz? cheguei a comparar propriedade por propriedade do Demo com o da minha tela , e não consegui

achar nada .. se alguem tiver uma luz agradeço .

 

Adilson PAZZINI .