Problema con xBrowse

Problema con xBrowse

Postby Armando » Thu May 30, 2024 1: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: 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
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
User avatar
Armando
 
Posts: 3199
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Re: Problema con xBrowse

Postby cmsoft » Thu May 30, 2024 12:49 pm

Armando:
No se si es un error al copiar, pero esta linea
nEditType := EDIT_GET
debería ser
:nEditType := EDIT_GET
User avatar
cmsoft
 
Posts: 1283
Joined: Wed Nov 16, 2005 9:14 pm
Location: Mercedes - Bs As. Argentina

Re: Problema con xBrowse

Postby Armando » Thu May 30, 2024 3:48 pm

César:

Tienes la boca llena de razón.

"Las prisas son malas consejeras"

Un abrazo
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
User avatar
Armando
 
Posts: 3199
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Re: Problema con xBrowse

Postby sysctrl2 » Thu May 30, 2024 8:19 pm

Ojo de águila :roll:
Cesar Cortes Cruz
SysCtrl Software
Mexico

' Sin +- FWH es mejor "
User avatar
sysctrl2
 
Posts: 1011
Joined: Mon Feb 05, 2007 7:15 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 28 guests