SCCPPED;Titulos a Pagar;sys_tbbrow; 8; 0;20;79;sccpped;;
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
VARIAVEL zbPrtConferente := {|| z_recno:=recno(), Relat('lst_exec("CONCILIA")',"nb"), eVal(zbOpenAll) }
:TBMT
 13;if(cp_status<>"S",Mensagem("Titulo ainda nao conferido!",1),doget(D_ob));Enter-Edita ;
 32;cp_confere(d_ob);Barra-Confere/DesMarca ;
 81;cp_concilia(d_oB,"QuitacaoDetalhada");Q-Quita ;
 -1;cp_concilia(d_oB,"QuitacaoRapida");F2-ConfirmaQuitacao ;
 -2;cp_concilia(D_oB, "GetSxConta");F3-MudarConta ;
 -4;cp_concilia(d_oB,"QuitacaoMultipla");F4-QuitacaoMultipla ;
 65;if(day(cp_dt_lqd)=0,if(cp_status<>"S",Mensagem("Titulo ainda nao conferido!",1),tb_update(D_OB)),Mensagem("Este Titulo Ja Esta Liquidado ! Alteracao nao Permitida!",1) );A-Altera ;
  7;if(cp_status<>"S",Mensagem("Titulo ainda nao conferido!",1),tb_del(d_ob));Del-Apaga ;
 79;tb_index(D_ob);O-Ordena ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 67;tb_locate(D_OB);C-Continua_Busca ;
 84;tb_locate(D_OB);T-Busca_Trecho ;
 76;tb_locate(D_OB);L-Busca_Iniciais ;
 73;eVal(zbPrtConferente);I-Imprime ;
 61;doget(D_ob,,.t.);=-Repete_Edicao ; 
:TBFI
*;Cp_Status;C;x;1;S;
Lj;Floja;N;99;2;S;
Forn;Cp_Cod_For;N;9999;4;S;
Fantasia;Substr(fantforn(CP_COD_FOR),6);C;@s10; 10;N;
Comentario;CP_DESC;C;@s14;14;S;
Dt Emis;CP_DT_EMIS;D;99.99.99;8;N;
Valor;CP_VALOR;N;999999.99;9;S;
Dt Venc;CP_DT_VENC;D;99.99.99;8;N;
Dt Lqd;CP_DT_LQD;D;99.99.99;8;S;
Val Lqd;CP_VAL_LQD;N;9999999.99; 10;S;

Conta;Sx_CONTA;N;999;3;S;
Gr;GRUPO;N;9;2;S;
Pc;CT_NPARC;N;999;3;S;
ValParc;CT_VALOR;N;999999.99;9;S;
Pz;CT_PRAZO;N;999;3;S;
Dt_Primeira;CT_DTBASE;D;99.99.9999;10;S;
CtForn;SX_CODFOR;N;9999;4;S;

Di;CP_DIVISAO;N;999;3;S;
Duplic;CP_DUPLIC;C;xxxxxxxxx; 10;N;
Cod Ped;CP_NUM_PED;C;xxxxxxxx;  8;N;
Pt;CP_LOCAL;N;999;3;S;
S;CP_SITUACA;N;1;1;S;
%TxVendor;CP_txVndor;N;99.99;9;S;
DscVencto;CP_DscVenc;N;999999.99;9;S;
Acesso;rec_del();N;;7;N;
Dt Ref;CP_DT_REF;D;99.99.99;8;N;
Tl;CP_TIP_LQD;C;x;2;S;