Como dice el encabezado quiero colocar una columna con checkbox sobre una dbf, he leido muchos ejemplos en el foro pero todos estan sobre arrays
lo unico que encontre sobre una dbf es el siguiente codigo pero no logro hacerlo funcionar.
Code: Select all
FUNCTION pChebrowse()
local oDlg,oMvg1
DEFINE DIALOG oDlg NAME "orBuscar" ICON "#8001" TRANSPARENT
REDEFINE BUTTONBMP Btn_Limp ID 4003 OF oDlg BITMAP "Blimpi2" TOOLTIP oLamcla:mTfil
REDEFINE GET oBog1 VAR oMvg1 ID 4002 OF oDlg UPDATE
REDEFINE SAY oSay ID 4004 PIXEL OF oDlg COLOR oLamcla:cClr5 PICTURE '@!'
SELE d_ctasc
dbappend()
Dbgotop()
oBrw := TXBrowse():New( oDlg )
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLCELL //MARQSTYLE_HIGHLROW //
oBrw:nColDividerStyle := LINESTYLE_RAISED
oBrw:nHeaderLines := 1
oBrw:lFooter := .t.
oBrw:nFooterLines := 1
oBrw:nFooterHeight := 24
oBrw:lColDividerComplete := .t.
oBrw:lRecordSelector := .t.
oBrw:bClrStd := {|| IF( (Recno()%2)==0,{oLamcla:cClr5,oLamcla:cClr2},{oLamcla:cClr5,oLamcla:cClr1} ) }
oBrw:bClrSel := {|| { oLamcla:cClr5,oLamcla:cClr7 } }
oBrw:bClrSelFocus := {|| { CLR_WHITE,RGB(147,160,112) } }
oBrw:lFastEdit := .t.
oCol := oBrw:oCol( "Existe" )
oCol:SetCheck( { "GREEN", "RED" }, {|o, v| (DBRLOCK(), d_ctasc->exist := v, DBUNLOCK() ) } )
oCol:bStrData := { || If( d_ctasc->exist, "Yes", "No" ) }
oCol:nDataStrAlign := AL_RIGHT
oBrw:SetRDD()
oBrw:CreateFromResource(102)
ACTIVATE DIALOG oDlg NOWAIT On Init (Centra( oDlg ),oDlg:refresh()) //VALID (pValCapSal(),.t.)
return nIL