CP_SUBD;SubDivisoes de Pagamentos;sys_tbbrow; 5; 0;20;79;padrao;;
:SKEL
VARIAVEL zBlDiv={||xDiv:=if(CP_DIVISAO>0,CP_DIVISAO,val(left(Cp_SubDiv,3))), if(xdiv=0,put_var("cp_divisao",xDiv),""), cp_divis->(DbSeek(xDiv)),cp_divis->Desc}
VARIAVEL z_nil=if(sele("CP_DIVIS")=0,abra_arq("CP_DIVIS"),"")
VARIAVEL zbPrtConferente := {|| Relat('lst_exec("CP_SUBD")',"nb","NaoFecheNaSaida","X") }
VARIAVEL z_nil=DbSelectArea("cp_subd")
COMANDO SAIDA cp_divis->(DbCloseArea())
:TBMT
 22;tb_insert(D_OB);Ins-Inclui ;
 65;tb_update(D_OB);A-Altera ;
  7;tb_del(D_ob);DEL-DELeta ;
 13;doget(D_ob);Enter-Edita ;
 32;tb_cons();Barra-Exibe ;
 73;eVal(zbPrtConferente);I-Imprime ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 84;tb_locate(D_oB);T-Busca_Trecho ;
 76;tb_locate(D_oB);L-Busca_Iniciais ;
 67;tb_locate(D_oB);C-Repete_Busca ;
 79;tb_index(D_OB);O-Ordena ;
 70;tb_filter(d_ob);F-Filtra ;
 69;tb_filter(d_ob,"Exp");E-Filtra_Expressao ;
 61;doget(D_ob,,.t.);=-Repete_Edicao ;
:TBFI
Divisao;cp_divisao;N;999; 3;;
Descricao;Eval(zBlDiv);C;@s35; 25;;
SubDivisao;Cp_SubDiv;C;99999;6;;
Descricao;DESC;C;@s35; 25;;
Apos DRE?;apos_Dre;C;X; 9;;
