AV A VISTA -> DAC CARTAO -> C
CD CARTAO DEBITO -> S
CC CARTAO DE CREDITO -> T
FT FATURAMENTO -> L
PE PERDAS -> V
CR CREDITO A
PR PROMOCAO -> M
PD DUPLICATA -> D
TF TRANSFERENCIA -> B
PP ABATE PONTOS -> H
Moedas na Presence
if (Pos('VISA', ADesFormPgto) > 0) AND (AMoeda = 'S') then Result := '04'
else if (Pos('VISA', ADesFormPgto) > 0) AND (AMoeda = 'T') then Result := '01'
else if (Pos('MASTER', ADesFormPgto) > 0) AND (AMoeda = 'S') then Result := '05'
else if (Pos('REDE', ADesFormPgto) > 0) AND (AMoeda = 'S') then Result := '05'
else if (Pos('MASTER', ADesFormPgto) > 0) AND (AMoeda = 'T') then Result := '02'
else if (Pos('ELO', ADesFormPgto) > 0) AND (AMoeda = 'S') then Result := '07'
else if (Pos('ELO', ADesFormPgto) > 0) AND (AMoeda = 'T') then Result := '06'
else if (Pos('AMEX', ADesFormPgto) > 0) AND (AMoeda = 'T') then Result := '03'
else if (Pos('HIPER', ADesFormPgto) > 0) AND (AMoeda = 'T') then Result := '08'
else Result := 'YY';
O que estiver dando YY (e portanto não contemplado nesta lista) deve ser incorporado no ecommerce idividual da unidade