Erro checkbox

[bencz]

Olá (:

Estou tendo o seguinte problema com o checkbox.... qnd eu um checkbox simples, e vou executar o programa, eu recebo este erro:

+--------------------------------------------------------------------------------
|
|Error BASE/1072 Argument error: <> Arguments: ( [ 1] = Type: P Val: 0 [ 2] = Type: N Val: 0)
|
|Error at ...: HCHECKBUTTON:ONEVENT(147) in Module: C:\develop\prj\hwgui\source\h
|check.prg
|Called from : HWG_DLGBOXINDIRECT(0) in Module:
|Called from : HDIALOG:ACTIVATE(185) in Module: C:\develop\prj\hwgui\source\hdial
|og.prg
|Called from : _AS(23) in Module: as.prg
|Called from : AS(5) in Module: as.prg

o código que estou utilizando é este:

Código: Selecionar todos

#include "hwgui.ch"
STATIC Thisform

FUNCTION as( p1, p2, p3, p4 )
 RETURN _as( p1, p2 ,p3 ,p4)

FUNCTION _as

 LOCAL  vCheck1 := .T.
 LOCAL oCheck1

  INIT DIALOG oDlg TITLE "fdsfds" ;
    AT 0,130 SIZE 526,138 NOEXIT  ;
     STYLE WS_POPUP+WS_CAPTION+WS_SYSMENU+DS_CENTER

     INIT DIALOG oDlg TITLE "Form2" ;
   AT 0,130 SIZE 453,120 NOEXIT  ;
   STYLE WS_POPUP+WS_CAPTION+WS_SYSMENU+DS_CENTER


   @ 10,10 GET CHECKBOX oCheck1 VAR vCheck1  CAPTION "Transporte"  SIZE 92,22

   ACTIVATE DIALOG oDlg


RETURN oDlg:lresult

[sygecom]

Tem dois: INIT DIALOG ai no código, está errado isso.

[bencz]

Mesmo eu tirando um dos INITs, o erro continua ;x

[esbasso]

neste codigo não pode estar dando esse erro

tua lib não parece ser a atualizada
aconselho a usar a lib mais atual para que os erros sejam vistos corretamente

[bencz]

Essa lib q estou usando, é a mais recente...
compilei hoje ela do SVN

[esbasso]

então baixe e compile novamente
foi alterado.

[bencz]

Certo, muito obrigado (:

[bencz]

Cara... mesmo eu clicando no chack box e talz... ele nao retorna verdadeiro, qnd o checkbox está marcado... ;x

eu fiz assim:

Código: Selecionar todos

if oCHk1:GetValue() == .t.
    verdadeiro := .t.
endif

na realidade... ele já me retorna o erro no GetValue(), pois ele vala que nao existe...

[esbasso]

só faça assim

if ochk1:value
verdadeiro
endif

[bencz]

bom, eu já tinha visto.... por isso msm perguntei

[sygecom]

Esse caso está muito estranho mesmo, tente atualizar sua LIB.

[esbasso]

veja se o erro não é no ochk1
pode ser que declarou ele local e ta chamando em outra função , dai não existe

[bencz]

bom, depois q vc atualizou o código la, funcionou (: