SCCPPED;Titulos a Pagar;skip_blk(x); 8; 0;20;79;sccpped;;
:SKEL
*COMANDO ANTES DbSelectArea("SCCPPED")
*COMANDO ANTES OrdSetFocus( "SCCPPEDF" )
*COMANDO ANTES w_chave = str(sccpfor->(recno()), 5)
*COMANDO ANTES w_mensagem = "Sem mais Titulos de "+sccpfor->cp_fantasi
*COMANDO ANTES w_block = {|| w_chave <> str(cp_cod_for,5) }
*COMANDO DEPOIS DbSelectArea("SCCPFOR")
: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 ;
:TBFI
Cod Ped;CP_NUM_PED;C;xxxxxxxxxx; 10;N;
Duplic;CP_DUPLIC;C;xxxxxxxxxx; 10;N;
Forn;fantforn(CP_COD_FOR);C;@s15; 15;N;
Dt Venc;CP_DT_VENC;D;;8;S;
Valor;CP_VALOR;N;999999;6;N;
Dt Lqd;CP_DT_LQD;D;;8;S;
Val Lqd;CP_VAL_LQD;N;9999999.99; 10;S;
Dt Emis;CP_DT_EMIS;D;;8;S;
Tl;CP_TIP_LQD;C;x;2;S;
Prt;CP_LOCAL;N;999;3;S;
S;CP_SITUACA;N;1;1;S;
Di;CP_DIVISAO;N;99;2;S;
Acesso;rec_del();N;;7;N;
Comentario;CP_DESC;C;@s24;24;S;
