Onde faço o vinculo das formas de pagamento no ACBR para escrever no XML?
No momento da compilação ele não passa, gerando o executável sem a informação incluída, o mais estranho é por não apresentar mensagem de erro
if LcTipoPagamento='DUPLICATA MERCANTIL' then
begin
tPag := fpDuplicataMercantil;
end else
if LcTipoPagamento='SEM PAGAMENTO' then
begin
tPag := fpSemPagamento;
end else
if LcTipoPagamento='PAGAMENTO INSTANTÂNEO (PIX)' then
begin
tPag := fpPagamentoInstantaneoDinamico;
// tPag := fpPagamentoInstantaneo;
end else
if LcTipoPagamento='TRANSFERÊNCIA BANCÁRIA' then
begin
tPag := fpTransfBancario;
end else
Informado no pcnconversao
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', '20',
'21', '22', '90', '98', '99'],
[fpDinheiro, //01
fpCheque, //02
fpCartaoCredito, //03
fpCartaoDebito, //04
fpCreditoLoja, //05
fpValeAlimentacao, //10
fpValeRefeicao, //11
fpValePresente, //12
fpValeCombustivel, //13
fpDuplicataMercantil, //14
fpBoletoBancario, //15
fpDepositoBancario, //16
fpPagamentoInstantaneoDinamico, //17
fpTransfBancario, //18
fpProgramaFidelidade, //19
fpPagamentoInstantaneoEstatico, //20
fpCreditoLoja //21
fpFalhaDoEmissor //22
fpSemPagamento, //90
fpRegimeEspecial, //98
fpOutro]); //99
end;