ALIAS CP_SUBD

VARIAVEL #TEXTO_FONTE
   
   oLst:lOutputPDF := .t.
   oLst:lPortrait := .t.

   oLst:cAlias_DataCols := '_cpsubd'
   oLst:Cab1( "SUBDIVISOES DOS CENTROS DE CUSTO, em "+Dtoc(s_datual)+" as "+time()  )
  
   oLst:AddCab( '_LINHA_FINA_' )
   oLst:AddCab( '_CABCOLS_' )
   oLst:AddCab( '_LINHA_GROSSA_' )

   oLst:AddCol('Div;cp_divisao;N;999; 3;;')
   oLst:AddCol('Centro Custo;Eval(zBlDiv);C;@s30; 30;;')
   oLst:AddCol('SubDiv;Cp_SubDiv;C;99999;6;;')
   oLst:AddCol('Subdivisao do Centro Custo;DESC;C;@s35; 35;;')

   oLst:AddRodape( '_LINHA_FINA_', "", {|| "Pagina "+Str(++pag,4)+" / ####"} )

   cp_subd->(DbGoTop(), oLst:DbEval() )

   
   debugalert('4')
   
 
#FIM_TEXTO_FONTE
