Vasculhando o código e as propriedades, acabei encontrando uma forma de informar isso. Existe um evento do componente chamado "QuandoEfetuarPagamento" e lá é possivel informar isso.
if fPagtoDinheiro then
begin
Det.indPag := TpcnIndicadorPagamento.ipVista;
Det.tPag := TpcnFormaPagamento.fpDinheiro;
end
else if DM.IBQNumerariosTipo.AsString = 'C' then
begin
Det.indPag := TpcnIndicadorPagamento.ipPrazo;
Det.tPag := TpcnFormaPagamento.fpCreditoLoja;
end
else if DM1.IBQNumerariosTipo.AsString = 'Q' then
begin
Det.indPag := TpcnIndicadorPagamento.ipPrazo;
Det.tPag := TpcnFormaPagamento.fpCheque;
end
else if DM1.IBQNumerariosTipo.AsString = 'T' then
begin
Det.indPag := TpcnIndicadorPagamento.ipPrazo;
Det.tPag := TpcnFormaPagamento.fpCartaoCredito;
if RemoveAcentos(AnsiLowerCase(DM1.IBQNumerariosLookForma.AsString)).Contains('debito') then
begin
Det.indPag := TpcnIndicadorPagamento.ipVista;
Det.tPag := TpcnFormaPagamento.fpCartaoDebito;
end;
end
else if DM1.IBQNumerariosTipo.AsString = 'O' then
begin
Det.indPag := TpcnIndicadorPagamento.ipVista;
Det.tPag := TpcnFormaPagamento.fpOutro;
end
else
begin
Det.tPag := TpcnFormaPagamento.fpOutro;
Det.xPag := DM1.IBQNumerariosLookForma.AsString;
end;
Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.
