OpenInsight Community Source Code - Recently Updated Pages

Operating AREV32

dharmacek — Mon, 23 Jun 2008 08:26:59 CDT

dharmacek: I just converted one of my client ArevDOS installations to Arev32. I'm going to start a number of threads about my experience. Feel free to ask questions or post your own solutions/problems. PM: The Arev of DOS was version 3.12. It has been interoperating with OI 3.75 for years, and OI 7.3, then OI 8.0.6.

Converting to AREV32

dharmacek — Mon, 23 Jun 2008 08:14:12 CDT

RGD OSDirectoryTree

zapher67 — Mon, 26 May 2008 20:47:32 CDT

A simple utility that returns an @FM delimited array of all the subdirectories under a given directory, including all child subdirectories. The array is returned flat in the order the directories are discovered.

OpenInsight Community Source Code

zapher67 — Sun, 25 May 2008 17:05:19 CDT

An OpenInsight community resource, this wiki stores OpenInsight source code examples to jump start your application development.

Share your favorite piece of code, help a fellow OpenInsight developer and build a strong community.

Upload your photos from the 2008 User conference to the Photo Gallery.
Click on the Photo Gallery link above and share your photos of a fantastic conference.

AREV32

zapher67 — Sat, 24 May 2008 18:24:21 CDT

This section contains information about using AREV32 in OpenInsight.

Google Earth

zapher67 — Fri, 23 May 2008 04:23:14 CDT

Example code that builds a Google Earth .kml file using OpenInsight data.

There are 3 procedures and one insert

oi_dataconv - the hub of a convert oi data to other formats system I'm working on

oi_dataconv_kml - the bit that actually creates the kml file

oi_dataconv_common - a label common used by the oi_dataconv process

oi_dataconv_kml_example - the example procedure you run to see the magic happen.

this example uses google earth. You must have google earth installed for it to work.

OLE Adobe PDF - FDF

bornecw — Mon, 28 Apr 2008 22:15:37 CDT

In order to get this to work, you must have Adobe Professional installed on the machine that will be running this code. Adobe Pro will install the necessary files to get the OLE working.

1) Create or edit a pdf file by adding text controls in the necessary places.
2) Paste the below code into OI.
3) Basic Utilization -

CLB_PDF('CREATE','\\Ns1\test.pdf')
CLB_PDF('SET','DealershipName','TEST')
CLB_PDF('SET','MailingAddress','123 1st St')
CLB_PDF('SET','CityStZip','Ny, NY 21236')
CLB_PDF('SET','DealerNumber','')
CLB_PDF('SET','DateFromThrough',fdate:'-':tdate)
CLB_PDF('SET','DealerContactPerson','MikeVince')
CLB_PDF('SET','DealerContact','713-555-1212')
CLB_PDF('SET','PageNumber',PNo)
CLB_PDF('SET','OfPageNumber',TPages)
CLB_PDF('SET','PageTotal',OConv(AmtTotal,'MD2,$'))
CLB_PDF('SET','TotalNumberOfAgreements',@Reccount)
CLB_PDF('CLOSE','','','Register.fdf')
CLB_PDF('OPEN','','',nfilename)

_________________________________________________________________________________

Subroutine FDF_PDF(Type, Param2, Param3, FileName)
************************************************************************************************
*
*
* Name: FDF_PDF
*
* Original Programmer: Clay Borne
*
* Description: The FDF_PDF procedure fills in form fields in an Adobe PDF
*
* Parameters:
* Type [in] -- CREATE, SET, CLOSE, OPEN
*
* Param2 [in] -- If CREATE - FileName with path
* If SET - Control Name
* If CLOSE - BLANK
* If OPEN - BLANK
*
* Param3 [in] -- If CREATE - BLANK
* If SET - Value to Set Control to
* If CLOSE or OPEN - BLANK
*
* Returns:
* Nothing
*
* History (Date, Initials, Notes)
* 07/24/07 CWB Original Programmer
*
************************************************************************************************
COMMON /%%FDF_PDF%%/ FileName@,FDFName@,FdfAcX@,myFdf@
DECLARE FUNCTION OleCreateInstance,OleCallMethod

