ALIAS RECIBOS
VARIAVEL ZNIL := DbGoTo( z_recno )

VARIAVEL #TEXTO_FONTE

   Private zIdRecibo:=recibos->(Recno()), hReg, zOpcao:=1, vOpcoes:={ {'&1. Recibo Folha A4',1}, {'&2. Recibo Bobina',2} }
   if !QuickDialog("recibo_avulso_fr3", "35;4;Formato da Impressao",{ {"1;3;Formato:", "@zOpcao", @zOpcao, "9", "", "RADIOGROUP vOpcoes" } } )
      Return .f.
   endif   
   
   wCab1:="RECIBO"
   wCab2:="Numero "+lTrim(Str(zIdRecibo,10))
   
   oLst:lOutputPdf      := .f.
   oLst:lOutputFr3      := .t.
   oLst:cAliasMaster    := '_recibo' 
   oLst:cAlias_DataCols := '_recibo'
   oLst:cReport         := if(zOpcao=1, 'recibo_avulso', 'recibo_avulso_rolo' )

   hReg := recibos->(Scatter()) 
   se .not. empty( hReg['OBS'] ) entao hReg['OBS'] := '(Obs: '+hReg['OBS']+')'
   
   oLst:PutRsFr3('_recibo', hReg )
   
   debugalert('7 vai :run e :end')

   _recibo->( oLst:Run(.t.) )
   oLst:End()
   
   _recibo->(DbCloseArea())
   dbDrop('mem:_recibo')

#FIM_TEXTO_FONTE
