if (DataModuleVendas.ClientDataSetFormasPagamentoVenda.FieldByName('cartao_credito').AsFloat <> 0) then
begin
with pag.Add do //PAGAMENTOS apenas para NFC-e
begin
indPag := ipPrazo;
tPag := fpCartaoCredito;
xPag := 'Cartao de Credito';
vPag := DataModuleVendas.ClientDataSetFormasPagamentoVenda.FieldByName('cartao_credito').AsFloat;
dPag := date;
tpIntegra := tiPagIntegrado; // 0 -tiNaoInformado / 1 - tiPagIntegrado / 2 - tiPagNaoIntegrado
CNPJPag := '01248201000175';
UFPag := 'SP';
tBand := bcMasterCard;
CNPJReceb := '99999999999999';
idTermPag := '0001';
cAut := '123456789';
{
(bcVisa, bcMasterCard, bcAmericanExpress, bcSorocred, bcDinersClub,
bcElo, bcHipercard, bcAura, bcCabal, bcAlelo, bcBanesCard,
bcCalCard, bcCredz, bcDiscover, bcGoodCard, bcGreenCard,
bcHiper, bcJcB, bcMais, bcMaxVan, bcPolicard, bcRedeCompras,
bcSodexo, bcValeCard, bcVerocheque, bcVR, bcTicket,
bcOutros);
}
end;
end;
pode ria me ajudar