SCCRDUP;Cheques Pre-datados;sys_tbbrow; 5; 0;20;79;sccrdup;;
:SKEL
//*VARIAVEL Z_BLOCK = {|x_prd| se_prod->(dbseek(x_prd)), se_prod->pdesc }
//*COMANDO ANTES Z_NIL = ABRA("0RO",r_siga,"se_prod","se_prod","seip_c","pcod")
//*COMANDO DEPOIS Z_NIL = Se_Prod->( DbCloseArea() )
//COMANDO ANTES Z_NIL = ordCondSet( 'cr_tip_dup="CH"', {|| cr_tip_dup="CH"},,,,, RECNO(),,,, ) ; ordCreate((Z_ARQIDX),, "cr_dt_doc", {|| cr_dt_doc}, )
VARIAVEL Z_ARQIDX = r_siga-"tmp\$T"-strzero(seconds(),6)
COMANDO ANTES Z_NIL = ordCondSet( 'cr_tip_dup="CH".And.Cr_Dt_Doc>=s_datual', {|| cr_tip_dup="CH".And.Cr_Dt_Doc>=s_datual},,,,, RECNO(),,,, )
COMANDO ANTES Z_NIL = ordCreate((Z_ARQIDX),, "cr_num_doc", {|| cr_num_doc}, )
COMANDO ANTES DbGoBottom()
COMANDO ANTES DbSkip(-8)
:TBMT
 22;sccrdup(D_OB,1);Ins-Inclui ;
 65;tb_update(D_OB);A-Altera ;
  7;tb_del(d_ob);Del-Apaga ;
 32;tb_cons();Barra-Exibe ;
 13;doget(D_ob);Enter-Edita ;
 79;tb_index(D_OB);O-Ordena ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 73;lst_alias(D_OB);I-Imprime ;
 70;tb_filter(d_ob);F-Filtra ;
 69;tb_filter(d_ob,"Exp");E-Expressao;
:TBFI
NumChq;CR_NUM_DOC;N;999999;  6;;
BomPara;CR_DT_DOC;D;;  8;;
Valor;CR_VALOR;N;999999.99; 9;;
Obs;CR_OBS;C;@S15; 15;;
Data Ger;CR_DATA;D;;  8;N;
Hora Ger;left(CR_HORA,5);C;@S5;5;N;
Pedido;CR_NUM_PED;C;@S7;7;N;
Us;CR_USUARIO;N;9;  1;N;
Cli;CR_COD_CLI;N;9999;4;N;
Dt Venc;CR_DT_VENC;D;;  8;;
Dt Emis;CR_DT_EMIS;D;;  8;;
Dt Lqd;CR_DT_LQD;D;;  8;;
Val Lqd;CR_VAL_LQD;N;9999999.99; 10;;
Descont;CR_DESCONT;N;9999999.99; 10;;
Vd;CR_ZONA;C;xx;  2;;
S;CR_SITUAC;C;x;  1;;
Pr;CR_LOCAL;C;xx;  2;;
L;CR_TIP_LQD;C;x;  1;;
Td;CR_TIP_DUP;C;!!;  2;;
