Xml Em Branco Ao Gerar Venda

[William Bruno]

Bom dia,

 

Estou testando o componente do ACBRSat utilizando o exemplo fornecido por vocês, quase tudo está funcionando normalmente, meu único problema está sendo na hora de gerar a venda, o XML vem em branco.
Se eu debugar posso ver que não retorna nada nessa linha de código:
mVenda.Lines.Text := ACBrSAT1.CFe.AsXMLString;

Alguém sabe me dizer o que está acontecendo?

 

Obrigado

[Daniel Simoes]

Uso o Demo em Lazarus, e funciona normalmente...

[Daniel Simoes]

Realmente havia um Bug no Demo em Delphi... já corrigido... Porém o Demo em Lazarus está bem mais completo...

 

Também é necessário corrigir alguns erros na maneira que o Demo monta o CFe

[evandromira]

Daniel, voce colocou no SVN essa correção?

 

Eu estava com este mesmo problema, apenas alterei a linha:

 

mCupom.Text := DecodeBase64(ACBrSAT1.Resposta.RetornoLst[6]) ;

 

para

 

mCupom.Text := DecodeBase64(ACBrSAT1.Resposta.RetornoLst[3]) ;

 

Assim retornou o xml...

 

É só isso mesmo?

 

Obrigado

[Daniel Simoes]

A modificação ocorreu na linha 690 de Unit1.pas

  mVenda.Lines.Text := ACBrSAT1.CFe.GetXMLString( True ) ;

[evandromira]

Desculpa Daniel

 

A venda gera e envia normal e retorno OK no emulador.

 

O meu problema era na hora de pegar o retorno, apos enviar a venda no evento mEnviarVendaClick do demo.

 

No demo a aba XML Recebido não mostrava o retorno, gerava o xml mas vazio...

 

Fiz a modificação que citei acima e resolveu...

 

Obrigado