tArrayBrowse: Sin Documentar

[zeasoftware]

Hola:
La Classe tArrayBrowse aun n oesta documentada, ya me revise todo el manual,
si aun no la tienen aviseme por fa.
Estoy revisando uno de los archivos de ejemplos.
Saludos.
Ramón Zea

[zeasoftware]

se me olvido poner el error;
Subsistema: BASE
Código de error: 1004
Estado: .F.
Descripción: Message not found
Operación: TBRWCOLUMN:GETICON
Argumentos:
Fichero:
Código error SO: 0
Pila de llamadas:
TQPRODUCTOS:OICON (378)
TQPRODUCTOS:CREATE (244)
TQPRODUCTOS:CREATEFORM (10)
TQPRODUCTOS:NEW (177)
TFRMFACTURAS:BTNCLICK (153)
TBRWCOLUMN:ONBTNCLICK (0)
TGRIDEDIT:CLICK (162)
TGRIDEDIT:WMLBUTTONDOWN (106)
RUNFORM (0)
TAPPLICATION:RUN (189)
MAIN (19)

[zeasoftware]

Por que me marca Ambiguos Reference?
Todas estan declaradas como Local
oColCantidad := :aCols[1]
oColPrecio := :aCols[4]
oColImporte := :aCols[5]
oEditCantidad := oColCantidad:oGridEdit
oEditPrecio := oColPrecio:oGridEdit
oEditImporte := oColImporte:oGridEdit
Gracias.
Saludos.

[ignacio]

Ramón,
De momento sólo esta en formato TXT:
docarraybrowse.txt
La incluyo en el Email por si acaso.
Saludos,
"Ramón Zea" <zeasoftware@hotmail.com> escribió en el mensaje
news:[email=42e684c6@ozsrvnegro.ozlan.local...]42e684c6@ozsrvnegro.ozlan.local...[/email]
> Hola:
>
> La Classe tArrayBrowse aun n oesta documentada, ya me revise todo el
> manual,
> si aun no la tienen aviseme por fa.
>
> Estoy revisando uno de los archivos de ejemplos.
>
> Saludos.
> Ramón Zea
>
>


Attached files ArrayBrowse.rar (1.1 KB)Â

[ignacio]

Ramón,
TBrwColumn no tiene ninguna propiedad oIcon:
> TQPRODUCTOS:OICON (378)
Y por el error que devuelve:
> Descripción: Message not found
> Operación: TBRWCOLUMN:GETICON
Parece que TQPRODUCTOS es un objeto del tipo TBRWCOLUMN y realmente no
entiendo nada pues entonces debería haber fallado antes en la llamada a
CreateForm:
> TQPRODUCTOS:CREATEFORM (10)
Si pudieras mandarnos un pequeño ejemplo que reproduzca el problema te lo
agradecería.
Un saludo,
"Ramón Zea" <zeasoftware@hotmail.com> escribió en el mensaje
news:[email=42e68669@ozsrvnegro.ozlan.local...]42e68669@ozsrvnegro.ozlan.local...[/email]
> se me olvido poner el error;
>
> Subsistema: BASE
> Código de error: 1004
> Estado: .F.
> Descripción: Message not found
> Operación: TBRWCOLUMN:GETICON
> Argumentos:
> Fichero:
> Código error SO: 0
>
> Pila de llamadas:
> TQPRODUCTOS:OICON (378)
> TQPRODUCTOS:CREATE (244)
> TQPRODUCTOS:CREATEFORM (10)
> TQPRODUCTOS:NEW (177)
> TFRMFACTURAS:BTNCLICK (153)
> TBRWCOLUMN:ONBTNCLICK (0)
> TGRIDEDIT:CLICK (162)
> TGRIDEDIT:WMLBUTTONDOWN (106)
> RUNFORM (0)
> TAPPLICATION:RUN (189)
> MAIN (19)
>
>
>

[ignacio]

Ramón,
Un ejemplo plis. Gracias.
Un saludo,
"Ramón Zea" <zeasoftware@hotmail.com> escribió en el mensaje
news:[email=42e70c7a@ozsrvnegro.ozlan.local...]42e70c7a@ozsrvnegro.ozlan.local...[/email]
> Por que me marca Ambiguos Reference?
> Todas estan declaradas como Local
>
>
> oColCantidad := :aCols[1]
> oColPrecio := :aCols[4]
> oColImporte := :aCols[5]
>
> oEditCantidad := oColCantidad:oGridEdit
> oEditPrecio := oColPrecio:oGridEdit
> oEditImporte := oColImporte:oGridEdit
>
> Gracias.
> Saludos.
>
>

