Rejeição 963 e ECF Virtual

[CrasH]

Hoje, dia 01/07/2024 foi ativada uma NT que retorna rejeição caso o grupo card esteja informado e o campo tpPag = 99. Como utilizo ECF Virtual, não encontrei uma forma de informar o tipo da forma de pagamento, e nesse caso, o componente sempre marca como 99. Se alguem puder me ajudar, agradeço imensamente.

[CrasH]

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;

 

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.