bom dia juliomar
estava debugando aqui e descobri o seguinte na unit ACBrTEFDCliDTEF
metodo FinalizarTransacao vai passar duas vezes uma vez pra cada pagamento
case TipoTransacao of
-1 : nStatus := xFinalizaTransacao;
0 : nStatus := xConfirmaCartao( PAnsiChar( NSU ) );
1 : nStatus := xConfirmaCartaoCredito( PAnsiChar( NSU ) );
2 : nStatus := xConfirmaCartaoDebito( PAnsiChar( NSU ) );
3 : nStatus := xConfirmaCartaoVoucher( PAnsiChar( NSU ) );
//4 : nStatus Private Label
//5 : nStatus := xConfirmaCartao
10 : nStatus := xConfirmaCartaoFrota( PAnsiChar( NSU ) );
else
nStatus := -1 ;
end;
if ((nStatus = 0) and Confirma) then
begin
xFinalizaTransacao;
end;
if (nStatus = 11) then
begin
TACBrTEFD(Owner).DoExibeMsg( opmOK, 'Transação não efetuada.' );
NCN(Operacao, NSU, '');
end;
na primeira vez blz retorna 0 ai cai aqui
if ((nStatus = 0) and Confirma) then
begin
xFinalizaTransacao;
end;
na segunda vez(segunada forma de pagamento) esta retornando 11
ai cai nesta mensagem de Transação não efetuada
agora nao sei porq esta retornando 11 acredito que isso retorne da DLL