ao enviar esse comando no cancelamento esta gerando acess violetion
ACBrSAT1.Inicializado := not ACBrSAT1.Inicializado ;
segue código
AjustaACBrSAT;
try
ACBrSAT1.Inicializado := not ACBrSAT1.Inicializado ;
Except
on E: Exception do
begin
Application.MessageBox(Pchar('Inic' + SlineBreak + ' ' + e.message), 'EnviarCanc', MB_OK);
exit;
end;
end;
if gerarCanc then
begin
if EnviarCanc then
begin
try
PrepararImpressao;
ACBrSAT1.ImprimirExtratoCancelamento;
LoadXML( ACBrSAT1.CFecanc.AsXMLString, mRecebido);
GravarXml(ACBrSAT1.CFecanc.ide.nCFe);
except
on E: Exception do
begin
Application.MessageBox(Pchar('Impressao ' + SlineBreak + ' ' + e.message), 'EnviarCanc', MB_OK);
exit;
end;
end;
end;
end;