SCCRCLI;Clientes/Empresas Conveniadas;sys_tbbrow; 8; 2;20;77;clientes;;
:SKEL
COMANDO ANTES Abra("2",r_siga,"sccrdup","SCCRDUP","SCCRDUP","STR(CR_COD_CLI,5)+DTOS(CR_DT_EMIS)")
COMANDO ANTES z_nil = dbSetFilter( _CreateBlock("day(cR_dt_lqd)=0"), "day(cR_dt_lqd)=0" )
COMANDO ANTES SccrCli->( DbCloseArea() )
COMANDO ANTES Abra("1",r_siga,"sccrcli","sccrcli")
COMANDO ANTES z_index_tmp ="tmp\$C"+right(dtos(s_datual),6)+".nt2"
COMANDO ANTES z_flagcria  = !file( r_siga-z_index_tmp )
COMANDO ANTES z_nil = if ( z_flagcria, Mensagem("Aguarde...Gerando o indice "+r_siga+z_index_tmp),.f.)
COMANDO ANTES z_nil = if ( z_flagcria, OrdCondSet( "sccrdup->(DbSeek(str(sccrcli->(recno()),5)))", _CreateBlock("Sccrdup->(DbSeek(Str(Sccrcli->(recno()),5)))"),,,,,recno()) ,.f.)
COMANDO ANTES z_nil = if ( z_flagcria, OrdCreate(r_siga-z_index_tmp,,"cr_nome",_CreateBlock("cr_nome")) ,.f.)
COMANDO ANTES z_nil = if (!z_flagcria, OrdListAdd( r_siga-z_index_tmp ) ,.f.)
COMANDO DEPOIS Sccrdup->( DbCloseArea() )
:TBMT
 13;doget(D_ob);Enter-Altera ;
 65;tb_update(D_OB);A-Altera ;
 22;tb_insert(D_OB);Ins-Inclui ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 69;vb_dup_cli();E-Extrato ;
 79;tb_index(D_oB);O-Ordena ;
 73;Lst_alias(D_OB);I-Imprime ;
:TBFI
Cod;rec_del();C;99999x;6;N;
Nome;Cr_nome;C;@s30;30;S;
T;cr_tip_cli;C;9;1;S;
