Posts: 3107

Joined: Fri Oct 07, 2005 06:28 PM

error on get value compiling from clipper
Posted: Wed Mar 17, 2010 10:46 AM

on oldest clipper function I have

If ValType(uVar)<>"L"
oEdit:=uVar
Endif

and

If lOk
If ValType(uVar)<>"L"
uVar:=oEdit:Value
Else
uVar:=oEdit:lChecked
Endif

How I can make on fwh ?

Best Regards, Saludos

Falconi Silvio

anserkk

Posts: 1335

Joined: Fri Jun 13, 2008 11:04 AM

Re: error on get value compiling from clipper
Posted: Wed Mar 17, 2010 11:15 AM

Dear Mr.Silvio,

What is the error that you are getting ?

Instead of

Code (fw): Select all Collapse

oEdit:Value:=uVar

Try

Code (fw): Select all Collapse

oEdit:VarPut(uVar)

Regards

Anser

Silvio

Posts: 3107

Joined: Fri Oct 07, 2005 06:28 PM

Re: error on get value compiling from clipper
Posted: Wed Mar 17, 2010 11:20 AM

I try with varput and varget
and also with oEdit:oGet:=uVar
not run !!!

If I try with

If ValType(uVar)<>"L"
oEdit:varput(uVar)
Endif

MAKE THIIS ERROR

Application

Path and name: C:\work\prg\fsdi2006\prg\testhil.Exe (32 bits)
Size: 2,116,608 bytes
Time from start: 0 hours 0 mins 2 secs
Error occurred at: 17-03-2010, 12:19:54
Error description: Error BASE/1004 Class: 'NIL' has no exported method: VARPUT
Args:
[ 1] = U
[ 2] = C Falconi Silvio

Stack Calls

Called from: => VARPUT(0)
Called from: msgbox.prg => MSGEDIT(243)
Called from: main.prg => TEST_MSGEDIT(604)
Called from: main.prg => (b)TAPPLICATION:BUILDMENU(231)
Called from: .\source\classes\MENU.PRG => TMENU:COMMAND(437)
Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND(1017)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\WINDOW.PRG => _FWH(3347)
Called from: => WINRUN(0)
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE(966)
Called from: main.prg => TAPPLICATI

Best Regards, Saludos

Falconi Silvio

anserkk

Posts: 1335

Joined: Fri Jun 13, 2008 11:04 AM

Re: error on get value compiling from clipper
Posted: Wed Mar 17, 2010 11:44 AM

Dear Mr.Silvio,

The following code is working fine here.

Code (fw): Select all Collapse

#include 'fivewin.ch'
//-------------------------------------------------------//
Function Main()
Local oDlg,oGet,oBtn,cTest:="Hello",lTest:=.F.

DEFINE DIALOG oDlg TITLE "Test"

@1,1 GET oGet VAR cTest OF oDlg
@3,3 BUTTON oBtn PROMPT "Test" OF oDlg ACTION Test(oGet,lTest)

ACTIVATE DIALOG oDlg

return nil

//-------------------------------------------------------//
Function Test(oGet,lTest)
if ValType(lTest) == "L"
    MsgInfo("Trying to assign Lgical Value to Get")
    oGet:VarPut(lTest)
    oGet:Refresh()
Endif

if ValType(oGet:Value) == "L"
    MsgInfo("Now Get var is having a Logical Value")
    oGet:VarPut(lTest)
    oGet:Refresh()
Else
    MsgInfo("Value in GET is not of a logical type")
Endif
MsgInfo("Everything OK")
Return NIL

Regards
Anser

Silvio

Posts: 3107

Joined: Fri Oct 07, 2005 06:28 PM

Re: error on get value compiling from clipper
Posted: Wed Mar 17, 2010 12:08 PM

i THINK THE ERROR IS

If ValType(uVar)<>"L" <----------------------- i MADE <> "L" AND NOT =="L"
oEdit:varput(uVar)
oEdit:REFRESH()
Endif

Best Regards, Saludos

Falconi Silvio

Daniel Garcia-Gil

Posts: 2365