//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 6; 3;18;79;Sangria - Pagamento no Caixa;;;;;
:SKEL
VARIAVEL zbDesc={||m_cp_desc:=if(empty(m_cp_desc),pad(alltrim(cp_divis->desc),len(m_cp_desc)),m_cp_desc),RefreshGetList()}
VARIAVEL zbSubD={||cSubD:=StrZero(m_CP_DIVISAO,3),m_CP_SUBDIV:=cSubD+SubStr(m_CP_SUBDIV,4),eVal(zbDesc),cp_subd->(DbSeek(cSubD))}
COMANDO ANTES z_nil=if(sele("CP_DIVIS")=0,abra_arq("CP_DIVIS"),"")
COMANDO ANTES z_nil=if(sele("CP_SUBD")=0,abra_arq("CP_SUBD"),"")
COMANDO ANTES z_nil=dbselectarea("SCCPPED")
COMANDO SAIDA z_nil=if(sele("CP_SUBD")>0,cp_subd->(DbCloseArea()),"")
COMANDO SAIDA z_nil=if(sele("CP_DIVIS")>0,cp_divis->(DbCloseArea()),"")

COMANDO ANTES zCxOpen = vb_caixa('CaixaAberto?')
COMANDO ANTES znil = mensagem(if(.not.zcxopen, "O Caixa nao estava Aberto !...Cancelando Operacao",""),1)
COMANDO ANTES znil = if(.not.zCxOpen, __KeyBoard(chr(27)), '')
COMANDO ANTES m_si_numfech = if(type('s_cx_numfech')<>'U',s_cx_numfech,0)
COMANDO ANTES M_CP_NUM_PED = "CX"+right(dtos(s_datual),6)
COMANDO ANTES M_CP_DUPLIC = TIME()
COMANDO ANTES M_CP_DT_EMIS= S_DATUAL
COMANDO ANTES M_CP_DT_VENC= S_DATUAL
COMANDO ANTES M_CP_DT_LQD = S_DATUAL
COMANDO ANTES M_CP_LOCAL  = 6
COMANDO ANTES M_CP_DATA   = S_DATUAL
COMANDO ANTES M_CP_HORA   = TIME()
COMANDO ANTES M_SI_CAIXA = S_VB_NCAIX
COMANDO DEPOIS znil = if(s_sys_paf, oECF:Sangria( StrTran(Str(m_CP_VAL_LQD,10,2),'.',',') )  , '')
// COMANDO DEPOIS znil = if(!s_sys_paf, PrtBordero("RTF",,, "recibo_fornecedor.rtf", cr_cod_cli ), '')
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2;54;Lancamento.:;C;10;CP_NUM_PED;xxxxxxxxxx;.f.;;;;
 1; 3;54;Hora.......:;C;10;CP_DUPLIC;xxxxxxxxxxx;.f.;;;;
 1; 5;54;Dt Emissao.:;D; 8;CP_DT_EMIS;;.F.;;;;N;; 0; 0;;;
 1; 6;54;Dt Venc....:;D; 8;CP_DT_VENC;;.F.;M_cp_dt_venc>=M_cp_dt_emis;;;
 1; 7;54;Dt Liquid..:;D; 8;CP_DT_LQD;;.F.;;;;
 
 1; 2; 3;Cod Fornec.:;N; 5;CP_COD_FOR;99999;;Chk_LastKey(5) .or. psq_brow;sccpfor;psccpfor;N;N; 2;23;cp_nome;@s30;
 1; 3; 3;Div.Desp...:;N; 3;CP_DIVISAO;999;;Chk_LastKey(5).or.psq_brow;cp_divis;pcpdiviS;N;S;3;23;desc;@s18;
 1; 4; 3;Subdiv.Desp:;C; 5;CP_SUBDIV;@S5;eval(zbSubD);Chk_LastKey(5).or.!cp_subd->(DbSeek(StrZero(m_CP_DIVISAO,3))).or.Psq_brow;Cp_Subd;PcpSubdf;N;S;4;23;SdDesc;@S18;
 1; 5; 3;Portador...:;N; 3;CP_LOCAL;999;;Chk_LastKey(5).or.psq_brow;cp_local;pcplocal;N;N; 4;23;banco;@s25;

 1; 6; 3;Valor Emis.:;N;10;CP_VALOR;9999999.99;;Chk_LastKey(5).or.m_cp_valor>0;;;N;; 0; 0;;;
 1; 7; 3;Val Liquid.:;N;10;CP_VAL_LQD;9999999.99;(M_CP_VAL_LQD:=M_CP_VALOR)>0;;;;N;; 0; 0;;;
 1; 9; 3;Comentario.:;C;30;CP_DESC;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx;;;;;N;; 0; 0;;;
 1; 9;54;Caixa......:;N; 2;si_caixa;99;.f.;;;;;N;; 0; 0;;;
 1;10;54;Fechamento.:;N; 6;si_numfech;999999;.f.;;;;;N;; 0; 0;;;
