Checkbox en Browser

[Compuin]

Hola foro,

Alguien tiene un ejemplo de como colocar un checkbox como parte de un registro en un browser ?

Gracias de antemano

[Antonio Linares]

Usa:

oBrowse:SetChecks()

Las columnas a mostrar el checkbox tienen que mostrar valores lógicos

Admite un primer parámetro con los dos nombres de imágenes alternativas desde recursos

y un segúndo parámetro lógico para indicar si se permite cambiar el valor (editarlo)

Este segundo parámetro puede ser un codeblock

[Compuin]

Disculpa Antonio,

No me quedo muy claro con el ejemplo que me indicastes.

[armando.lagunas]

Code: Select all  Expand view  RUN

// el campo "ACCE" en logico

 REDEFINE XBROWSE oLbx    ID 20 COLUMNS "NIVE","RAIZ","DESC","ACCE" ALIAS "PA04" FONT oFont OF oDlg NOBORDER AUTOSORT FOOTERS

          oLbx:aCols[1]:cHeader      := "Nivel"                 ;   oLbx:aCols[1]:nWidth       :=  30                 ; oLbx:aCols[1]:nDataStrAlign  := AL_CENTER
          oLbx:aCols[2]:cHeader      := "Modulo"                ;   oLbx:aCols[2]:nWidth       :=  80                 ; oLbx:aCols[2]:nDataStrAlign  := AL_CENTER
          oLbx:aCols[3]:cHeader      := "Procedimiento"         ;   oLbx:aCols[3]:nWidth       :=  440
          oLbx:aCols[4]:cHeader      := "Acceso"                ;   oLbx:aCols[4]:nWidth       :=  50

          oLbx:Acceso:SetCheck( { FWBmpOn(), FWBmpOff() }, EDIT_GET )

 

saludos


saludos

[Antonio Linares]

Si el browse está mostrando algún valor lógico solo tienes que hacer oBrowse:SetChecks() y esas columnas aparecerán como checkboxes

[joseluisysturiz]

Code: Select all  Expand view  RUN

// el campo "ACCE" en logico

 REDEFINE XBROWSE oLbx    ID 20 COLUMNS "NIVE","RAIZ","DESC","ACCE" ALIAS "PA04" FONT oFont OF oDlg NOBORDER AUTOSORT FOOTERS

          oLbx:aCols[1]:cHeader      := "Nivel"                 ;   oLbx:aCols[1]:nWidth       :=  30                 ; oLbx:aCols[1]:nDataStrAlign  := AL_CENTER
          oLbx:aCols[2]:cHeader      := "Modulo"                ;   oLbx:aCols[2]:nWidth       :=  80                 ; oLbx:aCols[2]:nDataStrAlign  := AL_CENTER
          oLbx:aCols[3]:cHeader      := "Procedimiento"         ;   oLbx:aCols[3]:nWidth       :=  440
          oLbx:aCols[4]:cHeader      := "Acceso"                ;   oLbx:aCols[4]:nWidth       :=  50

          oLbx:Acceso:SetCheck( { FWBmpOn(), FWBmpOff() }, EDIT_GET )

 

saludos


saludos

Armando, que tipo de diseño es el menu que usas.? se ve bastante llamativo, muy buena combinacion de colores...por lo menos para mis gustos...gracias, saludos...

[armando.lagunas]

hola, jose:

no es un menu, es una opcion que trae la clase ribbonbar, es BackStage y la utilizo asi:

Code: Select all  Expand view  RUN

      DEFINE RIBBONBAR oBar WINDOW oWnd PROMPT "Recepción","Producción","Despachos","Materiales","Liquidación","Herramientas" HEIGHT 95

         @ 4, 5 RBBTN oBtn SIZE 64, 19 BITMAP ".\SYSTEM\help.bmp" ACTION oBar:BackStage OF oBar CENTER ;
                NORMAL GRADIANT {{1,nRGB(205, 28, 28),nRGB(140, 28, 28)}}                 ;
                TOOLTIP "Sub sistema de configuración inicial"

                oBar:nGroupSeparation   := 5
                oBar:nLeftMargin        := 75
                oBar:CalcPos()
                oBar:nSeparation( 5 )
                BackStage( oBar, oBtn )

