ALIAS SE_PROD
VARIAVEL ZREC0 = RECNO()
COMANDO ANTES DBGOTOP()
COMANDO ANTES #TEXTO_FONTE
   oLst:cAlias_DataCols := '_prod'
   oLst:AddCab( {"style"=>"font:Helvetica-Bold#size:14", "COLS"=>"0,C"}, "Listas de Precos "+if(zLstLocacao="1","Locacao","Fabricados")+", em "+Dtoc(s_datual)+" as "+time()  )
  
   oLst:AddCab( '_LINHA_FINA_' )
   oLst:AddCab( '_CABCOLS_' )
   oLst:AddCab( '_LINHA_GROSSA_' )

   oLst:AddCol('Descricao;Pdesc;C;@s35; 35;;') 
   oLst:AddCol('Cod;pCod;N;999999;6;;')
   oLst:AddCol('Und;pUnidade;C;XXX;3;;')
   oLst:AddCol('Est;Peatual;N;@E 9999.999; 8;;')
   if zLstLocacao="2"
      oLst:AddCol('PrVenda;pvluvenda;N;@e 9999.99; 7;;')
   else
      oLst:AddCol('PrLoc;pValLoca;N;@e 9999.99; 7;;')
   endif
   oLst:AddCol('Ref.Fab.;prefFab;C;@s15;10;;')

   oLst:DbEval()
#FIM_TEXTO_FONTE
COMANDO DEPOIS DBGOTO(ZREC0)