PROBLEMAS CON GRID.../PROBLEMS WITH GRID

[Leopoldo Blancas]

Hola a todos...

He tratado parte de la mañana de hacer un ejemplo de un grid que actualiza los datos de dos TextBox al cambiar de Item en la Grid y no puedo hacerlo... también trato de que el grid_1 ilumine todo el registro completo y no lo he logrado.

El ejemplo me da error al cambiar de Item, en el archivo "Control.prg" al final.

Alguna posible solución... Gracias
Polo
*---------------------------------------------------------------------------------------------------------------------------
Hi Everyone ..

I have tried most of the morning to make an example of a grid that updates data from two TextBox to change the Grid Item and I can not do it ... I also try to illuminate the entire record grid_1 complete and I've failed.

The example I get an error when changing Item, in the "Control.prg" at the end.

Any possible solution ... thanks
Polo

Code: Select all

PROCEDURE CambiaGrid()
LOCAL aReg := Win_Control.Grid_1.VALUE
LOCAL nValor := 0
LOCAL cTipoValor

	MiArea('Clientes','ICodClie')

	cTipoValor := VALTYPE (aReg)

	MsgBox("Tipo de valor:  "+cTipoValor)

	MsgBox("LONGITUD DEL ARRAY: " + STR(LEN(aReg)))

	nValor := aReg[1,1]                        // aquí me da ERROR

	MsgBox(STR((nValor)))

	/*
	Goto nReg

	Win_Control.Text_1.VALUE := Clientes->CodClie
	Win_Control.Text_2.VALUE := Clientes->Nombre
	*/

RETURN NIL

[Leopoldo Blancas]

Ninguna sugerencia a mi problema? del Post de arriba.
Gracias
Polo
*---------------------------------------------------------------------------------------------------------
No suggestions to my problem? Post above.
thanks
Polo

[Leopoldo Blancas]

QUE FRUSTRANTE ES ESTO...
*-----------------------------------------------
FRUSTRATING IS THAT THIS...

[JALMAG]

Creo que en los Grid, no es Value sino Cell, es decir:

En vez de Win_Control.Grid_1.VALUE sería Win_Control.Grid_1.CELL puesto que aludes a la posición aReg[1,1] ademas creo que es con paréntesis aReg(1,1)
Puedes probar por ahí y depurando. Siento no poder ayudarte mas y mejor.
Saludos desde España

En Minigui extended Samples->BASIC tienes varios ejemplos sobre tratamientos de las GRID

[danielmaximiliano]

Creo que en los Grid, no es Value sino Cell, es decir:

En vez de Win_Control.Grid_1.VALUE sería Win_Control.Grid_1.CELL puesto que aludes a la posición aReg[1,1] ademas creo que es con paréntesis aReg(1,1)
Puedes probar por ahí y depurando. Siento no poder ayudarte mas y mejor.
Saludos desde España

En Minigui extended Samples->BASIC tienes varios ejemplos sobre tratamientos de las GRID

Value devuelve la posicion dentro del Grid.
si el grid es unidimensional devuelve un entrero, sino un Array, el primer vector corresponde al Row, y el segundo a Col.
creo hay un Bug dentro del Grid, ya que probe con hmg.3.1.2 y con hmg.3.0.46 y es exactamente lo mismo... voy a seguir estudiando el
codigo..

[Leopoldo Blancas]

Gracias por contestar...

Si es por eso que primero verifico que tipo de dato y me devuelve "A", despues le digo que longitud tiene y me dice 2, entonces le pido el primer elemento del array y es cuando me da error...

Creo que es un Bug...

Gracias
Polo

[danielmaximiliano]

Gracias por contestar...

Si es por eso que primero verifico que tipo de dato y me devuelve "A", despues le digo que longitud tiene y me dice 2, entonces le pido el primer elemento del array y es cuando me da error...

Creo que es un Bug...

Gracias
Polo

Polo : Tú Grid contiene este codigo

Code: Select all

 DEFINE GRID Grid_1
        ROW              120
        COL               50
        WIDTH            460
        HEIGHT           315
        VALUE { 1 , 1 } 
        WIDTHS           { 100     ,     340 }
        HEADERS          {'CODIGO' , 'NOMBRE'}
        FONTNAME         "Arial"
        FONTSIZE          12
        TOOLTIP          ""
        ONCHANGE         CambiaGrid()
        ROWSOURCE        "CLIENTES"
        COLUMNFIELDS     { 'CodClie' ,  'Nombre' }
        LOCKCOLUMNS      0
        CELLNAVIGATION   .F.
    END GRID

Como veras VALUE { 1 , 1 } es la posicion dentro del GRID, es ROW 1, COL 1. al pedir el valor de VALUE
te va a devolver un ARRAY de longitud 2, el primer vector o elemento sera ROW el segundo sera COL.

Code: Select all

aArray := Win.Grid.Value

Syntax:

Value <xValue> (Control Definition)



<WindowName>.<ControlName>.Value := <Value>

<WindowName>.<ControlName>.Value -> <Value>





<Value> type depends upon the control type:





DATEPICKER : Date.

MONTHCALENDAR: Date

TEXTBOX : Character.

TEXTBOX (Numeric) : Numeric.

TEXTBOX (Password) : Character.

RADIOGROUP : Numeric (Option Selected).

CHECKBOX : Logical.

COMBOBOX : Numeric (Row Selected).

LISTBOX : Numeric (Row Selected).

LISTBOX (Multiselect): Numeric Array (Rows Selected).

GRID (Standard): Numeric (Row Selected).

GRID (Multiselect): Numeric Array (Rows Selected).

GRID (CellNavigation): Numeric Array (Row and col selected).

EDITBOX : Character.

TAB : Numeric (Active Page).

SPINNER : Numeric.

SLIDER : Numeric.

BROWSE: Numeric (Selected Record Number (RecNo()))

TIMER : Numeric (Write Only)

PROGRESSBAR : Numeric (Write Only)

TOOLBAR BUTTON: Logical. .T. when button is selected (Check style) .

IPADDRESS: Numeric array (four elements).

TREE: Selected item ID.

LABEL: Character.

[Leopoldo Blancas]

Hola Daniel....

No se como disculparme pero la verdad como un amigo tiene una expresión cuando alguien comete un error "Básico", de "Principiante", "OBVIO".........y la frase es: "MALDITAS DROGAS!!!"...
En serio que no di con la respuesta hasta ahorita... si me devuelve un array del tipo aReg = {Row,Col}, para obtener el valor del primer elemento tengo que poner MiRow := aReg[1] para obtener la ROW... Y NO MiRow := aReg[1][1] en serio que se me fueron las patas... "MALDITAS DROGAS!!!".

Polo

*---------------------------------------------------------------------------------------------------------------------------------------------------
Hi Daniel ....

Do not know how to apologize but the truth as a friend has an expression when someone makes a mistake "Basic", from "Beginner", "OBVIOUS" ......... and the phrase is: "DAMN DRUGS! "...
Seriously I did not give the answer until now ... if I return an array of type AREG = {Row, Col}, to obtain the value of the first element I have to put Mirow: = Areg [1] for the ROW ... And NO Mirow: = Areg [1] [1] mean that I used the legs ... "DAMN DRUGS!".

Polo