Consulta FOLDEREX

[remtec]

Buen día amigos.

Tengo un Folderex con 4 Paginas, pero la barra de botones de Footer, necesito que se pueda desactivar, no mostrar el la pagina 4 cuando esta tome el Focus, que solo sea común para las paginas del 1 al 3.

Muchos saludos.

Antonio.

Código Definición de Folderex:

Code: Select all  Expand view  RUN

    DEFINE DIALOG oDlg SIZE 1230,640 PIXEL TRUEPIXEL FONT oFont6 STYLE nOr( WS_POPUP, WS_VISIBLE, WS_DLGFRAME )
            oDlg:lTransparent := .F.

   @ 05, 05 FOLDEREX oFld SIZE 1220,568 OF oDlg PIXEL ROUND 5 ;
     PROMPT  "&FIC. MEDICA", "Evaluación &1er Parte", "Evaluación &2da Parte" , "&Administración";
        TAB HEIGHT 40   FONT oFont8

          oFld:aDialogs[1]:lTransparent   := .F.
            oFld:aDialogs[2]:lTransparent   := .F.
            oFld:aDialogs[3]:lTransparent   := .F.
            oFld:aDialogs[4]:lTransparent   := .F.


 

Código barra de Botones Footer:

Code: Select all  Expand view  RUN

********** BARRA DE FOOTER ********************
     @ 575,20 GROUP oGroup6  TO 635,750 PIXEL OF oDlg                    // 615 - 555 = 60

     @ 585,200 BTNBMP  SIZE 55,50 PROMPT "BUSCAR" OF oDlg 2007 Resource "#8044" FONT oFont6 oGroup FLAT;
                    ToolTip "BUSCAR EVALUACIONES ANTERIORES"
 //                     ACTION Busca_Evalua()

     @ 585,330 BTNBMP  SIZE 55,50 PROMPT "GRABA" OF oDlg 2007 Resource "#8029" FONT oFont6 oGroup FLAT;
                    ToolTip "GRABA DATOS"
 //                     ACTION IF(!Graba_Agrega_Eva(),(MsgStop(Mensa),.F.),.t.)

     @ 585,500 BTNBMP oBtn3  SIZE 55,47 PROMPT "VOLVER"  OF oDlg PIXEL 2007 Resource "#8053"  FONT oFont6 oGroup FLAT;
                    ToolTip  "VOLVER A MENU ANTERIOR";
                    ACTION oDlg:End()
    //              ACTION IF(!Aviso_Salir(),(.f.,.F.),oDlg:End())

     @ 585,40 BTNBMP  SIZE 70,48 PROMPT "VER RECETA" OF oDlg 2007 Resource "#8044" FONT oFont6 oGroup FLAT;
                    ToolTip "VER RECETA DE APLICACION"
//                      ACTION              Muestra_Receta()

 

[joseluisysturiz]

Saludos, intenta con

WHEN oFldx:nOption <> 4

saludos, gracias...

[karinha]

Antonio, explica mejor ahora, porfa:

Code: Select all  Expand view  RUN

// C:\FWH..\SAMPLES\REMTEC4.PRG - kapiabafwh@gmail.com

#include "FiveWin.ch"

STATIC oDlg, oFld

FUNCTION Main()

   LOCAL oFont, oFnt, oGroup, oGroup6, oBtn1, oBtn2, oBtn3, oBtn4

   DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 00, -14 BOLD
   DEFINE FONT oFnt  NAME "Ms Sans Serif" SIZE 00, -12 BOLD

   DEFINE DIALOG oDlg SIZE 995, 640 PIXEL TRUEPIXEL FONT oFont ;
      STYLE nOr( WS_POPUP, WS_VISIBLE, WS_DLGFRAME )           ;
      COLORS CLR_BLACK, CLR_WHITE TRANSPARENT

   oDlg:lHelpIcon := .F.

   @ 05, 05 FOLDEREX oFld SIZE 1220, 568 OF oDlg PIXEL ROUND 5 ;
      PROMPT "&FIC. MEDICA",          "Evaluación &1er Parte", ;
             "Evaluación &2da Parte", "&Administración"        ;
      TAB HEIGHT 40 FONT oFont COLOR CLR_WHITE TOP

   oFld:SetOption( 1 )
   oFld:aEnable = { .T., .T., .T., .T. }
   oFld:Show()

   ********** BARRA DE FOOTER ********************
   @ 570, 30 GROUP oGroup6 TO 640, 600 PIXEL OF oDlg LABEL "Botones"        ;
      COLOR CLR_BLACK, CLR_HCYAN

   @ 587,40 BTNBMP oBtn1 SIZE 70,48 PROMPT "&Ver Receta" OF oDlg PIXEL 2007 ;
      Resource "#8044" FONT oFnt oGroup FLAT                                ;
      ToolTip "VER RECETA DE APLICACION"                                    ;
      ACTION Muestra_Receta( oFld )

   @ 587,200 BTNBMP oBtn2 SIZE 55,50 PROMPT "&Buscar" OF oDlg PIXEL 2007    ;
      Resource "#8044" FONT oFnt oGroup FLAT                                ;
      ToolTip "BUSCAR EVALUACIONES ANTERIORES"

   //                   ACTION Busca_Evalua()

   @ 587,330 BTNBMP oBtn3 SIZE 55,50 PROMPT "&Grabar" OF oDlg PIXEL 2007    ;
      Resource "#8029" FONT oFnt oGroup FLAT                                ;
      ToolTip "GRABA DATOS"                                                 ;
      ACTION Graba_Agrega_Eva( oFld )

   @ 587,500 BTNBMP oBtn4 SIZE 55,47 PROMPT "&Salida" OF oDlg PIXEL 2007    ;
      Resource "#8053"  FONT oFnt oGroup FLAT                               ;
      ToolTip  "VOLVER A MENU ANTERIOR"                                     ;
      ACTION( oDlg:End() )

   oBtn4:lCancel := .T.  // CANCEL del button

   ACTIVATE DIALOG oDlg CENTERED

   oFont:End()
   oFnt:End()

