FiveTech Support Forums

Saludos a todos:

Estoy tratando de editar campos lógicos en un xBrowse de un array pero quisiera que me salgan iconos de marcado y desmarcado en vez de .t. y .f. Ya intenté con oCol:SetCheck( { "On", "Off" } basándome en algunos ejemplos pero no me funciona (parece que solo funciona cuando uno edita archivos .dbf).
Les rogaría que si saben como hacerlo que me den un ejemplo.
Muchas gracias de antemano.

REDEFINE XBROWSE oBrw ID 4001 OF oDialog ARRAY aFras AUTOCOLS LINES CELL

   oBrw:nMarqueeStyle       := 3
   oBrw:nRowDividerStyle    := LINESTYLE_BLACK
   oBrw:nColDividerStyle    := LINESTYLE_BLACK          
   oBrw:lColDividerComplete := .t.
   oBrw:lFastEdit := .T.
   oBrw:lAutoAppend := .T.  
   oBrw:aCols[1]:cHeader := "FACTURA"
   oBrw:aCols[2]:cHeader := "IMPORTE"
   oBrw:aCols[3]:cHeader := "TIPO DE PAGO"
   oBrw:aCols[4]:cHeader := "PAGADA"

   oBrw:aCols[1]:cEditPicture := "999999"
   oBrw:aCols[2]:cEditPicture := "999999.99" 
   oBrw:aCols[3]:cEditPicture := Space(10)

   oBrw:aCols[1]:nEditType  := EDIT_GET
   oBrw:aCols[2]:nEditType := EDIT_GET            
   oBrw:aCols[3]:nEditType := EDIT_LISTBOX 
   oBrw:aCols[4]:nEditType := EDIT_GET

   oBrw:aCols[3]:aEditListTxt   := { "EFECTIVO", "TARJETA", "SEGURO","PENDIENTE" }  
   oBrw:aCols[4]:SetCheck ({"CHECKON","CHECKOFF"} )

Espero que te sirva

abelcervantes wrote:Saludos a todos:

Estoy tratando de editar campos lógicos en un xBrowse de un array pero quisiera que me salgan iconos de marcado y desmarcado en vez de .t. y .f. Ya intenté con oCol:SetCheck( { "On", "Off" } basándome en algunos ejemplos pero no me funciona (parece que solo funciona cuando uno edita archivos .dbf).
Les rogaría que si saben como hacerlo que me den un ejemplo.
Muchas gracias de antemano.

#include "FiveWin.Ch"
#include "ord.ch"
#include "xbrowse.ch"

REQUEST DBFCDX

//----------------------------------------------------------------------------//

function Main()

   local aData := { { 'Line1', .t. }, { 'Line2', .f. }, ;
                    { 'Line3', .f. }, { 'Line4', .t. } }
   local oWnd, oBrw

   DEFINE WINDOW oWnd
   @ 0,0 XBROWSE oBrw OF oWnd AUTOCOLS ARRAY aData CELL LINES
   oBrw:aCols[ 2 ]:SetCheck( nil, .t. )
   oBrw:CreateFromCode()
   oWnd:oClient   := oBrw
   ACTIVATE WINDOW oWnd

return nil

//----------------------------------------------------------------------------//