Acbrsat1.cfe.getxmlstring( True ) = Invalid Argument

[klipvirtual]

Pessoal,

 

Comecei essa semana  a estudar o DEMO do ACBrSAT e estou usando a experiência de já ter implementado o ACBrNFe, mas mesmo assim estou tendo dificuldades com o DEMO.

 

Antes de mais nada:

 

1-Uso Delphi XE2, Windows 8, máquina com 64 bits.

2-Ativei o emulador SAT e cadastrei a chave com 344 caracteres pelo sistema do governo.

 

Como estou fazendo:

 

1-Entro no emulador

2-Entro no Demo ACBrSAT e clico apenas no Inicializar, nada mais.

3-Vou em consulta e ele 'conversa' com o emulador numa boa (vide abaixo as mensagens).

 

ACBrSAT.Inicializado

-- 13:14:44:837 - numeroSessao: 26787 - Comando: ConsultarSAT

   13:14:45:105 - numeroSessao: 26787 - Resposta:026787|08000|SAT-CFe em operação.||

 

4-Depois clico em GerarVenda e o sistema vai para a aba XMLgerado (fica em branco o memo) e apresenta a mensagem abaixo, no emulador não apresenta mensagem nenhuma.

 

EVariantInvalidArgError - Invalid argument

 

5-Debugando vi que o erro acontece quando chega nessa linha

 

  mVenda.Lines.Text := ACBrSAT1.CFe.GetXMLString( True );    // True = Gera apenas as TAGs da aplicação

 

Se algué puder me ajudar de antemão agradeço.

 

 

Rogério

Editado 11 Junho, 2014 por klipvirtual

[Daniel Simoes]

Eu tenho trabalhado apenas no Demo em Lazarus...

 

Pode ser que comparando os fontes de Lazarus e Delphi você consiga encontrar o problema e corrigi-lo...

[Mega Online]

Ola, klipvirtual, então eu troquei pela função e deu certo:

 

mVenda.Lines.Text := ACBrSAT1.CFe.GerarXML(True); // True = Gera apenas as TAGs da aplicação