[NFCE - MULTIPLAS FORMAS DE PAGAMENTO]

On 01/03/2016 at 4:37 PM, carlitomorais said:

primeiro defina suas variaveis, e ache os valores digitados do usuario no meu caso usei variaveis (dinheiro,cheque,cartaodebito...etc.)

depois e so informar igual abaixo.

 

     if dinheiro> 0 then begin with pag.Add do begin tPag := fpDinheiro; vPag := dinheiro; end; end;
     if Cheque>0 then begin with pag.Add do begin tPag := fpCheque; vPag := cheque; end; end;
     if CartaoDebito>0 then begin with pag.Add do begin tPag := fpCartaoDebito; vPag := cartaodebito; end; end;
     if CartaoCredito>0 then begin with pag.Add do begin tPag := fpCartaoCredito; vPag := cartaocredito; end; end;
     if Carteira>0 then begin with pag.Add do begin tPag := fpCreditoLoja; vPag := carteira; end; end;
     if outros>0 then begin with pag.Add do begin tPag := fpOutro; vPag := outros; end; end;