Re intentando toma xBrowse, tengo el siguiente código, en él quiero editar solamente la columna 7 (WRK_REG)
Pero simplemente no entra en modo de edición la columna 7, el resto no permitir la edición. que me falta?
- Code: Select all Expand view
REDEFINE XBROWSE oBrw ID 200 OF oDlg;
DATASOURCE oRsWrk ;
COLUMNS "WRK_FOL","WRK_HER","WRK_DES","WRK_MOD","WRK_SER","WRK_CDS","WRK_REG";
HEADERS "Folio","Número","Descripción","Modelo","Serie","Cntdd","Regresa";
COLSIZES 60,45,300,100,100,100,80;
PICTURES "@Z 9999999","@Z 99999",Nil,Nil,Nil,"@Z 9999999","@Z 9999999";
JUSTIFY {AL_RIGHT,AL_RIGHT,AL_LEFT,AL_LEFT,AL_LEFT,AL_RIGHT,AL_RIGHT};
FOOTERS AUTOSORT FASTEDIT
WITH OBJECT oBrw
:l2007 := (.F.)
:lHScroll := (.F.)
:lVScroll := (.F.)
:nMarqueeStyle := MARQSTYLE_HIGHLCELL // MARQSTYLE_HIGHLROW
:nColDividerStyle := LINESTYLE_LIGHTGRAY
:nRowDividerStyle := LINESTYLE_LIGHTGRAY
:nHeaderHeight := 25
:nRowHeight := 22
:nFooterHeight := 25
:bClrHeader := { || {CLR_WHITE,CLR_BLACK} }
:bClrFooter := { || {CLR_WHITE,CLR_BLACK} }
:bClrSel := { || IF( oBrw:KeyNo % oApp:nRowsInt == 0 ,{ CLR_BLACK, oApp:nRowParClr },{ CLR_BLACK, oApp:nRowNonClr }) }
:bClrSelFocus := { || {oApp:nFClrFocus,oApp:nBClrFocus} }
:bClrStd := { || IF( oBrw:KeyNo % oApp:nRowsInt == 0 ,{ CLR_BLACK, oApp:nRowParClr },{ CLR_BLACK, oApp:nRowNonClr }) }
:nRecSelColor := oApp:nRowParClr
:lDisplayZeros := (.F.)
WITH OBJECT :aCols[01]
:cOrder := "A"
END
WITH OBJECT :aCols[07]
nEditType := EDIT_GET
END
END
Gracias por el apoyo brindado