fixed material track report, Mona_Services HTTP call, and COC file generation
This commit is contained in:
MESOISYSADMIN
committed by
Infineon\StieberD
Infineon\StieberD
parent
7762b129af
commit
a8a9e91d04
@ -1,17 +1,17 @@
|
||||
compile insert CHANGE_LOG_EQUATES
|
||||
/*----------------------------------------
|
||||
Author : Table Create Insert Routine
|
||||
Written : 18/07/2024
|
||||
Description : Insert for Table CHANGE_LOG
|
||||
----------------------------------------*/
|
||||
|
||||
|
||||
Equ CHANGE_LOG_CHANGE_ID$ To 0
|
||||
Equ CHANGE_LOG_CHANGE_DTM$ To 1
|
||||
Equ CHANGE_LOG_APPLICATION$ To 2
|
||||
Equ CHANGE_LOG_ENTITY_TYPE$ To 3
|
||||
Equ CHANGE_LOG_ENTITY_CLASS$ To 4
|
||||
Equ CHANGE_LOG_ENTITY_NAME$ To 5
|
||||
Equ CHANGE_LOG_UPDATED_BY$ To 6
|
||||
Equ CHANGE_LOG_ENVIRONMENT$ To 7
|
||||
|
||||
compile insert CHANGE_LOG_EQUATES
|
||||
/*----------------------------------------
|
||||
Author : Table Create Insert Routine
|
||||
Written : 18/07/2024
|
||||
Description : Insert for Table CHANGE_LOG
|
||||
----------------------------------------*/
|
||||
|
||||
|
||||
Equ CHANGE_LOG_CHANGE_ID$ To 0
|
||||
Equ CHANGE_LOG_CHANGE_DTM$ To 1
|
||||
Equ CHANGE_LOG_APPLICATION$ To 2
|
||||
Equ CHANGE_LOG_ENTITY_TYPE$ To 3
|
||||
Equ CHANGE_LOG_ENTITY_CLASS$ To 4
|
||||
Equ CHANGE_LOG_ENTITY_NAME$ To 5
|
||||
Equ CHANGE_LOG_UPDATED_BY$ To 6
|
||||
Equ CHANGE_LOG_ENVIRONMENT$ To 7
|
||||
|
||||
|
||||
@ -1,12 +1,12 @@
|
||||
compile insert ENGINE_HEALTH_EQUATES
|
||||
/*----------------------------------------
|
||||
Author : Table Create Insert Routine
|
||||
Written : 05/02/2010
|
||||
Description : Insert for Table EMAIL_BOX
|
||||
----------------------------------------*/
|
||||
|
||||
EQU ENGINE_HEALTH_ENGINE_ID$ to 1
|
||||
EQU ENGINE_HEALTH_LAST_RUN_DTM$ to 2
|
||||
EQU ENGINE_HEALTH_MINUTES_SINCE_LAST_RUN$ to 3
|
||||
EQU ENGINE_HEALTH_HEALTH_STATUS$ to 4
|
||||
|
||||
compile insert ENGINE_HEALTH_EQUATES
|
||||
/*----------------------------------------
|
||||
Author : Table Create Insert Routine
|
||||
Written : 05/02/2010
|
||||
Description : Insert for Table EMAIL_BOX
|
||||
----------------------------------------*/
|
||||
|
||||
EQU ENGINE_HEALTH_ENGINE_ID$ to 1
|
||||
EQU ENGINE_HEALTH_LAST_RUN_DTM$ to 2
|
||||
EQU ENGINE_HEALTH_MINUTES_SINCE_LAST_RUN$ to 3
|
||||
EQU ENGINE_HEALTH_HEALTH_STATUS$ to 4
|
||||
|
||||
|
||||
@ -20,7 +20,7 @@ Declare function NDW_Messaging_Processor_Events, RetStack, SRP_Encode, SRP_De
|
||||
Declare subroutine Error_Services, Messaging_Services, Memory_Services, SRP_JSON, SRP_COM
|
||||
Declare subroutine NDW_Messaging_Processor_Events, SRP_Stopwatch, Send_Event, Send_Message, RTP27
|
||||
|
||||
Equ Server.Name$ to 'MESTSA01EC'
|
||||
Equ Server.Name$ to 'MESSA01EC'
|
||||
Equ Server.Port$ to 25000
|
||||
Equ Server.KeepAlive$ to 60000
|
||||
Equ MessageProcessor$ to 'NDW_MESSAGING_PROCESSOR'
|
||||
|
||||
@ -1,38 +1,38 @@
|
||||
compile insert REACTOR_DAILY_UPTIME_EQUATES
|
||||
/*----------------------------------------
|
||||
Author : Table Create Insert Routine
|
||||
Written : 21/08/2024
|
||||
Description : Insert for Table REACTOR_DAILY_UPTIME
|
||||
----------------------------------------*/
|
||||
|
||||
|
||||
Equ REACTOR_DAILY_UPTIME_DATE$ To 0
|
||||
Equ REACTOR_DAILY_UPTIME_REACT_TYPE$ To 0
|
||||
Equ REACTOR_DAILY_UPTIME_TOTAL_PROD_PERCENTAGE$ To 1
|
||||
Equ REACTOR_DAILY_UPTIME_TOTAL_PROD_MINUTES$ To 2
|
||||
Equ REACTOR_DAILY_UPTIME_TOTAL_ENG_PERCENTAGE$ To 3
|
||||
Equ REACTOR_DAILY_UPTIME_TOTAL_ENG_MINUTES$ To 4
|
||||
Equ REACTOR_DAILY_UPTIME_TOTAL_DOWN_UNSCHED_PERCENTAGE$ To 5
|
||||
Equ REACTOR_DAILY_UPTIME_TOTAL_DOWN_UNSCHED_MINUTES$ To 6
|
||||
Equ REACTOR_DAILY_UPTIME_TOTAL_DOWN_SCHED_PERCENTAGE$ To 7
|
||||
Equ REACTOR_DAILY_UPTIME_TOTAL_DOWN_SCHED_MINUTES$ To 8
|
||||
Equ REACTOR_DAILY_UPTIME_INCL_REACTORS$ To 9
|
||||
Equ REACTOR_DAILY_UPTIME_INCL_REACTOR_PROD_PERCENTAGE$ To 10
|
||||
Equ REACTOR_DAILY_UPTIME_INCL_REACTOR_PROD_MINUTES$ To 11
|
||||
Equ REACTOR_DAILY_UPTIME_INCL_REACTOR_ENG_PERCENTAGE$ To 12
|
||||
Equ REACTOR_DAILY_UPTIME_INCL_REACTOR_ENG_MINUTES$ To 13
|
||||
Equ REACTOR_DAILY_UPTIME_INCL_REACTOR_DOWN_UNSCHED_PERCENTAGE$ To 14
|
||||
Equ REACTOR_DAILY_UPTIME_INCL_REACTOR_DOWN_UNSCHED_MINUTES$ To 15
|
||||
Equ REACTOR_DAILY_UPTIME_INCL_REACTOR_DOWN_SCHED_PERCENTAGE$ To 16
|
||||
Equ REACTOR_DAILY_UPTIME_INCL_REACTOR_DOWN_SCHED_MINUTES$ To 17
|
||||
Equ REACTOR_DAILY_UPTIME_INCL_REACTOR_IDLE_PERCENTAGE$ To 18
|
||||
Equ REACTOR_DAILY_UPTIME_INCL_REACTOR_IDLE_MINUTES$ To 19
|
||||
Equ REACTOR_DAILY_UPTIME_EXCLUDED_REACTORS$ To 20
|
||||
Equ REACTOR_DAILY_UPTIME_TOTAL_UPTIME_PERCENTAGE$ To 21
|
||||
Equ REACTOR_DAILY_UPTIME_TOTAL_IDLE_PERCENTAGE$ To 22
|
||||
Equ REACTOR_DAILY_UPTIME_TOTAL_IDLE_MINUTES$ To 23
|
||||
Equ REACTOR_DAILY_UPTIME_TOTAL_UPTIME_MINUTES$ To 24
|
||||
Equ REACTOR_DAILY_UPTIME_TOTAL_AVAIL_MINUTES$ To 25
|
||||
Equ REACTOR_DAILY_UPTIME_INCL_REACTOR_SINGLE_LL$ To 26
|
||||
Equ REACTOR_DAILY_UPTIME_TOTAL_SINGLE_LL$ To 27
|
||||
|
||||
compile insert REACTOR_DAILY_UPTIME_EQUATES
|
||||
/*----------------------------------------
|
||||
Author : Table Create Insert Routine
|
||||
Written : 21/08/2024
|
||||
Description : Insert for Table REACTOR_DAILY_UPTIME
|
||||
----------------------------------------*/
|
||||
|
||||
|
||||
Equ REACTOR_DAILY_UPTIME_DATE$ To 0
|
||||
Equ REACTOR_DAILY_UPTIME_REACT_TYPE$ To 0
|
||||
Equ REACTOR_DAILY_UPTIME_TOTAL_PROD_PERCENTAGE$ To 1
|
||||
Equ REACTOR_DAILY_UPTIME_TOTAL_PROD_MINUTES$ To 2
|
||||
Equ REACTOR_DAILY_UPTIME_TOTAL_ENG_PERCENTAGE$ To 3
|
||||
Equ REACTOR_DAILY_UPTIME_TOTAL_ENG_MINUTES$ To 4
|
||||
Equ REACTOR_DAILY_UPTIME_TOTAL_DOWN_UNSCHED_PERCENTAGE$ To 5
|
||||
Equ REACTOR_DAILY_UPTIME_TOTAL_DOWN_UNSCHED_MINUTES$ To 6
|
||||
Equ REACTOR_DAILY_UPTIME_TOTAL_DOWN_SCHED_PERCENTAGE$ To 7
|
||||
Equ REACTOR_DAILY_UPTIME_TOTAL_DOWN_SCHED_MINUTES$ To 8
|
||||
Equ REACTOR_DAILY_UPTIME_INCL_REACTORS$ To 9
|
||||
Equ REACTOR_DAILY_UPTIME_INCL_REACTOR_PROD_PERCENTAGE$ To 10
|
||||
Equ REACTOR_DAILY_UPTIME_INCL_REACTOR_PROD_MINUTES$ To 11
|
||||
Equ REACTOR_DAILY_UPTIME_INCL_REACTOR_ENG_PERCENTAGE$ To 12
|
||||
Equ REACTOR_DAILY_UPTIME_INCL_REACTOR_ENG_MINUTES$ To 13
|
||||
Equ REACTOR_DAILY_UPTIME_INCL_REACTOR_DOWN_UNSCHED_PERCENTAGE$ To 14
|
||||
Equ REACTOR_DAILY_UPTIME_INCL_REACTOR_DOWN_UNSCHED_MINUTES$ To 15
|
||||
Equ REACTOR_DAILY_UPTIME_INCL_REACTOR_DOWN_SCHED_PERCENTAGE$ To 16
|
||||
Equ REACTOR_DAILY_UPTIME_INCL_REACTOR_DOWN_SCHED_MINUTES$ To 17
|
||||
Equ REACTOR_DAILY_UPTIME_INCL_REACTOR_IDLE_PERCENTAGE$ To 18
|
||||
Equ REACTOR_DAILY_UPTIME_INCL_REACTOR_IDLE_MINUTES$ To 19
|
||||
Equ REACTOR_DAILY_UPTIME_EXCLUDED_REACTORS$ To 20
|
||||
Equ REACTOR_DAILY_UPTIME_TOTAL_UPTIME_PERCENTAGE$ To 21
|
||||
Equ REACTOR_DAILY_UPTIME_TOTAL_IDLE_PERCENTAGE$ To 22
|
||||
Equ REACTOR_DAILY_UPTIME_TOTAL_IDLE_MINUTES$ To 23
|
||||
Equ REACTOR_DAILY_UPTIME_TOTAL_UPTIME_MINUTES$ To 24
|
||||
Equ REACTOR_DAILY_UPTIME_TOTAL_AVAIL_MINUTES$ To 25
|
||||
Equ REACTOR_DAILY_UPTIME_INCL_REACTOR_SINGLE_LL$ To 26
|
||||
Equ REACTOR_DAILY_UPTIME_TOTAL_SINGLE_LL$ To 27
|
||||
|
||||
|
||||
@ -1,207 +1,207 @@
|
||||
compile insert SRP_EDITOR_TEMP_MSG_EQUATES_SYSPROG
|
||||
|
||||
******************************************************************************
|
||||
*
|
||||
* Product : OpenInsight for Workgroups
|
||||
* Version : 3.5
|
||||
*
|
||||
* History : (date, initials, notes)
|
||||
* 12/15/95 apk Original programmer.
|
||||
* 02/26/96 cp Changed OK return value to "" from 0 (backwards compat.)
|
||||
* 03/28/96 cp Added MHELP$, MREQRESP$, and MBEEP$ fields
|
||||
* Commented message structure and instructions
|
||||
* 06/24/97 cp Added G (gauge) type, removed unused equates
|
||||
******************************************************************************
|
||||
|
||||
declare subroutine Msg ;* Msg(Parent, MsgDef [, MsgKey, Instruction, Params])
|
||||
declare function Msg ;* Ans = Msg(Parent, MsgDef [, MsgKey, Instruction, Params])
|
||||
|
||||
* message structure field definitions
|
||||
equ MTEXT$ to 1 ;* the text to display in the message, multiple lines delimited by @tm, cr/lf, or "|"
|
||||
equ MTYPE$ to 2 ;* the message type, defaults to "BO" (see below)
|
||||
equ MMODAL$ to 3 ;* modality of message, defaults to "A" (see below)
|
||||
equ MICON$ to 4 ;* icon to display (see below)
|
||||
equ MDEFBTN$ to 5 ;* default button (1 for first, 2 for second, etc.)
|
||||
equ MCOL$ to 6 ;* message h-pos in pixels, or -2 (center screen, the default), -1 (center parent)
|
||||
equ MROW$ to 7 ;* message v-pos in pixels
|
||||
equ MJUST$ to 8 ;* justification: T (text, the default), L (left), R (right), C (center)
|
||||
equ MBKCOLOR$ to 9 ;* background color (RGB value, @vm-delimited), see Utility("CHOOSECOLOR")
|
||||
equ MFGCOLOR$ to 10 ;* foreground color (RGB value, @vm-delimited), see Utility("CHOOSECOLOR")
|
||||
equ MTEXTWIDTH$ to 11 ;* the message width (or the response field width for response messages)
|
||||
equ MCAPTION$ to 12 ;* the message title
|
||||
equ MVALID$ to 13 ;* for response messages, this is the validation pattern (ie. (MD0) for integer)
|
||||
equ MDEFINPUT$ to 14 ;* for reponse messages, this is the default response
|
||||
equ MMASKINPUT$ to 15 ;* boolean, true for password (masked) input, false (default) for readable input
|
||||
equ MBITMAP$ to 16 ;* name of a bitmap registered in repository (as it appears in the outliner)
|
||||
equ MCLIPBMP$ to 17 ;* boolean, true to clip bitmaps, false to resize (see IMAGECLIP property)
|
||||
equ MFONT$ to 18 ;* font structure for the text of the message
|
||||
equ MLITERAL$ to 19 ;* boolean, defaults to false, true specifies that default value is a function (see below)
|
||||
equ MHELP$ to 20 ;* help button, Type:@vm:Specifier:@vm:Text (see below), defaults to null (no help)
|
||||
equ MREQRESP$ to 21 ;* boolean, for type "R" messages, false allows nulls (default) while true doesn't
|
||||
equ MBEEP$ to 22 ;* integer, specifies beep (see MessageBeep in the Windows API)
|
||||
equ MEXTENT$ to 23 ;* integer, specifies extent of the gauge (number of items to process for type="G")
|
||||
equ MNUMFIELDS$ to 23
|
||||
|
||||
|
||||
* MTYPE$ details:
|
||||
*
|
||||
* there are six base types, B (buttons), R (response), U (up), and D (down),
|
||||
* T (timed), and G (gauge)
|
||||
*
|
||||
* the button type has several pre-defined button sets which are localized
|
||||
* using entries from the SYSTEM_RESOURCES record in the SYSENV table; for
|
||||
* non-standard labels, the buttons can be specified in a comma-delimited
|
||||
* list, like "B&One,&Two,&Three" (where the & specifies the accelerator)
|
||||
*
|
||||
* B Type Description
|
||||
* ------ --------------------
|
||||
* BO OK
|
||||
* BOC OK/Cancel
|
||||
* BNY Yes/No
|
||||
* BNYC Yes/No/Cancel
|
||||
* BRC Retry/Cancel
|
||||
* BAR Abort/Retry
|
||||
* BARI Abort/Retry/Ignore
|
||||
* B{list} User-defined buttons
|
||||
*
|
||||
* the response type displays an edit field and OK and Cancel buttons;
|
||||
* the optional sub-types are C (upper-case only) and E (escape or
|
||||
* cancel button returns escape character instead of default response);
|
||||
* for example, the following types are valid: "R", "RC", "RE", "RCE"
|
||||
*
|
||||
* for B and R types, the type can be preceded with an N to specify that
|
||||
* the default value for the message is to be returned without the message
|
||||
* being displayed; this is one way to change messages from interactive
|
||||
* to non-interactive for batch processes; for example, instead of "BARI",
|
||||
* pass "NBARI" (meaning don't display the abort/retry/ignore message)
|
||||
*
|
||||
* to display a message while processing, use the "U" type:
|
||||
*
|
||||
* Def = ""
|
||||
* Def<MTEXT$> = "Processing..."
|
||||
* Def<MTYPE$> = "U"
|
||||
* MsgUp = Msg(@window, Def) ;* display the processing message
|
||||
* ...
|
||||
* Msg(@window, MsgUp) ;* take down the processing message
|
||||
*
|
||||
* to display a message for a specific length of time, use the "T" type:
|
||||
*
|
||||
* Def = ""
|
||||
* Def<MTEXT$> = "Waiting..."
|
||||
* Def<MTYPE$> = "T2" ;* 2-second message
|
||||
* Msg(@window, Def)
|
||||
*
|
||||
* the optional sub-type for T type is A (asynchronous), which displays
|
||||
* the message and returns (allowing processing to continue) and takes
|
||||
* the message down after the specified period of time; since this relies
|
||||
* on a timer event, your event code must either complete within the
|
||||
* specified period of time or you must regularly use Yield() to allow
|
||||
* the processing of posted events (like the timer):
|
||||
*
|
||||
* Def = ""
|
||||
* Def<MTYPE$> = "TA5" ;* 5-second splash-screen
|
||||
* Msg(@window, Def, "SPLASHSCREEN")
|
||||
* loop
|
||||
* Done = AppLogonProcessing()
|
||||
* Yield()
|
||||
* until Done
|
||||
* repeat
|
||||
*
|
||||
* to display a gauge (percent bar), use the "G" type; sub-types are C (show
|
||||
* cancel button) and Y (yield on each cycle):
|
||||
*
|
||||
* Def = ""
|
||||
* Def<MCAPTION$> = "Processing Orders..."
|
||||
* Def<MTYPE$ > = "GC"
|
||||
* Def<MEXTENT$ > = OrderCnt
|
||||
* MsgUp = Msg(@window, Def)
|
||||
* for Order = 1 to OrderCnt
|
||||
* gosub ProcessOrder
|
||||
* * update the gauge and check if cancel was pressed
|
||||
* while Msg(@window, MsgUp, Order, MSGINSTUPDATE$)
|
||||
* next Order
|
||||
* Msg(@window, MsgUp) ;* take down the gauge
|
||||
|
||||
* MMODAL$ detail:
|
||||
*
|
||||
* Code Modality Description
|
||||
* ----------- ----------- -----------------------------
|
||||
* W Window only the parent is disabled
|
||||
* A (default) Application all OI windows are disabled
|
||||
* S System all applications are disabled
|
||||
|
||||
* MICON$ detail:
|
||||
*
|
||||
* Code Icon
|
||||
* ---- ---------------
|
||||
* null None
|
||||
* * Asterisk (Info)
|
||||
* ? Question
|
||||
* ! Exclaim (Warning)
|
||||
* H Halt (Stop sign)
|
||||
* B User-specified bitmap (specified in MBITMAP$ field)
|
||||
|
||||
* MLITERAL$ details (applies only to response type messages):
|
||||
*
|
||||
* if MLITERAL$ is true, the Msg() function assumes that the default value is
|
||||
* the name of a function which returns the default value for the message;
|
||||
* for example, if you wrote a function called CURRENTUSER which returned
|
||||
* the user name of the current user, you could specify CURRENTUSER as the
|
||||
* default value (MDEFINPUT$) and set MLITERAL$ to true, so that the current
|
||||
* user name would be the default value for the message; parameters are
|
||||
* passed to the specified function depending on the number of parameters
|
||||
* that are supported by the function:
|
||||
*
|
||||
* # Params Values Passed
|
||||
* --------- --------------
|
||||
* 0 None
|
||||
* 1 MsgKey
|
||||
* 2 or more MsgKey, MsgDef
|
||||
|
||||
* MHELP$ details:
|
||||
*
|
||||
* Type Description Specifier
|
||||
* ---- ------------- -----------------
|
||||
* Q QuickHelp (AppNote) Name of AppNote
|
||||
* M Message Name of Message
|
||||
* H WinHelp HelpFile,HelpID
|
||||
* S Stored Procedure ProcName[,Param1]
|
||||
*
|
||||
* Note: Specify the AppNote, Message, HelpFile, or ProcName as it appears
|
||||
* in the repository outliner. For example, the OINSIGHT.HLP file is
|
||||
* registered as OINSIGHT, so specify the HelpFile as "OINSIGHT" (look
|
||||
* in the outline under "General", "Windows Components", "Help Files")
|
||||
*
|
||||
* Text defaults to "&Help" or a localized equivalent
|
||||
|
||||
* Replaceable message parameters:
|
||||
*
|
||||
* Msg(@window, "Hello, %1%, how are you %2%?", "", "", @username: @fm: "today")
|
||||
|
||||
* Msg() function instruction values
|
||||
equ MSGINSTSTART$ to 1 ;* (default instruction)
|
||||
equ MSGINSTREAD$ to 2 ;* bErr = Msg("", MsgDef, MsgID, MSGINSTREAD$)
|
||||
equ MSGINSTWRITE$ to 3 ;* bErr = Msg("", MsgDef, MsgID, MSGINSTWRITE$)
|
||||
equ MSGINSTLOCK$ to 4 ;* bErr = Msg("", "", MsgID, MSGINSTLOCK$)
|
||||
equ MSGINSTUNLOCK$ to 5 ;* bErr = Msg("", "", MsgID, MSGINSTUNLOCK$)
|
||||
equ MSGINSTBUTTON$ to 6 ;* reserved
|
||||
equ MSGINSTCREATE$ to 7 ;* reserved
|
||||
equ MSGINSTRESPCHG$ to 8 ;* reserved
|
||||
equ MSGINSTCLOSE$ to 9 ;* reserved
|
||||
equ MSGINSTTIMER$ to 10 ;* reserved
|
||||
equ MSGINSTHELP$ to 11 ;* reserved
|
||||
equ MSGINSTUPDATE$ to 12 ;* (see above)
|
||||
|
||||
* Msg() function return values from MSGINSTSTART$
|
||||
equ RET_OK$ to ""
|
||||
equ RET_CANCEL$ to \1B\ ;* escape character
|
||||
equ RET_YES$ to 1
|
||||
equ RET_NO$ to 0
|
||||
equ RET_ABORT$ to 1
|
||||
equ RET_RETRY$ to 2
|
||||
equ RET_IGNORE$ to 3
|
||||
|
||||
* misc strings
|
||||
equ MSGTYPE$ to "MSG"
|
||||
equ MSGCLASS$ to ""
|
||||
|
||||
compile insert SRP_EDITOR_TEMP_MSG_EQUATES_SYSPROG
|
||||
|
||||
******************************************************************************
|
||||
*
|
||||
* Product : OpenInsight for Workgroups
|
||||
* Version : 3.5
|
||||
*
|
||||
* History : (date, initials, notes)
|
||||
* 12/15/95 apk Original programmer.
|
||||
* 02/26/96 cp Changed OK return value to "" from 0 (backwards compat.)
|
||||
* 03/28/96 cp Added MHELP$, MREQRESP$, and MBEEP$ fields
|
||||
* Commented message structure and instructions
|
||||
* 06/24/97 cp Added G (gauge) type, removed unused equates
|
||||
******************************************************************************
|
||||
|
||||
declare subroutine Msg ;* Msg(Parent, MsgDef [, MsgKey, Instruction, Params])
|
||||
declare function Msg ;* Ans = Msg(Parent, MsgDef [, MsgKey, Instruction, Params])
|
||||
|
||||
* message structure field definitions
|
||||
equ MTEXT$ to 1 ;* the text to display in the message, multiple lines delimited by @tm, cr/lf, or "|"
|
||||
equ MTYPE$ to 2 ;* the message type, defaults to "BO" (see below)
|
||||
equ MMODAL$ to 3 ;* modality of message, defaults to "A" (see below)
|
||||
equ MICON$ to 4 ;* icon to display (see below)
|
||||
equ MDEFBTN$ to 5 ;* default button (1 for first, 2 for second, etc.)
|
||||
equ MCOL$ to 6 ;* message h-pos in pixels, or -2 (center screen, the default), -1 (center parent)
|
||||
equ MROW$ to 7 ;* message v-pos in pixels
|
||||
equ MJUST$ to 8 ;* justification: T (text, the default), L (left), R (right), C (center)
|
||||
equ MBKCOLOR$ to 9 ;* background color (RGB value, @vm-delimited), see Utility("CHOOSECOLOR")
|
||||
equ MFGCOLOR$ to 10 ;* foreground color (RGB value, @vm-delimited), see Utility("CHOOSECOLOR")
|
||||
equ MTEXTWIDTH$ to 11 ;* the message width (or the response field width for response messages)
|
||||
equ MCAPTION$ to 12 ;* the message title
|
||||
equ MVALID$ to 13 ;* for response messages, this is the validation pattern (ie. (MD0) for integer)
|
||||
equ MDEFINPUT$ to 14 ;* for reponse messages, this is the default response
|
||||
equ MMASKINPUT$ to 15 ;* boolean, true for password (masked) input, false (default) for readable input
|
||||
equ MBITMAP$ to 16 ;* name of a bitmap registered in repository (as it appears in the outliner)
|
||||
equ MCLIPBMP$ to 17 ;* boolean, true to clip bitmaps, false to resize (see IMAGECLIP property)
|
||||
equ MFONT$ to 18 ;* font structure for the text of the message
|
||||
equ MLITERAL$ to 19 ;* boolean, defaults to false, true specifies that default value is a function (see below)
|
||||
equ MHELP$ to 20 ;* help button, Type:@vm:Specifier:@vm:Text (see below), defaults to null (no help)
|
||||
equ MREQRESP$ to 21 ;* boolean, for type "R" messages, false allows nulls (default) while true doesn't
|
||||
equ MBEEP$ to 22 ;* integer, specifies beep (see MessageBeep in the Windows API)
|
||||
equ MEXTENT$ to 23 ;* integer, specifies extent of the gauge (number of items to process for type="G")
|
||||
equ MNUMFIELDS$ to 23
|
||||
|
||||
|
||||
* MTYPE$ details:
|
||||
*
|
||||
* there are six base types, B (buttons), R (response), U (up), and D (down),
|
||||
* T (timed), and G (gauge)
|
||||
*
|
||||
* the button type has several pre-defined button sets which are localized
|
||||
* using entries from the SYSTEM_RESOURCES record in the SYSENV table; for
|
||||
* non-standard labels, the buttons can be specified in a comma-delimited
|
||||
* list, like "B&One,&Two,&Three" (where the & specifies the accelerator)
|
||||
*
|
||||
* B Type Description
|
||||
* ------ --------------------
|
||||
* BO OK
|
||||
* BOC OK/Cancel
|
||||
* BNY Yes/No
|
||||
* BNYC Yes/No/Cancel
|
||||
* BRC Retry/Cancel
|
||||
* BAR Abort/Retry
|
||||
* BARI Abort/Retry/Ignore
|
||||
* B{list} User-defined buttons
|
||||
*
|
||||
* the response type displays an edit field and OK and Cancel buttons;
|
||||
* the optional sub-types are C (upper-case only) and E (escape or
|
||||
* cancel button returns escape character instead of default response);
|
||||
* for example, the following types are valid: "R", "RC", "RE", "RCE"
|
||||
*
|
||||
* for B and R types, the type can be preceded with an N to specify that
|
||||
* the default value for the message is to be returned without the message
|
||||
* being displayed; this is one way to change messages from interactive
|
||||
* to non-interactive for batch processes; for example, instead of "BARI",
|
||||
* pass "NBARI" (meaning don't display the abort/retry/ignore message)
|
||||
*
|
||||
* to display a message while processing, use the "U" type:
|
||||
*
|
||||
* Def = ""
|
||||
* Def<MTEXT$> = "Processing..."
|
||||
* Def<MTYPE$> = "U"
|
||||
* MsgUp = Msg(@window, Def) ;* display the processing message
|
||||
* ...
|
||||
* Msg(@window, MsgUp) ;* take down the processing message
|
||||
*
|
||||
* to display a message for a specific length of time, use the "T" type:
|
||||
*
|
||||
* Def = ""
|
||||
* Def<MTEXT$> = "Waiting..."
|
||||
* Def<MTYPE$> = "T2" ;* 2-second message
|
||||
* Msg(@window, Def)
|
||||
*
|
||||
* the optional sub-type for T type is A (asynchronous), which displays
|
||||
* the message and returns (allowing processing to continue) and takes
|
||||
* the message down after the specified period of time; since this relies
|
||||
* on a timer event, your event code must either complete within the
|
||||
* specified period of time or you must regularly use Yield() to allow
|
||||
* the processing of posted events (like the timer):
|
||||
*
|
||||
* Def = ""
|
||||
* Def<MTYPE$> = "TA5" ;* 5-second splash-screen
|
||||
* Msg(@window, Def, "SPLASHSCREEN")
|
||||
* loop
|
||||
* Done = AppLogonProcessing()
|
||||
* Yield()
|
||||
* until Done
|
||||
* repeat
|
||||
*
|
||||
* to display a gauge (percent bar), use the "G" type; sub-types are C (show
|
||||
* cancel button) and Y (yield on each cycle):
|
||||
*
|
||||
* Def = ""
|
||||
* Def<MCAPTION$> = "Processing Orders..."
|
||||
* Def<MTYPE$ > = "GC"
|
||||
* Def<MEXTENT$ > = OrderCnt
|
||||
* MsgUp = Msg(@window, Def)
|
||||
* for Order = 1 to OrderCnt
|
||||
* gosub ProcessOrder
|
||||
* * update the gauge and check if cancel was pressed
|
||||
* while Msg(@window, MsgUp, Order, MSGINSTUPDATE$)
|
||||
* next Order
|
||||
* Msg(@window, MsgUp) ;* take down the gauge
|
||||
|
||||
* MMODAL$ detail:
|
||||
*
|
||||
* Code Modality Description
|
||||
* ----------- ----------- -----------------------------
|
||||
* W Window only the parent is disabled
|
||||
* A (default) Application all OI windows are disabled
|
||||
* S System all applications are disabled
|
||||
|
||||
* MICON$ detail:
|
||||
*
|
||||
* Code Icon
|
||||
* ---- ---------------
|
||||
* null None
|
||||
* * Asterisk (Info)
|
||||
* ? Question
|
||||
* ! Exclaim (Warning)
|
||||
* H Halt (Stop sign)
|
||||
* B User-specified bitmap (specified in MBITMAP$ field)
|
||||
|
||||
* MLITERAL$ details (applies only to response type messages):
|
||||
*
|
||||
* if MLITERAL$ is true, the Msg() function assumes that the default value is
|
||||
* the name of a function which returns the default value for the message;
|
||||
* for example, if you wrote a function called CURRENTUSER which returned
|
||||
* the user name of the current user, you could specify CURRENTUSER as the
|
||||
* default value (MDEFINPUT$) and set MLITERAL$ to true, so that the current
|
||||
* user name would be the default value for the message; parameters are
|
||||
* passed to the specified function depending on the number of parameters
|
||||
* that are supported by the function:
|
||||
*
|
||||
* # Params Values Passed
|
||||
* --------- --------------
|
||||
* 0 None
|
||||
* 1 MsgKey
|
||||
* 2 or more MsgKey, MsgDef
|
||||
|
||||
* MHELP$ details:
|
||||
*
|
||||
* Type Description Specifier
|
||||
* ---- ------------- -----------------
|
||||
* Q QuickHelp (AppNote) Name of AppNote
|
||||
* M Message Name of Message
|
||||
* H WinHelp HelpFile,HelpID
|
||||
* S Stored Procedure ProcName[,Param1]
|
||||
*
|
||||
* Note: Specify the AppNote, Message, HelpFile, or ProcName as it appears
|
||||
* in the repository outliner. For example, the OINSIGHT.HLP file is
|
||||
* registered as OINSIGHT, so specify the HelpFile as "OINSIGHT" (look
|
||||
* in the outline under "General", "Windows Components", "Help Files")
|
||||
*
|
||||
* Text defaults to "&Help" or a localized equivalent
|
||||
|
||||
* Replaceable message parameters:
|
||||
*
|
||||
* Msg(@window, "Hello, %1%, how are you %2%?", "", "", @username: @fm: "today")
|
||||
|
||||
* Msg() function instruction values
|
||||
equ MSGINSTSTART$ to 1 ;* (default instruction)
|
||||
equ MSGINSTREAD$ to 2 ;* bErr = Msg("", MsgDef, MsgID, MSGINSTREAD$)
|
||||
equ MSGINSTWRITE$ to 3 ;* bErr = Msg("", MsgDef, MsgID, MSGINSTWRITE$)
|
||||
equ MSGINSTLOCK$ to 4 ;* bErr = Msg("", "", MsgID, MSGINSTLOCK$)
|
||||
equ MSGINSTUNLOCK$ to 5 ;* bErr = Msg("", "", MsgID, MSGINSTUNLOCK$)
|
||||
equ MSGINSTBUTTON$ to 6 ;* reserved
|
||||
equ MSGINSTCREATE$ to 7 ;* reserved
|
||||
equ MSGINSTRESPCHG$ to 8 ;* reserved
|
||||
equ MSGINSTCLOSE$ to 9 ;* reserved
|
||||
equ MSGINSTTIMER$ to 10 ;* reserved
|
||||
equ MSGINSTHELP$ to 11 ;* reserved
|
||||
equ MSGINSTUPDATE$ to 12 ;* (see above)
|
||||
|
||||
* Msg() function return values from MSGINSTSTART$
|
||||
equ RET_OK$ to ""
|
||||
equ RET_CANCEL$ to \1B\ ;* escape character
|
||||
equ RET_YES$ to 1
|
||||
equ RET_NO$ to 0
|
||||
equ RET_ABORT$ to 1
|
||||
equ RET_RETRY$ to 2
|
||||
equ RET_IGNORE$ to 3
|
||||
|
||||
* misc strings
|
||||
equ MSGTYPE$ to "MSG"
|
||||
equ MSGCLASS$ to ""
|
||||
|
||||
|
||||
@ -1,20 +1,20 @@
|
||||
compile insert SUPPLEMENTS_EQUATES
|
||||
/*----------------------------------------
|
||||
Author : Table Create Insert Routine
|
||||
Written : 20/03/2024
|
||||
Description : Insert for Table SUPPLEMENTS
|
||||
----------------------------------------*/
|
||||
|
||||
|
||||
Equ SUPPLEMENTS_SUPPL_ID$ To 0
|
||||
Equ SUPPLEMENTS_LOT_TYPE$ To 1
|
||||
Equ SUPPLEMENTS_LOT_ID$ To 2
|
||||
Equ SUPPLEMENTS_STAGE$ To 3
|
||||
Equ SUPPLEMENTS_SUPPL_TEXT$ To 4
|
||||
Equ SUPPLEMENTS_SUPPL_ACK$ To 5
|
||||
Equ SUPPLEMENTS_ACK_USER$ To 6
|
||||
Equ SUPPLEMENTS_ACK_DTM$ To 7
|
||||
Equ SUPPLEMENTS_ENTRY_USER$ To 8
|
||||
Equ SUPPLEMENTS_ENTRY_DATETIME$ To 9
|
||||
|
||||
|
||||
compile insert SUPPLEMENTS_EQUATES
|
||||
/*----------------------------------------
|
||||
Author : Table Create Insert Routine
|
||||
Written : 20/03/2024
|
||||
Description : Insert for Table SUPPLEMENTS
|
||||
----------------------------------------*/
|
||||
|
||||
|
||||
Equ SUPPLEMENTS_SUPPL_ID$ To 0
|
||||
Equ SUPPLEMENTS_LOT_TYPE$ To 1
|
||||
Equ SUPPLEMENTS_LOT_ID$ To 2
|
||||
Equ SUPPLEMENTS_STAGE$ To 3
|
||||
Equ SUPPLEMENTS_SUPPL_TEXT$ To 4
|
||||
Equ SUPPLEMENTS_SUPPL_ACK$ To 5
|
||||
Equ SUPPLEMENTS_ACK_USER$ To 6
|
||||
Equ SUPPLEMENTS_ACK_DTM$ To 7
|
||||
Equ SUPPLEMENTS_ENTRY_USER$ To 8
|
||||
Equ SUPPLEMENTS_ENTRY_DATETIME$ To 9
|
||||
|
||||
|
||||
|
||||
@ -1,14 +1,14 @@
|
||||
compile insert UNLOCK_REQUESTS_EQUATES
|
||||
/*----------------------------------------
|
||||
Author : Table Create Insert Routine
|
||||
Written : 19/03/2024
|
||||
Description : Insert for Table UNLOCK_REQUESTS
|
||||
----------------------------------------*/
|
||||
|
||||
|
||||
Equ UNLOCK_REQUESTS_REQUEST_DATETIME$ To 0
|
||||
Equ UNLOCK_REQUESTS_TABLE_NAME$ To 0
|
||||
Equ UNLOCK_REQUESTS_RECORD_KEY$ To 1
|
||||
Equ UNLOCK_REQUESTS_USER_NAME$ To 2
|
||||
Equ UNLOCK_REQUESTS_SUCCESS$ To 3
|
||||
|
||||
compile insert UNLOCK_REQUESTS_EQUATES
|
||||
/*----------------------------------------
|
||||
Author : Table Create Insert Routine
|
||||
Written : 19/03/2024
|
||||
Description : Insert for Table UNLOCK_REQUESTS
|
||||
----------------------------------------*/
|
||||
|
||||
|
||||
Equ UNLOCK_REQUESTS_REQUEST_DATETIME$ To 0
|
||||
Equ UNLOCK_REQUESTS_TABLE_NAME$ To 0
|
||||
Equ UNLOCK_REQUESTS_RECORD_KEY$ To 1
|
||||
Equ UNLOCK_REQUESTS_USER_NAME$ To 2
|
||||
Equ UNLOCK_REQUESTS_SUCCESS$ To 3
|
||||
|
||||
|
||||
@ -1,17 +1,17 @@
|
||||
compile insert WAFER_COUNTER_EQUATES
|
||||
/*----------------------------------------
|
||||
Author : Table Create Insert Routine
|
||||
Written : 22/03/2024
|
||||
Description : Insert for Table WAFER_COUNTER
|
||||
----------------------------------------*/
|
||||
|
||||
|
||||
Equ WAFER_COUNTER.SCAN_ID$ To 0
|
||||
Equ WAFER_COUNTER.LOT_ID$ To 1
|
||||
Equ WAFER_COUNTER.SCAN_QTY$ To 2
|
||||
Equ WAFER_COUNTER.SCAN_DTM$ To 3
|
||||
Equ WAFER_COUNTER.SCAN_TOOL$ To 4
|
||||
Equ WAFER_COUNTER.SCAN_USER$ To 5
|
||||
Equ WAFER_COUNTER.SCAN_LOCATION$ To 6
|
||||
Equ WAFER_COUNTER.SCAN_WAFER_MAP$ To 7
|
||||
|
||||
compile insert WAFER_COUNTER_EQUATES
|
||||
/*----------------------------------------
|
||||
Author : Table Create Insert Routine
|
||||
Written : 22/03/2024
|
||||
Description : Insert for Table WAFER_COUNTER
|
||||
----------------------------------------*/
|
||||
|
||||
|
||||
Equ WAFER_COUNTER.SCAN_ID$ To 0
|
||||
Equ WAFER_COUNTER.LOT_ID$ To 1
|
||||
Equ WAFER_COUNTER.SCAN_QTY$ To 2
|
||||
Equ WAFER_COUNTER.SCAN_DTM$ To 3
|
||||
Equ WAFER_COUNTER.SCAN_TOOL$ To 4
|
||||
Equ WAFER_COUNTER.SCAN_USER$ To 5
|
||||
Equ WAFER_COUNTER.SCAN_LOCATION$ To 6
|
||||
Equ WAFER_COUNTER.SCAN_WAFER_MAP$ To 7
|
||||
|
||||
|
||||
Reference in New Issue
Block a user