FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Problema con xBrowse
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
Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM
Re: Problema con xBrowse
Posted: 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

Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Problema con xBrowse
Posted: Thu May 30, 2024 03: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
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: Problema con xBrowse
Posted: Thu May 30, 2024 08:19 PM
Ojo de 谩guila :roll:
Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "

Continue the discussion