[Openroad-users] WindowsAPI call to GetLocalTime

Wed Apr 23 09:40:36 EST 2008

Hi All,

I just saw in the OpenROAD Language Reference Guide that this approach
only works if you close all DBSessionObjects first.

This may not be a suitable solution to the earlier problem after all,
but for an eClient with no DBSessionObjects, it might work.

Regards,

Fabian.

________________________________

From: openroad-users-bounces at peerlessit.com
[mailto:openroad-users-bounces at peerlessit.com] On Behalf Of Fabian
Anderson
Sent: Wednesday, 23 April 2008 9:04 AM
To: International OpenROAD Users
Subject: Re: [Openroad-users] WindowsAPI call to GetLocalTime

Hi Bill,

            I like this solution (apart from the fact it integrates via
a batch call) as it gets the required information from the client PC and
applies the time-zone immediately to the Ingres/OpenROAD environment.

            I find this line very handy (if it works):-

CurSession.TimeZone = ingres_tz

            An earlier (probably related) thread asked about changing
the time-zone environment at runtime.  As Ingres environment variables
are only setup when OpenROAD starts, the solution proposed by Bodo was
to call an OpenROAD image for any functions that required a different
environment setting.  If the new time-zone becomes immediately
effective, I think the line above could have been used to solve that
problem too.

Regards,

Fabian.

________________________________

From: openroad-users-bounces at peerlessit.com
[mailto:openroad-users-bounces at peerlessit.com] On Behalf Of Bill Allan
Sent: Tuesday, 22 April 2008 9:52 PM
To: International OpenROAD Users
Subject: Re: [Openroad-users] WindowsAPI call to GetLocalTime

Hi Darren and Jade,

You say you need to determine which timezone a user's PC is in so you
can get the local time so it can be recorded. A user could be in New
South Wales or in Western Australia (a 2 hr timezone difference).

The example below is designed for you to test.  The real eClient
application would only do this once when it starts to get the current
timezone setting on the user's PC and then set the Ingres TimeZone
appropriately.  Just remember that the Windows TimeZone does not exactly
match the Ingres Timezone.  Windows timezone setting only recognizes the
current year and not a history of timezone changes.  As an example on
Windows you set the timezone to '(GMT+10:00) Canberra, Melbourne,
Sydney'. Even though these have the same Daylight savings change dates
this year they have been different in the past.

Below is a working example to demonstrate what you want to do. 

1.  Create a frame with 4 fields:

    get_tz_btn    Button Field

    tz_result     Varchar(50)

    ingres_tz     Varchar(50)

    cur_time      DATE

2.  Add the source code below to the frame script:

3.  Run the Frame. Between each click of the get_tz_btn change the
Control Pannel/Date/Timezone value.

    The source code creates a bat file with the instructions to get the
'StandardName'for the timezone from Windows into a file.

    Read the result file into a string object.

    Convert the string object to a varchar.

    Extract the StandardName value from the string

    Find the matching Ingres Timezone value.

    Set the CurSession.TimeZone to the derived Ingres Timezone

    assign DATE('now') to a variable.

Hope this helps.

Bill

Here is the source code:

------------------------------------------------------

ON CLICK get_tz_btn =
DECLARE
    l_text    = VARCHAR(2000) NOT NULL,
    l_strobj  = StringObject,
{
    l_text = 'REG QUERY "HKEY_LOCAL_MACHINE\'
            + 'SYSTEM\CurrentControlSet\Control\'
            + 'TimeZoneInformation" /v StandardName'
            + ' > C:\temp\local_tz.txt';
    l_strobj = l_strobj.ConcatVarchar(l_text);
    l_strobj.WriteToFile('C:\temp\local_tz.bat');

    CALL SYSTEM 'C:\temp\local_tz.bat';

    l_strobj.FileHandle = 'C:\temp\local_tz.txt';
    l_text = l_strobj.value;
    l_text = LEFT(l_text, LENGTH(l_text) -2);
    tz_result = SHIFT(l_text, - (LOCATE(l_text, 'REG_SZ') + 6));

    ingres_tz = 'AUSTRALIA-QUEENSLAND';
    CASE tz_result OF
        'AUS Central Standard Time' :     ingres_tz = 'AUSTRALIA-NORTH';
        'AUS Eastern Standard Time' :     ingres_tz = 'AUSTRALIA-NSW';
        'Cen. Australia Standard Time' :  ingres_tz = 'AUSTRALIA-SOUTH';

        'E. Australia' :                  ingres_tz =
'AUSTRALIA-QUEENSLAND'; 
        'E. Australia Standard Time' :    ingres_tz =
'AUSTRALIA-QUEENSLAND'; 
        'Tasmania Standard Time' :        ingres_tz =
'AUSTRALIA-TASMANIA';
        'W. Australia Standard Time' :    ingres_tz =
'AUSTRALIA-WESTERN';
    ENDCASE;

    CurSession.TimeZone = ingres_tz;
    cur_time = DATE('now');
}

