TPAG fpOutro está com código 17, não seria do PIX esse código?

[cyber233]

Boa noite senhores, percebi que o componente após atualização está com códigos no campo YA02 (Meio de pagamento) fpOutro com código 17, foi propósito mesmo?

[Cleber Ferreira]

10 horas atrás, cyber233 disse:

Boa noite senhores, percebi que o componente após atualização está com códigos no campo YA02 (Meio de pagamento) fpOutro com código 17, foi propósito mesmo?

Bom dia,

Siga o componente que ele se encarrega do resto.

 

[BigWings]

O ACBr não usa, e nem você deve usar o índice do enumerado como código, vejas os métodos da pcnConversao.pas e pcnConversaoNFe.pas.

function FormaPagamentoToStr(const t: TpcnFormaPagamento): string;
function FormaPagamentoToDescricao(const t: TpcnFormaPagamento): string; overload; deprecated {$IfDef SUPPORTS_DEPRECATED_DETAILS} 'Obsoleta: Use FormaPagamentoToDescricao(const t: TpcnFormaPagamento; const xPag: String)'{$EndIf};
function FormaPagamentoToDescricao(const t: TpcnFormaPagamento; const xPag: String): string; overload;
function StrToFormaPagamento(out ok: boolean; const s: string): TpcnFormaPagamento;


[...]

function FormaPagamentoToStr(const t: TpcnFormaPagamento): string;
begin
  result := EnumeradoToStr(t, ['01', '02', '03', '04', '05', '10', '11', '12',
                               '13', '14', '15', '16', '17', '18', '19', '90',
                               '98', '99'],
                              [fpDinheiro, fpCheque, fpCartaoCredito, fpCartaoDebito,
                               fpCreditoLoja, fpValeAlimentacao, fpValeRefeicao,
                               fpValePresente, fpValeCombustivel, fpDuplicataMercantil,
                               fpBoletoBancario, fpDepositoBancario,
                               fpPagamentoInstantaneo, fpTransfBancario,
                               fpProgramaFidelidade, fpSemPagamento, fpRegimeEspecial,
                               fpOutro]);
end;

 

[Élviro Cavalcanti]

Sempre esse código pra o PIX

        else if DM.IBRecebimentoVendaPDVCODFORMAPAGAMENTO.AsInteger = 17 then
        begin
          tPag := fpPagamentoInstantaneo;
          vPag := DM.IBRecebimentoVendaPDVVLRRECEBIDO.AsCurrency;
        end
 

[cyber233]

Em 22/10/2021 at 09:54, BigWings disse:

O ACBr não usa, e nem você deve usar o índice do enumerado como código, vejas os métodos da pcnConversao.pas e pcnConversaoNFe.pas.

function FormaPagamentoToStr(const t: TpcnFormaPagamento): string;
function FormaPagamentoToDescricao(const t: TpcnFormaPagamento): string; overload; deprecated {$IfDef SUPPORTS_DEPRECATED_DETAILS} 'Obsoleta: Use FormaPagamentoToDescricao(const t: TpcnFormaPagamento; const xPag: String)'{$EndIf};
function FormaPagamentoToDescricao(const t: TpcnFormaPagamento; const xPag: String): string; overload;
function StrToFormaPagamento(out ok: boolean; const s: string): TpcnFormaPagamento;


[...]

function FormaPagamentoToStr(const t: TpcnFormaPagamento): string;
begin
  result := EnumeradoToStr(t, ['01', '02', '03', '04', '05', '10', '11', '12',
                               '13', '14', '15', '16', '17', '18', '19', '90',
                               '98', '99'],
                              [fpDinheiro, fpCheque, fpCartaoCredito, fpCartaoDebito,
                               fpCreditoLoja, fpValeAlimentacao, fpValeRefeicao,
                               fpValePresente, fpValeCombustivel, fpDuplicataMercantil,
                               fpBoletoBancario, fpDepositoBancario,
                               fpPagamentoInstantaneo, fpTransfBancario,
                               fpProgramaFidelidade, fpSemPagamento, fpRegimeEspecial,
                               fpOutro]);
end;

 

Opa isso mesmo, me enganei nisso...

[Victor H. Gonzales - Panda]

Obrigado por reportar.

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