//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 7; 5;17;75;Suprimento do Caixa;;;;;
:SKEL
VARIAVEL m_si_numfech = s_cx_numfech
VARIAVEL M_SI_CAIXA = S_VB_NCAIX
VARIAVEL M_floja = s_vb_filia
VARIAVEL M_cr_tip_dup = 'ES-Especie'
VARIAVEL m_fdataemi = S_DATUAL
VARIAVEL m_cr_dt_lqd = S_DATUAL
VARIAVEL m_fobs = 'SUPRIMENTO '+sys_usuario
VARIAVEL m_cr_num_ped = "CXSU"+right(dtos(s_datual),6)
VARIAVEL m_fhora = time()
COMANDO DEPOIS znil = if(s_sys_paf, oECF:Suprimento( StrTran(Str(m_Cr_VALOR,10,2),'.',',') , pad('Dinheiro',16)) ) ) , '')
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2;45;Loja......:;N; 2;floja;99;.f.;;
 1; 3;45;Caixa.....:;N; 2;si_caixa;99;.f.;;
 1; 4;45;Fechamento:;N; 6;si_numfech;999999;.f.;;
 1; 5;45;Data......:;D; 8;fdataemi;;.f.;;
 1; 6;45;Hora......:;C; 8;fhora;xx:xx:xx;.f.;;
 1; 8;45;Controle..:;N; 6;cr_num_ped ;@S10;.f.;;
 
 1; 3; 3;Operacao...:;C;20;FOBS;@s20;.f.;
 1; 4; 3;FormaPg....:;C;2;cr_tip_dup;@S13;.f.;
 1; 6; 3;Valor......:;N;10;cr_valor;9999999.99;;lastkey()=5.or.m_cr_valor>0;;;N;; 0; 0;;;
 1; 7; 3;Observacoes:;C;20;CR_OBS;@S20;;;
 