CP_DIVIS;Divisao de Despesas;sys_tbbrow; 8;20;20;70;psq_brow;;
:SKEL
VARIAVEL w_colsep = " "+chr(179)
// COMANDO ANTES z_nil=dbSetFilter( _CreateBlock('z_divcompras$DepCompras'), 'z_divcompras$DepCompras' )
// COMANDO ANTES DbGoTop()
:TBFI
Codigo;cp_divisao;N;999; 7;;
Descricao;DESC;C;@s30; 30;;
DivCompras;depcompras;C;x;10;S;
Hist;codhis;N;9999; 4;;
BemPatrimonial;divpatrim;C;x;14;S;
Acesso;Rec_del();C;X99999;  6;N;