windows 10 issue

[Terrymorgan]

I am testing a move to Windows 10 and have an error in my Autoexec script:-

date()-tbl.Pwdupdated: Argument is incorrect data type.

This piece of code has been there for many years & been fine with previous versions of windows.

Is this a bug or does the code need improving?

Thanks

[Stan Mathews]

Re: windows 10 issue

I suggest you verify that the table in question was not corrupted by the move to a win 10 machine.

In the interactive window, after opening the database try

tbl = table.open("whateverthetablenameis")

? tbl.Pwdupdated

You should then see a date formatted like {07/15/2017}.

It might be easier just to view the structure for the table in question.

It is possible to rerun the autoexec from the control panel. You might want to add a debug(1) line to the autoexec somewhere before the tbl = table.open() and step through the script. If it doesn't error when run from the control panel you might have some sort of timing issue.

[MoGrace]

Re: windows 10 issue

What are you doing with this calculation? Are you populating a numeric global variable?

[Mike Wilson]

Re: windows 10 issue

...... ? tbl.Pwdupdated
You should then see a date formatted like {07/15/2017}.

The equation date()- x would work with x being both a date and a numeric value also. So...

I'm with Robin, there is not enough info here to diagnoses. date()-tbl.Pwdupdated is not a complete equation. What is the full equation and is it actually a part of the autoexec script text, or is autoexec opening a form with a table that has this equation in a table field rule, or some other possibility, lending to Stan's timing issue?

[Ted Giles]

Re: windows 10 issue

Do you run as Admin first time.
Have you run the compatability check
Have you put Alpha outside of the Program Files (X86) folder.
It could be timing, it could be code, but the change to Win10 is the recent factor.

[Terrymorgan]

Re: windows 10 issue

if date() - tbl.Pwupdated < 90 then

[Ted Giles]

Re: windows 10 issue

Doesn't make sense Terry.

In the Interactive window, run what Stan suggested in post#2
Look again at the date functions.
Please explain what you are trying to do and how it worked and what happened in the previous version of windows. It looks like you are testing for a password update date less than 90 days from something.

[Ted Giles]

Re: windows 10 issue

Or try this structure in the IW

dim update as d
update = "01/01/1900"
dim yesnno as c
yesno = ""
if (date() - update)<90 'CURRENT DATE MINUS UPDATE DATE
yesnno ="y"
elseif (date() - update)>90
yesnno ="n"
end if

?yesnno
= "n"

[Mike Wilson]

Re: windows 10 issue

OK Terry,
You answered a part of the question. For this equation to work, the Pwupdated field must be a date field. Is it? Is the code written in the autoexec script? Maybe you might give us a wee bit more of the context of the code, where it is running (autoexec? ) that we might be a little more understanding of what the code is supposed to do but failing..

[Stan Mathews]

Re: windows 10 issue

Go back to the first post.

He said

I am testing a move to Windows 10 and have an error in my Autoexec script

[Ted Giles]

Re: windows 10 issue

Am I being too picky expecting some sort of response from Terry?
A few of us have tried to assist, and we are not after medals, but a response - even if he believe we are we are all Muppets - would help.
Golden rule "Don't make enemies by mistake. (Even if you are from Essex)".
(It's a UK thing for those across the pond separated by a common language.)

[Terrymorgan]

Re: windows 10 issue

Sorry for delay
As stated this code is & has run fine for many years but not in Windows 10. Heres more of the code from "Autoexec":-

tbl = table.open("operator")
tbl.fetch_first()
WHILE .not. tbl.fetch_eof()
	IF UT(tbl.operator) = ut(U_Name).and. UT(tbl.Operpassword1) = UT(U_Pass) THEN
	'IF UT(tbl.operator) = ut(U_Name) THEN
		GOTO Login_found
	END IF
tbl.fetch_next()
END WHILE
tbl.close()
A5.close()
end
login_found:
	if date() - tbl.Pwupdated < 90 then
		loginname=nw_lower(tbl.opername)
		loginknownas=tbl.operatorknownas
		logindepartment=UT(tbl.Department)
		loginsalesteam=UT(tbl.salesteam)
		loginemail=tbl.operemail
		loginemailpassword=tbl.emailpassword
		logintelext=UT(tbl.opertelext)
		loginddi=UT(tbl.operddi)
		password=UT(tbl.operpassword)
		Else
		loginname=nw_lower(tbl.opername)
		loginknownas=tbl.operatorknownas
		logindepartment=UT(tbl.Department)
		loginsalesteam=UT(tbl.salesteam)
		loginemail=tbl.operemail
		loginemailpassword=tbl.emailpassword
		logintelext=UT(tbl.opertelext)
		loginddi=UT(tbl.operddi)
		password=UT(tbl.operpassword)
		ui_dlg_box("Expired Password","Your Password is over 90 days old, please set a new one")
		script_play("CHANGEPASS")	   
	end if
tbl.close()

[Ted Giles]

Re: windows 10 issue

"if date() - tbl.Pwupdated < 90 then" is where you believe it's failing.

Try

If (date () - tbl.Pwupdated)<90 'the difference is the additional parenthesis.

Alternatively, make sure date () returns a proper date in the IW
? date ()

You may have to set the date to TODAY in a variable and test that in your script.
Win 10 is not my favourite by any means, Terry.

[Terrymorgan]

Re: windows 10 issue

The additional parenthesis has worked - The testing continues.
Thanks
To all

[DaveM]

Re: windows 10 issue

I am strictly win10 on 3 computers. The last remaining win7 has decided to retire on it's own. Happy to see it go.
Plan to replace it with a small linux server on a typical computer. Linux runs faster and with better security out of the box. vm on top of Linux is also faster than windows server.