ALIAS ETQ_PROD
VARIAVEL #TEXTO_FONTE
   Private hReg
   // Private zCmdsDurante, zQtdDiv, zCodDiv, zDdesc, zCpNome, zVtotDiv, zQtdLan:=0, zTotCst:=0

//    sFgDebugAlert:=.t.

   oLst:lOutputFr3 := .t.
   oLst:cAlias_DataCols := '_etqs'
   oLst:cAliasMaster := 'etq_prod' 
   // oLst:SetDbLst('mem:_etqs')
   oLst:cTemplateFr3 := 'skel_' + 'ListaComGrp' +'.fr3'

debugalert('5')
      
      oLst:AddCol('Prod;PCOD;N;99999;6;N;')
      oLst:AddCol('Apresentacao;eval(zbPdesc,pcod);C;@s30;30;N;')
      oLst:AddCol('Quant;mquant;N;999999;6;N;')
      oLst:AddCol('PrVenda;Se_prod->pvluvenda;N;9999.99;7;N;')      
      
      oLst:Cab1( "Etiquetas Impressas" )
      oLst:AddCab( '_LINHA_FINA_' )
      oLst:AddCab( '_CABCOLS_' )
      oLst:AddCab( '_LINHA_GROSSA_' )
      
      oLst:AddRodape( '_LINHA_FINA_', "", {|| "Pagina "+Str(++pag,4)+" "} )

debugalert('6')
   
    etq_prod->( dbGoTop(), oLst:DbEval(/*bDurante*/, /*bFor*/, /*bWhile*/, /*bStart*/, /*bFinish*/, 'Gerando Relatorio...' /*cMsg*/) )

debugalert('7')
//       sFgDebugAlert:=.f.
#FIM_TEXTO_FONTE
