jbratu

## YOUR_WINDOW_NAME_EVENTS.bp
Function YOUR_WINDOW_NAME_EVENTS(CtrlEntID,Event,Param1,Param2,Param3,Param4,Param5,Param6,Param7,Param8)
//To use replace YOUR_WINDOW_NAME with your window's form name
*
* Blank Commuter Module
*
Declare Subroutine Msg, FsMsg, Set_Status, Set_Property

Declare Function Msg, Get_Property, Get_Status, Set_Property, Popup
Declare Function  Repository, Send_Message, Send_Event, Unassigned, Utility, XLate
Declare Function  ContextMenu

## popup_literal_example.bp
$Insert POPUP_EQUATES
Declare Function Popup

PopDisp = ''
PopDisp<PCOL$> = -1
PopDisp<PROW$> = -1
PopDisp<PWIDTH$> = -1
PopDisp<PHEIGHT$> = -1
PopDisp<PFILE$> = ''
PopDisp<PMODE$> = 'L'

## O4W_CS_TEST_DIALOG_HELLOWORLD.oibp
Subroutine O4W_CS_TEST_DIALOG_HELLO_WORLD(CtrlEntId, Event, Request)

$Insert O4WEquates
$Insert O4WCommon

BEGIN Case
	CASE EVENT _EQC "CREATE"

		O4WForm()
		O4WHeader("Hello World Example")

## CS_GetCompileDate.oibp
Function CS_GetCompileDate(Routine)
*
* Read a compiled routine and extract the last compiled date and time stamp.
*
* Params:
* Routine - Name of the routine in the current OI application
*
* Returns:
* Displays the date time in a message box. Also returns the value.
*

