Bom Dia
Pessoal,
estou com problema nesse novo leiaute do sefaz, fiz a atualização do ACBr, so que não aparece para usar, não sei se estou fazendo errado. Desde ja agradeço.
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', '20', '21', '22'],
[fpDinheiro, fpCheque, fpCartaoCredito, fpCartaoDebito,
fpCreditoLoja, fpValeAlimentacao, fpValeRefeicao,
fpValePresente, fpValeCombustivel, fpDuplicataMercantil,
fpBoletoBancario, fpDepositoBancario,
fpPagamentoInstantaneo, fpTransfBancario,
fpProgramaFidelidade, fpSemPagamento, fpRegimeEspecial,
fpOutro, fpPagamentoInstantaneoEstatico,
fpCreditoEmLojaPorDevolucao, fpFalhaHardware]);
end;
function FormaPagamentoToDescricao(const t: TpcnFormaPagamento; const xPag: String): string; overload;
begin
if (t = fpOutro) and (xPag <> '') then
result := xPag
else
result := EnumeradoToStr(t, ['Dinheiro', 'Cheque', 'Cartão de Crédito',
'Cartão de Débito', 'Cartão da Loja (Private Label)',
'Vale Alimentação', 'Vale Refeição', 'Vale Presente',
'Vale Combustível', 'Duplicata Mercantil',
'Boleto Bancário', 'Deposito Bancário',
'Pagamento Instantâneo (PIX) - Dinâmico', 'Transferência Bancária',
'Programa Fidelidade', 'Sem Pagamento',
'Regime Especial NFF', 'Outro', 'Pagamento Instantâneo (PIX) - Estático',
'Crédito em Loja', 'Falha de hardware do sistema emissor'],
[fpDinheiro, fpCheque, fpCartaoCredito, fpCartaoDebito,
fpCreditoLoja, fpValeAlimentacao, fpValeRefeicao,
fpValePresente, fpValeCombustivel, fpDuplicataMercantil,
fpBoletoBancario, fpDepositoBancario,
fpPagamentoInstantaneo, fpTransfBancario,
fpProgramaFidelidade, fpSemPagamento, fpRegimeEspecial,
fpOutro, fpPagamentoInstantaneoEstatico,
fpCreditoEmLojaPorDevolucao, fpFalhaHardware]);
end;