//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 5;0;20;79;Liquidacao de Duplicata;;;;;
:SKEL
VARIAVEL M_BANCO = banco
VARIAVEL M_SX_CONTA = if(FieldPos("sx_conta")>0,sx_conta,0)
VARIAVEL M_Cr_NUM_DOC = cr_num_doc
VARIAVEL M_CR_dT_DOC = cr_dt_doc
comando antes znil = if(select("si_tiplq")=0, abra("0NOIDX",R_SIGA,"si_tiplq","si_tiplq"),"")
comando antes DbSelectArea("sccrdup")
COMANDO DEPOIS #TEXTO_FONTE
   RegLock()
   Put_Var("CR_DATA", DATE())
   Put_Var("CR_HORA", time())
   put_var("banco",m_banco)
   put_var("cr_num_doc",m_cr_num_doc)
   put_var("cr_dt_doc",m_cr_dt_doc)
   if FieldPos("sx_conta")>0
      put_var("sx_conta",m_sx_conta)
   endif
#FIM_TEXTO_FONTE
comando saida si_tiplq->(DbCloseArea())
// 1; 8;38;Juros/Descon:;N;10;CR_DESCONT;9999999.99;;;;
// 1;10;38;Gera NotaDeb:;C; 1;CR_HA_JURO;x;;;
// Tipos de Liquidacao: 1-Banco (nDeb N)  2-Cartorio (nDeb S) 3-Prejuizo.Dev.Duvidoso (nDeb N)  4-PrincipalComJuros (nDeb N) 5-PrincipalSemJuros (nDeb S) 6-Carteira (nDeb N) 7-Bonificacao (nDeb N) 8-Merc.Devolvida (nDeb N)  9-Cheque (nDeb N)
// Se cr_tipo_lq = Carteira, exige numero do caixa 
// alias, se a quitacao veio do caixa, forca que cr_tipo_lq seja em Carteira
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 2;Titulo......:;C; 9;CR_NUM_PED;@S9;.f.;
 1; 2;38;Cliente:;N; 5;CR_COD_CLI;99999;.f.;;
 1; 4; 2;Data Emissao:;D; 8;CR_DT_EMIS;;.f.;;
 1; 4;38;Vendedor:;C; 2;CR_ZONA;xx;.f.;;
 1; 5; 2;Data Vencto.:;D; 8;CR_DT_VENC;;.f.;;;;N;; 0; 0;;;
 1; 5;38;Situacao:;C; 1;CR_SITUAC;x;.f.;;
 1; 6; 2;Valor.......:;N;10;CR_VALOR;9999999.99;.f.;;
 1; 6;38;Portador:;C; 2;CR_LOCAL;xx;;lastkey()=5.or.psq_brow;si_banco;psibanco;N;N; 6;54;banco;@s20;Val(m_Cr_Local);

 1; 8; 2;Data Liquid.:;D; 8;CR_DT_LQD;;(m_CR_DT_LQD:=if(day(m_CR_DT_LQD)=0,Date(),m_cr_dt_lqd),refreshGetlist());;
 1; 9; 2;Valor Liquid:;N;10;CR_VAL_LQD;9999999.99;(m_CR_VAL_LQD:=if(CR_VAL_LQD=0,m_CR_VALOR,M_CR_VAL_LQD),refreshGetlist());;
 1;10; 2;Tipo Liquid.:;C; 1;CR_TIP_LQD;x;;psq_brow().and.si_tiplq->(wCrFormaPg:=if(FieldPos("cr_formapg")>0.and.!empty("cr_formapg"),cr_formapg,wCrFormaPg),.t.);si_tiplq;psitiplq;N;N;10;25;cr_tipo_LQ;@s20;Val(m_Cr_Tip_Lqd);
 1;11; 2;Forma Receb.:;P;13;wCrFormaPg;@S13;(MyShowListbox());LISTBOX 13,7,vOpcoes;;;
 1; 8;38;Comentario..:;C;15;CR_OBS;@S15;GetInfoFormaPgQuit(wCrFormaPg);;;