SC_SXCFG;Parametrizacao do Caixa;sys_tbbrow;10; 0;22;79;padrao;;eval(z_blkPpo);
:SKEL
VARIAVEL w_colsep = " "+chr(176)
VARIAVEL Z_XTELA = SAVESCREEN(3,0,9,79)
VARIAVEL Z_NIL = abra("0", r_sc_aux, arq_histo, "ARQ_HIST")
VARIAVEL Z_NIL = abra("0", r_sc_pla, arq_plano, "ARQ_PLAN")
VARIAVEL Z_NIL = abra_arq("CP_SUBD")
VARIAVEL Z_NIL = DbSelectArea("SC_SXCFG")
VARIAVEL ZHDEB = ""
VARIAVEL ZHCRED = ""
VARIAVEL ZPDEB = ""
VARIAVEL ZPCRED = ""
VARIAVEL z_bPpo = "arq_hist->(DbGoto(sc_sxcfg->codhis)),zhdeb:=arq_hist->ct_desc,arq_hist->(DbGoto(sc_sxcfg->codhisc)),zhcred:=arq_hist->ct_desc,"
VARIAVEL z_bPpo = z_bPpo + "arq_plan->(DbGoto(sc_sxcfg->contares)),zpdeb:=arq_plan->ct_titulo,arq_plan->(DbGoto(sc_sxcfg->contaresd)),zpcred:=arq_plan->ct_titulo"
VARIAVEL z_bPpo = _CreateBlock( z_bPpo )

VARIAVEL z_blkPpo = "Z_COR := SetColor('R/W'),EVAL(z_bPpo),"
VARIAVEL z_blkPpo = z_blkPpo + "Scroll(3,0,9,79,0),DispBox(3,0,9,79),"
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(4,2), DevOut("SubDivisao de Despesa:"),'
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(5,2), DevOut("Conta a Debito.......: "+alltrim(zpdeb)),'
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(6,2), DevOut("Conta a Credito......: "+alltrim(zpcred)),'
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(7,2), DevOut("Historico a Debito...: "+alltrim(zhdeb)),'
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(8,2), DevOut("Historico a Credito..: "+alltrim(zhcred)),'
VARIAVEL z_blkPpo = z_blkPpo + "SetColor(Z_COR)"
VARIAVEL z_blkPpo = _CreateBlock( z_blkPpo )

COMANDO DEPOIS Z_NIL = RESTSCREEN(3,0,9,79,Z_XTELA)
//VARIAVEL z_BlkR = 'Z_Sele:=Select(),Abra_arq("hc_retdi"),DbGet("HC_RETDI",1,.t.,.f.,"HC_RECTV"),hc_retdi->(DbCloseArea()),DbSelectArea(z_sele)'
//VARIAVEL z_BlkR = _CreateBlock( z_BlkR )
// 32;vb_venda("V","N",.F.,recno(),d_ob);Barra-Venda_Direta ;
:TBFI
SUBDIV;SUBDIV;C;@S5;  5;;
C.Deb;CONTARES;N;99999;  5;;
C.Cre;CONTARESD;N;99999;  5;;
H.Deb;CODHIS;N;99999;  5;;
H.Cre;CODHISC;N;99999;  5;;
Rateio;RATEIO;N;999.99;  8;;
LANCONTA;LANCONTA;C;x;  1;;
CONTADES;CONTADES;C;@S20; 20;;
