Editar campos lógicos en Xbrowse

[abelcervantes]

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.

[Pedro]

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

[nageswaragunupudi]

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.

Working sample:

Code: Select all

#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

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