SCCPFOR;Fornecedores com Titulos em Aberto;sys_tbbrow; 8; 0;18;79;sccpfor1;;
:SKEL
COMANDO ANTES Abra("2",r_siga,"sccpped","SCCPPED","SCCPPEDF","STR(CP_COD_FOR,5)+DTOS(CP_DT_EMIS)")
COMANDO ANTES z_nil = dbSetFilter( _CreateBlock("day(cp_dt_lqd)=0"), "day(cp_dt_lqd)=0" )
COMANDO ANTES SccpFor->( DbCloseArea() )
COMANDO ANTES Abra("1",r_siga,"sccpfor","sccpfor")
COMANDO ANTES z_index_tmp ="tmp\$F"+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( "sccpped->(DbSeek(str(sccpfor->(recno()),5)))", _CreateBlock("Sccpped->(DbSeek(Str(Sccpfor->(recno()),5)))"),,,,,recno()) ,.f.)
COMANDO ANTES z_nil = if ( z_flagcria, OrdCreate(r_siga-z_index_tmp,,"cp_fantasi",_CreateBlock("cp_fantasi")) ,.f.)
COMANDO ANTES z_nil = if (!z_flagcria, OrdListAdd( r_siga-z_index_tmp ) ,.f.)
COMANDO DEPOIS SccpPed->( DbCloseArea() )
:TBMT
 13;cibrow("SCCPPEDF");Enter-Titulos ;
 32;doget(D_ob);Barra-Edita ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 79;tb_index(D_OB);O-Ordena ;
 67;tb_locate(D_OB);C-Continua ;
 84;tb_locate(D_OB);T-Busca_Trecho ;
 76;tb_locate(D_OB);L-Busca_Iniciais ;
 73;lst_alias(D_OB);I-Imprime ;
 70;tb_filter(d_ob);F-Filtra ;
 69;tb_filter(d_ob,"Exp");E-Filtra_Expressao;
:TBFI
Cod;Rec_Del();P;X99999;  6;N;
Nome;CP_NOME;C;@s35; 35;N;
Fantasia;CP_FANTASI;C;@s15;15;N;
Fone;CP_FONE;C;@s13; 13;S;
Contato;CP_CONTATO;C;xxxxxxxxxxxxxxxxxxxx; 20;S;
CGC;CP_CGC;C;xxxxxxxxxxxxxxxxxx; 18;N;
Rua;CP_RUA;C;@s35; 35;S;
Bairro;CP_BAIRRO;C;xxxxxxxxxxxxxxxxxxxx; 20;S;
CEP;CP_CEP;C;xxxxxxxxx;  9;S;
CIDADE;CP_CIDADE;C;xxxxxxxxxxxxxxxxxxxx; 20;S;
UF;CP_UF;C;xx;  2;S;
Telex;CP_TELEX;C;xxxxxxxx;  8;S;
FAX;CP_FAX;C;xxxxxxxxxxxxx; 13;S;
Insc Est;CP_INSC_ES;C;xxxxxxxxxxxxxxxxxxxx; 20;S;
