FiveTech Software tech support forums

No Pedro, no és asi:

oPrn:lPrevModal := .T.

És asi:

oPrn:lPrvModal := .T.

Salud2

... not run !!!! ::oReport:nTopMargin := 0.1 ::oReport:nDnMargin := 0.1 ::oReport:nLeftMargin := 0.1 ::oReport:nRightMargin := 0.1 ::oReport:oDevice:lPrvModal:= .t. ENDIF Any solution please ?

si usas tprinter:

oPrn:lPrvModal := .t.

... COLUMN TITLE "Código" DATA tab_Afp->Cod_Afp COLUMN TITLE "Descripción" DATA Tab_Afp->Nom_Afp END REPORT oRepFam:oDevice:lPrvModal := .T. ACTIVATE REPORT oRepFam AFont1:End() AFont2:End() AFont3:End() RETURN NIL

has probado:

::oPrn:lPrvModal := .t.

saludos..

Tenia que poner oPrn:lPrvModal:=.t.

usas treport ? debes colocar esta linea de codigo, oReport:oDevice:lPrvModal := .T. ACTIVE REPORT ....... con tprinter: PRINT oPrn NAME "Impresion ..." PREVIEW oPrn:lPrvModal := .t. bueno es solo una sugerencia quizas se otro tu problema, saludos.. ...

usas treport ? debes colocar esta linea de codigo,

oReport:oDevice:lPrvModal := .T.

ACTIVE REPORT .......

con tprinter:

PRINT oPrn NAME "Impresion ..." PREVIEW
oPrn:lPrvModal := .t.

bueno es solo una sugerencia quizas se otro tu problema,

saludos..

... ::oDevice:End() ,; ::oHand:End() ,; ::oWnd := nil ,; If( IsAppThemed() .and. ! l2007, ::oImageList:End(),),; ::lExit := .T. ,; .T. ) if ::oDevice:lPrvModal StopUntil( { || ::lExit } ) endif return nil //----------------------------------------------------------------------------// METHOD BuildButtonBar() ...

... TO "BOLTICK" DEFINE FONT oFn1 NAME cFont SIZE 0,- 8 OF oPrnBol DEFINE FONT oFn2 NAME cFont SIZE 0,- 8 BOLD OF oPrnBol oPrnBol:lPrvModal:=.T. oPrnBol:SetPortrait() nRow:=1.0 CursorWait() PAGE oPrnBol:CmSay(nRow+=0.5, 3.7,cEmp,oFn2,,,,2) oPrnBol:CmSay(nRow+=0.5, 3.7,cDom,oFn1,,,,2) ...

... TO "BOLTICK" DEFINE FONT oFn1 NAME cFont SIZE 0,- 8 OF oPrnBol DEFINE FONT oFn2 NAME cFont SIZE 0,- 8 BOLD OF oPrnBol oPrnBol:lPrvModal:=.T. oPrnBol:SetPortrait() nRow:=1.0 CursorWait() PAGE oPrnBol:CmSay(nRow+=0.5, 3.7,cEmp,oFn2,,,,2) oPrnBol:CmSay(nRow+=0.5, 3.7,cDom,oFn1,,,,2) ...

... SetResources(hOldRes) RETU nil endif if oWndMain != nil oIcon = oWndMain:oIcon else DEFINE ICON oIcon RESOURCE "Print" endif if oDevice:lPrvModal .and. oWndMain != nil oWndMain:Hide() else lExit := .T. endif DEFINE FONT oFont NAME GetSysFont() SIZE 0,-12 DEFINE CURSOR oCursor RESOURCE ...

James Bott wrote:At least in my version of FWH, MODAL is not a valid REPORT clause.

To make the preview modal:

oReport:oDevice:lPrvModal:=.t.

Regards,
James

I think from version FWH 9.05 onwards, Report with PREVIEW automatically makes it MODAL.

At least in my version of FWH, MODAL is not a valid REPORT clause.

To make the preview modal:

oReport:oDevice:lPrvModal:=.t.

Regards,
James

No se en la clase Treport, pero prueba con:

oReport:lprvmodal:=.t.