-------------------------

	----- Original Message ----- 

	From: Darren Harvey <mailto:darren.harvey at myworkplace.com.au>  

	To: 'International OpenROAD Users'
<mailto:openroad-users at peerlessit.com>  

	Sent: Tuesday, April 22, 2008 11:44 AM

	Subject: Re: [Openroad-users] WindowsAPI call to GetLocalTime

	Bill

	I'm responding on behalf of Jade.  The problem relates back to
the chain of e-mails titled 'eClient & Timezones'.

	Running an eClient app at sites across multiple Timezones, we
need to be able to get the Current Local time regardless of what
Timezone they are in.  So the App may be hosted in 'AUSTRALIA-NSW' and
the time there may be 11:00.  If a user in Western Australia runs the
application at 9:00 WA time, they see '11:00am', but this is not what we
want.  So what we are trying to achieve is for the eClient app to pick
up the Current local time off the PC.  

	Thanks

	Darren

	Regards

	Darren Harvey

	MyWorkplace Solutions Pty Limited

	Level 5, 11 Queens Road

	Melbourne Victoria 3004

	Ph.       1300 733 731

	Mob.     0400 398 188

	Fax.      03 9710 1112

	Making Service our Priority

	www.MyWorkplace.com.au

	If you receive this email by mistake, please notify us and do
not make any use of the email. We do not waive any privilege,
confidentiality or copyright associated with it.

________________________________

	From: openroad-users-bounces at peerlessit.com
[mailto:openroad-users-bounces at peerlessit.com] On Behalf Of Bill Allan
	Sent: Monday, 21 April 2008 7:10 PM
	To: International OpenROAD Users; OpenRoad Users Group
	Subject: Re: [Openroad-users] WindowsAPI call to GetLocalTime

	Can I ask a stupid question?

	Why do you need to use 'GetLocalTime'?   Ingres
DATE_GMT(DATE('now')) will give you a GMT ( UTC) string that can be cut
up and give you all the information apart from the Milliseconds
component.

	In Ingres 2006 there is a new ANSI DATE data type which has a
number of good features.  Here is part of the doco:

	TIME WITH TIME ZONE hh:mm:ss.ffff... [+|-]th:tm 12:45:12.23456
-05:00

	TIME or TIME WITHOUT TIME ZONE hh:mm:ss.ffff... 12:45:12.23456

	other formats are:

	ANSIDATE

	TIME WITH LOCAL TIME ZONE 

	TIMESTAMP WITH TIME ZONE 

	TIMESTAMP or TIMESTAMP WITHOUT TIME ZONE

	TIMESTAMP WITH LOCAL TIME ZONE

	INTERVAL YEAR TO MONTH

	INTERVAL DAY TO SECOND

	Having the Timezone with ANSI DATE just tells you what the
offset from GMT isat that instant. It doesn't tell you the timezone
name.

	Bill Allan.

	----- Original Message ----- 

		From: jade clements
<mailto:jade.clements at myworkplace.com.au>  

		To: OpenRoad Users Group
<mailto:openroad-users at sealion.peerlessit.com>  

		Sent: Monday, April 21, 2008 12:18 PM

		Subject: [Openroad-users] WindowsAPI call to
GetLocalTime

		Hello,

		I'm using a Window's API call, GetLocalTime, to obtain
