CP_SUBD;("SubDivisoes de "+StrZero(m_CP_DIVISAO,3)+"-"+Alltrim(cp_divis->Desc));sys_tbbrow;05;05;20;78;psq_brow;;
:SKEL
COMANDO ANTES z_nil=dbSetFilter( {||Val(Left(cp_subdiv,3))=M_CP_DIVISAO}, 'Val(Left(cp_subdiv,3))=M_CP_DIVISAO' )
COMANDO ANTES DbGoTop()
COMANDO SAIDA z_nil=dbClearFilter()
:TBFI
Codigo;cp_subdiv;C;99999;5;N;
Divisao;(z_div:=Val(Left(cp_subdiv,3)),cp_divis->(DbGoto(z_div)),Left(cp_subdiv,3)+"-"+cp_divis->desc);P;@s30; 30;;
Descricao;desc;C;@s30; 30;;
