Pessoal boa tarde estou inicializando o desenvolvimento do SAT o exemplo esta funcionando corretamente agora quando tento emitir um cupom usando meu programa da um erro na unit ACBRSAT a linha com erro esta em negrito. Da access Violation
function TACBrSAT.EnviarDadosVenda(dadosVenda : AnsiString) : String ; var NomeCFe, Retorno: String; begin dadosVenda := Trim(dadosVenda);
fsComandoLog := 'EnviarDadosVenda( '+dadosVenda+' )'; if dadosVenda = '' then raise EACBrSATErro.Create('Parâmetro: "dadosVenda" não informado');
// Dados deve sempre ser enviados em UTF8 dadosVenda := ConverteXMLtoUTF8(dadosVenda);
IniciaComando;
if fsConfigArquivos.SalvarEnvio then begin NomeCFe := CalcCFeNomeArq( fsConfigArquivos.PastaEnvio, fsConfigArquivos.PrefixoArqCFe + FormatDateTime('YYYYMMDDHHNNSS',Now) + '-' + IntToStrZero(numeroSessao, 6), '-env'); WriteToTXT(NomeCFe, dadosVenda, False, False); end;
Retorno := ''; if assigned(FOnEnviarDadosVenda) then FOnEnviarDadosVenda(dadosVenda, Retorno);
if EstaVazio(Retorno) then Retorno := fsSATClass.EnviarDadosVenda( dadosVenda );
Result := FinalizaComando( Retorno );
DecodificaRetorno6000; end