RETURN NIL

FUNCTION Muestra_Receta( oFld )

   oFld:aEnable = { .T., .T., .T., .F. }
   oFld:Refresh()

RETURN( .T. )

FUNCTION Graba_Agrega_Eva( oFld )

   MsgInfo( "Grabación exitosa", "Grabación exitosa" )

   oFld:aEnable = { .T., .T., .T., .T. }
   oFld:Refresh()

RETURN( .T. )

/*
//   ON INIT( oBtn1:Hide(), oBtn2:Hide(), oBtn3:Hide(), oBtn4:Hide() )
//   ACTION( oBtn1:Show(), oBtn2:Show(), oBtn3:Show(), oBtn4:Show() )
*/

// FIN
 

Regards, saludos.

[karinha]

Mejorias:

Code: Select all  Expand view  RUN

// C:\FWH..\SAMPLES\REMTEC4.PRG - kapiabafwh@gmail.com

#include "FiveWin.ch"

STATIC oDlg, oFld

FUNCTION Main()

   LOCAL oFont, oFnt, oGroup, oGroup6, oBtn1, oBtn2, oBtn3, oBtn4

   DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 00, -14 BOLD
   DEFINE FONT oFnt  NAME "Ms Sans Serif" SIZE 00, -12 BOLD

   DEFINE DIALOG oDlg SIZE 995, 640 PIXEL TRUEPIXEL FONT oFont ;
      STYLE nOr( WS_POPUP, WS_VISIBLE, WS_DLGFRAME )           ;
      COLORS CLR_BLACK, CLR_WHITE TRANSPARENT

   oDlg:lHelpIcon := .F.

   @ 05, 05 FOLDEREX oFld SIZE 1220, 568 OF oDlg PIXEL ROUND 5 ;
      PROMPT "&FIC. MEDICA",          "Evaluación &1er Parte", ;
             "Evaluación &2da Parte", "&Administración"        ;
      TAB HEIGHT 40 FONT oFont COLOR CLR_WHITE TOP

   oFld:SetOption( 1 )
   oFld:aEnable = { .T., .T., .T., .T. }
   oFld:Show()

   ********** BARRA DE FOOTER ********************
   @ 570, 30 GROUP oGroup6 TO 640, 600 PIXEL OF oDlg LABEL "Botones"        ;
      COLOR CLR_BLACK, CLR_HCYAN

   @ 587,40 BTNBMP oBtn1 SIZE 70,48 PROMPT "&Ver Receta" OF oDlg PIXEL 2007 ;
      Resource "#8044" FONT oFnt oGroup FLAT                                ;
      ToolTip "VER RECETA DE APLICACION"                                    ;
      ACTION Muestra_Receta( oFld, oBtn4 )

   @ 587,200 BTNBMP oBtn2 SIZE 55,50 PROMPT "&Buscar" OF oDlg PIXEL 2007    ;
      Resource "#8044" FONT oFnt oGroup FLAT                                ;
      ToolTip "BUSCAR EVALUACIONES ANTERIORES"

   //                   ACTION Busca_Evalua()

   @ 587,330 BTNBMP oBtn3 SIZE 55,50 PROMPT "&Grabar" OF oDlg PIXEL 2007    ;
      Resource "#8029" FONT oFnt oGroup FLAT                                ;
      ToolTip "GRABA DATOS"                                                 ;
      ACTION Graba_Agrega_Eva( oFld, oBtn4 )

   @ 587,500 BTNBMP oBtn4 SIZE 55,47 PROMPT "&Salida" OF oDlg PIXEL 2007    ;
      Resource "#8053"  FONT oFnt oGroup FLAT                               ;
      ToolTip  "VOLVER A MENU ANTERIOR"                                     ;
      ACTION( oDlg:End() )

   oBtn4:lCancel := .T.  // CANCEL del button

   ACTIVATE DIALOG oDlg CENTERED

   oFont:End()
   oFnt:End()

RETURN NIL

FUNCTION Muestra_Receta( oFld, oBtn4 )

   oFld:aEnable = { .T., .T., .T., .F. }
   oFld:Refresh()

   oBtn4:Hide()
   oBtn4:Refresh()

RETURN( .T. )

FUNCTION Graba_Agrega_Eva( oFld, oBtn4 )

   MsgInfo( "Grabación exitosa", "Grabación exitosa" )

   oFld:aEnable = { .T., .T., .T., .T. }
   oFld:Refresh()

   oBtn4:Show()
   oBtn4:Refresh()

RETURN( .T. )

/*
//   ON INIT( oBtn1:Hide(), oBtn2:Hide(), oBtn3:Hide(), oBtn4:Hide() )
//   ACTION( oBtn1:Show(), oBtn2:Show(), oBtn3:Show(), oBtn4:Show() )
*/

// FIN
 

Regards, saludos.