BEGIN CASE

CASE TYPE = 'CREATE'
FdfAcX = OleCreateInstance("FdfApp.FdfApp" )
FdfAcX@ = FdfAcX
myFdf = OleCallMethod(FdfAcX,'FDFCreate')
myFdf@ = myFdf
FileName@ = Param2

CASE TYPE = 'SET'
ret = OleCallMethod(myFdf@,'fdfsetvalue',Param2,Param3, 0)

CASE TYPE = 'CLOSE'
ret = OleCallMethod(myFdf@,'FDFSetFile',FileName@)
ret = OleCallMethod(myFdf@, 'FDFSaveToFile',{PATH}:FileName )
ret = OleCallMethod(myFdf@,'fdfclose')

CASE TYPE = 'OPEN'
program= {PATH}:Filename
mode=3
rv=Utility("RUNWIN",program,mode)

END CASE

return

Configuring OECGI2

zapher67 — Wed, 12 Mar 2008 16:45:52 CDT

White paper discussing how to install and configure the OECGI2 gateway on IIS and apache.

See also the whitepaper on installing and running the oeSocketServer service and the Prototype Ajax Framework Example .

Installing and running the oeSocketServer Service

zapher67 — Wed, 12 Mar 2008 16:45:11 CDT

A whitepaper discussing how to install and run the oeSocketServer service.

See also the white paper on Configuring OECGI2 and the Proptype Ajax Framework example

Rev Guy Reveals No1. Promoted Events

zapher67 — Wed, 12 Mar 2008 16:43:35 CDT

Backgound information on Event Processing in OpenInsight and covers how to create a promoted event.

Popups under Control/EdiTable cell

BarryStevens — Sun, 09 Mar 2008 17:32:23 CDT

This function will call a popup and place it under a control or EditTable cell.
the value will be returned to the control; OR the calling ssp only ( NoCtrlRet)

Can be used as a quickevent.

Whitepapers

zapher67 — Sun, 02 Mar 2008 15:13:49 CST

A collection of whitepapers on various OpenInsight topics.

Mail

zapher67 — Thu, 21 Feb 2008 15:05:44 CST

There is no abstract available for this page revision.

Sending and receiving e-mail using MAPI

zapher67 — Tue, 19 Feb 2008 15:16:27 CST

This whitepaper covers everything you need to know about sending and receiving e-mail via the MAPI interface built in to OpenInsight since v3.5x.

RGD LatLong Conversion

zapher67 — Tue, 19 Feb 2008 15:12:19 CST

Function to convert latitude and longitude between degrees minutes and seconds and decimal format.

Pass the latitude and longitude in either format to this function and it will return the other format.

Handy for mapping applications.

Source code attached below.

Prototypejs Ajax Framework Examples

zapher67 — Wed, 13 Feb 2008 23:24:42 CST

An easy to use and powerful AJAX framework with event processing. Prototypejs is the base AJAX framework for script.aculo.us, which then integrates with other web development environments like Ruby On Rails, perl, PHP etc.

Visit www.prototypejs.org for more information about prototypejs. You can view some great screencast tutorials about using prototypejs at www.peepcode.com which explain in great detail how to create event driven AJAX applications using prototypejs.

Attached below are some example html pages that use prototypejs and oecgi2.exe to create dynamic web 2.0 content.

The AJAX is triggered by events that occur in the HTML pages, like a click on a link, or an onBlur (lostfocus for us OI developers) on a text input control, so this is similar to the event processing in OpenInsight forms, and should be easily understood by OpenInsight developers.

The examples assume that you have OECGI2.EXE installed and configured to access the EXAMPLES application. Attached are two white papers explaining how to install and configure OECGI2 and the OESocketServer service. OECGI2.EXE was introduced in OpenInsight V7.1.

These examples would also work well with OECGI.EXE, which was released with OpenInsight 3.7x and above, but you will need to edit the HTML pages and replace OECGI2.EXE with OECGI.EXE, and install and configure OECGI.EXE. See the OpenInsight help files for more information on installing and configuring OECGI.EXE. It is recomended to use OECGI2.EXE though.

