topic-44559

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Problema con xBrowse
Posted: Thu May 30, 2024 01:25 AM

Amigos del foro:

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 (fw): Select all Collapse

        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

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

cmsoft

Posts: 1344