alias se_subd
OUTROARQ SE_PROD SEIP_DN PDIVISAO+pdesc

variavel #texto_fonte

   oLst:AddMasterDetail( 'se_subd', 'SE_PROD', 'SDCOD') 

   // oLst:lPortrait := .t.
   // oLst:nLinesPorPagina := 96
   oLst:lPortrait := .t.
   oLst:nLinesPorPagina := 60
   oLst:sPrtLineLen := 80

   // oLst:lOutputMatricial := .t.   
   // oLst:lOutputPdf := .t.   

   oLst:cAlias_DataCols := 'se_subd'

         oLst:Cab1( "Subdivisoes e produtos" )
         oLst:Cab4( {|| "bla bla ..." })
         oLst:AddCab( '_LINHA_FINA_' )
         oLst:AddCab( {"style"=>"font:Helvetica-BoldOblique"}, '_DB:se_subd', '_CABCOLS_' )
         oLst:AddCab( '_DB:se_prod', '_CABCOLS_' )
         oLst:AddCab( '_LINHA_GROSSA_' )
      
         oLst:AddCol('Subd;SDCOD;C;xxxx;  4;;')
         oLst:AddCol('Subdivisao;SDDESC;C;@s30;30;;')
         oLst:AddCol('     ;space(20);P;@S20;20;N;')

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

   oLst:cAlias_DataCols := 'se_prod'

         oLst:AddCol('Cod Barras;Pdic6;N;99999999999999;14;N;')
         oLst:AddCol('Cod;PCOD;N;99999;5;N;')
         oLst:AddCol('Descricao;PDESC;C;@s40;40;S;')

   oLst:cAlias_DataCols := 'se_subd'

   DbSelectArea('se_subd')
   oLst:DbEval() 

#fim_texto_fonte