FiveTech Support Forums

FUNCTION FIC_EQUI()
*
local oDlgReporte

local aRep:= {}


DEFINE DIALOG oDlgReporte FROM 0,0 TO 10, 85 TITLE 'REPORTE'

.
.
.

  @ 3,  5 BUTTON 'Aceptar' OF oDlgReporte ;
                     ACTION ( FIC_EQUI2(aRep) ,;
                            oDlgReporte:End() );
                   SIZE 50, 10

  @ 3, 25 BUTTON 'Salir'   OF oDlgReporte ACTION ( oDlgReporte:End() ) SIZE 50, 10

ACTIVATE DIALOG oDlgReporte CENTERED;
                ON INIT ( oCODI:SetFocus() , .f. ) VALID( aEval( aRep, {| cName | sendmessage( findwindow( 0,cName ), WM_CLOSE ) } ), .T. )
                
dbcloseall()

RETURN nil
*
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
FUNCTION FIC_EQUI2(aRep)

.
.
.


oPrn:=PrintBegin(Titulo,.F.,lPrv,,.T.)

oPrn:lPrvModal:=.T.
oPrn:SetPortrait()
 
aadd( aRep, oPrn:cDocument )

PageBegin()

.
.
.
.

PageEnd()
PrintEnd()
oPrn:End()

Return .t.