VB_FPAG;Indique Motivo das Diferencas;sys_tbbrow; 5; 0;20;79;padrao;;
:TBMT
 13;doget(D_ob);Enter-Edita ;
:TBFI
Descricao da Forma de Pagamento;if(fcartao>0,"(Ct"+StrZero(fcartao,2)+")","      ")+ctnome;C;@S22; 22;N;
TotalCx;cr_valinf;N;999999.99; 9;S;
Tot.Calc;cr_valor;N;999999.99; 9;S;
Diferenca;lTrim(Str(Abs(cr_valinf-cr_valor),10,2))+if(cr_valinf-cr_valor>0," a mais","a menos") ;P;@S17;17;S;
FormaPag;cr_tip_dup;C;XX;  8;N;
Ct;fcartao;N;999.99; 6;N;