[ignacio]

Ramón,
El error.log y un pequeño ejemplo plis.
Saludos,
"Ramón Zea" <zeasoftware@hotmail.com> escribió en el mensaje
news:[email=42e75e1e@ozsrvnegro.ozlan.local...]42e75e1e@ozsrvnegro.ozlan.local...[/email]
> WITH OBJECT TBrwColumn():New( ::oArrayBrowse1 )
> :cHeader := "Codigo"
> :cPicture := "!!!!!!!!!!!!!!!"
> :nWidth := 109
> :nEditType := beGET_BUTTON
> :OnBtnClick := "BtnClick"
> :OnPostEdit := "OnPostEdit"
> :Create()
> END
>
> Si le doy click marca el error mencionado en menases anteriores.
>
> Asi como tambien he visto que al poner el mouse sobre el boton el puntero
> desaparece.
>
> Saludos.
> Ramón Zea
>
>

[ignacio]

Ramón,
Utiliza el ejemplo de samplesbrowsedbfbuilder para provocar el error, y
me lo mandas.
Saludos
"Ramón Zea" <zeasoftware@hotmail.com> escribió en el mensaje
news:[email=42e76967@ozsrvnegro.ozlan.local...]42e76967@ozsrvnegro.ozlan.local...[/email]
>
> el asunto es que es parte de varios .prg, por lo que seria tener que
> montar todo el proyecto, pero en si lo que hago es usar un TArraBrowse, y
> una Columna le pongo el atributo a como esta el mensaje anterior, y le
> asigno un metodo para que al pulsar el boton me vaya a otro tForm.
>
> Espero haberme explicado.
>
> Gracias,
>
>

[zeasoftware]

WITH OBJECT TBrwColumn():New( ::oArrayBrowse1 )
:cHeader := "Codigo"
:cPicture := "!!!!!!!!!!!!!!!"
:nWidth := 109
:nEditType := beGET_BUTTON
:OnBtnClick := "BtnClick"
:OnPostEdit := "OnPostEdit"
:Create()
END
Si le doy click marca el error mencionado en menases anteriores.
Asi como tambien he visto que al poner el mouse sobre el boton el puntero
desaparece.
Saludos.
Ramón Zea

[zeasoftware]

el asunto es que es parte de varios .prg, por lo que seria tener que montar
todo el proyecto, pero en si lo que hago es usar un TArraBrowse, y una
Columna le pongo el atributo a como esta el mensaje anterior, y le asigno un
metodo para que al pulsar el boton me vaya a otro tForm.
Espero haberme explicado.
Gracias,

[zeasoftware]

no me marca error!!!!!
voy a revisar bien mi proyecto, lo que si es que al poner el puntero del
mouse sobre el boton, el puntero desaparece.
Otra:
Si pongo en una columna un picture = "999,999,999.99" me pone mal el numero
al pasar a millones.
ejemplo:
3,555,495.22 queda 3,555
Sigo peleandome con el tArrayBrowse, pero le voy ganando, jejejeejejeje
Saludos.
Gracias.

[zeasoftware]

en el tArrayBrowse hay
aEditListBound
aEditListText
Cual valor asigna a la columna al hacer una seleccion? de Bound o de Text?
Estoy usando beGetListBox y no me asigna el valor, estoy haciendo algo mal u
omitiendo algo?
Saludos.
Ramón Zea

[ignacio]

Ramón,
aEditListBound y aEditListText son propiedad de TBrwColumn y están
perfectamente documentadas en la ayuda en formato CHM.
Un saludo,
"Ramón Zea" <zeasoftware@hotmail.com> escribió en el mensaje
news:[email=42e84cd8@ozsrvnegro.ozlan.local...]42e84cd8@ozsrvnegro.ozlan.local...[/email]
> en el tArrayBrowse hay
>
> aEditListBound
>
> aEditListText
>
> Cual valor asigna a la columna al hacer una seleccion? de Bound o de Text?
>
> Estoy usando beGetListBox y no me asigna el valor, estoy haciendo algo mal
> u omitiendo algo?
>
> Saludos.
> Ramón Zea
>
>

[zeasoftware]

cierto mil gracias
no habi achekado esos archivos, la cosa es que imprimi todo el manual y me
basaba en el.
Saludos.