Omnis

Wed Dec 17 22:59:32 EST 2014

The following is on the web site :-

<html>

<head>

<META http-equiv="DeOffice Accounting" content="text/html; charset=utf-8">

<title>DeOffice Web (Atad Data)</title>

</head>

<body bgcolor="rgb(170,170,225)">

<script type="text/javascript">

ounicodeserver="no"

owidth=1280

oheight=800

oserver="5912"

olibrary="Deofficeweb"

oclass="RfLogOndeofficeweb"

owebserverurl="110.143.43.164"

owebserverscript="/cgi-bin/nph-omniscgi"

odownload="yes"

omparam1name="ScreenWidth"

omparam1value=screen.width

omparam2name="ScreenHeight"

omparam2value=screen.height

omparam3name="PreviousURL"

omparam3value="history.go(-1)"

omparam4name=""

omparam4value=""

omparam5name=""

omparam5value=""

omparam6name=""

omparam6value=""

omparam7name=""

omparam7value=""

omparam8name=""

omparam8value=""

omparam9name=""

omparam9value=""

</script>

<script type="text/javascript" charset="utf-8" src="omniswebclient.js">

</script>

</body>

</html>

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

The following is Remote task>

;  

;  

If not(iMonitorOpen)

Set reference iMonitorRef to $iwindows.$findname('WMonitor')

If iMonitorRef

Calculate iMonitorOpen as kTrue

End If

End If

;  

If iMonitorOpen

Do iMonitorRef.$addconnection($cinst,pParams.OmnisClass) Returns lServerBusyFlag     ;; params are 1) - Current instance, 2) - Class Name

If lServerBusyFlag

Quit method 'The Server is busy - Try again later'     ;; cannot accept connections

End If

End If

;  

Do method $GetFolderLocation ('DeOfficeDataFolder.txt') Returns iRedirect

Set main file {FDataCompany}

Find first on CD_Squ

If flag true

Do method $WriteIPAddress (CD_IP_Or_Domain)

End If

;  

Calculate iVersion as mid($root.$clib.$tasks.Startup_Task.$methods.VersionNumber.$methodlines.2.$text,4,100)

;  

Calculate iScreenWidth as pParameters.ScreenWidth

Calculate iScreenHeight as pParameters.ScreenHeight

Calculate iLaunchUrl as pParameters.PreviousUrl

pParameters is a row variable and is in the construct.

This is the opening HTML page.

Hope this helps.

From: Brauch Rolf [mailto:rolf at brauch.com] 
Sent: Thursday, 18 December 2014 12:44 PM
To: Chris Hughes
Subject: Re: Omnis

No — I’m dead in the water and would truly appreciate some guidance.  Thank you.

On Dec 17, 2014, at 20:40, Chris Hughes <ataddata at bigpond.net.au> wrote:

Have you resolved this issue

I can forward examples.

Chris Hughes

Copious Data Pty Ltd (Trading as Atad Data)

Unit 8 / 3460 Pacific Highway

Springwood QLD 4127

Phone:- 07 3208 6347

Fax No:- 07 3208 9347

Mobile:- 0409 263 349

Email:-  <mailto:ataddata at bigpond.net.au> ataddata at bigpond.net.au

Web Site:-  <http://ataddata.com.au/> http://ataddata.com.au

Rolf
239-449-8585 
416-907-6929 (Toronto link)