the user's pc time however I'm getting some weird results.

		procedure zGetTime ( ) =

		declare

		    wYear = INTEGER NOT NULL;

		    wMonth = INTEGER NOT NULL;

		    wDayOfWeek = INTEGER NOT NULL;

		    wDay = INTEGER NOT NULL;

		    wHour = INTEGER NOT NULL;

		    wMinute = INTEGER NOT NULL;

		    wSecond = INTEGER NOT NULL;

		    wMilliseconds = INTEGER NOT NULL;

		enddeclare

		{

		    CALLPROC GetLocalTime(

		        byref(wYear), 

		        byref(wMonth), 

		        byref(wDayOfWeek), 

		        byref(wDay), 

		        byref(wHour), 

		        byref(wMinute), 

		        byref(wSecond), 

		        byref(wMilliseconds));

		CurProcedure.TRACE(

		    'Year: ' + VARCHAR(wYear) + 

		    ' Mth: ' + VARCHAR(wMonth) + 

		    ' Day: ' + VARCHAR(wDay) + 

		    ' Hr: ' + VARCHAR(wHour) + 

		    ' Min: ' + VARCHAR(wMinute) + 

		    ' Sec: ' + VARCHAR(wSecond) + 

		    ' DOW: ' + VARCHAR(wDayOfWeek)); 

		}

		Result:

		Year: 264152 Mth: 1376257 Day: 45023240 Hr: 0 Min: 0
Sec: 0 DOW: 917516

		The Day value changes everytime the procedure is run.

		The API guide mentions that the GetSystemTime function
returns the system time expressed in Coordinated Universal Time (UTC).
I guess the same goes for GetLocalTime however, the return values just
aren't right.

		Can anyone help?

		Regards

		Jade Clements

		MyWorkplace Solutions Pty Limited

		Level 5, 11 Queens Road

		Melbourne Victoria 3004

		Ph:  1300 733 731

		Making Service our Priority

		www.MyWorkplace.com.au

		If you receive this email by mistake, please notify us
and do not make any use of the email. We do not waive any privilege,
confidentiality or copyright associated with it.

________________________________

________________________________________________________________
		OpenROAD-Users mailing list

		You can maintain your subscription here:

http://www.peerlessit.com/mailman/listinfo/openroad-users

		To unsubscribe click on this link

mailto:openroad-users-unsubscribe at peerlessit.com&subject=unsubscribe

		To subscribe click on this link

mailto:openroad-users-subscribe at peerlessit.com&subject=subscribe

________________________________

	________________________________________________________________
	OpenROAD-Users mailing list

	You can maintain your subscription here:
	http://www.peerlessit.com/mailman/listinfo/openroad-users

	To unsubscribe click on this link

mailto:openroad-users-unsubscribe at peerlessit.com&subject=unsubscribe

	To subscribe click on this link
	mailto:openroad-users-subscribe at peerlessit.com&subject=subscribe

______________________________________________________________________
This email has been scanned by the MessageLabs Email Security System.
For more information please visit http://www.messagelabs.com/email 
______________________________________________________________________

Specialist providers of back and front office systems for the financial
services industry.
Featuring: Fintechnix(r)
Disclaimer: 
Notice: This message contains privileged and confidential information
intended only for the use of the addressee named above. If you are not
the intended recipient of this message you are hereby notified that you
must not disseminate, copy or take any action in reliance on it.
Any views expressed in this message are those of the individual
sender,except where the sender specifically states them to be the views
of Fintechnix Pty Ltd.

______________________________________________________________________
This email has been scanned by the MessageLabs Email Security System.
For more information please visit http://www.messagelabs.com/email 
______________________________________________________________________

Specialist providers of back and front office systems for the financial services industry.
Featuring:  Fintechnix(r)
Disclaimer: 
Notice: This message contains privileged and confidential information intended only for the use of the addressee named above. If you are not the intended recipient of this message you are hereby notified that you must not disseminate, copy or take any action in reliance on it.
Any views expressed in this message are those of the individual sender,except where the sender specifically states them to be the views of Fintechnix Pty Ltd.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.peerlessit.com/pipermail/openroad-users/attachments/20080423/1d88aed8/attachment.html 
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: image/jpeg
Size: 1436 bytes
Desc: image001.jpg
Url : http://www.peerlessit.com/pipermail/openroad-users/attachments/20080423/1d88aed8/attachment.jpe 