Reimpressão de venda pelo arq. XML

[gutopj01]

Seguindo o exemplo.

SAT.ImprimirExtratoVenda

Comando responsável por imprimir o comprovante do CFe.

SAT.ImprimirExtratoVenda(ArqXMLVenda, NomeImpressora)

obs: Segundo parâmetros somente irá funcionar se estiver marcado para usar fortes na impressão

Exemplo:

SAT.ImprimirExtratoVenda("C:\acbr\201508\AD35150808723218000186599000039710000092846780.xml")

SAT.ImprimirExtratoVenda("C:\acbr\201508\AD35150808723218000186599000039710000092846780.xml", "Impressora1")

 

fiz:

 frmCfg.ACBrSAT1.Inicializar ;
 frmCfg.PrepararImpressao;
 frmCfg.ACBrSAT1.ImprimirExtrato( frmsat.qSatCabXMLORIGINAL.Value );
 frmCfg.ACBrSAT1.DesInicializar ;

onde está o erro? 

obrigado.

[Daniel Simoes]

Qual é exatamente o problema ? (você não descreveu)

[André Ferreira de Moraes]

Faça:

 frmCfg.ACBrSAT1.Inicializar ;
 frmCfg.ACBrSAT1.CFe.AsXMLString := frmsat.qSatCabXMLORIGINAL.Value;
 frmCfg.PrepararImpressao;
 frmCfg.ACBrSAT1.ImprimirExtrato;
 frmCfg.ACBrSAT1.DesInicializar ;

 

[gutopj01]

André fiz como você orientou mas continua com erro.

EACBrSATErro - Nenhum CFe carregado na memória
 

obrigado

[Daniel Simoes]

Verifique o conteúdo de: 

frmsat.qSatCabXMLORIGINAL.Value;

[gutopj01]

Está correto, copie e colei o valor do campo no edge, 

olha ai 

[Daniel Simoes]

Vá com o Debug e veja se ele está sendo atribuído ao ACBrSAT.CFe

[gutopj01]

Bom dia Daniel,

fiz como você orientou e

na procedure da unit pcnCFe.pas
======================================================
procedure TCFe.SetXMLString(const AValue : AnsiString);

AValue - chega normalmente o conteúdo de frmsat.qSatCabXMLORIGINAL.Value
XMLStr - está com o mesmo conteúdo do AValue  (  frmsat.qSatCabXMLORIGINAL.Value )

 

 

[gutopj01]

Resolvido,

assim funcionou 

 

  frmCfg.ACBrSAT1.CFe.LoadFromFile( frmSat.qSatCabXMLORIGINAL.Value );

obrigado.

 

[Daniel Simoes]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.