Porque cuando en un Grid pongo CELLNAVIGATION en True me da el siguiente error, cuando esta en False no da error
Gracias
Date:04/22/10 Time: 13:37:55
Error BASE/1070 Argument error: ==
Called from _DELETEITEM(898)
Called from DOMETHOD(7551)
Called from MAIN_BUTTON_2_ACTION(10)
Called from (b)MAIN(214)
Called from _DOCONTROLEVENTPROCEDURE(5152)
Called from EVENTS(1408)
Called from _DOMESSAGELOOP(0)
Called from _ACTIVATEWINDOW(4762)
Called from DOMETHOD(7352)
Called from MAIN(7)
* HMG-IDE Form Designer Generated Code
* (c) Roberto Lopez - http://sites.google.com/site/hmgweb
DEFINE WINDOW TEMPLATE AT 123 , 273 WIDTH 658 HEIGHT 506 VIRTUAL WIDTH Nil VIRTUAL HEIGHT Nil TITLE "" ICON NIL MAIN CURSOR NIL ON INIT Nil ON RELEASE Nil ON INTERACTIVECLOSE Nil ON MOUSECLICK Nil ON MOUSEDRAG Nil ON MOUSEMOVE Nil ON SIZE Nil ON MAXIMIZE Nil ON MINIMIZE Nil ON PAINT Nil BACKCOLOR Nil NOTIFYICON NIL NOTIFYTOOLTIP NIL ON NOTIFYCLICK Nil ON GOTFOCUS Nil ON LOSTFOCUS Nil ON SCROLLUP Nil ON SCROLLDOWN Nil ON SCROLLLEFT Nil ON SCROLLRIGHT Nil ON HSCROLLBOX Nil ON VSCROLLBOX Nil
DEFINE LABEL Label_1
ROW 30
COL 50
WIDTH 70
HEIGHT 20
VALUE "Codigo:"
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
HELPID Nil
VISIBLE .T.
TRANSPARENT .F.
ACTION Nil
AUTOSIZE .F.
BACKCOLOR NIL
FONTCOLOR NIL
END LABEL
DEFINE LABEL Label_2
ROW 70
COL 50
WIDTH 70
HEIGHT 20
VALUE "Descripción"
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
HELPID Nil
VISIBLE .T.
TRANSPARENT .F.
ACTION Nil
AUTOSIZE .F.
BACKCOLOR NIL
FONTCOLOR NIL
END LABEL
DEFINE LABEL Label_3
ROW 110
COL 50
WIDTH 70
HEIGHT 20
VALUE "Precio"
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
HELPID Nil
VISIBLE .T.
TRANSPARENT .F.
ACTION Nil
AUTOSIZE .F.
BACKCOLOR NIL
FONTCOLOR NIL
END LABEL
DEFINE TEXTBOX Text_1
ROW 30
COL 130
WIDTH 110
HEIGHT 25
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
ONCHANGE Nil
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
ONENTER Nil
HELPID Nil
TABSTOP .T.
VISIBLE .T.
READONLY .F.
RIGHTALIGN .F.
DISABLEDBACKCOLOR Nil
DISABLEDFONTCOLOR Nil
MAXLENGTH 3
BACKCOLOR NIL
FONTCOLOR NIL
INPUTMASK "999"
FORMAT Nil
NUMERIC .T.
VALUE Nil
END TEXTBOX
DEFINE TEXTBOX Text_2
ROW 70
COL 130
WIDTH 280
HEIGHT 25
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
ONCHANGE Nil
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
ONENTER Nil
HELPID Nil
TABSTOP .T.
VISIBLE .T.
READONLY .F.
RIGHTALIGN .F.
DISABLEDBACKCOLOR Nil
DISABLEDFONTCOLOR Nil
BACKCOLOR NIL
FONTCOLOR NIL
INPUTMASK Nil
FORMAT Nil
VALUE ""
END TEXTBOX
DEFINE TEXTBOX Text_3
ROW 110
COL 130
WIDTH 100
HEIGHT 25
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
ONCHANGE Nil
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
ONENTER Nil
HELPID Nil
TABSTOP .T.
VISIBLE .T.
READONLY .F.
RIGHTALIGN .F.
DISABLEDBACKCOLOR Nil
DISABLEDFONTCOLOR Nil
MAXLENGTH 7
BACKCOLOR NIL
FONTCOLOR NIL
INPUTMASK "99999.99"
FORMAT Nil
NUMERIC .T.
VALUE Nil
END TEXTBOX
DEFINE FRAME Frame_1
ROW 220
COL 30
WIDTH 580
HEIGHT 180
FONTNAME "Arial"
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
CAPTION "Lista de Productos"
BACKCOLOR NIL
FONTCOLOR NIL
OPAQUE .T.
END FRAME
DEFINE BUTTON Button_1
ROW 170
COL 60
WIDTH 100
HEIGHT 28
ACTION main_button_1_action()
CAPTION "Agregar"
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
HELPID Nil
FLAT .F.
TABSTOP .T.
VISIBLE .T.
TRANSPARENT .F.
MULTILINE .F.
PICTURE Nil
PICTALIGNMENT TOP
END BUTTON
DEFINE BUTTON Button_2
ROW 170
COL 180
WIDTH 100
HEIGHT 28
ACTION main_button_2_action()
CAPTION "Eliminar"
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
HELPID Nil
FLAT .F.
TABSTOP .T.
VISIBLE .T.
TRANSPARENT .F.
MULTILINE .F.
PICTURE Nil
PICTALIGNMENT TOP
END BUTTON
DEFINE GRID Grid_1
ROW 250
COL 50
WIDTH 540
HEIGHT 130
ITEMS { {0,0,0} }
VALUE Nil
WIDTHS { 70,120,70 }
HEADERS {"Codigo","Descripción","Precio"}
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
ONCHANGE Nil
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
ONDBLCLICK Nil
ONHEADCLICK Nil
ONQUERYDATA Nil
MULTISELECT .F.
ALLOWEDIT .F.
VIRTUAL .F.
DYNAMICBACKCOLOR Nil
DYNAMICFORECOLOR Nil
COLUMNWHEN Nil
COLUMNVALID Nil
COLUMNCONTROLS Nil
SHOWHEADERS .T.
CELLNAVIGATION .T.
NOLINES .F.
HELPID Nil
IMAGE Nil
JUSTIFY Nil
ITEMCOUNT Nil
BACKCOLOR NIL
FONTCOLOR NIL
HEADERIMAGES Nil
ROWSOURCE Nil
COLUMNFIELDS Nil
ALLOWAPPEND .F.
ALLOWDELETE .F.
BUFFERED .F.
DYNAMICDISPLAY Nil
ONSAVE Nil
END GRID
DEFINE TEXTBOX Text_4
ROW 410
COL 210
WIDTH 120
HEIGHT 24
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
ONCHANGE Nil
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
ONENTER Nil
HELPID Nil
TABSTOP .T.
VISIBLE .T.
READONLY .F.
RIGHTALIGN .F.
DISABLEDBACKCOLOR Nil
DISABLEDFONTCOLOR Nil
MAXLENGTH 5
BACKCOLOR NIL
FONTCOLOR NIL
INPUTMASK "9999.99"
FORMAT Nil
NUMERIC .T.
VALUE Nil
END TEXTBOX
DEFINE LABEL Label_4
ROW 410
COL 150
WIDTH 50
HEIGHT 20
VALUE "TOTAL"
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
HELPID Nil
VISIBLE .T.
TRANSPARENT .F.
ACTION Nil
AUTOSIZE .F.
BACKCOLOR NIL
FONTCOLOR NIL
END LABEL
END WINDOW
#include "hmg.ch"
declare window Main
Function main_button_2_action
wpos := main.grid_1.value
wresta := val(main.Grid_1.cell( wpos, 3 ))
wtotal := wtotal - wresta
main.grid_1.deleteitem(wpos)
main.text_4.value := wtotal
main.text_1.setfocus
Return Nil
CELLNAVIGATION error
Moderator: Rathinagiri
- esgici
- Posts: 4543
- Joined: Wed Jul 30, 2008 9:17 pm
- DBs Used: DBF
- Location: iskenderun / Turkiye
- Contact:
Re: CELLNAVIGATION error
Hola Claudio
You have set a numeric value (probably 1) to VALUE property of your Grid_1 at definition :
Saludos, regards
--
Esgici
You have set a numeric value (probably 1) to VALUE property of your Grid_1 at definition :
Code: Select all
DEFINE GRID Grid_1
ROW 250
COL 50
WIDTH 540
HEIGHT 130
ITEMS { {0,0,0} }
VALUE Nil // <-----
WIDTHS { 70,120,70 }
HEADERS {"Codigo","Descripción","Precio"}
...
--
Esgici
Viva INTERNATIONAL HMG
- Roberto Lopez
- HMG Founder
- Posts: 4009
- Joined: Wed Jul 30, 2008 6:43 pm
Re: CELLNAVIGATION error
When you use 'cellnavigation' mode the value property returns a numeric array.claudiotedesco wrote:Porque cuando en un Grid pongo CELLNAVIGATION en True me da el siguiente error, cuando esta en False no da error
Gracias
You are attempting to use that numeric array as an argument for 'deleteitem' property.
'Deleteitem' requires a numeric argument, not an array. This generates the error.
Regards/Saludos,
Roberto
(Veritas Filia Temporis)
Roberto
(Veritas Filia Temporis)