There are two simple OpenInsight procedures to install and compile into the EXAMPLES application (source code included). Apart from that, these examples are using the standard OpenInsight EXAMPLES application.

The HTML pages have been designed to work in nearly all browers, even those that do not support javascript. But, of course, for non-javascipt enabled browsers, the AJAX event processing does not work. The pages will still work, and act as traditional HTML pages, where the whole page will be refreshed.

The examples should work on most web servers. They have been tested on Microsoft IIS server (Windows XP, Windows 2003 Server) and apache.

Please see the readme.txt file contained in the zip file below for more information on setup and running the examples.

RGD Change App

zapher67 — Wed, 13 Feb 2008 20:35:45 CST

This utility will help you move OpenInsight entities from one application to another.

E.G. move a window/procedure/popup etc from one application to another.

To change an entities application, you do the following:

1. Create an RDK deployment of the entities you want to change
2. run the RGD_CHANGEAPP form to change the application name
3. RDKinstall the changed entities into the new application.

Attached below is a zipped RDK install of the form RGD_CHANGEAPP and the stored procedure RGD_CHANGEAPP. (Both get installed into SYSPROG)

To run the RGD_CHANGEAPP window, type the following into the SYSTEM MONITOR

EXEC RGD_CHANGEAPP.

NOTE

Please ensure that you have a backup of the entities before you change the application name.

RGD Calculate GST

zapher67 — Wed, 13 Feb 2008 19:08:27 CST

Use this function to calculate the value of tax (gst, vat) for a given amount.

The amount can include or exclude the tax amount, and the ex-tax amount is returned as well.

You can round the tax amount by specifying a rounding value, for example, to round to the nearest 5 cents pass 5 as the rounding value.

::Example::

amount = 11000 ;* dollar value of the amount to calculate the tax on, in cents (MD2)
type = "I" ;* does the amount include or exclude the tax (I for include, E for exclude)
taxRate = "10%" ;* the tax rate, can be passed as 10% or 10 or 0.01
rounding = 5 ;* round the tax amount to the nearest 5 cents.

taxAmount = rgd_calculate_GST(amount,type,taxRate,rounding,exTaxAmount)

* taxAmount will be set to 1000 (in cents MD2)
* exTaxAmount will be set to 10000 (in cents MD2)

source code attached below.

StartMdichild

BarryStevens — Tue, 12 Feb 2008 15:39:10 CST

There was a problem with start_mdichild in the days up to and including (I think) 7.0, where any new mdi child widows would display starting from the cascade location of the last mdi child position, even if there were no mdi child windows open. ie. you could get a windows in the middle of your mdi.

Note: This routine works in versions from 4.0 to current 8.0

This routine will use the next available cascade position starting from the TopLeft pos.

Create this in the SYSPROG account.
In the form designer, quickevent event select "Start mdichild window" and change START_MDICHILD to STARTMDICHILD


	function StartMDIChild(mdichildgroupID, mdiframeID, createparam, mdichildinstanceID, mdichildtitle, initialappearancemode , initx, inity, winStruct) declare function utility, fieldcount, get_property, start_mdichild InitUsed='' AllChildWindows = Utility('OBJECTLIST', 'MAINMENU', 'WINDOW') Cnt = fieldcount(AllChildWindows,@fm) for X = 1 to Cnt Size=get_property(AllChildWindows, "SIZE") InitUsed<-1> = Size<1> next X Ok=0 InitX=0 loop until Ok locate InitX in InitUsed using @fm setting foo then InitX+=22 end else Ok=1 end repeat InitY=InitX WinId= Start_MDIChild(mdichildgroupID, mdiframeID, createparam, mdichildinstanceID, mdichildtitle, initialappearancemode, initx, inity,WinStruct) return WinId

RGD Window Place

zapher67 — Mon, 11 Feb 2008 17:36:10 CST

This routine places a window on the screen at a specified x and y position.

You can specify the X and Y position explicitly, or you can center the window inside it's parent or center the window in the desktop.

You usually call this routine from the create event for the window. The windows visible property should be set to not visible, so that the window is moved into position before it is displayed on the screen.

Source code attached below.