salamandra wrote: ↑Mon Feb 01, 2021 2:54 pm
.. / ...
Continuo trabajando encima del problema, que por ahora no me parece ser un problema de codigo y
si una diferencia de comportamiento (o de funcionamiento ) de HMG.
Saludos,
Salamandra, Brasil
Hola Salamandra, en base a tu datos he intentado recrear tu programa y generar el error, pero no lo he conseguido.
Solo se me ocurre una cosas..., ¿y si fuera problema del IDE ?.
¿Has probado hace el código lineal y compilarlo..?
Por probar..
Un saludo y suerte...
Code: Select all
/*
* intento de reproduccion error de Salamandra
*/
#include "hmg.ch"
Function Main
Local aRows:={}
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 640 ;
HEIGHT 400 ;
TITLE 'Mixed Data Type Grid Test' ;
MAIN
DEFINE MAIN MENU
DEFINE POPUP 'File'
MENUITEM 'Set Value To {5,2}' ACTION Form_1.gridPedido.Value := {5,2}
MENUITEM 'Set Value To {0,0}' ACTION Form_1.gridPedido.Value := {0,0}
MENUITEM 'Delete Item 5' ACTION Form_1.gridPedido.DeleteItem(5)
MENUITEM 'AddItem' ACTION Form_1.gridPedido.AddItem({" ",0,0,"000",0})
MENUITEM 'Delete All Items' ACTION Form_1.gridPedido.DeleteAllItems
MENUITEM 'Exit' ACTION ThisWindow.Release
END POPUP
END MENU
DEFINE GRID gridPedido
ROW 10
COL 10
WIDTH 620
HEIGHT 330
ITEMS aRows
VALUE 0
WIDTHS {140,140,140,70,70}
HEADERS {'Column 1','Column 2','Column 3','CHANumero',"TOTAL"}
TOOLTIP "Produtos..."
ONCHANGE {|| calculos_do_Pedido() }
ONGOTFOCUS {|| calculos_do_Pedido()}
ONLOSTFOCUS Nil
FONTBOLD .T.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
ONDBLCLICK Nil
ONHEADCLICK Nil
ONQUERYDATA Nil
MULTISELECT .F.
ALLOWEDIT .T.
VIRTUAL .F.
DYNAMICBACKCOLOR Nil
DYNAMICFORECOLOR Nil
COLUMNWHEN { {|| .F.} , { || .T. } , { || .T. },{|| VERVALUE(This.Cellvalue) },{|| VERVALUE(This.Cellvalue) }}
COLUMNVALID { {|| .T. },{|| .T. },{|| .T. },{|| isInCSTs(This.CellValue) },{|| .T. }}
COLUMNCONTROLS { {"TEXTBOX","CHARACTER",,}, {"TEXTBOX","NUMERIC",,},{"TEXTBOX","NUMERIC",,},{"TEXTBOX","CHARACTER","999",},{"TEXTBOX","NUMERIC","999999.99",}}
SHOWHEADERS .T.
CELLNAVIGATION .F.
NOLINES .F.
HELPID Nil
IMAGE Nil
JUSTIFY Nil
ITEMCOUNT Nil
BACKCOLOR Nil
FONTCOLOR {0,64,128}
HEADERIMAGES Nil
ROWSOURCE Nil
COLUMNFIELDS Nil
ALLOWAPPEND .F.
ALLOWDELETE .F.
BUFFERED .F.
DYNAMICDISPLAY .F.
ONSAVE Nil
LOCKCOLUMNS 0
END GRID
END WINDOW
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
Return
FUNC ISINCSTS(cValor)
LOCAL tValidos:="0.101_1.101_2.101", lRet:=.F.
if HMG_Len(Alltrim(cValor)) >=3
if Alltrim(cValor) $tValidos
lRet:=.T.
endif
endif
Return(lRet)
FUNC VERVALUE()
RETURN .T.
FUNC calculos_do_Pedido()
LOCAL k, aElement:={}
For k:=1 to Form_1.gridPedido.ItemCount
aElement:=Form_1.gridPedido.Item(k)
* ------------------------------------------
aElement[5]:=aElement[2] * aElement[3]
* ------------------------------------------
Form_1.gridPedido.Item(k):=aElement
Next k
Return Nil
Hi to all,