Consulta sobre TPrinter

[juan_arroyo_t]

Amigos del foro

Al iniciar una rutina de impresión con Preview estoy estableciendo una variable
lImrime := .T.

Si al visualizar mi impresión, decido pulsar sobre el icono de Exit, quisiera saber que instrucción necesito poner para cambiar la variable lImprime := .F., muestro abajo mi código

Alguien me puede ayudar ?

Muchas gracias

Code: Select all  Expand view  RUN

 
STATIC FUNCTION ImpFac()
    LOCAL oPrn, oFontC, oFontD, oFontE, oFontF, oPen, nRow                             
    LOCAL nSubFac, nDescto1, nDescto2, nImpPar, nSubFac2, nImpIva, nTotFac
   ----
   ----
   ----
   
    lImprime := .T.

   PRINT oPrn NAME "Impresión de factura " + "[" + LTRIM(STR(cFacNum,6)) + "]" ;
             FROM USER PREVIEW

        If Empty( oPrn:hDC )
            Return NIL
        End

        DEFINE FONT oFontC NAME "Tahoma" SIZE 0, -8 BOLD OF oPrn
        DEFINE FONT oFontD NAME "Tahoma" SIZE 0, -8 OF oPrn
        DEFINE FONT oFontE NAME "Tahoma" SIZE 0, -8 BOLD OF oPrn
        DEFINE FONT oFontF NAME "Tahoma" SIZE 0, -7 OF oPrn
        DEFINE PEN oPen WIDTH 4 OF oPrn
   
        PAGE
       
         ----
         ----
         ----
            
        ENDPAGE
    ENDPRINT
    oFontC:End()
    oFontD:End()
    oFontE:End()
    oFontF:End()
    oPen:End()
       
   
RETURN NIL
 

[Raymundo Islas M.]

Juan,

Se me ocurre al vuelo lo siguiente :

Que tomes el archivo rpreview.prg y lo ajustes, y ya sea usando alguna variable public o global para que tome el valor de la accion y lo compiles como otro .prg a tu app.


Saludos

[juan_arroyo_t]

Raymundo

Gracias por tu respuesta

Tengo poco que pasé de clipper a Fivewin y esto de las clases se me hace complicado

Te refieres a que debo declarar la variable como pública dentro de la clase rpreview ?

Mi idea es mostrar la impresión de una factura y que si se pulsa el icono Exit, esto significa que hay algo que modificar en la captura de la factura a través del nuevo valor de lImprime (que en este caso sería falso) de lo contrario la factura se imprima y se validen los datos de la factura y de las partidas de la misma.

Estoy viendo el archivo rpreview.prg y las líneas que muestran el valor de lExit son :

Linea 73 dentro de CLASS Tpreview
DATA lTwoPages, lZoom, lExit

Linea 119 dentro de METHOD NEW ...
::lExit := .F.

Dentro de METHOD Activate ...
Linea 147
::lExit := .T. ,;
Linea 151
StopUntil( { || ::lExit } )

Realmente no se que hacer

Saludos

[FranciscoA]

Hola Juan, creo que puedes hacer lo siguiente:

Busca en el rPreview los botones y menu relacionados con ::oWnd:End() en las llamadas a ::PrintPage() y agregale tu variable static: ( lImprime := .t., ::oWnd:End() ) , o ( lImprime := .f., ::oWnd:End() ), según el caso. Es sólo una idea. Con esto puedes saber si se oprimió el botón de Salida o impresión.
Por ejemplo en:
DEFINE TBBUTTON OF oBar ;
ACTION ::PrintPage() ; //aqui sería .t.
TOOLTIP Strtran(TXT_PRINT,"&","") ;
MESSAGE TXT_PRINT_CURRENT_PAGE

DEFINE TBSEPARATOR OF oBar

DEFINE TBBUTTON OF oBar ;
ACTION ::oWnd:End() ; //aquí, .f.
TOOLTIP Strtran( TXT_EXIT, "&", "" ) ;
MESSAGE TXT_EXIT_PREVIEW


Saludos.

[juan_arroyo_t]

Francisco

No habia tenido oportunidad de visitar el foro

Estoy declarando una variable static lImprime en rpreview, ya hice las modificaciones que tu me sugieres, ademas estoy compilando rpreview dentro de mi aplicacion pero no logro ver el valor de lImprime despues que salgo del preview

No es mas aconsejable definir una variable publica lImprime en el programa desde el cual llamo a la rutina de impresión ?

Muchas gracias por tus atenciones

Saludos

[FranciscoA]

Juan escribió: Estoy declarando una variable static lImprime en rpreview

Juan, lo que sugería es que la variable static lImprime debes declararla al inicio de tu prg principal.
Luego, por ejemplo haces esto:

DEFINE TBBUTTON OF oBar ;
ACTION ( lImprime:=.t., ::PrintPage() ) ; //aqui sería .t.
TOOLTIP Strtran(TXT_PRINT,"&","") ;
MESSAGE TXT_PRINT_CURRENT_PAGE

DEFINE TBSEPARATOR OF oBar

DEFINE TBBUTTON OF oBar ;
ACTION ( lImprime:=.f., ::oWnd:End() ) ; //aquí, .f.
TOOLTIP Strtran( TXT_EXIT, "&", "" ) ;
MESSAGE TXT_EXIT_PREVIEW

Saludos

[juan_arroyo_t]

Francisco

Ya hice lo que me indicas

Declaré mi variable lImprime al inicio de mi prg principal, hice los cambios en rpreview sin embargo cuando compilo me aparecen mensajes de error

Warning W0001 Ambiguos reference 'LIMPRIME'

Podría mandarte mis archivos (2) capfac.prg y rpreview.prg en un zip a alguna dirección de correo ?

Saludos