SCCPPED;Titulos a Pagar;sys_tbbrow; 8; 0;20;79;sccpped;;
:SKEL
VARIAVEL zBlkF = {|xFor| sccpfor->(dbgoto(xfor)), sccpfor->cp_fantasi }
VARIAVEL zBlkCta = {|nCta| sx_conta->(dbSeek(nCta), ct_titulo)}

VARIAVEL zBfTodas:={||DbClearFilter(),DbGoTop(),d_ob:Refresh(),d_ob:SetFocus()}
comando antes sccpped->(DbSetFilter({||.NOT.'EMPRESTIM'$CP_NUM_PED},".NOT.'EMPRESTIM'$CP_NUM_PED"),DbGoTop(), Abra ("0NOIDX",r_siga,"sx_conta","sx_conta","sx_conta","sx_conta") )
comando saida if(select('sx_conta')>0,sx_conta->(DbCloseArea()),)
:TBMT
 22;sccpped(D_OB,1);Ins-Inclui;
 81;sccpped(d_oB,2);Q-Quita ;
  7;tb_del(d_ob);Del-Apaga ;
 13;doget(D_ob);Enter-Edita ;
 32;tb_cons();Barra-Exibe ;
 65;tb_update(D_OB);A-Altera ;
 79;tb_index(D_ob);O-Ordena ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 82;sccpped(D_oB,1,"SCCPPEDQ");R-RegistraPagto ;
 73;lst_alias(D_OB);I-Imprime ;
 84;tb_locate(D_oB);T-Busca_Trecho ;
 67;tb_locate(D_oB);C-Repete_Busca ;
 76;Eval(zBfTodas);l-Todos;L-Todos os Titulos;sembitmap;;;Lucida Bright;-11;&T-Todos;;6;
 70;tb_filter(d_ob);F-Filtra ;
 61;doget(D_ob,,.t.);=-Repete_Edicao ;
:TBFI
Cod Ped;CP_NUM_PED;C;xxxxxxxxxx; 10;N;
Duplic;CP_DUPLIC;C;xxxxxxxxxx; 10;N;
CodForn;CP_COD_FOR;N;99999;5;N;
Forn;eval(zBlkF,CP_COD_FOR);P;@s12; 12;N;
Div;CP_DIVISAO;N;999;3;S;
SubDiv;CP_SUBDIV;C;99999;5;S;
Dt Venc;CP_DT_VENC;D;;8;S;
Valor;CP_VALOR;N;99999.99;8;S;
Dt Lqd;CP_DT_LQD;D;;8;S;
Val Lqd;CP_VAL_LQD;N;9999999.99; 10;S;
Comentario;CP_DESC;C;@s24;24;S;
Conta;sx_conta;N;999;5;S;
Cta;eval(zBlkCta,sx_conta);P;@s12; 12;N;
Gr;Grupo;N;9;1;S;
Dt Emis;CP_DT_EMIS;D;;8;S;
Tl;CP_TIP_LQD;C;x;2;N;
Prt;CP_LOCAL;N;999;3;N;
S;CP_SITUACA;N;1;1;N;
Acesso;rec_del();N;;7;N;
fc;SI_CAIXA;N;99; 2;S;
Di;CP_DIVISAO;N;99;2;S;
