FiveTech Software tech support forums

... BOLD OF oPrn DEFINE FONT oFn3 NAME "ARIAL" SIZE 0,-11 BOLD OF oPrn DEFINE FONT oFn4 NAME "ARIAL" SIZE 0,-16 BOLD OF oPrn oPrn:lPrvModal:=.f. oPrn:SetLandscape() CursorWait() // Page 1 PageBegin() //here oPrn boxes and cmsay endpage // Page 2 PageBegin() //here oPrn boxes and ...

... ) ),; If( ! Empty( ::oImageListPages ), ::oImageListPages:End(),),; ::oWnd := nil ,; ::oDevice:oPreview := nil ,; ::lExit := .T. ) if ::oDevice:lPrvModal if ::oWndMain == nil StopUntil( { || ::lExit } ) else hWndMain := WndMain():hWnd StopUntil( { || ::lExit .or. !IsWindow( hWndMain ) } ) endif ...

... de trazabilidad ","Trazabilidad Compras") printersetup() printer oprinter NAME "IMPRESION CODIGO DE BARRAS" oprinter:lPrvmodal := .T. define brush oBr color CLR_YELLOW define font oFont name 'ARIAL' size 0, -12 of oPr define font oFont1 name 'ARIAL' size 0, -10 of ...

Hello, A customer asked the possibility to work on main window during the preview, then I changed the preview to not modal setting lPrvModal on device to false. The no-modal preview has 2 problems: 1) it shows under the main window 2) If I move it the one page preview become thin: https://i.imgur.com/Uk54hfM.jpg ...

... query pero no me arrojo nada FONT 1; GRID COLUMN TITLE "Descripción" DATA Tab_Cco->Nom_Cco; FONT 1; GRID END REPORT oRepFam:oDevice:lPrvModal := .T. ACTIVATE REPORT oRepFam AFont1:End() RETURN NIL A lo anterior, como deberia hacerlo de DBF a mysq, usando Tdolphin FUNCTION Imp_Egreso() ...

I tried with oPrn and it make error

oPrn:oDevice:lPrvModal := .T.
oPrn:oDevice:SetPage(9)

then I tried with

oPrn:lPrvModal := .T. also with .f.
oPrn:SetPage(9)

but the dialog is allways on desktop

sugerencia Antonio, crearia una funcion para eliminar o no MDIChild in report... tipo=> lPrvModal(.t. or .f.) porque siempre tengo que comentar la línea in RPREVIEW.PRG DEFINE WINDOW ::oWnd ; TITLE cTitle ; COLOR CLR_BLACK,CLR_LIGHTGRAY ; ICON oIcon ; VSCROLL HSCROLL ...

sysctrl2 wrote:Utiliza esta data:
oPrn:lPrvModal := .t.

de esta forma siempre aparecera encima de los oDlg, o oWnd.

saludos.

Gracias Cesar
No soluciona el problema.
Saludos

Utiliza esta data:
oPrn:lPrvModal := .t.

de esta forma siempre aparecera encima de los oDlg, o oWnd.

saludos.

Antonio, En rpreview.prg de hecho ya lo tenías antes en parte: if oDevice:lPrvModal .and. oWndMain != nil oWndMain:Hide() Si hago lo de Hide and Show ya no hay forma de que pueda cascar. Muchas gracias. Un saludo El problema si lo ocultas con Hide(), queda oculta ...

Antonio,

En rpreview.prg de hecho ya lo tenías antes en parte:

if oDevice:lPrvModal .and. oWndMain != nil
oWndMain:Hide()


Si hago lo de Hide and Show ya no hay forma de que pueda cascar.

Muchas gracias.


Un saludo

... = .T. myPRINT oPrn FROM USER to &Imprimir_en PREVIEW TITLE ctitulo else myPRINT oPrn to &Imprimir_en TITLE ctitulo endif endif oPrn:lPrvModal := .t. vtippap := 2 endif if vtippap == 1 cModel := alltrim(CMIIMPREDEFAULT) else cModel := oPrn:GetModel() // impresora elegida por el usuario ...

Disculpa Garbi:

Para el report sería así:

oReport:oDevice:lPrvModal:=.T.

He puesto oReport:lPrvModal:=.T. y me da error. Como pide el companero pongo el codigo del report. static function imprimirremesa(oDlgdatos)    lcancel:=printersetup()    if lcancel = 0       return nil    endif    ...

Prueba esto en el report:

oReport:lPrvModal:=.T.