## OPENINSIGHT_ROUTINE_LIB.oibp
Function OPENINSIGHT_ROUTINE_LIB(inMethod, Param1, Param2, Param3, Param4, Param5, Param6, outValue,outStat)
//To USE: Find and replace OPENINSIGHT_ROUTINE with your routine name
/*
	Function: OPENINSIGHT_ROUTINE_LIB

>OPENINSIGHT_ROUTINE_LIB(inMethod, Param1, Param2, Param3, Param4, outValue,outStat)

General purpose library

	Parameters:

## OpenInsight Protect Active List
//Original source: http://www.sprezzatura.com/library/whitepapers/OI%20Coding%20Standards%20v1%200%207.pdf
//Protect any active select list. Pop it at end of routine.
saveAtDict_      = @dict
saveAtRecord_    = @record
saveAtID_        = @id
saveAtRecCount_  = @recCount
saveAtRnCounter_ = @rn.Counter
A_ = 0 ; B_ = 0 ; C_ = 0 ; D_ = 0
call push.Select( A_, B_, C_, D_ )

## bind plugin to button snippet.oibp
O4WButton("Hello World", "BTN_HELLO_WORLD")
O4WQualifyEvent("BTN_HELLO_WORLD", "CLICK")
//Bind the sayhello plugin to the button
O4WPlugin("BTN_HELLO_WORLD", "sayhello", "")

## CS_TransposeSort.oibp
Function CS_TransposeSort(A, Bys, Justs)

Declare Subroutine V119

ARowCount = DCOUNT(A<1>, @VM)
AColCount = DCount(A, @FM)

ATransposed = ''

*Transpose it for use with V119

## CS_TEST_MSG_GASGAUGE.oibp
Subroutine CS_TEST_MSG_GASGAUGE(void)
$Insert Msg_Equates

//Number of example processing loops
MAX_LOOPS = 1000

def = ''
def<MCAPTION$> = 'Gas Guage with Cancel Button'
def<MTYPE$> = 'GCU'
def<MTEXT$> = 'Initializing...'

## CS_SNIP_CreateCopy_ReadNext.oibp
Subroutine CS_SNIP_CreateCopy_ReadNext(void)

Declare Subroutine Set_Status, create_Table,Msg,attach_table
declare function Set_FSError,Msg
$Insert Logical

*Source table to copy from
TABLE_NAME = "CUSTOMERS"

*Destination table to create and copy to
	Function YOUR_WINDOW_NAME_EVENTS(CtrlEntID,Event,Param1,Param2,Param3,Param4,Param5,Param6,Param7,Param8)
	//To use replace YOUR_WINDOW_NAME with your window's form name
	*
	* Blank Commuter Module
	*
	Declare Subroutine Msg, FsMsg, Set_Status, Set_Property

	Declare Function Msg, Get_Property, Get_Status, Set_Property, Popup
	Declare Function Repository, Send_Message, Send_Event, Unassigned, Utility, XLate
	Declare Function ContextMenu
	$Insert POPUP_EQUATES
	Declare Function Popup

	PopDisp = ''
	PopDisp<PCOL$> = -1
	PopDisp<PROW$> = -1
	PopDisp<PWIDTH$> = -1
	PopDisp<PHEIGHT$> = -1
	PopDisp<PFILE$> = ''
	PopDisp<PMODE$> = 'L'
	Subroutine O4W_CS_TEST_DIALOG_HELLO_WORLD(CtrlEntId, Event, Request)

	$Insert O4WEquates
	$Insert O4WCommon

	BEGIN Case
	CASE EVENT _EQC "CREATE"

	O4WForm()
	O4WHeader("Hello World Example")
	Function CS_GetCompileDate(Routine)
	*
	* Read a compiled routine and extract the last compiled date and time stamp.
	*
	* Params:
	* Routine - Name of the routine in the current OI application
	*
	* Returns:
	* Displays the date time in a message box. Also returns the value.
	*
	Function OPENINSIGHT_ROUTINE_LIB(inMethod, Param1, Param2, Param3, Param4, Param5, Param6, outValue,outStat)
	//To USE: Find and replace OPENINSIGHT_ROUTINE with your routine name
	/*
	Function: OPENINSIGHT_ROUTINE_LIB

	>OPENINSIGHT_ROUTINE_LIB(inMethod, Param1, Param2, Param3, Param4, outValue,outStat)

	General purpose library

	Parameters:
	//Original source: http://www.sprezzatura.com/library/whitepapers/OI%20Coding%20Standards%20v1%200%207.pdf
	//Protect any active select list. Pop it at end of routine.
	saveAtDict_ = @dict
	saveAtRecord_ = @record
	saveAtID_ = @id
	saveAtRecCount_ = @recCount
	saveAtRnCounter_ = @rn.Counter
	A_ = 0 ; B_ = 0 ; C_ = 0 ; D_ = 0
	call push.Select( A_, B_, C_, D_ )
	O4WButton("Hello World", "BTN_HELLO_WORLD")
	O4WQualifyEvent("BTN_HELLO_WORLD", "CLICK")
	//Bind the sayhello plugin to the button
	O4WPlugin("BTN_HELLO_WORLD", "sayhello", "")
	Function CS_TransposeSort(A, Bys, Justs)

	Declare Subroutine V119

	ARowCount = DCOUNT(A<1>, @VM)
	AColCount = DCount(A, @FM)

	ATransposed = ''

	*Transpose it for use with V119
	Subroutine CS_TEST_MSG_GASGAUGE(void)
	$Insert Msg_Equates

	//Number of example processing loops
	MAX_LOOPS = 1000

	def = ''
	def<MCAPTION$> = 'Gas Guage with Cancel Button'
	def<MTYPE$> = 'GCU'
	def<MTEXT$> = 'Initializing...'
	Subroutine CS_SNIP_CreateCopy_ReadNext(void)

	Declare Subroutine Set_Status, create_Table,Msg,attach_table
	declare function Set_FSError,Msg
	$Insert Logical

	*Source table to copy from
	TABLE_NAME = "CUSTOMERS"

	*Destination table to create and copy to