guvoaII : Mensaje: RE: [guvoaII] BBrowser y Editar una columna.

Gracias José, lo que me pasaste anduvo perfecto.

Si le sirve a alguien, hice lo siguiente:

METHOD PostInit(oWindow,iCtlID,oServer,uExtra) CLASS Correspondencia

//Put your PostInit additions here

LOCAL aCampos AS ARRAY

LOCAL nn AS INT

LOCAL oColumn AS bDataColumn

//Control del bBrowser

//Crea las columnas {Campo, Detalle, Tamaño, Editable}

aCampos:={{"CORREO_CLI", "Correo" , 6, TRUE },; //Campos a visualizar.

{"NROUSU_CLI", "Código" , 6, FALSE},;

{"RAZSOC_CLI", "Razón Social",50, FALSE},;

{"CALLE1_CLI", "Domicilio" ,30, FALSE},;

{"ALTUR1_CLI", "Altura" , 6, FALSE},;

{"LOCPO1_CLI", "Localidad" ,85, FALSE},;

{"PROPO1_CLI", "Provincia" ,20, FALSE};

}

SELF:oDCBB_Correos:Use(oDb_Clientes) //,,IF(Len(aCampos)>=1,aCampos,NULL))

SELF:oDCBB_Correos:Server:SetOrder(2)

SELF:oDCBB_Correos:Server:GoTop()

SELF:bBrowser_Atributos(aCampos)

//FIN Control de bBrowser

RETURN NIL

METHOD bBrowser_Atributos(aCampos) CLASS Correspondencia

SELF:oDCBB_Correos:Background := Brush{Color{0,255,255}} // color de fondo de bBrowser

SELF:oDCBB_Correos:Font := Font{,7,"Arial"}

SELF:oDCBB_Correos:SetDeleted(TRUE) //No muestra los registros borrados.

SELF:oDCBB_Correos:ViewLogicAs := #Checkbox

SELF:oDCBB_Correos:CurrentMode := #Line //Marca la línea completa

SELF:oDCBB_Correos:EnableSelector(TRUE) //Agrega marca a la izquierda

SELF:oDCBB_Correos:Freeze := 3

SELF:oDCBB_Correos:Editable := TRUE

SELF:oDCBB_Correos:AutoEdit := #Permanent

SELF:oDCBB_Correos:Clear(FALSE)

FOR nn=1 UPTO ALen(aCampos)

oColumn := bDataColumn{SELF:oDCBB_Correos, SELF:oDCBB_Correos:Server, aCampos[nn,1], , SELF}

oColumn:Caption := aCampos[nn,2]

oColumn:Editable := aCampos[nn,4]

//Crea las columnas

SELF:oDCBB_Correos:AddColumn(oColumn)

SELF:oDCBB_Correos:OpenColumn(oColumn)

SELF:oDCBB_Correos:Redraw()

//FIN Control de bBrowser

RETURN

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail: gjbiagiotti@...
MSN: gerardo_biagiotti@...
gjbiagiotti@...
gjbiagiotti@...

De: guvoaII@... [mailto:guvoaII@...] En nombre de José Ramón Castro
Enviado el: Miércoles, 22 de Marzo de 2006 03:44 p.m.
Para: guvoaII@...
Asunto: RE: [guvoaII] BBrowser y Editar una columna.

Saludos Gerardo:

Como veo que el bBrowser puede tener más de una columna y no vas a desactivar una por una aquí te pongo un ejemplo de cómo desactivarlas en un subformulario que para el caso es casi lo mismo.

LOCAL oColumn AS OBJECT

LOCAL i AS INT

LOCAL nColumn AS INT // nº de columnas

LOCAL nDesact AS INT // nº de columnas a desactivar

LOCAL nResto AS INT // diferencia entre el total de columnas y las que se quiere desactivar

** Desactivar las cinco primeras columnas del bBrowser

** Total Columnas

nColumn := bBrowser:ColumnCount

nDesact := 5

nResto := nColumn - nDesact

nColumn := nColumn - nResto

FOR i = 1 TO nColumn

oColumn := bBrowser:GetColumn(i)

oColumn:Editable := FALSE

José Ramón Castro Polinio

JRCPOLI@...

De: guvoaII@... [mailto:guvoaII@...] En nombre de Gerardo J. Biagiotti
Enviado el: miércoles, 22 de marzo de 2006 17:22
Para: GUVOA II
Asunto: [guvoaII] BBrowser y Editar una columna.

Tengo un bBrowser en una Datawindow y necesito que solo una columna sea editable por el usuario..

Algún ejemplo?

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail: gjbiagiotti@...
MSN: gerardo_biagiotti@...
gjbiagiotti@...
gjbiagiotti@...

Consejos

¿Sabías que...?

Mensajes