CELLNAVIGATION error

Moderator: Rathinagiri

Post Reply
claudiotedesco
Posts: 132
Joined: Thu Jul 31, 2008 12:05 pm

CELLNAVIGATION error

Post by claudiotedesco »

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
User avatar
esgici
Posts: 4543
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Contact:

Re: CELLNAVIGATION error

Post by esgici »

Hola Claudio

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"}
...
Saludos, regards

--

Esgici
Viva INTERNATIONAL HMG :D
User avatar
Roberto Lopez
HMG Founder
Posts: 4004
Joined: Wed Jul 30, 2008 6:43 pm

Re: CELLNAVIGATION error

Post by Roberto Lopez »

claudiotedesco wrote:Porque cuando en un Grid pongo CELLNAVIGATION en True me da el siguiente error, cuando esta en False no da error
Gracias
When you use 'cellnavigation' mode the value property returns a numeric array.

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)
Post Reply