How to fix it ?

How to fix it ?

Postby Peter » Wed Nov 15, 2006 5:57 am

Dear all,


*-----------------------*
function Main()

local odlg,ofol,oget,obtn
local cVar := space(5),lsave := .f.
local nVar := 0

open file xx

define dialog...

@ 5,5 folder ofol ....

ofol:bChange := {|| if(ofol:nOption=2,OpenFol2(oFol,nVar),)}

@ 5,5 Get oget Var cVar....Of oFol:aDialogs[1]

@ 10,10 button obtn of odlg....action (lsave := .t.,odlg:end())

activate dialog...

if lsave
xx->dbappend()
if xx->(rlock())
xx->1 := cVar
xx->2 := nVar
endif
xx->(dbcommit())
xx->(dbunlock())

endif


close file xx

Return nil

*-----------------*
function OpenFol2(oFol,nVar)
local oget

@ 5,5 Get oget Var nVar....of ofol:aDialogs[2]

return Nil
*---------------------*

Why I can not get anything in nVar ? How to fix it for ture way ?

Best Regrad,

Peter

PS. I'm use Fw2.1c and Blinker 7
Peter
 
Posts: 31
Joined: Wed Oct 19, 2005 3:30 am

Postby Antonio Linares » Wed Nov 15, 2006 8:48 am

Peter,

ofol:bChange := {|| if(ofol:nOption=2,OpenFol2(oFol,@nVar),)}
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41205
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin for CA-Clipper

Who is online

Users browsing this forum: No registered users and 3 guests