//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1;4;20;21;60;Recebimento de Titulo;;;;; 
:SKEL
VARIAVEL M_Cr_NUM_DOC = IF(DAY(CR_DT_LQD)=0, M_CR_NUM_DOC+1,M_CR_NUM_DOC)
VARIAVEL M_CR_dT_DOC  = IF(DAY(CR_dT_LQD)=0, S_dATUAL, M_CR_dT_DOC)
VARIAVEL zBlkRec = {||m_CR_AREC:=if(m_CR_AREC=0,m_cr_saldo,m_CR_AREC),if(type("oCr_Arec")<>"U",oCr_Arec:Refresh(),), RefreshGetList()}
comando antes m_cr_formapg = 'ES-Especie'
comando antes wCtaTesouDoLancto:=if(type("wCtaTesouDoLancto")="U",GetCtaTesou("ES"),wCtaTesouDoLancto)
comando depois #TEXTO_FONTE
   if type('m_fcli')='N' .and. m_fcli=0
      m_fcli:=cr_cod_cli
   endif
   put_var("cr_formapg",m_cr_formapg) 
   put_var("sx_conta",wCtaTesouDoLancto) 
   if (m_CR_AREC<m_CR_SALDO.and.Alert("Ainda Existiria um saldo pendente de "+Str(m_CR_SALDO-m_CR_AREC,10,2)+" !;Mantenho o saldo pendente ?",{"1.Sim","2.Nao"},"B/W")==1)
      put_var("cr_dt_lqd",Ctod("")) 
   endif
   m_fValEs := if(m_fValEs=0, m_CR_AREC, m_fValEs)
#FIM_TEXTO_FONTE
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 2;Titulo/Parcela....:;C; 9;CR_NUM_PED;@S9;.f.;;
 1; 3; 2;Data de Emissao...:;D; 8;CR_DT_EMIS;;.f.;;
 1; 4; 2;Data de Vencimento:;D; 8;CR_DT_VENC;;.f.;;;;N;; 0; 0;;;
 1; 5; 2;Valor do Principal:;N;10;CR_VALOR;9999999.99;.f.;;;;N;; 0; 0;;;
 1; 6; 2;Valor ja Adiantado:;N;10;CR_VAL_LQD;9999999.99;.f.;;;;N;; 0; 0;;;
 1; 7; 2;Juros a Cobrar....:;N;10;CR_JUROS;9999999.99;.f.;;;;N;; 0; 0;;;
 1; 8; 2;Saldo a Receber...:;N;10;CR_SALDO;9999999.99;.f.;;;;N;; 0; 0;;;
 1; 9; 2;Valor Recebido....:;N;10;CR_AREC;9999999.99;eVal(zBlkRec);(if(Day(m_cr_dt_lqd)=0,(m_cr_dt_lqd:=if(m_CR_AREC>0,s_datual,m_cr_dt_lqd)),m_cr_dt_lqd),RefreshGetList());;;
 1;10; 2;Data da Liquidacao:;D; 8;CR_DT_LQD;;.f.;;;;
 1;11; 2;Comentario........:;C;15;CR_OBS;@S15;;;;;N;; 0; 0;;;
 1;12; 2;Forma Receb.Pagto.:;P;13;m_cr_formapg;@S13;(MyShowListbox());LISTBOX 13,7,vOpcoes;;;N;; 0; 0;;;
 1;13; 2;Conta Tesouraria..:;P; 3;wCtaTesouDoLancto;999;(wCtaTesouDoLancto:=GetCtaTesou(@m_cr_formapg),RefreshGetList(),wlLanctoTesouraria);PSQ_BROW;sx_conta;psxconta;N;S;13;30;ct_titulo;@s6;
 1;14; 2;Numero do Adiant..:;N; 6;CR_NUM_DOC;999999;.F.;;;;N;; 0; 0;;;
 1;15; 2;Data Adiantamento.:;D; 8;CR_DT_DOC;;.f.;;;;;N;; 0; 0;;;