FUNCTION BackStage( oBar, oBtn )
  LOCAL  oBack

   DEFINE BACKSTAGE oBack MAINWIDTH 297

          DEFINE BSSELECT OF oBack PROMPT "Parametros Principales" HEIGHT 70 COLORTEXT NIL, CLR_YELLOW

                 DEFINE BSBUTTON OF oBack PROMPT "   Impresora Principal"     BITMAP ".\SKIN\PRIN.BMP" HEIGHT  60 ACTION PrinterSetup()  ;
                                               COLORTEXT nRGB(12,12,12) GRADIENT { { 1,  nRGB( 255,255,255 ), nRGB( 198, 198,198 ) } }
                 DEFINE BSBUTTON OF oBack PROMPT "   Procedimientos Internos" BITMAP ".\SKIN\PASS.BMP" HEIGHT  60 ACTION Msginfo( "Procedimientos" ) ;
                                              COLORTEXT nRGB(12,12,12) GRADIENT { { 1,  nRGB( 255,255,255 ), nRGB( 198, 198,198 ) } }
                 DEFINE BSBUTTON OF oBack PROMPT "   Mantención de Usuarios"  BITMAP ".\SKIN\USER.BMP" HEIGHT  60 ACTION MantencionUsuarios( oBtn ) ;
                                              COLORTEXT nRGB(12,12,12) GRADIENT { { 1,  nRGB( 255,255,255 ), nRGB( 198, 198,198 ) } }

          DEFINE BSSELECT OF oBack PROMPT "Licencias de Uso"       HEIGHT 70 COLORTEXT NIL, CLR_YELLOW
                 DEFINE BSBUTTON OF oBack PROMPT "   Licencia de Software"    BITMAP ".\SKIN\DISP.BMP" HEIGHT  60 ACTION MsgInfo( "LICENCIAS" )  ;
                                              COLORTEXT nRGB(12,12,12) GRADIENT { { 1,  nRGB( 255,255,255 ), nRGB( 198, 198,198 ) } }

          DEFINE BSSELECT OF oBack PROMPT "Soporte de Sistemas"    HEIGHT 70 COLORTEXT NIL, CLR_YELLOW

                 DEFINE BSBUTTON OF oBack PROMPT "   Soporte en Linea"        BITMAP ".\SKIN\MAIL.BMP" HEIGHT  60 ACTION MailMaster("Main")  ;
                                              COLORTEXT nRGB(12,12,12) GRADIENT { { 1,  nRGB( 255,255,255 ), nRGB( 198, 198,198 ) } }
                 DEFINE BSBUTTON OF oBack PROMPT "   Información y Ayuda"     BITMAP ".\SKIN\HELP.BMP" HEIGHT  60 ACTION Msginfo( "AYUDA" )  ;
                                              COLORTEXT nRGB(12,12,12) GRADIENT { { 1,  nRGB( 255,255,255 ), nRGB( 198, 198,198 ) } }
                 DEFINE BSBUTTON OF oBack PROMPT "   Retornar a Windows"      BITMAP ".\SKIN\EXIT.BMP" HEIGHT  60 ACTION Msginfo( oBar:oWnd:End() )   ;
                                             COLORTEXT nRGB(12,12,12) GRADIENT { { 1,  nRGB( 255,255,255 ), nRGB( 198, 198,198 ) } }

   SET BACKSTAGE oBack TO oBar

RETURN NIL

 

[joseluisysturiz]

Armando, gracias por tu respuesta, no habia pillado que era la misma ribbon, ya lo habia utilizado pero creo que lo mas llamativo es el windows donde la usas, creo eso hace la gran diferencia, cuando la probe fue bajo WIN XP, igual probare tu ejemplo bajo WIN 7 haber como se ve, hasta los momentos es el windows que uso, gracias, saludos...