Roberto Henrique Borges Machado

function TACBrTEFDClass.CNC(Rede, NSU: String; DataHoraTransacao: TDateTime;   Valor: Double; CodigoAutorizacaoTransacao: String): Boolean; begin   IniciarRequisicao('CNC');   Req.ValorTotal := Valor;   Req.Rede := Rede;   Req.NSU := NSU;   Req.DataHoraTransacaoComprovante := DataHoraTransacao;   if (CodigoAutorizacaoTransacao <> '') then     Req.CodigoAutorizacaoTransacao := CodigoAutorizacaoTransacao;   AdicionarIdentificacao;   FinalizarRequisicao;   LerRespostaRequisicao;   Result := Resp.TransacaoAprovada and (Resp.QtdLinhasComprovante > 0); // solução   try      ProcessarResposta ;         { Faz a Impressão e / ou exibe Mensagem ao Operador }   finally      FinalizarResposta( True ) ; { True = Apaga Arquivo de Resposta }   end; end;