diff --git a/LSL2/APPROW/APP_INFO%003AQUAL_CHANGE_MODES.json b/LSL2/APPROW/APP_INFO%003AQUAL_CHANGE_MODES.json new file mode 100644 index 0000000..3f4f703 --- /dev/null +++ b/LSL2/APPROW/APP_INFO%003AQUAL_CHANGE_MODES.json @@ -0,0 +1,16 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "QUAL_CHANGE_MODES" + }, + "body": { + "record1": { + "<1>": "PROD", + "<2>": "LIM", + "<3>": "VER", + "<4>": "VER_FAILED", + "<5>": "QUAL_OVERDUE" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/APP_INFO%003ASILICON_STAGE_LIST.json b/LSL2/APPROW/APP_INFO%003ASILICON_STAGE_LIST.json new file mode 100644 index 0000000..f6f36a2 --- /dev/null +++ b/LSL2/APPROW/APP_INFO%003ASILICON_STAGE_LIST.json @@ -0,0 +1,37 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "SILICON_STAGE_LIST" + }, + "body": { + "record1": { + "<1>": "VER", + "<2>": "RDS_TEST", + "<3>": "PREI", + "<4>": "PREC", + "<5>": "PRES", + "<6>": "SUPP", + "<7>": "LOAD", + "<8>": "FWII", + "<9>": "FWIC", + "<10>": "FWIS", + "<11>": "LOAD_QA_MET", + "<12>": "UNLOAD", + "<13>": "LWII", + "<14>": "LWIC", + "<15>": "LWIS", + "<16>": "ROTR", + "<17>": "UNLOAD_QA_MET", + "<18>": "PSTI", + "<19>": "PSTC", + "<20>": "PSTS", + "<21>": "POST", + "<22>": "POST_QA_MET", + "<23>": "NCR", + "<24>": "QA", + "<25>": "LBLCHK", + "<26>": "SAP_BATCH_ID" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/APP_INFO%003ASURFSCAN_EXCLUSION_LIST.json b/LSL2/APPROW/APP_INFO%003ASURFSCAN_EXCLUSION_LIST.json new file mode 100644 index 0000000..d91d372 --- /dev/null +++ b/LSL2/APPROW/APP_INFO%003ASURFSCAN_EXCLUSION_LIST.json @@ -0,0 +1,20 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "SURFSCAN_EXCLUSION_LIST" + }, + "body": { + "record1": { + "<1>": "8IN100_ROTR", + "<2>": "6IN100_ROTR", + "<3>": "8INIRPOSTCLEAN", + "<4>": "8INCLEAN", + "<5>": "IFXPOSTCLEAN", + "<6>": "IFX100_ROTR", + "<7>": "6IN.2QUAL", + "<8>": "8IN.2QUAL", + "<9>": "IRC_POSTCLEAN" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/APP_INFO%003ATOOL_KEYS_BY_TYPE.json b/LSL2/APPROW/APP_INFO%003ATOOL_KEYS_BY_TYPE.json new file mode 100644 index 0000000..f7c771a --- /dev/null +++ b/LSL2/APPROW/APP_INFO%003ATOOL_KEYS_BY_TYPE.json @@ -0,0 +1,95 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "TOOL_KEYS_BY_TYPE" + }, + "body": { + "record1": { + "<1>": { + "<1,1>": "AHPS", + "<1,2>": "AKRION1", + "<1,3>": "CB3", + "<1,4>": "MES", + "<1,5>": "SRD 1", + "<1,6>": "SRD 2", + "<1,7>": "BRIGHTLIGHT1", + "<1,8>": "BRIGHTLIGHT2", + "<1,9>": "BRIGHTLIGHT3", + "<1,10>": "BRIGHTLIGHT4", + "<1,11>": "SCOPE #1", + "<1,12>": "SCOPE #3", + "<1,13>": "SCOPE #4", + "<1,14>": "SCOPE #5", + "<1,15>": "SP1 1", + "<1,16>": "TENCOR1", + "<1,17>": "TENCOR2", + "<1,18>": "TENCOR3", + "<1,19>": "ASET", + "<1,20>": "BIORAD2", + "<1,21>": "BIORAD3", + "<1,22>": "BIORAD4", + "<1,23>": "BIORAD5", + "<1,24>": "CDE2", + "<1,25>": "CDE3", + "<1,26>": "CDE4", + "<1,27>": "CDE5", + "<1,28>": "CDE6", + "<1,29>": "FLEXUS", + "<1,30>": "HGCV1", + "<1,31>": "HGCV2", + "<1,32>": "HGCV3", + "<1,33>": "SPV", + "<1,34>": "SRP", + "<1,35>": "BELLJAR", + "<1,36>": "6INLESS", + "<1,37>": "6INLESS2", + "<1,38>": "6MACTRONIX #1", + "<1,39>": "6MACTRONIX #2", + "<1,40>": "6MACTRONIX #3", + "<1,41>": "6MACTRONIX #4", + "<1,42>": "8INLESS", + "<1,43>": "8INLESS2", + "<1,44>": "BAGGER1", + "<1,45>": "BAGGER2", + "<1,46>": "BAGGER3", + "<1,47>": "BAGGER4", + "<1,48>": "6INFF01", + "<1,49>": "6INFF02", + "<1,50>": "6INFF03", + "<1,51>": "6INFF04", + "<1,52>": "6INFF05", + "<1,53>": "6INFF06", + "<1,54>": "6INFF07", + "<1,55>": "6INFF08", + "<1,56>": "6INFF09", + "<1,57>": "6INFF10", + "<1,58>": "8INNF01", + "<1,59>": "8INNF02", + "<1,60>": "8INNF03", + "<1,61>": "8INNF04", + "<1,62>": "8INNF05", + "<1,63>": "8INFF01", + "<1,64>": "8INFF02", + "<1,65>": "8INFF03", + "<1,66>": "8INFF04", + "<1,67>": "MACTRONIX #1", + "<1,68>": "MACTRONIX #2 ", + "<1,69>": "MACTRONIX #3", + "<1,70>": "MACTRONIX #4", + "<1,71>": "MACTRONIX #5", + "<1,72>": "MACTRONIX #6", + "<1,73>": "MACTRONIX #7", + "<1,74>": "TALL_PITCH1", + "<1,75>": "TALL_PITCH2", + "<1,76>": "TALL_PITCH3", + "<1,77>": "TALL_PITCH4", + "<1,78>": "WC6INCH", + "<1,79>": "WC8INCH", + "<1,80>": "ELLP01", + "<1,81>": "LEAKCHK01", + "<1,82>": "LEAKCHK02" + } + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/APP_INFO%003AWAFER_COUNTER_CHECK.json b/LSL2/APPROW/APP_INFO%003AWAFER_COUNTER_CHECK.json new file mode 100644 index 0000000..a980830 --- /dev/null +++ b/LSL2/APPROW/APP_INFO%003AWAFER_COUNTER_CHECK.json @@ -0,0 +1,12 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "WAFER_COUNTER_CHECK" + }, + "body": { + "record1": { + "<1>": "1" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/DICT.SCANS%003A%0025TABLE_DESCRIPTION%0025.json b/LSL2/APPROW/DICT.SCANS%003A%0025TABLE_DESCRIPTION%0025.json new file mode 100644 index 0000000..f63e8ac --- /dev/null +++ b/LSL2/APPROW/DICT.SCANS%003A%0025TABLE_DESCRIPTION%0025.json @@ -0,0 +1,12 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "%TABLE_DESCRIPTION%" + }, + "body": { + "record1": { + "<1>": "Contains all scan requests generated by the barcode readers." + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/DICT.SCANS%003AACCEPTED.json b/LSL2/APPROW/DICT.SCANS%003AACCEPTED.json new file mode 100644 index 0000000..39e176a --- /dev/null +++ b/LSL2/APPROW/DICT.SCANS%003AACCEPTED.json @@ -0,0 +1,62 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "ACCEPTED" + }, + "body": { + "record1": { + "<1>": "F", + "<2>": "8", + "<3>": "Accepted", + "<4>": "S", + "<5>": "", + "<6>": "", + "<7>": "B", + "<8>": "", + "<9>": "L", + "<10>": "3", + "<11>": "(B)", + "<12>": "BOOLEAN", + "<13>": "FRANCOIS_R", + "<14>": "Boolean flag to indicate that the operator accepted the scanned data and has requested it to be processed.", + "<15>": "", + "<16>": "", + "<17>": "", + "<18>": "", + "<19>": "", + "<20>": "", + "<21>": "", + "<22>": "", + "<23>": "", + "<24>": "", + "<25>": "", + "<26>": "", + "<27>": "", + "<28>": "1", + "<29>": "", + "<30>": "", + "<31>": "0", + "<32>": "", + "<33>": "", + "<34>": "0", + "<35>": "16:34:22 13 SEP 2018", + "<36>": "", + "<37>": "0", + "<38>": "", + "<39>": "", + "<40>": "", + "<41>": "", + "<42>": "", + "<43>": "", + "<44>": "", + "<45>": "", + "<46>": "", + "<47>": "", + "<48>": "", + "<49>": "", + "<50>": "", + "<51>": "\u0000\u0000\u0000\u0000\u0000\u001a\u0000\u001a\u0000\u0000\u0000ÀCÀ*‹\b\u0000cc\u001e@ÀC)¸\u0000\u0000\u0000\u0000\u0000K\u0000Q\u0000\u0000\u0000ÀCÀ*‹\b\u0000cc\u001e@ÀÃfQH!\u0000J?\u0000ÀCÀC€\u0001n@ÀÃdQH3\u0000J;\u0000ÀCÀC€\u0003n@ÀC)¸JG\u0000C€\u0007n@ÀC)¸\u0001B\u0003L#3\u0000\u0000\u0000\u0000\u00002\u00008\u0000\u0000\u0000ÀÃgQG%\u0000ÀCÀC€\u0003€\u0001,\u0007ã\u0003cQG%\u0000tÀ*§‹\b\u0000ccÀC\u001b@t\u0001B\u0003(B)" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/DICT.SCANS%003AACCEPTED_DATE.json b/LSL2/APPROW/DICT.SCANS%003AACCEPTED_DATE.json new file mode 100644 index 0000000..e997151 --- /dev/null +++ b/LSL2/APPROW/DICT.SCANS%003AACCEPTED_DATE.json @@ -0,0 +1,62 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "ACCEPTED_DATE" + }, + "body": { + "record1": { + "<1>": "F", + "<2>": "9", + "<3>": "Accepted Date", + "<4>": "S", + "<5>": "", + "<6>": "", + "<7>": "D4/", + "<8>": "", + "<9>": "R", + "<10>": "11", + "<11>": "(D)", + "<12>": "DATE", + "<13>": "FRANCOIS_R", + "<14>": "Date the scan resource was accepted.", + "<15>": "", + "<16>": "", + "<17>": "", + "<18>": "", + "<19>": "", + "<20>": "", + "<21>": "", + "<22>": "", + "<23>": "", + "<24>": "", + "<25>": "", + "<26>": "", + "<27>": "", + "<28>": "1", + "<29>": "", + "<30>": "", + "<31>": "0", + "<32>": "", + "<33>": "", + "<34>": "0", + "<35>": "16:34:22 13 SEP 2018", + "<36>": "", + "<37>": "0", + "<38>": "", + "<39>": "", + "<40>": "", + "<41>": "", + "<42>": "", + "<43>": "", + "<44>": "", + "<45>": "", + "<46>": "", + "<47>": "", + "<48>": "", + "<49>": "", + "<50>": "", + "<51>": "\u0000\u0000\u0000\u0000\u0000\u001a\u0000\u001a\u0000\u0000\u0000ÀCÀ*‹\t\u0000cc\u001e@ÀC)¸\u0000\u0000\u0000\u0000\u0000K\u0000T\u0000\u0000\u0000ÀCÀ*‹\t\u0000cc\u001e@ÀÃfQH!\u0000J?\u0000ÀCÀC€\u0001n@ÀÃdQH3\u0000J;\u0000ÀCÀC€\u0005n@ÀC)¸JG\u0000C€\nn@ÀC)¸\u0003D4/\u0004R#11\u0000\u0000\u0000\u0000\u00002\u0000:\u0000\u0000\u0000ÀÃgQG%\u0000ÀCÀC€\u0005€\u0001,\u0007ã\u0003cQG%\u0000tÀ*§‹\t\u0000ccÀC\u001b@t\u0003D4/\u0003(D)" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/DICT.SCANS%003AACCEPTED_TIME.json b/LSL2/APPROW/DICT.SCANS%003AACCEPTED_TIME.json new file mode 100644 index 0000000..85d0c02 --- /dev/null +++ b/LSL2/APPROW/DICT.SCANS%003AACCEPTED_TIME.json @@ -0,0 +1,62 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "ACCEPTED_TIME" + }, + "body": { + "record1": { + "<1>": "F", + "<2>": "10", + "<3>": "Accepted Time", + "<4>": "S", + "<5>": "", + "<6>": "", + "<7>": "MTHS", + "<8>": "", + "<9>": "R", + "<10>": "10", + "<11>": "(MT)", + "<12>": "TIME", + "<13>": "FRANCOIS_R", + "<14>": "Time the scan resource was accepted.", + "<15>": "", + "<16>": "", + "<17>": "", + "<18>": "", + "<19>": "", + "<20>": "", + "<21>": "", + "<22>": "", + "<23>": "", + "<24>": "", + "<25>": "", + "<26>": "", + "<27>": "", + "<28>": "1", + "<29>": "", + "<30>": "", + "<31>": "0", + "<32>": "", + "<33>": "", + "<34>": "0", + "<35>": "16:34:22 13 SEP 2018", + "<36>": "", + "<37>": "0", + "<38>": "", + "<39>": "", + "<40>": "", + "<41>": "", + "<42>": "", + "<43>": "", + "<44>": "", + "<45>": "", + "<46>": "", + "<47>": "", + "<48>": "", + "<49>": "", + "<50>": "", + "<51>": "\u0000\u0000\u0000\u0000\u0000\u001a\u0000\u001a\u0000\u0000\u0000ÀCÀ*‹\n\u0000cc\u001e@ÀC)¸\u0000\u0000\u0000\u0000\u0000K\u0000U\u0000\u0000\u0000ÀCÀ*‹\n\u0000cc\u001e@ÀÃfQH!\u0000J?\u0000ÀCÀC€\u0001n@ÀÃdQH3\u0000J;\u0000ÀCÀC€\u0006n@ÀC)¸JG\u0000C€\u000bn@ÀC)¸\u0004MTHS\u0004R#10\u0000\u0000\u0000\u0000\u00002\u0000<\u0000\u0000\u0000ÀÃgQG%\u0000ÀCÀC€\u0006€\u0001,\u0007ã\u0003cQG%\u0000tÀ*§‹\n\u0000ccÀC\u001b@t\u0004MTHS\u0004(MT)" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/DICT.SCANS%003AACTION.json b/LSL2/APPROW/DICT.SCANS%003AACTION.json new file mode 100644 index 0000000..abcc836 --- /dev/null +++ b/LSL2/APPROW/DICT.SCANS%003AACTION.json @@ -0,0 +1,62 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "ACTION" + }, + "body": { + "record1": { + "<1>": "F", + "<2>": "14", + "<3>": "Action", + "<4>": "S", + "<5>": "", + "<6>": "", + "<7>": "", + "<8>": "", + "<9>": "L", + "<10>": "20", + "<11>": "", + "<12>": "VARCHAR(255)", + "<13>": "FRANCOIS_R", + "<14>": "Action this scan will perform against the cassette. Typically this will be LOAD, UNLOAD, PLACE, etc.", + "<15>": "", + "<16>": "", + "<17>": "", + "<18>": "", + "<19>": "", + "<20>": "", + "<21>": "", + "<22>": "", + "<23>": "", + "<24>": "", + "<25>": "", + "<26>": "", + "<27>": "", + "<28>": "1", + "<29>": "", + "<30>": "", + "<31>": "0", + "<32>": "", + "<33>": "", + "<34>": "0", + "<35>": "16:34:22 13 SEP 2018", + "<36>": "", + "<37>": "0", + "<38>": "", + "<39>": "", + "<40>": "", + "<41>": "", + "<42>": "", + "<43>": "", + "<44>": "", + "<45>": "", + "<46>": "", + "<47>": "", + "<48>": "", + "<49>": "", + "<50>": "", + "<51>": "\u0000\u0000\u0000\u0000\u0000\u001a\u0000\u001a\u0000\u0000\u0000ÀCÀ*‹\u000e\u0000cc\u001e@ÀC)¸\u0000\u0000\u0000\u0000\u0000K\u0000P\u0000\u0000\u0000ÀCÀ*‹\u000e\u0000cc\u001e@ÀÃfQH!\u0000J?\u0000J)\u0000C€\u0001n@ÀÃdQH3\u0000J;\u0000ÀCÀC€\u0001n@ÀC)¸JG\u0000C€\u0006n@ÀC)¸\u0004L#20\u0000\u0000\u0000\u0000\u00002\u00004\u0000\u0000\u0000ÀÃgQG%\u0000ÀCÀC€\u0002€\u0001,\u0007ã\u0003cQG%\u0000tÀ*§‹\u000e\u0000ccÀC\u001b@t\u0000\u0000" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/DICT.SCANS%003ABOAT_ID.json b/LSL2/APPROW/DICT.SCANS%003ABOAT_ID.json new file mode 100644 index 0000000..b1f201b --- /dev/null +++ b/LSL2/APPROW/DICT.SCANS%003ABOAT_ID.json @@ -0,0 +1,62 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "BOAT_ID" + }, + "body": { + "record1": { + "<1>": "F", + "<2>": "16", + "<3>": "Boat ID", + "<4>": "S", + "<5>": "", + "<6>": "", + "<7>": "", + "<8>": "", + "<9>": "L", + "<10>": "20", + "<11>": "", + "<12>": "VARCHAR(255)", + "<13>": "FRANCOIS_R", + "<14>": "Boat (Carrier) identifier.", + "<15>": "", + "<16>": "", + "<17>": "", + "<18>": "", + "<19>": "", + "<20>": "", + "<21>": "", + "<22>": "", + "<23>": "", + "<24>": "", + "<25>": "", + "<26>": "", + "<27>": "", + "<28>": "1", + "<29>": "", + "<30>": "", + "<31>": "0", + "<32>": "", + "<33>": "", + "<34>": "0", + "<35>": "16:34:23 13 SEP 2018", + "<36>": "", + "<37>": "0", + "<38>": "", + "<39>": "", + "<40>": "", + "<41>": "", + "<42>": "", + "<43>": "", + "<44>": "", + "<45>": "", + "<46>": "", + "<47>": "", + "<48>": "", + "<49>": "", + "<50>": "", + "<51>": "\u0000\u0000\u0000\u0000\u0000\u001a\u0000\u001a\u0000\u0000\u0000ÀCÀ*‹\u0010\u0000cc\u001e@ÀC)¸\u0000\u0000\u0000\u0000\u0000K\u0000P\u0000\u0000\u0000ÀCÀ*‹\u0010\u0000cc\u001e@ÀÃfQH!\u0000J?\u0000J)\u0000C€\u0001n@ÀÃdQH3\u0000J;\u0000ÀCÀC€\u0001n@ÀC)¸JG\u0000C€\u0006n@ÀC)¸\u0004L#20\u0000\u0000\u0000\u0000\u00002\u00004\u0000\u0000\u0000ÀÃgQG%\u0000ÀCÀC€\u0002€\u0001,\u0007ã\u0003cQG%\u0000tÀ*§‹\u0010\u0000ccÀC\u001b@t\u0000\u0000" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/DICT.SCANS%003ACASSETTE_IDS.json b/LSL2/APPROW/DICT.SCANS%003ACASSETTE_IDS.json new file mode 100644 index 0000000..b80c02d --- /dev/null +++ b/LSL2/APPROW/DICT.SCANS%003ACASSETTE_IDS.json @@ -0,0 +1,62 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "CASSETTE_IDS" + }, + "body": { + "record1": { + "<1>": "F", + "<2>": "5", + "<3>": "Cassette IDs", + "<4>": "M", + "<5>": "", + "<6>": "", + "<7>": "", + "<8>": "", + "<9>": "L", + "<10>": "20", + "<11>": "", + "<12>": "VARCHAR(255)", + "<13>": "FRANCOIS_R", + "<14>": "Cassette identifiers. This is likely going to be the RDS or the WO_MAT Key ID.", + "<15>": "", + "<16>": "", + "<17>": "", + "<18>": "", + "<19>": "", + "<20>": "", + "<21>": "", + "<22>": "", + "<23>": "", + "<24>": "", + "<25>": "", + "<26>": "", + "<27>": "", + "<28>": "1", + "<29>": "", + "<30>": "", + "<31>": "0", + "<32>": "", + "<33>": "", + "<34>": "0", + "<35>": "16:34:22 13 SEP 2018", + "<36>": "", + "<37>": "0", + "<38>": "", + "<39>": "", + "<40>": "", + "<41>": "", + "<42>": "", + "<43>": "", + "<44>": "", + "<45>": "", + "<46>": "", + "<47>": "", + "<48>": "", + "<49>": "", + "<50>": "", + "<51>": "\u0000\u0000\u0000\u0000\u0000\u001b\u0000\u001b\u0000\u0000\u0000ÀCÀ*‹\u0005\u0000ÀUc\u001e@ÀC)¸\u0000\u0000\u0000\u0000\u0000L\u0000Q\u0000\u0000\u0000ÀCÀ*‹\u0005\u0000ÀUc\u001e@ÀÃfQH\"\u0000J@\u0000J*\u0000C€\u0001n@ÀÃdQH4\u0000J<\u0000ÀCÀC€\u0001n@ÀC)¸JH\u0000C€\u0006n@ÀC)¸\u0004L#20\u0000\u0000\u0000\u0000\u00003\u00005\u0000\u0000\u0000ÀÃgQG%\u0000ÀCÀC€\u0002€\u0001,\u0007ã\u0003cQG%\u0000tÀ*§‹\u0005\u0000ÀUcÀC\u001b@t\u0000\u0000" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/DICT.SCANS%003ACREATED_DATE.json b/LSL2/APPROW/DICT.SCANS%003ACREATED_DATE.json new file mode 100644 index 0000000..ef83f2a --- /dev/null +++ b/LSL2/APPROW/DICT.SCANS%003ACREATED_DATE.json @@ -0,0 +1,62 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "CREATED_DATE" + }, + "body": { + "record1": { + "<1>": "F", + "<2>": "1", + "<3>": "Create Date", + "<4>": "S", + "<5>": "", + "<6>": "", + "<7>": "D4/", + "<8>": "", + "<9>": "R", + "<10>": "11", + "<11>": "(D)", + "<12>": "DATE", + "<13>": "FRANCOIS_R", + "<14>": "Date the scan resource was created. This is not the date the scan was accepted.", + "<15>": "", + "<16>": "", + "<17>": "", + "<18>": "", + "<19>": "", + "<20>": "", + "<21>": "", + "<22>": "", + "<23>": "", + "<24>": "", + "<25>": "", + "<26>": "", + "<27>": "", + "<28>": "1", + "<29>": "", + "<30>": "", + "<31>": "0", + "<32>": "", + "<33>": "", + "<34>": "0", + "<35>": "16:34:22 13 SEP 2018", + "<36>": "", + "<37>": "0", + "<38>": "", + "<39>": "", + "<40>": "", + "<41>": "", + "<42>": "", + "<43>": "", + "<44>": "", + "<45>": "", + "<46>": "", + "<47>": "", + "<48>": "", + "<49>": "", + "<50>": "", + "<51>": "\u0000\u0000\u0000\u0000\u0000\u001a\u0000\u001a\u0000\u0000\u0000ÀCÀ*‹\u0001\u0000cc\u001e@ÀC)¸\u0000\u0000\u0000\u0000\u0000K\u0000T\u0000\u0000\u0000ÀCÀ*‹\u0001\u0000cc\u001e@ÀÃfQH!\u0000J?\u0000ÀCÀC€\u0001n@ÀÃdQH3\u0000J;\u0000ÀCÀC€\u0005n@ÀC)¸JG\u0000C€\nn@ÀC)¸\u0003D4/\u0004R#11\u0000\u0000\u0000\u0000\u00002\u0000:\u0000\u0000\u0000ÀÃgQG%\u0000ÀCÀC€\u0005€\u0001,\u0007ã\u0003cQG%\u0000tÀ*§‹\u0001\u0000ccÀC\u001b@t\u0003D4/\u0003(D)" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/DICT.SCANS%003ACREATED_TIME.json b/LSL2/APPROW/DICT.SCANS%003ACREATED_TIME.json new file mode 100644 index 0000000..1bcd842 --- /dev/null +++ b/LSL2/APPROW/DICT.SCANS%003ACREATED_TIME.json @@ -0,0 +1,62 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "CREATED_TIME" + }, + "body": { + "record1": { + "<1>": "F", + "<2>": "2", + "<3>": "Create Time", + "<4>": "S", + "<5>": "", + "<6>": "", + "<7>": "MTHS", + "<8>": "", + "<9>": "R", + "<10>": "10", + "<11>": "(MT)", + "<12>": "TIME", + "<13>": "FRANCOIS_R", + "<14>": "Time the scan resource was created. This is not the time the scan was accepted.", + "<15>": "", + "<16>": "", + "<17>": "", + "<18>": "", + "<19>": "", + "<20>": "", + "<21>": "", + "<22>": "", + "<23>": "", + "<24>": "", + "<25>": "", + "<26>": "", + "<27>": "", + "<28>": "1", + "<29>": "", + "<30>": "", + "<31>": "0", + "<32>": "", + "<33>": "", + "<34>": "0", + "<35>": "16:34:22 13 SEP 2018", + "<36>": "", + "<37>": "0", + "<38>": "", + "<39>": "", + "<40>": "", + "<41>": "", + "<42>": "", + "<43>": "", + "<44>": "", + "<45>": "", + "<46>": "", + "<47>": "", + "<48>": "", + "<49>": "", + "<50>": "", + "<51>": "\u0000\u0000\u0000\u0000\u0000\u001a\u0000\u001a\u0000\u0000\u0000ÀCÀ*‹\u0002\u0000cc\u001e@ÀC)¸\u0000\u0000\u0000\u0000\u0000K\u0000U\u0000\u0000\u0000ÀCÀ*‹\u0002\u0000cc\u001e@ÀÃfQH!\u0000J?\u0000ÀCÀC€\u0001n@ÀÃdQH3\u0000J;\u0000ÀCÀC€\u0006n@ÀC)¸JG\u0000C€\u000bn@ÀC)¸\u0004MTHS\u0004R#10\u0000\u0000\u0000\u0000\u00002\u0000<\u0000\u0000\u0000ÀÃgQG%\u0000ÀCÀC€\u0006€\u0001,\u0007ã\u0003cQG%\u0000tÀ*§‹\u0002\u0000ccÀC\u001b@t\u0004MTHS\u0004(MT)" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/DICT.SCANS%003AEMPLOYEE_AUTHORIZED.json b/LSL2/APPROW/DICT.SCANS%003AEMPLOYEE_AUTHORIZED.json new file mode 100644 index 0000000..e49de73 --- /dev/null +++ b/LSL2/APPROW/DICT.SCANS%003AEMPLOYEE_AUTHORIZED.json @@ -0,0 +1,75 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "EMPLOYEE_AUTHORIZED" + }, + "body": { + "record1": { + "<1>": "S", + "<2>": "", + "<3>": "Employee Authorized", + "<4>": "S", + "<5>": "", + "<6>": "", + "<7>": "B", + "<8>": { + "<8,1>": "Declare function Database_Services", + "<8,2>": "", + "<8,3>": "@ANS = Database_Services('CalculateColumn')" + }, + "<9>": "L", + "<10>": "3", + "<11>": "(B)", + "<12>": "BOOLEAN", + "<13>": "FRANCOIS_R", + "<14>": "Boolean flag to indicate that the employee is authorized to perform this scan operation. This could be set to False$ if the employee is not trained to use the specific tool. This could be set to False$ if the employee is not in the system.", + "<15>": "", + "<16>": "", + "<17>": "", + "<18>": "", + "<19>": "", + "<20>": "", + "<21>": "", + "<22>": "", + "<23>": "", + "<24>": "", + "<25>": "", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "", + "<30>": "", + "<31>": "", + "<32>": "", + "<33>": "", + "<34>": "", + "<35>": "16:34:22 13 SEP 2018", + "<36>": "", + "<37>": "0", + "<38>": "", + "<39>": "", + "<40>": "", + "<41>": "", + "<42>": "", + "<43>": "", + "<44>": "", + "<45>": "", + "<46>": "", + "<47>": "", + "<48>": "", + "<49>": "", + "<50>": "", + "<51>": { + "<51,1>": { + "<51,1,1>": "\u0000\u0001\u0000\u0000\u0000N\u0000u\u0000\u0000\u0000ÀÃè:ÀC€\u0013€\u0001A\u0001¹@èG\"\u0000ÀC)¸èfQH/\u0000ÀC)¸JN\u0000ÀCÀC€#n@èeQHJ\u0000ã\u0003GJ\u0000ÀCÀC€%n@ÀC)¸\u0011DATABASE_SERVICES\u000fCalculateColumn\u0001B\u0003L#3EMPLOYEE_AUTHORIZED\r\nSYM__MODE,-1,1\r\n", + "<51,1,2>": { + "<51,1,2,1>": "DATABASE_SERVICES", + "<51,1,2,2>": "" + }, + "<51,1,3>": "\u0002\u0001\u0000\"\u0000\u0002\u0002\u0000/\u0000\u0002\u0003\u0000N\u0000\u0002\u0004\u0000J\u0000\u0002\u0005\u0000J\u0000\u0007SYM__WU\u001a\u0000\u0002\u0006\u0000J\u0000" + } + } + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/DICT.SCANS%003AEMPLOYEE_ID.json b/LSL2/APPROW/DICT.SCANS%003AEMPLOYEE_ID.json new file mode 100644 index 0000000..63d6cf7 --- /dev/null +++ b/LSL2/APPROW/DICT.SCANS%003AEMPLOYEE_ID.json @@ -0,0 +1,62 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "EMPLOYEE_ID" + }, + "body": { + "record1": { + "<1>": "F", + "<2>": "4", + "<3>": "Employee ID", + "<4>": "S", + "<5>": "", + "<6>": "", + "<7>": "", + "<8>": "", + "<9>": "L", + "<10>": "20", + "<11>": "", + "<12>": "VARCHAR(255)", + "<13>": "FRANCOIS_R", + "<14>": "Employee ID as imprinted on their badge.", + "<15>": "", + "<16>": "", + "<17>": "", + "<18>": "", + "<19>": "", + "<20>": "", + "<21>": "", + "<22>": "", + "<23>": "", + "<24>": "", + "<25>": "", + "<26>": "", + "<27>": "", + "<28>": "1", + "<29>": "", + "<30>": "", + "<31>": "0", + "<32>": "", + "<33>": "", + "<34>": "0", + "<35>": "16:34:22 13 SEP 2018", + "<36>": "", + "<37>": "0", + "<38>": "", + "<39>": "", + "<40>": "", + "<41>": "", + "<42>": "", + "<43>": "", + "<44>": "", + "<45>": "", + "<46>": "", + "<47>": "", + "<48>": "", + "<49>": "", + "<50>": "", + "<51>": "\u0000\u0000\u0000\u0000\u0000\u001a\u0000\u001a\u0000\u0000\u0000ÀCÀ*‹\u0004\u0000cc\u001e@ÀC)¸\u0000\u0000\u0000\u0000\u0000K\u0000P\u0000\u0000\u0000ÀCÀ*‹\u0004\u0000cc\u001e@ÀÃfQH!\u0000J?\u0000J)\u0000C€\u0001n@ÀÃdQH3\u0000J;\u0000ÀCÀC€\u0001n@ÀC)¸JG\u0000C€\u0006n@ÀC)¸\u0004L#20\u0000\u0000\u0000\u0000\u00002\u00004\u0000\u0000\u0000ÀÃgQG%\u0000ÀCÀC€\u0002€\u0001,\u0007ã\u0003cQG%\u0000tÀ*§‹\u0004\u0000ccÀC\u001b@t\u0000\u0000" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/DICT.SCANS%003AEMPLOYEE_NAME.json b/LSL2/APPROW/DICT.SCANS%003AEMPLOYEE_NAME.json new file mode 100644 index 0000000..be496f0 --- /dev/null +++ b/LSL2/APPROW/DICT.SCANS%003AEMPLOYEE_NAME.json @@ -0,0 +1,75 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "EMPLOYEE_NAME" + }, + "body": { + "record1": { + "<1>": "S", + "<2>": "", + "<3>": "Employee Name", + "<4>": "S", + "<5>": "", + "<6>": "", + "<7>": "", + "<8>": { + "<8,1>": "Declare function Database_Services", + "<8,2>": "", + "<8,3>": "@ANS = Database_Services('CalculateColumn')" + }, + "<9>": "L", + "<10>": "20", + "<11>": "", + "<12>": "VARCHAR(255)", + "<13>": "FRANCOIS_R", + "<14>": "", + "<15>": "", + "<16>": "", + "<17>": "", + "<18>": "", + "<19>": "", + "<20>": "", + "<21>": "", + "<22>": "", + "<23>": "", + "<24>": "", + "<25>": "", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "", + "<30>": "", + "<31>": "", + "<32>": "", + "<33>": "", + "<34>": "", + "<35>": "16:34:22 13 SEP 2018", + "<36>": "", + "<37>": "0", + "<38>": "", + "<39>": "", + "<40>": "", + "<41>": "", + "<42>": "", + "<43>": "", + "<44>": "", + "<45>": "", + "<46>": "", + "<47>": "", + "<48>": "", + "<49>": "", + "<50>": "", + "<51>": { + "<51,1>": { + "<51,1,1>": "\u0000\u0001\u0000\u0000\u0000A\u0000g\u0000\u0000\u0000ÀÃè:ÀC€\u0013€\u0001A\u0001¹@èG\"\u0000ÀC)¸èfQH/\u0000ÀC)¸JA\u0000èeQH=\u0000ÀCÀC€#n@ÀC)¸\u0011DATABASE_SERVICES\u000fCalculateColumn\u0004L#20EMPLOYEE_NAME\r\nSYM__MODE,-1,1\r\n", + "<51,1,2>": { + "<51,1,2,1>": "DATABASE_SERVICES", + "<51,1,2,2>": "" + }, + "<51,1,3>": "\u0002\u0001\u0000\"\u0000\u0002\u0002\u0000/\u0000\u0002\u0003\u0000A\u0000\u0002\u0004\u0000=\u0000\u0007SYM__WU\u001a\u0000\u0002\u0005\u0000=\u0000" + } + } + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/DICT.SCANS%003AEMPLOYEE_NOT_AUTHORIZED_REASON.json b/LSL2/APPROW/DICT.SCANS%003AEMPLOYEE_NOT_AUTHORIZED_REASON.json new file mode 100644 index 0000000..a6ab06e --- /dev/null +++ b/LSL2/APPROW/DICT.SCANS%003AEMPLOYEE_NOT_AUTHORIZED_REASON.json @@ -0,0 +1,75 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "EMPLOYEE_NOT_AUTHORIZED_REASON" + }, + "body": { + "record1": { + "<1>": "S", + "<2>": "", + "<3>": "Employee Not Authorized Reason", + "<4>": "S", + "<5>": "", + "<6>": "", + "<7>": "", + "<8>": { + "<8,1>": "Declare function Database_Services", + "<8,2>": "", + "<8,3>": "@ANS = Database_Services('CalculateColumn')" + }, + "<9>": "L", + "<10>": "20", + "<11>": "", + "<12>": "VARCHAR(255)", + "<13>": "FRANCOIS_R", + "<14>": "If the EMPLOYEE_AUTHORIZED column is False$, this column will contain the reason for this.", + "<15>": "", + "<16>": "", + "<17>": "", + "<18>": "", + "<19>": "", + "<20>": "", + "<21>": "", + "<22>": "", + "<23>": "", + "<24>": "", + "<25>": "", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "", + "<30>": "", + "<31>": "", + "<32>": "", + "<33>": "", + "<34>": "", + "<35>": "16:34:22 13 SEP 2018", + "<36>": "", + "<37>": "0", + "<38>": "", + "<39>": "", + "<40>": "", + "<41>": "", + "<42>": "", + "<43>": "", + "<44>": "", + "<45>": "", + "<46>": "", + "<47>": "", + "<48>": "", + "<49>": "", + "<50>": "", + "<51>": { + "<51,1>": { + "<51,1,1>": "\u0000\u0001\u0000\u0000\u0000A\u0000g\u0000\u0000\u0000ÀÃè:ÀC€\u0013€\u0001A\u0001¹@èG\"\u0000ÀC)¸èfQH/\u0000ÀC)¸JA\u0000èeQH=\u0000ÀCÀC€#n@ÀC)¸\u0011DATABASE_SERVICES\u000fCalculateColumn\u0004L#20EMPLOYEE_NOT_AUTHORIZED_REASON\r\nSYM__MODE,-1,1\r\n", + "<51,1,2>": { + "<51,1,2,1>": "DATABASE_SERVICES", + "<51,1,2,2>": "" + }, + "<51,1,3>": "\u0002\u0001\u0000\"\u0000\u0002\u0002\u0000/\u0000\u0002\u0003\u0000A\u0000\u0002\u0004\u0000=\u0000\u0007SYM__WU\u001a\u0000\u0002\u0005\u0000=\u0000" + } + } + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/DICT.SCANS%003ALAST_MODIFIED.json b/LSL2/APPROW/DICT.SCANS%003ALAST_MODIFIED.json new file mode 100644 index 0000000..48bea5c --- /dev/null +++ b/LSL2/APPROW/DICT.SCANS%003ALAST_MODIFIED.json @@ -0,0 +1,75 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "LAST_MODIFIED" + }, + "body": { + "record1": { + "<1>": "S", + "<2>": "", + "<3>": "Last Modified", + "<4>": "S", + "<5>": "", + "<6>": "", + "<7>": "", + "<8>": { + "<8,1>": "Declare function Database_Services", + "<8,2>": "", + "<8,3>": "@ANS = Database_Services('CalculateColumn')" + }, + "<9>": "L", + "<10>": "30", + "<11>": "", + "<12>": "VARCHAR(255)", + "<13>": "FRANCOIS_R", + "<14>": "", + "<15>": "", + "<16>": "", + "<17>": "", + "<18>": "", + "<19>": "", + "<20>": "", + "<21>": "", + "<22>": "", + "<23>": "", + "<24>": "", + "<25>": "", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "", + "<30>": "", + "<31>": "", + "<32>": "", + "<33>": "", + "<34>": "", + "<35>": "16:34:22 13 SEP 2018", + "<36>": "", + "<37>": "0", + "<38>": "", + "<39>": "", + "<40>": "", + "<41>": "", + "<42>": "", + "<43>": "", + "<44>": "", + "<45>": "", + "<46>": "", + "<47>": "", + "<48>": "", + "<49>": "", + "<50>": "", + "<51>": { + "<51,1>": { + "<51,1,1>": "\u0000\u0001\u0000\u0000\u0000A\u0000g\u0000\u0000\u0000ÀÃè:ÀC€\u0013€\u0001A\u0001¹@èG\"\u0000ÀC)¸èfQH/\u0000ÀC)¸JA\u0000èeQH=\u0000ÀCÀC€#n@ÀC)¸\u0011DATABASE_SERVICES\u000fCalculateColumn\u0004L#30LAST_MODIFIED\r\nSYM__MODE,-1,1\r\n", + "<51,1,2>": { + "<51,1,2,1>": "DATABASE_SERVICES", + "<51,1,2,2>": "" + }, + "<51,1,3>": "\u0002\u0001\u0000\"\u0000\u0002\u0002\u0000/\u0000\u0002\u0003\u0000A\u0000\u0002\u0004\u0000=\u0000\u0007SYM__WU\u001a\u0000\u0002\u0005\u0000=\u0000" + } + } + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/DICT.SCANS%003ALOAD_LOCK.json b/LSL2/APPROW/DICT.SCANS%003ALOAD_LOCK.json new file mode 100644 index 0000000..08261b2 --- /dev/null +++ b/LSL2/APPROW/DICT.SCANS%003ALOAD_LOCK.json @@ -0,0 +1,62 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "LOAD_LOCK" + }, + "body": { + "record1": { + "<1>": "F", + "<2>": "19", + "<3>": "Load Lock", + "<4>": "S", + "<5>": "", + "<6>": "", + "<7>": "", + "<8>": "", + "<9>": "L", + "<10>": "20", + "<11>": "", + "<12>": "VARCHAR(255)", + "<13>": "FRANCOIS_R", + "<14>": "For certain tools, this is either \"LLL\" (as in Left Load Lock) or \"RLL\" (as in Right Load Lock). If this is empty or contains \"NA\", then this means not applicable for this tool.", + "<15>": "", + "<16>": "", + "<17>": "", + "<18>": "", + "<19>": "", + "<20>": "", + "<21>": "", + "<22>": "", + "<23>": "", + "<24>": "", + "<25>": "", + "<26>": "", + "<27>": "", + "<28>": "1", + "<29>": "", + "<30>": "", + "<31>": "0", + "<32>": "", + "<33>": "", + "<34>": "0", + "<35>": "16:34:22 13 SEP 2018", + "<36>": "", + "<37>": "0", + "<38>": "", + "<39>": "", + "<40>": "", + "<41>": "", + "<42>": "", + "<43>": "", + "<44>": "", + "<45>": "", + "<46>": "", + "<47>": "", + "<48>": "", + "<49>": "", + "<50>": "", + "<51>": "\u0000\u0000\u0000\u0000\u0000\u001a\u0000\u001a\u0000\u0000\u0000ÀCÀ*‹\u0013\u0000cc\u001e@ÀC)¸\u0000\u0000\u0000\u0000\u0000K\u0000P\u0000\u0000\u0000ÀCÀ*‹\u0013\u0000cc\u001e@ÀÃfQH!\u0000J?\u0000J)\u0000C€\u0001n@ÀÃdQH3\u0000J;\u0000ÀCÀC€\u0001n@ÀC)¸JG\u0000C€\u0006n@ÀC)¸\u0004L#20\u0000\u0000\u0000\u0000\u00002\u00004\u0000\u0000\u0000ÀÃgQG%\u0000ÀCÀC€\u0002€\u0001,\u0007ã\u0003cQG%\u0000tÀ*§‹\u0013\u0000ccÀC\u001b@t\u0000\u0000" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/DICT.SCANS%003ALOCATION_ID.json b/LSL2/APPROW/DICT.SCANS%003ALOCATION_ID.json new file mode 100644 index 0000000..cbd5863 --- /dev/null +++ b/LSL2/APPROW/DICT.SCANS%003ALOCATION_ID.json @@ -0,0 +1,62 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "LOCATION_ID" + }, + "body": { + "record1": { + "<1>": "F", + "<2>": "6", + "<3>": "Location ID", + "<4>": "S", + "<5>": "", + "<6>": "", + "<7>": "", + "<8>": "", + "<9>": "L", + "<10>": "20", + "<11>": "", + "<12>": "VARCHAR(255)", + "<13>": "FRANCOIS_R", + "<14>": "Location identifier.", + "<15>": "", + "<16>": "", + "<17>": "", + "<18>": "", + "<19>": "", + "<20>": "", + "<21>": "", + "<22>": "", + "<23>": "", + "<24>": "", + "<25>": "", + "<26>": "", + "<27>": "", + "<28>": "1", + "<29>": "", + "<30>": "", + "<31>": "0", + "<32>": "", + "<33>": "", + "<34>": "0", + "<35>": "16:34:22 13 SEP 2018", + "<36>": "", + "<37>": "0", + "<38>": "", + "<39>": "", + "<40>": "", + "<41>": "", + "<42>": "", + "<43>": "", + "<44>": "", + "<45>": "", + "<46>": "", + "<47>": "", + "<48>": "", + "<49>": "", + "<50>": "", + "<51>": "\u0000\u0000\u0000\u0000\u0000\u001a\u0000\u001a\u0000\u0000\u0000ÀCÀ*‹\u0006\u0000cc\u001e@ÀC)¸\u0000\u0000\u0000\u0000\u0000K\u0000P\u0000\u0000\u0000ÀCÀ*‹\u0006\u0000cc\u001e@ÀÃfQH!\u0000J?\u0000J)\u0000C€\u0001n@ÀÃdQH3\u0000J;\u0000ÀCÀC€\u0001n@ÀC)¸JG\u0000C€\u0006n@ÀC)¸\u0004L#20\u0000\u0000\u0000\u0000\u00002\u00004\u0000\u0000\u0000ÀÃgQG%\u0000ÀCÀC€\u0002€\u0001,\u0007ã\u0003cQG%\u0000tÀ*§‹\u0006\u0000ccÀC\u001b@t\u0000\u0000" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/DICT.SCANS%003ALOCATION_NAME.json b/LSL2/APPROW/DICT.SCANS%003ALOCATION_NAME.json new file mode 100644 index 0000000..4045ee0 --- /dev/null +++ b/LSL2/APPROW/DICT.SCANS%003ALOCATION_NAME.json @@ -0,0 +1,75 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "LOCATION_NAME" + }, + "body": { + "record1": { + "<1>": "S", + "<2>": "", + "<3>": "Location Name", + "<4>": "S", + "<5>": "", + "<6>": "", + "<7>": "", + "<8>": { + "<8,1>": "Declare function Database_Services", + "<8,2>": "", + "<8,3>": "@ANS = Database_Services('CalculateColumn')" + }, + "<9>": "L", + "<10>": "20", + "<11>": "", + "<12>": "VARCHAR(255)", + "<13>": "FRANCOIS_R", + "<14>": "", + "<15>": "", + "<16>": "", + "<17>": "", + "<18>": "", + "<19>": "", + "<20>": "", + "<21>": "", + "<22>": "", + "<23>": "", + "<24>": "", + "<25>": "", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "", + "<30>": "", + "<31>": "", + "<32>": "", + "<33>": "", + "<34>": "", + "<35>": "16:34:22 13 SEP 2018", + "<36>": "", + "<37>": "0", + "<38>": "", + "<39>": "", + "<40>": "", + "<41>": "", + "<42>": "", + "<43>": "", + "<44>": "", + "<45>": "", + "<46>": "", + "<47>": "", + "<48>": "", + "<49>": "", + "<50>": "", + "<51>": { + "<51,1>": { + "<51,1,1>": "\u0000\u0001\u0000\u0000\u0000A\u0000g\u0000\u0000\u0000ÀÃè:ÀC€\u0013€\u0001A\u0001¹@èG\"\u0000ÀC)¸èfQH/\u0000ÀC)¸JA\u0000èeQH=\u0000ÀCÀC€#n@ÀC)¸\u0011DATABASE_SERVICES\u000fCalculateColumn\u0004L#20LOCATION_NAME\r\nSYM__MODE,-1,1\r\n", + "<51,1,2>": { + "<51,1,2,1>": "DATABASE_SERVICES", + "<51,1,2,2>": "" + }, + "<51,1,3>": "\u0002\u0001\u0000\"\u0000\u0002\u0002\u0000/\u0000\u0002\u0003\u0000A\u0000\u0002\u0004\u0000=\u0000\u0007SYM__WU\u001a\u0000\u0002\u0005\u0000=\u0000" + } + } + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/DICT.SCANS%003APL_NUMBER.json b/LSL2/APPROW/DICT.SCANS%003APL_NUMBER.json new file mode 100644 index 0000000..feda6df --- /dev/null +++ b/LSL2/APPROW/DICT.SCANS%003APL_NUMBER.json @@ -0,0 +1,62 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "PL_NUMBER" + }, + "body": { + "record1": { + "<1>": "F", + "<2>": "17", + "<3>": "PL Number", + "<4>": "S", + "<5>": "", + "<6>": "", + "<7>": "MD0", + "<8>": "", + "<9>": "R", + "<10>": "5", + "<11>": "(MD0)", + "<12>": "INTEGER", + "<13>": "MESFISYSADMIN", + "<14>": "Represents the side of a Boat/Carrier that the wafers were loaded onto (i.e., 1 or 2) for a cleans operation.", + "<15>": "", + "<16>": "", + "<17>": "", + "<18>": "", + "<19>": "", + "<20>": "", + "<21>": "", + "<22>": "", + "<23>": "", + "<24>": "", + "<25>": "", + "<26>": "", + "<27>": "", + "<28>": "1", + "<29>": "", + "<30>": "", + "<31>": "0", + "<32>": "", + "<33>": "", + "<34>": "0", + "<35>": "09:13:03 06 AUG 2019", + "<36>": "", + "<37>": "0", + "<38>": "", + "<39>": "", + "<40>": "", + "<41>": "", + "<42>": "", + "<43>": "", + "<44>": "", + "<45>": "", + "<46>": "", + "<47>": "", + "<48>": "", + "<49>": "", + "<50>": "", + "<51>": "\u0000\u0000\u0000\u0000\u0000\u001a\u0000\u001a\u0000\u0000\u0000ÀCÀ*‹\u0011\u0000cc\u001e@ÀC)¸\u0000\u0000\u0000\u0000\u0000K\u0000X\u0000\u0000\u0000ÀCÀ*‹\u0011\u0000cc\u001e@ÀÃfQH!\u0000J?\u0000ÀCÀC€\u0001n@ÀÃdQH3\u0000J;\u0000ÀCÀC€\u0006n@ÀC)¸ÀCÀC€\nn@ÀC)¸\u0004MD0P\u0003R#5\u0003MD0\u0000\u0000\u0000\u0000\u00002\u0000<\u0000\u0000\u0000ÀÃgQG%\u0000ÀCÀC€\u0005€\u0001,\u0007ã\u0003cQG%\u0000tÀ*§‹\u0011\u0000ccÀC\u001b@t\u0003MD0\u0005(MD0)" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/DICT.SCANS%003ASCANNED_DATA.json b/LSL2/APPROW/DICT.SCANS%003ASCANNED_DATA.json new file mode 100644 index 0000000..af16f40 --- /dev/null +++ b/LSL2/APPROW/DICT.SCANS%003ASCANNED_DATA.json @@ -0,0 +1,62 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "SCANNED_DATA" + }, + "body": { + "record1": { + "<1>": "F", + "<2>": "13", + "<3>": "Scanned Data", + "<4>": "M", + "<5>": "", + "<6>": "", + "<7>": "", + "<8>": "", + "<9>": "L", + "<10>": "20", + "<11>": "", + "<12>": "VARCHAR(255)", + "<13>": "FRANCOIS_R", + "<14>": "List of scanned data sorted from the oldest to the newest.", + "<15>": "", + "<16>": "", + "<17>": "", + "<18>": "", + "<19>": "", + "<20>": "", + "<21>": "", + "<22>": "", + "<23>": "", + "<24>": "", + "<25>": "", + "<26>": "", + "<27>": "", + "<28>": "1", + "<29>": "", + "<30>": "", + "<31>": "0", + "<32>": "", + "<33>": "", + "<34>": "0", + "<35>": "16:34:23 13 SEP 2018", + "<36>": "SCAN_LOG", + "<37>": "0", + "<38>": "", + "<39>": "", + "<40>": "", + "<41>": "", + "<42>": "", + "<43>": "", + "<44>": "", + "<45>": "", + "<46>": "", + "<47>": "", + "<48>": "", + "<49>": "", + "<50>": "", + "<51>": "\u0000\u0000\u0000\u0000\u0000\u001b\u0000\u001b\u0000\u0000\u0000ÀCÀ*‹\r\u0000ÀUc\u001e@ÀC)¸\u0000\u0000\u0000\u0000\u0000L\u0000Q\u0000\u0000\u0000ÀCÀ*‹\r\u0000ÀUc\u001e@ÀÃfQH\"\u0000J@\u0000J*\u0000C€\u0001n@ÀÃdQH4\u0000J<\u0000ÀCÀC€\u0001n@ÀC)¸JH\u0000C€\u0006n@ÀC)¸\u0004L#20\u0000\u0000\u0000\u0000\u00003\u00005\u0000\u0000\u0000ÀÃgQG%\u0000ÀCÀC€\u0002€\u0001,\u0007ã\u0003cQG%\u0000tÀ*§‹\r\u0000ÀUcÀC\u001b@t\u0000\u0000" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/DICT.SCANS%003ASCANNED_DATES.json b/LSL2/APPROW/DICT.SCANS%003ASCANNED_DATES.json new file mode 100644 index 0000000..455f136 --- /dev/null +++ b/LSL2/APPROW/DICT.SCANS%003ASCANNED_DATES.json @@ -0,0 +1,62 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "SCANNED_DATES" + }, + "body": { + "record1": { + "<1>": "F", + "<2>": "11", + "<3>": "Scanned Dates", + "<4>": "M", + "<5>": "", + "<6>": "", + "<7>": "D4/", + "<8>": "", + "<9>": "R", + "<10>": "11", + "<11>": "(D)", + "<12>": "DATE", + "<13>": "FRANCOIS_R", + "<14>": "List of scanned dates sorted from the oldest to the newest.", + "<15>": "", + "<16>": "", + "<17>": "", + "<18>": "", + "<19>": "", + "<20>": "", + "<21>": "", + "<22>": "", + "<23>": "", + "<24>": "", + "<25>": "", + "<26>": "", + "<27>": "", + "<28>": "1", + "<29>": "", + "<30>": "", + "<31>": "0", + "<32>": "", + "<33>": "", + "<34>": "0", + "<35>": "16:34:22 13 SEP 2018", + "<36>": "SCAN_LOG", + "<37>": "0", + "<38>": "", + "<39>": "", + "<40>": "", + "<41>": "", + "<42>": "", + "<43>": "", + "<44>": "", + "<45>": "", + "<46>": "", + "<47>": "", + "<48>": "", + "<49>": "", + "<50>": "", + "<51>": "\u0000\u0000\u0000\u0000\u0000\u001b\u0000\u001b\u0000\u0000\u0000ÀCÀ*‹\u000b\u0000ÀUc\u001e@ÀC)¸\u0000\u0000\u0000\u0000\u0000L\u0000U\u0000\u0000\u0000ÀCÀ*‹\u000b\u0000ÀUc\u001e@ÀÃfQH\"\u0000J@\u0000ÀCÀC€\u0001n@ÀÃdQH4\u0000J<\u0000ÀCÀC€\u0005n@ÀC)¸JH\u0000C€\nn@ÀC)¸\u0003D4/\u0004R#11\u0000\u0000\u0000\u0000\u00003\u0000;\u0000\u0000\u0000ÀÃgQG%\u0000ÀCÀC€\u0005€\u0001,\u0007ã\u0003cQG%\u0000tÀ*§‹\u000b\u0000ÀUcÀC\u001b@t\u0003D4/\u0003(D)" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/DICT.SCANS%003ASCANNED_TIMES.json b/LSL2/APPROW/DICT.SCANS%003ASCANNED_TIMES.json new file mode 100644 index 0000000..9af05c2 --- /dev/null +++ b/LSL2/APPROW/DICT.SCANS%003ASCANNED_TIMES.json @@ -0,0 +1,62 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "SCANNED_TIMES" + }, + "body": { + "record1": { + "<1>": "F", + "<2>": "12", + "<3>": "Scanned Time", + "<4>": "M", + "<5>": "", + "<6>": "", + "<7>": "MTHS", + "<8>": "", + "<9>": "R", + "<10>": "10", + "<11>": "(MT)", + "<12>": "TIME", + "<13>": "FRANCOIS_R", + "<14>": "List of scanned times sorted from the oldest to the newest.", + "<15>": "", + "<16>": "", + "<17>": "", + "<18>": "", + "<19>": "", + "<20>": "", + "<21>": "", + "<22>": "", + "<23>": "", + "<24>": "", + "<25>": "", + "<26>": "", + "<27>": "", + "<28>": "1", + "<29>": "", + "<30>": "", + "<31>": "0", + "<32>": "", + "<33>": "", + "<34>": "0", + "<35>": "16:34:22 13 SEP 2018", + "<36>": "SCAN_LOG", + "<37>": "0", + "<38>": "", + "<39>": "", + "<40>": "", + "<41>": "", + "<42>": "", + "<43>": "", + "<44>": "", + "<45>": "", + "<46>": "", + "<47>": "", + "<48>": "", + "<49>": "", + "<50>": "", + "<51>": "\u0000\u0000\u0000\u0000\u0000\u001b\u0000\u001b\u0000\u0000\u0000ÀCÀ*‹\f\u0000ÀUc\u001e@ÀC)¸\u0000\u0000\u0000\u0000\u0000L\u0000V\u0000\u0000\u0000ÀCÀ*‹\f\u0000ÀUc\u001e@ÀÃfQH\"\u0000J@\u0000ÀCÀC€\u0001n@ÀÃdQH4\u0000J<\u0000ÀCÀC€\u0006n@ÀC)¸JH\u0000C€\u000bn@ÀC)¸\u0004MTHS\u0004R#10\u0000\u0000\u0000\u0000\u00003\u0000=\u0000\u0000\u0000ÀÃgQG%\u0000ÀCÀC€\u0006€\u0001,\u0007ã\u0003cQG%\u0000tÀ*§‹\f\u0000ÀUcÀC\u001b@t\u0004MTHS\u0004(MT)" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/DICT.SCANS%003ASCAN_ID.json b/LSL2/APPROW/DICT.SCANS%003ASCAN_ID.json new file mode 100644 index 0000000..d275e7a --- /dev/null +++ b/LSL2/APPROW/DICT.SCANS%003ASCAN_ID.json @@ -0,0 +1,62 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "SCAN_ID" + }, + "body": { + "record1": { + "<1>": "F", + "<2>": "0", + "<3>": "Scan ID", + "<4>": "S", + "<5>": "0", + "<6>": "", + "<7>": "", + "<8>": "", + "<9>": "L", + "<10>": "40", + "<11>": "", + "<12>": "VARCHAR(255)", + "<13>": "FRANCOIS_R", + "<14>": "Unique identifier for the scan. Based on GUID (RTI_CreateGUID).", + "<15>": "", + "<16>": "", + "<17>": "", + "<18>": "", + "<19>": "", + "<20>": "", + "<21>": "", + "<22>": "", + "<23>": "", + "<24>": "", + "<25>": "", + "<26>": "", + "<27>": "", + "<28>": "1", + "<29>": "", + "<30>": "", + "<31>": "0", + "<32>": "", + "<33>": "", + "<34>": "0", + "<35>": "16:34:22 13 SEP 2018", + "<36>": "", + "<37>": "0", + "<38>": "", + "<39>": "", + "<40>": "", + "<41>": "", + "<42>": "", + "<43>": "", + "<44>": "", + "<45>": "", + "<46>": "", + "<47>": "", + "<48>": "", + "<49>": "", + "<50>": "", + "<51>": "\u0000\u0000\u0000\u0000\u0000\u0014\u0000\u0014\u0000\u0000\u0000ÀCÀ)@ÀC)¸\u0000\u0000\u0000\u0000\u0000E\u0000J\u0000\u0000\u0000ÀCÀ)@ÀÃfQH\u001b\u0000J9\u0000J#\u0000C€\u0001n@ÀÃdQH-\u0000J5\u0000ÀCÀC€\u0001n@ÀC)¸JA\u0000C€\u0006n@ÀC)¸\u0004L#40\u0000\u0000\u0000\u0000\u0000+\u0000-\u0000\u0000\u0000ÀÃgQG%\u0000ÀCÀC€\u0002€\u0001,\u0007ã\u0003cQG%\u0000tÀ)ÀC@t\u0000\u0000" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/DICT.SCANS%003ASCAN_TYPE.json b/LSL2/APPROW/DICT.SCANS%003ASCAN_TYPE.json new file mode 100644 index 0000000..b38dcb6 --- /dev/null +++ b/LSL2/APPROW/DICT.SCANS%003ASCAN_TYPE.json @@ -0,0 +1,62 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "SCAN_TYPE" + }, + "body": { + "record1": { + "<1>": "F", + "<2>": "3", + "<3>": "Scan Type", + "<4>": "S", + "<5>": "", + "<6>": "", + "<7>": "", + "<8>": "", + "<9>": "L", + "<10>": "20", + "<11>": "", + "<12>": "VARCHAR(255)", + "<13>": "FRANCOIS_R", + "<14>": "Type of scan operation. This list can be extended.", + "<15>": "", + "<16>": "", + "<17>": "", + "<18>": "", + "<19>": "", + "<20>": "", + "<21>": "", + "<22>": "", + "<23>": "", + "<24>": "", + "<25>": "", + "<26>": "", + "<27>": "", + "<28>": "1", + "<29>": "", + "<30>": "", + "<31>": "0", + "<32>": "", + "<33>": "", + "<34>": "0", + "<35>": "16:34:22 13 SEP 2018", + "<36>": "", + "<37>": "0", + "<38>": "", + "<39>": "", + "<40>": "", + "<41>": "", + "<42>": "", + "<43>": "", + "<44>": "", + "<45>": "", + "<46>": "", + "<47>": "", + "<48>": "", + "<49>": "", + "<50>": "", + "<51>": "\u0000\u0000\u0000\u0000\u0000\u001a\u0000\u001a\u0000\u0000\u0000ÀCÀ*‹\u0003\u0000cc\u001e@ÀC)¸\u0000\u0000\u0000\u0000\u0000K\u0000P\u0000\u0000\u0000ÀCÀ*‹\u0003\u0000cc\u001e@ÀÃfQH!\u0000J?\u0000J)\u0000C€\u0001n@ÀÃdQH3\u0000J;\u0000ÀCÀC€\u0001n@ÀC)¸JG\u0000C€\u0006n@ÀC)¸\u0004L#20\u0000\u0000\u0000\u0000\u00002\u00004\u0000\u0000\u0000ÀÃgQG%\u0000ÀCÀC€\u0002€\u0001,\u0007ã\u0003cQG%\u0000tÀ*§‹\u0003\u0000ccÀC\u001b@t\u0000\u0000" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/DICT.SCANS%003ASCHEDULER_WAFER_COUNT.json b/LSL2/APPROW/DICT.SCANS%003ASCHEDULER_WAFER_COUNT.json new file mode 100644 index 0000000..d3eff2c --- /dev/null +++ b/LSL2/APPROW/DICT.SCANS%003ASCHEDULER_WAFER_COUNT.json @@ -0,0 +1,79 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "SCHEDULER_WAFER_COUNT" + }, + "body": { + "record1": { + "<1>": "S", + "<2>": "", + "<3>": { + "<3,1>": "Scheduler", + "<3,2>": "Wafer", + "<3,3>": "Count" + }, + "<4>": "S", + "<5>": "", + "<6>": "", + "<7>": "MD0", + "<8>": { + "<8,1>": "Declare function Database_Services", + "<8,2>": "", + "<8,3>": "@ANS = Database_Services('CalculateColumn')" + }, + "<9>": "R", + "<10>": "6", + "<11>": "(MD0)", + "<12>": "INTEGER", + "<13>": "FRANCOIS_R", + "<14>": "Wafer count as indicated in the schedule.", + "<15>": "", + "<16>": "", + "<17>": "", + "<18>": "", + "<19>": "", + "<20>": "", + "<21>": "", + "<22>": "", + "<23>": "", + "<24>": "", + "<25>": "", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "", + "<30>": "", + "<31>": "", + "<32>": "", + "<33>": "", + "<34>": "", + "<35>": "16:34:22 13 SEP 2018", + "<36>": "", + "<37>": "0", + "<38>": "", + "<39>": "", + "<40>": "", + "<41>": "", + "<42>": "", + "<43>": "", + "<44>": "", + "<45>": "", + "<46>": "", + "<47>": "", + "<48>": "", + "<49>": "", + "<50>": "", + "<51>": { + "<51,1>": { + "<51,1,1>": "\u0000\u0001\u0000\u0000\u0000V\u0000\u0000\u0000\u0000ÀÃè:ÀC€\u0013€\u0001A\u0001¹@èG\"\u0000ÀC)¸èfQH7\u0000ÀCÀC€#n@ÀC)¸JV\u0000ÀCÀC€#n@èeQHR\u0000ã\u0003GR\u0000ÀCÀC€'n@ÀC)¸\u0011DATABASE_SERVICES\u000fCalculateColumn\u0003MD0\u0003R#6SCHEDULER_WAFER_COUNT\r\nSYM__MODE,-1,1\r\n", + "<51,1,2>": { + "<51,1,2,1>": "DATABASE_SERVICES", + "<51,1,2,2>": "" + }, + "<51,1,3>": "\u0002\u0001\u0000\"\u0000\u0002\u0002\u00007\u0000\u0002\u0003\u0000V\u0000\u0002\u0004\u0000R\u0000\u0002\u0005\u0000R\u0000\u0007SYM__WU\u001a\u0000\u0002\u0006\u0000R\u0000" + } + } + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/DICT.SCANS%003ATOOL_ID.json b/LSL2/APPROW/DICT.SCANS%003ATOOL_ID.json new file mode 100644 index 0000000..576e396 --- /dev/null +++ b/LSL2/APPROW/DICT.SCANS%003ATOOL_ID.json @@ -0,0 +1,62 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "TOOL_ID" + }, + "body": { + "record1": { + "<1>": "F", + "<2>": "7", + "<3>": "Tool ID", + "<4>": "S", + "<5>": "", + "<6>": "", + "<7>": "", + "<8>": "", + "<9>": "L", + "<10>": "20", + "<11>": "", + "<12>": "VARCHAR(255)", + "<13>": "FRANCOIS_R", + "<14>": "Tool identifier.", + "<15>": "", + "<16>": "", + "<17>": "", + "<18>": "", + "<19>": "", + "<20>": "", + "<21>": "", + "<22>": "", + "<23>": "", + "<24>": "", + "<25>": "", + "<26>": "", + "<27>": "", + "<28>": "1", + "<29>": "", + "<30>": "", + "<31>": "0", + "<32>": "", + "<33>": "", + "<34>": "0", + "<35>": "16:34:22 13 SEP 2018", + "<36>": "", + "<37>": "0", + "<38>": "", + "<39>": "", + "<40>": "", + "<41>": "", + "<42>": "", + "<43>": "", + "<44>": "", + "<45>": "", + "<46>": "", + "<47>": "", + "<48>": "", + "<49>": "", + "<50>": "", + "<51>": "\u0000\u0000\u0000\u0000\u0000\u001a\u0000\u001a\u0000\u0000\u0000ÀCÀ*‹\u0007\u0000cc\u001e@ÀC)¸\u0000\u0000\u0000\u0000\u0000K\u0000P\u0000\u0000\u0000ÀCÀ*‹\u0007\u0000cc\u001e@ÀÃfQH!\u0000J?\u0000J)\u0000C€\u0001n@ÀÃdQH3\u0000J;\u0000ÀCÀC€\u0001n@ÀC)¸JG\u0000C€\u0006n@ÀC)¸\u0004L#20\u0000\u0000\u0000\u0000\u00002\u00004\u0000\u0000\u0000ÀÃgQG%\u0000ÀCÀC€\u0002€\u0001,\u0007ã\u0003cQG%\u0000tÀ*§‹\u0007\u0000ccÀC\u001b@t\u0000\u0000" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/DICT.SCANS%003ATOOL_NAME.json b/LSL2/APPROW/DICT.SCANS%003ATOOL_NAME.json new file mode 100644 index 0000000..cf14f2f --- /dev/null +++ b/LSL2/APPROW/DICT.SCANS%003ATOOL_NAME.json @@ -0,0 +1,75 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "TOOL_NAME" + }, + "body": { + "record1": { + "<1>": "S", + "<2>": "", + "<3>": "Tool Name", + "<4>": "S", + "<5>": "", + "<6>": "", + "<7>": "", + "<8>": { + "<8,1>": "Declare function Database_Services", + "<8,2>": "", + "<8,3>": "@ANS = Database_Services('CalculateColumn')" + }, + "<9>": "L", + "<10>": "20", + "<11>": "", + "<12>": "VARCHAR(255)", + "<13>": "FRANCOIS_R", + "<14>": "", + "<15>": "", + "<16>": "", + "<17>": "", + "<18>": "", + "<19>": "", + "<20>": "", + "<21>": "", + "<22>": "", + "<23>": "", + "<24>": "", + "<25>": "", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "", + "<30>": "", + "<31>": "", + "<32>": "", + "<33>": "", + "<34>": "", + "<35>": "16:34:22 13 SEP 2018", + "<36>": "", + "<37>": "0", + "<38>": "", + "<39>": "", + "<40>": "", + "<41>": "", + "<42>": "", + "<43>": "", + "<44>": "", + "<45>": "", + "<46>": "", + "<47>": "", + "<48>": "", + "<49>": "", + "<50>": "", + "<51>": { + "<51,1>": { + "<51,1,1>": "\u0000\u0001\u0000\u0000\u0000A\u0000g\u0000\u0000\u0000ÀÃè:ÀC€\u0013€\u0001A\u0001¹@èG\"\u0000ÀC)¸èfQH/\u0000ÀC)¸JA\u0000èeQH=\u0000ÀCÀC€#n@ÀC)¸\u0011DATABASE_SERVICES\u000fCalculateColumn\u0004L#20TOOL_NAME\r\nSYM__MODE,-1,1\r\n", + "<51,1,2>": { + "<51,1,2,1>": "DATABASE_SERVICES", + "<51,1,2,2>": "" + }, + "<51,1,3>": "\u0002\u0001\u0000\"\u0000\u0002\u0002\u0000/\u0000\u0002\u0003\u0000A\u0000\u0002\u0004\u0000=\u0000\u0007SYM__WU\u001a\u0000\u0002\u0005\u0000=\u0000" + } + } + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/DICT.SCANS%003ATRANSFER_TOOL_ID.json b/LSL2/APPROW/DICT.SCANS%003ATRANSFER_TOOL_ID.json new file mode 100644 index 0000000..a23d4f4 --- /dev/null +++ b/LSL2/APPROW/DICT.SCANS%003ATRANSFER_TOOL_ID.json @@ -0,0 +1,62 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "TRANSFER_TOOL_ID" + }, + "body": { + "record1": { + "<1>": "F", + "<2>": "20", + "<3>": "Transfer Tool Id", + "<4>": "S", + "<5>": "", + "<6>": "", + "<7>": "", + "<8>": "", + "<9>": "L", + "<10>": "20", + "<11>": "", + "<12>": "VARCHAR(255)", + "<13>": "FRANCOIS_R", + "<14>": "", + "<15>": "", + "<16>": "", + "<17>": "", + "<18>": "", + "<19>": "", + "<20>": "", + "<21>": "", + "<22>": "", + "<23>": "", + "<24>": "", + "<25>": "", + "<26>": "", + "<27>": "", + "<28>": "1", + "<29>": "", + "<30>": "", + "<31>": "0", + "<32>": "", + "<33>": "", + "<34>": "0", + "<35>": "16:34:23 13 SEP 2018", + "<36>": "", + "<37>": "", + "<38>": "", + "<39>": "", + "<40>": "", + "<41>": "", + "<42>": "", + "<43>": "", + "<44>": "", + "<45>": "", + "<46>": "", + "<47>": "", + "<48>": "", + "<49>": "", + "<50>": "", + "<51>": "\u0000\u0000\u0000\u0000\u0000\u001a\u0000\u001a\u0000\u0000\u0000ÀCÀ*‹\u0014\u0000cc\u001e@ÀC)¸\u0000\u0000\u0000\u0000\u0000K\u0000P\u0000\u0000\u0000ÀCÀ*‹\u0014\u0000cc\u001e@ÀÃfQH!\u0000J?\u0000J)\u0000C€\u0001n@ÀÃdQH3\u0000J;\u0000ÀCÀC€\u0001n@ÀC)¸JG\u0000C€\u0006n@ÀC)¸\u0004L#20\u0000\u0000\u0000\u0000\u00002\u00004\u0000\u0000\u0000ÀÃgQG%\u0000ÀCÀC€\u0002€\u0001,\u0007ã\u0003cQG%\u0000tÀ*§‹\u0014\u0000ccÀC\u001b@t\u0000\u0000" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/DICT.SCANS%003ATRANSFER_TOOL_NAME.json b/LSL2/APPROW/DICT.SCANS%003ATRANSFER_TOOL_NAME.json new file mode 100644 index 0000000..4a1c603 --- /dev/null +++ b/LSL2/APPROW/DICT.SCANS%003ATRANSFER_TOOL_NAME.json @@ -0,0 +1,75 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "TRANSFER_TOOL_NAME" + }, + "body": { + "record1": { + "<1>": "S", + "<2>": "", + "<3>": "Transfer Tool Name", + "<4>": "S", + "<5>": "", + "<6>": "", + "<7>": "", + "<8>": { + "<8,1>": "Declare function Database_Services", + "<8,2>": "", + "<8,3>": "@ANS = Database_Services('CalculateColumn')" + }, + "<9>": "L", + "<10>": "20", + "<11>": "", + "<12>": "VARCHAR(255)", + "<13>": "FRANCOIS_R", + "<14>": "", + "<15>": "", + "<16>": "", + "<17>": "", + "<18>": "", + "<19>": "", + "<20>": "", + "<21>": "", + "<22>": "", + "<23>": "", + "<24>": "", + "<25>": "", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "", + "<30>": "", + "<31>": "", + "<32>": "", + "<33>": "", + "<34>": "", + "<35>": "16:34:22 13 SEP 2018", + "<36>": "", + "<37>": "0", + "<38>": "", + "<39>": "", + "<40>": "", + "<41>": "", + "<42>": "", + "<43>": "", + "<44>": "", + "<45>": "", + "<46>": "", + "<47>": "", + "<48>": "", + "<49>": "", + "<50>": "", + "<51>": { + "<51,1>": { + "<51,1,1>": "\u0000\u0001\u0000\u0000\u0000A\u0000g\u0000\u0000\u0000ÀÃè:ÀC€\u0013€\u0001A\u0001¹@èG\"\u0000ÀC)¸èfQH/\u0000ÀC)¸JA\u0000èeQH=\u0000ÀCÀC€#n@ÀC)¸\u0011DATABASE_SERVICES\u000fCalculateColumn\u0004L#20TRANSFER_TOOL_NAME\r\nSYM__MODE,-1,1\r\n", + "<51,1,2>": { + "<51,1,2,1>": "DATABASE_SERVICES", + "<51,1,2,2>": "" + }, + "<51,1,3>": "\u0002\u0001\u0000\"\u0000\u0002\u0002\u0000/\u0000\u0002\u0003\u0000A\u0000\u0002\u0004\u0000=\u0000\u0007SYM__WU\u001a\u0000\u0002\u0005\u0000=\u0000" + } + } + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/DICT.SCANS%003AUNLOAD_PL_CONFIRMED.json b/LSL2/APPROW/DICT.SCANS%003AUNLOAD_PL_CONFIRMED.json new file mode 100644 index 0000000..c4d464c --- /dev/null +++ b/LSL2/APPROW/DICT.SCANS%003AUNLOAD_PL_CONFIRMED.json @@ -0,0 +1,62 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "UNLOAD_PL_CONFIRMED" + }, + "body": { + "record1": { + "<1>": "F", + "<2>": "18", + "<3>": "Unload PL Confirmed", + "<4>": "S", + "<5>": "", + "<6>": "", + "<7>": "B", + "<8>": "", + "<9>": "L", + "<10>": "3", + "<11>": "(B)", + "<12>": "BOOLEAN", + "<13>": "FRANCOIS_R", + "<14>": "Boolean flag to indicate that the system confirmed the cassette is being unloaded from the same PL that was originally used to load. If the operator fails to scan the same PL, this will not be populated.", + "<15>": "", + "<16>": "", + "<17>": "", + "<18>": "", + "<19>": "", + "<20>": "", + "<21>": "", + "<22>": "", + "<23>": "", + "<24>": "", + "<25>": "", + "<26>": "", + "<27>": "", + "<28>": "1", + "<29>": "", + "<30>": "", + "<31>": "0", + "<32>": "", + "<33>": "", + "<34>": "0", + "<35>": "16:34:23 13 SEP 2018", + "<36>": "", + "<37>": "0", + "<38>": "", + "<39>": "", + "<40>": "", + "<41>": "", + "<42>": "", + "<43>": "", + "<44>": "", + "<45>": "", + "<46>": "", + "<47>": "", + "<48>": "", + "<49>": "", + "<50>": "", + "<51>": "\u0000\u0000\u0000\u0000\u0000\u001a\u0000\u001a\u0000\u0000\u0000ÀCÀ*‹\u0012\u0000cc\u001e@ÀC)¸\u0000\u0000\u0000\u0000\u0000K\u0000Q\u0000\u0000\u0000ÀCÀ*‹\u0012\u0000cc\u001e@ÀÃfQH!\u0000J?\u0000ÀCÀC€\u0001n@ÀÃdQH3\u0000J;\u0000ÀCÀC€\u0003n@ÀC)¸JG\u0000C€\u0007n@ÀC)¸\u0001B\u0003L#3\u0000\u0000\u0000\u0000\u00002\u00008\u0000\u0000\u0000ÀÃgQG%\u0000ÀCÀC€\u0003€\u0001,\u0007ã\u0003cQG%\u0000tÀ*§‹\u0012\u0000ccÀC\u001b@t\u0001B\u0003(B)" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/DICT.SCANS%003AWAFER_COUNT_CONFIRMED.json b/LSL2/APPROW/DICT.SCANS%003AWAFER_COUNT_CONFIRMED.json new file mode 100644 index 0000000..fb4f8bb --- /dev/null +++ b/LSL2/APPROW/DICT.SCANS%003AWAFER_COUNT_CONFIRMED.json @@ -0,0 +1,62 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "WAFER_COUNT_CONFIRMED" + }, + "body": { + "record1": { + "<1>": "F", + "<2>": "15", + "<3>": "Wafer Count Confirmed", + "<4>": "S", + "<5>": "", + "<6>": "", + "<7>": "B", + "<8>": "", + "<9>": "L", + "<10>": "3", + "<11>": "(B)", + "<12>": "BOOLEAN", + "<13>": "FRANCOIS_R", + "<14>": "Boolean flag to indicate that the operator confirmed the number of wafers in the cassette matches the number of wafers indicated in the scheduler.", + "<15>": "", + "<16>": "", + "<17>": "", + "<18>": "", + "<19>": "", + "<20>": "", + "<21>": "", + "<22>": "", + "<23>": "", + "<24>": "", + "<25>": "", + "<26>": "", + "<27>": "", + "<28>": "1", + "<29>": "", + "<30>": "", + "<31>": "0", + "<32>": "", + "<33>": "", + "<34>": "0", + "<35>": "16:34:22 13 SEP 2018", + "<36>": "", + "<37>": "0", + "<38>": "", + "<39>": "", + "<40>": "", + "<41>": "", + "<42>": "", + "<43>": "", + "<44>": "", + "<45>": "", + "<46>": "", + "<47>": "", + "<48>": "", + "<49>": "", + "<50>": "", + "<51>": "\u0000\u0000\u0000\u0000\u0000\u001a\u0000\u001a\u0000\u0000\u0000ÀCÀ*‹\u000f\u0000cc\u001e@ÀC)¸\u0000\u0000\u0000\u0000\u0000K\u0000Q\u0000\u0000\u0000ÀCÀ*‹\u000f\u0000cc\u001e@ÀÃfQH!\u0000J?\u0000ÀCÀC€\u0001n@ÀÃdQH3\u0000J;\u0000ÀCÀC€\u0003n@ÀC)¸JG\u0000C€\u0007n@ÀC)¸\u0001B\u0003L#3\u0000\u0000\u0000\u0000\u00002\u00008\u0000\u0000\u0000ÀÃgQG%\u0000ÀCÀC€\u0003€\u0001,\u0007ã\u0003cQG%\u0000tÀ*§‹\u000f\u0000ccÀC\u001b@t\u0001B\u0003(B)" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/STAGE%003AFWIC.json b/LSL2/APPROW/STAGE%003AFWIC.json new file mode 100644 index 0000000..e1b4583 --- /dev/null +++ b/LSL2/APPROW/STAGE%003AFWIC.json @@ -0,0 +1,12 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "FWIC" + }, + "body": { + "record1": { + "<1>": "First Wafer Clean" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/STAGE%003AFWII.json b/LSL2/APPROW/STAGE%003AFWII.json new file mode 100644 index 0000000..b6e01e1 --- /dev/null +++ b/LSL2/APPROW/STAGE%003AFWII.json @@ -0,0 +1,12 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "FWII" + }, + "body": { + "record1": { + "<1>": "First Wafer Inspection" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/STAGE%003AFWIS.json b/LSL2/APPROW/STAGE%003AFWIS.json new file mode 100644 index 0000000..0d210e7 --- /dev/null +++ b/LSL2/APPROW/STAGE%003AFWIS.json @@ -0,0 +1,12 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "FWIS" + }, + "body": { + "record1": { + "<1>": "First Wafer Surfscan" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/STAGE%003ALBLCHK.json b/LSL2/APPROW/STAGE%003ALBLCHK.json new file mode 100644 index 0000000..d32e18c --- /dev/null +++ b/LSL2/APPROW/STAGE%003ALBLCHK.json @@ -0,0 +1,12 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "LBLCHK" + }, + "body": { + "record1": { + "<1>": "QA Label Check" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/STAGE%003ALOAD.json b/LSL2/APPROW/STAGE%003ALOAD.json new file mode 100644 index 0000000..1f16b7e --- /dev/null +++ b/LSL2/APPROW/STAGE%003ALOAD.json @@ -0,0 +1,12 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "LOAD" + }, + "body": { + "record1": { + "<1>": "Reactor Load" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/STAGE%003ALOAD_QA_MET.json b/LSL2/APPROW/STAGE%003ALOAD_QA_MET.json new file mode 100644 index 0000000..169dd2d --- /dev/null +++ b/LSL2/APPROW/STAGE%003ALOAD_QA_MET.json @@ -0,0 +1,12 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "LOAD_QA_MET" + }, + "body": { + "record1": { + "<1>": "Load QA Metrology" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/STAGE%003ALWIC.json b/LSL2/APPROW/STAGE%003ALWIC.json new file mode 100644 index 0000000..db40916 --- /dev/null +++ b/LSL2/APPROW/STAGE%003ALWIC.json @@ -0,0 +1,12 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "LWIC" + }, + "body": { + "record1": { + "<1>": "Last Wafer Cleans" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/STAGE%003ALWII.json b/LSL2/APPROW/STAGE%003ALWII.json new file mode 100644 index 0000000..c0f2ca0 --- /dev/null +++ b/LSL2/APPROW/STAGE%003ALWII.json @@ -0,0 +1,12 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "LWII" + }, + "body": { + "record1": { + "<1>": "Last Wafer Inspection" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/STAGE%003ALWIS.json b/LSL2/APPROW/STAGE%003ALWIS.json new file mode 100644 index 0000000..8b0bf7d --- /dev/null +++ b/LSL2/APPROW/STAGE%003ALWIS.json @@ -0,0 +1,12 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "LWIS" + }, + "body": { + "record1": { + "<1>": "Last Wafer Surfscan" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/STAGE%003ANCR.json b/LSL2/APPROW/STAGE%003ANCR.json new file mode 100644 index 0000000..be92d65 --- /dev/null +++ b/LSL2/APPROW/STAGE%003ANCR.json @@ -0,0 +1,12 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "NCR" + }, + "body": { + "record1": { + "<1>": "NCR" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/STAGE%003APOST.json b/LSL2/APPROW/STAGE%003APOST.json new file mode 100644 index 0000000..7285044 --- /dev/null +++ b/LSL2/APPROW/STAGE%003APOST.json @@ -0,0 +1,12 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "POST" + }, + "body": { + "record1": { + "<1>": "Post-Epi" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/STAGE%003APOST_QA_MET.json b/LSL2/APPROW/STAGE%003APOST_QA_MET.json new file mode 100644 index 0000000..75925bc --- /dev/null +++ b/LSL2/APPROW/STAGE%003APOST_QA_MET.json @@ -0,0 +1,12 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "POST_QA_MET" + }, + "body": { + "record1": { + "<1>": "Post-Epi QA Metrology" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/STAGE%003APREC.json b/LSL2/APPROW/STAGE%003APREC.json new file mode 100644 index 0000000..fd7d979 --- /dev/null +++ b/LSL2/APPROW/STAGE%003APREC.json @@ -0,0 +1,12 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "PREC" + }, + "body": { + "record1": { + "<1>": "Pre-Epi Clean" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/STAGE%003APREI.json b/LSL2/APPROW/STAGE%003APREI.json new file mode 100644 index 0000000..0bb7ddb --- /dev/null +++ b/LSL2/APPROW/STAGE%003APREI.json @@ -0,0 +1,12 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "PREI" + }, + "body": { + "record1": { + "<1>": "Pre-Epi Inspection" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/STAGE%003APRES.json b/LSL2/APPROW/STAGE%003APRES.json new file mode 100644 index 0000000..5c423d5 --- /dev/null +++ b/LSL2/APPROW/STAGE%003APRES.json @@ -0,0 +1,12 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "PRES" + }, + "body": { + "record1": { + "<1>": "Pre-Epi Surfscan" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/STAGE%003APSTC.json b/LSL2/APPROW/STAGE%003APSTC.json new file mode 100644 index 0000000..835e48f --- /dev/null +++ b/LSL2/APPROW/STAGE%003APSTC.json @@ -0,0 +1,12 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "PSTC" + }, + "body": { + "record1": { + "<1>": "Post-Epi Clean" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/STAGE%003APSTI.json b/LSL2/APPROW/STAGE%003APSTI.json new file mode 100644 index 0000000..7dc015f --- /dev/null +++ b/LSL2/APPROW/STAGE%003APSTI.json @@ -0,0 +1,12 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "PSTI" + }, + "body": { + "record1": { + "<1>": "Post-Epi Inspection" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/STAGE%003APSTS.json b/LSL2/APPROW/STAGE%003APSTS.json new file mode 100644 index 0000000..8d07206 --- /dev/null +++ b/LSL2/APPROW/STAGE%003APSTS.json @@ -0,0 +1,12 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "PSTS" + }, + "body": { + "record1": { + "<1>": "Post-Epi Surfscan" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/STAGE%003AQA.json b/LSL2/APPROW/STAGE%003AQA.json new file mode 100644 index 0000000..492aa9b --- /dev/null +++ b/LSL2/APPROW/STAGE%003AQA.json @@ -0,0 +1,12 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "QA" + }, + "body": { + "record1": { + "<1>": "Final QA" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/STAGE%003ARDS_TEST.json b/LSL2/APPROW/STAGE%003ARDS_TEST.json new file mode 100644 index 0000000..94567a0 --- /dev/null +++ b/LSL2/APPROW/STAGE%003ARDS_TEST.json @@ -0,0 +1,12 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "RDS_TEST" + }, + "body": { + "record1": { + "<1>": "RDS Metrology" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/STAGE%003AROTR.json b/LSL2/APPROW/STAGE%003AROTR.json new file mode 100644 index 0000000..772e426 --- /dev/null +++ b/LSL2/APPROW/STAGE%003AROTR.json @@ -0,0 +1,12 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "ROTR" + }, + "body": { + "record1": { + "<1>": "ROTR Acceptance" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/STAGE%003AUNLOAD.json b/LSL2/APPROW/STAGE%003AUNLOAD.json new file mode 100644 index 0000000..357ba6a --- /dev/null +++ b/LSL2/APPROW/STAGE%003AUNLOAD.json @@ -0,0 +1,12 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "UNLOAD" + }, + "body": { + "record1": { + "<1>": "Reactor Unload" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/STAGE%003AUNLOAD_QA_MET.json b/LSL2/APPROW/STAGE%003AUNLOAD_QA_MET.json new file mode 100644 index 0000000..732b209 --- /dev/null +++ b/LSL2/APPROW/STAGE%003AUNLOAD_QA_MET.json @@ -0,0 +1,12 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "UNLOAD_QA_MET" + }, + "body": { + "record1": { + "<1>": "Unload QA Metrology" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/STAGE%003AVER.json b/LSL2/APPROW/STAGE%003AVER.json new file mode 100644 index 0000000..251ac39 --- /dev/null +++ b/LSL2/APPROW/STAGE%003AVER.json @@ -0,0 +1,12 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "VER" + }, + "body": { + "record1": { + "<1>": "Verify Quantity" + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/SYSREPOSVIEWS%003ALSL2_EDGE_INSP_IMPROVEMENT.json b/LSL2/APPROW/SYSREPOSVIEWS%003ALSL2_EDGE_INSP_IMPROVEMENT.json new file mode 100644 index 0000000..c07e066 --- /dev/null +++ b/LSL2/APPROW/SYSREPOSVIEWS%003ALSL2_EDGE_INSP_IMPROVEMENT.json @@ -0,0 +1,145 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "LSL2*EDGE_INSP_IMPROVEMENT" + }, + "body": { + "record1": { + "<1>": "EDGE_INSP_IMPROVEMENT", + "<2>": "", + "<3>": "", + "<4>": "LSL2", + "<5>": "", + "<6>": "", + "<7>": { + "<7,1>": "LSL2", + "<7,2>": "LSL2", + "<7,3>": "LSL2", + "<7,4>": "LSL2", + "<7,5>": "LSL2", + "<7,6>": "LSL2", + "<7,7>": "LSL2", + "<7,8>": "LSL2", + "<7,9>": "LSL2", + "<7,10>": "LSL2", + "<7,11>": "LSL2", + "<7,12>": "LSL2", + "<7,13>": "LSL2", + "<7,14>": "LSL2", + "<7,15>": "LSL2", + "<7,16>": "LSL2", + "<7,17>": "LSL2", + "<7,18>": "LSL2", + "<7,19>": "LSL2", + "<7,20>": "LSL2", + "<7,21>": "LSL2", + "<7,22>": "LSL2", + "<7,23>": "" + }, + "<8>": "", + "<9>": "", + "<10>": "", + "<11>": { + "<11,1>": "Application Rows", + "<11,2>": "3-3:SYSREPOSVIEWS:LSL2_EDGE_INSP_IMPROVEMENT", + "<11,3>": "Database Columns", + "<11,4>": "3-3:CLEAN_INSP.SPEC_EDGE", + "<11,5>": "3-3:PROD_SPEC.STAGE_EDGE", + "<11,6>": "3-3:PRS_STAGE.EDGE", + "<11,7>": "3-3:RDS.FWI_CI_SPEC_EDGE", + "<11,8>": "3-3:RDS.LWI_CI_SPEC_EDGE", + "<11,9>": "3-3:RDS.POST_CI_SPEC_EDGE", + "<11,10>": "3-3:RDS.PRE_CI_SPEC_EDGE", + "<11,11>": "3-3:WM_OUT.EPO_CI_SPEC_EDGE", + "<11,12>": "OpenInsight Event Executables", + "<11,13>": "2-2:CLICK", + "<11,14>": "3-3:RDS_POST_EPI.BUTTON_11", + "<11,15>": "2-2:CLOSE", + "<11,16>": "3-3:DBW_WM_OUT_WAFER_SELECT.", + "<11,17>": "3-3:DBW_WO_MAT_WAFER_SELECT.", + "<11,18>": "3-3:WO_DAILY_SCHED_SINGLE.", + "<11,19>": "2-2:CREATE", + "<11,20>": "3-3:WO_DAILY_SCHED_SINGLE.", + "<11,21>": "2-2:LOSTFOCUS", + "<11,22>": "3-3:DBW_WO_MAT_WAFER_SELECT.EDT_SLOTS", + "<11,23>": "OpenInsight Events", + "<11,24>": "2-2:CLICK", + "<11,25>": "3-3:RDS_POST_EPI.BUTTON_11", + "<11,26>": "2-2:CLOSE", + "<11,27>": "3-3:DBW_WM_OUT_WAFER_SELECT.", + "<11,28>": "3-3:DBW_WO_MAT_WAFER_SELECT.", + "<11,29>": "3-3:WO_DAILY_SCHED_SINGLE.", + "<11,30>": "2-2:CREATE", + "<11,31>": "3-3:WO_DAILY_SCHED_SINGLE.", + "<11,32>": "2-2:LOSTFOCUS", + "<11,33>": "3-3:DBW_WO_MAT_WAFER_SELECT.EDT_SLOTS", + "<11,34>": "OpenInsight Form Executables", + "<11,35>": "3-3:CLEAN_INSP", + "<11,36>": "3-3:DBW_WM_OUT_WAFER_SELECT", + "<11,37>": "3-3:DBW_WO_MAT_WAFER_SELECT", + "<11,38>": "3-3:NDW_RDS_QUERY", + "<11,39>": "3-3:NDW_RDS_QUICK_QUERY", + "<11,40>": "3-3:NDW_WM_OUT_QUICK_QUERY", + "<11,41>": "3-3:PROD_SPEC", + "<11,42>": "3-3:PRS_STAGE", + "<11,43>": "3-3:RDS_POST_EPI", + "<11,44>": "3-3:WM_OUT", + "<11,45>": "3-3:WO_DAILY_SCHED_SINGLE", + "<11,46>": "OpenInsight Forms", + "<11,47>": "3-3:CLEAN_INSP", + "<11,48>": "3-3:DBW_WM_OUT_WAFER_SELECT", + "<11,49>": "3-3:DBW_WO_MAT_WAFER_SELECT", + "<11,50>": "3-3:NDW_RDS_QUERY", + "<11,51>": "3-3:NDW_RDS_QUICK_QUERY", + "<11,52>": "3-3:NDW_WM_OUT_QUICK_QUERY", + "<11,53>": "3-3:PROD_SPEC", + "<11,54>": "3-3:PRS_STAGE", + "<11,55>": "3-3:RDS_POST_EPI", + "<11,56>": "3-3:WM_OUT", + "<11,57>": "3-3:WO_DAILY_SCHED_SINGLE", + "<11,58>": "Popup Boxes", + "<11,59>": "3-3:ENG_OPTIONS", + "<11,60>": "Stored Procedure Debug Tables", + "<11,61>": "3-3:CLEAN_INSP", + "<11,62>": "3-3:CLEAN_INSP_SERVICES", + "<11,63>": "3-3:COMM_RDS", + "<11,64>": "3-3:COMM_WM_OUT", + "<11,65>": "3-3:NDW_RDS_QUERY_EVENTS", + "<11,66>": "3-3:NDW_RDS_QUICK_QUERY_EVENTS", + "<11,67>": "3-3:NDW_WM_OUT_QUICK_QUERY_EVENTS", + "<11,68>": "3-3:OBJ_CLEAN_INSP", + "<11,69>": "3-3:RDS_REACT_RUN", + "<11,70>": "3-3:WO_DAILY_SCHED_COMM2", + "<11,71>": "3-3:WO_MAT_QA_SERVICES", + "<11,72>": "Stored Procedure Executables", + "<11,73>": "3-3:CLEAN_INSP", + "<11,74>": "3-3:CLEAN_INSP_SERVICES", + "<11,75>": "3-3:COMM_RDS", + "<11,76>": "3-3:COMM_WM_OUT", + "<11,77>": "3-3:NDW_RDS_QUERY_EVENTS", + "<11,78>": "3-3:NDW_RDS_QUICK_QUERY_EVENTS", + "<11,79>": "3-3:NDW_WM_OUT_QUICK_QUERY_EVENTS", + "<11,80>": "3-3:OBJ_CLEAN_INSP", + "<11,81>": "3-3:RDS_REACT_RUN", + "<11,82>": "3-3:WO_DAILY_SCHED_COMM2", + "<11,83>": "3-3:WO_MAT_QA_SERVICES", + "<11,84>": "Stored Procedure Inserts", + "<11,85>": "3-3:CLEAN_INSP_EQUATES", + "<11,86>": "3-3:PRS_STAGE_EQUATES", + "<11,87>": "Stored Procedures", + "<11,88>": "3-3:CLEAN_INSP", + "<11,89>": "3-3:CLEAN_INSP_SERVICES", + "<11,90>": "3-3:COMM_RDS", + "<11,91>": "3-3:COMM_WM_OUT", + "<11,92>": "3-3:NDW_RDS_QUERY_EVENTS", + "<11,93>": "3-3:NDW_RDS_QUICK_QUERY_EVENTS", + "<11,94>": "3-3:NDW_WM_OUT_QUICK_QUERY_EVENTS", + "<11,95>": "3-3:OBJ_CLEAN_INSP", + "<11,96>": "3-3:RDS_REACT_RUN", + "<11,97>": "3-3:WO_DAILY_SCHED_COMM2", + "<11,98>": "3-3:WO_MAT_QA_SERVICES" + } + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/SYSREPOSVIEWS%003ALSL2_GAN_RETAIN_MANAGER.json b/LSL2/APPROW/SYSREPOSVIEWS%003ALSL2_GAN_RETAIN_MANAGER.json new file mode 100644 index 0000000..d7d77c7 --- /dev/null +++ b/LSL2/APPROW/SYSREPOSVIEWS%003ALSL2_GAN_RETAIN_MANAGER.json @@ -0,0 +1,136 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "LSL2*GAN_RETAIN_MANAGER" + }, + "body": { + "record1": { + "<1>": "GAN_RETAIN_MANAGER", + "<2>": { + "<2,1>": { + "<2,1,1>": { + "<2,1,1,1>": "Application Rows", + "<2,1,1,2>": "SYSREPOSVIEWS:LSL2_GAN_RETAIN_MANAGER", + "<2,1,1,3>": "", + "<2,1,1,4>": "OpenInsight Form Executables", + "<2,1,1,5>": "NDW_GAN_RETAIN_MANAGER", + "<2,1,1,6>": "NDW_GAN_RETAIN_MANAGER_SEARCH_EDIT", + "<2,1,1,7>": "NDW_GAN_RETAIN_MANAGER_TASK", + "<2,1,1,8>": "NDW_GAN_RETAIN_MANAGER_TASK_DESTROY", + "<2,1,1,9>": "NDW_GAN_RETAIN_MANAGER_TASK_RETAIN", + "<2,1,1,10>": "NDW_TREE_FILTER", + "<2,1,1,11>": "", + "<2,1,1,12>": "OpenInsight Forms", + "<2,1,1,13>": "NDW_GAN_RETAIN_MANAGER", + "<2,1,1,14>": "NDW_GAN_RETAIN_MANAGER_SEARCH_EDIT", + "<2,1,1,15>": "NDW_GAN_RETAIN_MANAGER_TASK", + "<2,1,1,16>": "NDW_GAN_RETAIN_MANAGER_TASK_DESTROY", + "<2,1,1,17>": "NDW_GAN_RETAIN_MANAGER_TASK_RETAIN", + "<2,1,1,18>": "NDW_TREE_FILTER", + "<2,1,1,19>": "", + "<2,1,1,20>": "Stored Procedure Debug Tables", + "<2,1,1,21>": "GAN_SERVICES", + "<2,1,1,22>": "NDW_GAN_RETAIN_MANAGER_EVENTS", + "<2,1,1,23>": "NDW_GAN_RETAIN_MANAGER_SEARCH_EDIT_EVENTS", + "<2,1,1,24>": "NDW_GAN_RETAIN_MANAGER_TASK_DESTROY_EVENTS", + "<2,1,1,25>": "NDW_GAN_RETAIN_MANAGER_TASK_EVENTS", + "<2,1,1,26>": "NDW_GAN_RETAIN_MANAGER_TASK_RETAIN_EVENTS", + "<2,1,1,27>": "RETAINED_WAFERS_ACTIONS", + "<2,1,1,28>": "RETAIN_MANAGER_SERVICES", + "<2,1,1,29>": "NDW_TREE_FILTER_EVENTS", + "<2,1,1,30>": "", + "<2,1,1,31>": "Stored Procedure Executables", + "<2,1,1,32>": "GAN_SERVICES", + "<2,1,1,33>": "NDW_GAN_RETAIN_MANAGER_EVENTS", + "<2,1,1,34>": "NDW_GAN_RETAIN_MANAGER_SEARCH_EDIT_EVENTS", + "<2,1,1,35>": "NDW_GAN_RETAIN_MANAGER_TASK_DESTROY_EVENTS", + "<2,1,1,36>": "NDW_GAN_RETAIN_MANAGER_TASK_EVENTS", + "<2,1,1,37>": "NDW_GAN_RETAIN_MANAGER_TASK_RETAIN_EVENTS", + "<2,1,1,38>": "RETAINED_WAFERS_ACTIONS", + "<2,1,1,39>": "RETAIN_MANAGER_SERVICES", + "<2,1,1,40>": "NDW_TREE_FILTER_EVENTS", + "<2,1,1,41>": "", + "<2,1,1,42>": "Stored Procedure Inserts", + "<2,1,1,43>": "RETAINED_WAFERS_EQUATES", + "<2,1,1,44>": "", + "<2,1,1,45>": "Stored Procedures", + "<2,1,1,46>": "GAN_SERVICES", + "<2,1,1,47>": "NDW_GAN_RETAIN_MANAGER_EVENTS", + "<2,1,1,48>": "NDW_GAN_RETAIN_MANAGER_SEARCH_EDIT_EVENTS", + "<2,1,1,49>": "NDW_GAN_RETAIN_MANAGER_TASK_DESTROY_EVENTS", + "<2,1,1,50>": "NDW_GAN_RETAIN_MANAGER_TASK_EVENTS", + "<2,1,1,51>": "NDW_GAN_RETAIN_MANAGER_TASK_RETAIN_EVENTS", + "<2,1,1,52>": "RETAINED_WAFERS_ACTIONS", + "<2,1,1,53>": "RETAIN_MANAGER_SERVICES", + "<2,1,1,54>": "NDW_TREE_FILTER_EVENTS" + } + } + }, + "<3>": "", + "<4>": "LSL2", + "<5>": "", + "<6>": "", + "<7>": { + "<7,1>": "LSL2", + "<7,2>": "LSL2", + "<7,3>": "LSL2", + "<7,4>": "LSL2", + "<7,5>": "" + }, + "<8>": "", + "<9>": "", + "<10>": "", + "<11>": { + "<11,1>": "Application Rows", + "<11,2>": "3-3:SYSREPOSVIEWS:LSL2_GAN_RETAIN_MANAGER", + "<11,3>": "OpenInsight Form Executables", + "<11,4>": "3-3:NDW_GAN_RETAIN_MANAGER", + "<11,5>": "3-3:NDW_GAN_RETAIN_MANAGER_SEARCH_EDIT", + "<11,6>": "3-3:NDW_GAN_RETAIN_MANAGER_TASK", + "<11,7>": "3-3:NDW_GAN_RETAIN_MANAGER_TASK_DESTROY", + "<11,8>": "3-3:NDW_GAN_RETAIN_MANAGER_TASK_RETAIN", + "<11,9>": "3-3:NDW_TREE_FILTER", + "<11,10>": "OpenInsight Forms", + "<11,11>": "3-3:NDW_GAN_RETAIN_MANAGER", + "<11,12>": "3-3:NDW_GAN_RETAIN_MANAGER_SEARCH_EDIT", + "<11,13>": "3-3:NDW_GAN_RETAIN_MANAGER_TASK", + "<11,14>": "3-3:NDW_GAN_RETAIN_MANAGER_TASK_DESTROY", + "<11,15>": "3-3:NDW_GAN_RETAIN_MANAGER_TASK_RETAIN", + "<11,16>": "3-3:NDW_TREE_FILTER", + "<11,17>": "Stored Procedure Debug Tables", + "<11,18>": "3-3:GAN_SERVICES", + "<11,19>": "3-3:NDW_GAN_RETAIN_MANAGER_EVENTS", + "<11,20>": "3-3:NDW_GAN_RETAIN_MANAGER_SEARCH_EDIT_EVENTS", + "<11,21>": "3-3:NDW_GAN_RETAIN_MANAGER_TASK_DESTROY_EVENTS", + "<11,22>": "3-3:NDW_GAN_RETAIN_MANAGER_TASK_EVENTS", + "<11,23>": "3-3:NDW_GAN_RETAIN_MANAGER_TASK_RETAIN_EVENTS", + "<11,24>": "3-3:NDW_TREE_FILTER_EVENTS", + "<11,25>": "3-3:RETAINED_WAFERS_ACTIONS", + "<11,26>": "3-3:RETAIN_MANAGER_SERVICES", + "<11,27>": "Stored Procedure Executables", + "<11,28>": "3-3:GAN_SERVICES", + "<11,29>": "3-3:NDW_GAN_RETAIN_MANAGER_EVENTS", + "<11,30>": "3-3:NDW_GAN_RETAIN_MANAGER_SEARCH_EDIT_EVENTS", + "<11,31>": "3-3:NDW_GAN_RETAIN_MANAGER_TASK_DESTROY_EVENTS", + "<11,32>": "3-3:NDW_GAN_RETAIN_MANAGER_TASK_EVENTS", + "<11,33>": "3-3:NDW_GAN_RETAIN_MANAGER_TASK_RETAIN_EVENTS", + "<11,34>": "3-3:NDW_TREE_FILTER_EVENTS", + "<11,35>": "3-3:RETAINED_WAFERS_ACTIONS", + "<11,36>": "3-3:RETAIN_MANAGER_SERVICES", + "<11,37>": "Stored Procedure Inserts", + "<11,38>": "3-3:RETAINED_WAFERS_EQUATES", + "<11,39>": "Stored Procedures", + "<11,40>": "3-3:GAN_SERVICES", + "<11,41>": "3-3:NDW_GAN_RETAIN_MANAGER_EVENTS", + "<11,42>": "3-3:NDW_GAN_RETAIN_MANAGER_SEARCH_EDIT_EVENTS", + "<11,43>": "3-3:NDW_GAN_RETAIN_MANAGER_TASK_DESTROY_EVENTS", + "<11,44>": "3-3:NDW_GAN_RETAIN_MANAGER_TASK_EVENTS", + "<11,45>": "3-3:NDW_GAN_RETAIN_MANAGER_TASK_RETAIN_EVENTS", + "<11,46>": "3-3:NDW_TREE_FILTER_EVENTS", + "<11,47>": "3-3:RETAINED_WAFERS_ACTIONS", + "<11,48>": "3-3:RETAIN_MANAGER_SERVICES" + } + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/SYSREPOSVIEWS%003ALSL2_INFINEON_SCAN_APP.json b/LSL2/APPROW/SYSREPOSVIEWS%003ALSL2_INFINEON_SCAN_APP.json new file mode 100644 index 0000000..754428d --- /dev/null +++ b/LSL2/APPROW/SYSREPOSVIEWS%003ALSL2_INFINEON_SCAN_APP.json @@ -0,0 +1,80 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "LSL2*INFINEON_SCAN_APP" + }, + "body": { + "record1": { + "<1>": "Infineon Scan App", + "<2>": "", + "<3>": "", + "<4>": "LSL2", + "<5>": "", + "<6>": "", + "<7>": { + "<7,1>": "LSL2", + "<7,2>": "" + }, + "<8>": "", + "<9>": "", + "<10>": "", + "<11>": { + "<11,1>": "Application Rows", + "<11,2>": "3-3:DICT.SCANS:%TABLE_DESCRIPTION%", + "<11,3>": "3-3:DICT.SCANS:ACCEPTED", + "<11,4>": "3-3:DICT.SCANS:ACCEPTED_DATE", + "<11,5>": "3-3:DICT.SCANS:ACCEPTED_TIME", + "<11,6>": "3-3:DICT.SCANS:ACTION", + "<11,7>": "3-3:DICT.SCANS:BOAT_ID", + "<11,8>": "3-3:DICT.SCANS:CASSETTE_IDS", + "<11,9>": "3-3:DICT.SCANS:CREATED_DATE", + "<11,10>": "3-3:DICT.SCANS:CREATED_TIME", + "<11,11>": "3-3:DICT.SCANS:EMPLOYEE_AUTHORIZED", + "<11,12>": "3-3:DICT.SCANS:EMPLOYEE_ID", + "<11,13>": "3-3:DICT.SCANS:EMPLOYEE_NAME", + "<11,14>": "3-3:DICT.SCANS:EMPLOYEE_NOT_AUTHORIZED_REASON", + "<11,15>": "3-3:DICT.SCANS:LAST_MODIFIED", + "<11,16>": "3-3:DICT.SCANS:LOAD_LOCK", + "<11,17>": "3-3:DICT.SCANS:LOCATION_ID", + "<11,18>": "3-3:DICT.SCANS:LOCATION_NAME", + "<11,19>": "3-3:DICT.SCANS:PL_NUMBER", + "<11,20>": "3-3:DICT.SCANS:SCANNED_DATA", + "<11,21>": "3-3:DICT.SCANS:SCANNED_DATES", + "<11,22>": "3-3:DICT.SCANS:SCANNED_TIMES", + "<11,23>": "3-3:DICT.SCANS:SCAN_ACCEPTABLE", + "<11,24>": "3-3:DICT.SCANS:SCAN_ID", + "<11,25>": "3-3:DICT.SCANS:SCAN_NOT_ACCEPTABLE_REASON", + "<11,26>": "3-3:DICT.SCANS:SCAN_TYPE", + "<11,27>": "3-3:DICT.SCANS:SCHEDULER_WAFER_COUNT", + "<11,28>": "3-3:DICT.SCANS:TOOL_ID", + "<11,29>": "3-3:DICT.SCANS:TOOL_NAME", + "<11,30>": "3-3:DICT.SCANS:TRANSFER_TOOL_ID", + "<11,31>": "3-3:DICT.SCANS:TRANSFER_TOOL_NAME", + "<11,32>": "3-3:DICT.SCANS:UNLOAD_PL_CONFIRMED", + "<11,33>": "3-3:DICT.SCANS:WAFER_COUNT_CONFIRMED", + "<11,34>": "3-3:SYSREPOSVIEWS:LSL2_INFINEON_SCAN_APP", + "<11,35>": "Stored Procedure Debug Tables", + "<11,36>": "3-3:HTTP_ENTRY_POINT_SERVICES", + "<11,37>": "3-3:HTTP_SCAN_SERVICES", + "<11,38>": "3-3:LSL_USERS_ACTIONS", + "<11,39>": "3-3:SCANS_ACTIONS", + "<11,40>": "3-3:SCAN_SERVICES", + "<11,41>": "Stored Procedure Executables", + "<11,42>": "3-3:HTTP_ENTRY_POINT_SERVICES", + "<11,43>": "3-3:HTTP_SCAN_SERVICES", + "<11,44>": "3-3:LSL_USERS_ACTIONS", + "<11,45>": "3-3:SCANS_ACTIONS", + "<11,46>": "3-3:SCAN_SERVICES", + "<11,47>": "Stored Procedure Inserts", + "<11,48>": "3-3:SCANS_EQUATES", + "<11,49>": "Stored Procedures", + "<11,50>": "3-3:HTTP_ENTRY_POINT_SERVICES", + "<11,51>": "3-3:HTTP_SCAN_SERVICES", + "<11,52>": "3-3:LSL_USERS_ACTIONS", + "<11,53>": "3-3:SCANS_ACTIONS", + "<11,54>": "3-3:SCAN_SERVICES" + } + } + } +} \ No newline at end of file diff --git a/LSL2/APPROW/SYSREPOSVIEWS%003ALSL2_REACT_ITEM_20230126_DJS.json b/LSL2/APPROW/SYSREPOSVIEWS%003ALSL2_REACT_ITEM_20230126_DJS.json new file mode 100644 index 0000000..d27a761 --- /dev/null +++ b/LSL2/APPROW/SYSREPOSVIEWS%003ALSL2_REACT_ITEM_20230126_DJS.json @@ -0,0 +1,35 @@ +{ + "header": { + "version": 1, + "type": "record", + "approw-key": "LSL2*REACT_ITEM_20230126_DJS" + }, + "body": { + "record1": { + "<1>": "REACT_ITEM_20230126_DJS", + "<2>": "Added New or Refurb database column and form control.", + "<3>": "", + "<4>": "LSL2", + "<5>": "", + "<6>": "", + "<7>": "", + "<8>": "", + "<9>": "", + "<10>": "", + "<11>": { + "<11,1>": "Application Rows", + "<11,2>": "3-3:SYSREPOSVIEWS:LSL2_REACT_ITEM_20230126_DJS", + "<11,3>": "Database Columns", + "<11,4>": "3-3:REACT_ITEM.NEW_OR_REFURB", + "<11,5>": "OpenInsight Form Executables", + "<11,6>": "3-3:REACT_ITEM", + "<11,7>": "OpenInsight Forms", + "<11,8>": "3-3:REACT_ITEM", + "<11,9>": "Stored Procedure Executables", + "<11,10>": "3-3:DBW_WO_MAT_WAFER_SELECT_EVENTS", + "<11,11>": "Stored Procedure Inserts", + "<11,12>": "3-3:REACT_ITEM_EQUATES" + } + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CALCULATE/LAST_WFR_CI_GROUP.WAFERS_IN.json b/LSL2/OIEVENT/CALCULATE/LAST_WFR_CI_GROUP.WAFERS_IN.json new file mode 100644 index 0000000..10a1103 --- /dev/null +++ b/LSL2/OIEVENT/CALCULATE/LAST_WFR_CI_GROUP.WAFERS_IN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = rds_comm( 'WO_VERIFY_CHK' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CALCULATE/RDS_UNLOAD.WAFERS_IN.json b/LSL2/OIEVENT/CALCULATE/RDS_UNLOAD.WAFERS_IN.json new file mode 100644 index 0000000..10a1103 --- /dev/null +++ b/LSL2/OIEVENT/CALCULATE/RDS_UNLOAD.WAFERS_IN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = rds_comm( 'WO_VERIFY_CHK' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CALCULATE/REACTORPM_SRPT1.SORT_OPTIONS_1.json b/LSL2/OIEVENT/CALCULATE/REACTORPM_SRPT1.SORT_OPTIONS_1.json new file mode 100644 index 0000000..ed9c9fc --- /dev/null +++ b/LSL2/OIEVENT/CALCULATE/REACTORPM_SRPT1.SORT_OPTIONS_1.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\n\r\nOpt1 = .sort_options_1->Value\r\nOpt2 = .sort_options_2->Value\r\nOpt3 = .sort_options_3->Value\r\n\r\nIf Opt1 = Opt2 Or Opt2 = Opt3 Or Opt1 = Opt3 Then\r\n Msg001 = ''\r\n Msg001 := 'The same sort field has been selected|'\r\n Msg001 := 'for two or more options!'\r\n Void = msg('',Msg001)\r\nEnd\r\n\r\nReturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CHANGED/CUST_ACTIVITY_RPT1.FROM.json b/LSL2/OIEVENT/CHANGED/CUST_ACTIVITY_RPT1.FROM.json new file mode 100644 index 0000000..c85ece1 --- /dev/null +++ b/LSL2/OIEVENT/CHANGED/CUST_ACTIVITY_RPT1.FROM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "if NewData = '' and .thru->text = '' then\r\n .span->enabled = 1\r\nend else\r\n .span->text = 'N/A'\r\n .span->enabled = 0\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CHANGED/CUST_ACTIVITY_RPT1.ORDER_QUOTE.json b/LSL2/OIEVENT/CHANGED/CUST_ACTIVITY_RPT1.ORDER_QUOTE.json new file mode 100644 index 0000000..bbfff92 --- /dev/null +++ b/LSL2/OIEVENT/CHANGED/CUST_ACTIVITY_RPT1.ORDER_QUOTE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "if NewData = 'Quoted Products' then\r\n .order_stat->text = 'N/A'\r\n .order_stat->enabled = 0\r\nend else\r\n .order_stat->text = 'All Orders'\r\n .order_stat->enabled = 1\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CHANGED/CUST_ACTIVITY_RPT1.SPAN.json b/LSL2/OIEVENT/CHANGED/CUST_ACTIVITY_RPT1.SPAN.json new file mode 100644 index 0000000..f1683bd --- /dev/null +++ b/LSL2/OIEVENT/CHANGED/CUST_ACTIVITY_RPT1.SPAN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".from->text = ''\r\n.thru->text = ''\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CHANGED/CUST_ACTIVITY_RPT1.THRU.json b/LSL2/OIEVENT/CHANGED/CUST_ACTIVITY_RPT1.THRU.json new file mode 100644 index 0000000..2fdab7e --- /dev/null +++ b/LSL2/OIEVENT/CHANGED/CUST_ACTIVITY_RPT1.THRU.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "if NewData = '' and .from->text = '' then\r\n .span->enabled = 1\r\nend else\r\n .span->text = 'N/A'\r\n .span->enabled = 0\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CHANGED/EXPORT3.EXPORTTABLENAMES.json b/LSL2/OIEVENT/CHANGED/EXPORT3.EXPORTTABLENAMES.json new file mode 100644 index 0000000..5e97d8c --- /dev/null +++ b/LSL2/OIEVENT/CHANGED/EXPORT3.EXPORTTABLENAMES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "if @user4 = 'MIS' then\r\n\tDEBUG\r\nend\r\nif .exporttablenames->text = 'REACT_UTIL' then\r\n .UTIL_START->VISIBLE = 1\r\n .UTIL_END->VISIBLE = 1\r\n .UTIL_START_LABEL->VISIBLE = 1\r\n .UTIL_END_LABEL->VISIBLE = 1\r\nend else\r\n .UTIL_START->VISIBLE = 0\r\n .UTIL_END->VISIBLE = 0\r\n .UTIL_START_LABEL->VISIBLE = 0\r\n .UTIL_END_LABEL->VISIBLE = 0\r\nend\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CHANGED/EXPORT3.EXPORT_NAME.json b/LSL2/OIEVENT/CHANGED/EXPORT3.EXPORT_NAME.json new file mode 100644 index 0000000..62ea7bc --- /dev/null +++ b/LSL2/OIEVENT/CHANGED/EXPORT3.EXPORT_NAME.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, post_event\r\n\r\nif len( NewData ) > 24 then\r\n Void = send_event( @window:'.':CtrlEntId, 'LOSTFOCUS', '' )\r\n Void = set_property( @window:'.EXPORTTABLENAMES', \"FOCUS\", 1)\r\n Void = post_event( @window:'.EXPORTTABLENAMES', \"GOTFOCUS\" )\r\n return 0\r\nend\r\nif NewData[-1,1] = ' ' then\r\n CurVal = @CtrlEntId->text\r\n CurVal[-1,1] = '_'\r\n @CtrlEntId->text = CurVal\r\n @CtrlEntId->selection = len( CurVal )+1\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CHANGED/EXPORTS.EXPORTTABLENAMES.json b/LSL2/OIEVENT/CHANGED/EXPORTS.EXPORTTABLENAMES.json new file mode 100644 index 0000000..cb59b75 --- /dev/null +++ b/LSL2/OIEVENT/CHANGED/EXPORTS.EXPORTTABLENAMES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "if .exporttablenames->text = 'REACT_UTIL' then\r\n .UTIL_START->VISIBLE = 1\r\n .UTIL_END->VISIBLE = 1\r\n .UTIL_START_LABEL->VISIBLE = 1\r\n .UTIL_END_LABEL->VISIBLE = 1\r\nend else\r\n .UTIL_START->VISIBLE = 0\r\n .UTIL_END->VISIBLE = 0\r\n .UTIL_START_LABEL->VISIBLE = 0\r\n .UTIL_END_LABEL->VISIBLE = 0\r\nend\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CHANGED/EXPORTS.EXPORT_NAME.json b/LSL2/OIEVENT/CHANGED/EXPORTS.EXPORT_NAME.json new file mode 100644 index 0000000..62ea7bc --- /dev/null +++ b/LSL2/OIEVENT/CHANGED/EXPORTS.EXPORT_NAME.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, post_event\r\n\r\nif len( NewData ) > 24 then\r\n Void = send_event( @window:'.':CtrlEntId, 'LOSTFOCUS', '' )\r\n Void = set_property( @window:'.EXPORTTABLENAMES', \"FOCUS\", 1)\r\n Void = post_event( @window:'.EXPORTTABLENAMES', \"GOTFOCUS\" )\r\n return 0\r\nend\r\nif NewData[-1,1] = ' ' then\r\n CurVal = @CtrlEntId->text\r\n CurVal[-1,1] = '_'\r\n @CtrlEntId->text = CurVal\r\n @CtrlEntId->selection = len( CurVal )+1\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CHANGED/EXPORTS.PATH.json b/LSL2/OIEVENT/CHANGED/EXPORTS.PATH.json new file mode 100644 index 0000000..71e5d29 --- /dev/null +++ b/LSL2/OIEVENT/CHANGED/EXPORTS.PATH.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "Path = Get_Property(CtrlEntID,'DEFPROP')\r\nIF INDEX(Path,'/',1) THEN\r\n\tCall ErrMsg('\"/\" characters are invalid in paths. Use \"\\\" instead.')\r\nEND\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CHANGED/NDW_GAN_PROD_SPEC.PRECLEAN_AKRIONRECIPES.json b/LSL2/OIEVENT/CHANGED/NDW_GAN_PROD_SPEC.PRECLEAN_AKRIONRECIPES.json new file mode 100644 index 0000000..8c44994 --- /dev/null +++ b/LSL2/OIEVENT/CHANGED/NDW_GAN_PROD_SPEC.PRECLEAN_AKRIONRECIPES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function prod_spec_comm\r\ndeclare subroutine forward_event\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN DEBUG\r\n\r\nforward_event(NewData)\r\nVoid = prod_spec_comm( \"LOAD_TOOL_RECIPE\" )\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CHANGED/NDW_GAN_PROD_SPEC.SUB_POST_CLEAN.json b/LSL2/OIEVENT/CHANGED/NDW_GAN_PROD_SPEC.SUB_POST_CLEAN.json new file mode 100644 index 0000000..0c52d1c --- /dev/null +++ b/LSL2/OIEVENT/CHANGED/NDW_GAN_PROD_SPEC.SUB_POST_CLEAN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "CurVal = @CtrlEntId->text\r\nif index( CurVal, 'Akrion', 1 ) else\r\n .post_akrion_recipe->text = ''\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CHANGED/NDW_GAN_PROD_SPEC.SUB_PRE_CLEAN.json b/LSL2/OIEVENT/CHANGED/NDW_GAN_PROD_SPEC.SUB_PRE_CLEAN.json new file mode 100644 index 0000000..5a79d71 --- /dev/null +++ b/LSL2/OIEVENT/CHANGED/NDW_GAN_PROD_SPEC.SUB_PRE_CLEAN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "CurVal = @CtrlEntId->text\r\nif index( CurVal, 'Akrion', 1 ) else\r\n .pre_akrion_recipe->text = ''\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CHANGED/PROD_SPEC_SHIP.SHIP_PARTIAL.json b/LSL2/OIEVENT/CHANGED/PROD_SPEC_SHIP.SHIP_PARTIAL.json new file mode 100644 index 0000000..cc529fb --- /dev/null +++ b/LSL2/OIEVENT/CHANGED/PROD_SPEC_SHIP.SHIP_PARTIAL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert logical\r\n\r\nif NewData = 'No' then\r\n .ship_full_type->visible = true$\r\n .sftype_label1->visible = true$\r\n .sftype_label2->visible = true$ \r\nend else\r\n .ship_full_type->text = ''\r\n .ship_full_type->visible = false$\r\n .sftype_label1->visible = false$\r\n .sftype_label2->visible = false$\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CHANGED/PROD_SPEC_SI.PRECLEAN_AKRIONRECIPES.json b/LSL2/OIEVENT/CHANGED/PROD_SPEC_SI.PRECLEAN_AKRIONRECIPES.json new file mode 100644 index 0000000..8c44994 --- /dev/null +++ b/LSL2/OIEVENT/CHANGED/PROD_SPEC_SI.PRECLEAN_AKRIONRECIPES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function prod_spec_comm\r\ndeclare subroutine forward_event\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN DEBUG\r\n\r\nforward_event(NewData)\r\nVoid = prod_spec_comm( \"LOAD_TOOL_RECIPE\" )\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CHANGED/PROD_SPEC_SI.SUB_POST_CLEAN.json b/LSL2/OIEVENT/CHANGED/PROD_SPEC_SI.SUB_POST_CLEAN.json new file mode 100644 index 0000000..0c52d1c --- /dev/null +++ b/LSL2/OIEVENT/CHANGED/PROD_SPEC_SI.SUB_POST_CLEAN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "CurVal = @CtrlEntId->text\r\nif index( CurVal, 'Akrion', 1 ) else\r\n .post_akrion_recipe->text = ''\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CHANGED/PROD_SPEC_SI.SUB_PRE_CLEAN.json b/LSL2/OIEVENT/CHANGED/PROD_SPEC_SI.SUB_PRE_CLEAN.json new file mode 100644 index 0000000..5a79d71 --- /dev/null +++ b/LSL2/OIEVENT/CHANGED/PROD_SPEC_SI.SUB_PRE_CLEAN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "CurVal = @CtrlEntId->text\r\nif index( CurVal, 'Akrion', 1 ) else\r\n .pre_akrion_recipe->text = ''\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CHANGED/PROD_SPEC_SI4.TOOL.json b/LSL2/OIEVENT/CHANGED/PROD_SPEC_SI4.TOOL.json new file mode 100644 index 0000000..e6d7903 --- /dev/null +++ b/LSL2/OIEVENT/CHANGED/PROD_SPEC_SI4.TOOL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function prod_spec_comm\r\ndeclare subroutine forward_event\r\n\r\nforward_event(NewData)\r\nVoid = prod_spec_comm( \"LOAD_TOOL_RECIPE\" )\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CHANGED/PROD_SPEC_SI5.PRECLEAN_AKRIONRECIPES.json b/LSL2/OIEVENT/CHANGED/PROD_SPEC_SI5.PRECLEAN_AKRIONRECIPES.json new file mode 100644 index 0000000..e6d7903 --- /dev/null +++ b/LSL2/OIEVENT/CHANGED/PROD_SPEC_SI5.PRECLEAN_AKRIONRECIPES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function prod_spec_comm\r\ndeclare subroutine forward_event\r\n\r\nforward_event(NewData)\r\nVoid = prod_spec_comm( \"LOAD_TOOL_RECIPE\" )\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CHANGED/PRS_SUBSTRATE.PRECLEAN_AKRIONRECIPES.json b/LSL2/OIEVENT/CHANGED/PRS_SUBSTRATE.PRECLEAN_AKRIONRECIPES.json new file mode 100644 index 0000000..e6d7903 --- /dev/null +++ b/LSL2/OIEVENT/CHANGED/PRS_SUBSTRATE.PRECLEAN_AKRIONRECIPES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function prod_spec_comm\r\ndeclare subroutine forward_event\r\n\r\nforward_event(NewData)\r\nVoid = prod_spec_comm( \"LOAD_TOOL_RECIPE\" )\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CHANGED/REACTOR_LOG_SRPT1.REACTORSECTIONS.json b/LSL2/OIEVENT/CHANGED/REACTOR_LOG_SRPT1.REACTORSECTIONS.json new file mode 100644 index 0000000..0254a7d --- /dev/null +++ b/LSL2/OIEVENT/CHANGED/REACTOR_LOG_SRPT1.REACTORSECTIONS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function scroll_enable, send_message\r\n\r\nequ EditTableInsDel$ to 4 ;* ALLOW ROW INSERTION AND/OR DELETION FOR EDITTABLE STYLE\r\nequ Protected$ to 8 ;* AS DOCUMENTED IN THE COLSYTLE MESSAGE IN HELP\r\nequ ReadOnly$ to 2048 ;* FIGURED THIS OUT BY SETTING THE STYLE IN THE WINDOW THEN DEBUGGING\r\n\r\nSectionNo = NewData[1,1]\r\n\r\nIf SectionNo Then \r\n X = XLATE(\"CONFIG\",\"REACTOR_SELECTIONS\",SectionNo,\"X\")\t \t\r\n Treactors = .reactors->array\r\n Treactors<1> = X\r\n .reactors->array = Treactors\r\n *Void = scroll_enable( '', @window:'.REACTORS' )\r\nend\r\n* WILL LOOK INTO THIS LATER IDEA IS TO REENABLE THE REACTORS CONTROL Later Dude! \r\n*end else\r\n* ThisEditTable = @window:'.REACTORS'\r\n* Styles = send_message( ThisEditTable, \"COLSTYLE\", 0, '' )\r\n* Styles<1> = bitand( Styles<1>, Protected$ )\r\n* Void = send_message( ThisEditTable, \"COLSTYLE\", 0, Styles )\r\n* Style = get_property( ThisEditTable, \"STYLE\" )\r\n* if Style[1,2] _eqc \"0x\" then\r\n* convert @lower_case to @upper_case in Style\r\n*\t Style = iconv( Style[3,999], 'MX' )\r\n* end\r\n* Style = bitor( Style, EditTableInsDel$ )\r\n* Void = set_property( ThisEditTable, 'STYLE', Style ) \r\n* .reactors->array = @vm:@vm\r\n* *.reactors->enabled = 1 \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CHANGED/REACT_MODE_CHG.MODE.json b/LSL2/OIEVENT/CHANGED/REACT_MODE_CHG.MODE.json new file mode 100644 index 0000000..636c9c8 --- /dev/null +++ b/LSL2/OIEVENT/CHANGED/REACT_MODE_CHG.MODE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "OrigMode = get_property( @window, '@Mode' )\r\nM = .mode->text\r\nif M <> OrigMode then\r\n .apply->enabled = 1\r\nend else\r\n .apply->enabled = 0\r\nend\r\nif M[1,11] = 'Maintenance' THEN\r\n .reactmodesvc->visible = 1\r\n .serv_label->visible = 1\r\n \r\nend else\r\n .reactmodesvc->visible = 0\r\n .serv_label->visible = 0\r\n .note_group->enabled = 1\r\nend\r\n\r\n*IF OrigMode[1,11] = 'Maintenance' THEN\r\n*\t.note_group->enabled = 0\r\n*END ELSE\r\n* .note_group->enabled = 1\r\n*END\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CHANGED/REACT_MODE_CHG.NOTE.json b/LSL2/OIEVENT/CHANGED/REACT_MODE_CHG.NOTE.json new file mode 100644 index 0000000..6028ef3 --- /dev/null +++ b/LSL2/OIEVENT/CHANGED/REACT_MODE_CHG.NOTE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".apply->enabled = 1\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CHANGED/REACT_MODE_CHG.REACTMODESVC.json b/LSL2/OIEVENT/CHANGED/REACT_MODE_CHG.REACTMODESVC.json new file mode 100644 index 0000000..4d1869c --- /dev/null +++ b/LSL2/OIEVENT/CHANGED/REACT_MODE_CHG.REACTMODESVC.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CHANGED/RECIPE_BROWSE.PSN.json b/LSL2/OIEVENT/CHANGED/RECIPE_BROWSE.PSN.json new file mode 100644 index 0000000..a7dddf7 --- /dev/null +++ b/LSL2/OIEVENT/CHANGED/RECIPE_BROWSE.PSN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine recipe_browse_comm\r\n\r\nrecipe_browse_comm( 'REACT_REC_ON_CHANGE', '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CHANGED/RECIPE_BROWSE.REACTOR.json b/LSL2/OIEVENT/CHANGED/RECIPE_BROWSE.REACTOR.json new file mode 100644 index 0000000..a7dddf7 --- /dev/null +++ b/LSL2/OIEVENT/CHANGED/RECIPE_BROWSE.REACTOR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine recipe_browse_comm\r\n\r\nrecipe_browse_comm( 'REACT_REC_ON_CHANGE', '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CHANGED/RECIPE_BROWSE.RECIPE_NO.json b/LSL2/OIEVENT/CHANGED/RECIPE_BROWSE.RECIPE_NO.json new file mode 100644 index 0000000..a7dddf7 --- /dev/null +++ b/LSL2/OIEVENT/CHANGED/RECIPE_BROWSE.RECIPE_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine recipe_browse_comm\r\n\r\nrecipe_browse_comm( 'REACT_REC_ON_CHANGE', '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CHAR/CAR.ANT_CAR_INPLACE_DATE.json b/LSL2/OIEVENT/CHAR/CAR.ANT_CAR_INPLACE_DATE.json new file mode 100644 index 0000000..2c6cdf7 --- /dev/null +++ b/LSL2/OIEVENT/CHAR/CAR.ANT_CAR_INPLACE_DATE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\n$insert msg_equates\r\n\r\nif .resp_signature->text <> '' else\r\n MsgInfo = ''\r\n MsgInfo = 'H'\r\n MsgInfo = 'Cannot have an anticipated CAR inplace date without a responsible person signature.'\r\n Void = msg( '', MsgInfo ) \r\n .ant_car_inplace_date->text = ''\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CHAR/CAR.CAR_INPLACE_DATE.json b/LSL2/OIEVENT/CHAR/CAR.CAR_INPLACE_DATE.json new file mode 100644 index 0000000..16fd4b1 --- /dev/null +++ b/LSL2/OIEVENT/CHAR/CAR.CAR_INPLACE_DATE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\n$insert msg_equates\r\n\r\nif .car_inplace_signature->text <> '' else\r\n MsgInfo = ''\r\n MsgInfo = 'H'\r\n MsgInfo = 'Cannot have a CAR inplace date without having a CAR inplace signature.'\r\n Void = msg( '', MsgInfo ) \r\n .car_inplace_date->text = ''\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CHAR/EXPORTS2.COMPVAL.json b/LSL2/OIEVENT/CHAR/EXPORTS2.COMPVAL.json new file mode 100644 index 0000000..96a066d --- /dev/null +++ b/LSL2/OIEVENT/CHAR/EXPORTS2.COMPVAL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert msg_equates\r\ndeclare subroutine forward_event\r\n\r\nforward_event( VirtCode, ScanCode, CtrlKey, ShiftKey, AltKey )\r\n* REMOVED THIS CODE CAUSE BACK ON THE EDIT TABLES I SET TO 500 FOR THE WIDTH\r\n*CompVal = .compval->text\r\n*if len( CompVal ) > 80 then\r\n* .compval->text = CompVal[1,80]\r\n* MsgInfo = ''\r\n* MsgInfo = 'Comparision value can only be 80 characters'\r\n* MsgInfo = '!'\r\n* Void = msg( '', MsgInfo )\r\n* * NOW SET CURSOR TO THE END\r\n* .compval->selection = 81:@fm:0 \r\n*end\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CHAR/RDS_SUPPL_INST.SUPPL_INST.json b/LSL2/OIEVENT/CHAR/RDS_SUPPL_INST.SUPPL_INST.json new file mode 100644 index 0000000..44a80c4 --- /dev/null +++ b/LSL2/OIEVENT/CHAR/RDS_SUPPL_INST.SUPPL_INST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "if @CtrlEntId->text <> '' then\r\n .save->enabled = 1\r\nend else\r\n .save->enabled = 0\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CHAR/WO_MAST_SCHED_FIND.FIND_VAL.json b/LSL2/OIEVENT/CHAR/WO_MAST_SCHED_FIND.FIND_VAL.json new file mode 100644 index 0000000..9aed4f3 --- /dev/null +++ b/LSL2/OIEVENT/CHAR/WO_MAST_SCHED_FIND.FIND_VAL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "if len( .find_val->text ) then\r\n .next->enabled = 1\r\n .prev->enabled = 1\r\nend else\r\n .next->enabled = 0\r\n .prev->enabled = 0\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/ANNUAL_CONTRACTS..json b/LSL2/OIEVENT/CLEAR/ANNUAL_CONTRACTS..json new file mode 100644 index 0000000..2c863d8 --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/ANNUAL_CONTRACTS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/ASSIGN_CAUSE..json b/LSL2/OIEVENT/CLEAR/ASSIGN_CAUSE..json new file mode 100644 index 0000000..2c863d8 --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/ASSIGN_CAUSE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/ATTENDANCE..json b/LSL2/OIEVENT/CLEAR/ATTENDANCE..json new file mode 100644 index 0000000..0d0353d --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/ATTENDANCE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/CALL_VISIT..json b/LSL2/OIEVENT/CLEAR/CALL_VISIT..json new file mode 100644 index 0000000..0d0353d --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/CALL_VISIT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/CAR..json b/LSL2/OIEVENT/CLEAR/CAR..json new file mode 100644 index 0000000..3826928 --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/CAR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, utility, send_event, set_property, msg, post_event\r\ndeclare subroutine forward_event\r\n$insert logical\r\n$insert msg_equates\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/CDM_LOG..json b/LSL2/OIEVENT/CLEAR/CDM_LOG..json new file mode 100644 index 0000000..0d0353d --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/CDM_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/COC..json b/LSL2/OIEVENT/CLEAR/COC..json new file mode 100644 index 0000000..2c863d8 --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/COC..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/COMPANY..json b/LSL2/OIEVENT/CLEAR/COMPANY..json new file mode 100644 index 0000000..c94b632 --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/COMPANY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property, utility, fieldcount\r\ndeclare subroutine forward_event\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/CUST_INQUIRY..json b/LSL2/OIEVENT/CLEAR/CUST_INQUIRY..json new file mode 100644 index 0000000..ee3fc84 --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/CUST_INQUIRY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, utility, send_event, set_property, msg, post_event\r\ndeclare subroutine forward_event\r\n$insert logical\r\n$insert msg_equates\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/DESIG_ERR_GRP..json b/LSL2/OIEVENT/CLEAR/DESIG_ERR_GRP..json new file mode 100644 index 0000000..2c863d8 --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/DESIG_ERR_GRP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/HOTH2O2_LOG..json b/LSL2/OIEVENT/CLEAR/HOTH2O2_LOG..json new file mode 100644 index 0000000..0d0353d --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/HOTH2O2_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/INVOICE..json b/LSL2/OIEVENT/CLEAR/INVOICE..json new file mode 100644 index 0000000..2c863d8 --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/INVOICE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/LAST_WFR_CI_GROUP..json b/LSL2/OIEVENT/CLEAR/LAST_WFR_CI_GROUP..json new file mode 100644 index 0000000..cd994db --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/LAST_WFR_CI_GROUP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property, rds_comm\r\ndeclare SUBROUTINE Comm_RDS, Forward_Event\r\n\r\nif rds_comm( 'CHECK_NCR_SAVE' ) then\r\n * DO NOTHING CAUSE THE USER WAS ASKED TO SAVE AND THEY SAID NO BUT WE MUST\r\n return 0\r\nend\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\n\r\nForward_Event()\r\n\r\nComm_RDS('Refresh')\t;* Added 08/23/2004 by JCH\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/LOSS_CODES..json b/LSL2/OIEVENT/CLEAR/LOSS_CODES..json new file mode 100644 index 0000000..2c863d8 --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/LOSS_CODES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/MASTER_DISK_LOG..json b/LSL2/OIEVENT/CLEAR/MASTER_DISK_LOG..json new file mode 100644 index 0000000..0d0353d --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/MASTER_DISK_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/MEG_LOG..json b/LSL2/OIEVENT/CLEAR/MEG_LOG..json new file mode 100644 index 0000000..0d0353d --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/MEG_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/MSG_GROUPS..json b/LSL2/OIEVENT/CLEAR/MSG_GROUPS..json new file mode 100644 index 0000000..0d0353d --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/MSG_GROUPS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/NAMES..json b/LSL2/OIEVENT/CLEAR/NAMES..json new file mode 100644 index 0000000..736506d --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/NAMES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event, set_property, send_event, fieldcount\r\ndeclare subroutine forward_event\r\n\t \r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )\r\nfor i = 1 to Acnt\r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n Void = set_property( ThisControl, 'ENABLED', 1 )\r\n end\r\nnext i\t\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/NCR..json b/LSL2/OIEVENT/CLEAR/NCR..json new file mode 100644 index 0000000..3826928 --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/NCR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, utility, send_event, set_property, msg, post_event\r\ndeclare subroutine forward_event\r\n$insert logical\r\n$insert msg_equates\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/NDA..json b/LSL2/OIEVENT/CLEAR/NDA..json new file mode 100644 index 0000000..2c863d8 --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/NDA..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/ORDER..json b/LSL2/OIEVENT/CLEAR/ORDER..json new file mode 100644 index 0000000..2c863d8 --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/ORDER..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/PHOTOFLO_LOG..json b/LSL2/OIEVENT/CLEAR/PHOTOFLO_LOG..json new file mode 100644 index 0000000..0d0353d --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/PHOTOFLO_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/QUARTZ_TC_LOG..json b/LSL2/OIEVENT/CLEAR/QUARTZ_TC_LOG..json new file mode 100644 index 0000000..0d0353d --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/QUARTZ_TC_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/QUARTZ_WAND_LOG..json b/LSL2/OIEVENT/CLEAR/QUARTZ_WAND_LOG..json new file mode 100644 index 0000000..c3f2411 --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/QUARTZ_WAND_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end\r\n \r\nnext i \r\nRETURN 1\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/QUOTE..json b/LSL2/OIEVENT/CLEAR/QUOTE..json new file mode 100644 index 0000000..3826928 --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/QUOTE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, utility, send_event, set_property, msg, post_event\r\ndeclare subroutine forward_event\r\n$insert logical\r\n$insert msg_equates\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/QUOTE_OLD..json b/LSL2/OIEVENT/CLEAR/QUOTE_OLD..json new file mode 100644 index 0000000..3826928 --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/QUOTE_OLD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, utility, send_event, set_property, msg, post_event\r\ndeclare subroutine forward_event\r\n$insert logical\r\n$insert msg_equates\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/QUOTE_SRL..json b/LSL2/OIEVENT/CLEAR/QUOTE_SRL..json new file mode 100644 index 0000000..3826928 --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/QUOTE_SRL..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, utility, send_event, set_property, msg, post_event\r\ndeclare subroutine forward_event\r\n$insert logical\r\n$insert msg_equates\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/RDS..json b/LSL2/OIEVENT/CLEAR/RDS..json new file mode 100644 index 0000000..27c992c --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/RDS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property, rds_comm\r\nDECLARE Subroutine Comm_RDS\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i\r\n\r\nComm_RDS('FirstRefresh')\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/RDS_POST_EPI..json b/LSL2/OIEVENT/CLEAR/RDS_POST_EPI..json new file mode 100644 index 0000000..f06da9f --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/RDS_POST_EPI..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property, rds_comm\r\nDECLARE Subroutine Comm_RDS\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\n\r\nComm_RDS('Refresh')\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/RDS_PRE_EPI..json b/LSL2/OIEVENT/CLEAR/RDS_PRE_EPI..json new file mode 100644 index 0000000..1f4806c --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/RDS_PRE_EPI..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property, rds_comm\r\nDECLARE Subroutine Comm_RDS, Forward_Event\r\n\r\n\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i\r\n\r\nForward_Event()\r\n\r\nComm_RDS('Refresh')\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/RDS_PRE_EPI_ORG..json b/LSL2/OIEVENT/CLEAR/RDS_PRE_EPI_ORG..json new file mode 100644 index 0000000..1f4806c --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/RDS_PRE_EPI_ORG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property, rds_comm\r\nDECLARE Subroutine Comm_RDS, Forward_Event\r\n\r\n\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i\r\n\r\nForward_Event()\r\n\r\nComm_RDS('Refresh')\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/RDS_UNLOAD..json b/LSL2/OIEVENT/CLEAR/RDS_UNLOAD..json new file mode 100644 index 0000000..cd994db --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/RDS_UNLOAD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property, rds_comm\r\ndeclare SUBROUTINE Comm_RDS, Forward_Event\r\n\r\nif rds_comm( 'CHECK_NCR_SAVE' ) then\r\n * DO NOTHING CAUSE THE USER WAS ASKED TO SAVE AND THEY SAID NO BUT WE MUST\r\n return 0\r\nend\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\n\r\nForward_Event()\r\n\r\nComm_RDS('Refresh')\t;* Added 08/23/2004 by JCH\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/REACTOR_LOG_AREV..json b/LSL2/OIEVENT/CLEAR/REACTOR_LOG_AREV..json new file mode 100644 index 0000000..2c863d8 --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/REACTOR_LOG_AREV..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/REACTOR_PM..json b/LSL2/OIEVENT/CLEAR/REACTOR_PM..json new file mode 100644 index 0000000..0d0353d --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/REACTOR_PM..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/REACT_ITEMS..json b/LSL2/OIEVENT/CLEAR/REACT_ITEMS..json new file mode 100644 index 0000000..2c863d8 --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/REACT_ITEMS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/REACT_PROBS..json b/LSL2/OIEVENT/CLEAR/REACT_PROBS..json new file mode 100644 index 0000000..0d0353d --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/REACT_PROBS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/REACT_PROB_CAT..json b/LSL2/OIEVENT/CLEAR/REACT_PROB_CAT..json new file mode 100644 index 0000000..2c863d8 --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/REACT_PROB_CAT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/RECIPE..json b/LSL2/OIEVENT/CLEAR/RECIPE..json new file mode 100644 index 0000000..0d0353d --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/RECIPE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/SCHEDULE..json b/LSL2/OIEVENT/CLEAR/SCHEDULE..json new file mode 100644 index 0000000..2c863d8 --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/SCHEDULE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/SCHEDULE_SRL..json b/LSL2/OIEVENT/CLEAR/SCHEDULE_SRL..json new file mode 100644 index 0000000..2c863d8 --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/SCHEDULE_SRL..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/SEMI_LOG..json b/LSL2/OIEVENT/CLEAR/SEMI_LOG..json new file mode 100644 index 0000000..0d0353d --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/SEMI_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/SPC_CLEAN_HF..json b/LSL2/OIEVENT/CLEAR/SPC_CLEAN_HF..json new file mode 100644 index 0000000..0d0353d --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/SPC_CLEAN_HF..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/SPC_CLEAN_HF_AKRION..json b/LSL2/OIEVENT/CLEAR/SPC_CLEAN_HF_AKRION..json new file mode 100644 index 0000000..0d0353d --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/SPC_CLEAN_HF_AKRION..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/SPC_CLEAN_HF_ETCH..json b/LSL2/OIEVENT/CLEAR/SPC_CLEAN_HF_ETCH..json new file mode 100644 index 0000000..2c863d8 --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/SPC_CLEAN_HF_ETCH..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/SPC_CLEAN_HF_ETCH_AKRION..json b/LSL2/OIEVENT/CLEAR/SPC_CLEAN_HF_ETCH_AKRION..json new file mode 100644 index 0000000..2c863d8 --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/SPC_CLEAN_HF_ETCH_AKRION..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/SPC_CLEAN_SC1..json b/LSL2/OIEVENT/CLEAR/SPC_CLEAN_SC1..json new file mode 100644 index 0000000..2c863d8 --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/SPC_CLEAN_SC1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/SPC_CLEAN_SRD..json b/LSL2/OIEVENT/CLEAR/SPC_CLEAN_SRD..json new file mode 100644 index 0000000..0d0353d --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/SPC_CLEAN_SRD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/SPC_EVAL_4PP..json b/LSL2/OIEVENT/CLEAR/SPC_EVAL_4PP..json new file mode 100644 index 0000000..2c863d8 --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/SPC_EVAL_4PP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/SPC_EVAL_ADE..json b/LSL2/OIEVENT/CLEAR/SPC_EVAL_ADE..json new file mode 100644 index 0000000..0d0353d --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/SPC_EVAL_ADE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/SPC_EVAL_FTIR..json b/LSL2/OIEVENT/CLEAR/SPC_EVAL_FTIR..json new file mode 100644 index 0000000..0d0353d --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/SPC_EVAL_FTIR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/SPC_REACTOR_PARTICLES..json b/LSL2/OIEVENT/CLEAR/SPC_REACTOR_PARTICLES..json new file mode 100644 index 0000000..2c863d8 --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/SPC_REACTOR_PARTICLES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/SPC_WAFER_ETCH..json b/LSL2/OIEVENT/CLEAR/SPC_WAFER_ETCH..json new file mode 100644 index 0000000..0d0353d --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/SPC_WAFER_ETCH..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/SRP_COC_RESULTS..json b/LSL2/OIEVENT/CLEAR/SRP_COC_RESULTS..json new file mode 100644 index 0000000..0d0353d --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/SRP_COC_RESULTS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/SRP_INCOMING_LOG..json b/LSL2/OIEVENT/CLEAR/SRP_INCOMING_LOG..json new file mode 100644 index 0000000..0d0353d --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/SRP_INCOMING_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/SUB_REC_LOG..json b/LSL2/OIEVENT/CLEAR/SUB_REC_LOG..json new file mode 100644 index 0000000..0d0353d --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/SUB_REC_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/TW_CODES..json b/LSL2/OIEVENT/CLEAR/TW_CODES..json new file mode 100644 index 0000000..2c863d8 --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/TW_CODES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/TW_PRIME_USAGE..json b/LSL2/OIEVENT/CLEAR/TW_PRIME_USAGE..json new file mode 100644 index 0000000..2c863d8 --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/TW_PRIME_USAGE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/TW_USAGE..json b/LSL2/OIEVENT/CLEAR/TW_USAGE..json new file mode 100644 index 0000000..2c863d8 --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/TW_USAGE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/TW_USE..json b/LSL2/OIEVENT/CLEAR/TW_USE..json new file mode 100644 index 0000000..f568f80 --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/TW_USE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_TW_Use\r\n\r\nRETURN Comm_TW_Use(CtrlEntID,'CLEAR')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/WAFER_INV..json b/LSL2/OIEVENT/CLEAR/WAFER_INV..json new file mode 100644 index 0000000..2c863d8 --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/WAFER_INV..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/WO_LOG..json b/LSL2/OIEVENT/CLEAR/WO_LOG..json new file mode 100644 index 0000000..2c863d8 --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/WO_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLEAR/WO_VERIFY..json b/LSL2/OIEVENT/CLEAR/WO_VERIFY..json new file mode 100644 index 0000000..ee3fc84 --- /dev/null +++ b/LSL2/OIEVENT/CLEAR/WO_VERIFY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, utility, send_event, set_property, msg, post_event\r\ndeclare subroutine forward_event\r\n$insert logical\r\n$insert msg_equates\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ABOUT.BUTTON_1.json b/LSL2/OIEVENT/CLICK/ABOUT.BUTTON_1.json new file mode 100644 index 0000000..8f1cc31 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ABOUT.BUTTON_1.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\nVoid = send_event( @window, 'CLOSE' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/AC_RPT1.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/AC_RPT1.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/AC_RPT1.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/AC_RPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/AC_RPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/AC_RPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/AC_RPT1.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/AC_RPT1.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..e39cde3 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/AC_RPT1.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function sched_rpt1, send_event, msg\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nEntryDateFrom = .entry_date_from->text\r\nEntryDateThru = .entry_date_thru->text\r\nCusts = .customer_info->array<1>\r\nswap @vm:@vm with '' in Custs\r\nif Custs[-1,1] = @vm then Custs[-1,1] = ''\r\nDirToPrint = .send_to_printer->text\r\nOpen = .open_check->check \r\nClosed = .closed_check->check\r\nRetVal = EntryDateFrom:'*':EntryDateThru:'*':Custs:'*':Open:'*':Closed:'*':DirToPrint\r\nend_dialog( @window, RetVal )\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/AC_RPT_1.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/AC_RPT_1.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/AC_RPT_1.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/AC_RPT_1.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/AC_RPT_1.CUSTOMER_INFO.json new file mode 100644 index 0000000..5d89c1d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/AC_RPT_1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/AC_RPT_1.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/AC_RPT_1.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..e39cde3 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/AC_RPT_1.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function sched_rpt1, send_event, msg\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nEntryDateFrom = .entry_date_from->text\r\nEntryDateThru = .entry_date_thru->text\r\nCusts = .customer_info->array<1>\r\nswap @vm:@vm with '' in Custs\r\nif Custs[-1,1] = @vm then Custs[-1,1] = ''\r\nDirToPrint = .send_to_printer->text\r\nOpen = .open_check->check \r\nClosed = .closed_check->check\r\nRetVal = EntryDateFrom:'*':EntryDateThru:'*':Custs:'*':Open:'*':Closed:'*':DirToPrint\r\nend_dialog( @window, RetVal )\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/AC_SRPT1.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/AC_SRPT1.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/AC_SRPT1.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/AC_SRPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/AC_SRPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/AC_SRPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/AC_SRPT1.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/AC_SRPT1.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..580de15 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/AC_SRPT1.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function sched_rpt1, send_event, msg, ex_vm_rem\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nEntryDateFrom = .entry_date_from->text\r\nEntryDateThru = .entry_date_thru->text\r\nCusts = .customer_info->array<1>\r\n\r\nCusts = ex_vm_rem(Custs)\r\n\r\nswap @vm:@vm with '' in Custs\r\nif Custs[-1,1] = @vm then Custs[-1,1] = ''\r\nDirToPrint = .send_to_printer->text\r\nOpen = .open_check->check \r\nClosed = .closed_check->check\r\nRetVal = EntryDateFrom:'*':EntryDateThru:'*':Custs:'*':Open:'*':Closed:'*'\r\nend_dialog( @window, RetVal )\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/AD_TEST.TEST_RESPONSE_TIMES.json b/LSL2/OIEVENT/CLICK/AD_TEST.TEST_RESPONSE_TIMES.json new file mode 100644 index 0000000..88dbc62 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/AD_TEST.TEST_RESPONSE_TIMES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "Declare Function AD_TEST\r\n\r\ntest=AD_TEST()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ANNUAL_CONTRACTS.CONTRACT_DETAIL.json b/LSL2/OIEVENT/CLICK/ANNUAL_CONTRACTS.CONTRACT_DETAIL.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ANNUAL_CONTRACTS.CONTRACT_DETAIL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ANNUAL_CONTRACTS.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/ANNUAL_CONTRACTS.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ANNUAL_CONTRACTS.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ANNUAL_CONTRACTS.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/ANNUAL_CONTRACTS.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ANNUAL_CONTRACTS.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ANNUAL_CONTRACTS.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/ANNUAL_CONTRACTS.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ANNUAL_CONTRACTS.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ANNUAL_CONTRACTS.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/ANNUAL_CONTRACTS.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ANNUAL_CONTRACTS.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ANNUAL_CONTRACTS.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/ANNUAL_CONTRACTS.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ANNUAL_CONTRACTS.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ANNUAL_CONTRACTS.REL_DETAIL_INFO.json b/LSL2/OIEVENT/CLICK/ANNUAL_CONTRACTS.REL_DETAIL_INFO.json new file mode 100644 index 0000000..070c730 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ANNUAL_CONTRACTS.REL_DETAIL_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 8 else\r\n Void = editcell( CtrlEntId, '' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ANNUAL_CONTRACTS.RET_AC_BUTTON.json b/LSL2/OIEVENT/CLICK/ANNUAL_CONTRACTS.RET_AC_BUTTON.json new file mode 100644 index 0000000..822a68b --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ANNUAL_CONTRACTS.RET_AC_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function end_window, msg, send_event, post_event\r\ndeclare subroutine record_lock\r\n\r\nopen 'SYSLISTS' to SysListsTable else\r\n Void = msg( '', 'Unable to open SYSLISTS...' )\r\n return 0\r\nend\r\nPrevWindow = set_property( @window, '@PrevWindow' )\r\nRecordId = 'AC_ID*':@station\r\nACID = .contract_no->text\r\nrecord_lock( SysListsTable, 'SysLists', RecordId )\r\nwritev ACID on SysListsTable, RecordId, 1 else\r\n Void = msg( '', 'Unable to write ':ACID:' on SYSLISTS ':RecordId )\r\n return 0\r\nend\r\nunlock SysListsTable, RecordId else\r\n Void = msg( '', 'Unable to unlock SYSLISTS ':RecordId )\r\n return 0\r\nend\r\nopen 'ANNUAL_CONTRACTS' to ACTable else\r\n Void = msg( '', 'Unable to open ANNUAL_CONTRACTS...' )\r\n return 0\r\nend\r\nunlock ACTable, ACID else\r\n Void = msg( '', 'Unable to unlock ANNUAL_CONTRACTS ':ACID )\r\n return 0\r\nend\r\nVoid = send_event( @window, 'WRITE' )\r\nVoid = end_window( @window, '' )\r\nbegin case\r\n case PrevWindow = 'Order'\r\n Void = post_event( 'ORDER.AC_ID', 'OMNIEVENT' )\r\nend case\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ANNUAL_CONTRACTS_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/ANNUAL_CONTRACTS_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ANNUAL_CONTRACTS_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ANNUAL_CONTRACTS_QUERY.ENTRY_IDS.json b/LSL2/OIEVENT/CLICK/ANNUAL_CONTRACTS_QUERY.ENTRY_IDS.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ANNUAL_CONTRACTS_QUERY.ENTRY_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ANNUAL_CONTRACTS_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/ANNUAL_CONTRACTS_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..d27e11a --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ANNUAL_CONTRACTS_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.ANNUAL_CONTRACTS' to DictAnnualContractsTable else\r\n Void = msg( '', 'Unable to open DICT.ANNUAL_CONTRACTS...' )\r\n return 0\r\nend\r\nSearchStr = ''\r\nCustIds = .customer_info->array<1>\r\nEntryDateFrom = .entry_date_from->text\r\nEntryDateThru = .entry_date_thru->text\r\nOpen = .open_check->check\r\nClosed = .closed_check->check\r\nEntryIds = .entry_ids->array<1>\r\nswap @vm:@vm with '' in CustIds\r\nif CustIds[-1,1] = @vm then CustIds[-1,1] = ''\r\nswap @vm:@vm with '' in EntryIds\r\nif EntryIds[-1,1] = @vm then EntryIds[-1,1] = ''\r\nif CustIds then\r\n SearchStr<-1> = 'CUST_NO':@vm:CustIds\r\nend\r\nif EntryDateFrom and EntryDateThru then\r\n SearchStr<-1> = 'ENTRY_DATE':@vm:EntryDateFrom:'...':EntryDateThru\r\nend else\r\n\tif EntryDateFrom then\r\n\t SearchStr<-1> = 'ENTRY_DATE':@vm:'>=':EntryDateFrom\r\n\tend\r\n\tif EntryDateThru then\r\n\t SearchStr<-1> = 'ENTRY_DATE':@vm:'<=':EntryDateThru\r\n\tend\r\nend\r\nif EntryIds then\r\n SearchStr<-1> = 'ENTRY_ID':@vm:EntryIds\r\nend\r\nStatusVar = ''\r\nif Open then\r\n StatusVar<1,-1> = 'O'\r\nend\r\nif Closed then\r\n StatusVar<1,-1> = 'C'\r\nend\r\nif StatusVar then\r\n SearchStr<-1> = 'STATUS':@vm:StatusVar\r\nend\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'ANNUAL_CONTRACTS', DictAnnualContractsTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting ANNUAL_CONTRACT records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'ANNUAL_CONTRACTS', 'CUST_NAME':@fm:'#ENTRY_DATE', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/AR_INV_EXP.BUTTON_1.json b/LSL2/OIEVENT/CLICK/AR_INV_EXP.BUTTON_1.json new file mode 100644 index 0000000..c90036c --- /dev/null +++ b/LSL2/OIEVENT/CLICK/AR_INV_EXP.BUTTON_1.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function ar_inv_exp\r\ndeclare subroutine end_dialog\r\n$insert logical\r\n\r\nInvDateFrom = .inv_date_from->text\r\nInvDateThru = .inv_date_thru->text\r\nPath = .path->text\r\nRetVar = InvDateFrom:'*':InvDateThru:'*':Path\r\nVoid = ar_inv_exp( RetVar, True$ )\r\nend_dialog( @window, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/AR_INV_EXP.BUTTON_2.json b/LSL2/OIEVENT/CLICK/AR_INV_EXP.BUTTON_2.json new file mode 100644 index 0000000..9ff5441 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/AR_INV_EXP.BUTTON_2.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ASSIGN_CAUSE.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/ASSIGN_CAUSE.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ASSIGN_CAUSE.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ASSIGN_CAUSE.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/ASSIGN_CAUSE.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ASSIGN_CAUSE.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ASSIGN_CAUSE.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/ASSIGN_CAUSE.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ASSIGN_CAUSE.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ASSIGN_CAUSE.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/ASSIGN_CAUSE.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ASSIGN_CAUSE.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ASSIGN_CAUSE.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/ASSIGN_CAUSE.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ASSIGN_CAUSE.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ATTENDANCE.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/ATTENDANCE.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ATTENDANCE.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ATTENDANCE.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/ATTENDANCE.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ATTENDANCE.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ATTENDANCE.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/ATTENDANCE.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ATTENDANCE.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ATTENDANCE.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/ATTENDANCE.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ATTENDANCE.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ATTENDANCE.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/ATTENDANCE.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ATTENDANCE.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ATTENDANCE_QUERY.BUTTON_1.json b/LSL2/OIEVENT/CLICK/ATTENDANCE_QUERY.BUTTON_1.json new file mode 100644 index 0000000..5fd1a5c --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ATTENDANCE_QUERY.BUTTON_1.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.ATTENDANCE' to DictATTENDANCETable else\r\n Void = msg( '', 'Unable to open DICT.ATTENDANCE...' )\r\n return 0\r\nend\r\nSearchStr = ''\r\nATTENDANCEDateFrom = .attendance_date_from->text\r\nATTENDANCEDateThru = .attendance_date_thru->text\r\nEmployeeIds = .employee_info->array<1>\r\nSupervisorIds = .supervisor_info->array<1>\r\nShifts = .shift->text\r\n* need to convert field to value markers as the text property will \r\n* be field mark delimited if more than one is choosen\r\nconvert @fm to @vm in Shifts\r\n\r\nswap @vm:@vm with '' in EmployeeIds\r\nif EmployeeIds[-1,1] = @vm then EmployeeIds[-1,1] = ''\r\nswap @vm:@vm with '' in SupervisorIds\r\nif SupervisorIds [-1,1] = @vm then SupervisorIds [-1,1] = ''\r\nif EmployeeIds then\r\n SearchStr<-1> = 'EMPLOYEE':@vm:EmployeeIds\r\nend\r\nif SupervisorIds then\r\n SearchStr<-1> = 'SUPERVISOR':@vm:SupervisorIds\r\nend\r\n\r\nif ATTENDANCEDateFrom and ATTENDANCEDateThru then\r\n SearchStr<-1> = 'DATE_ABSENT':@vm:ATTENDANCEDateFrom:'...':ATTENDANCEDateThru\r\nend else\r\n\tif ATTENDANCEDateFrom then\r\n\t SearchStr<-1> = 'DATE_ABSENT':@vm:'>=':ATTENDANCEDateFrom\r\n\tend\r\n\tif ATTENDANCEDateThru then\r\n\t SearchStr<-1> = 'DATE_ABSENT':@vm:'<=':ATTENDANCEDateThru\r\n\tend \r\nend\r\n\r\n* Shifts\r\nif Shifts <> '' then\r\n SearchStr<-1> = 'SHIFT':@vm:Shifts\r\nend\r\n\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'ATTENDANCE', DictATTENDANCETable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting ATTENDANCE records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'ATTENDANCE', '#DATE_ABSENT', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ATTENDANCE_QUERY.EMPLOYEE_INFO.json b/LSL2/OIEVENT/CLICK/ATTENDANCE_QUERY.EMPLOYEE_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ATTENDANCE_QUERY.EMPLOYEE_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ATTENDANCE_QUERY.SUPERVISOR_INFO.json b/LSL2/OIEVENT/CLICK/ATTENDANCE_QUERY.SUPERVISOR_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ATTENDANCE_QUERY.SUPERVISOR_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ATTENDANCE_SRPT1.BUTTON_1.json b/LSL2/OIEVENT/CLICK/ATTENDANCE_SRPT1.BUTTON_1.json new file mode 100644 index 0000000..9ccb52f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ATTENDANCE_SRPT1.BUTTON_1.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare subroutine activate_save_select\r\ndeclare subroutine end_dialog\r\ndeclare function msg, key_sort, utility\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.ATTENDANCE' to DictATTENDANCETable else\r\n Void = msg( '', 'Unable to open DICT.ATTENDANCE...' )\r\n return 0\r\nend\r\nATTENDANCEDateFrom = .attendance_date_from->text\r\nATTENDANCEDateThru = .attendance_date_thru->text\r\nEmployeeIds = .employee_info->array<1>\r\nSupervisorIds = .supervisor_info->array<1>\r\nShifts = .shift->text\r\n\r\n* need to convert field to value markers as the text property will \r\n* be field mark delimited if more than one is choosen\r\nconvert @fm to @vm in Shifts\r\n\r\nswap @vm:@vm with '' in EmployeeIds\r\nif EmployeeIds[-1,1] = @vm then EmployeeIds[-1,1] = ''\r\nswap @vm:@vm with '' in SupervisorIds\r\nif SupervisorIds [-1,1] = @vm then SupervisorIds [-1,1] = ''\r\n\r\nif ATTENDANCEDateFrom = '' Or ATTENDANCEDateThru = '' then\r\n MsgInfo = ''\r\n MsgInfo = 'You must enter a date from and thru...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\n\r\nBegDteNum = Iconv(ATTENDANCEDateFrom,'D')\r\nEndDteNum = Iconv(ATTENDANCEDateThru,'D')\r\nDteDifNum = EndDteNum - BegDteNum\r\nIf DteDifNum < 0 Then\r\n MsgInfo = ''\r\n MsgInfo = 'Date From can not be greater than Date Thru...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\n\r\nend_dialog( @window, ATTENDANCEDateFrom:'*':ATTENDANCEDateThru:'*':EmployeeIds:'*':SupervisorIds:'*':Shifts )\r\n\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ATTENDANCE_SRPT1.EMPLOYEE_INFO.json b/LSL2/OIEVENT/CLICK/ATTENDANCE_SRPT1.EMPLOYEE_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ATTENDANCE_SRPT1.EMPLOYEE_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ATTENDANCE_SRPT1.SUPERVISOR_INFO.json b/LSL2/OIEVENT/CLICK/ATTENDANCE_SRPT1.SUPERVISOR_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ATTENDANCE_SRPT1.SUPERVISOR_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CALL_VISIT.ATTENDED_BY.json b/LSL2/OIEVENT/CLICK/CALL_VISIT.ATTENDED_BY.json new file mode 100644 index 0000000..29cdf4f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CALL_VISIT.ATTENDED_BY.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CALL_VISIT.CONTACT_IDS.json b/LSL2/OIEVENT/CLICK/CALL_VISIT.CONTACT_IDS.json new file mode 100644 index 0000000..29cdf4f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CALL_VISIT.CONTACT_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CALL_VISIT.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/CALL_VISIT.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CALL_VISIT.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CALL_VISIT.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/CALL_VISIT.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CALL_VISIT.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CALL_VISIT.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/CALL_VISIT.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CALL_VISIT.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CALL_VISIT.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/CALL_VISIT.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CALL_VISIT.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CALL_VISIT.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/CALL_VISIT.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CALL_VISIT.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CALL_VISIT.REPLY_BUTTON.json b/LSL2/OIEVENT/CLICK/CALL_VISIT.REPLY_BUTTON.json new file mode 100644 index 0000000..cedd2dd --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CALL_VISIT.REPLY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function next_key, send_event, msg, security_check\r\ndeclare subroutine security_err_msg, delete_row\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Call Visit', Write$ ) then\r\n * save off all data\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n convert @fm to @rm in AllControls\r\n AllData = get_property( Allcontrols, 'TEXT' )\r\n AttendedBy = .attended_by->array\r\n ContactIds = .contact_ids->array\r\n OrigCVId = .call_visit_id->text\r\n\tChoice = send_event( @window, 'CLEAR' )\r\n\tif Choice = '' then\r\n\t * if choice has a value then the user has canceled \r\n\t\topen 'CALL_VISIT' to CVTableVar else\r\n\t\t Void = msg( '', 'Unable to open CALL_VISIT...' )\r\n\t\t return 0\r\n\t\tend\r\n\t\tNextCVKey = next_key( 'CALL_VISIT', CVTableVar, 'NEXT', '' )\r\n\t\t.call_visit_id->text = NextCVKey\r\n\t\tunlock CVTableVar, NextCVKey else\r\n\t\t Void = msg( '', 'Unable to unlock CALL_VISIT ':NextCVKey )\r\n\t\t return 0\r\n\t\tend\r\n\t\tVoid = send_event( @window:'.CALL_VISIT_ID', 'LOSTFOCUS' )\r\n\t\tVoid = set_property( AllControls, 'TEXT', AllData )\r\n\t\t.call_visit_id->text = NextCVKey\r\n\t\t.entry_date->text = oconv( date(), 'D2/' )\r\n\t\t.entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n \t.attended_by->array = AttendedBy\r\n .contact_ids->array = ContactIds\r\n .notes->text = ''\r\n .call_visit_date->text = ''\r\n .active_status->value = 1\r\n\t\t@@window->savewarn = 1\r\n end\r\nend else\r\n security_err_msg( 'Call Visit', Write$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CALL_VISIT_QUERY.ATTEND_BY.json b/LSL2/OIEVENT/CLICK/CALL_VISIT_QUERY.ATTEND_BY.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CALL_VISIT_QUERY.ATTEND_BY.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CALL_VISIT_QUERY.CONTACT_IDS.json b/LSL2/OIEVENT/CLICK/CALL_VISIT_QUERY.CONTACT_IDS.json new file mode 100644 index 0000000..29cdf4f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CALL_VISIT_QUERY.CONTACT_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CALL_VISIT_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/CALL_VISIT_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CALL_VISIT_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CALL_VISIT_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/CALL_VISIT_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..4139dd7 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CALL_VISIT_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.CALL_VISIT' to DictCallVisitTable else\r\n Void = msg( '', 'Unable to open DICT.CALL_VISIT...' )\r\n return 0\r\nend\r\nSearchStr = ''\r\nCustIds = .customer_info->array<1>\r\nCustContacts = .contact_ids->array<1>\r\nCVDateFrom = .call_visit_date_from->text\r\nCVDateThru = .call_visit_date_thru->text\r\nActive = .active_check->check\r\nNotActive = .not_active_check->check\r\nAttendBy = .attend_by->array<1>\r\nSubject = .subject->text\r\nswap @vm:@vm with '' in CustIds\r\nif CustIds[-1,1] = @vm then CustIds[-1,1] = ''\r\nswap @vm:@vm with '' in CustContacts\r\nif CustContacts[-1,1] = @vm then CustContacts[-1,1] = ''\r\nswap @vm:@vm with '' in AttendBy\r\nif AttendBy[-1,1] = @vm then AttendBy[-1,1] = ''\r\nif CustIds then\r\n SearchStr<-1> = 'CUST_ID':@vm:CustIds\r\nend\r\nif AttendBy then\r\n SearchStr<-1> = 'ATTENDED_BY':@vm:AttendBy\r\nend\r\nif CustContacts then\r\n SearchStr<-1> = 'NAME_IDS':@vm:CustContacts\r\nend\r\nif CVDateFrom and CVDateThru then\r\n SearchStr<-1> = 'CALL_VISIT_DATE':@vm:CVDateFrom:'...':CVDateThru\r\nend else\r\n\tif CVDateFrom then\r\n\t SearchStr<-1> = 'CALL_VISIT_DATE':@vm:'>=':CVDateFrom\r\n\tend\r\n\tif CVDateThru then\r\n\t SearchStr<-1> = 'CALL_VISIT_DATE':@vm:'<=':CVDateThru\r\n\tend\r\nend\r\nActiveStatusVar = ''\r\nif Active then\r\n ActiveStatusVar<1,-1> = 1\r\nend\r\nif NotActive then\r\n ActiveStatusVar<1,-1> = 0\r\nend\r\nif ActiveStatusVar then\r\n SearchStr<-1> = 'ACTIVE':@vm:ActiveStatusVar\r\nend\r\nif Subject <> '' then\r\n SearchStr<-1> = 'SUBJECT_XREF':@vm:Subject\r\nend\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'CALL_VISIT', DictCallVisitTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting CALL_VISIT records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'CALL_VISIT', 'CUST_NAME':@fm:'#CALL_VISIT_DATE', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CAR.BUTTON_1.json b/LSL2/OIEVENT/CLICK/CAR.BUTTON_1.json new file mode 100644 index 0000000..e4bc770 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CAR.BUTTON_1.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, start_window\r\n$insert msg_equates\r\n\r\nVoid = start_window( 'NAMES', @window, '':'*':.cust_no->text, '', '' )\r\nMsgInfo = ''\r\nMsgInfo = 'If you add a contact name, you will have to wait a minute or so before it will show up using options...back on the CAR window.'\r\nMsgInfo = '!'\r\nVoid = msg( '', MsgInfo )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CAR.BUTTON_3.json b/LSL2/OIEVENT/CLICK/CAR.BUTTON_3.json new file mode 100644 index 0000000..590ce98 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CAR.BUTTON_3.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, msg, dialog_box\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\n$insert lsl_users_equ\r\n$insert car_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nRespUser = .resp_user_id->text\r\nRespSig = .resp_signature->text\r\nCarInplaceSig = .car_inplace_signature->text\r\nVipMfgSig = .vip_mfg_signature->text\r\nif CarInplaceSig <> '' then\r\n MsgInfo = ''\r\n MsgInfo = 'This CAR has already been signed by the responsible person, as being in place.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend else\r\n\tif @user4 = RespUser then\r\n if RespSig and VipMfgSig then\t\r\n\t\t\tValid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\t\t\tif Valid then\r\n\t\t\t .car_inplace_signature->text = @user4\r\n\t\t\t .car_inplace_signature_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t\t .status->value = 'C'\r\n\t\t\t .car_inplace_date->text = oconv( date(), 'D2/' )\r\n \t\t * now send message to entry person\r\n\t\t EntryId = xlate( 'CAR', .car_ref_id->text, car_entry_id$, 'X' )\r\n\t\t if EntryId then\r\n\t create_note( EntryId, 'System', 'CAR#':.car_ref_id->text:' signed for \"In place\" status', 'Signed by ':oconv( .resp_signature->text, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.', 'CAR', .car_ref_id->text )\t \t\r\n\t\t end\r\n\t\t\t @@window->savewarn = 1\r\n\t\t\tend\r\n\t\tend else\r\n\t\t\tMsgInfo = ''\r\n\t\t\tMsgInfo = 'This CAR must be signed by you and the VP of Manufacturing, before being in place.'\r\n\t\t\tMsgInfo = 'H'\r\n\t\t\tVoid = msg( '', MsgInfo )\r\n\t\tend\r\n\tend else\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo = 'You are not the responsible person...'\r\n\t\tMsgInfo = 'H'\r\n\t\tVoid = msg( '', MsgInfo )\r\n\tend\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CAR.BUTTON_4.json b/LSL2/OIEVENT/CLICK/CAR.BUTTON_4.json new file mode 100644 index 0000000..70ad1f0 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CAR.BUTTON_4.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, msg, dialog_box\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\n$insert lsl_users_equ\r\n$insert car_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nRespUser = .resp_user_id->text\r\nRespSig = .resp_signature->text\r\nif RespSig <> '' then\r\n MsgInfo = ''\r\n MsgInfo = 'This CAR has already been signed by the responsible person.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend else\r\n\tif @user4 = RespUser then\r\n\t if .confirm_status->value <> '' then\r\n\t\t\tValid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\t\t\tif Valid then\r\n\t\t\t .resp_signature->text = @user4\r\n\t\t\t .resp_signature_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t\t @@window->savewarn = 1\r\n\t\t\t if .vip_mfg_signature->text <> '' then\r\n\t\t\t EntryId = xlate( 'CAR', .car_ref_id->text, car_entry_id$, 'X' )\r\n\t\t\t if .confirm_status->value = 'C' then\r\n\t\t\t\t * both responsible person and vip of manufacturing have signed so\r\n\t\t\t\t * set to form complete status\r\n\t\t\t\t .status->value = 'F'\r\n\t\t\t\t * now send message to entry person\r\n\t\t\t\t if EntryId then\r\n\t\t MsgToSend = 'Signed by ':oconv( .resp_signature->text, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.'\t\t \r\n\t\t\t create_note( EntryId, 'System', 'CAR#':.car_ref_id->text:' signed for \"Form Complete\" status', MsgToSend, 'CAR', .car_ref_id->text )\t \t\r\n\t\t\t\t end\r\n\t\t\t end else\r\n\t\t\t\t * both responsible person and vip of manufacturing have signed so\r\n\t\t\t\t * but it is unconfirmed so set to verified to end the CAR\r\n\t\t\t\t .status->value = 'V'\t\t\t\t \r\n\t\t\t\t if EntryId then\r\n\t\t MsgToSend = 'Signed by ':oconv( .resp_signature->text, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'. '\r\n\t\t MsgToSend:= 'It was set to \"Verified\" status due to it being unconfirmed.'\r\n\t\t\t create_note( EntryId, 'System', 'CAR#':.car_ref_id->text:' signed for \"Verified\" status', MsgToSend, 'CAR', .car_ref_id->text )\t \t\r\n\t\t\t\t end\r\n\t\t\t end\r\n\t \t\t end else\r\n\t\t\t * send a message to the vip of manufacturing that is has been signed by the\r\n\t\t\t * responsible user\r\n\t\t\t\t SignatureInfo = xlate( 'CONFIG', 'QUOTE_SIGS', '', 'X' )\r\n\t\t\t\t VipMfg = SignatureInfo\r\n\t MsgToSend = 'This CAR was signed by ':oconv( .resp_signature->text, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.'\t\t\t \r\n\t create_note( VipMfg, 'System', 'CAR#':.car_ref_id->text:' signed by responsible person', MsgToSend, 'CAR', .car_ref_id->text )\t \t\r\n\t\t\t end\r\n\t\t\tend\r\n\t\tend else\r\n\t\t\tMsgInfo = ''\r\n\t\t\tMsgInfo = 'You must select a confirmation status of \"Confirmed\" or \"Unconfirmed\"...'\r\n\t\t\tMsgInfo = 'H'\r\n\t\t\tVoid = msg( '', MsgInfo )\r\n\t\tend\r\n\tend else\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo = 'You are not the responsible person...'\r\n\t\tMsgInfo = 'H'\r\n\t\tVoid = msg( '', MsgInfo )\r\n\tend\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CAR.BUTTON_4U.json b/LSL2/OIEVENT/CLICK/CAR.BUTTON_4U.json new file mode 100644 index 0000000..adfbdc2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CAR.BUTTON_4U.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, msg, dialog_box\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nCarInplaceSig = .car_inplace_signature->text\r\nCarVerSig = .car_verified_signature->text\r\nif CarVerSig <> '' then\r\n MsgInfo = ''\r\n MsgInfo = 'This CAR has already been verified by the VP of manufacturing.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend else\r\n if CarInplaceSig <> '' then\r\n SignatureInfo = xlate( 'CONFIG', 'QUOTE_SIGS', '', 'X' )\r\n\t VipMfg = SignatureInfo\r\n\t VipPwd = SignatureInfo\r\n\t if @user4 = VipMfg then\r\n\t\t Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:VipPwd )\r\n\t\t if Valid then\r\n\t\t \t .car_verified_signature->text = @user4\r\n\t\t\t .car_verified_signature_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t\t .status->value = 'V'\r\n\t\t\t @@window->savewarn = 1\r\n\t\t end \r\n end else\r\n\t\t MsgInfo = ''\r\n\t\t MsgInfo = 'You are not the VP of manufacturing...'\r\n\t\t MsgInfo = 'H'\r\n\t\t Void = msg( '', MsgInfo )\r\n end\r\n end else\r\n MsgInfo = ''\r\n\t MsgInfo = 'You can not verify the CAR until it has been in place.'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CAR.BUTTON_5.json b/LSL2/OIEVENT/CLICK/CAR.BUTTON_5.json new file mode 100644 index 0000000..d4796a9 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CAR.BUTTON_5.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, msg, dialog_box\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\n$insert car_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif .vip_mfg_signature->text <> '' then\r\n MsgInfo = ''\r\n MsgInfo = 'This CAR has already been signed by the VP of manufacturing.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend else\r\n\tSignatureInfo = xlate( 'CONFIG', 'QUOTE_SIGS', '', 'X' )\r\n\tVipMfg = SignatureInfo\r\n\tVipPwd = SignatureInfo\r\n\tif @user4 = VipMfg then\r\n\t if .confirm_status->value <> '' then\r\n\t\t\tValid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:VipPwd )\r\n\t\t\tif Valid then\r\n\t\t\t\t.vip_mfg_signature->text = @user4\r\n\t\t\t\t.vip_mfg_signature_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t\t\t@@window->savewarn = 1\r\n\t\t \tif .resp_signature->text <> '' then\r\n\t\t\t EntryId = xlate( 'CAR', .car_ref_id->text, car_entry_id$, 'X' )\t\t \t\r\n\t\t \t if .confirm_status->value = 'C' then\r\n\t \t\t * both responsible person and vip of manufacturing have signed so\r\n\t\t\t * set to form complete status\r\n\t\t\t .status->value = 'F'\r\n\t\t\t * now send message to entry person\t\t \r\n\t\t\t if EntryId then\r\n\t\t\t MsgToSend = 'Signed by ':oconv( .resp_signature->text, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.'\r\n\t\t create_note( EntryId, 'System', 'CAR#':.car_ref_id->text:' signed for \"Form Complete\" status', MsgToSend, 'CAR', .car_ref_id->text )\t \t\r\n\t\t\t end\r\n\t\t\t end else\r\n\t \t\t * both responsible person and vip of manufacturing have signed so\r\n\t\t\t * but it is unconfirmed so set to Verified status to end the CAR\r\n\t\t\t .status->value = 'V'\r\n\t\t\t * now send message to entry person\t\t \r\n\t\t\t if EntryId then\r\n\t\t\t MsgToSend = 'Signed by ':oconv( .resp_signature->text, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'. '\r\n\t\t MsgToSend:= 'It was set to \"Verified\" status due to it being unconfirmed.'\t\t\t \r\n\t\t create_note( EntryId, 'System', 'CAR#':.car_ref_id->text:' signed for \"Verified\" status', MsgToSend, 'CAR', .car_ref_id->text )\t \t\r\n\t\t\t end\r\n\t\t\t end\r\n\t \t\tend\r\n\t\t\tend \r\n\t\tend else\r\n\t\t\tMsgInfo = ''\r\n\t\t\tMsgInfo = 'You must select a confirmation status of \"Confirmed\" or \"Unconfirmed\"...'\r\n\t\t\tMsgInfo = 'H'\r\n\t\t\tVoid = msg( '', MsgInfo )\r\n\t\tend\r\n\t\t\r\n\tend else\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo = 'You are not the VP of manufacturing...'\r\n\t\tMsgInfo = 'H'\r\n\t\tVoid = msg( '', MsgInfo )\r\n\tend\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CAR.CAR_PRINT.json b/LSL2/OIEVENT/CLICK/CAR.CAR_PRINT.json new file mode 100644 index 0000000..6bd1d5d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CAR.CAR_PRINT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, set_printer, get_printer, msg, fieldcount, entid, repository,Printer_Select\r\ndeclare subroutine security_err_msg\r\n$insert security_rights_equ\r\n$insert oiprint_equates\r\n$insert msg_equates\r\n$insert company_equ\r\n$insert lsl_users_equ\r\n\r\nif security_check( 'CAR', Print$ ) then\r\n * see what they want to print\r\n PopupId = entid( @appid<1>, 'POPUP', '', 'CAR_PRINT_OPTS' )\r\n ChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n if ChoosenRow else\r\n return 0 \r\n end\r\n Internal = ( index( ChoosenRow, '2', 1 ) )\r\n * pull off variables\r\n Company = .cust_name->text\r\n IssueDate = .issue_date->text\r\n Contact = .contact_name->text\r\n Address = xlate( 'COMPANY', .cust_no->text, company_address$, 'X' )\r\n Date = .issue_date->text\r\n TelePhone = oconv( xlate( 'COMPANY', .cust_no->text, company_phones$, 'X' )<1,1>, '[PHONE_FORMAT]' ) ;* take first phone#\r\n Fax = .fax->text\r\n AcctRep = oconv( .acct_rep->text, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n SalesRepDID = oconv( xlate( 'LSL_USERS', .acct_rep->text, lsl_users_did$, 'X' ), '[PHONE_FORMAT]' )\r\n if ( SalesRepDID <> '' ) else\r\n SalesRepDID = '(480) 668-4000'\r\n end\r\n CustPart = .cust_part->text \r\n WO = .wo->text\r\n QuoteNum = .quote_num->text\r\n LotInfo = .lot_info->array\r\n LotNos = LotInfo<2>\r\n RejQty = sum( LotInfo<3> )\r\n swap @vm:@vm with '' in LotNos\r\n if LotNos[-1,1] = @vm then LotNos[-1,1] = ''\r\n swap @vm with ', ' in LotNos\r\n Problem = .problem->text\r\n if Internal then\r\n Findings = .findings->text\r\n end else\r\n\t Findings = .cust_findings->text\r\n\t if Findings <> '' then\r\n\t * fine use the customer findings description\r\n\t end else\r\n\t Findings = .findings->text\r\n\t end\r\n end\r\n if Internal then\r\n CorrectiveAction = .correct_actions->text\r\n end else\r\n\t CorrectiveAction = .cust_correct_actions->text\r\n\t if CorrectiveAction <> '' then\r\n\t * fine use the customer corrective action description\r\n\t end else\r\n\t CorrectiveAction = .correct_actions->text\r\n\t end\r\n end\r\n if Internal then\r\n ContainAction = .contain_actions->text\r\n\t ContactNotes = .cust_contact_notes->text \r\n end else\r\n * not used for customer printout\r\n ContainAction = ''\r\n ContactNotes = ''\r\n end\r\n \r\n PrintPath = Printer_Select('',1)\t\t;* Get default printer path\r\n Stat = set_printer( 'INIT', '', '', .5:@fm:'':@fm:.5:@fm:'', 0 ,'',PrintPath)\r\n \r\n Font = \"Times New Roman,12,R,1\"\r\n convert ',' to @fm in Font\r\n Stat = set_printer( 'FONT', Font )\r\n if Internal then\r\n Void = set_printer( 'TEXT', 'CA#':.car_ref_id->text )\r\n end\r\n Font<3> = 'C'\r\n Stat = set_printer( 'FONT', Font ) \r\n Void = set_printer( 'TEXT', 'Epitronics Silicon Division' )\r\n Void = set_printer( 'TEXT', '550 West Juanita' )\r\n Void = set_printer( 'TEXT', 'Mesa, AZ 85210' )\r\n Void = set_printer( 'TEXT', '' )\r\n Void = set_printer( 'TEXT', '' )\r\n Font<2> = 16\r\n Stat = set_printer( 'FONT', Font )\r\n Void = set_printer( 'TEXT', 'Corrective Action Report' )\r\n if Internal then\r\n Void = set_printer( 'TEXT', \"*INTERNAL USE ONLY*\" )\r\n end\r\n Void = set_printer( 'TEXT', '' )\r\n Void = set_printer( 'TEXT', '' )\r\n Font<2> = 11\r\n Font<3> = 'L'\r\n Font<4> = 1\r\n Stat = set_printer( 'FONT', Font ) \r\n \r\n\r\n TableColInfo = '<+4320':@vm:'<+2880':@vm:'<+3600' \r\n \r\n * Company and Date Headings\r\n Table = ''\r\n Table<1> = 'Company:~Date:~Account Rep:'\r\n convert '~' to @vm in Table\r\n x = Set_Printer(\"ADDTABLE\", TableColInfo, '', Table, '', '', 1, TB_NONE )\r\n Font<4> = 0\r\n Stat = set_printer( 'FONT', Font ) \r\n * Company and Date Data\r\n Table = ''\r\n TData = Company\r\n if Internal then\r\n * use the Issue Date\r\n TData:='~':IssueDate\r\n end else\r\n * use today as the print date \r\n TData:='~':oconv( date(), 'D2/' )\r\n end\r\n TData:= '~':AcctRep\r\n Table<1> = TData\r\n convert '~' to @vm in Table\r\n x = Set_Printer(\"ADDTABLE\", TableColInfo, '', Table, '', '', 1, TB_NONE)\r\n Font<4> = 1\r\n Stat = set_printer( 'FONT', Font ) \r\n \r\n \r\n * Contact and Telephone No Headings\r\n Table = ''\r\n Table<1> = 'Contact:~Telephone No:~Quote#:'\r\n convert '~' to @vm in Table\r\n x = Set_Printer(\"ADDTABLE\", TableColInfo, '', Table, '', '', 1, TB_NONE)\r\n Font<4> = 0\r\n Stat = set_printer( 'FONT', Font ) \r\n * Contact and Telephone No Data\r\n Table = ''\r\n Table<1> = Contact:'~':TelePhone:'~':QuoteNum\r\n convert '~' to @vm in Table\r\n x = Set_Printer(\"ADDTABLE\", TableColInfo, '', Table, '', '', 1, TB_NONE)\r\n Font<4> = 1\r\n Stat = set_printer( 'FONT', Font ) \r\n \r\n \r\n * Address and Fax No Headings\r\n Table = ''\r\n Table<1> = 'Address:~Fax:~Work Order No:'\r\n convert '~' to @vm in Table\r\n \r\n x = Set_Printer(\"ADDTABLE\", TableColInfo, '', Table, '', '', 1, TB_NONE)\r\n Font<4> = 0\r\n Stat = set_printer( 'FONT', Font ) \r\n * Address and Fax No Data\r\n Table = ''\r\n Table<1> = Address<1,1>:'~':Fax:'~':WO\r\n Acnt = fieldcount( Address, @vm )\r\n for i = 2 to Acnt\r\n Table<-1> = Address<1,i>:'~'\r\n next i\r\n convert '~' to @vm in Table\r\n x = Set_Printer(\"ADDTABLE\", TableColInfo, '', Table, '', '', 1, TB_NONE)\r\n Font<4> = 1\r\n Stat = set_printer( 'FONT', Font ) \r\n \r\n * Part no Headings\r\n TableColInfo = '<+7200':@vm:'<+3600'\r\n Table = ''\r\n Table<1> = '~Part No:'\r\n convert '~' to @vm in Table\r\n x = Set_Printer(\"ADDTABLE\", TableColInfo, '', Table, '', '', 1, TB_NONE)\r\n Font<4> = 0\r\n Stat = set_printer( 'FONT', Font ) \r\n * Part no Data\r\n Table = ''\r\n Table<1> = '~':CustPart\r\n convert '~' to @vm in Table\r\n x = Set_Printer(\"ADDTABLE\", TableColInfo, '', Table, '', '', 1, TB_NONE)\r\n Void = set_printer( 'TEXT', '' ) \r\n Font<4> = 1\r\n Stat = set_printer( 'FONT', Font ) \r\n \r\n \r\n * # Rejects and Lot# Headings\r\n TableColInfo = '<+5040':@vm:'<+5040' \r\n Table = ''\r\n Table<1> = '# of wafers Rejected:~Lot No(s):'\r\n convert '~' to @vm in Table\r\n x = Set_Printer(\"ADDTABLE\", TableColInfo, '', Table, '', '', 1, TB_NONE)\r\n Font<4> = 0\r\n Stat = set_printer( 'FONT', Font )\r\n * # Rejects and Lot# Data\r\n Table = ''\r\n Table<1> = RejQty:'~':LotNos \r\n convert '~' to @vm in Table\r\n x = Set_Printer(\"ADDTABLE\", TableColInfo, '', Table, '', '', 1, TB_NONE)\r\n Font<4> = 1\r\n Stat = set_printer( 'FONT', Font )\r\n Void = set_printer( 'TEXT', '' )\r\n \r\n \r\n * Defective Description Headings\r\n TableColInfo = '<+10080'\r\n Void = set_printer( 'TEXT', 'Defective Description:' )\r\n Font<4> = 0\r\n Stat = set_printer( 'FONT', Font )\r\n * Defective Description Data\r\n Table = ''\r\n Table<1> = Problem \r\n x = Set_Printer(\"ADDTABLE\", TableColInfo, '', Table, '', '', 1, TB_NONE)\r\n Void = set_printer( 'TEXT', '' )\r\n Font<4> = 1\r\n Stat = set_printer( 'FONT', Font )\r\n \r\n \r\n * Findings Headings\r\n Void = set_printer( 'TEXT', 'Findings:' )\r\n Font<4> = 0\r\n Stat = set_printer( 'FONT', Font )\r\n * Findings Data\r\n Table = ''\r\n Table<1> = Findings\r\n x = Set_Printer(\"ADDTABLE\", TableColInfo, '', Table, '', '', 1, TB_NONE)\r\n Void = set_printer( 'TEXT', '' )\r\n Font<4> = 1\r\n Stat = set_printer( 'FONT', Font )\r\n \r\n \r\n * Containment Headings\r\n if Internal then\r\n\t Void = set_printer( 'TEXT', 'Containment Actions:' )\r\n\t Font<4> = 0\r\n\t Stat = set_printer( 'FONT', Font )\r\n\t * Containment Data\r\n\t Table = ''\r\n\t Table<1> = ContainAction\r\n x = Set_Printer(\"ADDTABLE\", TableColInfo, '', Table, '', '', 1, TB_NONE)\r\n\t Void = set_printer( 'TEXT', '' )\r\n\t Font<4> = 1\r\n\t Stat = set_printer( 'FONT', Font )\r\n end\r\n\r\n\r\n * Corrective Action Headings\r\n Void = set_printer( 'TEXT', 'Corrective Action:' ) \r\n Font<4> = 0\r\n Stat = set_printer( 'FONT', Font )\r\n * Corrective Action Data\r\n Table = ''\r\n Table<1> = CorrectiveAction\r\n x = Set_Printer(\"ADDTABLE\", TableColInfo, '', Table, '', '', 1, TB_NONE)\r\n Void = set_printer( 'TEXT', '' )\r\n Font<4> = 1\r\n Stat = set_printer( 'FONT', Font )\r\n\r\n \r\n * Contact Contact Notes\r\n if Internal then\r\n\t Void = set_printer( 'TEXT', 'Customer Contact Notes:' ) \r\n\t Font<4> = 0\r\n\t Stat = set_printer( 'FONT', Font )\r\n\t * Contact Notes Data\r\n\t Table = ''\r\n\t Table<1> = ContactNotes\r\n x = Set_Printer(\"ADDTABLE\", TableColInfo, '', Table, '', '', 1, TB_NONE)\r\n\t Void = set_printer( 'TEXT', '' )\r\n\t Font<4> = 1\r\n\t Stat = set_printer( 'FONT', Font )\r\n end\r\n\r\n\r\n * Responsible Person and Timing Headings\r\n TableColInfo = '<+5040':@vm:'<+5040'\r\n Table = ''\r\n Table<1> = 'Responsible person:~Timing:'\r\n convert '~' to @vm in Table \r\n x = Set_Printer(\"ADDTABLE\", TableColInfo, '', Table, '', '', 1, TB_NONE)\r\n Font<4> = 0\r\n Stat = set_printer( 'FONT', Font )\r\n * Responsible Person and Timing Data\r\n Table = ''\r\n Table<1> = oconv( .resp_user_id->text, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):'~':.ant_car_inplace_date->text\r\n convert '~' to @vm in Table \r\n x = Set_Printer(\"ADDTABLE\", TableColInfo, '', Table, '', '', 1, TB_NONE)\r\n \r\n \r\n * footing \r\n TableColInfo = '<+10080'\r\n if Internal then\r\n * do not need the footing for internal use\r\n end else\r\n\t Void = set_printer( 'TEXT', '' )\r\n\t Void = set_printer( 'TEXT', '' ) \r\n\t Font<4> = 1\r\n\t Font<2> = 14\r\n\t Stat = set_printer( 'FONT', Font )\r\n\t Table = ''\r\n\t Table = 'If you have any questions, please contact the sales representative listed above at ':SalesRepDID\r\n x = Set_Printer(\"ADDTABLE\", TableColInfo, '', Table, '', '', 1, TB_NONE)\r\n end\r\n * termination\r\n stat = set_printer( 'TERM' ) \r\nend else\r\n security_err_msg( 'CAR', Print$ )\r\nend\r\nRETURN 0\r\n*===========================================================================*\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CAR.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/CAR.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CAR.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CAR.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/CAR.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CAR.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CAR.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/CAR.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CAR.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CAR.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/CAR.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CAR.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CAR.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/CAR.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CAR.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CAR.RMA_BUTTON.json b/LSL2/OIEVENT/CLICK/CAR.RMA_BUTTON.json new file mode 100644 index 0000000..6cf3ffa --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CAR.RMA_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, dialog_box\r\n$insert msg_equates\r\n\r\nOrigVal = .rma_info1->array:char(244):.rma_info2->array:char(244):.rma_special_inst->text:char(244):.rma_eng_comments->text\r\nReturnVal = dialog_box( 'CAR2', @window, OrigVal )\r\nif ( ReturnVal <> OrigVal ) and ( ReturnVal <> 'CANCEL' ) then\r\n if ( ReturnVal = 'REMOVEALL' ) then\r\n .rma_info1->array = @fm\r\n .rma_info2->array = str(@fm,4)\r\n .rma_special_inst->text = ''\r\n .rma_eng_comments->text = ''\r\n .rma_button->text = 'Define RMA Info...' \r\n end else\r\n\t RmaInfo1 = field( ReturnVal, char(244), 1 )\r\n\t RmaInfo2 = field( ReturnVal, char(244), 2 )\r\n\t convert @vm to @fm in RmaInfo2\r\n\t RmaSpecialInst = field( ReturnVal, char(244), 3 )\r\n\t RmaEngComments = field( ReturnVal, char(244), 4 )\r\n\t .rma_info1->array = RmaInfo1\r\n\t .rma_info2->array = RmaInfo2\r\n\t .rma_special_inst->text = RmaSpecialInst\r\n\t .rma_eng_comments->text = RmaEngComments\r\n .rma_button->text = 'Edit RMA Info...'\t \r\n end\r\n @@window->savewarn = 1 \r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CAR2.BUTTON_4.json b/LSL2/OIEVENT/CLICK/CAR2.BUTTON_4.json new file mode 100644 index 0000000..609cbdc --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CAR2.BUTTON_4.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, msg, dialog_box\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif .eng_signature->text <> '' then\r\n MsgInfo = ''\r\n MsgInfo = 'This RMA has already been signed by an engineer or production personnel.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend else\r\n\tSignatureInfo = xlate( 'CONFIG', 'QUOTE_SIGS', '', 'X' )\r\n\tUsers = SignatureInfo\r\n\tPassword = xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' )\r\n\tlocate @user4 in Users using @vm setting Fpos then\r\n\t\tValid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:Password )\r\n\t\tif Valid then\r\n\t\t\t.eng_signature->text = @user4\r\n\t\t\t.eng_signature_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t\t@@window->savewarn = 1\r\n\t\tend \r\n\tend else\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo = 'You are not an authorized Engineering/Production signer...'\r\n\t\tMsgInfo = 'H'\r\n\t\tVoid = msg( '', MsgInfo )\r\n\tend\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CAR2.BUTTON_5.json b/LSL2/OIEVENT/CLICK/CAR2.BUTTON_5.json new file mode 100644 index 0000000..9edfc86 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CAR2.BUTTON_5.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\ndeclare function msg\r\n$insert msg_equates\r\n\r\nMsgInfo = ''\r\nMsgInfo = 'Are you sure you wish to remove ALL RMA information???'\r\nMsgInfo = 'BNY'\r\nMsgInfo = '?'\r\nResp = msg( '', MsgInfo )\r\nif Resp = 1 then\r\n end_dialog( @window, 'REMOVEALL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CAR2.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/CAR2.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CAR2.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CAR2.SAVE_BUTTON.json b/LSL2/OIEVENT/CLICK/CAR2.SAVE_BUTTON.json new file mode 100644 index 0000000..51ecbd5 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CAR2.SAVE_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\ndeclare function msg\r\n$insert msg_equates\r\n\r\nif .prod_ret->value <> '' then\r\n EditControls = get_property( @window, '@EditControls' )\r\n RmaInfo2 = get_property( EditControls, 'TEXT' )\r\n convert @rm to @vm in RmaInfo2\r\n RmaInfo2 = .prod_ret->value:@vm:RmaInfo2\r\n RmaInfo1 = .ret_lot_info->array\r\n ReturnVal = RmaInfo1:char(244):RmaInfo2:char(244):.special_inst->text:char(244):.eng_comments->text\r\n end_dialog( @window, ReturnVal ) \r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must select either \"Sample\" or \"Lot\" under product returned.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CAR_QUERY.BUTTON_3.json b/LSL2/OIEVENT/CLICK/CAR_QUERY.BUTTON_3.json new file mode 100644 index 0000000..27bcf99 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CAR_QUERY.BUTTON_3.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.CAR' to DictCARTable else\r\n Void = msg( '', 'Unable to open DICT.CAR...' )\r\n return 0\r\nend\r\nSearchStr = ''\r\nCustIds = .customer_info->array<1>\r\nIssDateFrom = .issue_date_from->text\r\nIssDateThru = .issue_date_thru->text\r\nRespIds = .resp_person_info->array<1>\r\n*\r\nComplaints = .carcomplaints->text\r\n* need to convert field to value markers as the text property will \r\n* be field mark delimited if more than one is choosen\r\nconvert @fm to @vm in Complaints\r\n\r\n* CAR status variables\r\nOpen = .open_check->check\r\nFormComplete = .form_complete_check->check\r\nCARInplace = .car_inplace_check->check\r\nVerified = .verified_check->check\r\nRMA = .rma->check\r\nConfirmed = .confirmed_check->check\r\nUnconfirmed = .unconfirmed_check->check\r\n* end of inquiry status variables\r\n\r\nswap @vm:@vm with '' in CustIds\r\nif CustIds[-1,1] = @vm then CustIds[-1,1] = ''\r\nswap @vm:@vm with '' in RespIds\r\nif RespIds[-1,1] = @vm then RespIds[-1,1] = ''\r\nif CustIds then\r\n SearchStr<-1> = 'CUST_ID':@vm:CustIds\r\nend\r\nif RespIds then\r\n SearchStr<-1> = 'RESP_USER_ID':@vm:RespIds\r\nend\r\n\r\nif IssDateFrom and IssDateThru then\r\n SearchStr<-1> = 'ISSUE_DATE':@vm:IssDateFrom:'...':IssDateThru\r\nend else\r\n\tif IssDateFrom then\r\n\t SearchStr<-1> = 'ISSUE_DATE':@vm:'>=':IssDateFrom\r\n\tend\r\n\tif IssDateThru then\r\n\t SearchStr<-1> = 'ISSUE_DATE':@vm:'<=':IssDateThru\r\n\tend \r\nend\r\n\r\n* CAR status\r\nCARStatusVar = ''\r\nif Open then\r\n CARStatusVar<1,-1> = 'O'\r\nend\r\nif FormComplete then\r\n CARStatusVar<1,-1> = 'F'\r\nend\r\nif CARInplace then\r\n CARStatusVar<1,-1> = 'C'\r\nend\r\nif Verified then\r\n CARStatusVar<1,-1> = 'V'\r\nend\r\nif CarStatusVar then\r\n SearchStr<-1> = 'STATUS':@vm:CARStatusVar\r\nend\r\n\r\n* CONFIRMATION status\r\nCONStatusVar = ''\r\nif Confirmed then\r\n CONStatusVar<1,-1> = 'C'\r\nend\r\nif UnConfirmed then\r\n CONStatusVar<1,-1> = 'U'\r\nend\r\nif CONStatusVar then\r\n SearchStr<-1> = 'CONFIRM_STATUS':@vm:CONStatusVar\r\nend\r\n\r\n* Complaint types\r\nif Complaints <> '' then\r\n SearchStr<-1> = 'COMPLAINT_TYPE':@vm:Complaints\r\nend\r\n\r\nif RMA then\r\n SearchStr<-1> = 'RMA_PROD_RET':@vm:'#':''\r\nend\r\n\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'CAR', DictCARTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting CAR records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'CAR', 'CUST_NAME':@fm:'#ISSUE_DATE', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CAR_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/CAR_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CAR_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CAR_QUERY.RESP_PERSON_INFO.json b/LSL2/OIEVENT/CLICK/CAR_QUERY.RESP_PERSON_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CAR_QUERY.RESP_PERSON_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CAR_RPT1.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/CAR_RPT1.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CAR_RPT1.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CAR_RPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/CAR_RPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CAR_RPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CAR_RPT1.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/CAR_RPT1.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..2316832 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CAR_RPT1.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function sched_rpt1, send_event, msg\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nCusts = .customer_info->array<1>\r\nswap @vm:@vm with '' in custs\r\nif Custs[-1,1] = @vm then custs[-1,1] = ''\r\nIssueDateFrom = .issue_date_from->text\r\nIssueDateThru = .issue_date_thru->text\r\n\r\n* CAR status variables\r\nOpen = .open_check->check\r\nFormComplete = .form_complete_check->check\r\nCARInplace = .car_inplace_check->check\r\nVerified = .verified_check->check\r\n* end of inquiry status variables\r\n\r\nif IssueDateFrom or IssueDateThru then\r\n\tDirToPrint = .send_to_printer->text\r\n\tRetVal = Custs:'*':IssueDateFrom:'*':IssueDateThru:'*':Open:'*':FormComplete:'*':CARInplace:'*':Verified:'*':DirToPrint\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a from date or a thru date.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CAR_SRPT1.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/CAR_SRPT1.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CAR_SRPT1.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CAR_SRPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/CAR_SRPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CAR_SRPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CAR_SRPT1.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/CAR_SRPT1.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..11470ab --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CAR_SRPT1.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function sched_rpt1, send_event, msg, ex_vm_rem\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nIssueDateFrom = .issue_date_from->text\r\nIssueDateThru = .issue_date_thru->text\r\nCusts = .customer_info->array<1>\r\nCusts = ex_vm_rem(Custs)\r\n\r\n* CAR status variables\r\nOpen = .open_check->check\r\nFormComplete = .form_complete_check->check\r\nCARInplace = .car_inplace_check->check\r\nVerified = .verified_check->check\r\n* end of inquiry status variables\r\n\r\nif IssueDateFrom or IssueDateThru then\r\n\tDirToPrint = .send_to_printer->text\r\n\tRetVal = Custs:'*':IssueDateFrom:'*':IssueDateThru:'*':Open:'*':FormComplete:'*':CARInplace:'*':Verified:'*':DirToPrint\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a from date or a thru date.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CDM_LOG.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/CDM_LOG.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CDM_LOG.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CDM_LOG.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/CDM_LOG.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CDM_LOG.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CDM_LOG.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/CDM_LOG.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CDM_LOG.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CDM_LOG.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/CDM_LOG.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CDM_LOG.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CDM_LOG.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/CDM_LOG.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CDM_LOG.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CDM_LOG.SIGN_BUTTON.json b/LSL2/OIEVENT/CLICK/CDM_LOG.SIGN_BUTTON.json new file mode 100644 index 0000000..1ae95da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CDM_LOG.SIGN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, SRP_DateTime, Oconv, DateTime\r\nDeclare subroutine Set_Property\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo = 'This log has already been signed.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\tDate = SRP_DateTime(\"Date\", DateTime())\r\n\t\tTime = SRP_DateTime(\"Time\", Datetime())\r\n\r\n\t\tiDate = OConv(Date, 'D4/H')\r\n\t\tiTime = OConv(Time, 'MTS')\r\n\t\r\n\t\tSet_Property(@Window : '.DATE_CHANGED', 'DEFPROP', iDate)\r\n\t\tSet_Property(@Window : '.TIME_CHANGED', 'DEFPROP', iTime)\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CDM_LOG_QUERY.LOT_NUM.json b/LSL2/OIEVENT/CLICK/CDM_LOG_QUERY.LOT_NUM.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CDM_LOG_QUERY.LOT_NUM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CDM_LOG_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/CDM_LOG_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..2a182ed --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CDM_LOG_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, ex_vm_rem\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.CDM_LOG' to DictCDMLogTable else\r\n Void = msg( '', 'Unable to open DICT.CDM_LOG...' )\r\n return 0\r\nend\r\n\r\nSearchStr = ''\r\nDateFrom = .date_from->text\r\nDateThru = .date_thru->text\r\nLotNumber = ex_vm_rem( .lot_num->array )\r\nCDMChemical= ex_vm_rem( .CDMChemical->text )\r\nconvert @fm to @vm in CDMChemical; *text property will be fm delimited if >1 chosen\r\nTechIDs = ex_vm_rem( .techs->array<1> )\r\n\r\nswap @vm:@vm with '' in TechIDs\r\nif TechIDs[-1,1] = @vm then TechIDs[-1,1] = ''\r\nif TechIDs then\r\n SearchStr<-1> = 'TECH_SIG':@vm:TechIDs\r\nend\r\n\r\nif DateFrom and DateThru then\r\n SearchStr<-1> = 'DATE_CHANGED':@vm:DateFrom:'...':DateThru\r\nend else\r\n\tif DateFrom then\r\n\t SearchStr<-1> = 'DATE_CHANGED':@vm:'>=':DateFrom\r\n\tend\r\n\tif DateThru then\r\n\t SearchStr<-1> = 'DATE_CHANGED':@vm:'<=':DateThru\r\n\tend\r\nend\r\n\r\nif LotNumber then\r\n SearchStr<-1> = 'LOT_NUM':@vm:LotNumber\r\nend\r\n\r\nif CDMChemical then\r\n\tSearchStr<-1> = 'CHEMICAL_NAME':@vm:CDMChemical\r\nend\r\n\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'CDM_LOG', DictCDMLogTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting CDM Log records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'CDM_LOG', '#DATE_CHANGED':@fm:'#TIME_CHANGED':@fm:'CHEMICAL_NAME':@fm:'LOT_NUM', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CDM_LOG_QUERY.TECHS.json b/LSL2/OIEVENT/CLICK/CDM_LOG_QUERY.TECHS.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CDM_LOG_QUERY.TECHS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COC.BUTTON_11.json b/LSL2/OIEVENT/CLICK/COC.BUTTON_11.json new file mode 100644 index 0000000..51da2ed --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COC.BUTTON_11.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, set_printer, get_printer, msg, entid, repository\r\ndeclare subroutine security_err_msg, print_pallet_labels\r\n\r\n$insert security_rights_equ\r\n$insert oiprint_equates\r\n$insert msg_equates\r\n$insert company_equ\r\n$insert logical\r\n\r\nif security_check( 'COC', Print$ ) then\r\n\tif @@window->savewarn = true$ then\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'You need to save this COC before printing.'\r\n\t MsgInfo = '!'\r\n\t Void = msg( '', MsgInfo )\r\n\t return 0\r\n\tend else\r\n\t COC = .coc_no->text\r\n\t print_pallet_labels( COC )\r\n\tend\r\nend else\r\n security_err_msg( 'COC', Print$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COC.BUTTON_2.json b/LSL2/OIEVENT/CLICK/COC.BUTTON_2.json new file mode 100644 index 0000000..f237e06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COC.BUTTON_2.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, set_printer, get_printer, msg, entid, repository\r\ndeclare subroutine print_packing_slip\r\ndeclare subroutine security_err_msg\r\n\r\n$insert security_rights_equ\r\n$insert oiprint_equates\r\n$insert msg_equates\r\n$insert company_equ\r\n$insert logical\r\n\r\nif security_check( 'COC', Print$ ) then\r\n\tif @@window->savewarn = true$ then\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'You need to save this COC before printing.'\r\n\t MsgInfo = '!'\r\n\t Void = msg( '', MsgInfo )\r\n\t return 0\r\n\tend else\r\n\t COC = .coc_no->text\r\n\t print_packing_slip( COC )\r\n\tend\r\nend else\r\n security_err_msg( 'COC', Print$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COC.BUTTON_3.json b/LSL2/OIEVENT/CLICK/COC.BUTTON_3.json new file mode 100644 index 0000000..a04ca2a --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COC.BUTTON_3.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, set_printer, get_printer, msg, entid, repository\r\ndeclare function print_shipping_labels_thermal2\r\ndeclare subroutine security_err_msg, Print_Carton_Labels\r\n\r\n$insert security_rights_equ\r\n$insert oiprint_equates\r\n$insert msg_equates\r\n$insert company_equ\r\n$insert logical\r\n\r\nif security_check( 'COC', Print$ ) then\r\n\tif @@window->savewarn = true$ then\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'You need to save this COC before printing.'\r\n\t MsgInfo = '!'\r\n\t Void = msg( '', MsgInfo )\r\n\t return 0\r\n\tend else\r\n\t COC = .coc_no->text\r\n\t *Void = print_shipping_labels_thermal2( COC )\r\n\t Print_Carton_Labels( COC )\r\n\tend\r\nend else\r\n security_err_msg( 'COC', Print$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COC.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/COC.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COC.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COC.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/COC.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COC.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COC.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/COC.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COC.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COC.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/COC.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COC.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COC.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/COC.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COC.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COC.PRINT_BUTTON.json b/LSL2/OIEVENT/CLICK/COC.PRINT_BUTTON.json new file mode 100644 index 0000000..1600e40 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COC.PRINT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, set_printer, get_printer, msg, fieldcount, Printer_Select\r\ndeclare subroutine security_err_msg\r\n$insert security_rights_equ\r\n$insert oiprint_equates\r\n$insert msg_equates\r\nequ CocNo$ to 1\r\nequ CustNo$ to 2\r\nequ CustName$ to 3\r\nequ Division$ to 4\r\nequ Po$ to 5\r\nequ Wo$ to 6\r\nequ Shipment$ to 7\r\nif security_check( 'COC', Print$ ) then\r\n * pull off variables\r\n TextFields = 'COC_NO/CUST_NO/CUST_NAME/DIVISION/PO/WO/SHIPMENT'\r\n swap '/' with @rm:@window:'.' in TextFields\r\n TextFields = @window:'.':TextFields\r\n TextFields = get_property( TextFields, 'TEXT' )\r\n convert @rm to @fm in TextFields\r\n CocNo = TextFields\r\n CustNo = TextFields\r\n CustName = TextFields\r\n Division = TextFields\r\n Po = TextFields\r\n Wo = TextFields\r\n Shipment = TextFields\r\n ShipDetail = .ship_detail->array\r\n \r\n PrintPath = Printer_Select('',1)\t\t;* Get default printer path\r\n Stat = set_printer( 'INIT', '', '', '':@fm:'':@fm:0:@fm:'', 0 ,'',PrintPath)\r\n gosub CheckErr\r\n Font = \"Courier New,12,L,1\"\r\n convert ',' to @fm in Font\r\n Hf = Font\r\n Stat = set_printer( 'FONT', Font )\r\n gosub CheckErr\r\n gosub PrintToF\r\n Font<2> = 9\r\n Font<4> = 0\r\n Void = set_printer( 'FONT', Font )\r\n gosub CheckErr\r\n Void = set_printer( 'TEXT', '' )\r\n Table = ''\r\n Table<1> = 'Order No,Line,RDS No,Part Num,Lot Num,R#,Rejects,Qty'\r\n Rcnt = fieldcount( ShipDetail<1>, @vm )\r\n for i = 1 to Rcnt\r\n Table<-1> = ShipDetail<1,i>:',':ShipDetail<2,i>:',':ShipDetail<3,i>:',':ShipDetail<4,i>:',':ShipDetail<5,i>:',':ShipDetail<6,i>:',':ShipDetail<7,i>:',':ShipDetail<8,i>\r\n next i\r\n convert ',' to @vm in Table\r\n ColSizeInfo = '<+1440':@vm:'<+720':@vm:'<+1440':@vm:'<+2160':@vm:'<+2160':@vm:'>+720':@vm:'>+720':@vm:'>+720'\r\n x = set_printer( \"ADDTABLE\", ColSizeInfo, '', Table, '', '', 1, TB_ALL )\r\n *x = Set_Printer(\"TABLE\", Table, '', 1:@fm:.5:@fm:1:@fm:1.5:@fm:1.5:@fm:.5:@fm:.5:@fm:.5, 'L':@fm:'L':@fm:'L':@fm:'L':@fm:'L':@fm:'L':@fm:'R':@fm:'R', TB_ALL)\r\n Table = ',,,,,,,'\r\n convert ',' to @vm in Table\r\n Table<1,7> = .tot_rej->array<1,1>\r\n Table<1,8> = .tot_qty->array<1,1>\r\n x = set_printer( \"ADDTABLE\", ColSizeInfo, '', Table, '', '', 1, TB_TOP )\r\n stat = set_printer( 'TERM' ) \r\n gosub CheckErr \r\nend else\r\n security_err_msg( 'COC', Print$ )\r\nend\r\nRETURN 0\r\n*===========================================================================*\r\nPrintTof:\r\n LineOut = ''\r\n LineOut = fmt( 'Coc No: ':CocNo, 'L#25' ):'Entry Date: ':.entry_date->text\r\n Void = set_printer( 'TEXT', LineOut )\r\n LineOut = fmt( 'Cust No: ':CustNo, 'L#14' ):' '\r\n LineOut:= fmt( 'Name: ':CustName, 'L#35' ):' '\r\n LineOut:= 'Division: ':Division\r\n Void = set_printer( 'TEXT', LineOut )\r\n LineOut = fmt( 'PO#: ':Po, 'L#29' ):' '\r\n LineOut:= fmt( 'WO#: ':Wo, 'L#25' ):' '\r\n LineOut:= 'Shipment: ':Shipment\r\n Void = set_printer( 'TEXT', LineOut )\r\nreturn \r\n\r\n*===========================================================================*\r\nCheckErr:\r\n if stat < 0 then\r\n goto FatalExit\r\n end\r\nreturn \r\n\r\n*===========================================================================*\r\nFatalExit:\r\n Void = msg( '', Stat )\r\n Stat = set_printer( 'TERM' )\r\nreturn \r\n\r\n*===========================================================================*" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COC_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/COC_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..8f4dcf2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COC_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COC_QUERY.ENTRY_IDS.json b/LSL2/OIEVENT/CLICK/COC_QUERY.ENTRY_IDS.json new file mode 100644 index 0000000..8f4dcf2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COC_QUERY.ENTRY_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COC_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/COC_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..fd657fb --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COC_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility\r\n\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.COC' to DictCOCTable else\r\n Void = msg( '', 'Unable to open DICT.COC...' )\r\n return 0\r\nend\r\n\r\nSearchStr = ''\r\n\r\nCustIds\t\t\t= .customer_info->array<1>\r\nEntryDateFrom\t= .entry_date_from->text\r\nEntryDateThru\t= .entry_date_thru->text\r\nEntryIds\t\t= .entry_ids->array<1>\r\nWo\t\t\t\t= .wo->array\r\nPo\t\t\t\t= .po->array\r\nTXDtsNull\t\t= .tx_dt_null->CHECK\r\n\r\nswap @vm:@vm with '' in Wo\r\nif Wo[-1,1] = @vm then Wo[-1,1] = ''\r\nswap @vm:@vm with '' in Po\r\nif Po[-1,1] = @vm then Po[-1,1] = ''\r\nswap @vm:@vm with '' in CustIds\r\nif CustIds[-1,1] = @vm then CustIds[-1,1] = ''\r\nswap @vm:@vm with '' in EntryIds\r\nif EntryIds[-1,1] = @vm then EntryIds[-1,1] = ''\r\n\r\nif CustIds then\r\n SearchStr<-1> = 'WO_CUST_NO_SHIP_TO':@vm:CustIds\r\nend\r\n\r\nif EntryDateFrom and EntryDateThru then\r\n SearchStr<-1> = 'ENTRY_DATE':@vm:EntryDateFrom:'...':EntryDateThru\r\nend else\r\n\tif EntryDateFrom then\r\n\t SearchStr<-1> = 'ENTRY_DATE':@vm:'>=':EntryDateFrom\r\n\tend\r\n\tif EntryDateThru then\r\n\t SearchStr<-1> = 'ENTRY_DATE':@vm:'<=':EntryDateThru\r\n\tend\r\nend\r\n\r\nif EntryIds then\r\n SearchStr<-1> = 'ENTRY_ID':@vm:EntryIds\r\nend\r\nif Wo then\r\n SearchStr<-1> = 'WO':@vm:Wo\r\nend\r\nif Po then\r\n SearchStr<-1> = 'PO':@VM:Po\r\nend\r\n\r\n\r\nIF TXDtsNull THEN\r\n\tSearchStr<-1> = 'SEND_DTM':@VM:''\r\nEND\r\n\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'COC', DictCOCTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting COC records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'COC', 'CUST_NAME_BILL_TO':@fm:'#ENTRY_DATE', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COC_QUERY.PO.json b/LSL2/OIEVENT/CLICK/COC_QUERY.PO.json new file mode 100644 index 0000000..64c3a5d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COC_QUERY.PO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COC_QUERY.WO.json b/LSL2/OIEVENT/CLICK/COC_QUERY.WO.json new file mode 100644 index 0000000..64c3a5d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COC_QUERY.WO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COC_RPT1.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/COC_RPT1.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COC_RPT1.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COC_RPT1.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/COC_RPT1.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..1f205cd --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COC_RPT1.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function coc_rpt1, send_event, msg\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nCocDateFrom = .coc_date_from->text\r\nCocDateThru = .coc_date_thru->text\r\nif CocDateFrom or CocDateThru then\r\n\tDirToPrint = .send_to_printer->text\r\n\tRetVal = CocDateFrom:'*':CocDateThru:'*':DirToPrint\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a from date or a thru date.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COC_SRPT1.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/COC_SRPT1.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COC_SRPT1.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COC_SRPT1.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/COC_SRPT1.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..1f205cd --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COC_SRPT1.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function coc_rpt1, send_event, msg\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nCocDateFrom = .coc_date_from->text\r\nCocDateThru = .coc_date_thru->text\r\nif CocDateFrom or CocDateThru then\r\n\tDirToPrint = .send_to_printer->text\r\n\tRetVal = CocDateFrom:'*':CocDateThru:'*':DirToPrint\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a from date or a thru date.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COMPANY.AC_BUTTON.json b/LSL2/OIEVENT/CLICK/COMPANY.AC_BUTTON.json new file mode 100644 index 0000000..f9a75b2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COMPANY.AC_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function start_window, relational_call, security_check, msg, key_sort\r\ndeclare function rowexists, Get_Status, Popup\r\ndeclare subroutine security_err_msg, ErrMsg, obj_Appwindow, Btree.Extract, Set_Status, ErrMsg\r\n$insert msg_equates\r\n$insert security_rights_equ\r\n$INSERT POPUP_EQUATES\r\n\r\nif .co_type->value = 'C' then\r\n\tif security_check( 'Annual Contracts', Read$ ) then\r\n\t CustNo = .co_no->text\r\n\t if CustNo then\r\n\t if rowexists( 'COMPANY', CustNo ) then\r\n\t\t\t\tOPEN 'DICT.ANNUAL_CONTRACTS' TO DictVar THEN\r\n\t\t\t\t\tSearchString = 'CUST_NO':@VM:CustNo:@FM\r\n\t\t\t\t\tBtree.Extract(SearchString,'ANNUAL_CONTRACTS',DictVar,ACIDs,'',Flag)\r\n\t\t\t\t\tIF Get_Status(errCode) THEN\r\n\t\t\t\t\t\tErrMsg(errCode)\r\n\t\t\t\t\t\tRETURN\r\n\t\t\t\t\tEND\r\n\t\t\r\n\t\t\t\t\tIF ACIDs= '' THEN\r\n\t\t\t\t\t\tErrMsg('No Annual Contracts on file for Customer Number ':CustNo)\r\n\t\t\t\t\t\tRETURN 0\r\n\t\t\t\t\tEND ELSE\r\n\t\t\t\t\t\tIF INDEX(ACIDs,@VM,1) THEN\r\n\t\t\t\t\t\t\r\n\t\t\t\t\t\t\tACIDs := @VM\r\n\t\t\t\t\t\t\tCONVERT @VM TO @RM IN ACIDs\r\n\t\t\t\t\t\t\tCALL V119('S','','D','R',ACIDs,'')\r\n\t\t\t\t\t\t\tIF Get_Status(errCode) THEN DEBUG\r\n\t\t\t\t\t\t\tCONVERT @RM TO @VM IN ACIDs\r\n\t\t\t\t\t\t\tACIDs[-1,1] = ''\t\t\t\t\t;* Strip trailing delimiter\t\r\n\t\t\t\t\t\t\r\n\t\t\t\t\t\t\tTypeOver = ''\r\n\t\t\t\t\t\t\tTypeOver = ACIDs\r\n\t\t\t\t\t\t\tTypeOver\t= 'Annual Contracts for ':XLATE('COMPANY',CustNo,4,'X')\r\n\t\t\t\t\t\t\tTypeOver\t= 2\r\n\t\t\t\t\t\t\tACID = Popup(@WINDOW,TypeOver,'COMP_ANN_CONT')\r\n\t\t\t\t\t\tEND ELSE\r\n\t\t\t\t\t\t\tACID = ACIDs\r\n\t\t\t\t\t\tEND\r\n\t\t\t\t\t\t\r\n\t\t\t\t\t\tIF ACIDs NE '' THEN\r\n\t\t\t\t\t\t\tobj_Appwindow('ViewRelated','ANN_CONT':@RM:ACID)\r\n\t\t\t\t\t\tEND\r\n\t\t\t\t\tEND\r\n\t\t\t\tEND ELSE\r\n\t\t\t\t\tErrMsg('Unable to open DICT.ANNUAL_CONTRACTS in COMM_PROD_ORD routine.')\r\n\t\t\t\t\tRETURN 0\r\n\t\t\t\tEND\r\n\t\t end else\r\n\t\t MsgInfo = ''\r\n\t\t MsgInfo = 'You must save this company first.'\r\n\t\t MsgInfo = '!'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t\t end\r\n\t end else\r\n\t MsgRec = ''\r\n\t MsgRec = 'You must retrieve a company first...' \r\n\t MsgRec = '!'\r\n\t Void = msg( '', MsgRec ) \r\n\t end\r\n\tend else\r\n\t security_err_msg( 'Annual Contracts', Read$ )\r\n\tend\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You cannot setup an annual contract for a company unless they are defined as a customer...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COMPANY.ADDRESS.json b/LSL2/OIEVENT/CLICK/COMPANY.ADDRESS.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COMPANY.ADDRESS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COMPANY.BILL_TO_ADDRESS.json b/LSL2/OIEVENT/CLICK/COMPANY.BILL_TO_ADDRESS.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COMPANY.BILL_TO_ADDRESS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COMPANY.BUTTON_9.json b/LSL2/OIEVENT/CLICK/COMPANY.BUTTON_9.json new file mode 100644 index 0000000..bd9450a --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COMPANY.BUTTON_9.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function start_window, relational_call, security_check, msg, key_sort\r\ndeclare function rowexists, det_table_suff\r\ndeclare subroutine security_err_msg\r\n$insert msg_equates\r\n$insert security_rights_equ\r\n\r\nif .co_type->value = 'C' then\r\n WindowToCall = 'NDA'\r\n Table = 'NDA'\r\n RightsToCheck = 'NDA'\r\n SymKeys = 'NDA_KEYS'\r\n PopupToCall = 'SHOW_NDA'\r\n\tif security_check( RightsToCheck, Read$ ) then\r\n\t CoNo = .co_no->text\r\n\t if CoNo then\r\n\t if rowexists( 'COMPANY', CoNo ) then\r\n\t\t\t\tKeys = relational_call( 'COMPANY', SymKeys, CoNo, PopupToCall, Table, '#INIT_DATE' )\r\n\t\t\t\tif Keys then\r\n\t\t\t\t swap 'NoKeys' with '' in Keys\r\n\t\t\t\t ParamToPass = Keys\r\n \t\t\t\tVoid = start_window( WindowToCall, '', ParamToPass:'*CENTER', '', '' )\r\n \t\t end\r\n\t\t end else\r\n\t\t MsgInfo = ''\r\n\t\t MsgInfo = 'You must save this company first.'\r\n\t\t MsgInfo = '!'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t\t end\r\n\t end else\r\n\t MsgRec = ''\r\n\t MsgRec = 'You must retrieve a company first...' \r\n\t MsgRec = '!'\r\n\t Void = msg( '', MsgRec ) \r\n\t end\r\n\tend else\r\n\t security_err_msg( RightsToCheck, Read$ )\r\n\tend\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You cannot enter a NDA for a company unless they are defined as a customer...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COMPANY.CALL_VISIT_BUTTON.json b/LSL2/OIEVENT/CLICK/COMPANY.CALL_VISIT_BUTTON.json new file mode 100644 index 0000000..480e91b --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COMPANY.CALL_VISIT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function start_window, relational_call, security_check, msg, key_sort\r\ndeclare function rowexists, det_table_suff\r\ndeclare subroutine security_err_msg\r\n$insert msg_equates\r\n$insert security_rights_equ\r\n\r\nif .co_type->value = 'C' then\r\n WindowToCall = 'CALL_VISIT'\r\n Table = 'CALL_VISIT'\r\n RightsToCheck = 'Call Visit'\r\n SymKeys = 'ACTIVE_CALL_VISIT_KEYS'\r\n PopupToCall = 'SHOW_CALL_VISIT'\r\n\tif security_check( RightsToCheck, Read$ ) then\r\n\t CoNo = .co_no->text\r\n\t if CoNo then\r\n\t if rowexists( 'COMPANY', CoNo ) then\r\n\t\t\t\tKeys = relational_call( 'COMPANY', SymKeys, CoNo, PopupToCall, Table, '#CALL_VISIT_DATE' )\r\n\t\t\t\tif Keys then\r\n\t\t\t\t swap 'NoKeys' with '' in Keys\r\n\t\t\t\t ParamToPass = Keys\r\n \t\t\t\tVoid = start_window( WindowToCall, '', ParamToPass:'*CENTER', '', '' )\r\n \t\t end\r\n\t\t end else\r\n\t\t MsgInfo = ''\r\n\t\t MsgInfo = 'You must save this company first.'\r\n\t\t MsgInfo = '!'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t\t end\r\n\t end else\r\n\t MsgRec = ''\r\n\t MsgRec = 'You must retrieve a company first...' \r\n\t MsgRec = '!'\r\n\t Void = msg( '', MsgRec ) \r\n\t end\r\n\tend else\r\n\t security_err_msg( RightsToCheck, Read$ )\r\n\tend\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You cannot enter a call/visit for a company unless they are defined as a customer...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COMPANY.CONTACT_NAMES.json b/LSL2/OIEVENT/CLICK/COMPANY.CONTACT_NAMES.json new file mode 100644 index 0000000..db63ca3 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COMPANY.CONTACT_NAMES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function start_window, relational_call, security_check, msg, key_sort\r\ndeclare function rowexists\r\ndeclare subroutine security_err_msg\r\n$insert msg_equates\r\n\r\n$insert security_rights_equ\r\nif security_check( 'Names', Read$ ) then\r\n CoNo = .co_no->text\r\n if CoNo then\r\n if rowexists( 'COMPANY', CoNo ) then\r\n\t\t\tKeys = relational_call( 'COMPANY', 'NAME_KEYS', CoNo, 'SHOW_NAMES', 'NAMES', 'LAST':@fm:'FIRST' )\r\n\t\t\tif Keys then\r\n\t\t\t swap 'NoKeys' with '' in Keys\r\n\t \t\tParamToPass = Keys:'*':CoNo\r\n \t\t\tVoid = start_window( 'NAMES', @window, ParamToPass, '', '' )\r\n \t end\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this company first.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n end else\r\n MsgRec = ''\r\n MsgRec = 'You must retrieve a company first...' \r\n MsgRec = '!'\r\n Void = msg( '', MsgRec ) \r\n end\r\nend else\r\n security_err_msg( 'Names', Read$ )\r\nend\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COMPANY.CO_TYPE.json b/LSL2/OIEVENT/CLICK/COMPANY.CO_TYPE.json new file mode 100644 index 0000000..d08fc92 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COMPANY.CO_TYPE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function company_comm\r\nVoid = company_comm( 'SET_FIELDS' )\r\n.co_type->enabled = 0\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COMPANY.CREDIT_INFO.json b/LSL2/OIEVENT/CLICK/COMPANY.CREDIT_INFO.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COMPANY.CREDIT_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COMPANY.INTL_PHONES.json b/LSL2/OIEVENT/CLICK/COMPANY.INTL_PHONES.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COMPANY.INTL_PHONES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COMPANY.INVOICE_BUTTON.json b/LSL2/OIEVENT/CLICK/COMPANY.INVOICE_BUTTON.json new file mode 100644 index 0000000..257e2ba --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COMPANY.INVOICE_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function start_window, relational_call, security_check, msg, key_sort\r\ndeclare function rowexists, det_table_suff\r\ndeclare subroutine security_err_msg\r\n$insert msg_equates\r\n$insert security_rights_equ\r\n\r\nif .co_type->value = 'C' then\r\n * REMARKED BELOW DUE TO SRL REMOVAL\r\n *TableSuff = det_table_suff()\r\n *if TableSuff then\r\n WindowToCall = 'INVOICE'\r\n\t Table = 'INVOICE'\r\n\t RightsToCheck = 'Invoice'\r\n\t SymKeys = 'OPEN_INVOICE_KEYS'\r\n\t PopupToCall = 'SHOW_INVOICES'\r\n\t *if TableSuff <> 'M&S' then\r\n\t * WindowToCall :='_':TableSuff\r\n\t * RightsToCheck := ' SRL'\r\n\t * Table := '_':TableSuff\r\n\t * SymKeys = 'SRL_':SymKeys\r\n\t * PopupToCall = 'SHOW':'_':TableSuff:'_INVOICES'\r\n\t *end\r\n\t\tif security_check( RightsToCheck, Read$ ) then\r\n\t\t CoNo = .co_no->text\r\n\t\t if CoNo then\r\n\t\t if rowexists( 'COMPANY', CoNo ) then\r\n\t\t\t\t\tKeys = relational_call( 'COMPANY', SymKeys, CoNo, PopupToCall, Table, '#ENTRY_DATE' )\r\n\t\t\t\t\tif Keys then\r\n\t\t\t\t\t swap 'NoKeys' with '' in Keys\r\n\t\t\t\t\t ParamToPass = Keys\r\n\t \t\t\t\tVoid = start_window( WindowToCall, '', ParamToPass:'*CENTER', '', '' )\r\n\t \t\t end\r\n\t\t\t end else\r\n\t\t\t MsgInfo = ''\r\n\t\t\t MsgInfo = 'You must save this company first.'\r\n\t\t\t MsgInfo = '!'\r\n\t\t\t Void = msg( '', MsgInfo )\r\n\t\t\t end\r\n\t end else\r\n\t\t MsgRec = ''\r\n\t\t MsgRec = 'You must retrieve a company first...' \r\n\t\t MsgRec = '!'\r\n\t\t Void = msg( '', MsgRec ) \r\n\t\t end\r\n\t\tend else\r\n\t\t security_err_msg( RightsToCheck, Read$ )\r\n\t\tend\r\n\t*end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'A company cannot be invoiced unless they are defined as a customer...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COMPANY.ORDER_BUTTON.json b/LSL2/OIEVENT/CLICK/COMPANY.ORDER_BUTTON.json new file mode 100644 index 0000000..06e4e8e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COMPANY.ORDER_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function start_window, relational_call, security_check, msg, key_sort\r\ndeclare function rowexists, det_table_suff\r\ndeclare subroutine security_err_msg\r\n$insert msg_equates\r\n$insert security_rights_equ\r\n\r\nif .co_type->value = 'C' then\r\n * REMARKED BELOW DUE TO SRL REMOVAL\r\n *TableSuff = det_table_suff()\r\n *if TableSuff then\r\n\t WindowToCall = 'ORDER'\r\n\t Table = 'ORDER'\r\n\t RightsToCheck = 'Order'\r\n\t SymKeys = 'OPEN_ORDER_KEYS'\r\n\t PopupToCall = 'SHOW_ORDERS'\r\n\t *if TableSuff <> 'M&S' then\r\n\t * WindowToCall :='_':TableSuff\r\n\t * RightsToCheck := ' SRL'\r\n\t * Table := '_':TableSuff\r\n\t * SymKeys = 'SRL_':SymKeys\r\n\t * PopupToCall = 'SHOW':'_':TableSuff:'_ORDERS'\r\n\t *end\r\n\t\tif security_check( RightsToCheck, Read$ ) then\r\n\t\t CoNo = .co_no->text\r\n\t\t if CoNo then\r\n\t\t if rowexists( 'COMPANY', CoNo ) then\r\n\t\t\t\t\tKeys = relational_call( 'COMPANY', SymKeys, CoNo, PopupToCall, Table, '#ENTRY_DATE' )\r\n\t\t\t\t\tif Keys then\r\n\t\t\t\t\t swap 'NoKeys' with '' in Keys\r\n\t\t\t\t\t ParamToPass = Keys\r\n\t \t\t\t\tVoid = start_window( WindowToCall, '', ParamToPass:'*CENTER', '', '' )\r\n\t \t\t end\r\n\t\t\t end else\r\n\t\t\t MsgInfo = ''\r\n\t\t\t MsgInfo = 'You must save this company first.'\r\n\t\t\t MsgInfo = '!'\r\n\t\t\t Void = msg( '', MsgInfo )\r\n\t\t\t end\r\n\t end else\r\n\t\t MsgRec = ''\r\n\t\t MsgRec = 'You must retrieve a company first...' \r\n\t\t MsgRec = '!'\r\n\t\t Void = msg( '', MsgRec ) \r\n\t\t end\r\n\t\tend else\r\n\t\t security_err_msg( RightsToCheck, Read$ )\r\n\t\tend\r\n *end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'A company cannot order unless they are defined as a customer...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COMPANY.PHONES.json b/LSL2/OIEVENT/CLICK/COMPANY.PHONES.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COMPANY.PHONES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COMPANY.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/COMPANY.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COMPANY.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COMPANY.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/COMPANY.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COMPANY.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COMPANY.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/COMPANY.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COMPANY.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COMPANY.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/COMPANY.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COMPANY.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COMPANY.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/COMPANY.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COMPANY.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COMPANY.PROD_SPEC_BUTTON.json b/LSL2/OIEVENT/CLICK/COMPANY.PROD_SPEC_BUTTON.json new file mode 100644 index 0000000..104d26a --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COMPANY.PROD_SPEC_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function start_window, relational_call, security_check, msg, key_sort\r\ndeclare function rowexists, det_table_suff\r\ndeclare subroutine security_err_msg\r\n$insert msg_equates\r\n$insert security_rights_equ\r\n\r\nif .co_type->value = 'C' then\r\n WindowToCall = 'PROD_SPEC'\r\n Table = 'PROD_SPEC'\r\n RightsToCheck = 'Prod Spec'\r\n SymKeys = 'PROD_SPEC_KEYS'\r\n PopupToCall = 'SHOW_PROD_SPEC'\r\n\tif security_check( RightsToCheck, Read$ ) then\r\n\t CoNo = .co_no->text\r\n\t if CoNo then\r\n\t if rowexists( 'COMPANY', CoNo ) then\r\n\t\t\t\tKeys = relational_call( 'COMPANY', SymKeys, CoNo, PopupToCall, Table, '#REV_DATE' )\r\n\t\t\t\tif Keys then\r\n\t\t\t\t swap 'NoKeys' with '' in Keys\r\n\t\t\t\t ParamToPass = Keys\r\n \t\t\t\tVoid = start_window( WindowToCall, '', ParamToPass:'*CENTER', '', '' )\r\n \t\t end\r\n\t\t end else\r\n\t\t MsgInfo = ''\r\n\t\t MsgInfo = 'You must save this company first.'\r\n\t\t MsgInfo = '!'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t\t end\r\n\t end else\r\n\t MsgRec = ''\r\n\t MsgRec = 'You must retrieve a company first...' \r\n\t MsgRec = '!'\r\n\t Void = msg( '', MsgRec ) \r\n\t end\r\n\tend else\r\n\t security_err_msg( RightsToCheck, Read$ )\r\n\tend\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You cannot enter a product specification for a company unless they are defined as a customer...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COMPANY.QUOTE_BUTTON.json b/LSL2/OIEVENT/CLICK/COMPANY.QUOTE_BUTTON.json new file mode 100644 index 0000000..002efa8 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COMPANY.QUOTE_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function start_window, relational_call, security_check, msg, key_sort\r\ndeclare function rowexists, det_table_suff\r\ndeclare subroutine security_err_msg\r\n$insert msg_equates\r\n$insert security_rights_equ\r\n\r\nif .co_type->value = 'C' then\r\n * REMARKED BELOW DUE TO SRL REMOVAL\r\n *TableSuff = det_table_suff()\r\n WindowToCall = 'QUOTE'\r\n Table = 'QUOTE'\r\n RightsToCheck = 'Quote'\r\n SymKeys = 'QUOTE_KEYS'\r\n PopupToCall = 'SHOW_QUOTES'\r\n *if TableSuff <> 'M&S' then\r\n * WindowToCall :='_':TableSuff\r\n * RightsToCheck := ' SRL'\r\n * Table := '_':TableSuff\r\n * SymKeys = 'SRL_':SymKeys\r\n * PopupToCall = 'SHOW':'_':TableSuff:'_QUOTES'\r\n *end\r\n\tif security_check( RightsToCheck, Read$ ) then\r\n\t CoNo = .co_no->text\r\n\t if CoNo then\r\n\t if rowexists( 'COMPANY', CoNo ) then\r\n\t\t\t\tKeys = relational_call( 'COMPANY', SymKeys, CoNo, PopupToCall, Table, '#ENTRY_DATE' )\r\n\t\t\t\tif Keys then\r\n\t\t\t\t swap 'NoKeys' with '' in Keys\r\n\t\t\t\t ParamToPass = Keys\r\n \t\t\t\tVoid = start_window( WindowToCall, '', ParamToPass:'*CENTER', '', '' )\r\n \t\t end\r\n\t\t end else\r\n\t\t MsgInfo = ''\r\n\t\t MsgInfo = 'You must save this company first.'\r\n\t\t MsgInfo = '!'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t\t end\r\n\t end else\r\n\t MsgRec = ''\r\n\t MsgRec = 'You must retrieve a company first...' \r\n\t MsgRec = '!'\r\n\t Void = msg( '', MsgRec ) \r\n\t end\r\n\tend else\r\n\t security_err_msg( RightsToCheck, Read$ )\r\n\tend\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You cannot quote a company unless they are defined as a customer...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COMPANY.SHIPPERINFO.json b/LSL2/OIEVENT/CLICK/COMPANY.SHIPPERINFO.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COMPANY.SHIPPERINFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COMPANY.SHIP_TO_ADDRESS.json b/LSL2/OIEVENT/CLICK/COMPANY.SHIP_TO_ADDRESS.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COMPANY.SHIP_TO_ADDRESS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COMPANY.VREMIT_ADDR.json b/LSL2/OIEVENT/CLICK/COMPANY.VREMIT_ADDR.json new file mode 100644 index 0000000..c69177f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COMPANY.VREMIT_ADDR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COMPANY.WI_BUTTON.json b/LSL2/OIEVENT/CLICK/COMPANY.WI_BUTTON.json new file mode 100644 index 0000000..a3962b0 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COMPANY.WI_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function start_window, relational_call, security_check, msg, key_sort\r\ndeclare function rowexists\r\ndeclare subroutine security_err_msg\r\n$insert msg_equates\r\n$insert security_rights_equ\r\n\r\nif .co_type->value = 'C' then\r\n\tif security_check( 'Wafer Inventory', Read$ ) then\r\n\t CoNo = .co_no->text\r\n\t if CoNo then\r\n\t if rowexists( 'COMPANY', CoNo ) then\r\n\t\t\t\tKeys = relational_call( 'COMPANY', 'WAF_INV_KEYS', CoNo, 'SHOW_WAF_INV', 'WAFER_INV', '#ENTRY_DATE' )\r\n\t\t\t\tif Keys then\r\n\t\t\t\t swap 'NoKeys' with '' in Keys\r\n\t\t\t\t ParamToPass = Keys\r\n \t\t\t\tVoid = start_window( 'WAFER_INV', '', ParamToPass:'*CENTER', '', '' )\r\n \t\t end\r\n\t\t end else\r\n\t\t MsgInfo = ''\r\n\t\t MsgInfo = 'You must save this company first.'\r\n\t\t MsgInfo = '!'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t\t end\r\n\t end else\r\n\t MsgRec = ''\r\n\t MsgRec = 'You must retrieve a company first...' \r\n\t MsgRec = '!'\r\n\t Void = msg( '', MsgRec ) \r\n\t end\r\n\tend else\r\n\t security_err_msg( 'Wafer Inventory', Read$ )\r\n\tend\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You cannot setup wafer inventory for a company unless they are defined as a customer...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COMPANY_QUERY.CITIES.json b/LSL2/OIEVENT/CLICK/COMPANY_QUERY.CITIES.json new file mode 100644 index 0000000..64c3a5d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COMPANY_QUERY.CITIES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COMPANY_QUERY.COUNTRIES.json b/LSL2/OIEVENT/CLICK/COMPANY_QUERY.COUNTRIES.json new file mode 100644 index 0000000..64c3a5d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COMPANY_QUERY.COUNTRIES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/COMPANY_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/COMPANY_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..b23f8fe --- /dev/null +++ b/LSL2/OIEVENT/CLICK/COMPANY_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, ex_vm_rem\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.COMPANY' to DictCompanyTable else\r\n Void = msg( '', 'Unable to open DICT.COMPANY...' )\r\n return 0\r\nend\r\nSearchStr = ''\r\nCountries = ex_vm_rem( .countries->array )\r\nCities = ex_vm_rem( .cities->array )\r\nEntryDateFrom = .entry_date_from->text\r\nEntryDateThru = .entry_date_thru->text\r\nCustCheck = .cust_check->check\r\nVendCheck = .vend_check->check\r\nOtherCheck = .other_check->check\r\nCategory = .category->text\r\n* need to convert field to value markers as the text property will \r\n* be field mark delimited if more than one is choosen\r\nconvert @fm to @vm in Category\r\n\r\nSearchStr = ''\r\nif Category <> '' then\r\n SearchStr<-1> = 'CATEGORY':@vm:Category\r\nend\r\nif Countries <> '' then\r\n SearchStr<-1> = 'COUNTRY':@vm:Countries\r\nend\r\nif Cities <> '' then\r\n SearchStr<-1> = 'CITY':@vm:Cities\r\nend\r\nCategoryVal = ''\r\nif CustCheck then\r\n CategoryVal<1,-1> = 'C'\r\nend\r\nif VendCheck then\r\n CategoryVal<1,-1> = 'V'\r\nend\r\nif OtherCheck then\r\n CategoryVal<1,-1> = 'O' \r\nend\r\nif CategoryVal <> '' then\r\n SearchStr<-1> = 'CO_TYPE':@vm:CategoryVal\r\nend\r\nif EntryDateFrom and EntryDateThru then\r\n SearchStr<-1> = 'ENTRY_DATE':@vm:EntryDateFrom:'...':EntryDateThru\r\nend else\r\n\tif EntryDateFrom then\r\n\t SearchStr<-1> = 'ENTRY_DATE':@vm:'>=':EntryDateFrom\r\n\tend\r\n\tif EntryDateThru then\r\n\t SearchStr<-1> = 'ENTRY_DATE':@vm:'<=':EntryDateThru\r\n\tend\r\nend\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'COMPANY', DictCompanyTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting COMPANY records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'COMPANY', 'CO_NAME', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CUST_ACTIVITY_RPT1.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/CUST_ACTIVITY_RPT1.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..6e13e11 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CUST_ACTIVITY_RPT1.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, fieldcount\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nCustNo = .cust_no->text\r\nSpan = .span->text \r\nStartDate = .from->text\r\nEndDate = .thru->text\r\nOrdStat = .order_stat->text\r\nQuoteStat = .order_quote->text\r\nDirToPrint = .send_to_printer->text\r\nSpecOnly = .spec_only->check\r\n* verify that every required field has a value\r\nif CustNo else\r\n MsgInfo = ''\r\n MsgInfo = 'H'\r\n MsgInfo = 'You must select a customer...'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\nif QuoteStat = 'Quoted Products' then\r\n OrdStat = '' ;* set to null instead of N/A so the code will not break\r\n ;* cause if it is quoted products then no orders will be printed\r\nend else\r\n if QuoteStat = 'Ordered Products' then\r\n if OrdStat = 'N/A' then\r\n\t\t * have choosen ordered products now make sure they have not choosen N/A\r\n\t\t MsgInfo = ''\r\n\t\t MsgInfo = 'H'\r\n\t\t MsgInfo = 'You have choosen Ordered Products, therefore Order Status cannot be N/A...'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t\t return 0\r\n end\r\n end else\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'H'\r\n\t MsgInfo = 'You must choose an option from Orders/Quotes...'\r\n\t Void = msg( '', MsgInfo )\r\n\t return 0\r\n end\r\nend\r\nif StartDate or EndDate then\r\n * they must have both of them\r\n if StartDate and EndDate then\r\n * have both from and thru so set span to '' instead of N/A so code does not break\r\n Span = ''\r\n end else\r\n * have only one date must have both\r\n MsgInfo = ''\r\n MsgInfo = 'H'\r\n MsgInfo = 'When using a From and Thru range you must specify both dates...'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\n end\r\nend else\r\n if Span then\r\n\t if Span = 'N/A' then\r\n\t * have not choosen start and end dates so span cannot be N/A\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'H'\r\n\t MsgInfo = 'You have not choosen From and Thru dates, therefore Span cannot be N/A...'\r\n\t Void = msg( '', MsgInfo )\r\n\t return 0\r\n\t end\r\n end else\r\n * have only one date must have both\r\n MsgInfo = ''\r\n MsgInfo = 'H'\r\n MsgInfo = 'You must either choose a From and Thru When using a From and Thru range you must specify both dates...'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\n end\r\nend\r\nRetVal = CustNo:'*':Span:'*':StartDate:'*':EndDate:'*':OrdStat:'*':QuoteStat:'*':DirToPrint:'*':SpecOnly\r\nend_dialog( @window, RetVal )\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CUST_ACTIVITY_RPT1.SPEC_ONLY.json b/LSL2/OIEVENT/CLICK/CUST_ACTIVITY_RPT1.SPEC_ONLY.json new file mode 100644 index 0000000..9fdd18c --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CUST_ACTIVITY_RPT1.SPEC_ONLY.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "if .spec_only->check then\r\n .from->text = ''\r\n .thru->text = ''\r\n .span->text = 'N/A'\r\n .order_stat->text = 'N/A'\r\n .order_quote->text = ''\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CUST_INQUIRY.ADD_BUTTON.json b/LSL2/OIEVENT/CLICK/CUST_INQUIRY.ADD_BUTTON.json new file mode 100644 index 0000000..ef5d3d7 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CUST_INQUIRY.ADD_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, dialog_box\r\n$insert msg_equates\r\n$insert logical\r\nequ NumCols to 14\r\n\r\nColMarks = str( @fm, NumCols-1 )\r\nSpecInfo = .spec_info->array\r\nDone = false$\r\nRowNum = 1\r\nloop\r\n Trow = ''\r\n for i = 1 to NumCols\r\n Trow := SpecInfo:@fm\r\n next i\r\n Trow[-1,1] = ''\r\n if Trow = ColMarks then\r\n * blank row use this one\r\n Title = 'Layer ':RowNum\r\n convert @fm to @vm in Trow\r\n ReturnVal = dialog_box( 'CUST_INQUIRY2', @window, Trow:char(244):Title )\r\n convert @vm to @fm in ReturnVal\r\n ReturnVal := @fm ;* for the last blank value\r\n if ReturnVal <> Trow and ReturnVal <> 'CANCEL':@fm then\r\n .spec_info->selpos = 1:@fm:RowNum\r\n .spec_info->rowdata = ReturnVal\r\n @@window->savewarn = 1\r\n end\r\n Done = true$\r\n end else\r\n RowNum += 1\r\n end\r\n until Done\r\nrepeat\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CUST_INQUIRY.BUTTON_4.json b/LSL2/OIEVENT/CLICK/CUST_INQUIRY.BUTTON_4.json new file mode 100644 index 0000000..bcf53b4 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CUST_INQUIRY.BUTTON_4.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, msg, dialog_box\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif .eng_signature->text <> '' then\r\n MsgInfo = ''\r\n MsgInfo = 'This Customer Inquiry has already been signed by an engineer or production personnel.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend else\r\n\tSignatureInfo = xlate( 'CONFIG', 'QUOTE_SIGS', '', 'X' )\r\n\tUsers = SignatureInfo\r\n\tPasswords = SignatureInfo\r\n\tlocate @user4 in Users using @vm setting Fpos then\r\n\t\tPassword = Passwords<1,Fpos>\r\n\t\tValid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:Password )\r\n\t\tif Valid then\r\n\t\t\t.eng_signature->text = @user4\r\n\t\t\t.eng_signature_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t\t@@window->savewarn = 1\r\n\t\tend \r\n\tend else\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo = 'You are not an authorized Engineering/Production signer...'\r\n\t\tMsgInfo = 'H'\r\n\t\tVoid = msg( '', MsgInfo )\r\n\tend\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CUST_INQUIRY.BUTTON_5.json b/LSL2/OIEVENT/CLICK/CUST_INQUIRY.BUTTON_5.json new file mode 100644 index 0000000..0dc694b --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CUST_INQUIRY.BUTTON_5.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, msg, dialog_box\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif .mkt_signature->text <> '' then\r\n MsgInfo = ''\r\n MsgInfo = 'This Customer Inquiry has already been signed by a marketing personnel.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend else\r\n\tSignatureInfo = xlate( 'CONFIG', 'QUOTE_SIGS', '', 'X' )\r\n\tUsers = SignatureInfo\r\n\tPasswords = SignatureInfo\r\n\tlocate @user4 in Users using @vm setting Fpos then\r\n\t\tPassword = Passwords<1,Fpos>\r\n\t\tValid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:Password )\r\n\t\tif Valid then\r\n\t\t\t.mkt_signature->text = @user4\r\n\t\t\t.mkt_signature_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t\t@@window->savewarn = 1\r\n\t\tend \r\n\tend else\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo = 'You are not an authorized Marketing signer...'\r\n\t\tMsgInfo = 'H'\r\n\t\tVoid = msg( '', MsgInfo )\r\n\tend\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CUST_INQUIRY.BUTTON_6.json b/LSL2/OIEVENT/CLICK/CUST_INQUIRY.BUTTON_6.json new file mode 100644 index 0000000..8823aee --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CUST_INQUIRY.BUTTON_6.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function next_key, send_event, msg, security_check\r\ndeclare subroutine security_err_msg, delete_row\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Cust Inquiry', Write$ ) then\r\n * save off all data\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n convert @fm to @rm in AllControls\r\n AllData = get_property( Allcontrols, 'TEXT' )\r\n SpecInfo = .spec_info->array\r\n QtyInfo = .qty_info->array\r\n OrigCIId = .cust_inquiry_id->text\r\n\tChoice = send_event( @window, 'CLEAR' )\r\n\tif Choice = '' then\r\n\t * if choice has a value then the user has canceled \r\n\t\topen 'CUST_INQUIRY' to CITableVar else\r\n\t\t Void = msg( '', 'Unable to open CUST_INQUIRY...' )\r\n\t\t return 0\r\n\t\tend\r\n\t\tNextCIKey = next_key( 'CUST_INQUIRY', CITableVar, 'NEXT', '' )\r\n\t\t.cust_inquiry_id->text = NextCIKey\r\n\t\tunlock CITableVar, NextCIKey else\r\n\t\t Void = msg( '', 'Unable to unlock CUST_INQUIRY ':NextCIKey )\r\n\t\t return 0\r\n\t\tend\r\n\t\tVoid = send_event( @window:'.CUST_INQUIRY_ID', 'LOSTFOCUS' )\r\n\t\tVoid = set_property( AllControls, 'TEXT', AllData )\r\n\t\t.cust_inquiry_id->text = NextCIKey\r\n\t\t.entry_date->text = oconv( date(), 'D2/' )\r\n\t\t.entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n \t.spec_info->array = SpecInfo\r\n .qty_info->array = QtyInfo\r\n * clear out signatures and inquiry date and set to open\r\n .eng_signature->text = ''\r\n .eng_signature_name->text = ''\r\n .mkt_signature->text = ''\r\n .mkt_signature_name->text = ''\r\n .status->value = 'O'\r\n .inquiry_date->text = ''\r\n if .rev_num->text <> '' then\r\n .rev_num->text = .rev_num->text + 1\r\n end\r\n\t\t@@window->savewarn = 1\r\n end\r\nend else\r\n security_err_msg( 'Cust Inquiry', Write$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CUST_INQUIRY.DELETE_BUTTON.json b/LSL2/OIEVENT/CLICK/CUST_INQUIRY.DELETE_BUTTON.json new file mode 100644 index 0000000..5d4f3eb --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CUST_INQUIRY.DELETE_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, send_message\r\n$insert msg_equates\r\n\r\nequ NumCols to 14\r\n\r\nColMarks = str( @fm, NumCols-1 )\r\nRowData = .spec_info->rowdata\r\nLay = .spec_info->selpos<2>\r\nif RowData = ColMarks then\r\n MsgInfo = ''\r\n MsgInfo = 'H'\r\n MsgInfo = 'There is currently no Layer# ':Lay:'...You must add first.'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend else\r\n\tif Lay then\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'Do you wish to completely remove layer ':Lay:'?'\r\n\t MsgInfo = 'BNY'\r\n\t MsgInfo = '?'\r\n\t Resp = msg( '', MsgInfo )\r\n\t if Resp then\r\n\t Void = send_message( @window:'.SPEC_INFO', \"DELETE\", Lay )\r\n\t @@window->savewarn = 1 \r\n\t end\r\n\tend else\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'You must have your cursor on the layer that you wish to delete.'\r\n\t MsgInfo = 'H'\r\n\t Void = msg( '', MsgInfo )\r\n\tend\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CUST_INQUIRY.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/CUST_INQUIRY.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CUST_INQUIRY.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CUST_INQUIRY.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/CUST_INQUIRY.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CUST_INQUIRY.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CUST_INQUIRY.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/CUST_INQUIRY.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CUST_INQUIRY.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CUST_INQUIRY.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/CUST_INQUIRY.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CUST_INQUIRY.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CUST_INQUIRY.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/CUST_INQUIRY.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CUST_INQUIRY.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CUST_INQUIRY.RET_CI_BUTTON.json b/LSL2/OIEVENT/CLICK/CUST_INQUIRY.RET_CI_BUTTON.json new file mode 100644 index 0000000..656d24c --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CUST_INQUIRY.RET_CI_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function end_window, msg, send_event, post_event\r\ndeclare subroutine record_lock\r\n\r\nCIId = .cust_inquiry_id->text\r\nopen 'SYSLISTS' to SysListsTable else\r\n Void = msg( '', 'Unable to open SYSLISTS...' )\r\n return 0\r\nend\r\nPrevWindow = set_property( @window, '@PrevWindow' )\r\nRecordId = 'CUST_INQUIRY*':@station\r\nrecord_lock( SysListsTable, 'SysLists', RecordId )\r\nwritev CIId on SysListsTable, RecordId, 1 else\r\n Void = msg( '', 'Unable to write ':CIId:' on SYSLISTS ':RecordId )\r\n return 0\r\nend\r\nunlock SysListsTable, RecordId else\r\n Void = msg( '', 'Unable to unlock SYSLISTS ':RecordId )\r\n return 0\r\nend\r\nopen 'CUST_INQUIRY' to CITable else\r\n Void = msg( '', 'Unable to open CUST_INQUIRY...' )\r\n return 0\r\nend\r\nunlock CITable, CIId else\r\n Void = msg( '', 'Unable to unlock CUST_INQUIRY ':CIId )\r\n return 0\r\nend\r\nVoid = send_event( @window, 'WRITE' )\r\nVoid = end_window( @window, '' )\r\nbegin case\r\n case PrevWindow = 'Quote'\r\n Void = post_event( 'QUOTE.CUST_INQUIRY_ID', 'OMNIEVENT' )\r\nend case\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CUST_INQUIRY.STATUS.json b/LSL2/OIEVENT/CLICK/CUST_INQUIRY.STATUS.json new file mode 100644 index 0000000..d221474 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CUST_INQUIRY.STATUS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\n$insert msg_equates\r\n\r\nOrigStatus = get_property( @window, '@OrigStatus' )\r\nCurStatus = .status->value\r\nif CurStatus = 'R' or CurStatus = 'D' then\r\n * they are trying to release to quote or decline and it must be signed \r\n * so check and see if it has been signed by boff groups\r\n if ( .eng_signature->text <> '' ) and ( .mkt_signature->text <> '' ) then\r\n * ok let it go baby\r\n Void = set_property( @window, '@OrigStatus', 'R' ) \r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'H'\r\n MsgInfo = 'This Customer Inquiry must be signed by an Engineering/Manufacturing and a Marketing personnel, prior to declining or releasing to quote...'\r\n Void = msg( '', MsgInfo )\r\n begin case\r\n case OrigStatus = 'O' ;* WAS OPEN SO SET IT BACK\r\n *Void = msg( '', 'Was O' )\r\n *Void = set_property( @window:'.STATUS.OPEN', 'CHECK', 1 )\r\n *Void = set_property( @window:'.STATUS.RELEASED TO QUOTE', 'CHECK', 0 )\r\n *Void = set_property( @window:'.STATUS.DECLINED', 'CHECK', 0 ) \r\n Void = set_property( @window, '@OrigStatus', 'O' )\r\n case OrigStatus = 'D' ;* WAS DECLINED SO SET IT BACK\r\n *Void = msg( '', 'Was D' ) \r\n *Void = set_property( @window:'.STATUS.DECLINED', 'CHECK', 1 ) \r\n *Void = set_property( @window:'.STATUS.RELEASED TO QUOTE', 'CHECK', 0 )\r\n *Void = set_property( @window:'.STATUS.OPEN', 'CHECK', 0 ) \r\n Void = set_property( @window, '@OrigStatus', 'D' ) \r\n end case\r\n .status->value = OrigStatus\r\n end\r\nend else\r\n Void = set_property( @window, '@OrigStatus', CurStatus ) \r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CUST_INQUIRY.VIEW_EDIT_BUTTON.json b/LSL2/OIEVENT/CLICK/CUST_INQUIRY.VIEW_EDIT_BUTTON.json new file mode 100644 index 0000000..e362a52 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CUST_INQUIRY.VIEW_EDIT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, dialog_box\r\n$insert msg_equates\r\nequ NumCols to 14\r\n\r\nColMarks = str( @fm, NumCols-1 )\r\nRowData = .spec_info->rowdata\r\nLay = .spec_info->selpos<2>\r\nif RowData = ColMarks then\r\n MsgInfo = ''\r\n MsgInfo = 'H'\r\n MsgInfo = 'There is currently no Layer# ':Lay:'...You must add first.'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend else\r\n Title = 'Layer ':Lay\r\n convert @fm to @vm in RowData\r\n ReturnVal = dialog_box( 'CUST_INQUIRY2', @window, RowData:char(244):Title )\r\n convert @vm to @fm in RowData\r\n ReturnVal := @fm ;* for the last blank value\r\n if ReturnVal <> RowData and ReturnVal <> 'CANCEL':@fm then\r\n .spec_info->rowdata = ReturnVal\r\n @@window->savewarn = 1\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CUST_INQUIRY2.BUTTON_1.json b/LSL2/OIEVENT/CLICK/CUST_INQUIRY2.BUTTON_1.json new file mode 100644 index 0000000..34601da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CUST_INQUIRY2.BUTTON_1.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nControls = get_property( @window, '@Controls', Controls )\r\nReturnVal = get_property( Controls, 'TEXT' )\r\nconvert @rm to @vm in ReturnVal\r\nend_dialog( @window, ReturnVal )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CUST_INQUIRY2.BUTTON_2.json b/LSL2/OIEVENT/CLICK/CUST_INQUIRY2.BUTTON_2.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CUST_INQUIRY2.BUTTON_2.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CUST_INQUIRY2.BUTTON_3.json b/LSL2/OIEVENT/CLICK/CUST_INQUIRY2.BUTTON_3.json new file mode 100644 index 0000000..afa5b88 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CUST_INQUIRY2.BUTTON_3.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\n$insert msg_equates\r\n\r\nResUnif = .res_unif->text\r\nResTar = .res_tar->text\r\nconvert @upper_case to '' in ResUnif\r\nconvert @lower_case to '' in ResUnif\r\nconvert '~!@#$%^&*()_+=-`\\][|}{;/.,?><\":' to '' in ResUnif\r\nconvert \"'\" to '' in ResUnif\r\nif num( ResUnif ) and ResTar then\r\n NewMin = ''\r\n NewMax = ''\r\n ResUnif = oconv( ResUnif, 'MD2' )\r\n PercentOfTar = ResTar*ResUnif\r\n NewMin = ResTar-PercentOfTar\r\n NewMax = ResTar+PercentOfTar\r\n .res_min->text = oconv( NewMin*100, 'MD2' )\r\n .res_max->text = oconv( NewMax*100, 'MD2' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must enter a target and uniformity in order to calculate the minimun and maximum resistivity'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CUST_INQUIRY2.BUTTON_4.json b/LSL2/OIEVENT/CLICK/CUST_INQUIRY2.BUTTON_4.json new file mode 100644 index 0000000..4b9b2cc --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CUST_INQUIRY2.BUTTON_4.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\n$insert msg_equates\r\n\r\nThickUnif = .thick_unif->text\r\nThickTar = .thick_tar->text\r\nconvert @upper_case to '' in ThickUnif\r\nconvert @lower_case to '' in ThickUnif\r\nconvert '~!@#$%^&*()_+=-`\\][|}{;/.,?><\":' to '' in ThickUnif\r\nconvert \"'\" to '' in ThickUnif\r\nif num( ThickUnif ) and ThickTar then\r\n NewMin = ''\r\n NewMax = ''\r\n ThickUnif = oconv( ThickUnif, 'MD2' )\r\n PercentOfTar = ThickTar*ThickUnif\r\n NewMin = ThickTar-PercentOfTar\r\n NewMax = ThickTar+PercentOfTar\r\n .thick_min->text = oconv( NewMin*100, 'MD2' )\r\n .thick_max->text = oconv( NewMax*100, 'MD2' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must enter a target and uniformity in order to calculate the minimun and maximum thickness'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CUST_INQUIRY_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/CUST_INQUIRY_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CUST_INQUIRY_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CUST_INQUIRY_QUERY.ENTRY_IDS.json b/LSL2/OIEVENT/CLICK/CUST_INQUIRY_QUERY.ENTRY_IDS.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CUST_INQUIRY_QUERY.ENTRY_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/CUST_INQUIRY_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/CUST_INQUIRY_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..9892734 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/CUST_INQUIRY_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.CUST_INQUIRY' to DictCustInqTable else\r\n Void = msg( '', 'Unable to open DICT.CUST_INQUIRY...' )\r\n return 0\r\nend\r\nSearchStr = ''\r\nCustIds = .customer_info->array<1>\r\nInqDateFrom = .inquiry_date_from->text\r\nInqDateThru = .inquiry_date_thru->text\r\nReqDateFrom = .req_del_date_from->text\r\nReqDateThru = .req_del_date_thru->text\r\nEntryIds = .entry_ids->array<1>\r\n\r\n* inquiry status variables\r\nOpen = .open_check->check\r\nRTQ = .rtq_check->check\r\nDeclined = .declined_check->check\r\n* end of inquiry status variables\r\n\r\n* review status variables\r\nAccept = .accept_check->check\r\nAcceptExcept = .accept_except_check->check\r\nNotAccept = .not_accept_check->check\r\n* end of review status variables\r\n\r\nswap @vm:@vm with '' in CustIds\r\nif CustIds[-1,1] = @vm then CustIds[-1,1] = ''\r\nswap @vm:@vm with '' in EntryIds\r\nif EntryIds[-1,1] = @vm then EntryIds[-1,1] = ''\r\nif CustIds then\r\n SearchStr<-1> = 'CUST_ID':@vm:CustIds\r\nend\r\nif InqDateFrom and InqDateThru then\r\n SearchStr<-1> = 'INQUIRY_DATE':@vm:InqDateFrom:'...':InqDateThru\r\nend else\r\n\tif InqDateFrom then\r\n\t SearchStr<-1> = 'INQUIRY_DATE':@vm:'>=':InqDateFrom\r\n\tend\r\n\tif InqDateThru then\r\n\t SearchStr<-1> = 'INQUIRY_DATE':@vm:'<=':InqDateThru\r\n\tend \r\nend\r\nif ReqDateFrom and ReqDateThru then\r\n\tSearchStr<-1> = 'REQ_DELIVERY_DATE':@vm:ReqDateFrom:'...':ReqDateThru\r\nend else\r\n\tif ReqDateFrom then\r\n\t SearchStr<-1> = 'REQ_DELIVERY_DATE':@vm:'>=':ReqDateFrom\r\n\tend\r\n\tif ReqDateThru then\r\n\t SearchStr<-1> = 'REQ_DELIVERY_DATE':@vm:'<=':ReqDateThru\r\n\tend\r\nend\r\nif EntryIds then\r\n SearchStr<-1> = 'ENTRY_ID':@vm:EntryIds\r\nend\r\n\r\n* inquiry status\r\nInqStatusVar = ''\r\nif Open then\r\n InqStatusVar<1,-1> = 'O'\r\nend\r\nif RTQ then\r\n InqStatusVar<1,-1> = 'R'\r\nend\r\nif Declined then\r\n InqStatusVar<1,-1> = 'D'\r\nend\r\nif InqStatusVar then\r\n SearchStr<-1> = 'STATUS':@vm:InqStatusVar\r\nend\r\n\r\n* review status\r\nRevStatusVar = ''\r\nif Accept then\r\n RevStatusVar<1,-1> = 'A'\r\nend\r\nif AcceptExcept then\r\n RevStatusVar<1,-1> = 'E'\r\nend\r\nif NotAccept then\r\n RevStatusVar<1,-1> = 'N'\r\nend\r\nif RevStatusVar then\r\n SearchStr<-1> = 'REVIEW_STATUS':@vm:RevStatusVar\r\nend\r\n*\r\n\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'CUST_INQUIRY', DictCustInqTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting CUST_INQUIRY records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'CUST_INQUIRY', 'CUST_NAME':@fm:'#INQUIRY_DATE', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/DBW_PROD_SPEC_GAN.BUTTON_13.json b/LSL2/OIEVENT/CLICK/DBW_PROD_SPEC_GAN.BUTTON_13.json new file mode 100644 index 0000000..ad39364 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/DBW_PROD_SPEC_GAN.BUTTON_13.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function repository, entid\r\n\r\nPopupId = entid( @appid<1>, 'POPUP', '', 'RATIO_TYPES' )\r\nChosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\nRArray = ''\r\nbegin case\r\n\tcase ChosenRow = \"AP\"\r\n\t\tRArray = '35/40/86/86/86/40/40/50/30/86'\r\n\tcase ChosenRow = \"Kit 2000-PEP\"\r\n\t\tRArray = '33/33/70/70/70/60/60/60/33/70'\r\n\tcase ChosenRow = \"PEP\"\r\n\t\tRArray = '35/40/75/75/75/40/40/50/30/75'\t\r\n\tcase ChosenRow = \"RP\"\r\n\t\tRArray = '35/45/70/70/70/40/40/40/30/70'\t\r\n\tcase ChosenRow = \"DSP\"\t\t\t\r\n\t\tRArray = '45/50/86/86/86/40/40/50/30/86'\r\nend case\r\nconvert '/' to @vm in RArray\r\nif RArray <> '' then\r\n .ratio_info->array = RArray\r\n @@window->savewarn = 1\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/DBW_PROD_SPEC_GAN.CTRL_PLAN.json b/LSL2/OIEVENT/CLICK/DBW_PROD_SPEC_GAN.CTRL_PLAN.json new file mode 100644 index 0000000..e29803e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/DBW_PROD_SPEC_GAN.CTRL_PLAN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, set_printer, get_printer, msg, entid, repository\r\ndeclare function print_quote, MemberOf\r\ndeclare subroutine security_err_msg, Print_Control_Plan, Print_Control_Plan_JCH\r\n\r\n$insert security_rights_equ\r\n$insert msg_equates\r\n$insert logical\r\n\r\nif security_check( 'Prod Spec', Print$ ) then\r\n\tif @@window->savewarn = true$ then\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo = 'You need to save this PSN before printing.'\r\n\t\tMsgInfo = '!'\r\n\t\tVoid = msg( '', MsgInfo )\r\n\t\treturn 0\r\n\tend else\r\n\t\tPSNo = .prod_spec_id->text\r\n\t\tPrint_Control_Plan(PSNo)\r\n\tend\r\nend else\r\n security_err_msg( 'Prod Spec', Print$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/DBW_PROD_SPEC_GAN.PHX_BTN_CLEAR_FIX.json b/LSL2/OIEVENT/CLICK/DBW_PROD_SPEC_GAN.PHX_BTN_CLEAR_FIX.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/DBW_PROD_SPEC_GAN.PHX_BTN_CLEAR_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/DBW_PROD_SPEC_GAN.PHX_QBF_FIRST_FIX.json b/LSL2/OIEVENT/CLICK/DBW_PROD_SPEC_GAN.PHX_QBF_FIRST_FIX.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/DBW_PROD_SPEC_GAN.PHX_QBF_FIRST_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/DBW_PROD_SPEC_GAN.PHX_QBF_LAST_FIX.json b/LSL2/OIEVENT/CLICK/DBW_PROD_SPEC_GAN.PHX_QBF_LAST_FIX.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/DBW_PROD_SPEC_GAN.PHX_QBF_LAST_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/DBW_PROD_SPEC_GAN.PHX_QBF_NEXT_FIX.json b/LSL2/OIEVENT/CLICK/DBW_PROD_SPEC_GAN.PHX_QBF_NEXT_FIX.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/DBW_PROD_SPEC_GAN.PHX_QBF_NEXT_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/DBW_PROD_SPEC_GAN.PHX_QBF_PREV_FIX.json b/LSL2/OIEVENT/CLICK/DBW_PROD_SPEC_GAN.PHX_QBF_PREV_FIX.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/DBW_PROD_SPEC_GAN.PHX_QBF_PREV_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/DBW_PROD_SPEC_GAN.RET_PSN_BUTTON.json b/LSL2/OIEVENT/CLICK/DBW_PROD_SPEC_GAN.RET_PSN_BUTTON.json new file mode 100644 index 0000000..c781341 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/DBW_PROD_SPEC_GAN.RET_PSN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function end_window, msg, send_event, post_event\r\ndeclare subroutine record_lock\r\n$insert logical\r\n\r\nProdSpecID = .prod_spec_id->text\r\nopen 'SYSLISTS' to SysListsTable else\r\n Void = msg( '', 'Unable to open SYSLISTS...' )\r\n return 0\r\nend\r\nPrevWindow = get_property( @window, '@PrevWindow' )\r\nRecordId = 'PROD_SPEC*':@station\r\nrecord_lock( SysListsTable, 'SysLists', RecordId )\r\nwritev ProdSpecID on SysListsTable, RecordId, 1 else\r\n Void = msg( '', 'Unable to write ':ProdSpecID:' on SYSLISTS ':RecordId )\r\n return 0\r\nend\r\nunlock SysListsTable, RecordId else\r\n Void = msg( '', 'Unable to unlock SYSLISTS ':RecordId )\r\n return 0\r\nend\r\nopen 'PROD_SPEC' to PSTable else\r\n Void = msg( '', 'Unable to open PROD_SPEC...' )\r\n return 0\r\nend\r\nunlock PSTable, ProdSpecID else\r\n Void = msg( '', 'Unable to unlock PROD_SPEC ':ProdSpecID )\r\n return 0\r\nend\r\nVoid = send_event( @window, 'WRITE' )\r\nVoid = end_window( @window, '' )\r\nbegin case\r\n case PrevWindow = 'Quote'\r\n Multi = get_property( 'QUOTE', '@ChoosingMultiPSN' ) \r\n if Multi then\r\n Void = post_event( 'QUOTE.PREV_PSNS', 'OMNIEVENT' ) \r\n end else\r\n Void = post_event( 'QUOTE.PROD_SPEC_ID', 'OMNIEVENT' )\r\n end\r\n case PrevWindow = 'CAR'\r\n Void = post_event( 'CAR.PROD_SPEC_ID', 'OMNIEVENT' ) \r\n case PrevWindow = 'WO-Log'\r\n Void = post_event( 'WO_LOG.PROD_SPEC_ID', 'OMNIEVENT' ) \r\n case PrevWindow = 'Order'\r\n Void = post_event( 'ORDER.ORDER_DETAIL', 'OMNIEVENT', 'PSN' ) \r\n case PrevWindow = 'SRP'\r\n Void = post_event( 'SRP_COC_RESULTS.PROD_SPEC_ID', 'OMNIEVENT' ) \r\nend case\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/DESIG_ERR_GRP.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/DESIG_ERR_GRP.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/DESIG_ERR_GRP.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/DESIG_ERR_GRP.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/DESIG_ERR_GRP.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/DESIG_ERR_GRP.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/DESIG_ERR_GRP.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/DESIG_ERR_GRP.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/DESIG_ERR_GRP.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/DESIG_ERR_GRP.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/DESIG_ERR_GRP.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/DESIG_ERR_GRP.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/DESIG_ERR_GRP.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/DESIG_ERR_GRP.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/DESIG_ERR_GRP.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/DIALOG_SHIP_PRINT_OPTS.PRINT_BUTTON.json b/LSL2/OIEVENT/CLICK/DIALOG_SHIP_PRINT_OPTS.PRINT_BUTTON.json new file mode 100644 index 0000000..bd7888d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/DIALOG_SHIP_PRINT_OPTS.PRINT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nReturnString = ''\r\nReturnStr = .front_page->check\r\nReturnStr<1,-1> = .front_page_copy->text\r\nReturnStr<1,-1> = .back_page->check\r\nReturnStr<1,-1> = .back_page_copy->text\r\nReturnStr<1,-1> = .ship_type->value\r\nReturnStr<1,-1> = .cust_rds->check\r\nReturnStr<1,-1> = .ncr_rej_cnt->text\r\nReturnStr<1,-1> = .print_pdf->check\r\nReturnStr<1,-1> = .vendor_coa->check\r\nend_dialog( @window, ReturnStr )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/DICT_FIELDS_OUTPUT.CANCEL_CMD.json b/LSL2/OIEVENT/CLICK/DICT_FIELDS_OUTPUT.CANCEL_CMD.json new file mode 100644 index 0000000..0ba6986 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/DICT_FIELDS_OUTPUT.CANCEL_CMD.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, '' )\r\n \r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/DICT_FIELDS_OUTPUT.RUN_CMD.json b/LSL2/OIEVENT/CLICK/DICT_FIELDS_OUTPUT.RUN_CMD.json new file mode 100644 index 0000000..73fd0fd --- /dev/null +++ b/LSL2/OIEVENT/CLICK/DICT_FIELDS_OUTPUT.RUN_CMD.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, activate_save_select,SetInitDirOptions\r\ndeclare function msg, create_dialog, Set_Property,format\r\ndeclare function dialog_box,fieldcount, dirlist\r\n$insert rlist_equates\r\n$insert msg_equates\r\n$insert dict_equates\r\n\r\nCrLf = Char(13):Char(10)\r\nTb = Char(9)\r\nGoSub LoadErrorValues\r\nTblNme = \"SYSTABLES\"\r\nListsId = 'JLT_TABLENAMES'\r\n.reports_completed->text = ''\r\n\r\nReportPath = .dict_reports_path->text\r\nExcelStart = .dict_spreadsheets_path->text\r\nIf ReportPath[-1,1] # \"\\\" Then ReportPath := \"\\\"\r\nFileName = ReportPath:\"File.Txt\"\r\nOsWrite \"OK\" To FileName\r\nIf Status() Then\r\n GoSub ProcessError\r\n Return 0\r\nEnd\r\nFileName = ''\r\n\r\nrlist( 'Select SYSTABLES BY @ID',target_savelist$, ListsId, '', '' )\r\nactivate_save_select( ListsId )\r\n\r\nInitDir ReportPath:\"*.*\"\r\nLoop\r\n Files = DirList()\r\nWhile Files\r\n For K = 1 To FieldCount(Files, @FM)\r\n FileName = ReportPath:Files\r\n OsDelete FileName\r\n If Status() Then\r\n GoSub ProcessError\r\n Return 0\r\n End\r\n Next\r\nRepeat\r\n\r\n.tot_table->Text = @Reccount\r\nBldMsg = ''\r\nFlaBrk = 80 \r\nEndTables = 0\r\nFileCtr = 0\r\nGoSub SetPointers\r\nBugSwt = 0\r\nLoop\r\n ReadNext TblNme Else EndTables = 1 \r\nUntil EndTables\r\n FileCtr += 1\r\n .table_count->text = FileCtr\r\n FldCtr = 0\r\n If TblNme[1,1] = '!' Then GoTo GET.NEXT.TABLE \r\n If TblNme[1,1] = '$' Then GoTo GET.NEXT.TABLE \r\n If TblNme[1,5] = \"DICT.\" Then GoTo GET.NEXT.TABLE\r\n If TblNme[1,3] = \"SYS\" Then GoTo GET.NEXT.TABLE\r\n Swap \".\" With \"\" In TblNme\r\n Open \"DICT.\":TblNme To TblDct Then\r\n OsCtr = 1\r\n OsExt = \".\":Fmt(OsCtr,'R(0)#3')\r\n OsFile = ReportPath:TblNme[1,8]:OsExt\r\n Loop While Dir(OsFile)\r\n OsCtr += 1\r\n OsExt = \".\":Fmt(OsCtr,'R(0)#3')\r\n OsFile = ReportPath:TblNme[1,8]:OsExt\r\n Repeat\r\n OsWrite \"\" To OsFile\r\n OsOpen OsFile To WritFile Else\r\n Void = msg( '', 'Unable to open ':OsFile)\r\n Return\r\n End\r\n DictName = \"DICT.\":TblNme\r\n BldMsg = ReportPath:Tb:ExcelStart:Tb:TblNme:CrLf\r\n BldMsg := \"Column Number \":Tb\r\n ColumnTitles = \"Field Name \":Tb\r\n FieldNumbers = ''\r\n For K = 1 to 11\r\n If DataPointers Then\r\n FieldNumbers := Fmt(DataPointers,'R#4'):Tb\r\n ColumnTitles := DataPointers:Tb\r\n End\r\n Next\r\n BldMsg := FieldNumbers:CrLf:ColumnTitles:CrLf\r\n WritByte = 0\r\n Select DictName By \"@ID\":@FM:\"TYPE\" Setting CursorTwo Else\r\n Void = msg( '', 'Unable to open ':DictName)\r\n Return\r\n End\r\n EndDict = 0\r\n Loop\r\n ReadNext FldNme Using CursorTwo By 0 Else EndDict = 1 \r\n Until EndDict\r\n If FldNme[1,1] = \"!\" Then GoTo GetNextField\r\n If FldNme[1,1] = \"%\" Then GoTo GetNextField\r\n If FldNme = \"AAA\" Then GoTo GetNextField\r\n FldCtr += 1\r\n Pntr = ''\r\n Read FldRcd From TblDct,FldNme Then\r\n BldMsg := FldNme:Tb\r\n If Index('~F~S~F~',FldRcd<1>,1) Then\r\n Pntr = DataPointers\r\n End Else\r\n BldMsg := 'Has Bad Field Type!'\r\n End \r\n For K = 1 To 11\r\n TmpVar = FldRcd< Pntr >:Tb\r\n If Pntr = 'Formula' Then\r\n Swap @VM With \"; \" In TmpVar\r\n End\r\n BldMsg := TmpVar\r\n MsgLen=Len(BldMsg)\r\n If MsgLen > 32000 Then GoSub WriteNow\r\n Next\r\n End\r\n BldMsg := CrLf\r\n GetNextField:\r\n Repeat\r\n BldMsg := CrLf\r\n MsgLen=Len(BldMsg)\r\n GoSub WriteIt\r\n End \r\n \r\nGET.NEXT.TABLE:\r\n \r\nRepeat\r\n\r\n.reports_completed->text = \"Dictionary Reports Are Completed\"\r\n\r\nReturn 0\r\n\r\n\r\n*==================================\r\n*GoSubs\r\n*==================================\r\nWriteIt:\r\n*==================================\r\nGoSub WriteNow\r\nOsClose WritFile\r\nReturn\r\n\r\n*==================================\r\nWriteNow:\r\n*==================================\r\nOsBWrite BldMsg To WritFile At WritByte\r\nWritByte += MsgLen \r\nBldMsg = ''\r\nReturn\r\n\r\n\r\n*==================================\r\nSetPointers: \r\n*==================================\r\nDataPointers = ''\r\nDataPointers< 1,1> = 1 ;DataPointers< 1,2> = 'Type'\r\nDataPointers< 2,1> = 2 ;DataPointers< 2,2> = 'FMC'\r\nDataPointers< 3,1> = 3 ;DataPointers< 3,2> = 'Column Heading'\r\nDataPointers< 4,1> = 4 ;DataPointers< 4,2> = 'S/M'\r\nDataPointers< 5,1> = 5 ;DataPointers< 5,2> = 'Key Part'\r\nDataPointers< 6,1> = 6 ;DataPointers< 6,2> = 'Btree'\r\nDataPointers< 7,1> = 7 ;DataPointers< 7,2> = 'Output'\r\nDataPointers< 8,1> = 8 ;DataPointers< 8,2> = 'Formula'\r\nDataPointers< 9,1> = 9 ;DataPointers< 9,2> = 'Just'\r\nDataPointers<10,1> = 11 ;DataPointers<10,2> = 'Length'\r\nDataPointers<11,1> = 14 ;DataPointers<11,2> = 'Description'\r\n\r\nReturn\r\n\r\n\r\n*==================================\r\nProcessError:\r\n*==================================\r\nErrNum = Status()\r\nMsgTtl := MsgErr: FileName\r\nMsgStruc = \"\"\r\nMsgStruc = MsgTtl\r\nMsgStruc = \"BStop\"\r\nMsgStruc = \"H\"\r\nMsgStruc = \"FILE ERROR - ABORTING\"\r\n\r\nVoid = msg( '', MsgStruc)\r\n\r\n.reports_completed->text = MsgErr\r\n\r\nReturn\r\n \r\n*==================================\r\nLoadErrorValues:\r\n*==================================\r\nMsgTtl = \"Can Not Delete OS FIle \":CrLf\r\nMsgErr = \"\"\r\nMsgErr<1> = \"Bad operating system filename: \"\r\nMsgErr<2> = \"Access denied by operating system: \"\r\nMsgErr<3> = \"Disk or directory full... \"\r\nMsgErr<4> = \"Operating system file does not exist: \"\r\nMsgErr<5> = \"Undefined error on operating system file: \"\r\n\r\nReturn\r\n\r\n\r\n*==================================\r\nBreakDown:\r\n*==================================\r\nIf Len(TmpChk) > FlaBrk Then\r\n X=0\r\n Loop While Len(TmpChk) > FlaBrk\r\n TmpVar = TmpChk[1,FlaBrk]\r\n Ysav = TmpChk[1,FlaBrk]\r\n Ysav[1,FlaBrk] = ''\r\n TmpChk = Ysav\r\n If Len(TmpChk) Then TmpVar = Str(Tb,K)\r\n X+=1\r\n Repeat\r\n TmpVar = ''\r\nEnd \r\n\r\nReturn \r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/DICT_FIELD_INPUT.CANCEL_CMD.json b/LSL2/OIEVENT/CLICK/DICT_FIELD_INPUT.CANCEL_CMD.json new file mode 100644 index 0000000..0ba6986 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/DICT_FIELD_INPUT.CANCEL_CMD.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, '' )\r\n \r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/DICT_FIELD_INPUT.RUN_CMD.json b/LSL2/OIEVENT/CLICK/DICT_FIELD_INPUT.RUN_CMD.json new file mode 100644 index 0000000..5398a22 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/DICT_FIELD_INPUT.RUN_CMD.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, activate_save_select,SetInitDirOptions\r\ndeclare function msg, create_dialog, Set_Property,format\r\ndeclare function dialog_box,fieldcount, dirlist\r\n$insert rlist_equates\r\n$insert msg_equates\r\n$insert dict_equates\r\n/*\r\nCrLf = Char(13):Char(10)\r\nTb = Char(9)\r\nGoSub LoadErrorValues\r\n.reports_completed->text = ''\r\n\r\nReportPath = .dict_reports_path->text\r\nIf ReportPath[-1,1] # \"\\\" Then ReportPath := \"\\\"\r\nCheckName = ReportPath:\"File.Txt\"\r\nOsWrite \"OK\" To CheckName\r\nIf Status() Then\r\n GoSub ProcessError\r\n Return 0\r\nEnd\r\nCheckName = ''\r\nInitDir ReportPath:\"*.*\"\r\nLoop\r\n Files = DirList()\r\nWhile Files\r\n FldCnt = FieldCount(Files, @FM)\r\n .tot_table->Text = FldCnt\r\n For K = 1 To FldCnt\r\n OneBlkSwt = 0\r\n DictName = ReportPath:Files\r\n Fle = Dir(DictName)\r\n If Fle<1> < 64000 Then\r\n OneBlkSwt = 1\r\n OsRead OsBlock From ReportPath:Files Else\r\n Void = msg( '', 'Unable to read ':DictName)\r\n Return\r\n End \r\n End Else\r\n OSFileSpec = ReportPath:Files\r\n OsOpen OSFileSpec To OSFile Else\r\n GoSub ProcessError\r\n Return 0\r\n End\r\n End \r\n BldMsg = ''\r\n FlaBrk = 80 \r\n FleCtr = 0\r\n GoSub SetPointers\r\n BugSwt = 0\r\n BckCtr = 0\r\n Byte = 0\r\n Loop\r\n FldCtr = 0\r\n BckCtr += 1\r\n If OneBlkSwt Then\r\n Swap CrLf With @FM in OsBlock\r\n Swap Tb With @VM in OsBlock\r\n \r\n End Else\r\n OSBRead OsBlock From OsFile At Byte Length 64000\r\n ChrCnt = FieldCount(OsBlock,CrLf)\r\n ChrPos001 = Index(OsBlock,CrLf,ChrCnt) - 1\r\n OsBlock = OsBlock[1,ChrPos001]\r\n Byte += ChrPos001\r\n Swap CrLf With @FM in OsBlock\r\n Swap Tb With @VM in OsBlock\r\n If BckCtr = 0 Then\r\n TblNme = 'DICT.':OsBlock<1,3>\r\n Open TblNme As DictName Else \r\n Void = msg( '', 'Unable to open ':DictName)\r\n Return\r\n End\r\n End\r\n End\r\n ChrPos001 = Index(OsBlock,@FM,1)\r\n OsBlock[1,ChrPos001] = '' \r\n .table_count->text = BckCtr\r\n \r\n\r\n\r\n\r\n Repeat\r\n BldMsg := CrLf\r\n MsgLen=Len(BldMsg)\r\n GoSub WriteIt\r\n End \r\n \r\nGET.NEXT.TABLE:\r\n \r\nRepeat\r\n\r\n.reports_completed->text = \"Dictionary Reports Are Completed\"\r\n\r\nReturn 0\r\n\r\n\r\n*==================================\r\n*GoSubs\r\n*==================================\r\nWriteIt:\r\n*==================================\r\nGoSub WriteNow\r\nOsClose WritFile\r\nReturn\r\n\r\n*==================================\r\nWriteNow:\r\n*==================================\r\nOsBWrite BldMsg To WritFile At WritByte\r\nWritByte += MsgLen \r\nBldMsg = ''\r\nReturn\r\n\r\n\r\n*==================================\r\nSetPointers: \r\n*==================================\r\nDataPointers = ''\r\nDataPointers< 1,1> = 1 ;DataPointers< 1,2> = 'Type'\r\nDataPointers< 2,1> = 2 ;DataPointers< 2,2> = 'FMC'\r\nDataPointers< 3,1> = 3 ;DataPointers< 3,2> = 'Column Heading'\r\nDataPointers< 4,1> = 4 ;DataPointers< 4,2> = 'S/M'\r\nDataPointers< 5,1> = 5 ;DataPointers< 5,2> = 'Key Part'\r\nDataPointers< 6,1> = 6 ;DataPointers< 6,2> = 'Btree'\r\nDataPointers< 7,1> = 7 ;DataPointers< 7,2> = 'Output'\r\nDataPointers< 8,1> = 8 ;DataPointers< 8,2> = 'Formula'\r\nDataPointers< 9,1> = 9 ;DataPointers< 9,2> = 'Just'\r\nDataPointers<10,1> = 11 ;DataPointers<10,2> = 'Length'\r\nDataPointers<11,1> = 14 ;DataPointers<11,2> = 'Description'\r\n\r\nReturn\r\n\r\n\r\n*==================================\r\nProcessError:\r\n*==================================\r\nErrNum = Status()\r\nMsgTtl := MsgErr: FileName\r\nMsgStruc = \"\"\r\nMsgStruc = MsgTtl\r\nMsgStruc = \"BStop\"\r\nMsgStruc = \"H\"\r\nMsgStruc = \"FILE ERROR - ABORTING\"\r\n\r\nVoid = msg( '', MsgStruc)\r\n\r\n.reports_completed->text = MsgErr\r\n\r\nReturn\r\n \r\n*==================================\r\nLoadErrorValues:\r\n*==================================\r\nMsgTtl = \"Can Not Delete OS FIle \":CrLf\r\nMsgErr = \"\"\r\nMsgErr<1> = \"Bad operating system filename: \"\r\nMsgErr<2> = \"Access denied by operating system: \"\r\nMsgErr<3> = \"Disk or directory full... \"\r\nMsgErr<4> = \"Operating system file does not exist: \"\r\nMsgErr<5> = \"Undefined error on operating system file: \"\r\n\r\nReturn\r\n\r\n\r\n*==================================\r\nBreakDown:\r\n*==================================\r\nIf Len(TmpChk) > FlaBrk Then\r\n X=0\r\n Loop While Len(TmpChk) > FlaBrk\r\n TmpVar = TmpChk[1,FlaBrk]\r\n Ysav = TmpChk[1,FlaBrk]\r\n Ysav[1,FlaBrk] = ''\r\n TmpChk = Ysav\r\n If Len(TmpChk) Then TmpVar = Str(Tb,K)\r\n X+=1\r\n Repeat\r\n TmpVar = ''\r\nEnd \r\n\r\nReturn \r\n\r\n*==================================\r\nLoadInputFileNames:\r\n*==================================\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\nReturn\r\n*/" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ENGINEER_RPT1.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/ENGINEER_RPT1.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..ea4d7f9 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ENGINEER_RPT1.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, fieldcount\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nReactors = .reactors->array\r\nSpan = .span->text \r\nswap @vm:@vm with '' in Reactors\r\nif Reactors[-1,1] = @vm then Reactors[-1,1] = ''\r\nDirToPrint = .send_to_printer->text\r\nRetVal = Reactors:'*':Span:'*':DirToPrint\r\nend_dialog( @window, RetVal )\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ENGINEER_RPT1.REACTORS.json b/LSL2/OIEVENT/CLICK/ENGINEER_RPT1.REACTORS.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ENGINEER_RPT1.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/EXPORT3.BUTTON_1.json b/LSL2/OIEVENT/CLICK/EXPORT3.BUTTON_1.json new file mode 100644 index 0000000..748ac62 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/EXPORT3.BUTTON_1.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, end_window, fieldcount, get_status, post_event\r\ndeclare subroutine rlist, record_lock\r\n$insert logical\r\n$insert rlist_equates\r\n$insert msg_equates\r\n$insert dict_equates\r\n$insert message_box_equates\r\ndeclare subroutine update_index, SetInitDirOptions, yield\r\ndeclare function message_box\r\nequ CrLf$ to char(13):char(10)\r\n\r\n*CfgFile line one = number of columns\r\n*CfgFile line two = types 1=general 2=text\r\n*CfgFile line three = file to import in excel\r\n*CfgFile line four = number of column heading lines so excel can bold them\r\n*\r\nif ( .util_start->visible = 1 ) then\r\n @user0 = iconv( .util_start->text, 'D' )\r\n @user1 = iconv( .util_end->text, 'D' )\r\nend\r\n*\r\nSystemGenerated = get_property( @window, '@SystemGenerated' )\r\nNoExcel = get_property( @window, '@NoExcel' )\r\nExpandMV = .expand_mv->check\r\nCfgFile = ''\r\nDosTable = .path->text\r\n*if DosTable[1,1] = 'C' or DosTable[1,1] = 'V' else\r\n* MsgInfo = ''\r\n* MsgInfo = 'You must export only to your C: drive, or if you are using terminal server use the V: drive...Please change the export path to reflect this.'\r\n* MsgInfo = '!'\r\n* Void = msg( '', MsgInfo )\r\n* return 0\r\n*end\r\n\r\n*IF @USER4 = 'BRYCE_M' THEN\r\n* DEBUG\r\n*END\r\nOSOpen 'V:\\AUTOEXEC.BAT' To TPathHandle then\r\n OSClose TPathHandle\r\n DriveToUse = 'V:'\r\n DosTable[1,1] = 'V'\r\nend else\r\n DriveToUse = 'C:'\r\nend\r\nCfgFile<2> = DosTable\r\n\r\nTable = .exporttablenames->text\r\nDictTable = 'DICT.':Table\r\nopen Table to TableVar else\r\n Void = msg( '', 'Unable to open ':Table:'...' )\r\n return 0\r\nend\r\nopen DictTable to @dict else\r\n Void = msg( '', 'Unable to open ':DictTable:'...' )\r\n return 0\r\nend\r\nstatus() = 0\r\noswrite '' on DosTable\r\nTstat = status()\r\nif Tstat then\r\n Err = 'Bad operating system filename'\r\n Err<-1> = 'Access Denied'\r\n Err<-1> = 'Disk or Directory full'\r\n Err<-1> = 'Operating system error not defined elsewhere'\r\n Err<-1> = 'Attempt to write a read only file'\r\n Void = msg( '', Err )\r\n return 0\r\nend\r\nosopen DosTable to DosTableVar else\r\n Err = 'Bad operating system filename'\r\n Err<-1> = 'Access Denied'\r\n Err<-1> = 'File does not exist'\r\n Err<-1> = 'Undefined error'\r\n Void = msg( '', Err )\r\n return 0\r\nend\r\n\r\nclearselect\r\nStatement = 'SELECT ':Table\r\nColumns = .export_info->array<1>\r\nswap @vm:@vm with '' in Columns\r\nif Columns[-1,1] = @vm then Columns[-1,1] = ''\r\nBColumns = .query_info->array\r\nBColumnsQ = BColumns<2>\r\nBColumns = BColumns<1>\r\nswap @vm:@vm with '' in BColumns\r\nif BColumns[-1,1] = @vm then BColumns[-1,1] = ''\r\nswap @vm:@vm with '' in BColumnsQ\r\nif BColumnsQ[-1,1] = @vm then BColumnsQ[-1,1] = ''\r\nBcnt = fieldcount( BColumns, @vm )\r\nCcnt = fieldcount( Columns, @vm )\r\nCfgFile<1> = Ccnt\r\nif Bcnt then\r\n\tfor i = 1 to Bcnt\r\n\t CompVal = BColumnsQ<1,i>\r\n\t Op = field( CompVal, ' ', 1 )\r\n\t swap '~' with 'NOT ' in Op\r\n\t Rest = field( CompVal, ' ', 2, 999 )\r\n\t swap ' ' with '\" \"' in Rest\r\n\t Rest = '\"':Rest:'\"'\r\n\t if CompVal <> '' then\r\n\t if i = 1 then\r\n\t Statement := ' WITH ' \r\n\t end else\r\n\t Statement := ' AND WITH '\r\n\t end\r\n\t Statement := BColumns<1,i>:' ':Op:' ':Rest\r\n\t end\r\n\tnext i\r\nend\r\n\r\nif Statement <> 'SELECT ':Table then\r\n * btree column selection\r\n DoneSelect = true$\r\n *IF @USER4 = 'BRYCE_M' THEN\r\n * DEBUG\r\n *END\r\n SWAP '\"TO\"' WITH 'TO' IN STATEMENT\r\n * ABOVE LINE OF CODE IS SO YOU CAN DO A RANGE ON ONE LINE\r\n * I.E. DATE_OUT FROM 8/1/97 TO 8/5/97 IT REMOVES THE QUOTES\r\n * IT WILL THEN USE THE INDEXES\r\n Void = utility( 'CURSOR', 'H' ) \r\n rlist( Statement, target_activelist$, '', '', '' )\r\nend else\r\n DoneSelect = false$\r\nend\r\n*\r\nStatement = 'SELECT ':Table\r\nNColumns = .nquery_info->array\r\nNColumnsQ = NColumns<2>\r\nNColumns = NColumns<1>\r\nswap @vm:@vm with '' in NColumns\r\nif NColumns[-1,1] = @vm then NColumns[-1,1] = ''\r\nswap @vm:@vm with '' in NColumnsQ\r\nif NColumnsQ[-1,1] = @vm then NColumnsQ[-1,1] = ''\r\nNcnt = fieldcount( NColumns, @vm )\r\nif Ncnt then\r\n\tfor i = 1 to Ncnt\r\n\t CompVal = NColumnsQ<1,i>\r\n\t Op = field( CompVal, ' ', 1 )\r\n\t swap '~' with 'NOT ' in Op\r\n\t Rest = field( CompVal, ' ', 2, 999 )\r\n\t swap ' ' with '\" \"' in Rest\r\n\t Rest = '\"':Rest:'\"'\r\n\t if CompVal <> '' then\r\n\t if i = 1 then\r\n\t Statement := ' WITH ' \r\n\t end else\r\n\t Statement := ' AND WITH '\r\n\t end\r\n\t Statement := NColumns<1,i>:' ':Op:' ':Rest\r\n\t end\r\n\tnext i\r\nend\r\nif Statement <> 'SELECT ':Table then\r\n Void = utility( 'CURSOR', 'H' )\r\n SWAP '\"TO\"' WITH 'TO' IN STATEMENT\r\n rlist( Statement, target_activelist$, '', '', '' ) \r\nend else\r\n if DoneSelect = false$ then\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'You have not defined any query information...Do you wish to export the whole table?'\r\n\t MsgInfo = '?'\r\n\t MsgInfo = 'BNYC'\r\n\t if SystemGenerated then\r\n\t Resp = 1\r\n\t end else\r\n\t Resp = msg( '', MsgInfo )\r\n\t end\r\n\t if Resp = 1 then\r\n \t Void = utility( 'CURSOR', 'H' )\r\n \t rlist( Statement, target_activelist$, '', '', '' ) \r\n\t end else\r\n\t return 0\r\n\t end\r\n end\r\nend\r\n\r\nif @reccount then\r\n Ccnt = fieldcount( Columns, @vm )\r\n\tBytePos = 0\r\n * set headings\r\n TColumns = Columns\r\n convert @vm to @fm in TColumns\r\n Headings = xlate( DictTable, TColumns, dict_display$, 'X' )\r\n CONVERT @VM TO ' ' IN HEADINGS\r\n * CAUSE IT WOULD CAUSE A SECOND HEADING LINE \r\n * SO THIS CODE IS IRRELEVANT ON PARSING MULTI LINE HEADINGS\r\n Continue = True$\r\n BlobOut = ''\r\n for i = 1 to 999 while Continue\r\n\t Continue = false$\r\n for j = 1 to Ccnt\r\n Thead = Headings\r\n BlobOut := Quote( Headings ):\",\"\r\n if len( Headings ) then\r\n Continue = true$\r\n end\r\n\t next j\r\n\t BlobOut := CrLf$\r\n next i\r\n * END OF IRRELEVANT CODE\r\n CfgFile<3> = i-1\r\n TextCnt = 0\r\n TextCfgOut = ''\r\n for i = 1 to Ccnt\r\n Output = xlate( DictTable, Columns<1,i>, dict_conv$, 'X' )\r\n if Output else\r\n TextCnt +=1\r\n TextCfgOut := i:@fm\r\n end\r\n next i\r\n swap @fm with CrLf$ in TextCfgOut\r\n CfgFile<4> = TextCnt\r\n CfgFile<5> = TextCfgOut\r\n osbwrite BlobOut on DosTableVar AT BytePos\r\n\tBytePos += len( BlobOut )\t \r\n\tTstat = status()\r\n\tif Tstat then\r\n\t Err = 'Bad operating system filename'\r\n\t Err<-1> = 'Access Denied'\r\n\t Err<-1> = 'Disk or directory full'\r\n\t Err<-1> = 'File does not exist'\r\n\t Err<-1> = 'Undefined error'\r\n\t Err<-1> = 'Attempt to write a read only file'\r\n\t Err<-1> = 'Invalid beginning byte position'\r\n\t Void = msg( '', Err )\r\n\t return 0\r\n\tend\r\n FieldsRec = xlate( DictTable, '%FIELDS%', '', 'X' )\r\n * setup positions or tag as null\r\n Fmcs = ''\r\n Outputs = ''\r\n MultiValue = ''\r\n for i = 1 to Ccnt\r\n locate Columns<1,i> in FieldsRec<3> using @vm setting Fpos then\r\n Fmcs = FieldsRec<5,Fpos>\r\n Outputs = FieldsRec<12,Fpos>\r\n MultiValue = FieldsRec<9,FPos>\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'Unable to locate ':Columns<1,i>:' in %FIELDS%...Get Bryce for Help.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\n end\r\n next i\r\n if ExpandMV then\r\n\t locate 0 in Fmcs using @fm setting IDPos else\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'You have choosen to expand multi-values, you must select the ID to the table as one of your export colums, so you know which record each value corresponds to. Typically this is SEQ.'\r\n\t MsgInfo = 'H'\r\n\t Void = msg( '', MsgInfo )\r\n\t return 0\r\n\t end\r\n end\r\n .percent_complete->visible = 1\r\n .gasbarbox->visible = 1\r\n CurrentSize = .gasbar->size\r\n NewSize = CurrentSize\r\n NewSize<3> = 0\r\n .gasbar->size = NewSize\r\n .gasbar->visible = 1\r\n\t@rn.counter = 0\r\n\tEof = false$\r\n\tOnePercent = iconv( @reccount*.01, 'MD0' )\r\n\tloop\r\n\t readnext @id else Eof = true$\r\n\tuntil Eof\r\n\t read @record from TableVar, @id else\r\n\t Void = msg( '', 'Unable to read ':@id:' from ':Table )\r\n\t return 0\r\n\t end\r\n\t BlobOut = ''\r\n\t Continue = true$\r\n\t for i = 1 to 999 while Continue\r\n\t Continue = false$\r\n for j = 1 to Ccnt\r\n ThisFmc = Fmcs\r\n IsMV = MultiValue\r\n if ThisFmc <> '' then\r\n if ThisFmc = 0 then\r\n TCol = @id\r\n if ExpandMV and TCol<1,i> = '' and not(IsMV) then\r\n BlobOut := quote( TCol<1,1> ):',' \r\n end else\r\n BlobOut := quote( TCol<1,i> ):','\r\n end\r\n end else\r\n TCol = @record\r\n convert '\"' to '' in TCol\r\n ThisOutput = Outputs\r\n if ThisOutput then\r\n if ExpandMV and TCol<1,i> = '' and not(IsMV) then\r\n BlobOut := quote( oconv( TCol<1,1>, ThisOutput ) ):',' \r\n end else\r\n BlobOut := quote( oconv( TCol<1,i>, ThisOutput ) ):','\r\n end\r\n end else\r\n if ExpandMV and TCol<1,i> = '' and not(IsMV) then\r\n BlobOut := quote( TCol<1,1> ):',' \r\n end else\r\n BlobOut := quote( TCol<1,i> ):','\r\n end\r\n end\r\n if len( Tcol<1,i+1> ) then\r\n Continue = true$\r\n end\r\n end\r\n end else\r\n * calculate\r\n TCol = calculate( Columns<1,j> )\r\n convert '\"' to '' in TCol\r\n ThisOutput = Outputs\r\n if ThisOutput then\r\n if ExpandMV and TCol<1,i> = '' and not(IsMV) then\r\n BlobOut := quote( oconv( TCol<1,1>, ThisOutput ) ):',' \r\n end else\r\n BlobOut := quote( oconv( TCol<1,i>, ThisOutput ) ):','\r\n end\r\n end else\r\n if ExpandMV and TCol<1,i> = '' and not(IsMV) then\r\n BlobOut := quote( TCol<1,1> ):',' \r\n end else\r\n BlobOut := quote( TCol<1,i> ):','\r\n end\r\n end\r\n if len( Tcol<1,i+1> ) then\r\n Continue = true$\r\n end\r\n end \r\n\t next j\r\n\t BlobOut := CrLf$\r\n\t next i\r\n\t osbwrite BlobOut on DosTableVar AT BytePos\r\n\t BytePos += len( BlobOut )\t \r\n\t Tstat = status()\r\n\t if Tstat then\r\n\t Err = 'Bad operating system filename'\r\n\t Err<-1> = 'Access Denied'\r\n\t Err<-1> = 'Disk or directory full'\r\n\t Err<-1> = 'File does not exist'\r\n\t Err<-1> = 'Undefined error'\r\n\t Err<-1> = 'Attempt to write a read only file'\r\n\t Err<-1> = 'Invalid beginning byte position'\r\n\t Void = msg( '', Err )\r\n\t return 0\r\n\t end\r\n if mod( @rn.counter, OnePercent ) else\r\n\t \t NewWidth = CurrentSize<3> * @rn.counter/@reccount\r\n\t\t .percent_complete->text = oconv(iconv( @rn.counter/@reccount*100, 'MD0' ), 'MD0' ):'%'\r\n\t\t NewSize<3> = NewWidth\r\n\t\t .gasbar->redraw = 0\r\n\t\t .gasbar->size = NewSize\r\n\t .gasbar->redraw = 1\r\n\t end\r\n\trepeat\r\n if @rn.counter > 0 and @reccount > 0 then\r\n\t NewWidth = CurrentSize<3> * @rn.counter/@reccount\r\n\t .percent_complete->text = oconv(iconv( @rn.counter/@reccount*100, 'MD0' ), 'MD0' ):'%'\r\n\t NewSize<3> = NewWidth\r\n\t .gasbar->redraw = 0\r\n\t .gasbar->size = NewSize\r\n\t .gasbar->redraw = 1\r\n end\r\n .percent_complete->visible = 0\r\n .gasbarbox->visible = 0\r\n swap @fm with CrLf$ in CfgFile\r\n CfgFile := CrLf$\r\n oswrite CfgFile on DriveToUse:'\\IMP.CFG' \r\n if status() then\r\n Void = msg( '', 'Error creating Excel import config file.' )\r\n return 0\r\n end\r\n osclose DosTableVar\r\n\r\n\tSetInitDirOptions(\"D\")\r\n\tList = ''\r\n\tOfficePath = DriveToUse:'\\Program Files\\Microsoft Office\\Office'\r\n\tinitdir OfficePath\r\n\tList = DirList()\r\n\t\t\r\n\tIF List = '' THEN\r\n\t\tfor i = 1 to 15\r\n\t\t\tOfficePath = DriveToUse:'\\Program Files\\Microsoft Office\\Office':I\r\n\t\t\tinitdir OfficePath\r\n\t\t\tlist = DirList()\r\n\t\tuntil list <> ''\r\n\t\tnext i\r\n\tEND\r\n \r\n\r\n if SystemGenerated and not( NoExcel ) then\r\n\t\tTCust = get_property( @window, '@CurCustomer' ) \r\n \tMsgText = ''\r\n \tMsgText:= CrLf$:'1) Check the data'\r\n \tMsgText:= CrLf$:'2) Save the spreadsheet As \"Microsoft Excel 97-2000 & 5.0/95 Workbook.\"'\r\n \tMsgText:= CrLf$:'3) Name the spreadsheet starting with CustomerName and then n...for the shipment number of the day.'\r\n \tMsgText:= CrLf$:'4) Launch Lotus Notes and Email this spreadsheet to ':TCust:'.'\r\n \tVoid = message_box( '', MsgText, 'Email Reminder!', MSG_ICON_INFO$ + MSG_BTN_OK$ ) \r\n \t*Void = post_event( @window, 'CLOSE' )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'No records meeting your search criteria...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nVoid = utility( 'CURSOR', 'A' )\r\n@user0 = ''\r\n@user1 = ''\r\nreturn 0\r\n\r\n*===========================================================================*\r\nCheckError:\r\n Status = get_status( ErrorCodes )\r\n ErrorCode = get_property( Parent, 'DDEERROR' )\r\n* DEBUG\r\nreturn\r\n\r\n*===========================================================================*\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/EXPORT3.BUTTON_2.json b/LSL2/OIEVENT/CLICK/EXPORT3.BUTTON_2.json new file mode 100644 index 0000000..6783ae6 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/EXPORT3.BUTTON_2.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount\r\n\r\nExpInfo = .export_info->array\r\nswap @vm:@vm with '' in ExpInfo\r\nif ExpInfo[-1,1] = @vm then ExpInfo[-1,1] = ''\r\nRow = .export_info->selpos<2>\r\nRowCnt = fieldcount( ExpInfo, @vm )\r\nRowData = ExpInfo<1,Row>\r\nif Row < RowCnt and RowData <> '' then\r\n ExpInfo = delete( ExpInfo, 1, Row, 0 )\r\n ExpInfo = insert( ExpInfo, 1, Row+1, 0, RowData )\r\n .export_info->array = ExpInfo\r\n .export_info->selpos = 1:@fm:Row+1\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/EXPORT3.BUTTON_3.json b/LSL2/OIEVENT/CLICK/EXPORT3.BUTTON_3.json new file mode 100644 index 0000000..f9ded77 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/EXPORT3.BUTTON_3.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount\r\n\r\nExpInfo = .export_info->array\r\nswap @vm:@vm with '' in ExpInfo\r\nif ExpInfo[-1,1] = @vm then ExpInfo[-1,1] = ''\r\nRow = .export_info->selpos<2>\r\nRowCnt = fieldcount( ExpInfo, @vm )\r\nRowData = ExpInfo<1,Row>\r\nif Row < RowCnt and RowData <> '' then\r\n ExpInfo = delete( ExpInfo, 1, Row, 0 )\r\n ExpInfo = insert( ExpInfo, 1, RowCnt, 0, RowData )\r\n .export_info->array = ExpInfo\r\n .export_info->selpos = 1:@fm:RowCnt\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/EXPORT3.BUTTON_4.json b/LSL2/OIEVENT/CLICK/EXPORT3.BUTTON_4.json new file mode 100644 index 0000000..e0ce80a --- /dev/null +++ b/LSL2/OIEVENT/CLICK/EXPORT3.BUTTON_4.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "ExpInfo = .export_info->array\r\nswap @vm:@vm with '' in ExpInfo\r\nif ExpInfo[-1,1] = @vm then ExpInfo[-1,1] = ''\r\nRow = .export_info->selpos<2>\r\nRowData = ExpInfo<1,Row>\r\nif Row > 1 and RowData <> '' then\r\n ExpInfo = delete( ExpInfo, 1, Row, 0 )\r\n ExpInfo = insert( ExpInfo, 1, Row-1, 0, RowData )\r\n .export_info->array = ExpInfo\r\n .export_info->selpos = 1:@fm:Row-1\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/EXPORT3.BUTTON_5.json b/LSL2/OIEVENT/CLICK/EXPORT3.BUTTON_5.json new file mode 100644 index 0000000..2aaa4d6 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/EXPORT3.BUTTON_5.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "ExpInfo = .export_info->array\r\nswap @vm:@vm with '' in ExpInfo\r\nif ExpInfo[-1,1] = @vm then ExpInfo[-1,1] = ''\r\nRow = .export_info->selpos<2>\r\nRowData = ExpInfo<1,Row>\r\nif Row > 1 and RowData <> '' then\r\n ExpInfo = delete( ExpInfo, 1, Row, 0 )\r\n ExpInfo = insert( ExpInfo, 1, 1, 0, RowData )\r\n .export_info->array = ExpInfo\r\n .export_info->selpos = 1:@fm:1\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/EXPORT3.EXPORT_INFO.json b/LSL2/OIEVENT/CLICK/EXPORT3.EXPORT_INFO.json new file mode 100644 index 0000000..64c3a5d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/EXPORT3.EXPORT_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/EXPORT3.NQUERY_INFO.json b/LSL2/OIEVENT/CLICK/EXPORT3.NQUERY_INFO.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/EXPORT3.NQUERY_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/EXPORT3.QUERY_INFO.json b/LSL2/OIEVENT/CLICK/EXPORT3.QUERY_INFO.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/EXPORT3.QUERY_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/EXPORTS.BUTTON_1.json b/LSL2/OIEVENT/CLICK/EXPORTS.BUTTON_1.json new file mode 100644 index 0000000..b3d1570 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/EXPORTS.BUTTON_1.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, end_window, fieldcount, get_status, post_event\r\ndeclare subroutine rlist, record_lock\r\n\r\n$insert logical\r\n$insert rlist_equates\r\n$insert msg_equates\r\n$insert dict_equates\r\n$insert message_box_equates\r\n\r\ndeclare subroutine update_index, SetInitDirOptions, yield\r\ndeclare function message_box\r\nequ CrLf$ to char(13):char(10)\r\n\r\n*CfgFile line one = number of columns\r\n*CfgFile line two = types 1=general 2=text\r\n*CfgFile line three = file to import in excel\r\n*CfgFile line four = number of column heading lines so excel can bold the fuckers\r\n*\r\n\r\nIF ( .util_start->visible = 1 )THEN \r\n @user0 = iconv( .util_start->text, 'D' )\r\n @user1 = iconv( .util_end->text, 'D' )\r\nEND\r\n*\r\n\r\nSystemGenerated = Get_Property( @window, '@SystemGenerated' )\r\nNoExcel = Get_Property( @window, '@NoExcel' )\r\nExpandMV = .expand_mv->check\r\nCfgFile = ''\r\nDosTable = .path->text\r\nIF DosTable[1,1] = 'C' or DosTable[1,1] = 'V' ELSE\r\n MsgInfo = ''\r\n MsgInfo = 'You must export only to your C: drive, or IF you are using terminal server use the V: drive...Please change the export path to reflect this.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nEND\r\n\r\nOSOpen 'V:\\AUTOEXEC.BAT' To TPathHandle THEN \r\n OSClose TPathHandle\r\n DriveToUse = 'V:'\r\n DosTable[1,1] = 'V'\r\nEND ELSE\r\n DriveToUse = 'C:'\r\nEND\r\nCfgFile<2> = DosTable\r\n\r\nTable = .exporttablenames->text\r\nDictTable = 'DICT.':Table\r\nopen Table to TableVar ELSE\r\n Void = msg( '', 'Unable to open ':Table:'...' )\r\n return 0\r\nEND\r\nopen DictTable to @dict ELSE\r\n Void = msg( '', 'Unable to open ':DictTable:'...' )\r\n return 0\r\nEND\r\n\r\n\r\n\r\nstatus() = 0\r\noswrite '' on DosTable\r\nTstat = status()\r\nIF Tstat THEN \r\n Err = 'Bad operating system filename'\r\n Err<-1> = 'Access Denied'\r\n Err<-1> = 'Disk or Directory full'\r\n Err<-1> = 'Operating system error not defined elsewhere'\r\n Err<-1> = 'Attempt to write a read only file'\r\n Void = msg( '', Err )\r\n return 0\r\nEND\r\nosopen DosTable to DosTableVar ELSE\r\n Err = 'Bad operating system filename'\r\n Err<-1> = 'Access Denied'\r\n Err<-1> = 'File does not exist'\r\n Err<-1> = 'Undefined error'\r\n Void = msg( '', Err )\r\n return 0\r\nEND\r\n\r\nCLEARSELECT\r\n\r\nStatement = 'SELECT ':Table\r\nColumns = Get_Property(@WINDOW:'.EXPORT_INFO','ARRAY')<1>\t;*.export_info->array<1>\r\nswap @vm:@vm with '' in Columns\r\nIF Columns[-1,1] = @vm THEN Columns[-1,1] = ''\r\n\r\nBColumns = .query_info->array\r\nBColumnsQ = BColumns<2>\r\nBColumns = BColumns<1>\r\nswap @vm:@vm with '' in BColumns\r\nIF BColumns[-1,1] = @vm THEN BColumns[-1,1] = ''\r\nswap @vm:@vm with '' in BColumnsQ\r\nIF BColumnsQ[-1,1] = @vm THEN BColumnsQ[-1,1] = ''\r\nBcnt = fieldcount( BColumns, @vm )\r\nCcnt = fieldcount( Columns, @vm )\r\nCfgFile<1> = Ccnt\r\nIF Bcnt THEN \r\n\tFOR i = 1 to Bcnt\r\n\t CompVal = BColumnsQ<1,i>\r\n\t Op = field( CompVal, ' ', 1 )\r\n\t swap '~' with 'NOT ' in Op\r\n\t Rest = field( CompVal, ' ', 2, 999 )\r\n\t swap ' ' with '\" \"' in Rest\r\n\t Rest = '\"':Rest:'\"'\r\n\t IF CompVal <> '' THEN \r\n\t IF i = 1 THEN \r\n\t Statement := ' WITH ' \r\n\t END ELSE\r\n\t Statement := ' AND WITH '\r\n\t END\r\n\t Statement := BColumns<1,i>:' ':Op:' ':Rest\r\n\t END\r\n\tnext i\r\nEND\r\n\r\n\r\n\r\nIF Statement <> 'SELECT ':Table THEN \r\n * btree column selection\r\n DoneSelect = true$\r\n \r\n SWAP '\"TO\"' WITH 'TO' IN STATEMENT\r\n * ABOVE LINE OF CODE IS SO YOU CAN DO A RANGE ON ONE LINE\r\n * I.E. DATE_OUT FROM 8/1/97 TO 8/5/97 IT REMOVES THE QUOTES\r\n * IT WILL THEN USE THE INDEXES\r\n Void = utility( 'CURSOR', 'H' ) \r\n rlist( Statement, target_activelist$, '', '', '' )\r\n IF Get_Status(errCode) THEN\r\n \tCALL ErrMsg(errCode)\r\n \tRETURN\r\n END\r\n \r\nEND ELSE\r\n DoneSelect = false$\r\nEND\r\n\r\n*\r\nStatement = 'SELECT ':Table\r\nNColumns = .nquery_info->array\r\nNColumnsQ = NColumns<2>\r\nNColumns = NColumns<1>\r\nswap @vm:@vm with '' in NColumns\r\nIF NColumns[-1,1] = @vm THEN NColumns[-1,1] = ''\r\nswap @vm:@vm with '' in NColumnsQ\r\nIF NColumnsQ[-1,1] = @vm THEN NColumnsQ[-1,1] = ''\r\nNcnt = fieldcount( NColumns, @vm )\r\nIF Ncnt THEN \r\n\tFOR i = 1 to Ncnt\r\n\t CompVal = NColumnsQ<1,i>\r\n\t Op = field( CompVal, ' ', 1 )\r\n\t swap '~' with 'NOT ' in Op\r\n\t Rest = field( CompVal, ' ', 2, 999 )\r\n\t swap ' ' with '\" \"' in Rest\r\n\t Rest = '\"':Rest:'\"'\r\n\t IF CompVal <> ''THEN \r\n\t IF i = 1 THEN \r\n\t Statement := ' WITH ' \r\n\t END ELSE\r\n\t Statement := ' AND WITH '\r\n\t END\r\n\t Statement := NColumns<1,i>:' ':Op:' ':Rest\r\n\t END\r\n\tnext i\r\nEND\r\n\r\n\r\nIF Statement <> 'SELECT ':Table THEN \r\n Void = utility( 'CURSOR', 'H' )\r\n SWAP '\"TO\"' WITH 'TO' IN STATEMENT\r\n rlist( Statement, target_activelist$, '', '', '' ) \r\nEND ELSE\r\n IF DoneSelect = false$ THEN \r\n\t MsgInfo = ''\r\n\t MsgInfo = 'You have not defined any query information...Do you wish to export the whole table?'\r\n\t MsgInfo = '?'\r\n\t MsgInfo = 'BNYC'\r\n\t IF SystemGenerated THEN \r\n\t Resp = 1\r\n\t END ELSE\r\n\t Resp = msg( '', MsgInfo )\r\n\t END\r\n\t IF Resp = 1 THEN \r\n \t Void = utility( 'CURSOR', 'H' )\r\n \t rlist( Statement, target_activelist$, '', '', '' ) \r\n\t END ELSE\r\n\t return 0\r\n\t END\r\n END\r\nEND\r\n\r\nIF @reccount THEN \r\n Ccnt = fieldcount( Columns, @vm )\r\n\tBytePos = 0\r\n * set headings\r\n TColumns = Columns\r\n convert @vm to @fm in TColumns\r\n Headings = xlate( DictTable, TColumns, dict_display$, 'X' )\r\n CONVERT @VM TO ' ' IN HEADINGS\r\n * CAUSE IT WOULD CAUSE A SECOND HEADING LINE \r\n * SO THIS CODE IS IRRELEVANT ON PARSING MULTI LINE HEADINGS\r\n Continue = True$\r\n BlobOut = ''\r\n FOR i = 1 to 999 while Continue\r\n\t Continue = false$\r\n FOR j = 1 to Ccnt\r\n Thead = Headings\r\n BlobOut := Quote( Headings ):\",\"\r\n IF len( Headings ) THEN \r\n Continue = true$\r\n END\r\n\t next j\r\n\t BlobOut := CrLf$\r\n next i\r\n * END OF IRRELEVANT CODE\r\n CfgFile<3> = i-1\r\n TextCnt = 0\r\n TextCfgOut = ''\r\n \r\n FOR i = 1 to Ccnt\r\n Output = xlate( DictTable, Columns<1,i>, dict_conv$, 'X' )\r\n IF Output ELSE\r\n TextCnt +=1\r\n TextCfgOut := i:@fm\r\n END\r\n next i\r\n swap @fm with CrLf$ in TextCfgOut\r\n \r\n \r\n CfgFile<4> = TextCnt\r\n CfgFile<5> = TextCfgOut\r\n osbwrite BlobOut on DosTableVar AT BytePos\r\n\tBytePos += len( BlobOut )\t \r\n\tTstat = status()\r\n\tIF Tstat THEN \r\n\t Err = 'Bad operating system filename'\r\n\t Err<-1> = 'Access Denied'\r\n\t Err<-1> = 'Disk or directory full'\r\n\t Err<-1> = 'File does not exist'\r\n\t Err<-1> = 'Undefined error'\r\n\t Err<-1> = 'Attempt to write a read only file'\r\n\t Err<-1> = 'Invalid beginning byte position'\r\n\t Void = msg( '', Err )\r\n\t return 0\r\n\tEND\r\n FieldsRec = xlate( DictTable, '%FIELDS%', '', 'X' )\r\n \r\n * setup positions or tag as null\r\n \r\n Fmcs\t\t= ''\r\n Parts\t\t= ''\r\n Outputs\t\t= ''\r\n MultiValue\t= ''\r\n FOR i = 1 to Ccnt\r\n locate Columns<1,i> in FieldsRec<3> using @vm setting Fpos THEN \r\n Fmcs\t\t\t= FieldsRec\r\n Parts\t\t= FieldsRec\r\n Outputs\t\t= FieldsRec\r\n MultiValue\t= FieldsRec\r\n END ELSE\r\n MsgInfo = ''\r\n MsgInfo = 'Unable to locate ':Columns<1,i>:' in %FIELDS%...Get Bryce for Help.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\n END\r\n next i\r\n IF ExpandMV THEN \r\n\t locate 0 in Fmcs using @fm setting IDPos ELSE\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'You have choosen to expand multi-values, you must select the ID to the table as one of your export colums, so you know which record each value corresponds to. Typically this is SEQ.'\r\n\t MsgInfo = 'H'\r\n\t Void = msg( '', MsgInfo )\r\n\t return 0\r\n\t END\r\n END\r\n .percent_complete->visible = 1\r\n .gasbarbox->visible = 1\r\n CurrentSize = .gasbar->size\r\n NewSize = CurrentSize\r\n NewSize<3> = 0\r\n .gasbar->size = NewSize\r\n .gasbar->visible = 1\r\n\t@rn.counter = 0\r\n\tEof = false$\r\n\tOnePercent = iconv( @reccount*.01, 'MD0' )\r\n\tloop\r\n\t readnext @id ELSE Eof = true$\r\n\tuntil Eof\r\n\t read @record from TableVar, @id ELSE\r\n\t Void = msg( '', 'Unable to read ':@id:' from ':Table )\r\n\t return 0\r\n\t END\r\n\t BlobOut = ''\r\n\t Continue = true$\r\n\t \r\n\t\tFOR I = 1 TO 999 WHIle Continue\r\n\t\t\tContinue = false$\r\n\t\t\tFOR J = 1 TO Ccnt\r\n\t\t\t\tThisFmc = Fmcs\r\n\t\t\t\tIsMV = MultiValue\r\n\t\t\t\t\r\n\t\t\t\tIF ThisFmc <> '' THEN\r\n\t\t\t\t\tIF ThisFmc = 0 THEN\r\n\t\t\t\t\t\t\r\n\t\t\t\t\t\tIF Parts NE '' THEN\r\n\t\t\t\t\t\t\tTCol = FIELD(@ID,'*',Parts)\r\n\t\t\t\t\t\tEND ELSE\r\n\t\t\t\t\t\t\tTCol = @id\r\n\t\t\t\t\t\tEND\r\n \r\n\t\t\t\t\t\tIF Outputs NE '' THEN TCol = OCONV(Tcol,Outputs)\r\n \r\n\t\t\t\t\t\tIF ExpandMV AND TCol<1,i> = '' AND NOT(IsMV) THEN\r\n\t\t\t\t\t\t\tBlobOut := quote( TCol<1,1> ):',' \r\n\t\t\t\t\t\tEND ELSE\r\n\t\t\t\t\t\t\tBlobOut := quote( TCol<1,i> ):','\r\n\t\t\t\t\t\tEND\r\n\t\t\t\t\t\t\r\n\t\t\t\t\t END ELSE\r\n\r\n\t\t\t\t\t\tTCol = @RECORD\r\n\t\t\t\t\t\tconvert '\"' to '' in TCol\r\n\t\t\t\t\t\tThisOutput = Outputs\r\n\t\t\t\t\t\tIF ThisOutput THEN\r\n\t\t\t\t\t\t\tIF ExpandMV AND TCol<1,i> = '' AND NOT(IsMV) THEN\r\n\t\t\t\t\t\t\t\tBlobOut := QUOTE( OCONV( TCol<1,1>, ThisOutput ) ):',' \r\n\t\t\t\t\t\t\tEND ELSE\r\n\t\t\t\t\t\t\t\tBlobOut := QUOTE( OCONV( TCol<1,i>, ThisOutput ) ):','\r\n\t\t\t\t\t\t\tEND\r\n\t\t\t\t\t\tEND ELSE\r\n\t\t\t\t\t\t\tIF ExpandMV AND TCol<1,i> = '' AND NOT(IsMV) THEN\r\n\t\t\t\t\t\t\t\tBlobOut := QUOTE( TCol<1,1> ):',' \r\n\t\t\t\t\t\t\tEND ELSE\r\n\t\t\t\t\t\t\t\tBlobOut := QUOTE( TCol<1,i> ):','\r\n\t\t\t\t\t\t\tEND\r\n\t\t\t\t\t\tEND\r\n\t\t\t\t\t\tIF LEN( Tcol<1,i+1> ) THEN\r\n\t\t\t\t\t\t\tContinue = true$\r\n\t\t\t\t\t\tEND\r\n\t\t\t\t\tEND\r\n\t\t\t\tEND ELSE\r\n * calculate\r\n TCol = calculate( Columns<1,j> )\r\n convert '\"' to '' in TCol\r\n ThisOutput = Outputs\r\n IF ThisOutput THEN \r\n IF ExpandMV AND TCol<1,i> = '' AND not(IsMV) THEN \r\n BlobOut := quote( oconv( TCol<1,1>, ThisOutput ) ):',' \r\n END ELSE\r\n BlobOut := quote( oconv( TCol<1,i>, ThisOutput ) ):','\r\n END\r\n END ELSE\r\n IF ExpandMV AND TCol<1,i> = '' AND not(IsMV) THEN \r\n BlobOut := quote( TCol<1,1> ):',' \r\n END ELSE\r\n BlobOut := quote( TCol<1,i> ):','\r\n END\r\n END\r\n IF len( Tcol<1,i+1> ) THEN \r\n Continue = true$\r\n END\r\n END \r\n\t next j\r\n\t BlobOut := CrLf$\r\n\t next i\r\n\t osbwrite BlobOut on DosTableVar AT BytePos\r\n\t BytePos += len( BlobOut )\t \r\n\t Tstat = status()\r\n\t IF Tstat THEN \r\n\t Err = 'Bad operating system filename'\r\n\t Err<-1> = 'Access Denied'\r\n\t Err<-1> = 'Disk or directory full'\r\n\t Err<-1> = 'File does not exist'\r\n\t Err<-1> = 'Undefined error'\r\n\t Err<-1> = 'Attempt to write a read only file'\r\n\t Err<-1> = 'Invalid beginning byte position'\r\n\t Void = msg( '', Err )\r\n\t return 0\r\n\t END\r\n IF mod( @rn.counter, OnePercent ) ELSE\r\n\t \t NewWidth = CurrentSize<3> * @rn.counter/@reccount\r\n\t\t .percent_complete->text = oconv(iconv( @rn.counter/@reccount*100, 'MD0' ), 'MD0' ):'%'\r\n\t\t NewSize<3> = NewWidth\r\n\t\t .gasbar->redraw = 0\r\n\t\t .gasbar->size = NewSize\r\n\t .gasbar->redraw = 1\r\n\t END\r\n\trepeat\r\n IF @rn.counter > 0 AND @reccount > 0 THEN \r\n\t NewWidth = CurrentSize<3> * @rn.counter/@reccount\r\n\t .percent_complete->text = oconv(iconv( @rn.counter/@reccount*100, 'MD0' ), 'MD0' ):'%'\r\n\t NewSize<3> = NewWidth\r\n\t .gasbar->redraw = 0\r\n\t .gasbar->size = NewSize\r\n\t .gasbar->redraw = 1\r\n END\r\n .percent_complete->visible = 0\r\n .gasbarbox->visible = 0\r\n swap @fm with CrLf$ in CfgFile\r\n CfgFile := CrLf$\r\n oswrite CfgFile on DriveToUse:'\\IMP.CFG' \r\n IF status() THEN \r\n Void = msg( '', 'Error creating Excel import config file.':DriveToUse:'\\IMP.CFG' )\r\n return 0\r\n END\r\n osclose DosTableVar\r\n\r\n \r\n\tSetInitDirOptions(\"D\")\r\n\tList = ''\r\n\t\r\n\tOfficePath = DriveToUse:'\\Program Files\\Microsoft Office 2000\\Office'\r\n\tinitdir OfficePath\r\n\tList = DirList()\r\n\t\r\n\tIF List = '' THEN\r\n\t\tOfficePath = DriveToUse:'\\Program Files\\Microsoft Office\\Office'\r\n\t\tinitdir OfficePath\r\n\t\tList = DirList()\r\n\tEND\r\n\t\t\r\n\tIF List = '' THEN\r\n\t\tFOR i = 1 to 15\r\n\t\t\tOfficePath = DriveToUse:'\\Program Files\\Microsoft Office\\Office':I\r\n\t\t\tinitdir OfficePath\r\n\t\t\tlist = DirList()\r\n\t\tuntil list <> ''\r\n\t\tnext i\r\n\tEND\r\n\r\n\tIF NoExcel ELSE\r\n RetVal = utility( 'RUNWIN', OfficePath:'\\EXCEL.EXE R:\\OINSIGHT\\IMPORT.XLS', '' )\r\n END\r\n\r\n \r\n IF SystemGenerated AND not( NoExcel ) THEN \r\n\t\tTCust = Get_Property( @window, '@CurCustomer' ) \r\n \tMsgText = ''\r\n \tMsgText:= CrLf$:'1) Check the data'\r\n \tMsgText:= CrLf$:'2) Save the spreadsheet As \"Microsoft Excel 97-2000 & 5.0/95 Workbook.\"'\r\n \tMsgText:= CrLf$:'3) Name the spreadsheet starting with CustomerName AND THEN n...for the shipment number of the day.'\r\n \tMsgText:= CrLf$:'4) Launch Lotus Notes AND Email this spreadsheet to ':TCust:'.'\r\n \t*Void = message_box( '', MsgText, 'Email Reminder!', MSG_ICON_INFO$ + MSG_BTN_OK$ ) \r\n \tVoid = post_event( @window, 'CLOSE' )\r\n END\r\nEND ELSE\r\n MsgInfo = ''\r\n MsgInfo = 'No records meeting your search criteria...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nEND\r\n\r\nVoid = utility( 'CURSOR', 'A' )\r\n@user0 = ''\r\n@user1 = ''\r\nreturn 0\r\n\r\n*===========================================================================*\r\nCheckError:\r\n Status = get_status( ErrorCodes )\r\n ErrorCode = Get_Property( Parent, 'DDEERROR' )\r\n* DEBUG\r\nreturn\r\n\r\n*===========================================================================*\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/EXPORTS.BUTTON_2.json b/LSL2/OIEVENT/CLICK/EXPORTS.BUTTON_2.json new file mode 100644 index 0000000..6783ae6 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/EXPORTS.BUTTON_2.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount\r\n\r\nExpInfo = .export_info->array\r\nswap @vm:@vm with '' in ExpInfo\r\nif ExpInfo[-1,1] = @vm then ExpInfo[-1,1] = ''\r\nRow = .export_info->selpos<2>\r\nRowCnt = fieldcount( ExpInfo, @vm )\r\nRowData = ExpInfo<1,Row>\r\nif Row < RowCnt and RowData <> '' then\r\n ExpInfo = delete( ExpInfo, 1, Row, 0 )\r\n ExpInfo = insert( ExpInfo, 1, Row+1, 0, RowData )\r\n .export_info->array = ExpInfo\r\n .export_info->selpos = 1:@fm:Row+1\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/EXPORTS.BUTTON_3.json b/LSL2/OIEVENT/CLICK/EXPORTS.BUTTON_3.json new file mode 100644 index 0000000..f9ded77 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/EXPORTS.BUTTON_3.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount\r\n\r\nExpInfo = .export_info->array\r\nswap @vm:@vm with '' in ExpInfo\r\nif ExpInfo[-1,1] = @vm then ExpInfo[-1,1] = ''\r\nRow = .export_info->selpos<2>\r\nRowCnt = fieldcount( ExpInfo, @vm )\r\nRowData = ExpInfo<1,Row>\r\nif Row < RowCnt and RowData <> '' then\r\n ExpInfo = delete( ExpInfo, 1, Row, 0 )\r\n ExpInfo = insert( ExpInfo, 1, RowCnt, 0, RowData )\r\n .export_info->array = ExpInfo\r\n .export_info->selpos = 1:@fm:RowCnt\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/EXPORTS.BUTTON_4.json b/LSL2/OIEVENT/CLICK/EXPORTS.BUTTON_4.json new file mode 100644 index 0000000..e0ce80a --- /dev/null +++ b/LSL2/OIEVENT/CLICK/EXPORTS.BUTTON_4.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "ExpInfo = .export_info->array\r\nswap @vm:@vm with '' in ExpInfo\r\nif ExpInfo[-1,1] = @vm then ExpInfo[-1,1] = ''\r\nRow = .export_info->selpos<2>\r\nRowData = ExpInfo<1,Row>\r\nif Row > 1 and RowData <> '' then\r\n ExpInfo = delete( ExpInfo, 1, Row, 0 )\r\n ExpInfo = insert( ExpInfo, 1, Row-1, 0, RowData )\r\n .export_info->array = ExpInfo\r\n .export_info->selpos = 1:@fm:Row-1\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/EXPORTS.BUTTON_5.json b/LSL2/OIEVENT/CLICK/EXPORTS.BUTTON_5.json new file mode 100644 index 0000000..2aaa4d6 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/EXPORTS.BUTTON_5.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "ExpInfo = .export_info->array\r\nswap @vm:@vm with '' in ExpInfo\r\nif ExpInfo[-1,1] = @vm then ExpInfo[-1,1] = ''\r\nRow = .export_info->selpos<2>\r\nRowData = ExpInfo<1,Row>\r\nif Row > 1 and RowData <> '' then\r\n ExpInfo = delete( ExpInfo, 1, Row, 0 )\r\n ExpInfo = insert( ExpInfo, 1, 1, 0, RowData )\r\n .export_info->array = ExpInfo\r\n .export_info->selpos = 1:@fm:1\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/EXPORTS.EXPORT_INFO.json b/LSL2/OIEVENT/CLICK/EXPORTS.EXPORT_INFO.json new file mode 100644 index 0000000..64c3a5d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/EXPORTS.EXPORT_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/EXPORTS.NQUERY_INFO.json b/LSL2/OIEVENT/CLICK/EXPORTS.NQUERY_INFO.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/EXPORTS.NQUERY_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/EXPORTS.QUERY_INFO.json b/LSL2/OIEVENT/CLICK/EXPORTS.QUERY_INFO.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/EXPORTS.QUERY_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/EXPORTS2.BUTTON_1.json b/LSL2/OIEVENT/CLICK/EXPORTS2.BUTTON_1.json new file mode 100644 index 0000000..c2be1c3 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/EXPORTS2.BUTTON_1.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\ndeclare function msg\r\n$insert msg_equates\r\n\r\nOperator = .operator->text\r\nCompVal = trim( .compval->text )\r\nif CompVal <> '' then\r\n if Operator then\r\n end_dialog( @window, Operator:' ':CompVal ) \r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have an operator if you have a comparison value.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n if Operator then\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'You must have a comparison value if you have an operator.'\r\n\t MsgInfo = '!'\r\n\t Void = msg( '', MsgInfo )\r\n\tend else\r\n\t end_dialog( @window, '' ) ;* wants to wipe out\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/EXPORTS2.BUTTON_2.json b/LSL2/OIEVENT/CLICK/EXPORTS2.BUTTON_2.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/EXPORTS2.BUTTON_2.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/GAN_PM.CANCEL.json b/LSL2/OIEVENT/CLICK/GAN_PM.CANCEL.json new file mode 100644 index 0000000..e07e12f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/GAN_PM.CANCEL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\ndeclare subroutine end_dialog\r\n\r\nopen 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\nunlock ConfigTable, 'MASTER_CALIB_LIST' else\r\n *Void = msg( '', 'Unable to unlock CONFIG MASTER_CALIB_LIST')\r\n * may not have locked if user does not have proper security\r\nend\r\nend_dialog( @window, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/GAN_PROD_SPEC.BUTTON_13.json b/LSL2/OIEVENT/CLICK/GAN_PROD_SPEC.BUTTON_13.json new file mode 100644 index 0000000..ad39364 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/GAN_PROD_SPEC.BUTTON_13.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function repository, entid\r\n\r\nPopupId = entid( @appid<1>, 'POPUP', '', 'RATIO_TYPES' )\r\nChosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\nRArray = ''\r\nbegin case\r\n\tcase ChosenRow = \"AP\"\r\n\t\tRArray = '35/40/86/86/86/40/40/50/30/86'\r\n\tcase ChosenRow = \"Kit 2000-PEP\"\r\n\t\tRArray = '33/33/70/70/70/60/60/60/33/70'\r\n\tcase ChosenRow = \"PEP\"\r\n\t\tRArray = '35/40/75/75/75/40/40/50/30/75'\t\r\n\tcase ChosenRow = \"RP\"\r\n\t\tRArray = '35/45/70/70/70/40/40/40/30/70'\t\r\n\tcase ChosenRow = \"DSP\"\t\t\t\r\n\t\tRArray = '45/50/86/86/86/40/40/50/30/86'\r\nend case\r\nconvert '/' to @vm in RArray\r\nif RArray <> '' then\r\n .ratio_info->array = RArray\r\n @@window->savewarn = 1\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/GAN_PROD_SPEC.CTRL_PLAN.json b/LSL2/OIEVENT/CLICK/GAN_PROD_SPEC.CTRL_PLAN.json new file mode 100644 index 0000000..e29803e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/GAN_PROD_SPEC.CTRL_PLAN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, set_printer, get_printer, msg, entid, repository\r\ndeclare function print_quote, MemberOf\r\ndeclare subroutine security_err_msg, Print_Control_Plan, Print_Control_Plan_JCH\r\n\r\n$insert security_rights_equ\r\n$insert msg_equates\r\n$insert logical\r\n\r\nif security_check( 'Prod Spec', Print$ ) then\r\n\tif @@window->savewarn = true$ then\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo = 'You need to save this PSN before printing.'\r\n\t\tMsgInfo = '!'\r\n\t\tVoid = msg( '', MsgInfo )\r\n\t\treturn 0\r\n\tend else\r\n\t\tPSNo = .prod_spec_id->text\r\n\t\tPrint_Control_Plan(PSNo)\r\n\tend\r\nend else\r\n security_err_msg( 'Prod Spec', Print$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/GAN_PROD_SPEC.DUP_PSN.json b/LSL2/OIEVENT/CLICK/GAN_PROD_SPEC.DUP_PSN.json new file mode 100644 index 0000000..a933995 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/GAN_PROD_SPEC.DUP_PSN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Next_Key, send_event, msg, security_check, fieldcount, NextKey\r\nDECLARE SUBROUTINE security_err_msg, delete_row, ErrMsg, Comm_Prod_Spec\r\n\r\n$INSERT Security_Rights_Equ\r\n$INSERT Quote_Spec_Equ\r\n$INSERT PROD_SPEC_EQUATES\r\n\r\n\r\nIF Security_Check( 'Prod Spec', Write$ ) THEN\r\n\r\n \r\n\tOrgPSNo\t= Get_Property(@WINDOW:'.PROD_SPEC_ID','TEXT')\r\n\tvoid\t= Send_Event(@WINDOW,'WRITE')\r\n\tOrgRec\t= XLATE('PROD_SPEC',OrgPSNo,'','X')\r\n\t\r\n\t\r\n * Rat Hole Data\r\n\t\r\n\tPartNums\t= OrgRec\r\n QualReacts\t= OrgRec\r\n SpecEpi\t\t= OrgRec\r\n SpecAddl\t= OrgRec\r\n SpecSub\t\t= OrgRec\r\n\r\n NewRec = OrgRec\r\n \r\n CONVERT CHAR(248) TO @FM IN SpecEpi\r\n \r\n\tLayerCnt = COUNT(SpecEpi,@FM) + (SpecEpi NE '')\r\n\t\r\n\tFOR I = 1 TO LayerCnt\r\n\t SpecEpi\t= ''\r\n\t\tSpecEpi\t= ''\r\n\t\tSpecEpi\t\t= ''\r\n\t\tSpecEpi\t= ''\r\n\t\tSpecEpi\t= ''\r\n\t\tSpecEpi\t\t= ''\r\n\t\tSpecEpi\t\t= ''\r\n\t\tSpecEpi\t\t= ''\r\n\t\tSpecEpi\t\t= ''\r\n\t\t*SpecEpi\t\t= ''\r\n\t\t*SpecEpi\t\t= ''\r\n\t\t*SpecEpi\t= ''\r\n\t\tSpecEpi\t= ''\r\n\t\tSpecEpi\t\t= ''\r\n\t\tSpecEpi\t= ''\r\n\tNEXT I\r\n\t\r\n\tCONVERT @FM TO CHAR(248) IN SpecEpi\r\n\t\r\n\t\r\n\t*SpecAddl<1,QSAddProdSig$>\t\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddQualSig$>\t\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\tSpecAddl<1,QSAddStressMeasure$>\t\t= ''\r\n\tSpecAddl<1,QSAddTransMeasure$>\t\t= ''\r\n\tSpecAddl<1,QSAddStressMin$>\t\t\t= ''\r\n\tSpecAddl<1,QSAddStressMax$>\t\t\t= ''\r\n\tSpecAddl<1,QSAddTransSpec$>\t\t\t= ''\r\n\t*SpecAddl<1,QSAddPreProdSig$>\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddPreQualSig$>\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddProdSigDate$>\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddProdSigTime$>\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddQualSigDate$>\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddQualSigTime$>\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddPreProdSigDate$>\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddPreProdSigTime$>\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddPreQualSigDate$>\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddPreQualSigTime$>\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t\r\n\t\r\n\tNewRec\t\t\t= SpecEpi\r\n\tNewRec\t\t= SpecAddl\r\n\tNewRec \t\t= Date()\t\t;* .entry_date->text\t\t= oconv( date(), 'D2/' )\r\n\tNewRec\t\t\t= @USER4\t\t;* .entry_id->text\t\t\t= oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\tNewRec\t\t\t= 'I'\t\t\t;*\t.status->value\t\t\t= 'I'\r\n\tNewRec\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t= ''\t\t\t;* Added 1/13/2009 JCH, J.C. Henry & Co., Inc.\r\n\tNewRec\t\t\t= ''\t\t\t;* Added 1/13/2009 JCH, J.C. Henry & Co., Inc.\r\n\tNewRec\t\t= ''\t\t\t;* Added 1/13/2009 JCH, J.C. Henry & Co., Inc.\r\n\tNewRec\t= ''\t\t\t;* Added 1/17/2011 JCH, J.C. Henry & Co., Inc.\r\n\tNewRec\t= ''\t\t\t;* Added 1/17/2011 JCH, J.C. Henry & Co., Inc.\r\n\t\r\n\tNewRec\t\t\t= ''\t\t\t;* Added 8/22/2012 JCH, J.C. Henry & Co., Inc.\r\n\tNewRec\t\t= ''\t\t\t;* Added 8/22/2012 JCH, J.C. Henry & Co., Inc.\r\n\t\r\n\t\r\n\t\r\n\t* Shipping_Info items\r\n\t\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t\t= ''\r\n\tNewRec\t\t= ''\r\n\tNewRec\t\t\t\t= ''\r\n\tNewRec\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t= ''\r\n\t\r\n\tNewRec\t\t\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t\t= ''\r\n\tNewRec\t\t\t\t= ''\t\r\n\tNewRec\t\t= ''\r\n\t\r\n\tNewRec\t\t\t= ''\r\n\r\n\r\n\tNextPSKey = NextKey('PROD_SPEC')\r\n\t\r\n\tOPEN 'PROD_SPEC' TO PSTable THEN\r\n\t\tWRITE NewRec ON PSTable,NextPSKey THEN\r\n\t\t\tvoid = Set_Property(@WINDOW:'.PROD_SPEC_ID','TEXT',NextPSKey)\r\n\t\t\tvoid = Send_Event(@WINDOW:'.PROD_SPEC_ID','LOSTFOCUS')\r\n\t\tEND ELSE\r\n\t\t\tErrMsg('Unable to write new PSN ':QUOTE(NextPSKey):' on PROD_SPEC file.')\r\n\t\tEND\r\n\tEND ELSE\r\n\t\tErrMsg('Unable to open PROD_SPEC table for write.')\r\n\tEND\r\n\tRETURN 0\r\n\t\r\nEND ELSE\r\n Security_Err_Msg( 'Prod Spec', Write$ )\r\nEND\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/GAN_PROD_SPEC.PHX_BTN_CLEAR_FIX.json b/LSL2/OIEVENT/CLICK/GAN_PROD_SPEC.PHX_BTN_CLEAR_FIX.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/GAN_PROD_SPEC.PHX_BTN_CLEAR_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/GAN_PROD_SPEC.PHX_QBF_FIRST_FIX.json b/LSL2/OIEVENT/CLICK/GAN_PROD_SPEC.PHX_QBF_FIRST_FIX.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/GAN_PROD_SPEC.PHX_QBF_FIRST_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/GAN_PROD_SPEC.PHX_QBF_LAST_FIX.json b/LSL2/OIEVENT/CLICK/GAN_PROD_SPEC.PHX_QBF_LAST_FIX.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/GAN_PROD_SPEC.PHX_QBF_LAST_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/GAN_PROD_SPEC.PHX_QBF_NEXT_FIX.json b/LSL2/OIEVENT/CLICK/GAN_PROD_SPEC.PHX_QBF_NEXT_FIX.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/GAN_PROD_SPEC.PHX_QBF_NEXT_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/GAN_PROD_SPEC.PHX_QBF_PREV_FIX.json b/LSL2/OIEVENT/CLICK/GAN_PROD_SPEC.PHX_QBF_PREV_FIX.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/GAN_PROD_SPEC.PHX_QBF_PREV_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/GAN_PROD_SPEC.RET_PSN_BUTTON.json b/LSL2/OIEVENT/CLICK/GAN_PROD_SPEC.RET_PSN_BUTTON.json new file mode 100644 index 0000000..c781341 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/GAN_PROD_SPEC.RET_PSN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function end_window, msg, send_event, post_event\r\ndeclare subroutine record_lock\r\n$insert logical\r\n\r\nProdSpecID = .prod_spec_id->text\r\nopen 'SYSLISTS' to SysListsTable else\r\n Void = msg( '', 'Unable to open SYSLISTS...' )\r\n return 0\r\nend\r\nPrevWindow = get_property( @window, '@PrevWindow' )\r\nRecordId = 'PROD_SPEC*':@station\r\nrecord_lock( SysListsTable, 'SysLists', RecordId )\r\nwritev ProdSpecID on SysListsTable, RecordId, 1 else\r\n Void = msg( '', 'Unable to write ':ProdSpecID:' on SYSLISTS ':RecordId )\r\n return 0\r\nend\r\nunlock SysListsTable, RecordId else\r\n Void = msg( '', 'Unable to unlock SYSLISTS ':RecordId )\r\n return 0\r\nend\r\nopen 'PROD_SPEC' to PSTable else\r\n Void = msg( '', 'Unable to open PROD_SPEC...' )\r\n return 0\r\nend\r\nunlock PSTable, ProdSpecID else\r\n Void = msg( '', 'Unable to unlock PROD_SPEC ':ProdSpecID )\r\n return 0\r\nend\r\nVoid = send_event( @window, 'WRITE' )\r\nVoid = end_window( @window, '' )\r\nbegin case\r\n case PrevWindow = 'Quote'\r\n Multi = get_property( 'QUOTE', '@ChoosingMultiPSN' ) \r\n if Multi then\r\n Void = post_event( 'QUOTE.PREV_PSNS', 'OMNIEVENT' ) \r\n end else\r\n Void = post_event( 'QUOTE.PROD_SPEC_ID', 'OMNIEVENT' )\r\n end\r\n case PrevWindow = 'CAR'\r\n Void = post_event( 'CAR.PROD_SPEC_ID', 'OMNIEVENT' ) \r\n case PrevWindow = 'WO-Log'\r\n Void = post_event( 'WO_LOG.PROD_SPEC_ID', 'OMNIEVENT' ) \r\n case PrevWindow = 'Order'\r\n Void = post_event( 'ORDER.ORDER_DETAIL', 'OMNIEVENT', 'PSN' ) \r\n case PrevWindow = 'SRP'\r\n Void = post_event( 'SRP_COC_RESULTS.PROD_SPEC_ID', 'OMNIEVENT' ) \r\nend case\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/GAN_PROD_SPEC.VIEW_QUOTES_FIX.json b/LSL2/OIEVENT/CLICK/GAN_PROD_SPEC.VIEW_QUOTES_FIX.json new file mode 100644 index 0000000..d89d616 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/GAN_PROD_SPEC.VIEW_QUOTES_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, relational_call, rowexists, start_window, msg, Popup, Get_Status\r\ndeclare subroutine security_err_msg, obj_Appwindow, ErrMsg\r\n$insert msg_equates\r\n$insert POPUP_EQUATES\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Quote', Read$ ) then\r\n\tPSN = .prod_spec_id->text\r\n\tif PSN then\r\n\t\tif rowexists( 'PROD_SPEC', PSN ) then\r\n\t\t\tQuoteKeys = XLATE('PROD_SPEC',PSN,'QUOTE_KEYS','X')\r\n\t\t\tIF QuoteKeys = '' THEN\r\n\t\t\t\tErrMsg('No Quotes referring to this PSN on file')\r\n\t\t\t\tRETURN 0\r\n\t\t\tEND\r\n\t\t\tIF INDEX(QuoteKeys,@VM,1) THEN\r\n\t\t\t\tTypeOver = ''\r\n\t\t\t\tTypeOver = 'K'\r\n\t\t\t\tTypeOver = QuoteKeys\r\n\t\t\t\tQuoteKey = Popup(@WINDOW,TypeOver,'SHOW_QUOTES')\r\n\t\t\t\t\r\n\t\t\tEND ELSE\r\n\t\t\t\tQuoteKey = QuoteKeys\r\n\t\t\tEND\r\n\t\t\t\r\n\t\t\tIF QuoteKey NE '' THEN\r\n\t\t\t \tobj_Appwindow('ViewRelated','QUOTE2':@RM:QuoteKey)\r\n\t\t\tEND\r\n \t\t\r\n\t\tend else\r\n\t\t MsgInfo = ''\r\n\t\t MsgInfo = 'You must save this PSN first...'\r\n\t\t MsgInfo = '!'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t\tend\r\n\tend else\r\n\t MsgRec = ''\r\n\t MsgRec = 'You must retrieve a PSN first...' \r\n\t MsgRec = '!'\r\n\t Void = msg( '', MsgRec ) \r\n\tend\r\nend else\r\n security_err_msg( 'Quote', Read$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/GASBAR.BUTTON_1.json b/LSL2/OIEVENT/CLICK/GASBAR.BUTTON_1.json new file mode 100644 index 0000000..ebe7785 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/GASBAR.BUTTON_1.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\ndeclare subroutine rlist\r\n$insert logical\r\n$insert rlist_equates\r\n\r\nCurrentSize = .gasbar->size\r\nNewSize = CurrentSize\r\nNewSize<3> = 0\r\n.gasbar->size = NewSize\r\n.gasbar->visible = 1\r\nopen 'COMPANY' to CompanyFile else\r\n Void = msg( '', 'Unable to open company file...' )\r\n return 0\r\nend\r\nrlist( 'SELECT COMPANY', target_activelist$, '', '', '' )\r\n@rn.counter = 0\r\nEof = false$\r\nTenPercent = iconv( @reccount*.1, 'MD0' )\r\nVoid = msg( '', TenPercent )\r\nloop\r\n readnext Id else Eof = true$\r\nuntil Eof\r\n if mod( @rn.counter, TenPercent ) else\r\n\t NewWidth = CurrentSize<3> * @rn.counter/@reccount\r\n\t .percent_complete->text = oconv(iconv( @rn.counter/@reccount*100, 'MD0' ), 'MD0' ):'%'\r\n\t NewSize<3> = NewWidth\r\n\t .gasbar->redraw = 0\r\n\t .gasbar->size = NewSize\r\n\t .gasbar->redraw = 1\r\n end\r\nrepeat\r\nNewWidth = CurrentSize<3> * @rn.counter/@reccount\r\n.percent_complete->text = oconv(iconv( @rn.counter/@reccount*100, 'MD0' ), 'MD0' ):'%'\r\nNewSize<3> = NewWidth\r\n.gasbar->redraw = 0\r\n.gasbar->size = NewSize\r\n.gasbar->redraw = 1\r\nvoid = msg( '', 'DONE' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/HOTH2O2_LOG.BUTTON_5.json b/LSL2/OIEVENT/CLICK/HOTH2O2_LOG.BUTTON_5.json new file mode 100644 index 0000000..11a63e4 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/HOTH2O2_LOG.BUTTON_5.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo = 'This log has already been signed.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/HOTH2O2_LOG.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/HOTH2O2_LOG.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/HOTH2O2_LOG.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/HOTH2O2_LOG.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/HOTH2O2_LOG.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/HOTH2O2_LOG.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/HOTH2O2_LOG.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/HOTH2O2_LOG.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/HOTH2O2_LOG.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/HOTH2O2_LOG.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/HOTH2O2_LOG.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/HOTH2O2_LOG.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/HOTH2O2_LOG.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/HOTH2O2_LOG.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/HOTH2O2_LOG.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/HOTH2O2_LOG_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/HOTH2O2_LOG_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..2f9bcb7 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/HOTH2O2_LOG_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, ex_vm_rem\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.HOTH2O2_LOG' to DictHotH2O2LogTable else\r\n Void = msg( '', 'Unable to open DICT.HOTH2O2_LOG...' )\r\n return 0\r\nend\r\nSearchStr = ''\r\nDateFrom = .date_from->text\r\nDateThru = .date_thru->text\r\nTechIDs = ex_vm_rem( .techs->array<1> )\r\n\r\nswap @vm:@vm with '' in TechIDs\r\nif TechIDs[-1,1] = @vm then TechIDs[-1,1] = ''\r\nif TechIDs then\r\n SearchStr<-1> = 'TECH_SIG':@vm:TechIDs\r\nend\r\n\r\nif DateFrom and DateThru then\r\n SearchStr<-1> = 'DATE_CHANGED':@vm:DateFrom:'...':DateThru\r\nend else\r\n\tif DateFrom then\r\n\t SearchStr<-1> = 'DATE_CHANGED':@vm:'>=':DateFrom\r\n\tend\r\n\tif DateThru then\r\n\t SearchStr<-1> = 'DATE_CHANGED':@vm:'<=':DateThru\r\n\tend\r\nend\r\n\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'HOTH2O2_LOG', DictHotH2O2LogTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting Hot Peroxide Log records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'HOTH2O2_LOG', '#DATE_CHANGED':@fm:'#TIME_CHANGED', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/HOTH2O2_LOG_QUERY.TECHS.json b/LSL2/OIEVENT/CLICK/HOTH2O2_LOG_QUERY.TECHS.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/HOTH2O2_LOG_QUERY.TECHS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ICAR.NON_CONF_SETUP.json b/LSL2/OIEVENT/CLICK/ICAR.NON_CONF_SETUP.json new file mode 100644 index 0000000..49783ab --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ICAR.NON_CONF_SETUP.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function start_window\r\n\r\nVoid = start_window ( 'ICAR_NONCONF', @window, '*CENTER', '', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ICAR_NONCONF.CANCEL.json b/LSL2/OIEVENT/CLICK/ICAR_NONCONF.CANCEL.json new file mode 100644 index 0000000..8653e9e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ICAR_NONCONF.CANCEL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\ndeclare subroutine end_dialog\r\n\r\nopen 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\nunlock ConfigTable, 'ICAR_NONCONFORMANCE' else\r\n Void = msg( '', 'Unable to unlock CONFIG ICAR_NONCONFORMANCE')\r\nend\r\nend_dialog( @window, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ICAR_NONCONF.NONCONF.json b/LSL2/OIEVENT/CLICK/ICAR_NONCONF.NONCONF.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ICAR_NONCONF.NONCONF.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ICAR_NONCONF.SAVE.json b/LSL2/OIEVENT/CLICK/ICAR_NONCONF.SAVE.json new file mode 100644 index 0000000..cde01d4 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ICAR_NONCONF.SAVE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, fieldcount\r\ndeclare subroutine end_dialog\r\n$insert icar_nonconformance_equ\r\n\r\nopen 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\nNonConf = .nonconf->array\r\nProcs = NonConf<1>\r\n* LOOP THROUGH ALL PROCS AND PULL OFF ONLY PROC AND NUMBER BUT NOT THE RELEASE\r\n* AND STORE IN FIELD<3> ON RECORD FOR CONVERSION TO USE\r\nPcnt = fieldcount( Procs, @vm )\r\nProcNoRev = ''\r\nfor i = 1 to Pcnt\r\n TNonConf = NonConf<1,i>\r\n * IF IT IS A GP THEN ONLY NEED FIRST TWO PIECES\r\n convert @lower_case to @upper_case in TNonConf\r\n if TNonConf[1,2] = 'GP' then\r\n ProcNoRev<1,i> = field( NonConf<1,i> , '-', 1, 2 ) \r\n end else\r\n ProcNoRev<1,i> = field( NonConf<1,i> , '-', 1, 3 )\r\n end\r\nnext i\r\nNonConf = ProcNoRev\r\nwrite NonConf on ConfigTable, 'ICAR_NONCONFORMANCE' else\r\n Void = msg( '', 'Unable to write ICAR_NONCONFORMANCE in CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\nunlock ConfigTable, 'ICAR_NONCONFORMANCE' else\r\n Void = msg( '', 'Unable to unlock ICAR_NONCONFORMANCE in CONFIG table' )\r\nend\r\nend_dialog( @window, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ICAR_QUERY.BUTTON_3.json b/LSL2/OIEVENT/CLICK/ICAR_QUERY.BUTTON_3.json new file mode 100644 index 0000000..872ef20 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ICAR_QUERY.BUTTON_3.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, ex_vm_rem, Get_Status\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.ICAR' to DictICARTable else\r\n Void = msg( '', 'Unable to open DICT.ICAR...' )\r\n return 0\r\nend\r\nSearchStr = ''\r\nIssDateFrom = .issue_date_from->text\r\nIssDateThru = .issue_date_thru->text\r\nRespIds = .resp_supervisor_id->array<1>\r\nNonConformances = .nonconformances->array<1>\r\nUserIds\t\t\t= .emp_id_info->array<1>\r\n\r\n\r\n\r\n* ICAR status variables\r\n\r\nOpen = .open_check->check\r\nFormComplete = .form_complete_check->check\r\nVerified = .verified_check->check\r\nRMA = .rma->check\r\nConfirmed = .confirmed_check->check\r\nUnconfirmed = .unconfirmed_check->check\r\n\r\n* PROLEM TYPE VARIABLES\r\n\r\nMajor = .major_check->check\r\nMinor = .minor_check->check\r\nImprovement\t= .improvement_check->check\r\n\r\n\r\nRespIds = ex_vm_rem(RespIds)\r\n\r\nif RespIds then\r\n SearchStr<-1> = 'RESP_SUPERVISOR_ID':@vm:RespIds\r\nend\r\n\r\nUserIds = ex_vm_rem(UserIds)\r\n\r\nIF UserIds THEN\r\n\tSearchStr<-1> = 'USER_ID':@vm:UserIds\r\nEND\r\n\r\nNonConformances = ex_vm_rem(NonConformances)\r\n\r\nif NonConformances then\r\n SearchStr<-1> = 'NON_CONF':@vm:NonConformances\r\nend\r\n\r\n\r\nif IssDateFrom and IssDateThru then\r\n SearchStr<-1> = 'ENTRY_DATE':@vm:IssDateFrom:'...':IssDateThru\r\nend else\r\n\tif IssDateFrom then\r\n\t SearchStr<-1> = 'ENTRY_DATE':@vm:'>=':IssDateFrom\r\n\tend\r\n\tif IssDateThru then\r\n\t SearchStr<-1> = 'ENTRY_DATE':@vm:'<=':IssDateThru\r\n\tend \r\nend\r\n\r\n* ICAR status\r\n\r\nICARStatusVar = ''\r\nif Open\t\t\tthen ICARStatusVar<1,-1> = 'O'\r\nif FormComplete\tthen ICARStatusVar<1,-1> = 'F'\r\nif Verified\t\tthen ICARStatusVar<1,-1> = 'V'\r\n\r\nif ICarStatusVar then SearchStr<-1> = 'STATUS':@vm:ICARStatusVar\r\n\r\n\r\n* PROBLEM TYPE\r\nProblemTypeVar = ''\r\nif Major\t\tthen ProblemTypeVar<1,-1> = 'M'\r\nif Minor \t\tthen ProblemTypeVar<1,-1> = 'I'\r\nif Improvement\tthen ProblemTypeVar<1,-1> = 'A'\r\n\r\nif ProblemTypeVar then SearchStr<-1> = 'PROBLEM_TYPE':@vm:ProblemTypeVar\r\n\r\n\r\n* Shift\r\n\r\nShiftNoVar = ''\r\n\r\nIF .shift1_check->check THEN ShiftNoVar<1,-1> = '1'\r\nIF .shift2_check->check THEN ShiftNoVar<1,-1> = '2'\r\nIF .shift3_check->check THEN ShiftNoVar<1,-1> = '3'\r\nIF .shift4_check->check THEN ShiftNoVar<1,-1> = '4'\r\n\r\nIF ShiftNoVar THEN SearchStr<-1> = 'SHIFT':@VM:ShiftNoVar\r\n\r\n* CONFIRMATION status\r\nCONStatusVar = ''\r\nif Confirmed then\r\n CONStatusVar<1,-1> = 'C'\r\nend\r\nif UnConfirmed then\r\n CONStatusVar<1,-1> = 'U'\r\nend\r\nif CONStatusVar then\r\n SearchStr<-1> = 'CONFIRM_STATUS':@vm:CONStatusVar\r\nend\r\n\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n \r\n btree.extract( SearchStr, 'ICAR', DictICARTable, Keys, '', Flag )\r\n IF Get_Status(errCode) THEN\r\n \tCALL ErrMsg(errCode)\r\n \tRETURN\r\n END\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'ICAR', '#ISSUE_DATE', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE.BILL_TO_ADDR.json b/LSL2/OIEVENT/CLICK/INVOICE.BILL_TO_ADDR.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE.BILL_TO_ADDR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE.CHECK_DETAIL.json b/LSL2/OIEVENT/CLICK/INVOICE.CHECK_DETAIL.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE.CHECK_DETAIL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE.INVOICE_DETAIL.json b/LSL2/OIEVENT/CLICK/INVOICE.INVOICE_DETAIL.json new file mode 100644 index 0000000..1336656 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE.INVOICE_DETAIL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 or Col = 3 or Col = 14 or Col = 15 or Col = 16 else\r\n Void = editcell( CtrlEntId, '' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/INVOICE.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/INVOICE.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/INVOICE.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/INVOICE.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/INVOICE.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE.PRINT_INVOICE.json b/LSL2/OIEVENT/CLICK/INVOICE.PRINT_INVOICE.json new file mode 100644 index 0000000..06a8b7a --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE.PRINT_INVOICE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, set_printer, get_printer, msg, fieldcount, Printer_Select\r\ndeclare function winexec, entid, repository, ex_vm_rem, send_event, obj_Install, Get_Property\r\ndeclare subroutine security_err_msg\r\n\r\n$insert security_rights_equ\r\n$insert oiprint_equates\r\n$insert msg_equates\r\n$insert quote_equ\r\n$insert quote_spec_equ\r\n$insert prod_spec_equ\r\n\r\n* text field equates\r\nequ InvoiceNo$ to 1\r\nequ BillToAttn$ to 2\r\nequ BillToCity$ to 3\r\nequ BillToState$ to 4\r\nequ BillToZip$ to 5\r\nequ ShipToAttn$ to 6\r\nequ ShipToCity$ to 7\r\nequ ShipToState$ to 8\r\nequ ShipToZip$ to 9\r\nequ CustNo$ to 10\r\nequ ShipDate$ to 11\r\nequ ShipperInfo$ to 12\r\nequ Terms$ to 13\r\nequ PO$ to 14\r\nequ InvoiceNotes$ to 15\r\nequ BillToCo$ to 16\r\nequ ShipToCo$ to 17\r\n*\r\nequ Item$ to 1\r\nequ QuoteNo$ to 2\r\nequ Wo$ to 4\r\nequ PartNum$ to 5\r\nequ LotNum$ to 6\r\nequ Quantity$ to 10\r\nequ Price$ to 13\r\nequ Amount$ to 14\r\nequ PSN$ to 15\r\nequ ODItemNo$\tto 17\r\nequ PNDesc$\t\tto 18\r\n*\r\nequ ChkNo$ to 1\r\nequ ChkDate$ to 2\r\nequ ChkAmount$ to 3\r\n*\r\nif ( @@window->qbflist <> '' ) and ( @@window->savewarn ) then\r\n\tMsgInfo = ''\r\n\tMsgInfo = 'You must save this invoice first...'\r\n\tMsgInfo = 'H'\r\n\tVoid = msg( '', MsgInfo )\r\n\treturn 0\r\nend\r\nif security_check( 'Invoice', Print$ ) then\r\n PopupId = entid( @appid<1>, 'POPUP', '', 'INVOICE_PRINT_OPTS' )\r\n ChosenRows = repository( 'EXECUTE', PopupId, @window, '' )\r\n if ChosenRows else\r\n return 0 \r\n end\r\n PrePrint = ( index( ChosenRows, '1', 1 ) )\r\n PackList = ( index( ChosenRows, '2', 1 ) )\r\n if PackList then\r\n NumPrint = 2\r\n end else\r\n NumPrint = 1\r\n end\r\n QbfCnt = 1\r\n if @@window->qbflist <> '' then\r\n QbfCnt = fieldcount( @@window->qbflist, @fm )\r\n MsgInfo = ''\r\n MText = 'Do you want to print '\r\n if PackList then\r\n Mtext:= 'Packing Slips '\r\n end else\r\n MText:= 'Invoices '\r\n end\r\n MText:= ' for all these ':QbfCnt:' of these invoices?'\r\n MsgInfo = MText\r\n MsgInfo = '?'\r\n MsgInfo = 'BNYC'\r\n Ans = msg( '', MsgInfo )\r\n convert char(27) to '' in Ans\r\n end\r\n if PrePrint then\r\n PopupId = entid( @appid<1>, 'POPUP', '', 'INVOICE_PRINT_OPTS2' )\r\n InvType = repository( 'EXECUTE', PopupId, @window, '' )\r\n if InvType = 1 or InvType = 2 else\r\n return 0 ;* USER CANCELLED\r\n end\r\n end else\r\n InvType = ''\r\n end\r\n for ZzZ = 1 to QbfCnt\t \r\n\t * pull off variables\r\n\t TextFields = 'INVOICE_NO/BILL_TO_ATTN/BILL_TO_CITY/BILL_TO_STATE/BILL_TO_ZIP/'\r\n\t TextFields:= 'SHIP_TO_ATTN/SHIP_TO_CITY/SHIP_TO_STATE/SHIP_TO_ZIP/'\r\n\t TextFields:= 'CUST_NO/SHIP_DATE/SHIPPERINFO/TERMS/PO/CUST_INVOICE_NOTES/'\r\n\t TextFields:= 'BILL_TO_COMPANY/SHIP_TO_COMPANY'\r\n\t \r\n\t swap '/' with @rm:@window:'.' in TextFields\r\n\t TextFields = @window:'.':TextFields\r\n\t TextFields = get_property( TextFields, 'TEXT' )\r\n\t convert @rm to @fm in TextFields\r\n\t \r\n\t InvNotes = TextFields\r\n\t NotesOut = ''\r\n\t InvoiceBankNotes = xlate( 'CONFIG', 'INVOICE_BANK_NOTES', '', 'X' )\r\n\t if InvoiceBankNotes <> '' then\r\n\t InvNotes:= @fm:InvoiceBankNotes\r\n\t end\r\n\t swap char(13):char(10) with @fm in InvNotes\t \r\n\t Ncnt = fieldcount( InvNotes, @fm )\r\n\t for i = 1 to Ncnt\r\n\t if InvNotes <> '' then\r\n\t ThisPara = fmt( InvNotes, 'T#55' )\r\n\t convert @tm to @fm in ThisPara\r\n\t NotesOut := ThisPara:@fm\r\n\t end\r\n\t next i\r\n\t NotesOut[-1,1] = ''\r\n\t InvNotes = NotesOut\r\n\t NoteCnt = fieldcount( InvNotes, @fm )\r\n\t BillToAddress = .bill_to_addr->array\r\n\t ShipToAddress = .ship_to_addr->array\r\n\t LineItems = .invoice_detail->array\r\n\t FirstPSN = LineItems\r\n\t \r\n\t TotalShipAmount = .total_ship_amount->text\r\n\t TotalShipQty = .total_ship_quantity->text\r\n\t Balance = .balance->text\r\n\t \r\n\t OrderNo \t\t\t= Get_Property(@WINDOW:'.ORDER_NO','TEXT')\t\t\t\t\t;* 8/17/2005 by JCH - J.C. Henry & Co., Inc.\r\n\t VisionOrderNo \t= Get_Property(@WINDOW:'.VISION_ORDER_NO','TEXT')\t\t\t;* 8/17/2005 by JCH - J.C. Henry & Co., Inc.\r\n\t ShipNo\t\t\t= Get_Property(@WINDOW:'.SHIP_NO','TEXT')\t\t\t\t\t;* 8/17/2005 by JCH - J.C. Henry & Co., Inc.\r\n\t \t\r\n\t\tItems= LineItems\r\n\t\tLcnt = fieldcount( Items, @vm )\r\n\t\t\r\n\t\tIF VisionOrderNo NE '' THEN\r\n\t\t\tODItems = LineItems\t;* Order_Det item numbers\r\n\t\t\t\r\n\t\t\tFOR X = 1 TO Lcnt\r\n\t\t\tUNTIL Items<1,X> = ''\r\n\t\t\t\tVisionLineNo = XLATE('ORDER_DET',OrderNo:'*':ODItems<1,X>,18,'X')\r\n\t\t\t\tItems<1,X> = Items<1,X>:'/':VisionLineNo\r\n\t\t\tNEXT X\r\n\t\tEND\r\n\t\t\r\n\t\tMaxLines = 45\r\n\r\n\t if ( PrePrint and ZzZ = 1 ) then\r\n\t\t Pieces = int( Lcnt/MaxLines )\r\n\t\t Rnd = mod( Lcnt, MaxLines )\r\n\t\t Pieces += ( Rnd > 0 )\r\n\t\t MsgInfo = ''\r\n\t\t MsgInfo = 'Please insert ':(Pieces*QbfCnt):' piece(s) of preprinted invoice paper.'\r\n\t\t MsgInfo = '!'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t end\r\n\t \r\n\t\tWos\t\t\t= LineItems\r\n\t\tPartNums\t= LineItems\r\n\t\tPNDescs\t\t= LineItems\r\n\t\tFOR I = 1 TO COUNT(PartNums,@VM) + (PartNums NE '')\r\n\t\t\tPNDesc = PNDescs<1,I>\r\n\t\t\tPartNum = PartNums<1,I>\r\n\t\t\tIF INDEX(PartNum,PNDesc,1) ELSE\r\n \t\t\t\r\n \t\t\t\tPartNums<1,I> = PartNum:PNDesc\r\n \t\t\tEND\r\n \t\tNEXT I\r\n \r\n\t LotNums = LineItems\r\n\t QuoteNums = LineItems\r\n\t if FirstPSN then\r\n\t PSNId = FirstPSN\r\n\t end else\r\n\t PSNId = xlate( 'QUOTE', QuoteNums<1,1>, quote_prod_spec_id$, 'X' ) \r\n\t end\r\n\t TSub = xlate( 'PROD_SPEC', PSNId, prod_spec_spec_substrate$, 'X' )\r\n\t WSize = TSub<1,QSSubWafersize$>\r\n\t Quantity = LineItems\r\n\t Price = LineItems\r\n\t Amount = LineItems\r\n\t PSNos\t = LineItems\r\n\t \r\n\t * New Style PDF printing (OI7.1) added 1/29/04 John C. Henry, J.C. Henry & Co.\r\n\r\n\t\tFileNameParms = 'Printing Invoice':@FM: '' :@FM:'':@FM: ''\r\n\t\tPrintSetup\t= ''\r\n\t\t\r\n\t\tIF QbfCnt > 1 THEN\t\r\n\t\t\tPrintSetup<1,1> = 0\t\t;* Print to printer\r\n\t\t\tPrintsetup<1,2> = 2\t\t;* Hide print setup\r\n\t\t\tPrintSetup<1,3> = 0\t\t;\r\n\t\t\t\r\n\t\t\t\r\n\t\tEND ELSE\r\n\t\t\tPrintSetup<1,1>\t= '2'\t;* Preview Normal\r\n\t\t\tPrintSetup<1,2> = '5'\t;* Display all buttons except Printer Setup\r\n\t\t\tPrintSetup<1,3>\t= '0'\t;* Display Printing Window\r\n\t\tEND\r\n\t\tPrintSetup<1,6> = '7'\t;* Preview window - keyboard and mouse support\r\n\r\n\t\tstat = Set_Printer( 'INIT', FileNameParms, 'Invoice','':@fm:'':@fm:0:@fm:.25,'' , PrintSetup)\r\n\t \r\n\t \r\n\t *\tStat = set_printer( 'INIT', '', '', '':@fm:'':@fm:0:@fm:.25, 0, 0, PrintPath )\r\n\r\n\t \r\n\t \r\n\t gosub CheckErr\r\n\t Font = \"Courier New,9,L,1\"\r\n\t convert ',' to @fm in Font\r\n\t Hf = Font\r\n\t Stat = set_printer( 'FONT', Font )\r\n\t gosub CheckErr\r\n\t gosub PrintToF\r\n\t * print body\r\n\t\r\n\t for Dup = ChosenRows<1,1> to NumPrint\r\n\t for i = 1 to 23\r\n\t Stat = set_printer( 'TEXT', '' )\r\n\t next i\r\n\t LinesPrinted = 0\r\n\t if Dup = 2 then ;* \r\n\t Tfon = Hf\r\n Tfon<2> = 12\r\n Tfon<4> = 0\r\n stat = set_printer( 'TEXTXY', obj_Install('Get_Prop','Company'), .43:@fm:0, Tfon, 1 )\r\n Tfon<4> = 1 \r\n stat = set_printer( 'TEXTXY', obj_Install('Get_Prop','Divison'), .31:@fm:.19, Tfon, 1 )\r\n stat = set_printer( 'TEXTXY', 'Packing List', 5.25:@fm:0, Tfon, 1 ) \r\n Tfon<2> = 8\r\n stat = set_printer( 'TEXTXY', 'Phone: ':obj_Install('Get_Prop','Phone'), .63:@fm:.38, Tfon, 1 )\r\n stat = set_printer( 'TEXTXY', obj_Install('Get_Prop','Address'), .51:@fm:.5, Tfon, 1 )\r\n stat = set_printer( 'TEXTXY', obj_Install('Get_Prop','CSZ'), .63:@fm:.63, Tfon, 1 )\t \r\n \r\n\t \r\n\t end\r\n\t\t for i = 1 to Lcnt\r\n\t\t LineOut = fmt( Quantity<1,i>, 'R#7' ):' '\r\n\t\t LineOut:= fmt( Items<1,i>, 'L#6' ):' '\r\n\t\t LineOut:= fmt( Wos<1,i>, 'L#7' ):' '\r\n\t\t LineOut:= fmt( PartNums<1,i>, 'L#15' ):' '\r\n\t\t LineOut:= fmt( LotNums<1,i>, 'L#15' ): ' '\r\n\t\t LineOut:= fmt( QuoteNums<1,i>, 'R#10' ):' '\r\n\t\t LineOut := fmt( PSNos<1,i>, 'R#8' ):' '\r\n\t\t if Dup = 1 then\r\n\t\t LineOut:= fmt( Price<1,i>, 'R#12'):' '\t;* was 12\r\n\t\t LineOut:= fmt( Amount<1,i>, 'R#12' )\t\t;* was 10\r\n\t\t end\r\n\t\t \r\n\t\t \r\n\t\t Stat = set_printer( 'TEXT', LineOut )\r\n\t\t LinesPrinted += 1\r\n\t\t\t if LinesPrinted = MaxLines then\r\n\t\t\t gosub PageBreak\r\n\t\t\t end\r\n\t\t next i\r\n\t if InvNotes then\r\n\t for k = 1 to 5\r\n\t \t\tIF k = 2 THEN\r\n\t \t\t\tStat = Set_Printer('TEXT',' Order No: ':OrderNo)\r\n\t \t\tEND\r\n\t \t\t\r\n\t \t\tIF k = 3 THEN\r\n\t \t\t\tStat = Set_Printer('TEXT','Vision Order No: ':VisionOrderNo)\r\n\t \t\tEND\r\n\t \t\t\r\n\t \t\tIF k = 4 THEN\r\n\t \t\t\tStat = Set_Printer('TEXT','Packing List No: ':ShipNo)\r\n\t \t\tEND\r\n\t \t\t\r\n\t \t\tIF k = 1 OR k = 5 THEN\r\n\t \t\tstat = set_printer( 'TEXT', '' )\r\n\t \tEND\r\n\t LinesPrinted += 1\r\n\t if LinesPrinted = MaxLines then\r\n\t gosub PageBreak\r\n\t end\r\n\t next k\r\n\t stat = set_printer( 'TEXT', space(13):'NOTE:' )\r\n\t LinesPrinted += 1\r\n\t if LinesPrinted = MaxLines then \r\n\t gosub PageBreak\r\n\t end\r\n\t for Nc = 1 to NoteCnt\r\n\t stat = set_printer( 'TEXT', space(23):InvNotes )\r\n\t LinesPrinted += 1\r\n\t if LinesPrinted = MaxLines then\r\n\t gosub PageBreak\r\n\t end\r\n\t next Nc\r\n\t end\r\n\t if InvType = 2 then\r\n\t\t * CHECK FOR PAYMENT HISTORY AND THEN PRINT IT \r\n\t\t ChkArray = .check_detail->array\r\n\t\t DumCnt = fieldcount( ChkArray<1>, @vm )\r\n\t\t for i = DumCnt to 1 step -1\r\n\t\t if ChkArray<1,i> = '' and ChkArray<2,i> = '' and ChkArray<3,i> = '' then\r\n\t\t ChkArray = delete( ChkArray, 1, i, 0 )\r\n\t\t ChkArray = delete( ChkArray, 2, i, 0 )\r\n\t\t ChkArray = delete( ChkArray, 3, i, 0 )\t \r\n\t\t end\r\n\t\t next i\r\n\t\t ChkNos = ChkArray\r\n\t\t ChkDates = ChkArray\r\n\t\t ChkAmts = ChkArray\r\n\t\t if ChkNos <> '' then\r\n\t\t * THERE IS ACTUALLY DATA\r\n\t\t Ccnt = fieldcount( ChkNos, @vm )\r\n\t\t CurLNeeded = Ccnt+3; * 1 FOR EXTRA LINE, 1 FOR HEADING, 1 FOR COLHEADINGS\r\n\t\t if MaxLines - LinesPrinted >= CurLNeeded else\r\n\t\t gosub PageBreak\r\n\t\t end\r\n\t\t Font<3> = 'C'\r\n\t\t Void = set_printer( 'FONT', Font )\r\n\t\t Void = set_printer( 'TEXT', '' )\r\n\t\t Void = set_printer( 'TEXT', 'Payment History:' )\r\n\t\t Font<3> = 'L'\r\n\t\t Void = set_printer( 'FONT', Font )\r\n\t\t CurLine = 'Check#':@vm:'Date':@vm:'Amount'\r\n\t\t x = Set_Printer(\"ADDTABLE\", \">+1440\":@VM: \"^+1440\":@VM: \">+2160\", '', CurLine, \"\", \"\", 0, TB_ALL:@FM:'C' )\r\n\t\t for i = 1 to Ccnt\r\n\t\t CurLine = ChkNos<1,i>:@vm:ChkDates<1,i>:@vm:ChkAmts<1,i>\r\n\t\t\t\t x = Set_Printer(\"ADDTABLE\", \">+1440\":@VM: \"^+1440\":@VM: \">+2160\", '', CurLine, \"\", \"\", 1, TB_ALL:@FM:'C' )\r\n\t\t next i\r\n\t\t end\r\n\t\t end\r\n\t if Dup = 1 then\r\n\t stat = set_printer( 'TEXTXY', fmt( TotalShipQty, 'R#7' ), 0:@fm:9.63, Hf, 0 )\t \r\n\t stat = set_printer( 'TEXTXY', fmt( TotalShipAmount, 'R#30' ), 5.31:@fm:9.63, Hf, 0 ) \r\n\t if InvType = 2 then\r\n\t stat = set_printer( 'TEXTXY', fmt( 'Balance due: ':Balance, 'R#30' ), 5.31:@fm:10.06, Hf, 0 )\r\n\t end\r\n\t end else\r\n\t Stat = set_printer( 'TEXTXY', 'Total Qty Shipped:':fmt( TotalShipQty, 'R#7' ), 0:@fm:9.63, Hf, 0 )\t \r\n\t if Maxlines - LinesPrinted >= 8 then\r\n\t for zz = 1 to MaxLines-(LinesPrinted+8) ;* 8 is number of lines needed\r\n\t Void = set_printer( 'TEXT', '' )\r\n\t next zz\r\n\t end else\r\n\t gosub PageBreak\r\n\t end \r\n\t TableColInfo = '<+2160':@vm:'<+2160':@vm:'<+2160':@vm:'<+2160':@vm:'<+2160'\r\n\t Table = ''\r\n\t Table<1> = 'Date Shipped,Checked by,Packed by,Total Pieces,Total WT'\r\n\t Table<2> = ',,,,'\r\n\t convert ',' to @vm in Table\r\n\t x = Set_Printer(\"ADDTABLE\", TableColInfo, '', Table, '', '', 1, TB_BOX_COLUMNS)\r\n\t Table = ''\r\n Table<1> = 'Box1':@vm:'Box2':@vm:'Box3':@vm:'Box4':@vm:'Box5'\r\n Table<2> = ',,,,'\r\n convert ',' to @vm in Table \r\n x = Set_Printer(\"ADDTABLE\", TableColInfo, '', Table, '', '', 1, TB_BOX_COLUMNS)\r\n Table = '' \r\n Table<1> = 'Box6':@vm:'Box7':@vm:'Box8':@vm:'Box9':@vm:'Box10'\r\n Table<2> = ',,,,'\r\n convert ',' to @vm in Table\r\n x = Set_Printer(\"ADDTABLE\", TableColInfo, '', Table, '', '', 1, TB_BOX_COLUMNS)\r\n\t end\r\n\t if Dup = 1 and PackList then\r\n\t\t stat = set_printer( 'PAGEBREAK' )\r\n\t\t Stat = set_printer( 'TEXTXY', 'QTY', .31:@fm:2.94, Hf, 1 )\r\n\t stat = set_printer( 'LINESTYLE', ps_solid:@fm:1 ) \r\n\t stat = set_printer( 'LINE', .31:@fm:3.06:@fm:.61:@fm:3.06, 1 )\r\n\t \t end\r\n\t next Dup\r\n\t stat = set_printer( 'TERM' ) \r\n\t gosub CheckErr\r\n\t if QbfCnt > 1 then\r\n\t Void = send_event( @window, 'QBFNEXT' )\r\n\t end\r\n next ZzZ \r\nend else\r\n security_err_msg( 'Invoice', Print$ )\r\nend\r\nRETURN 0\r\n*===========================================================================*\r\nPrintTof:\r\n stat = set_printer( 'TEXTXY', \"V\":TextFields, 6.75:@fm:0, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', .entry_date->text, 6.38:@fm:.5, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', TextFields, .28:@fm:.94, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', TextFields, 4.5:@fm:.94, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', TextFields, .28:@fm:1.06, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', TextFields, 4.5:@fm:1.06, Hf, 1 )\r\n Ypos = 1.19\r\n for i = 1 to 4\r\n stat = set_printer( 'TEXTXY', BillToAddress<1,i>, .28:@fm:Ypos, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', ShipToAddress<1,i>, 4.5:@fm:Ypos, Hf, 1 )\r\n Ypos += .13\r\n next i\r\n stat = set_printer( 'TEXTXY', TextFields, .28:@fm:1.63, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', TextFields, 4.5:@fm:1.63, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', TextFields, 2.25:@fm:1.63, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', TextFields, 6.47:@fm:1.63, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', TextFields, 2.56:@fm:1.63, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', TextFields, 6.78:@fm:1.63, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', TextFields, .13:@fm:2.19, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', TextFields, .88:@fm:2.19, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', TextFields, 1.75:@fm:2.19, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', TextFields, 4.5:@fm:2.19, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', TextFields, 5.88:@fm:2.19, Hf, 1 )\r\n *\r\n stat = set_printer( 'TEXTXY', 'Qty', .25:@fm:2.94, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', 'Itm/VLn', .65:@fm:2.94, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', 'WO#', 1.23:@fm:2.94, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', 'Part Number', 1.80:@fm:2.94, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', 'Lot# ':WSize, 3.0:@fm:2.94, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', 'Quote #', 4.57:@fm:2.94, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', 'PSN', 5.195:@fm:2.94, Hf, 1)\r\n \r\n stat = set_printer( 'LINESTYLE', ps_solid:@fm:1 ) \r\n stat = set_printer( 'LINE', .25:@fm:3.06:@fm:.56:@fm:3.06, 1 ) \t\t;* Qty \r\n stat = set_printer( 'LINE', .65:@fm:3.06:@fm:.96:@fm:3.06, 1 )\t\t;* Item\r\n stat = set_printer( 'LINE', 1.23:@fm:3.06:@fm:1.6:@fm:3.06, 1 )\t\t;* WO Number\r\n stat = set_printer( 'LINE', 1.80:@fm:3.06:@fm:2.87:@fm:3.06, 1 )\t\t;* Part Number\r\n stat = set_printer( 'LINE', 3.0:@fm:3.06:@fm:4.44:@fm:3.06, 1 )\t\t;* Lot No\r\n stat = set_printer( 'LINE', 4.57:@fm:3.06:@fm:5.05:@fm:3.06, 1 )\t\t;* Quote No\r\n stat = set_printer( 'LINE', 5.195:@fm:3.06:@fm:5.695:@fm:3.06, 1)\t;* PSN\r\n \r\nreturn \r\n\r\n*===========================================================================*\r\nCheckErr:\r\n if stat < 0 then\r\n goto FatalExit\r\n end\r\nreturn \r\n\r\n*===========================================================================*\r\nFatalExit:\r\n Void = msg( '', Stat )\r\n Stat = set_printer( 'TERM' )\r\nreturn \r\n\r\n*===========================================================================*\r\nPageBreak:\r\n Stat = set_printer( 'PAGEBREAK' )\r\n\tLinesPrinted = 0\r\n for j = 1 to 22\r\n Stat = set_printer( 'TEXT', '' )\r\n next j\r\nreturn\r\n\r\n*===========================================================================*\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE.SHIP_TO_ADDR.json b/LSL2/OIEVENT/CLICK/INVOICE.SHIP_TO_ADDR.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE.SHIP_TO_ADDR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE.TRACKING_NO.json b/LSL2/OIEVENT/CLICK/INVOICE.TRACKING_NO.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE.TRACKING_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE2.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/INVOICE2.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE2.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE2.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/INVOICE2.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE2.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE2.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/INVOICE2.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE2.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE2.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/INVOICE2.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE2.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE2.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/INVOICE2.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE2.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_BANK_NOTES.BUTTON_1.json b/LSL2/OIEVENT/CLICK/INVOICE_BANK_NOTES.BUTTON_1.json new file mode 100644 index 0000000..ca4c8ad --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_BANK_NOTES.BUTTON_1.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, send_event\r\n$insert msg_equates\r\n\r\nopen 'CONFIG' to ConfigTable else\r\n msg( '', 'Unable to open config...' )\r\n return 0\r\nend\r\nwrite .cust_invoice_notes->text on ConfigTable, 'INVOICE_BANK_NOTES' else\r\n MsgInfo = ''\r\n MsgInfo = 'Unable to write to Invoice Banking Notes...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n Void = send_event( @window, 'CLOSE' )\r\n return 0\r\nend\r\nunlock ConfigTable, 'INVOICE_BANK_NOTES' else\r\n MsgInfo = ''\r\n MsgInfo = 'Unable to unlock Invoice Banking Notes...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n Void = send_event( @window, 'CLOSE' )\r\n return 0\r\nend\r\nVoid = send_event( @window, 'CLOSE' )\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_BANK_NOTES.BUTTON_2.json b/LSL2/OIEVENT/CLICK/INVOICE_BANK_NOTES.BUTTON_2.json new file mode 100644 index 0000000..60e4dc2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_BANK_NOTES.BUTTON_2.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, send_event\r\n$insert msg_equates\r\n\r\nopen 'CONFIG' to ConfigTable else\r\n msg( '', 'Unable to open config...' )\r\n return 0\r\nend\r\nunlock ConfigTable, 'INVOICE_BANK_NOTES' else\r\n MsgInfo = ''\r\n MsgInfo = 'Unable to unlock Invoice Banking Notes...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n Void = send_event( @window, 'CLOSE' )\r\n return 0\r\nend\r\nVoid = send_event( @window, 'CLOSE' )\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/INVOICE_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_QUERY.LOT_NUM.json b/LSL2/OIEVENT/CLICK/INVOICE_QUERY.LOT_NUM.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_QUERY.LOT_NUM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_QUERY.PART_NUM.json b/LSL2/OIEVENT/CLICK/INVOICE_QUERY.PART_NUM.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_QUERY.PART_NUM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/INVOICE_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..c627230 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.INVOICE' to DictInvoiceTable else\r\n Void = msg( '', 'Unable to open DICT.INVOICE...' )\r\n return 0\r\nend\r\nSearchStr = ''\r\nCustIds = .customer_info->array<1>\r\nShipDateFrom = .ship_date_from->text\r\nShipDateThru = .ship_date_thru->text\r\nDueDateFrom = .due_date_from->text\r\nDueDateThru = .due_date_thru->text\r\nInvFrom = .inv_from->text\r\nInvThru = .inv_thru->text\r\nOpen = .open_check->check\r\nClosed = .closed_check->check\r\n*EntryIds = .entry_ids->array<1>\r\nWo = .wo->array\r\nPo = .po->array\r\nLotNum = .lot_num->array\r\nPartNum = .part_num->array\r\n*QuoteNos = .quote_nos->array\r\n*OrderNos = .order_nos->array\r\nswap @vm:@vm with '' in Wo\r\nif Wo[-1,1] = @vm then Wo[-1,1] = ''\r\nswap @vm:@vm with '' in Po\r\nif Po[-1,1] = @vm then Po[-1,1] = ''\r\nswap @vm:@vm with '' in LotNum\r\nif LotNum[-1,1] = @vm then LotNum[-1,1] = ''\r\nswap @vm:@vm with '' in PartNum\r\nif PartNum[-1,1] = @vm then PartNum[-1,1] = ''\r\nswap @vm:@vm with '' in CustIds\r\nif CustIds[-1,1] = @vm then CustIds[-1,1] = ''\r\n*swap @vm:@vm with '' in EntryIds\r\n*if EntryIds[-1,1] = @vm then EntryIds[-1,1] = ''\r\n*swap @vm:@vm with '' in QuoteNos\r\n*if QuoteNos[-1,1] = @vm then QuoteNos[-1,1] = ''\r\n*swap @vm:@vm with '' in OrderNos\r\n*if OrderNos[-1,1] = @vm then OrderNos[-1,1] = ''\r\nif CustIds then\r\n SearchStr<-1> = 'CUST_NO':@vm:CustIds\r\nend\r\nif ShipDateFrom and ShipDateThru then\r\n SearchStr<-1> = 'SHIP_DATE':@vm:ShipDateFrom:'...':ShipDateThru\r\nend else\r\n\tif ShipDateFrom then\r\n\t SearchStr<-1> = 'SHIP_DATE':@vm:'>=':ShipDateFrom\r\n\tend\r\n\tif ShipDateThru then\r\n\t SearchStr<-1> = 'SHIP_DATE':@vm:'<=':ShipDateThru\r\n\tend\r\nend\r\nif DueDateFrom and DueDateThru then\r\n SearchStr<-1> = 'DUE_DATE':@vm:DueDateFrom:'...':DueDateThru\r\nend else\r\n\tif DueDateFrom then\r\n\t SearchStr<-1> = 'DUE_DATE':@vm:'>=':DueDateFrom\r\n\tend\r\n\tif DueDateThru then\r\n\t SearchStr<-1> = 'DUE_DATE':@vm:'<=':DueDateThru\r\n\tend\r\nend\r\n*if EntryIds then\r\n* SearchStr<-1> = 'ENTRY_ID':@vm:EntryIds\r\n*end\r\nStatusVar = ''\r\nif Open then\r\n StatusVar<1,-1> = 'O'\r\nend\r\nif Closed then\r\n StatusVar<1,-1> = 'C'\r\nend\r\nif StatusVar then\r\n SearchStr<-1> = 'STATUS':@vm:StatusVar\r\nend\r\nif Wo then\r\n SearchStr<-1> = 'WO':@vm:Wo\r\nend\r\nif Po then\r\n SearchStr<-1> = 'PO_NO':@VM:Po\r\nend\r\nif LotNum then\r\n SearchStr<-1> = 'LOT_NUM':@vm:LotNum\r\nend\r\nif PartNum then\r\n SearchStr<-1> = 'PART_NUM':@vm:PartNum\r\nend\r\n*if QuoteNos then\r\n* SearchStr<-1> = 'QUOTE_IDS':@vm:QuoteNos\r\n*end\r\n*if OrderNos then\r\n* SearchStr<-1> = 'ORDER_NOS':@vm:OrderNos\r\n*end\r\nOrderBySpecial = ''\r\nif InvFrom and InvThru then\r\n SearchStr<-1> = 'SEQ':@vm:'>=':InvFrom:'...':InvThru\r\n SearchStr<-1> = 'SEQ':@vm:'#CM]'\r\n SearchStr<-1> = 'SEQ':@vm:'#DM]'\r\n OrderBySpecial = 'SEQ'\r\nend else\r\n if InvFrom then\r\n SearchStr<-1> = 'SEQ':@vm:'>=':InvFrom\r\n SearchStr<-1> = 'SEQ':@vm:'#CM]'\r\n SearchStr<-1> = 'SEQ':@vm:'#DM]'\r\n\t OrderBySpecial = 'SEQ'\r\n end\r\n if InvThru then\r\n SearchStr<-1> = 'SEQ':@vm:'>=':InvThru\r\n SearchStr<-1> = 'SEQ':@vm:'#CM]'\r\n SearchStr<-1> = 'SEQ':@vm:'#DM]'\r\n \t OrderBySpecial = 'SEQ' \r\n end \r\nend\r\n\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'INVOICE', DictInvoiceTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting INVOICE records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n if OrderBySpecial then\r\n Keys = key_sort( Keys, 'INVOICE', OrderBySpecial, 1 ) \r\n end else\r\n Keys = key_sort( Keys, 'INVOICE', 'CUST_NAME':@fm:'#ENTRY_DATE', 1 )\r\n end\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_QUERY.PO.json b/LSL2/OIEVENT/CLICK/INVOICE_QUERY.PO.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_QUERY.PO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_QUERY.WO.json b/LSL2/OIEVENT/CLICK/INVOICE_QUERY.WO.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_QUERY.WO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_RPT1.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/INVOICE_RPT1.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_RPT1.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_RPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/INVOICE_RPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_RPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_RPT1.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/INVOICE_RPT1.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..5fc143a --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_RPT1.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function sched_rpt1, send_event, msg\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nCusts = .customer_info->array<1>\r\nswap @vm:@vm with '' in custs\r\nif Custs[-1,1] = @vm then custs[-1,1] = ''\r\nDueDateFrom = .due_date_from->text\r\nDueDateThru = .due_date_thru->text\r\nOpen = .open_check->check \r\nClosed = .closed_check->check\r\nPlant = .plant->text\r\nif DueDateFrom or DueDateThru then\r\n if Open or Closed then\r\n\t\tDirToPrint = .send_to_printer->text\r\n\t\tRetVal = Custs:'*':DueDateFrom:'*':DueDateThru:'*':Open:'*':Closed:'*':DirToPrint:'*':Plant\r\n\t\tend_dialog( @window, RetVal )\r\n\tend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must check an Open or Closed status.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a from date or a thru date.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_RPT2.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/INVOICE_RPT2.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_RPT2.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_RPT2.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/INVOICE_RPT2.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..3d536fc --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_RPT2.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function sched_rpt1, send_event, msg\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nEntryDateFrom = .entry_date_from->text\r\nEntryDateThru = .entry_date_thru->text\r\nPlant = .Plant->text\r\nif EntryDateFrom or EntryDateThru then\r\n\tDirToPrint = .send_to_printer->text\r\n\tRetVal = EntryDateFrom:'*':EntryDateThru:'*':DirToPrint:'*':Plant\r\n end_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a from date or a thru date.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_RPT3.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/INVOICE_RPT3.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_RPT3.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_RPT3.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/INVOICE_RPT3.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_RPT3.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_RPT3.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/INVOICE_RPT3.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..61bf908 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_RPT3.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function sched_rpt1, send_event, msg\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nCusts = .customer_info->array<1>\r\nswap @vm:@vm with '' in custs\r\nif Custs[-1,1] = @vm then custs[-1,1] = ''\r\nEntryDateFrom = .entry_date_from->text\r\nEntryDateThru = .entry_date_thru->text\r\nPlant = .Plant->text\r\nif EntryDateFrom or EntryDateThru then\r\n DirToPrint = .send_to_printer->text\r\n\tRetVal = Custs:'*':EntryDateFrom:'*':EntryDateThru:'*':DirToPrint:'*':Plant\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a from date or a thru date.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_RPT4.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/INVOICE_RPT4.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_RPT4.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_RPT4.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/INVOICE_RPT4.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_RPT4.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_RPT4.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/INVOICE_RPT4.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..61bf908 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_RPT4.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function sched_rpt1, send_event, msg\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nCusts = .customer_info->array<1>\r\nswap @vm:@vm with '' in custs\r\nif Custs[-1,1] = @vm then custs[-1,1] = ''\r\nEntryDateFrom = .entry_date_from->text\r\nEntryDateThru = .entry_date_thru->text\r\nPlant = .Plant->text\r\nif EntryDateFrom or EntryDateThru then\r\n DirToPrint = .send_to_printer->text\r\n\tRetVal = Custs:'*':EntryDateFrom:'*':EntryDateThru:'*':DirToPrint:'*':Plant\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a from date or a thru date.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_RPT5.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/INVOICE_RPT5.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_RPT5.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_RPT5.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/INVOICE_RPT5.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_RPT5.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_RPT5.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/INVOICE_RPT5.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..902c8d6 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_RPT5.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function sched_rpt1, send_event, msg\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nCusts = .customer_info->array<1>\r\nswap @vm:@vm with '' in custs\r\nif Custs[-1,1] = @vm then custs[-1,1] = ''\r\nPOs = .pos->array\r\nswap @vm:@vm with '' in POs\r\nif POs[-1,1] = @vm then POs[-1,1] = ''\r\nQuoteNos = .quote_nos->array\r\nswap @vm:@vm with '' in QuoteNos\r\nif QuoteNos[-1,1] = @vm then QuoteNos[-1,1] = ''\r\nEntryDateFrom = .entry_date_from->text\r\nEntryDateThru = .entry_date_thru->text\r\nDirToPrint = .send_to_printer->text\r\nRetVal = EntryDateFrom:'*':EntryDateThru:'*':Custs:'*':QuoteNos:'*':POs:'*':DirToPrint\r\nend_dialog( @window, RetVal )\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_RPT6.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/INVOICE_RPT6.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_RPT6.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_RPT6.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/INVOICE_RPT6.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_RPT6.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_RPT6.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/INVOICE_RPT6.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..06c4b03 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_RPT6.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function sched_rpt1, send_event, msg\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nCusts = .customer_info->array<1>\r\nswap @vm:@vm with '' in custs\r\nif Custs[-1,1] = @vm then custs[-1,1] = ''\r\nShipDateFrom = .ship_date_from->text\r\nShipDateThru = .ship_date_thru->text\r\n\r\nPDFPath = .PDF_PATH->TEXT\r\n\r\nif ShipDateFrom or ShipDateThru then\r\n if Custs then\r\n\t\tDirToPrint = .send_to_printer->text\r\n\t\tRetVal = Custs\r\n\t\tRetVal<2>\t= ShipDateFrom\r\n\t\tRetVal<3>\t= ShipDateThru\r\n\t\tRetVal<4>\t= DirToPrint\r\n\t\tRetVal<5>\t= PDFPath\r\n\t\t\r\n\t\tend_dialog( @window, RetVal )\r\n\tend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must choose at least one customer...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a shipment from date or a shipment thru date.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_SRL_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/INVOICE_SRL_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..5d89c1d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_SRL_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_SRL_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/INVOICE_SRL_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..45bcd54 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_SRL_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, rlist, end_dialog\r\ndeclare function msg, key_sort, utility\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.INVOICE_SRL' to DictInvoiceTable else\r\n Void = msg( '', 'Unable to open DICT.INVOICE_SRL...' )\r\n return 0\r\nend\r\nSearchStr = ''\r\nCustIds = .customer_info->array<1>\r\n*EntryDateFrom = .entry_date_from->text\r\n*EntryDateThru = .entry_date_thru->text\r\nDueDateFrom = .due_date_from->text\r\nDueDateThru = .due_date_thru->text\r\nOpen = .open_check->check\r\nClosed = .closed_check->check\r\n*EntryIds = .entry_ids->array<1>\r\nWo = .wo->array\r\nPo = .po->array\r\n*QuoteNos = .quote_nos->array\r\n*OrderNos = .order_nos->array\r\nswap @vm:@vm with '' in Wo\r\nif Wo[-1,1] = @vm then Wo[-1,1] = ''\r\nswap @vm:@vm with '' in Po\r\nif Po[-1,1] = @vm then Po[-1,1] = ''\r\nswap @vm:@vm with '' in CustIds\r\nif CustIds[-1,1] = @vm then CustIds[-1,1] = ''\r\n*swap @vm:@vm with '' in EntryIds\r\n*if EntryIds[-1,1] = @vm then EntryIds[-1,1] = ''\r\n*swap @vm:@vm with '' in QuoteNos\r\n*if QuoteNos[-1,1] = @vm then QuoteNos[-1,1] = ''\r\n*swap @vm:@vm with '' in OrderNos\r\n*if OrderNos[-1,1] = @vm then OrderNos[-1,1] = ''\r\nif CustIds then\r\n SearchStr<-1> = 'CUST_NO':@vm:CustIds\r\nend \r\n*if EntryDateFrom then\r\n* SearchStr<-1> = 'ENTRY_DATE':@vm:'>=':EntryDateFrom\r\n*end\r\n*if EntryDateThru then\r\n* SearchStr<-1> = 'ENTRY_DATE':@vm:'<=':EntryDateThru\r\n*end\r\nif DueDateFrom then\r\n SearchStr<-1> = 'DUE_DATE':@vm:'>=':DueDateFrom\r\nend\r\nif DueDateThru then\r\n SearchStr<-1> = 'DUE_DATE':@vm:'<=':DueDateThru\r\nend\r\n*if EntryIds then\r\n* SearchStr<-1> = 'ENTRY_ID':@vm:EntryIds\r\n*end\r\nStatusVar = ''\r\nif Open then\r\n StatusVar<1,-1> = 'O'\r\nend\r\nif Closed then\r\n StatusVar<1,-1> = 'C'\r\nend\r\nif StatusVar then\r\n SearchStr<-1> = 'STATUS':@vm:StatusVar\r\nend\r\nif Wo then\r\n SearchStr<-1> = 'WO':@vm:Wo\r\nend\r\nif Po then\r\n SearchStr<-1> = 'PO':@VM:Po\r\nend\r\n*if QuoteNos then\r\n* SearchStr<-1> = 'QUOTE_IDS':@vm:QuoteNos\r\n*end\r\n*if OrderNos then\r\n* SearchStr<-1> = 'ORDER_NOS':@vm:OrderNos\r\n*end\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'INVOICE_SRL', DictInvoiceTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting INVOICE_SRL records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'INVOICE_SRL', 'CUST_NAME':@fm:'#ENTRY_DATE', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_SRL_QUERY.PO.json b/LSL2/OIEVENT/CLICK/INVOICE_SRL_QUERY.PO.json new file mode 100644 index 0000000..fec485f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_SRL_QUERY.PO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_SRL_QUERY.WO.json b/LSL2/OIEVENT/CLICK/INVOICE_SRL_QUERY.WO.json new file mode 100644 index 0000000..fec485f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_SRL_QUERY.WO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_SRPT1.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/INVOICE_SRPT1.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_SRPT1.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_SRPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/INVOICE_SRPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_SRPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_SRPT1.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/INVOICE_SRPT1.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..350aa67 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_SRPT1.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function sched_rpt1, send_event, msg, ex_vm_rem\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nCusts = .customer_info->array<1>\r\nCusts = ex_vm_rem(Custs)\r\n\r\nDateFrom = .date_from->text\r\nDateThru = .date_thru->text\r\nStatus = .status_button->value\r\nPlant = .plant_button->value\r\nif DateFrom or DateThru then\r\n RetVal = Custs:'*':DateFrom:'*':DateThru:'*':Status:'*':Plant\r\n end_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a from date or a thru date.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_SRPT2.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/INVOICE_SRPT2.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_SRPT2.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_SRPT2.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/INVOICE_SRPT2.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..29d0896 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_SRPT2.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function sched_rpt1, send_event, msg, ex_vm_rem\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nCusts = .customer_info->array<1>\r\nCusts = ex_vm_rem(Custs)\r\n\r\nDateFrom = .date_from->text\r\nDateThru = .date_thru->text\r\n\r\nif DateFrom or DateThru then\r\n RetVal = DateFrom:'*':DateThru:'*'\r\n end_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a from date or a thru date.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_SRPT3.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/INVOICE_SRPT3.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_SRPT3.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_SRPT3.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/INVOICE_SRPT3.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_SRPT3.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_SRPT3.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/INVOICE_SRPT3.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..ef5a0b9 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_SRPT3.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function sched_rpt1, send_event, msg, ex_vm_rem\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nCusts = .customer_info->array<1>\r\nCusts = ex_vm_rem(Custs)\r\n\r\nDateFrom = .date_from->text\r\nDateThru = .date_thru->text\r\n\r\nif DateFrom or DateThru then\r\n RetVal = Custs:'*':DateFrom:'*':DateThru\r\n end_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a from date or a thru date.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_SRPT4.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/INVOICE_SRPT4.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_SRPT4.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_SRPT4.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/INVOICE_SRPT4.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_SRPT4.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_SRPT4.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/INVOICE_SRPT4.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..ef5a0b9 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_SRPT4.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function sched_rpt1, send_event, msg, ex_vm_rem\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nCusts = .customer_info->array<1>\r\nCusts = ex_vm_rem(Custs)\r\n\r\nDateFrom = .date_from->text\r\nDateThru = .date_thru->text\r\n\r\nif DateFrom or DateThru then\r\n RetVal = Custs:'*':DateFrom:'*':DateThru\r\n end_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a from date or a thru date.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_SRPT5.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/INVOICE_SRPT5.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_SRPT5.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_SRPT5.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/INVOICE_SRPT5.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_SRPT5.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/INVOICE_SRPT5.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/INVOICE_SRPT5.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..0e233fd --- /dev/null +++ b/LSL2/OIEVENT/CLICK/INVOICE_SRPT5.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function sched_rpt1, send_event, msg, ex_vm_rem\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nCusts = .customer_info->array<1>\r\nCusts = ex_vm_rem(Custs)\r\nPOs = .pos->array\r\nPOs = ex_vm_rem(POs)\r\nQuoteNos = .quote_nos->array\r\nQuoteNos = ex_vm_rem(QuoteNos)\r\nDateFrom = .date_from->text\r\nDateThru = .date_thru->text\r\n\r\nif DateFrom or DateThru then\r\n RetVal = DateFrom:'*':DateThru:'*':Custs:'*':QuoteNos:'*':POs\r\n end_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a from date or a thru date.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\n\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/JCH_TEST.BUTTON_26.json b/LSL2/OIEVENT/CLICK/JCH_TEST.BUTTON_26.json new file mode 100644 index 0000000..2e5f776 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/JCH_TEST.BUTTON_26.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE Subroutine Test_JCH\r\n\r\nTest_JCH('')\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/JCH_TEST.BUTTON_27.json b/LSL2/OIEVENT/CLICK/JCH_TEST.BUTTON_27.json new file mode 100644 index 0000000..ba6a208 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/JCH_TEST.BUTTON_27.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION DIALOG_BOX\r\n\r\n$INSERT PRS_STAGE_EQUATES\r\n\r\n\tPSNo = 4132\r\n\tVerInst = XLATE('PRS_STAGE',PSNo:'*UNLOAD',PRS_STAGE_INST$,'X')\r\n\t\r\n\tIF VerInst NE '' THEN\r\n\t\tYes = Dialog_Box( 'RDS_VER', @WINDOW, VerInst )\r\n\t\tIF NOT(Yes) THEN\r\n\t\t\tRETURN 0\r\n\t\tEND\r\n\tEND\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/JCH_TEST.BUTTON_37.json b/LSL2/OIEVENT/CLICK/JCH_TEST.BUTTON_37.json new file mode 100644 index 0000000..69de2f9 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/JCH_TEST.BUTTON_37.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\n$INSERT APPCOLORS\r\n\r\nEQU FONT_FACE_NAME$\t\t\tTO 1\r\nEQU FONT_HEIGHT$\t\t\tTO 2\r\nEQU FONT_WEIGHT$\t\t\tTO 3\r\nEQU FONT_ITALIC$\t\t\tTO 4\r\nEQU FONT_UNDERLINE$\t\t\tTO 5\r\nEQU FONT_WIDTH$\t\t\t\tTO 6\r\nEQU FONT_CHAR_SET$\t\t\tTO 7\r\nEQU FONT_PITCH_AND_FAMILY$\tTO 8\r\nEQU FONT_STRIKE_OUT$\t\tTO 9\r\nEQU FONT_OUT_PRECISION$\t\tTO 10\r\nEQU FONT_CLIP_PRECISION$\tTO 11\r\nEQU FONT_QUALITY$\t\t\tTO 12\r\nEQU FONT_RGB_R_COLOR$\t\tTO 13\t;* Set_Property only\r\nEQU FONT_RGB_G_COLOR$\t\tTO 14\t;* Set_Property only\r\nEQU FONT_RGB_B_COLOR$\t\tTO 15\t;* Set_Property only\r\n\r\nEQU FONT_ASCENT$\t\t\tTO 13\t;* Get_Property only\r\nEQU FONT_INTERNAL_LEADING$\tTO 14\t;* Get_Property only\r\nEQU FONT_EXTERNAL_LEADING$\tTO 15\t;* Get_Property only\r\nEQU FONT_MAX_CHAR_WIDTH$\tTO 16\t;* Get_Property only\r\n\r\n\r\nColorNo = Get_Property(@WINDOW,'@COLOR_NO')\r\n\r\nIF ColorNo = 3 OR ColorNo = '' THEN ColorNo = 0\r\n\r\nColorNo += 1\r\n\r\n\r\nCurrFontProp = Get_Property(@WINDOW:'.PRIORITY_DISPLAY','FONT')\r\n\r\nNewFontProp = FIELD(CurrFontProp,@SVM,1,12)\r\n\r\n\r\nIF ColorNo = 1 THEN\r\n\tvoid = Set_Property(@WINDOW:'.PRIORITY_DISPLAY','DEFPROP','P1 - High')\r\n\tNewFontProp<1,1,FONT_WEIGHT$> = 700\r\n\tNewFontProp<1,1,FONT_ITALIC$> = 255\r\n\tNewFontProp<1,1,FONT_WIDTH$> = 12\r\n\tForeColor = BRED$\r\n\t\r\nEND\r\n\r\n\r\nIF ColorNo = 2 THEN\r\n\tvoid = Set_Property(@WINDOW:'.PRIORITY_DISPLAY','DEFPROP','P2 - Medium')\r\n\tNewFontProp<1,1,FONT_WEIGHT$> = 700\r\n\tNewFontProp<1,1,FONT_ITALIC$> = 0\r\n\tNewFontProp<1,1,FONT_WIDTH$> = 12\r\n\tForeColor = BYELLOW$\r\nEND\t\r\n\r\n\r\nIF ColorNo = 3 THEN\r\n\tvoid = Set_Property(@WINDOW:'.PRIORITY_DISPLAY','DEFPROP','P3 - Low')\r\n\tNewFontProp<1,1,FONT_WEIGHT$> = 400\r\n\tNewFontProp<1,1,FONT_ITALIC$> = 0\r\n\tNewFontProp<1,1,FONT_WIDTH$> = 11\r\n\tForeColor = 32768\r\n\t\r\nEND\r\n\r\nvoid = Set_Property(@WINDOW:'.PRIORITY_DISPLAY','FONT', NewFontProp)\r\nvoid = Set_Property(@WINDOW:'.PRIORITY_DISPLAY','FORECOLOR',ForeColor)\r\n\r\n\r\nvoid = Set_Property(@WINDOW,'@COLOR_NO',ColorNo)\r\n\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/JCH_TEST.CHANGED.json b/LSL2/OIEVENT/CLICK/JCH_TEST.CHANGED.json new file mode 100644 index 0000000..af73836 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/JCH_TEST.CHANGED.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "Declare Subroutine Sysrepos_Log\r\nDeclare Function Dialog_Box\r\n\r\nDialog_Result = Dialog_Box(\"DT_DIALOG_REPOS_LOG\",@WINDOW,'')\r\n\r\nIF Dialog_Result NE '' THEN\r\n\tInputDtm \t= ICONV(Dialog_Result<1>,'DT')\r\n\tApp\t\t\t= Dialog_Result<2>\r\n\tUser\t\t= Dialog_Result<3>\r\n\t\r\n\tSysRepos_Log(InputDtm,App,User)\r\nEND\r\n\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.BUTTON_11.json b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.BUTTON_11.json new file mode 100644 index 0000000..a636a76 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.BUTTON_11.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert msg_equates\r\n$insert lsl_users_equ\r\n$insert prod_spec_equ\r\n$insert rds_equ\r\n$INSERT REACTOR_EQUATES\r\n$INSERT REACT_RUN_EQUATES\r\n\r\nequ CrLf$ to char(13):char(10)\r\n\r\nEQU COL$MET_TEST\t\tTO 1\t\t;* QA Metrology control on RDS_UNLOAD & RDS_POST_EPI windows\r\nEQU COL$MET_TEST_DESC\tTO 2\r\nEQU COL$MET_SLOT\t\tTO 3\r\nEQU COL$MET_SLOT_DESC\tTO 4\r\nEQU COL$MET_MIN\t\t\tTO 5\r\nEQU COL$MET_MAX\t\t\tTO 6\r\nEQU COL$MET_RESULT\t\tTO 7\r\nEQU COL$MET_SIG\t\t\tTO 8\r\nEQU COL$MET_SIG_DTM\t\tTO 9\r\n\r\n\r\n* Clean Insp Actions\r\n\r\nEQU ACTION$ACTIONS\t\t\t\tTO 1\t;* Data structures for each action\r\nEQU ACTION$SIGS\t\t\t\t\tTO 2\r\nEQU ACTION$SIG_DTMS\t\t\t\tTO 3\r\nEQU ACTION$TOOLS\t\t\t\tTO 4\r\nEQU ACTION$SPEC_CLEAN_TOOL\t\tTO 5\r\nEQU ACTION$SPEC_MICROSCOPE\t\tTO 6\r\nEQU ACTION$SPEC_BRIGHTLIGHT\t\tTO 7\r\nEQU ACTION$SPEC_SURFSCAN_RECIPE\tTO 8\r\n\r\n\r\nDECLARE FUNCTION dialog_box, msg, Get_Status, obj_WO_Mat, Get_Status, obj_Clean_Insp\r\nDECLARE SUBROUTINE record_lock, obj_React_Tube, ErrMsg, obj_WO_Mat_Log, obj_React_Status, obj_WO_Mat, Set_Status\r\n\r\n\r\n\r\n\r\nWONo\t= Get_Property(@WINDOW:'.WO','DEFPROP')\r\nCassNo\t= Get_Property(@WINDOW:'.CASS_NO','DEFPROP')\r\nWOStep\t= Get_Property(@WINDOW:'.WO_STEP','DEFPROP')\r\n \r\nWOMatCurrStatus = obj_WO_Mat('CurrStatus',WONo:'*':CassNo)\r\n\r\nIF WOMatCurrStatus = 'HOLD' THEN\r\n\tErrorMessage = 'Cassette is on Hold and may not be signed off.':CRLF$:CRLF$\r\n\tvoid = Msg(@WINDOW, ErrorMessage, 'PROCESS_SIGNATURE_ERROR')\r\n\tRETURN 0\r\nEND\r\n\r\nRDSId = .rds_no->text\r\n\r\nReactorType = XLATE('RDS',RDSId,'REACTOR_TYPE','X')\r\n\r\nIF ReactorType NE 'EPP' THEN\r\n\tSet_Status(0)\r\n\tobj_WO_Mat('CheckSigOrder',WONo:'*':CassNo:@RM:WOStep:'UNLOAD')\r\n\r\n\tIF Get_Status(errCode) THEN\r\n\t\tErrMsg(errCode)\r\n\t\tRETURN 0\r\n\tEND\r\nEND ELSE\r\n\t\r\n\tReactRunRec = XLATE('REACT_RUN',RDSId,'','X')\r\n\t\r\n\tLOCATE 'LWI' IN ReactRunRec USING @VM SETTING Pos THEN\r\n\t\tCINo = ReactRunRec\r\n\t\t\r\n\t\tActions = obj_Clean_Insp('GetActions',CINo)\r\n\t\t\r\n\t\tLOCATE 'Inspection' IN Actions USING @FM SETTING Pos THEN\r\n\t\t\t\r\n\t\t\tIF Actions = '' THEN\r\n\t\t\t\tErrMsg('A Wafer Inspection is required and has not been completed.')\r\n\t\t\t\tRETURN 0\r\n\t\t\tEND\r\n\t\tEND\r\n\tEND\r\n\r\nEND\t;* End of check for EpiPRO (EPP) reactor type\r\n\r\n\r\n* Met Test completed\r\n\r\nCtrlName = @WINDOW:'.MET_TEST'\r\n\t\r\nMetList = Get_Property(CtrlName,'LIST')\r\n\t\r\nMLCnt = COUNT(MetList,@FM) + (MetList NE '')\r\n\t\r\nFOR Line = 1 TO MLCnt\r\n\tIF MetList NE '' THEN\r\n\t\t\r\n\t\tIF MetList = '' THEN\r\n\t\t\tErrMsg('Required QA Metrology results have not been entered.')\r\n\t\t\tRETURN 0\r\n\t\tEND\r\n\t\t\r\n\t\tIF MetList NE '' AND MetList = '' THEN\r\n\t\t\tErrMsg('One or more QA Metrolgy results are not signed off.')\r\n\t\t\tRETURN 0\r\n\t\tEND\r\n\t\t\r\n\tEND\t;* End of check for a test requirement on the line\r\n\r\nNEXT Line\r\n\r\n*\r\n\r\nReactorType = Get_Property(@WINDOW:'.REACTOR_TYPE','DEFPROP')\t\r\n\r\n \r\nPSNId = .psn->text\r\nPSNRec = xlate( 'PROD_SPEC', PSNId, '', 'X' )\r\n\t \t \r\n* If there are Unload_Ver Instructions then show them\r\n\t \r\nIF PSNRec NE '' THEN\r\n\tYes = Dialog_Box( 'RDS_VER', @window, PSNId:'*':prod_spec_unload_ver_inst$ )\r\n\tIF NOT(Yes) THEN\r\n\t\tRETURN 0\r\n\tEND\r\nEND\r\n\t \r\n* Check for extra unloads without corresponding extra load\r\n\t \r\n\t \r\nRDSId = .rds_no->text\r\nRDSRec = xlate( 'RDS',RDSId , '', 'X' )\r\n\t \r\nIF RDSRec <> '' THEN\r\n\tIF RDSRec = '' THEN\r\n\t\tMsgInfo = ''\r\n\t\tText = 'You have an extra unload defined in the first wafer area, however, ':CrLf$\r\n\t\tText:= 'it must be reloaded there as well...You have the provision of overriding':CrLf$\r\n\t\tText:= 'the date and time in, due to it being forgotten'\r\n\t\tMsgInfo = Text\r\n\t\tMsgInfo = 'H'\r\n\t\tVoid = msg( '', MsgInfo )\r\n\t\tRETURN 0\r\n\tEND\r\nEND\r\n\r\nIF RDSRec <> '' THEN\r\n\tIF RDSRec = '' THEN\r\n\t\tMsgInfo = ''\r\n\t\tText = 'You have a second extra unload defined in the first wafer area, however, ':CrLf$\r\n\t\tText:= 'it must be reloaded there as well...You have the provision of overriding':CrLf$\r\n\t\tText:= 'the date and time in, due to it being forgotten'\r\n\t\tMsgInfo = Text\r\n\t\tMsgInfo = 'H'\r\n\t\tVoid = msg( '', MsgInfo )\r\n\t\tRETURN 0\r\n\tEND\r\nEND\r\n\r\n*\r\n\t \r\nValid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\r\nIF Valid THEN\r\n\t\t\t\t\t\r\n\tSigDt = OCONV( date(), 'D2/' )\r\n\tSigTm = OCONV( time(), 'MTS' )\r\n\tSigBy = @USER4\r\n\t\t\t\t\t\r\n\tWONo\t\t= Get_Property(@WINDOW:'.WO','DEFPROP')\r\n\tCassNo\t\t= Get_Property(@WINDOW:'.CASS_NO','DEFPROP')\r\n\tWOStep\t\t= Get_Property(@WINDOW:'.WO_STEP','DEFPROP')\r\n\tReactorType\t= Get_Property(@WINDOW:'.REACTOR_TYPE','DEFPROP')\r\n\t\t\t\t\t \r\n\tIF ReactorType NE 'EPP' THEN\r\n\t\t\t\t\t\t\r\n\t\towmParms = WONo:@RM:CassNo:@RM:WOStep:@RM:'UNLOAD':@RM:@USER4:@RM:SigDt:' ':SigTm\t\t;* Sets UNLOAD signature\r\n\t\tobj_WO_Mat('SetSignature',owmParms)\r\n\t\t\t\t\t\t\r\n\t\tIF Get_Status(errCode) THEN\r\n\t\t\tCALL ErrMsg(ErrCode)\r\n\t\t\tRETURN 0\r\n\t\tEND\r\n\t\t\t\t\t\t\r\n\t\t**********************************************************************\r\n \t\r\n \tReactor\t\t= Get_Property(@WINDOW:'.REACTOR','DEFPROP')\r\n \t\r\n\t\tReactWH\t\t= XLATE('REACTOR',Reactor,'TOOL_WH','X')\r\n\t\tReactLoc\t= XLATE('REACTOR',Reactor,'TOOL_LOC','X')\r\n \t\r\n \tUnloadDTM = SigDt:' ':SigTm\r\n\t\t\r\n\t\tIF WONo NE '' AND CassNo NE '' THEN\r\n\t\t\t\t\t\t\t\t\t\t\r\n\t\t\tLogFile\t= 'WO_MAT'\t\t\t; WOMLParms = LogFile:@RM\r\n\t\t\tLogDTM\t= UnloadDTM\t\t\t; WOMLParms := LogDTM:@RM\r\n\t\t\tAction\t= WOStep:'UNLOAD'\t; WOMLParms := Action:@RM\r\n\t\t\tWhCd\t= ReactWH\t\t\t; WOMLParms := WhCd:@RM\r\n\t\t\tLocCd\t= ReactLoc\t\t\t; WOMLParms := LocCd:@RM\r\n\t\t\tWONos\t= WONo\t\t\t\t; WOMLParms := WONos:@RM\r\n\t\t\tCassNos\t= CassNo\t\t\t; WOMLParms := CassNos:@RM\r\n\t\t\tUserID\t= @USER4\t\t\t; WOMLParms := UserID:@RM\r\n\t\t\tTags\t= RDSId\t\t\t\t; WOMLParms := Tags:@RM\r\n\t\t\tToolID\t= 'R':Reactor\t\t; WOMLParms := ToolID\r\n\r\n\t\t\tobj_WO_Mat_Log('Create',WOMLParms)\t\t\t;* Add to WO_MAT Event Log\r\n\t\t\t\r\n\t\t\tobj_React_Status('CassUnload',Reactor:@RM:WONo:@RM:CassNo:@RM:UnloadDTM)\r\n\t\t\tIF Get_Status(errCode) THEN ErrMsg(errCode)\r\n\t\r\n\t\tEND\t;* End of check for WONo and CassNo \r\n\t\t\t\t\t\t\t\r\n\tEND\t;* End of check for EpiPRO reactor type\r\n\t\t\t\t\t\r\n\t.op_out->text = SigBy\r\n\t.op_out_name->text = oconv( SigBy, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t.op_out_date->text = SigDt\r\n\t.op_out_time->text = SigTm\r\n\t \r\n\tCurReactor = .reactor->text\r\n\tInjectors = xlate( 'CONFIG', 'INJECTORS':CurReactor, 1, 'X' )\r\n\tif Injectors <> '' then\r\n \t.injectors->text = Injectors\r\n\tend\r\n\t\r\n\tTubeRec = xlate( 'CONFIG', 'TUBE':CurReactor, '', 'X' )\r\n\tTubeID = TubeRec<1>\r\n\tTubeGrade = TubeRec<2>\r\n\tif TubeID <> '' then\r\n\t\t.tube_id->text = TubeID\r\n\t\t.tube_grade->text = TubeGrade\r\n\tend\r\n\t\r\n\tSusceptorID = xlate( 'CONFIG', 'SUSCEPTOR':CurReactor, 1, 'X' )\r\n\tif SusceptorID <> '' then\r\n\t\t.susceptor_id->text = SusceptorID\r\n\tend\r\n\t*\r\n\t\r\n\tPSNId = .psn->text\r\n\tPSNRec = xlate( 'PROD_SPEC', PSNId, '', 'X' )\r\n\tDopant = xlate( 'PROD_SPEC', PSNId, 'DOPANT_L1', 'X' )\r\n\tRestricter = PSNRec\r\n\tRatios = PSNRec\r\n\tPINSusceptor = PSNRec\r\n\tTubePressure = PSNRec\r\n\topen 'CONFIG' to ConfigTable else\r\n\t\tVoid = msg( '', 'Unable to open config.' )\r\n\t\tRETURN 0\r\n\tend\r\n\t\r\n\tRID = 'RESTRICTER':CurReactor\r\n\trecord_lock( ConfigTable, 'CONFIG', RID )\r\n\twritev Restricter on ConfigTable, RID, 1 else\r\n\t\tVoid = msg( '', 'Unable to write ':RID:' on CONFIG table...' )\r\n\t return 0\r\n\tend\r\n\tunlock ConfigTable, RID else\r\n\t\tVoid = msg( '', 'Unable to unlock ':RID:' on CONFIG table...' )\r\n\t\treturn 0\r\n\tend\r\n\tRID = 'RATIOS':CurReactor\r\n\trecord_lock( ConfigTable, 'CONFIG', RID )\r\n\twritev Ratios on ConfigTable, RID, 1 else\r\n\t\tVoid = msg( '', 'Unable to write ':RID:' on CONFIG table...' )\r\n\t\treturn 0\r\n\tend\r\n\tunlock ConfigTable, RID else\r\n\t\tVoid = msg( '', 'Unable to unlock ':RID:' on CONFIG table...' )\r\n\t\treturn 0\r\n\tend\r\n\tRID = 'PIN_SUSCEPTOR':CurReactor\r\n\trecord_lock( ConfigTable, 'CONFIG', RID )\r\n\twritev PinSusceptor on ConfigTable, RID, 1 else\r\n\t\tVoid = msg( '', 'Unable to write ':RID:' on CONFIG table...' )\r\n\t\treturn 0\r\n\tend\r\n\tunlock ConfigTable, RID else\r\n\t\tVoid = msg( '', 'Unable to unlock ':RID:' on CONFIG table...' )\r\n\t\treturn 0\r\n\tend\r\n\tRID = 'TUBE_PRESSURE':CurReactor\r\n\trecord_lock( ConfigTable, 'CONFIG', RID )\r\n\twritev TubePressure on ConfigTable, RID, 1 else\r\n\t\tVoid = msg( '', 'Unable to write ':RID:' on CONFIG table...' )\r\n\t\treturn 0\r\n\tend\r\n\tunlock ConfigTable, RID else\r\n\t\tVoid = msg( '', 'Unable to unlock ':RID:' on CONFIG table...' )\r\n\t\treturn 0\r\n\tend\r\n\tRID = 'DOPANT':CurReactor\r\n\trecord_lock( ConfigTable, 'CONFIG', RID )\r\n\twritev Dopant on ConfigTable, RID, 1 else\r\n\t\tVoid = msg( '', 'Unable to write ':RID:' on CONFIG table...' )\r\n\t\treturn 0\r\n\tend\r\n\tunlock ConfigTable, RID else\r\n\t\tVoid = msg( '', 'Unable to unlock ':RID:' on CONFIG table...' )\r\n\t\treturn 0\r\n\tend\r\n\t*\r\n\t@@window->savewarn = 1\r\n\t\r\n\tCtrls = @WINDOW:'.REACTOR':@RM:@WINDOW:'.WAFERS_SCHEDULED'\t\t;* Added 10/31/2005 JCH - J.C. Henry & Co., Inc.\r\n\tProps = 'TEXT':@RM:'TEXT'\r\n\tVals = Get_Property(Ctrls,Props)\r\n\t\t\r\n\tobj_React_Tube('ReactUnload',Vals)\r\n\t\t\t \t\t\r\n\tIF Get_Status(errCode) THEN ErrMsg(errCode)\r\n\r\nEND\r\n\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.BUTTON_16.json b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.BUTTON_16.json new file mode 100644 index 0000000..a83a3eb --- /dev/null +++ b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.BUTTON_16.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = rds_comm( \"CALL_SURF_INSP\" )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.CLEAN_BUTTON.json b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.CLEAN_BUTTON.json new file mode 100644 index 0000000..27ad396 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.CLEAN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = rds_comm( \"CALL_CLEAN\" )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.FIRST_WAF_BUTTON.json b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.FIRST_WAF_BUTTON.json new file mode 100644 index 0000000..c2843c8 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.FIRST_WAF_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@RdsWindowToCall', 'RDS' )\r\nVoid = rds_comm( \"RDS_VIEW\" )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.HOLD_BUTTON.json b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.HOLD_BUTTON.json new file mode 100644 index 0000000..93b383d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.HOLD_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm2\r\n\r\nVoid = rds_comm2( \"HOLD_CLICK\" )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.METROLOGY_BUTTON.json b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.METROLOGY_BUTTON.json new file mode 100644 index 0000000..e0f15d8 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.METROLOGY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Dialog_Box\r\n\r\nRDSNo = Get_Property(@WINDOW:'.RDS_NO','DEFPROP')\r\n\r\nIF RDSNo NE '' THEN\r\n\tVoid = Dialog_Box( 'RDS_METROLOGY', @WINDOW, RDSNo )\r\nEND\r\n\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.POST_EPI_BUTTON.json b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.POST_EPI_BUTTON.json new file mode 100644 index 0000000..a8b51f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.POST_EPI_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@RdsWindowToCall', 'RDS_POST_EPI' )\r\nVoid = rds_comm( \"RDS_VIEW\" )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.PRE_EPI_BUTTON.json b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.PRE_EPI_BUTTON.json new file mode 100644 index 0000000..a1645c9 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.PRE_EPI_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@RdsWindowToCall', 'RDS_PRE_EPI' )\r\nVoid = rds_comm( \"RDS_VIEW\" )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.PROVEIN_BUTTON.json b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.PROVEIN_BUTTON.json new file mode 100644 index 0000000..bd17403 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.PROVEIN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@WindowToCall', 'RDS_PROVEIN' )\r\nVoid = rds_comm( 'CALL_WINDOW' )\r\nVoid = set_property( @window, '@WindowToCall', '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.PSN_BUTTON.json b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.PSN_BUTTON.json new file mode 100644 index 0000000..9a9aa3f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.PSN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@WindowToCall', 'PROD_SPEC' )\r\nVoid = rds_comm( 'CALL_WINDOW' )\r\nVoid = set_property( @window, '@WindowToCall', '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.RECIPE_BUTTON.json b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.RECIPE_BUTTON.json new file mode 100644 index 0000000..427c76e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.RECIPE_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@WindowToCall', 'RECIPE' )\r\nVoid = rds_comm( 'CALL_WINDOW' )\r\nVoid = set_property( @window, '@WindowToCall', '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.SUPPL_BUTTON.json b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.SUPPL_BUTTON.json new file mode 100644 index 0000000..1627c4a --- /dev/null +++ b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.SUPPL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm2\r\n\r\nVoid = rds_comm2( \"SUPPL_CLICK\" )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.UNLOAD_BUTTON.json b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.UNLOAD_BUTTON.json new file mode 100644 index 0000000..2f3cfb0 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.UNLOAD_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@RdsWindowToCall', 'RDS_UNLOAD' )\r\nVoid = rds_comm( \"RDS_VIEW\" )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.VIEW_MOD_HIST.json b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.VIEW_MOD_HIST.json new file mode 100644 index 0000000..b09c3c9 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/LAST_WFR_CI_GROUP.VIEW_MOD_HIST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = rds_comm( \"VIEW_MOD_INFO\" )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/LEAK_LAMP.BUTTON_1.json b/LSL2/OIEVENT/CLICK/LEAK_LAMP.BUTTON_1.json new file mode 100644 index 0000000..766e73c --- /dev/null +++ b/LSL2/OIEVENT/CLICK/LEAK_LAMP.BUTTON_1.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, msg, next_key, start_window\r\n$insert reactor_log_equ\r\n$insert logical\r\n$insert msg_equates\r\n\r\nLLInfo = .ll_info->array\r\nReactors = LLInfo<1>\r\nStartDate = LLInfo<2>\r\nStartTime = LLInfo<3>\r\nEndDate = LLInfo<4>\r\nEndTime = LLInfo<5>\r\nRcnt = fieldcount( Reactors, @vm )\r\nif ( Rcnt > 0 ) then\r\n\topen 'REACTOR_LOG' to RLTable else\r\n\t Void = msg( '', 'Unable to open REACTOR_LOG...' )\r\n\t return 0\r\n\tend\r\n CurDate = date()\r\n CurTime = time()\r\n EntryId = @user4\r\n RlKeys = ''\r\n for i = 1 to Rcnt\r\n ThisReactor = Reactors<1,i>\r\n if ThisReactor <> '' then\r\n\t \tNextRLKey = next_key( 'REACTOR_LOG', RLTable, 'NEXT', '' )\r\n\t\t\tRLRec = ''\r\n\t\t\tRLRec = iconv( StartDate<1,i>, 'D' )\r\n\t\t\tRLRec = iconv( StartTime<1,i>, 'MT' )\r\n\t\t\tRLRec = iconv( EndDate<1,i>, 'D' )\r\n\t\t\tRLRec = iconv( EndTime<1,i>, 'MT' )\r\n\t\t\tRLRec = ThisReactor\r\n\t\t\tRLRec = 'M' ;* for maintenance\r\n\t\t\tRLRec = EntryId\t\t\r\n\t\t\tRLRec = CurDate\r\n\t\t\tRLRec = 158 ;* preventitive maintenance\r\n\t\t\tRLRec = 188 ;* service for leak and lamp\r\n\t\t\tRLRec = 1\r\n\t\t\twrite RLRec on RLTable, NextRLKey else\r\n\t\t\t void = msg( '', 'Unable to write ':NextRLKey:' on REACTOR_LOG...' )\r\n\t\t\t return 0\r\n\t\t\tend\r\n\t\t\tunlock RLTable, NextRLKey else\r\n\t\t\t Void = msg( '', 'Unable to unlock ':NextRLKey:' on REACTOR_LOG...' )\r\n\t\t\t return 0\r\n\t\t\tend\r\n\t\t\tVoid = next_key( 'REACTOR_LOG', RLTable, 'UPDATE', NextRLKey )\r\n\t RlKeys<1,-1> = NextRLKey\t\t\r\n end\r\n next i\r\n\t.reactors->text = ''\r\n\tCleanArray = str( @vm, 6 ):@fm:str( @vm, 6 ):@fm:str( @vm, 6 ):@fm:str( @vm, 6 ):@fm:str( @vm, 6 )\r\n\t.ll_info->array = CleanArray\r\n if RlKeys <> '' then\r\n MsgInfo = ''\r\n MsgInfo = 'Do you wish to view the entrie(s)...'\r\n MsgInfo = 'BNY'\r\n MsgInfo = '?'\r\n Resp = msg( '', MsgInfo )\r\n if Resp then\r\n\t\t Void = start_window( 'REACTOR_LOG', '', RlKeys:'*CENTER', '', '' )\r\n end\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must select at least one reactor...'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/LEAK_LAMP.BUTTON_3.json b/LSL2/OIEVENT/CLICK/LEAK_LAMP.BUTTON_3.json new file mode 100644 index 0000000..36a52cf --- /dev/null +++ b/LSL2/OIEVENT/CLICK/LEAK_LAMP.BUTTON_3.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "SelectedReacts = .reactors->text\r\nconvert @fm to @vm in SelectedReacts\r\nconvert @upper_case to '' in SelectedReacts\r\nconvert @lower_case to '' in SelectedReacts\r\nLLInfo = .ll_info->array\r\nRCol = LLInfo<1>\r\nswap @vm:@vm with '' in RCol\r\nif RCol[-1,1] = @vm then RCol[-1,1] = ''\r\nif RCol <> '' then\r\n RCol:= @vm:SelectedReacts\r\nend else\r\n RCol:= SelectedReacts\r\nend\r\nLLInfo<1> = RCol\r\n.ll_info->array = LLInfo\r\n.reactors->text = ''\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/LISTBOX_CONFIG.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/LISTBOX_CONFIG.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/LISTBOX_CONFIG.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/LISTBOX_CONFIG.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/LISTBOX_CONFIG.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/LISTBOX_CONFIG.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/LISTBOX_CONFIG.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/LISTBOX_CONFIG.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/LISTBOX_CONFIG.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/LISTBOX_CONFIG.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/LISTBOX_CONFIG.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/LISTBOX_CONFIG.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/LISTBOX_CONFIG.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/LISTBOX_CONFIG.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/LISTBOX_CONFIG.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/LOSS_CODES.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/LOSS_CODES.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/LOSS_CODES.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/LOSS_CODES.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/LOSS_CODES.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/LOSS_CODES.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/LOSS_CODES.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/LOSS_CODES.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/LOSS_CODES.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/LOSS_CODES.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/LOSS_CODES.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/LOSS_CODES.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/LOSS_CODES.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/LOSS_CODES.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/LOSS_CODES.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/LSL_USERS.TABLESECURITY.json b/LSL2/OIEVENT/CLICK/LSL_USERS.TABLESECURITY.json new file mode 100644 index 0000000..64c3a5d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/LSL_USERS.TABLESECURITY.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/LSL_USERS_RPT1.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/LSL_USERS_RPT1.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/LSL_USERS_RPT1.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/LSL_USERS_RPT1.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/LSL_USERS_RPT1.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..82d562b --- /dev/null +++ b/LSL2/OIEVENT/CLICK/LSL_USERS_RPT1.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\ndeclare subroutine end_dialog\r\n\r\nUsers = .users->array<1>\r\nswap @vm:@vm with '' in Users\r\nif Users[-1,1] = @vm then Users[-1,1] = ''\r\nExpand = .expand->text\r\nDirToPrint = .send_to_printer->text\r\nRetVal = Users:'*':Expand:'*':DirToPrint\r\nend_dialog( @window, RetVal )\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/LSL_USERS_RPT1.USERS.json b/LSL2/OIEVENT/CLICK/LSL_USERS_RPT1.USERS.json new file mode 100644 index 0000000..29cdf4f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/LSL_USERS_RPT1.USERS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/MASTER_CALIB_LIST.CANCEL.json b/LSL2/OIEVENT/CLICK/MASTER_CALIB_LIST.CANCEL.json new file mode 100644 index 0000000..e07e12f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/MASTER_CALIB_LIST.CANCEL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\ndeclare subroutine end_dialog\r\n\r\nopen 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\nunlock ConfigTable, 'MASTER_CALIB_LIST' else\r\n *Void = msg( '', 'Unable to unlock CONFIG MASTER_CALIB_LIST')\r\n * may not have locked if user does not have proper security\r\nend\r\nend_dialog( @window, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/MASTER_DISK_LOG.BUTTON_5.json b/LSL2/OIEVENT/CLICK/MASTER_DISK_LOG.BUTTON_5.json new file mode 100644 index 0000000..11a63e4 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/MASTER_DISK_LOG.BUTTON_5.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo = 'This log has already been signed.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/MASTER_DISK_LOG.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/MASTER_DISK_LOG.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/MASTER_DISK_LOG.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/MASTER_DISK_LOG.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/MASTER_DISK_LOG.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/MASTER_DISK_LOG.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/MASTER_DISK_LOG.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/MASTER_DISK_LOG.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/MASTER_DISK_LOG.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/MASTER_DISK_LOG.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/MASTER_DISK_LOG.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/MASTER_DISK_LOG.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/MASTER_DISK_LOG.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/MASTER_DISK_LOG.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/MASTER_DISK_LOG.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/MASTER_DISK_LOG_QUERY.DISK_NUM.json b/LSL2/OIEVENT/CLICK/MASTER_DISK_LOG_QUERY.DISK_NUM.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/MASTER_DISK_LOG_QUERY.DISK_NUM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/MASTER_DISK_LOG_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/MASTER_DISK_LOG_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..b99542a --- /dev/null +++ b/LSL2/OIEVENT/CLICK/MASTER_DISK_LOG_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, ex_vm_rem\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.MASTER_DISK_LOG' to DictMasDiskLogTable else\r\n Void = msg( '', 'Unable to open DICT.MASTER_DISK_LOG...' )\r\n return 0\r\nend\r\nSearchStr = ''\r\nDateFrom = .date_from->text\r\nDateThru = .date_thru->text\r\nReactor = ex_vm_rem( .reactor_num->array )\r\nDisk = ex_vm_rem( .disk_num->array )\r\nTechIDs = ex_vm_rem( .techs->array<1> )\r\n\r\nswap @vm:@vm with '' in TechIDs\r\nif TechIDs[-1,1] = @vm then TechIDs[-1,1] = ''\r\nif TechIDs then\r\n SearchStr<-1> = 'TECH_SIG':@vm:TechIDs\r\nend\r\n\r\nif DateFrom and DateThru then\r\n SearchStr<-1> = 'DATE':@vm:DateFrom:'...':DateThru\r\nend else\r\n\tif DateFrom then\r\n\t SearchStr<-1> = 'DATE':@vm:'>=':DateFrom\r\n\tend\r\n\tif DateThru then\r\n\t SearchStr<-1> = 'DATE':@vm:'<=':DateThru\r\n\tend\r\nend\r\n\r\nif Reactor then\r\n SearchStr<-1> = 'REACTOR':@vm:Reactor\r\nend\r\n\r\nif Disk then\r\n\tSearchStr<-1> = 'DISK':@vm:Disk\r\nend\r\n\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'MASTER_DISK_LOG', DictMasDiskLogTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting Master Disk Log records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'MASTER_DISK_LOG', '#DATE':@fm:'REACTOR', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/MASTER_DISK_LOG_QUERY.REACTOR_NUM.json b/LSL2/OIEVENT/CLICK/MASTER_DISK_LOG_QUERY.REACTOR_NUM.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/MASTER_DISK_LOG_QUERY.REACTOR_NUM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/MASTER_DISK_LOG_QUERY.TECHS.json b/LSL2/OIEVENT/CLICK/MASTER_DISK_LOG_QUERY.TECHS.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/MASTER_DISK_LOG_QUERY.TECHS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/MASTER_PM_LIST_20190422.CANCEL.json b/LSL2/OIEVENT/CLICK/MASTER_PM_LIST_20190422.CANCEL.json new file mode 100644 index 0000000..e07e12f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/MASTER_PM_LIST_20190422.CANCEL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\ndeclare subroutine end_dialog\r\n\r\nopen 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\nunlock ConfigTable, 'MASTER_CALIB_LIST' else\r\n *Void = msg( '', 'Unable to unlock CONFIG MASTER_CALIB_LIST')\r\n * may not have locked if user does not have proper security\r\nend\r\nend_dialog( @window, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/MEG_LOG.BUTTON_5.json b/LSL2/OIEVENT/CLICK/MEG_LOG.BUTTON_5.json new file mode 100644 index 0000000..11a63e4 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/MEG_LOG.BUTTON_5.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo = 'This log has already been signed.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/MEG_LOG.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/MEG_LOG.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/MEG_LOG.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/MEG_LOG.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/MEG_LOG.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/MEG_LOG.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/MEG_LOG.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/MEG_LOG.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/MEG_LOG.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/MEG_LOG.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/MEG_LOG.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/MEG_LOG.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/MEG_LOG.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/MEG_LOG.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/MEG_LOG.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/MEG_LOG_QUERY.ALOT_NUM.json b/LSL2/OIEVENT/CLICK/MEG_LOG_QUERY.ALOT_NUM.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/MEG_LOG_QUERY.ALOT_NUM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/MEG_LOG_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/MEG_LOG_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..2bb2c3e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/MEG_LOG_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, ex_vm_rem\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.MEG_LOG' to DictMegLogTable else\r\n Void = msg( '', 'Unable to open DICT.MEG_LOG...' )\r\n return 0\r\nend\r\nSearchStr = ''\r\nDateFrom = .date_from->text\r\nDateThru = .date_thru->text\r\nALot = ex_vm_rem( .alot_num->array )\r\nPLot = ex_vm_rem( .plot_num->array )\r\nTechIDs = ex_vm_rem( .techs->array<1> )\r\n\r\nswap @vm:@vm with '' in TechIDs\r\nif TechIDs[-1,1] = @vm then TechIDs[-1,1] = ''\r\nif TechIDs then\r\n SearchStr<-1> = 'TECH_SIG':@vm:TechIDs\r\nend\r\n\r\nif DateFrom and DateThru then\r\n SearchStr<-1> = 'DATE_CHANGED':@vm:DateFrom:'...':DateThru\r\nend else\r\n\tif DateFrom then\r\n\t SearchStr<-1> = 'DATE_CHANGED':@vm:'>=':DateFrom\r\n\tend\r\n\tif DateThru then\r\n\t SearchStr<-1> = 'DATE_CHANGED':@vm:'<=':DateThru\r\n\tend\r\nend\r\n\r\nif ALot then\r\n SearchStr<-1> = 'A_LOT':@vm:ALot\r\nend\r\n\r\nif PLot then\r\n\tSearchStr<-1> = 'P_LOT':@vm:PLot\r\nend\r\n\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'MEG_LOG', DictMegLogTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting Megasonic Log records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'MEG_LOG', '#DATE_CHANGED':@fm:'#TIME_CHANGED':@fm:'A_LOT':@fm:'P_LOT', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/MEG_LOG_QUERY.PLOT_NUM.json b/LSL2/OIEVENT/CLICK/MEG_LOG_QUERY.PLOT_NUM.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/MEG_LOG_QUERY.PLOT_NUM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/MEG_LOG_QUERY.TECHS.json b/LSL2/OIEVENT/CLICK/MEG_LOG_QUERY.TECHS.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/MEG_LOG_QUERY.TECHS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/MODS.OK_BUTTON.json b/LSL2/OIEVENT/CLICK/MODS.OK_BUTTON.json new file mode 100644 index 0000000..6ba7de6 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/MODS.OK_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\ndeclare subroutine end_dialog\r\n\r\nopen 'MODS_CFG' to ConfigTable else\r\n Void = msg( '', 'Unable to open MODS_CFG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\nRecord = ''\r\nRecord<1> = .psd->text\r\nRecord<2> = .pn->text\r\nRecord<3> = .proj_notes->text\r\nwrite Record on ConfigTable, 'MODS' else\r\n Void = msg( '', 'Unable to write MODS in MODS_CFG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\nunlock ConfigTable, 'MODS' else\r\n Void = msg( '', 'Unable to unlock MODS in MODS_CFG table' )\r\nend\r\nend_dialog( @window, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/MODS.US_BUTTON.json b/LSL2/OIEVENT/CLICK/MODS.US_BUTTON.json new file mode 100644 index 0000000..acc1899 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/MODS.US_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, mods_update_specific, key_sort\r\ndeclare subroutine make.list\r\n\r\nPopRec = entid( @appid<1>, 'POPUP', '', 'MODS_SELECT' )\t\r\nOverRide = ''\r\nKeys = repository( 'EXECUTE', PopRec, @window, OverRide )\r\nif Keys then\r\n @reccount = 0\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'MODS', 'PRIORITY':@fm:'MOD_DATE':@fm:'MOD_TIME', 1 )\r\n make.list( 0, Keys, '', '' ) \r\n Void = mods_update_specific()\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/MSG_GROUPS.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/MSG_GROUPS.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/MSG_GROUPS.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/MSG_GROUPS.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/MSG_GROUPS.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/MSG_GROUPS.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/MSG_GROUPS.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/MSG_GROUPS.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/MSG_GROUPS.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/MSG_GROUPS.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/MSG_GROUPS.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/MSG_GROUPS.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/MSG_GROUPS.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/MSG_GROUPS.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/MSG_GROUPS.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/MSG_GROUPS.USER_IDS.json b/LSL2/OIEVENT/CLICK/MSG_GROUPS.USER_IDS.json new file mode 100644 index 0000000..29cdf4f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/MSG_GROUPS.USER_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NAMES.INTL_PHONES.json b/LSL2/OIEVENT/CLICK/NAMES.INTL_PHONES.json new file mode 100644 index 0000000..64c3a5d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NAMES.INTL_PHONES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NAMES.PHONES.json b/LSL2/OIEVENT/CLICK/NAMES.PHONES.json new file mode 100644 index 0000000..64c3a5d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NAMES.PHONES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NAMES.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/NAMES.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NAMES.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NAMES.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/NAMES.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NAMES.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NAMES.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/NAMES.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NAMES.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NAMES.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/NAMES.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NAMES.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NAMES.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/NAMES.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NAMES.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NCR.BUTTON_2.json b/LSL2/OIEVENT/CLICK/NCR.BUTTON_2.json new file mode 100644 index 0000000..0868cc1 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NCR.BUTTON_2.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, msg, dialog_box, memberof\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\n$insert lsl_users_equ\r\n$insert ncr_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif memberof( @user4, 'SUPERVISOR' ) or memberof( @user4, 'ENGINEERING' ) then\r\n * OK\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = '!'\r\n MsgInfo = 'You must be a supervisor or an engineer to sign for accepting under deviation.'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\nAuthDevSig = .auth_dev_sig->text\r\nAuthDevSigName = .auth_dev_sig_name->text\r\n*CurStatus = .status->value\r\n*if CurStatus = 'O' then\r\n if AuthDevSigName <> '' then\r\n MsgInfo = ''\r\n MsgInfo = 'This NCR has already been signed for accept under deviation.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end else\r\n if .auth_rej_sig->text <> '' then\r\n\t\t Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\t\t\tif Valid then\r\n\t\t .auth_dev_sig->text = @user4\r\n\t\t .auth_dev_sig_name->text = xlate( 'LSL_USERS', @user4, 'FIRST_LAST', 'X' )\r\n\t\t @@window->savewarn = 1\r\n\t\t end\r\n\t end else\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'This NCR must be signed for rejected material before accepting under deviation.'\r\n\t MsgInfo = '!'\r\n\t Void = msg( '', MsgInfo )\r\n\t end\r\n end\r\n*end else\r\n* if CurStatus = 'C' then\r\n* CurStatus = 'Closed'\r\n* end else\r\n* CurStatus = 'Verified' \r\n* end\r\n* MsgExtension = ''\r\n* if AuthDevSig <> '' then\r\n* MsgExtension = ' and has already been signed for accept under deviation.'\r\n* end\r\n* MsgInfo = ''\r\n* MsgInfo = 'This NCR is ':CurStatus:MsgExtension\r\n* MsgInfo = '!'\r\n* Void = msg( '', MsgInfo )\r\n*end\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NCR.BUTTON_3.json b/LSL2/OIEVENT/CLICK/NCR.BUTTON_3.json new file mode 100644 index 0000000..6ba6686 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NCR.BUTTON_3.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, msg, dialog_box, memberof\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\n$insert lsl_users_equ\r\n$insert ncr_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\n\r\nif memberof( @user4, 'SUPERVISOR' ) or memberof( @user4, 'ENGINEERING' ) then\r\n * OK\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = '!'\r\n MsgInfo = 'You must be a supervisor or an engineer to sign for rejecting material.'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\nAuthRejSig = .auth_rej_sig->text\r\nAuthRejSigName = .auth_rej_sig_name->text\r\nif AuthRejSig <> '' then\r\n MsgInfo = ''\r\n MsgInfo = 'This NCR has already been signed for rejecting material.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend else\r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n .auth_rej_sig->text = @user4\r\n .auth_rej_sig_name->text = xlate( 'LSL_USERS', @user4, 'FIRST_LAST', 'X' )\r\n @@window->savewarn = 1\r\n end\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NCR.BUTTON_4A.json b/LSL2/OIEVENT/CLICK/NCR.BUTTON_4A.json new file mode 100644 index 0000000..2fba1ce --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NCR.BUTTON_4A.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, msg, dialog_box, memberof\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\n$insert lsl_users_equ\r\n$insert ncr_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\n\r\nif memberof( @user4, 'SUPERVISOR' ) or memberof( @user4, 'ENGINEERING' ) then\r\n * OK\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = '!'\r\n MsgInfo = 'You must be a supervisor or an engineer to sign for rework material.'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\nAuthReworkSig = .auth_rework_sig->text\r\nAuthReworkSigName = .auth_rework_sig_name->text\r\n*CurStatus = .status->value\r\n*if CurStatus = 'O' then\r\n if AuthReworkSigName <> '' then\r\n MsgInfo = ''\r\n MsgInfo = 'This NCR has already been signed for rework material.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end else\r\n if .auth_rej_sig->text <> '' then\r\n\t\t Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\t\t\tif Valid then\r\n\t\t .auth_rework_sig->text = @user4\r\n\t\t .auth_rework_sig_name->text = xlate( 'LSL_USERS', @user4, 'FIRST_LAST', 'X' )\r\n\t\t @@window->savewarn = 1\r\n\t\t end\r\n\t end else\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'This NCR must be signed for rejected material before reworking material.'\r\n\t MsgInfo = '!'\r\n\t Void = msg( '', MsgInfo )\r\n\t end\r\n end\r\n*end else\r\n* if CurStatus = 'C' then\r\n* CurStatus = 'Closed'\r\n* end else\r\n* CurStatus = 'Verified' \r\n* end\r\n* MsgExtension = ''\r\n* if AuthReworkSig <> '' then\r\n* MsgExtension = ' and has already been signed for rework material.'\r\n* end\r\n* MsgInfo = ''\r\n* MsgInfo = 'This NCR is ':CurStatus:MsgExtension\r\n* MsgInfo = '!'\r\n* Void = msg( '', MsgInfo )\r\n*end\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NCR.BUTTON_5.json b/LSL2/OIEVENT/CLICK/NCR.BUTTON_5.json new file mode 100644 index 0000000..2273694 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NCR.BUTTON_5.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, msg, dialog_box, ncr_comm, memberof\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\n$insert lsl_users_equ\r\n$insert ncr_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nRejCnt = .rej_cnt->text\r\nif RejCnt > 5 then\r\n if memberof( @user4, 'ENGINEERING' ) then\r\n * OK\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = '!'\r\n MsgInfo = 'There are more than 5 rejects, therefor an engineer must sign.'\r\n Void = msg( '', MsgInfo ) \r\n return 0\r\n end\r\nend else\r\n if ( memberof( @user4, 'SUPERVISOR' ) and not( memberof( @user4, 'SHIPPING' ) ) ) or memberof( @user4, 'ENGINEERING' ) then\r\n * OK\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = '!'\r\n MsgInfo = 'You must be a supervisor or an engineer to sign for shipping materisl.'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\n end\r\nend\r\nAuthShipSig = .auth_ship_sig->text\r\nAuthShipSigName = .auth_ship_sig_name->text\r\nAuthDevSig = .auth_dev_sig->text\r\nCurStatus = .status->value\r\nif CurStatus = 'O' then\r\n if AuthShipSigName <> '' then\r\n MsgInfo = ''\r\n MsgInfo = 'This NCR has already been signed for ship material.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end else\r\n if ( .auth_rej_sig->text <> '' ) then\r\n\t\t Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\t\t\tif Valid then\r\n\t\t .auth_ship_sig->text = @user4\r\n\t\t .auth_ship_sig_name->text = xlate( 'LSL_USERS', @user4, 'FIRST_LAST', 'X' )\r\n\t\t .status->value = 'C'\r\n\t\t @@window->savewarn = 1\r\n\t\t Void = ncr_comm( 'CLOSE_STATUS' )\t\t \r\n\t\t end\r\n\t end else\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'This NCR must be signed for rejected material before shipping material.'\r\n\t MsgInfo = '!'\r\n\t Void = msg( '', MsgInfo )\r\n\t end\r\n end\r\nend else\r\n if CurStatus = 'C' then\r\n CurStatus = 'Closed'\r\n end else\r\n CurStatus = 'Verified' \r\n end\r\n MsgExtension = ''\r\n if AuthDevSig <> '' then\r\n MsgExtension = ' and has already been signed for accept under deviation.'\r\n end\r\n MsgInfo = ''\r\n MsgInfo = 'This NCR is ':CurStatus:MsgExtension\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NCR.BUTTON_6.json b/LSL2/OIEVENT/CLICK/NCR.BUTTON_6.json new file mode 100644 index 0000000..410c286 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NCR.BUTTON_6.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, msg, dialog_box, ncr_comm\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\n$insert lsl_users_equ\r\n$insert ncr_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\n\r\nVpMfg = xlate( 'CONFIG', 'QUOTE_SIGS', VipMfg$, 'X' )\r\nVpPwd = xlate( 'CONFIG', 'QUOTE_SIGS', VipMfgPwd$, 'X' )\r\nVPSig = .vp_sig->text\r\nVPSigName = .vp_sig_name->text\r\nCurStatus = .status->value\r\nif CurStatus = 'C' then\r\n if ( @user4 = VPMfg ) then\r\n\t Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:VpPwd )\r\n\t\tif Valid then\r\n\t .vp_sig->text = @user4\r\n\t .vp_sig_name->text = xlate( 'LSL_USERS', @user4, 'FIRST_LAST', 'X' )\r\n\t .status->value = 'V'\r\n\t @@window->savewarn = 1\r\n\t end\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You are not the VP of Manufacturing...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n if ( VPSig <> '' ) then\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'This NCR has already been verified.'\r\n\t MsgInfo = '!'\r\n\t Void = msg( '', MsgInfo )\r\n end else\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'This NCR must be signed by the department manager, signed as rejected, and signed to ship, prior to verifying.'\r\n\t MsgInfo = '!'\r\n\t Void = msg( '', MsgInfo )\r\n end\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NCR.DEPT_MGR_BUTTON.json b/LSL2/OIEVENT/CLICK/NCR.DEPT_MGR_BUTTON.json new file mode 100644 index 0000000..f6b8fdf --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NCR.DEPT_MGR_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, msg, dialog_box, ncr_comm\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\n$insert lsl_users_equ\r\n$insert ncr_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nDeptResp = .departmentresp->text\r\nDeptManager = ''\r\nQSRec = xlate( 'CONFIG', 'QUOTE_SIGS', '', 'X' )\r\nbegin case\r\n case DeptResp = 'Production'\r\n DeptManager = QSRec\r\n case DeptResp = 'Engineering'\r\n DeptManager = QSRec\r\n case DeptResp = 'Maintenance'\r\n DeptManager = QSRec\r\n case DeptResp = 'Facilities'\r\n DeptManager = QSRec\r\n case DeptResp = 'Shipping'\r\n DeptManager = QSRec\r\nend case\r\n* NEED TO GET THE DEPARTMENT MANAGER'S NAME\r\nif ( @user4 = DeptManager ) or ( DeptResp = 'Customer' ) or ( DeptResp = 'Research' ) then\r\n\tDeptMgrSig = .dept_mgr_sig->text\r\n\tDeptMgrSigName = .dept_mgr_sig_name->text\r\n\tif DeptMgrSig <> '' then\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'This NCR has already been signed by the manager.'\r\n\t MsgInfo = '!'\r\n\t Void = msg( '', MsgInfo )\r\n\tend else\r\n\t Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\t\tif Valid then\r\n\t .dept_mgr_sig->text = @user4\r\n\t .dept_mgr_sig_name->text = xlate( 'LSL_USERS', @user4, 'FIRST_LAST', 'X' )\r\n VpMfg = xlate( 'CONFIG', 'QUOTE_SIGS', VipMfg$, 'X' )\t\t\r\n\t\t NCR = .ncr_id->text\r\n\t\t Message = 'NCR# ':NCR:' was signed by department manager ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' )\r\n\t\t create_note( VpMfg, @user4, 'NCR# ':NCR:' signed by manager', Message, 'NCR', NCR )\r\n\t @@window->savewarn = 1\r\n\t end\r\n\tend\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You are not the ':DeptResp:' manager.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NCR.NCR_PRINT.json b/LSL2/OIEVENT/CLICK/NCR.NCR_PRINT.json new file mode 100644 index 0000000..88c8911 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NCR.NCR_PRINT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, set_printer, get_printer, msg, fieldcount, entid, repository\r\ndeclare function print_ncr\r\ndeclare subroutine security_err_msg\r\n\r\n$insert security_rights_equ\r\n$insert oiprint_equates\r\n$insert msg_equates\r\n$insert company_equ\r\n$insert logical\r\n\r\nif security_check( 'NCR', Print$ ) then\r\n\tif @@window->savewarn = true$ then\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'You need to save this NCR before printing.'\r\n\t MsgInfo = '!'\r\n\t Void = msg( '', MsgInfo )\r\n\t return 0\r\n\tend else\r\n\t NCR = .ncr_id->text\r\n\t Void = print_ncr( NCR, '', '' )\r\n\tend\r\nend else\r\n security_err_msg( 'NCR', Print$ )\r\nend\r\nRETURN 0\r\n*===========================================================================*\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NCR.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/NCR.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NCR.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NCR.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/NCR.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NCR.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NCR.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/NCR.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NCR.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NCR.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/NCR.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NCR.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NCR.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/NCR.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NCR.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NCR.STAT_INFO_BUTTON.json b/LSL2/OIEVENT/CLICK/NCR.STAT_INFO_BUTTON.json new file mode 100644 index 0000000..9f6a6f6 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NCR.STAT_INFO_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box\r\n\r\nValsToPass = .stat_info->array\r\nValsToPass:= char(245):.thick_read->array\r\nValsToPass:= char(245):.rho_read->array\r\nValsToPass:= char(245):.unit_type->value\r\nOrigVals = ValsToPass\r\nRetVal = dialog_box( 'NCR_CALCULATOR', @window, ValsToPass:char(245):'*CENTER' )\r\nif RetVal <> 'CANCEL' and RetVal <> ValsToPass then\r\n .stat_info->array = field( RetVal, char(245), 1 )\r\n .thick_read->array = field( RetVal, char(245), 2 )\r\n .rho_read->array = field( RetVal, char(245), 3 )\r\n .unit_type->value = field( RetVal, char(245), 4 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NCR.SURF_INFO_BUTTON.json b/LSL2/OIEVENT/CLICK/NCR.SURF_INFO_BUTTON.json new file mode 100644 index 0000000..fa700f9 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NCR.SURF_INFO_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box\r\n\r\nValsToPass = .surface_info->array\r\nOrigVals = ValsToPass\r\nRetVal = dialog_box( 'NCR_SURFACE_INFO', @window, ValsToPass:char(245):'*CENTER' )\r\n\r\nif RetVal <> 'CANCEL' and RetVal <> ValsToPass then\r\n .surface_info->array = RetVal\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NCR_CALCULATOR.BUTTON_2.json b/LSL2/OIEVENT/CLICK/NCR_CALCULATOR.BUTTON_2.json new file mode 100644 index 0000000..250d5f1 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NCR_CALCULATOR.BUTTON_2.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nControls = get_property( @window, '@Controls' )\r\nStatInfo = get_property( Controls, 'TEXT' )\r\nconvert @rm to @fm in StatInfo\r\nRetVal = StatInfo:char(245)\r\nRetVal:= .thickness_readings->array:char(245)\r\nRetVal:= .sheetrho_readings->array:char(245)\r\nRetVal:= .calc_type->value\r\n\r\nend_dialog( @window, RetVal )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NCR_CALCULATOR.BUTTON_3.json b/LSL2/OIEVENT/CLICK/NCR_CALCULATOR.BUTTON_3.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NCR_CALCULATOR.BUTTON_3.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NCR_CALCULATOR.CALC_BUTTON.json b/LSL2/OIEVENT/CLICK/NCR_CALCULATOR.CALC_BUTTON.json new file mode 100644 index 0000000..6c2d0fd --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NCR_CALCULATOR.CALC_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_calculator_comm\r\n\r\nArrayToFill = 'TTHICK_AVG/TRES_AVG/TTHICK_STDEV/TRES_STDEV/TTHICK_MAX/TRES_MAX/'\r\nArrayToFill:= 'TTHICK_MIN/TRES_MIN/TTHICK_UNIF/TRES_UNIF'\r\nswap '/' with @rm:@window:'.' in ArrayToFill\r\nArrayToFill = @window:'.':ArrayToFill\r\nCalcs = rds_calculator_comm( 'CALC_STAT_INFO' )\r\nswap @vm with @rm in Calcs\r\nVoid = set_property( ArrayToFill, 'TEXT', Calcs ) \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NCR_CALCULATOR.CALC_TYPE.json b/LSL2/OIEVENT/CLICK/NCR_CALCULATOR.CALC_TYPE.json new file mode 100644 index 0000000..c8c7d8f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NCR_CALCULATOR.CALC_TYPE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nNewVal = .calc_type->value\r\nif NewVal = 'S' then\r\n .thick_resrho_label->text = \"Thickness:SheetRHO\"\r\nend else\r\n .thick_resrho_label->text = \"Thickness:Resistivity\"\r\nend\r\nVoid = send_event( @window:'.CALC_BUTTON', 'CLICK' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NCR_CALCULATOR.SHEETRHO_READINGS.json b/LSL2/OIEVENT/CLICK/NCR_CALCULATOR.SHEETRHO_READINGS.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NCR_CALCULATOR.SHEETRHO_READINGS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NCR_CALCULATOR.THICKNESS_READINGS.json b/LSL2/OIEVENT/CLICK/NCR_CALCULATOR.THICKNESS_READINGS.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NCR_CALCULATOR.THICKNESS_READINGS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NCR_QUERY.BUTTON_3.json b/LSL2/OIEVENT/CLICK/NCR_QUERY.BUTTON_3.json new file mode 100644 index 0000000..a83d4e5 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NCR_QUERY.BUTTON_3.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.NCR' to DictNCRTable else\r\n Void = msg( '', 'Unable to open DICT.NCR...' )\r\n return 0\r\nend\r\nSearchStr = ''\r\nNCRDateFrom = .ncr_date_from->text\r\nNCRDateThru = .ncr_date_thru->text\r\nRDSIds = .rds_ids->array\r\nShifts = .shift->text\r\nDeptsResp = .departmentresp->text\r\n*\r\nMPost = .mpost_check->check\r\nMPre = .mpre_check->check\r\nCPost = .cpost_check->check\r\nCPre = .cpre_check->check\r\n*\r\n* need to convert field to value markers as the text property will \r\n* be field mark delimited if more than one is choosen\r\nconvert @fm to @vm in Shifts\r\nconvert @fm to @vm in DeptsResp\r\n\r\n* NCR status variables\r\nOpen = .open_check->check\r\nClosed = .closed_check->check\r\nVerified = .verified_check->check\r\n\r\nswap @vm:@vm with '' in RDSIds\r\nif RDSIds[-1,1] = @vm then RDSIds[-1,1] = ''\r\nif RDSIds then\r\n SearchStr<-1> = 'RDS_ID':@vm:RDSIds\r\nend\r\n\r\nif NCRDateFrom and NCRDateThru then\r\n SearchStr<-1> = 'ENTRY_DATE':@vm:NCRDateFrom:'...':NCRDateThru\r\nend else\r\n\tif NCRDateFrom then\r\n\t SearchStr<-1> = 'ENTRY_DATE':@vm:'>=':NCRDateFrom\r\n\tend\r\n\tif NCRDateThru then\r\n\t SearchStr<-1> = 'ENTRY_DATE':@vm:'<=':NCRDateThru\r\n\tend \r\nend\r\n\r\n* NCR status\r\nNCRStatusVar = ''\r\nif Open then\r\n NCRStatusVar<1,-1> = 'O'\r\nend\r\nif Closed then\r\n NCRStatusVar<1,-1> = 'C'\r\nend\r\nif Verified then\r\n NCRStatusVar<1,-1> = 'V'\r\nend\r\nif NCRStatusVar then\r\n SearchStr<-1> = 'STATUS':@vm:NCRStatusVar\r\nend\r\n\r\n* Shifts\r\nif Shifts <> '' then\r\n SearchStr<-1> = 'SHIFT':@vm:Shifts\r\nend\r\n\r\n* Responsible Departments\r\nif DeptsResp <> '' then\r\n SearchStr<-1> = 'DEPT_RESP':@vm:DeptsResp\r\nend\r\n\r\n* Reject Types\r\nRejTypeVar = ''\r\nif MPost then\r\n RejTypeVar<1,-1> = 'L_POST_REJ_CNT'\r\nend\r\nif MPre then\r\n RejTypeVar<1,-1> = 'L_PRE_REJ_CNT'\r\nend\r\nif CPost then\r\n RejTypeVar<1,-1> = 'C_POST_REJ_CNT'\r\nend\r\nif CPre then\r\n RejTypeVar<1,-1> = 'C_PRE_REJ_CNT'\r\nend\r\nif RejTypeVar <> '' then\r\n SearchStr<-1> = 'REJ_CNT_FIELD':@vm:RejTypeVar\r\nend\r\n\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'NCR', DictNCRTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting NCR records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'NCR', '#ENTRY_DATE', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NCR_SURFACE_INFO.CANCEL.json b/LSL2/OIEVENT/CLICK/NCR_SURFACE_INFO.CANCEL.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NCR_SURFACE_INFO.CANCEL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NCR_SURFACE_INFO.SAVE.json b/LSL2/OIEVENT/CLICK/NCR_SURFACE_INFO.SAVE.json new file mode 100644 index 0000000..96c0043 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NCR_SURFACE_INFO.SAVE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\ndeclare function msg\r\n$insert msg_equates\r\n\r\nControls = get_property( @window, '@Controls' )\r\nRetVal = get_property( Controls, 'TEXT' )\r\nconvert @rm to @fm in RetVal\r\nend_dialog( @window, RetVal )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NDA.CONTACT_IDS.json b/LSL2/OIEVENT/CLICK/NDA.CONTACT_IDS.json new file mode 100644 index 0000000..29cdf4f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NDA.CONTACT_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NDA.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/NDA.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NDA.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NDA.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/NDA.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NDA.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NDA.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/NDA.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NDA.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NDA.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/NDA.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NDA.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NDA.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/NDA.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NDA.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NDA_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/NDA_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NDA_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NDA_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/NDA_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..9d0c133 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NDA_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, fieldcount, ex_vm_rem\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.NDA' to DictNDATable else\r\n Void = msg( '', 'Unable to open DICT.NDA...' )\r\n return 0\r\nend\r\n\r\nSearchStr = ''\r\nInitDateFrom = .init_date_from->text\r\nInitDateThru = .init_date_thru->text\r\nExpDateFrom = .exp_date_from->text\r\nExpDateThru = .exp_date_thru->text\r\nCustIds = .customer_info->array<1>\r\nActive = .active_check->check\r\nInActive = .inactive_check->check\r\n\r\nCustIds = ex_vm_rem( CustIds )\r\n\r\nif InitDateFrom and InitDateThru then\r\n SearchStr<-1> = 'INIT_DATE':@vm:InitDateFrom:'...':InitDateThru\r\nend else\r\n\tif InitDateFrom then\r\n\t SearchStr<-1> = 'INIT_DATE':@vm:'>=':InitDateFrom\r\n\tend\r\n\tif InitDateThru then\r\n\t SearchStr<-1> = 'INIT_DATE':@vm:'<=':InitDateThru\r\n\tend\r\nend\r\nif ExpDateFrom and ExpDateThru then\r\n SearchStr<-1> = 'EXP_DATE':@vm:ExpDateFrom:'...':ExpDateThru\r\nend else\r\n\tif ExpDateFrom then\r\n\t SearchStr<-1> = 'EXP_DATE':@vm:'>=':ExpDateFrom\r\n\tend\r\n\tif ExpDateThru then\r\n\t SearchStr<-1> = 'EXP_DATE':@vm:'<=':ExpDateThru\r\n\tend\r\nend\r\nif CustIds <> '' then\r\n SearchStr<-1> = 'CUST_ID':@vm:CustIds\r\nend\r\nStatusVar = ''\r\nif Active then\r\n StatusVar<1,-1> = 'A'\r\nend\r\nif InActive then\r\n StatusVar<1,-1> = 'I'\r\nend\r\nif StatusVar then\r\n SearchStr<-1> = 'STATUS':@vm:StatusVar\r\nend\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'NDA', DictNDATable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting NDA records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'NDA', 'CUST_NAME':@fm:'#INIT_DATE', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NDW_GAN_PROD_SPEC.BUTTON_13.json b/LSL2/OIEVENT/CLICK/NDW_GAN_PROD_SPEC.BUTTON_13.json new file mode 100644 index 0000000..68951fc --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NDW_GAN_PROD_SPEC.BUTTON_13.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function prod_spec_comm\r\n\r\nVoid = set_property( @window, '@MeasureToSet', 'TRANS_MEASURE' )\r\nVoid = set_property( @window, '@MeasureType', 'TRANS' )\r\nVoid = set_property( @window, '@MeasureDesc', 'Transition' )\r\nVoid = prod_spec_comm( \"SET_MEASURE\" )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NDW_GAN_PROD_SPEC.BUTTON_14.json b/LSL2/OIEVENT/CLICK/NDW_GAN_PROD_SPEC.BUTTON_14.json new file mode 100644 index 0000000..5546fbd --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NDW_GAN_PROD_SPEC.BUTTON_14.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function prod_spec_comm\r\n\r\nVoid = set_property( @window, '@MeasureToSet', 'STRESS_MEASURE' )\r\nVoid = set_property( @window, '@MeasureType', 'STRESS' )\r\nVoid = set_property( @window, '@MeasureDesc', 'Stress' )\r\nVoid = prod_spec_comm( \"SET_MEASURE\" )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NDW_GAN_PROD_SPEC.SPEC_NEXT_FIX.json b/LSL2/OIEVENT/CLICK/NDW_GAN_PROD_SPEC.SPEC_NEXT_FIX.json new file mode 100644 index 0000000..9b35687 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NDW_GAN_PROD_SPEC.SPEC_NEXT_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event, send_event\r\ndeclare subroutine yield\r\n\r\n*Vpos = get_property( @window, 'VPOSITION', 1 )\r\n*CurPage = Vpos<1>\r\nVoid = send_event( @window:'.CANCEL_FIX', 'CLICK' )\r\nVoid = send_event( 'PROD_SPEC', 'QBFNEXT' )\r\nVoid = send_event( 'PROD_SPEC.SPEC_BUTTON_FIX', 'CLICK' )\r\n*if CurPage = 2 then\r\n* Void = post_event( @window, 'PAGE', 2 )\r\n* yield()\r\n* yield()\r\n* Vpos<1> = 2\r\n* Void = set_property( 'PROD_SPEC_SI', 'VPOSITION', Vpos )\r\n*end\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NDW_GAN_PROD_SPEC.SPEC_PREV_FIX.json b/LSL2/OIEVENT/CLICK/NDW_GAN_PROD_SPEC.SPEC_PREV_FIX.json new file mode 100644 index 0000000..4de52c7 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NDW_GAN_PROD_SPEC.SPEC_PREV_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event, send_event\r\ndeclare subroutine yield\r\n\r\n*Vpos = get_property( @window, 'VPOSITION', 1 )\r\n*CurPage = Vpos<1>\r\nVoid = send_event( @window:'.CANCEL_FIX', 'CLICK' )\r\nVoid = send_event( 'PROD_SPEC', 'QBFPREV' )\r\nVoid = send_event( 'PROD_SPEC.SPEC_BUTTON_FIX', 'CLICK' )\r\n*if CurPage = 2 then\r\n *Void = post_event( @window, 'PAGE', 2 )\r\n *Void = post_event( @window:'.SUB_INSTRUCTIONS', 'GOTFOCUS', '' ) \r\n *Void = set_property( @window:'.SUB_INSTRUCTIONS', \"FOCUS\", 1) \r\n* Vpos<1> = 2\r\n* Void = set_property( 'PROD_SPEC_SI', 'VPOSITION', Vpos )\r\n*end\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NEW_REPORT.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/NEW_REPORT.CANCEL_BUTTON.json new file mode 100644 index 0000000..b474933 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NEW_REPORT.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NEW_REPORT.SAVE_BUTTON.json b/LSL2/OIEVENT/CLICK/NEW_REPORT.SAVE_BUTTON.json new file mode 100644 index 0000000..a0626a9 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NEW_REPORT.SAVE_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, post_event, msg, dialog_box, get_property\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n$insert rpt_cfg_equ\r\n\r\n\r\nNewReportID = .new_id->text\r\n\r\nIf NewReportID[-8,8] # '_SRPTCFG' Then\r\n NewReportID := '_SRPTCFG'\r\nEnd\r\n\r\nopen 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table' )\r\n end_dialog( @window, NewReportID )\r\nend\r\n\r\nGoSub CheckRecordExists\r\n\r\nIf Ans Then GoSub WriteReportRecord\r\n\r\nreturn 0\r\n\r\n\r\n*===========================================\r\nCheckRecordExists:\r\n*===========================================\r\nAns = 1\r\nRead RptCfgRecd From ConfigTable, NewReportID Then\r\n TmpStructure = ''\r\n Msg001 = 'REPORT CONFIG RECORD ':NewReportID:' ALREADY EXISTS!|'\r\n Msg001 = 'ARE YOU SURE YOU WANT TO OVERWRITE IT WITH THE CURRENT ONE?'\r\n TmpStructure = Msg001\r\n TmpStructure = 'BNYC'\r\n TmpStructure = 'A'\r\n TmpStructure = '!'\r\n TmpStructure = 'OVER WRITE??'\r\n Ans = msg('', TmpStructure )\r\n If Ans = 0 Or Ans = Char(27) Then\r\n Ans = msg('', \"REPORT CONFIG RECORD COPY CANCELED!\" )\r\n GoSub UnlockRecord\r\n Ans = 0\r\n End\r\nEnd\r\nReturn\r\n\r\n*===========================================\r\nWriteReportRecord:\r\n*===========================================\r\n *Get the current report ID.\r\n CurrReportID = get_property('REPORT_SLIST_CFG.REPORT_ID', 'TEXT')\r\n *Read the report config record...\r\n Read RptCfgRecd From ConfigTable, CurrReportID Else\r\n Void = msg( '', 'Can Not read ':CurrReportID:' from CONFIG table' )\r\n Void = post_event( @window:'.NEW_ID', 'GOTFOCUS' )\t \r\n return 0\r\n End\r\n LockID = NewReportID\r\n GoSub LockRecord \r\n write RptCfgRecd on ConfigTable, NewReportID else\r\n Void = msg( '', 'Unable to write ':NewReportID:' to CONFIG table' )\r\n Void = post_event( @window:'.NEW_ID', 'GOTFOCUS' )\t \r\n return 0\r\n end\r\n Ans = msg('', 'Record ':NewReportID:' is written into CONFIG table' )\r\n GoSub UnlockRecord\r\nReturn\r\n\r\n*===========================================\r\nLockRecord:\r\n*===========================================\r\nlock ConfigTable, LockID else\r\n Void = msg( '', LockID:' is in use somewhere else. Can not write to it...' )\r\n Void = post_event( @window:'.NEW_ID', 'GOTFOCUS' )\t \r\n return 0\r\nend\r\n\r\nReturn\r\n\r\n*===========================================\r\nUnlockRecord:\r\n*===========================================\r\nunlock ConfigTable, LockID else\r\n Void = msg( '', 'Unable to unlock ':LockID:' in CONFIG table' )\r\nend\r\n\r\nReturn\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NIGHTLY_PROCESS.CANCEL.json b/LSL2/OIEVENT/CLICK/NIGHTLY_PROCESS.CANCEL.json new file mode 100644 index 0000000..e5785ec --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NIGHTLY_PROCESS.CANCEL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\ndeclare subroutine end_dialog\r\n\r\nopen 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\nunlock ConfigTable, 'NIGHTLY_PROCESS' else\r\n Void = msg( '', 'Unable to unlock CONFIG NIGHTLY_PROCESS')\r\nend\r\nend_dialog( @window, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NIGHTLY_PROCESS.NIGHT_PROCESS_DATA.json b/LSL2/OIEVENT/CLICK/NIGHTLY_PROCESS.NIGHT_PROCESS_DATA.json new file mode 100644 index 0000000..64c3a5d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NIGHTLY_PROCESS.NIGHT_PROCESS_DATA.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NIGHTLY_PROCESS.SAVE.json b/LSL2/OIEVENT/CLICK/NIGHTLY_PROCESS.SAVE.json new file mode 100644 index 0000000..a8e3665 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NIGHTLY_PROCESS.SAVE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\ndeclare subroutine end_dialog\r\n\r\nopen 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\nNightProcess = .night_process_data->array\r\nWinSubs = NightProcess<1>\r\nconvert @lower_case to @upper_case in WinSubs\r\nNightProcess<1> = WinSubs\r\nwrite NightProcess on ConfigTable, 'NIGHTLY_PROCESS' else\r\n Void = msg( '', 'Unable to write NIGHTLY_PROCESS in CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\nunlock ConfigTable, 'NIGHTLY_PROCESS' else\r\n Void = msg( '', 'Unable to unlock NIGHTLY_PROCESS in CONFIG table' )\r\nend\r\nend_dialog( @window, '' )\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NOTES.PRINT.json b/LSL2/OIEVENT/CLICK/NOTES.PRINT.json new file mode 100644 index 0000000..2b7f914 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NOTES.PRINT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, set_printer, get_printer, msg, fieldcount, ex_vm_rem, Printer_Select\r\ndeclare subroutine security_err_msg\r\n\r\n$insert security_rights_equ\r\n$insert oiprint_equates\r\n$insert msg_equates\r\n\r\n\r\n\r\nPrintPath = Printer_Select('',1)\t;* Get default printer\r\n\r\nStat = set_printer( 'INIT', '', '', 1.25:@fm:'':@fm:1.0:@fm:'', 0,'',PrintPath )\r\ngosub CheckErr\r\n\r\nFont = \"Courier New,12,L,1\"\r\nconvert ',' to @fm in Font\r\nHf = Font\r\nStat = set_printer( 'FONT', Font )\r\ngosub CheckErr\r\n\r\nSendTo = .send_to_internal->array\r\n\r\n* internal\r\nVoid = set_printer( 'TEXT', 'TO:' )\r\nTable = ''\r\nSendTo<1> = ex_vm_rem( SendTo<1> )\r\nRcnt = fieldcount( SendTo<1>, @vm )\r\nfor i = 1 to Rcnt\r\n\tTvar = SendTo<2,i>:@vm:SendTo<2,i+1>:@vm:SendTo<2,i+2>\r\n\tTable<-1> = Tvar\r\n\ti=i+2; *skip column 2 & 3 that just got appended\r\nnext i\r\nVoid = Set_Printer( 'ADDTABLE', '2880':@vm:'2880':@vm:'2880', '', Table, '','','', TB_ALL )\r\nVoid = set_printer( 'TEXT', '' )\r\nVoid = set_printer( 'TEXT', 'From: ':.from_internal->text:' ':.from_internal_name->text )\r\nVoid = set_printer( 'TEXT', '' )\r\nVoid = set_printer( 'TEXT', 'Date: ':.entry_date->text )\r\nVoid = set_printer( 'TEXT', '' )\r\nVoid = set_printer( 'TEXT', 'Subject: ':.subject->text ) \r\nVoid = set_printer( 'TEXT', '' )\r\nVoid = set_printer( 'TEXT', ' M E S S A G E' )\r\nVoid = set_printer( 'TEXT', '' ) \r\nMessageText = .message_internal->text\r\nTableColInfo = '9360'\r\nx = set_printer(\"ADDTABLE\", TableColInfo, '', MessageText, '', '', 1, TB_NONE)\r\n\r\nstat = set_printer( 'TERM' ) \r\ngosub CheckErr \r\nRETURN 0\r\n*===========================================================================*\r\nCheckErr:\r\n if stat < 0 then\r\n goto FatalExit\r\n end\r\nreturn \r\n\r\n*===========================================================================*\r\nFatalExit:\r\n Void = msg( '', Stat )\r\n Stat = set_printer( 'TERM' )\r\nreturn \r\n\r\n*===========================================================================*\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NOTES.REPLY_ALL.json b/LSL2/OIEVENT/CLICK/NOTES.REPLY_ALL.json new file mode 100644 index 0000000..a15b5db --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NOTES.REPLY_ALL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$INSERT NOTES_EQU\r\n\r\nDECLARE FUNCTION Send_Event, Post_Event, Get_Property, Set_Property\r\n\r\nequ CRLF$ TO CHAR(13):CHAR(10)\r\n\r\n\r\nMessage = Get_Property(@WINDOW:'.MESSAGE_INTERNAL','TEXT')\r\nSubject = Get_Property(@WINDOW:'.SUBJECT','TEXT')\r\n\r\nMessage = CRLF$:CRLF$:'>>>>':CRLF$:Message:CRLF$:'<<<<'\r\n\r\n\r\nFromID = Get_Property(@WINDOW:'.FROM_INTERNAL','DEFPROP')\r\n\r\nEntryID = @RECORD\r\n\r\nSendToInternal = Get_Property(@WINDOW:'.SEND_TO_INTERNAL','ARRAY')\r\n\r\nLOCATE EntryId IN SendToInternal<1> USING @VM SETTING FPos ELSE\r\n SendToInternal = EntryID:@VM:SendToInternal\r\nEND\r\n\r\nLOCATE @USER4 IN SendToInternal<1> USING @VM SETTING FPos2 THEN\r\n SendToInternal = Delete( SendToInternal, 1, FPos2, 0 )\r\nEND\r\n\r\nvoid = Set_Property( @WINDOW, '@SendTo', SendToInternal )\r\n*void = Set_Property( @WINDOW, '@SendTo', FromID )\t\t\t;* Reply function should be just to the sender\r\nvoid = Set_Property( @WINDOW, '@Subject', Subject )\r\nvoid = Set_Property( @WINDOW, '@Message', Message )\r\n\r\nAttachInfo = Get_Property(@WINDOW:'.ATTACH_INFO','ARRAY')\r\nAttachWin = AttachInfo<1,1>\r\nAttachKeys = AttachInfo<2>\r\n\r\nVoid = Set_Property( @WINDOW, '@AttachWin', AttachWin )\r\nVoid = Set_Property( @WINDOW, '@AttachKeys', AttachKeys )\r\n\r\n@@WINDOW->savewarn = 0\r\n\r\nvoid = Send_Event( @WINDOW, 'CLEAR', 0, 1, 1, '' )\r\n\r\nIoOptions = Get_Property( @WINDOW, 'IOOPTIONS' )\r\n\r\nIoOptions<2> = 0 ;* do the lock creating a new reply\r\n\r\nvoid = Set_Property( @WINDOW, 'IOOPTIONS', IoOptions )\r\n\r\nvoid = Post_Event( @WINDOW:'.SEQ', 'GOTFOCUS', '' )\r\n\r\nvoid = Set_Property( @WINDOW:'.SEQ', 'FOCUS', 1 )\r\n\r\nvoid = Set_Property(@WINDOW:'.SAVE_SEND','ENABLED',1)\r\nvoid = Set_Property(@WINDOW:'.REPLY_BUTTON','ENABLED',0)\r\n\r\nvoid = Set_Property(@WINDOW:'.MENU.FILE.SAVE_ROW','ENABLED',1)\r\n\r\nVoid = Set_Property(@WINDOW:'.MESSAGE_INTERNAL', \"FOCUS\", 1)\r\n\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NOTES.REPLY_BUTTON.json b/LSL2/OIEVENT/CLICK/NOTES.REPLY_BUTTON.json new file mode 100644 index 0000000..0b84802 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NOTES.REPLY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$INSERT NOTES_EQU\r\n\r\nDECLARE FUNCTION Send_Event, Post_Event, Get_Property, Set_Property\r\n\r\nequ CRLF$ TO CHAR(13):CHAR(10)\r\n\r\n\r\nMessage = Get_Property(@WINDOW:'.MESSAGE_INTERNAL','TEXT')\r\nSubject = Get_Property(@WINDOW:'.SUBJECT','TEXT')\r\n\r\nMessage = CRLF$:CRLF$:'>>>>':CRLF$:Message:CRLF$:'<<<<'\r\n\r\n\r\nFromID = Get_Property(@WINDOW:'.FROM_INTERNAL','DEFPROP')\r\n\r\n*EntryID = @RECORD\r\n\r\n*SendToInternal = Get_Property(@WINDOW:'.SEND_TO_INTERNAL','ARRAY')\r\n\r\n*LOCATE EntryId IN SendToInternal<1> USING @VM SETTING FPos ELSE\r\n* SendToInternal = EntryID:@VM:SendToInternal\r\n*END\r\n\r\n*LOCATE @USER4 IN SendToInternal<1> USING @VM SETTING FPos2 THEN\r\n* SendToInternal = Delete( SendToInternal, 1, FPos2, 0 )\r\n*END\r\n\r\n*void = Set_Property( @WINDOW, '@SendTo', SendToInternal )\r\nvoid = Set_Property( @WINDOW, '@SendTo', FromID )\t\t\t;* Reply function should be just to the sender\r\nvoid = Set_Property( @WINDOW, '@Subject', Subject )\r\nvoid = Set_Property( @WINDOW, '@Message', Message )\r\n\r\nAttachInfo = Get_Property(@WINDOW:'.ATTACH_INFO','ARRAY')\r\nAttachWin = AttachInfo<1,1>\r\nAttachKeys = AttachInfo<2>\r\n\r\nVoid = Set_Property( @WINDOW, '@AttachWin', AttachWin )\r\nVoid = Set_Property( @WINDOW, '@AttachKeys', AttachKeys )\r\n\r\n@@WINDOW->savewarn = 0\r\n\r\nvoid = Send_Event( @WINDOW, 'CLEAR', 0, 1, 1, '' )\r\n\r\nIoOptions = Get_Property( @WINDOW, 'IOOPTIONS' )\r\n\r\nIoOptions<2> = 0 ;* do the lock creating a new reply\r\n\r\nvoid = Set_Property( @WINDOW, 'IOOPTIONS', IoOptions )\r\n\r\nvoid = Post_Event( @WINDOW:'.SEQ', 'GOTFOCUS', '' )\r\n\r\nvoid = Set_Property( @WINDOW:'.SEQ', 'FOCUS', 1 )\r\n\r\nvoid = Set_Property(@WINDOW:'.SAVE_SEND','ENABLED',1)\r\nvoid = Set_Property(@WINDOW:'.REPLY_BUTTON','ENABLED',0)\r\n\r\nvoid = Set_Property(@WINDOW:'.MENU.FILE.SAVE_ROW','ENABLED',1)\r\n\r\nVoid = Set_Property(@WINDOW:'.MESSAGE_INTERNAL', \"FOCUS\", 1)\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NOTES.SAVE_SEND.json b/LSL2/OIEVENT/CLICK/NOTES.SAVE_SEND.json new file mode 100644 index 0000000..28c0aaa --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NOTES.SAVE_SEND.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION RowExists, Send_Event\r\nDECLARE SUBROUTINE ErrMsg\r\n\r\n$insert lsl_common\r\n$insert logical\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN DEBUG\r\n\r\nif rowexists( 'NOTES', .seq->text ) then\r\n\r\n\tErrMsg('Contact FI immediately. Your are looking at the bug in the eMail system.')\r\n\t\r\n\t@@window->savewarn = 0\r\n\tVoid = send_event( @window, 'CLEAR', 0, 1, 1, '' )\r\n\tvoid = send_event( @window, 'CLOSE' )\r\n\tMisc@ = false$\r\n\treturn 0\r\nend else\r\n return 1\r\nend\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NOTES.SEND_TO_GROUP_INT.json b/LSL2/OIEVENT/CLICK/NOTES.SEND_TO_GROUP_INT.json new file mode 100644 index 0000000..29cdf4f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NOTES.SEND_TO_GROUP_INT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NOTES.SEND_TO_INTERNAL.json b/LSL2/OIEVENT/CLICK/NOTES.SEND_TO_INTERNAL.json new file mode 100644 index 0000000..29cdf4f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NOTES.SEND_TO_INTERNAL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NOTES.VIEW_ATTACH_BUTTON.json b/LSL2/OIEVENT/CLICK/NOTES.VIEW_ATTACH_BUTTON.json new file mode 100644 index 0000000..3084140 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NOTES.VIEW_ATTACH_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, start_window, msg\r\n$insert msg_equates\r\n$insert lsl_common\r\n$insert logical\r\n\r\nAttachInfo = .attach_info->array\r\nAttachWin = AttachInfo<1,1>\r\nAttachKeys = AttachInfo<2>\r\n\r\nLOOP\r\nUNTIL AttachKeys[-1,1] NE @VM\r\n\tAttachKeys[-1,1] = ''\r\nREPEAT\r\n\r\nif AttachWin and AttachKeys then\r\n Void = start_window( AttachWin, @window, AttachKeys:'*CENTER', '', '' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = '!'\r\n MsgInfo = 'Missing window or key information...' \r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NOTES_ATTACH.SEND_TO_GROUP_INT.json b/LSL2/OIEVENT/CLICK/NOTES_ATTACH.SEND_TO_GROUP_INT.json new file mode 100644 index 0000000..29cdf4f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NOTES_ATTACH.SEND_TO_GROUP_INT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/NOTES_ATTACH.SEND_TO_INTERNAL.json b/LSL2/OIEVENT/CLICK/NOTES_ATTACH.SEND_TO_INTERNAL.json new file mode 100644 index 0000000..29cdf4f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/NOTES_ATTACH.SEND_TO_INTERNAL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ORDER.BILL_TO_ADDR.json b/LSL2/OIEVENT/CLICK/ORDER.BILL_TO_ADDR.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ORDER.BILL_TO_ADDR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ORDER.BUTTON_1.json b/LSL2/OIEVENT/CLICK/ORDER.BUTTON_1.json new file mode 100644 index 0000000..994b4cb --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ORDER.BUTTON_1.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function next_key, send_event, msg, security_check\r\ndeclare subroutine security_err_msg, delete_row\r\n$insert security_rights_equ\r\n$insert order_equ\r\n\r\nif security_check( 'Order', Write$ ) then\r\n * save off all data\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n convert @fm to @rm in AllControls\r\n AllData = get_property( Allcontrols, 'TEXT' )\r\n OrderDetail = .order_detail->array\r\n BillToArray = .bill_to_addr->array\r\n ShipToArray = .ship_to_addr->array\r\n RecToUse = ''\r\n RecToUse = iconv( OrderDetail<9>, 'MD2,$' )\r\n RecToUse = iconv( OrderDetail<10>, 'MD2,$' )\r\n RecToUse = OrderDetail<11>\r\n RecToUse = iconv( OrderDetail<12>, 'MD2,$' )\r\n OrigOrderNo = .order_no->text\r\n\tChoice = send_event( @window, 'CLEAR' )\r\n\tif Choice = '' then\r\n\t * if choice has a value then the user has canceled \r\n\t\topen 'ORDER' to OrderTableVar else\r\n\t\t Void = msg( '', 'Unable to open ORDER...' )\r\n\t\t return 0\r\n\t\tend\r\n\t\tNextOrderKey = next_key( 'ORDER', OrderTableVar, 'NEXT', '' )\r\n\t\t.order_no->text = NextOrderKey\r\n\t\tunlock OrderTableVar, NextOrderKey else\r\n\t\t Void = msg( '', 'Unable to unlock ORDER ':NextOrderKey )\r\n\t\t return 0\r\n\t\tend\r\n\t\tVoid = send_event( @window:'.ORDER_NO', 'LOSTFOCUS' )\r\n\t\tVoid = set_property( AllControls, 'TEXT', AllData )\r\n\t\t.order_no->text = NextOrderKey\r\n\t\t.entry_date->text = oconv( date(), 'D2/' )\r\n\t\t.entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t.status->value = 'O'\r\n\t\t.po->text = ''\r\n\t\t.close_date->text = ''\t\t\r\n\t\tOrderDetail<3> = str( @vm, 6 )\r\n\t\tVoid = set_property( @window, 'RECORD', RecToUse )\r\n\t\tOrderDetail<13> = str( @vm, 6 )\r\n \t.order_detail->array = OrderDetail\r\n .bill_to_addr->array = BillToArray\r\n .ship_to_addr->array = ShipToArray\r\n\t\tVoid = send_event( @window:'.ORDER_DETAIL', 'CALCULATE', 13 ) \t\t\r\n\t\t@@window->savewarn = 1\r\n end\r\nend else\r\n security_err_msg( 'Order', Write$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ORDER.BUTTON_2.json b/LSL2/OIEVENT/CLICK/ORDER.BUTTON_2.json new file mode 100644 index 0000000..eaceb85 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ORDER.BUTTON_2.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, fieldcount, repository, start_window, security_check\r\ndeclare function send_event, msg\r\ndeclare subroutine security_err_msg\r\n$insert msg_equates\r\n$insert popup_equates\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert lsl_common\r\nequ QuoteNo$ to 1\r\nequ SchedNo$ to 3\r\nequ Wo$ to 4\r\nequ PartNo$ to 5\r\nequ WafInv$ to 6\r\nequ SubPN$ to 7\r\nequ LotNo$ to 8\r\nequ Setup$ to 9\r\nequ Srp$ to 10\r\nequ Qty$ to 11\r\nequ Price$ to 12\r\nequ Amount$ to 13\r\nif security_check( 'Invoice', Write$ ) then\r\n *PopRec = entid( @appid<1>, 'POPUP', '', 'INVOICE_PLANT_OPTS' )\r\n *PlantCode = repository( 'EXECUTE', PopRec, @window, '' )\r\n *if PlantCode else\r\n * return 0 ;* user canceled\r\n *end \r\n\tPopRec = entid( @appid<1>, 'POPUP', '', 'ORDER_CREATE_INVOICE' )\r\n\tOrderDetail = .order_detail->array\r\n\tQuoteIds = OrderDetail\r\n\tExpData = ''\r\n\tQCnt = fieldcount( QuoteIds, @vm )\r\n\tfor i = 1 to QCnt\r\n\t ThisLine = ''\r\n\t for j = 1 to 13\r\n\t if j <> 2 and j <> 6 and j <> 7 then ;* DON'T SHOW THE PSN OR THE WAFER INVENTORY OR THE SUBSTRATE PART#\r\n\t ThisLine := OrderDetail:@svm\r\n\t end\r\n\t next j\r\n\t ThisLine[-1,1] = ''\r\n\t ExpData<1,-1> = ThisLine\r\n\tnext i\r\n\tExCnt = fieldcount( ExpData, @vm )\r\n\tNoMoreBlankRowOnEnd = false$\r\n\tfor i = ExCnt to 1 step -1\r\n\t if field( ExpData<1,i>, @svm, 1, 9 ) = str( @svm, 8 ) then\r\n\t ExpData = delete( ExpData, 1, i, 0 )\r\n\t end else\r\n\t NoMoreBlankRowOnEnd = true$\r\n\t end\r\n\t until NoMoreBlankRowOnEnd\r\n\tnext i\r\n\tif ExpData then\r\n\t\tOverRide = ''\r\n\t\tOverRide = ExpData\r\n\t\tOverRide = 'Choose order lines to include on the invoice'\r\n\t\tRetVal = repository( 'EXECUTE', PopRec, @window, OverRide )\r\n\t\tif RetVal then\r\n\t\t OrderNo = .order_no->text\r\n\t\t Void = send_event( @window, 'WRITE' )\r\n\t\t Void = start_window( 'INVOICE', @window, '*CREATE*':OrderNo:'*':RetVal, '', '' )\r\n \tend\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have at least one order detail line.'\r\n MsgInfo = '!' \r\n Void = msg( '', MsgInfo )\r\n end \r\nend else\r\n security_err_msg( 'Invoice', Write$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ORDER.ORDER_DETAIL.json b/LSL2/OIEVENT/CLICK/ORDER.ORDER_DETAIL.json new file mode 100644 index 0000000..349766e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ORDER.ORDER_DETAIL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 13 or Col = 3 else\r\n Void = editcell( CtrlEntId, '' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ORDER.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/ORDER.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ORDER.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ORDER.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/ORDER.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ORDER.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ORDER.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/ORDER.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ORDER.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ORDER.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/ORDER.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ORDER.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ORDER.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/ORDER.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ORDER.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ORDER.PRINT_BUTTON.json b/LSL2/OIEVENT/CLICK/ORDER.PRINT_BUTTON.json new file mode 100644 index 0000000..8e5d6c4 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ORDER.PRINT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, set_printer, get_printer, msg, fieldcount, Printer_Select\r\ndeclare subroutine security_err_msg\r\n$insert security_rights_equ\r\n$insert oiprint_equates\r\n$insert msg_equates\r\nequ OrderNo$ to 1\r\nequ CustNo$ to 2\r\nequ CustName$ to 3\r\nequ Division$ to 4\r\nequ Po$ to 5\r\nequ Contact$ to 6\r\nif security_check( 'Order', Print$ ) then\r\n * pull off variables\r\n TextFields = 'ORDER_NO/CUST_NO/CUST_NAME/DIVISION/PO/CONTACT_NAME'\r\n swap '/' with @rm:@window:'.' in TextFields\r\n TextFields = @window:'.':TextFields\r\n TextFields = get_property( TextFields, 'TEXT' )\r\n convert @rm to @fm in TextFields\r\n OrderNo = TextFields\r\n CustNo = TextFields\r\n CustName = TextFields\r\n Division = TextFields\r\n Po = TextFields\r\n Contact = TextFields\r\n OrderDetail = .order_detail->array\r\n \r\n PrintPath\t= Printer_Select('',1)\t\t;* Select default printer\r\n\r\n\tIF PrintPath = '' THEN\r\n\t\tDef = \"\"\r\n\t\tDef = \"TA3\"\r\n\t\tDef = 'Destination Printer not Selected..'\r\n\t\tDef = ''\r\n\t\tDef = '*'\r\n\t\tMsg(@WINDOW, Def, '')\r\n\t\tRETURN 0\r\n\tEND\r\n\r\n\tFileName = ''\r\n\tTitle = ''\r\n\tPageInfo = '':@fm:'':@fm:0:@fm:''\r\n\tPageSetup = 0\r\n\tPrintSetup = ''\r\n\r\n\tstat = Set_Printer(\"INIT\",FileName,Title,PageInfo,PageSetup,PrintSetup,PrintPath)\r\n\r\n *Stat = set_printer( 'INIT', '', '', '':@fm:'':@fm:0:@fm:'', 0,)\r\n gosub CheckErr\r\n Font = \"Courier New,12,L,1\"\r\n convert ',' to @fm in Font\r\n Hf = Font\r\n Stat = set_printer( 'FONT', Font )\r\n gosub CheckErr\r\n gosub PrintToF\r\n Font<2> = 9\r\n Font<4> = 0\r\n Void = set_printer( 'FONT', Font )\r\n gosub CheckErr\r\n Void = set_printer( 'TEXT', '' )\r\n TableColSize = '>+360':@vm:'>+720':@vm:'>+634':@vm:'>+720':@vm:'>+806':@vm:'<+806':@vm:'>+634':@vm:'<+806':@vm:'<+806':@vm:'>+907':@vm:'>+907':@vm:'>+634':@vm:'>+1080':@vm:'>+1200'\r\n Table = ''\r\n Table<1> = 'L#~Quote~PSN~Schedule~WO~Part Num~WI#~Sub Part Num~Lot Num~Setup Chg~SRP Chg~Qty~Price~Amount'\r\n Rcnt = fieldcount( OrderDetail<1>, @vm )\r\n for i = 1 to Rcnt\r\n Table<-1> = i:'~':OrderDetail<1,i>:'~':OrderDetail<2,i>:'~':OrderDetail<3,i>:'~':OrderDetail<4,i>:'~':OrderDetail<5,i>:'~':OrderDetail<6,i>:'~':OrderDetail<7,i>:'~':OrderDetail<8,i>:'~':OrderDetail<9,i>:'~':OrderDetail<10,i>:'~':OrderDetail<11,i>:'~':OrderDetail<12,i>:'~':OrderDetail<13,i>\r\n next i\r\n convert '~' to @vm in Table\r\n x = Set_Printer(\"ADDTABLE\", TableColSize, '', Table, '', '', 1, TB_ALL)\r\n *TOTALS\r\n Table = ''\r\n Table<1> = '~~~~~~~~~~~'\r\n convert '~' to @vm in Table\r\n Table<1,11> = 'Totals'\r\n Table<1,12> = .qty_tot->array<1,1>\r\n Table<1,14> = .order_tot->array<1,1>\r\n x = Set_Printer(\"ADDTABLE\", TableColSize, '', Table, '', '', 1, TB_NONE)\r\n *\r\n TableColSize = '<+10080'\r\n Void = set_printer( 'TEXT', '' )\r\n OrdNotes = .order_notes->text\r\n if OrdNotes then\r\n x = set_printer( 'ADDTABLE', TableColSize, '', OrdNotes, '', '', 1, TB_NONE )\r\n end\r\n stat = set_printer( 'TERM' ) \r\n gosub CheckErr \r\nend else\r\n security_err_msg( 'ORDER', Print$ )\r\nend\r\nRETURN 0\r\n*===========================================================================*\r\nPrintTof:\r\n LineOut = ''\r\n LineOut = fmt( 'Order No: ':OrderNo, 'L#25' ):'Entry Date: ':.entry_date->text\r\n Void = set_printer( 'TEXT', LineOut )\r\n LineOut = fmt( 'Cust No: ':CustNo, 'L#14' ):' '\r\n LineOut:= fmt( 'Name: ':CustName, 'L#35' ):' '\r\n LineOut:= 'Division: ':Division\r\n Void = set_printer( 'TEXT', LineOut )\r\n LineOut = fmt( 'Contact: ':Contact, 'L#29' ):' '\r\n LineOut:= fmt( 'PO#: ':Po, 'L#25' ):' '\r\n Void = set_printer( 'TEXT', LineOut )\r\nreturn \r\n\r\n*===========================================================================*\r\nCheckErr:\r\n if stat < 0 then\r\n goto FatalExit\r\n end\r\nreturn \r\n\r\n*===========================================================================*\r\nFatalExit:\r\n Void = msg( '', Stat )\r\n Stat = set_printer( 'TERM' )\r\nreturn \r\n\r\n*===========================================================================*\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ORDER.SHIP_TO_ADDR.json b/LSL2/OIEVENT/CLICK/ORDER.SHIP_TO_ADDR.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ORDER.SHIP_TO_ADDR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ORDER_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/ORDER_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ORDER_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ORDER_QUERY.LOT_NUM.json b/LSL2/OIEVENT/CLICK/ORDER_QUERY.LOT_NUM.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ORDER_QUERY.LOT_NUM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ORDER_QUERY.PART_NUM.json b/LSL2/OIEVENT/CLICK/ORDER_QUERY.PART_NUM.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ORDER_QUERY.PART_NUM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ORDER_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/ORDER_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..38ba75d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ORDER_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.ORDER' to DictOrderTable else\r\n Void = msg( '', 'Unable to open DICT.ORDER...' )\r\n return 0\r\nend\r\nSearchStr = ''\r\nCustIds = .customer_info->array<1>\r\n*EntryDateFrom = .entry_date_from->text\r\n*EntryDateThru = .entry_date_thru->text\r\nOpen = .open_check->check\r\nClosed = .closed_check->check\r\n*EntryIds = .entry_ids->array<1>\r\nWo = .wo->array\r\nPo = .po->array\r\nLotNum = .lot_num->array\r\nPartNum = .part_num->array\r\nQuoteNos = .quote_nos->array\r\nswap @vm:@vm with '' in Wo\r\nif Wo[-1,1] = @vm then Wo[-1,1] = ''\r\nswap @vm:@vm with '' in Po\r\nif Po[-1,1] = @vm then Po[-1,1] = ''\r\nswap @vm:@vm with '' in LotNum\r\nif LotNum[-1,1] = @vm then LotNum[-1,1] = ''\r\nswap @vm:@vm with '' in PartNum\r\nif PartNum[-1,1] = @vm then PartNum[-1,1] = ''\r\nswap @vm:@vm with '' in CustIds\r\nif CustIds[-1,1] = @vm then CustIds[-1,1] = ''\r\n*swap @vm:@vm with '' in EntryIds\r\n*if EntryIds[-1,1] = @vm then EntryIds[-1,1] = ''\r\nswap @vm:@vm with '' in QuoteNos\r\nif QuoteNos[-1,1] = @vm then QuoteNos[-1,1] = ''\r\nif CustIds then\r\n SearchStr<-1> = 'CUST_NO':@vm:CustIds\r\nend \r\n*if EntryDateFrom then\r\n* SearchStr<-1> = 'ENTRY_DATE':@vm:'>=':EntryDateFrom\r\n*end\r\n*if EntryDateThru then\r\n* SearchStr<-1> = 'ENTRY_DATE':@vm:'<=':EntryDateThru\r\n*end\r\n*if EntryIds then\r\n* SearchStr<-1> = 'ENTRY_ID':@vm:EntryIds\r\n*end\r\nStatusVar = ''\r\nif Open then\r\n StatusVar<1,-1> = 'O'\r\nend\r\nif Closed then\r\n StatusVar<1,-1> = 'C'\r\nend\r\nif StatusVar then\r\n SearchStr<-1> = 'STATUS':@vm:StatusVar\r\nend\r\nif Wo then\r\n SearchStr<-1> = 'WO':@vm:Wo\r\nend\r\nif Po then\r\n SearchStr<-1> = 'PO':@VM:Po\r\nend\r\nif LotNum <> '' then\r\n SearchStr<-1> = 'LOT_NUM':@vm:LotNum\r\nend\r\nif PartNum then\r\n SearchStr<-1> = 'PART_NUM':@vm:PartNum\r\nend\r\nif QuoteNos then\r\n SearchStr<-1> = 'QUOTE_IDS':@vm:QuoteNos\r\nend\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'ORDER', DictOrderTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting ORDER records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'ORDER', 'CUST_NAME':@fm:'#ENTRY_DATE', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ORDER_QUERY.PO.json b/LSL2/OIEVENT/CLICK/ORDER_QUERY.PO.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ORDER_QUERY.PO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ORDER_QUERY.QUOTE_NOS.json b/LSL2/OIEVENT/CLICK/ORDER_QUERY.QUOTE_NOS.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ORDER_QUERY.QUOTE_NOS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ORDER_QUERY.WO.json b/LSL2/OIEVENT/CLICK/ORDER_QUERY.WO.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ORDER_QUERY.WO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ORDER_RPT1.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/ORDER_RPT1.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ORDER_RPT1.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ORDER_RPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/ORDER_RPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ORDER_RPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ORDER_RPT1.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/ORDER_RPT1.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..9ebdc88 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ORDER_RPT1.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function sched_rpt1, send_event, msg\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nBillDateFrom = .bill_date_from->text\r\nBillDateThru = .bill_date_thru->text\r\nCusts = .customer_info->array<1>\r\nswap @vm:@vm with '' in Custs\r\nif Custs[-1,1] = @vm then Custs[-1,1] = ''\r\nif BillDateFrom or BillDateThru then\r\n\tDirToPrint = .send_to_printer->text\r\n\tRetVal = BillDateFrom:'*':BillDateThru:'*':DirToPrint:'*':Custs\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a from date or a thru date.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ORDER_RPT2.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/ORDER_RPT2.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ORDER_RPT2.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ORDER_RPT2.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/ORDER_RPT2.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ORDER_RPT2.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ORDER_RPT2.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/ORDER_RPT2.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..b034165 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ORDER_RPT2.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function sched_rpt1, send_event, msg\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nBillDateFrom = .bill_date_from->text\r\nBillDateThru = .bill_date_thru->text\r\nCusts = .customer_info->array<1>\r\nswap @vm:@vm with '' in Custs\r\nif Custs[-1,1] = @vm then Custs[-1,1] = ''\r\nif BillDateFrom or BillDateThru then\r\n\tDirToPrint = .send_to_printer->text\r\n\tRetVal = BillDateFrom:'*':BillDateThru:'*':DirToPrint:'*':Custs\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a from date or a thru date.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ORDER_SRL_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/ORDER_SRL_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..5d89c1d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ORDER_SRL_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ORDER_SRL_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/ORDER_SRL_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..96a5d99 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ORDER_SRL_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.ORDER_SRL' to DictOrderTable else\r\n Void = msg( '', 'Unable to open DICT.ORDER_SRL...' )\r\n return 0\r\nend\r\nSearchStr = ''\r\nCustIds = .customer_info->array<1>\r\n*EntryDateFrom = .entry_date_from->text\r\n*EntryDateThru = .entry_date_thru->text\r\nOpen = .open_check->check\r\nClosed = .closed_check->check\r\n*EntryIds = .entry_ids->array<1>\r\nWo = .wo->array\r\nPo = .po->array\r\nQuoteNos = .quote_nos->array\r\nswap @vm:@vm with '' in Wo\r\nif Wo[-1,1] = @vm then Wo[-1,1] = ''\r\nswap @vm:@vm with '' in Po\r\nif Po[-1,1] = @vm then Po[-1,1] = ''\r\nswap @vm:@vm with '' in CustIds\r\nif CustIds[-1,1] = @vm then CustIds[-1,1] = ''\r\n*swap @vm:@vm with '' in EntryIds\r\n*if EntryIds[-1,1] = @vm then EntryIds[-1,1] = ''\r\nswap @vm:@vm with '' in QuoteNos\r\nif QuoteNos[-1,1] = @vm then QuoteNos[-1,1] = ''\r\nif CustIds then\r\n SearchStr<-1> = 'CUST_NO':@vm:CustIds\r\nend \r\n*if EntryDateFrom then\r\n* SearchStr<-1> = 'ENTRY_DATE':@vm:'>=':EntryDateFrom\r\n*end\r\n*if EntryDateThru then\r\n* SearchStr<-1> = 'ENTRY_DATE':@vm:'<=':EntryDateThru\r\n*end\r\n*if EntryIds then\r\n* SearchStr<-1> = 'ENTRY_ID':@vm:EntryIds\r\n*end\r\nStatusVar = ''\r\nif Open then\r\n StatusVar<1,-1> = 'O'\r\nend\r\nif Closed then\r\n StatusVar<1,-1> = 'C'\r\nend\r\nif StatusVar then\r\n SearchStr<-1> = 'STATUS':@vm:StatusVar\r\nend\r\nif Wo then\r\n SearchStr<-1> = 'WO':@vm:Wo\r\nend\r\nif Po then\r\n SearchStr<-1> = 'PO':@VM:Po\r\nend\r\nif QuoteNos then\r\n SearchStr<-1> = 'QUOTE_IDS':@vm:QuoteNos\r\nend\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'ORDER_SRL', DictOrderTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting ORDER_SRL records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'ORDER_SRL', 'CUST_NAME':@fm:'#ENTRY_DATE', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ORDER_SRL_QUERY.PO.json b/LSL2/OIEVENT/CLICK/ORDER_SRL_QUERY.PO.json new file mode 100644 index 0000000..5530b73 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ORDER_SRL_QUERY.PO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ORDER_SRL_QUERY.QUOTE_NOS.json b/LSL2/OIEVENT/CLICK/ORDER_SRL_QUERY.QUOTE_NOS.json new file mode 100644 index 0000000..5530b73 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ORDER_SRL_QUERY.QUOTE_NOS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ORDER_SRL_QUERY.WO.json b/LSL2/OIEVENT/CLICK/ORDER_SRL_QUERY.WO.json new file mode 100644 index 0000000..5530b73 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ORDER_SRL_QUERY.WO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ORDER_SRPT1.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/ORDER_SRPT1.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ORDER_SRPT1.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ORDER_SRPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/ORDER_SRPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ORDER_SRPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ORDER_SRPT1.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/ORDER_SRPT1.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..29aba92 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ORDER_SRPT1.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function sched_rpt1, send_event, msg, ex_vm_rem\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nBillDateFrom = .bill_date_from->text\r\nBillDateThru = .bill_date_thru->text\r\nCusts = .customer_info->array<1>\r\nCusts = ex_vm_rem(Custs)\r\nif BillDateFrom or BillDateThru then\r\n\tDirToPrint = .send_to_printer->text\r\n\tRetVal = BillDateFrom:'*':BillDateThru:'*':Custs:'*'\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a from date or a thru date.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ORDER_SRPT2.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/ORDER_SRPT2.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ORDER_SRPT2.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ORDER_SRPT2.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/ORDER_SRPT2.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ORDER_SRPT2.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/ORDER_SRPT2.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/ORDER_SRPT2.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..29aba92 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/ORDER_SRPT2.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function sched_rpt1, send_event, msg, ex_vm_rem\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nBillDateFrom = .bill_date_from->text\r\nBillDateThru = .bill_date_thru->text\r\nCusts = .customer_info->array<1>\r\nCusts = ex_vm_rem(Custs)\r\nif BillDateFrom or BillDateThru then\r\n\tDirToPrint = .send_to_printer->text\r\n\tRetVal = BillDateFrom:'*':BillDateThru:'*':Custs:'*'\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a from date or a thru date.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PASS_DOWN.BUTTON_1.json b/LSL2/OIEVENT/CLICK/PASS_DOWN.BUTTON_1.json new file mode 100644 index 0000000..53067aa --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PASS_DOWN.BUTTON_1.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, msg, next_key, start_window\r\n$insert reactor_log_equ\r\n$insert logical\r\n$insert msg_equates\r\n\r\nReactors = .reactors->text\r\nRcnt = fieldcount( Reactors, @fm )\r\nif ( Rcnt > 0 ) and ( .notes->text <> '' ) then\r\n\topen 'REACTOR_LOG' to RLTable else\r\n\t Void = msg( '', 'Unable to open REACTOR_LOG...' )\r\n\t return 0\r\n\tend\r\n CurDate = date()\r\n CurTime = time()\r\n EntryId = @user4\r\n Notes = .notes->text\r\n RlKeys = ''\r\n for i = 1 to Rcnt\r\n ThisReactor = trim( Reactors )\r\n convert @upper_case to '' in ThisReactor\r\n convert @lower_case to '' in ThisReactor\r\n ThisReactor = trim( ThisReactor )\r\n\t\tNextRLKey = next_key( 'REACTOR_LOG', RLTable, 'NEXT', '' )\r\n\t\tRLRec = ''\r\n\t\tRLRec = CurDate\r\n\t\tRLRec = CurTime\r\n\t\tRLRec = CurDate\r\n\t\tRLRec = CurTime\r\n\t\tRLRec = ThisReactor\r\n\t\tRLRec = 'A' ;* for passdown\r\n\t\tRLRec = Notes\r\n\t\tRLRec = EntryId\t\t\r\n\t\tRLRec = CurDate\r\n\t\twrite RLRec on RLTable, NextRLKey else\r\n\t\t void = msg( '', 'Unable to write ':NextRLKey:' on REACTOR_LOG...' )\r\n\t\t return 0\r\n\t\tend\r\n\t\tunlock RLTable, NextRLKey else\r\n\t\t Void = msg( '', 'Unable to unlock ':NextRLKey:' on REACTOR_LOG...' )\r\n\t\t return 0\r\n\t\tend\r\n\t\tVoid = next_key( 'REACTOR_LOG', RLTable, 'UPDATE', NextRLKey )\r\n RlKeys<1,-1> = NextRLKey\t\t\r\n next i\r\n\t.reactors->text = ''\r\n\t.notes->text = ''\r\n if RlKeys <> '' then\r\n MsgInfo = ''\r\n MsgInfo = 'Do you wish to view the entrie(s)...'\r\n MsgInfo = 'BNY'\r\n MsgInfo = '?'\r\n Resp = msg( '', MsgInfo )\r\n if Resp then\r\n\t\t Void = start_window( 'REACTOR_LOG', '', RlKeys, '', '' )\r\n end\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must select at least one reactor and enter a note at the bottom...'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PHOTOFLO_LOG.BUTTON_5.json b/LSL2/OIEVENT/CLICK/PHOTOFLO_LOG.BUTTON_5.json new file mode 100644 index 0000000..11a63e4 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PHOTOFLO_LOG.BUTTON_5.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo = 'This log has already been signed.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PHOTOFLO_LOG.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/PHOTOFLO_LOG.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PHOTOFLO_LOG.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PHOTOFLO_LOG.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/PHOTOFLO_LOG.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PHOTOFLO_LOG.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PHOTOFLO_LOG.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/PHOTOFLO_LOG.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PHOTOFLO_LOG.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PHOTOFLO_LOG.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/PHOTOFLO_LOG.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PHOTOFLO_LOG.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PHOTOFLO_LOG.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/PHOTOFLO_LOG.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PHOTOFLO_LOG.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PHOTOFLO_LOG_QUERY.AMOUNT.json b/LSL2/OIEVENT/CLICK/PHOTOFLO_LOG_QUERY.AMOUNT.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PHOTOFLO_LOG_QUERY.AMOUNT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PHOTOFLO_LOG_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/PHOTOFLO_LOG_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..f968a08 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PHOTOFLO_LOG_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, ex_vm_rem\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.PHOTOFLO_LOG' to DictPhotoFloLogTable else\r\n Void = msg( '', 'Unable to open DICT.PHOTOFLO_LOG...' )\r\n return 0\r\nend\r\nSearchStr = ''\r\nDateFrom = .date_from->text\r\nDateThru = .date_thru->text\r\nAmount = ex_vm_rem( .amount->array )\r\nTechIDs = ex_vm_rem( .techs->array<1> )\r\n\r\nswap @vm:@vm with '' in TechIDs\r\nif TechIDs[-1,1] = @vm then TechIDs[-1,1] = ''\r\nif TechIDs then\r\n SearchStr<-1> = 'TECH_SIG':@vm:TechIDs\r\nend\r\n\r\nif DateFrom and DateThru then\r\n SearchStr<-1> = 'DATE_CHANGED':@vm:DateFrom:'...':DateThru\r\nend else\r\n\tif DateFrom then\r\n\t SearchStr<-1> = 'DATE_CHANGED':@vm:'>=':DateFrom\r\n\tend\r\n\tif DateThru then\r\n\t SearchStr<-1> = 'DATE_CHANGED':@vm:'<=':DateThru\r\n\tend\r\nend\r\n\r\nif Amount then\r\n SearchStr<-1> = 'AMOUNT':@vm:Amount\r\nend\r\n\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'PHOTOFLO_LOG', DictPhotoFloLogTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting Photo-Flo Log records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'PHOTOFLO_LOG', '#DATE_CHANGED':@fm:'#TIME_CHANGED', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PHOTOFLO_LOG_QUERY.TECHS.json b/LSL2/OIEVENT/CLICK/PHOTOFLO_LOG_QUERY.TECHS.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PHOTOFLO_LOG_QUERY.TECHS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PRINT_HELP_CONFIG.CANCEL.json b/LSL2/OIEVENT/CLICK/PRINT_HELP_CONFIG.CANCEL.json new file mode 100644 index 0000000..033a2d4 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PRINT_HELP_CONFIG.CANCEL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\ndeclare subroutine end_dialog\r\n\r\nopen 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\nunlock ConfigTable, 'PRINT_HELP_CONFIG' else\r\n *Void = msg( '', 'Unable to unlock CONFIG PRINT_HELP_CONFIG')\r\n * may not have locked if user does not have proper security\r\nend\r\nend_dialog( @window, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PRINT_HELP_CONFIG.PRINT_HELP_CFG.json b/LSL2/OIEVENT/CLICK/PRINT_HELP_CONFIG.PRINT_HELP_CFG.json new file mode 100644 index 0000000..5530b73 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PRINT_HELP_CONFIG.PRINT_HELP_CFG.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PRINT_HELP_CONFIG.SAVE.json b/LSL2/OIEVENT/CLICK/PRINT_HELP_CONFIG.SAVE.json new file mode 100644 index 0000000..430b584 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PRINT_HELP_CONFIG.SAVE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\ndeclare subroutine end_dialog\r\n\r\nopen 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\nConfigInfo = .print_help_cfg->array\r\nBmpPath = .bmp_path->text\r\nConfigInfo := @fm:BmpPath\r\nwrite ConfigInfo on ConfigTable, 'PRINT_HELP_CONFIG' else\r\n Void = msg( '', 'Unable to write PRINT_HELP_CONFIG in CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\nunlock ConfigTable, 'PRINT_HELP_CONFIG' else\r\n Void = msg( '', 'Unable to unlock PRINT_HELP_CONFIG in CONFIG table' )\r\nend\r\nend_dialog( @window, '' )\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PRINT_HELP_CONFIG2.CANCEL.json b/LSL2/OIEVENT/CLICK/PRINT_HELP_CONFIG2.CANCEL.json new file mode 100644 index 0000000..2c0334f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PRINT_HELP_CONFIG2.CANCEL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\nend_dialog( @window, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PRINT_HELP_CONFIG2.SAVE.json b/LSL2/OIEVENT/CLICK/PRINT_HELP_CONFIG2.SAVE.json new file mode 100644 index 0000000..8dd0eda --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PRINT_HELP_CONFIG2.SAVE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\ndeclare subroutine end_dialog\r\n\r\nTarray = .field_text->array\r\nFields = Tarray<1>\r\nText = Tarray<2>\r\nswap @vm:@vm with '' in Fields\r\nif Fields[-1,1] = @vm then Fields[-1,1] = ''\r\nswap @vm:@vm with '' in Text\r\nif Text[-1,1] = @vm then Text[-1,1] = ''\r\nconvert @vm to '^' in Fields\r\nconvert @vm to '^' in Text\r\nend_dialog( @window, 'SAVE':'*':Fields:'~':Text )\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC.BUTTON_13.json b/LSL2/OIEVENT/CLICK/PROD_SPEC.BUTTON_13.json new file mode 100644 index 0000000..ad39364 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC.BUTTON_13.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function repository, entid\r\n\r\nPopupId = entid( @appid<1>, 'POPUP', '', 'RATIO_TYPES' )\r\nChosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\nRArray = ''\r\nbegin case\r\n\tcase ChosenRow = \"AP\"\r\n\t\tRArray = '35/40/86/86/86/40/40/50/30/86'\r\n\tcase ChosenRow = \"Kit 2000-PEP\"\r\n\t\tRArray = '33/33/70/70/70/60/60/60/33/70'\r\n\tcase ChosenRow = \"PEP\"\r\n\t\tRArray = '35/40/75/75/75/40/40/50/30/75'\t\r\n\tcase ChosenRow = \"RP\"\r\n\t\tRArray = '35/45/70/70/70/40/40/40/30/70'\t\r\n\tcase ChosenRow = \"DSP\"\t\t\t\r\n\t\tRArray = '45/50/86/86/86/40/40/50/30/86'\r\nend case\r\nconvert '/' to @vm in RArray\r\nif RArray <> '' then\r\n .ratio_info->array = RArray\r\n @@window->savewarn = 1\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC.CTRL_PLAN.json b/LSL2/OIEVENT/CLICK/PROD_SPEC.CTRL_PLAN.json new file mode 100644 index 0000000..e29803e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC.CTRL_PLAN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, set_printer, get_printer, msg, entid, repository\r\ndeclare function print_quote, MemberOf\r\ndeclare subroutine security_err_msg, Print_Control_Plan, Print_Control_Plan_JCH\r\n\r\n$insert security_rights_equ\r\n$insert msg_equates\r\n$insert logical\r\n\r\nif security_check( 'Prod Spec', Print$ ) then\r\n\tif @@window->savewarn = true$ then\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo = 'You need to save this PSN before printing.'\r\n\t\tMsgInfo = '!'\r\n\t\tVoid = msg( '', MsgInfo )\r\n\t\treturn 0\r\n\tend else\r\n\t\tPSNo = .prod_spec_id->text\r\n\t\tPrint_Control_Plan(PSNo)\r\n\tend\r\nend else\r\n security_err_msg( 'Prod Spec', Print$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC.DUP_PSN.json b/LSL2/OIEVENT/CLICK/PROD_SPEC.DUP_PSN.json new file mode 100644 index 0000000..229018d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC.DUP_PSN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Next_Key, send_event, msg, security_check, fieldcount, NextKey\r\nDECLARE SUBROUTINE security_err_msg, delete_row, ErrMsg, Comm_Prod_Spec\r\n\r\n$INSERT Security_Rights_Equ\r\n$INSERT Quote_Spec_Equ\r\n$INSERT PROD_SPEC_EQUATES\r\n\r\n\r\nIF Security_Check( 'Prod Spec', Write$ ) THEN\r\n\r\n \r\n\tOrgPSNo\t= Get_Property(@WINDOW:'.PROD_SPEC_ID','TEXT')\r\n\tvoid\t= Send_Event(@WINDOW,'WRITE')\r\n\tOrgRec\t= XLATE('PROD_SPEC',OrgPSNo,'','X')\r\n\t\r\n\t\r\n * Rat Hole Data\r\n\t\r\n\tPartNums\t= OrgRec\r\n QualReacts\t= OrgRec\r\n SpecEpi\t\t= OrgRec\r\n SpecAddl\t= OrgRec\r\n SpecSub\t\t= OrgRec\r\n\r\n NewRec = OrgRec\r\n \r\n CONVERT CHAR(248) TO @FM IN SpecEpi\r\n \r\n\tLayerCnt = COUNT(SpecEpi,@FM) + (SpecEpi NE '')\r\n\t\r\n\t*FOR I = 1 TO LayerCnt\r\n\t *SpecEpi\t= ''\r\n\t\t*SpecEpi\t= ''\r\n\t\t*SpecEpi\t\t= ''\r\n\t\t*SpecEpi\t= ''\r\n\t\t*SpecEpi\t= ''\r\n\t\t*SpecEpi\t\t= ''\r\n\t\t*SpecEpi\t\t= ''\r\n\t\t*SpecEpi\t\t= ''\r\n\t\t*SpecEpi\t= ''\r\n\t\t*SpecEpi\t\t= ''\r\n\t\t*SpecEpi\t\t= ''\r\n\t\t*SpecEpi\t= ''\r\n\t\t*SpecEpi\t= ''\r\n\t\t*SpecEpi\t= ''\r\n\t\t*SpecEpi\t= ''\r\n\t*NEXT I\r\n\t\r\n\tCONVERT @FM TO CHAR(248) IN SpecEpi\r\n\t\r\n\t\r\n\t*SpecAddl<1,QSAddProdSig$>\t\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddQualSig$>\t\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\tSpecAddl<1,QSAddStressMeasure$>\t\t= ''\r\n\tSpecAddl<1,QSAddTransMeasure$>\t\t= ''\r\n\tSpecAddl<1,QSAddStressMin$>\t\t\t= ''\r\n\tSpecAddl<1,QSAddStressMax$>\t\t\t= ''\r\n\tSpecAddl<1,QSAddTransSpec$>\t\t\t= ''\r\n\t*SpecAddl<1,QSAddPreProdSig$>\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddPreQualSig$>\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddProdSigDate$>\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddProdSigTime$>\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddQualSigDate$>\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddQualSigTime$>\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddPreProdSigDate$>\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddPreProdSigTime$>\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddPreQualSigDate$>\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddPreQualSigTime$>\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t\r\n\t\r\n\tNewRec\t\t\t= SpecEpi\r\n\tNewRec\t\t= SpecAddl\r\n\tNewRec \t\t= Date()\t\t;* .entry_date->text\t\t= oconv( date(), 'D2/' )\r\n\tNewRec\t\t\t= @USER4\t\t;* .entry_id->text\t\t\t= oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\tNewRec\t\t\t= 'I'\t\t\t;*\t.status->value\t\t\t= 'I'\r\n\tNewRec\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t= ''\t\t\t;* Added 1/13/2009 JCH, J.C. Henry & Co., Inc.\r\n\tNewRec\t\t\t= ''\t\t\t;* Added 1/13/2009 JCH, J.C. Henry & Co., Inc.\r\n\tNewRec\t\t= ''\t\t\t;* Added 1/13/2009 JCH, J.C. Henry & Co., Inc.\r\n\tNewRec\t= ''\t\t\t;* Added 1/17/2011 JCH, J.C. Henry & Co., Inc.\r\n\tNewRec\t= ''\t\t\t;* Added 1/17/2011 JCH, J.C. Henry & Co., Inc.\r\n\t\r\n\tNewRec\t\t\t= ''\t\t\t;* Added 8/22/2012 JCH, J.C. Henry & Co., Inc.\r\n\tNewRec\t\t= ''\t\t\t;* Added 8/22/2012 JCH, J.C. Henry & Co., Inc.\r\n\t\r\n\t\r\n\t\r\n\t* Shipping_Info items\r\n\t\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t\t= ''\r\n\tNewRec\t\t= ''\r\n\tNewRec\t\t\t\t= ''\r\n\tNewRec\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t= ''\r\n\t\r\n\tNewRec\t\t\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t\t= ''\r\n\tNewRec\t\t\t\t= ''\t\r\n\tNewRec\t\t= ''\r\n\t\r\n\tNewRec\t\t\t= ''\r\n\r\n\r\n\tNextPSKey = NextKey('PROD_SPEC')\r\n\t\r\n\tOPEN 'PROD_SPEC' TO PSTable THEN\r\n\t\tWRITE NewRec ON PSTable,NextPSKey THEN\r\n\t\t\tvoid = Set_Property(@WINDOW:'.PROD_SPEC_ID','TEXT',NextPSKey)\r\n\t\t\tvoid = Send_Event(@WINDOW:'.PROD_SPEC_ID','LOSTFOCUS')\r\n\t\tEND ELSE\r\n\t\t\tErrMsg('Unable to write new PSN ':QUOTE(NextPSKey):' on PROD_SPEC file.')\r\n\t\tEND\r\n\tEND ELSE\r\n\t\tErrMsg('Unable to open PROD_SPEC table for write.')\r\n\tEND\r\n\tRETURN 0\r\n\t\r\nEND ELSE\r\n Security_Err_Msg( 'Prod Spec', Write$ )\r\nEND\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/PROD_SPEC.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC.PHX_BTN_CLEAR_FIX.json b/LSL2/OIEVENT/CLICK/PROD_SPEC.PHX_BTN_CLEAR_FIX.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC.PHX_BTN_CLEAR_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/PROD_SPEC.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC.PHX_QBF_FIRST_FIX.json b/LSL2/OIEVENT/CLICK/PROD_SPEC.PHX_QBF_FIRST_FIX.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC.PHX_QBF_FIRST_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/PROD_SPEC.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC.PHX_QBF_LAST_FIX.json b/LSL2/OIEVENT/CLICK/PROD_SPEC.PHX_QBF_LAST_FIX.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC.PHX_QBF_LAST_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/PROD_SPEC.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC.PHX_QBF_NEXT_FIX.json b/LSL2/OIEVENT/CLICK/PROD_SPEC.PHX_QBF_NEXT_FIX.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC.PHX_QBF_NEXT_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/PROD_SPEC.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC.PHX_QBF_PREV_FIX.json b/LSL2/OIEVENT/CLICK/PROD_SPEC.PHX_QBF_PREV_FIX.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC.PHX_QBF_PREV_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC.RET_PSN_BUTTON.json b/LSL2/OIEVENT/CLICK/PROD_SPEC.RET_PSN_BUTTON.json new file mode 100644 index 0000000..c781341 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC.RET_PSN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function end_window, msg, send_event, post_event\r\ndeclare subroutine record_lock\r\n$insert logical\r\n\r\nProdSpecID = .prod_spec_id->text\r\nopen 'SYSLISTS' to SysListsTable else\r\n Void = msg( '', 'Unable to open SYSLISTS...' )\r\n return 0\r\nend\r\nPrevWindow = get_property( @window, '@PrevWindow' )\r\nRecordId = 'PROD_SPEC*':@station\r\nrecord_lock( SysListsTable, 'SysLists', RecordId )\r\nwritev ProdSpecID on SysListsTable, RecordId, 1 else\r\n Void = msg( '', 'Unable to write ':ProdSpecID:' on SYSLISTS ':RecordId )\r\n return 0\r\nend\r\nunlock SysListsTable, RecordId else\r\n Void = msg( '', 'Unable to unlock SYSLISTS ':RecordId )\r\n return 0\r\nend\r\nopen 'PROD_SPEC' to PSTable else\r\n Void = msg( '', 'Unable to open PROD_SPEC...' )\r\n return 0\r\nend\r\nunlock PSTable, ProdSpecID else\r\n Void = msg( '', 'Unable to unlock PROD_SPEC ':ProdSpecID )\r\n return 0\r\nend\r\nVoid = send_event( @window, 'WRITE' )\r\nVoid = end_window( @window, '' )\r\nbegin case\r\n case PrevWindow = 'Quote'\r\n Multi = get_property( 'QUOTE', '@ChoosingMultiPSN' ) \r\n if Multi then\r\n Void = post_event( 'QUOTE.PREV_PSNS', 'OMNIEVENT' ) \r\n end else\r\n Void = post_event( 'QUOTE.PROD_SPEC_ID', 'OMNIEVENT' )\r\n end\r\n case PrevWindow = 'CAR'\r\n Void = post_event( 'CAR.PROD_SPEC_ID', 'OMNIEVENT' ) \r\n case PrevWindow = 'WO-Log'\r\n Void = post_event( 'WO_LOG.PROD_SPEC_ID', 'OMNIEVENT' ) \r\n case PrevWindow = 'Order'\r\n Void = post_event( 'ORDER.ORDER_DETAIL', 'OMNIEVENT', 'PSN' ) \r\n case PrevWindow = 'SRP'\r\n Void = post_event( 'SRP_COC_RESULTS.PROD_SPEC_ID', 'OMNIEVENT' ) \r\nend case\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC.SPEC_BUTTON_FIX.json b/LSL2/OIEVENT/CLICK/PROD_SPEC.SPEC_BUTTON_FIX.json new file mode 100644 index 0000000..d5c2028 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC.SPEC_BUTTON_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Dialog_Box, Set_Property, Msg, Security_Check, Prod_Spec_Comm, Get_Status, ErrMsg, Set_FSError, Start_Window\r\nDECLARE SUBROUTINE Security_Err_Msg, Btree.Extract,Msg, obj_Post_Log, ErrMsg, Set_Property, Set_Status, Make.List\r\n\r\n$INSERT MSG_EQUATES\r\n$INSERT SECURITY_RIGHTS_EQU\r\n$INSERT QUOTE_SPEC_EQU\r\n$INSERT LOGICAL\r\n$INSERT POPUP_EQUATES\r\n$INSERT RDS_EQU\r\n$INSERT REACT_RUN_EQUATES\r\n\r\nDeclare Function DCount\r\n\r\nEQU CRLF$ TO CHAR(13):CHAR(10)\r\n\r\nEQU SUB_INFO$\tTO 1\r\nEQU EPI_INFO$\tTO 2\r\nEQU ADDL_INFO$\tTO 3\r\nEQU NEW_DEV$\tTO 4\r\nEQU PRE_PROD$\tTO 5\r\n\t\t\t\t\r\nRDSWarnFlag\t\t= FALSE$\r\nSpecInstFlag\t= FALSE$\r\n\r\nIF Security_Check( 'Spec', READ$ ) THEN\r\n\r\n\tSubstrateInfo\t= Get_Property(@WINDOW:'.SPEC_SUBSTRATE','TEXT')\r\n\tEpiInfo\t\t\t= Get_Property(@WINDOW:'.SPEC_EPI','TEXT')\r\n\tAddlInfo\t\t= Get_Property(@WINDOW:'.SPEC_ADDL','TEXT')\r\n\tNewDev\t\t\t= Get_Property(@WINDOW:'.SPEC_NEW_DEV','TEXT')\r\n\tPreProd\t\t\t= Get_Property(@WINDOW:'.SPEC_PRE_PROD','TEXT')\r\n\tReactType\t\t= Get_Property(@WINDOW:'.RTYPE','VALUE')\r\n\tPSNo\t\t\t= Get_Property(@WINDOW:'.PROD_SPEC_ID','TEXT')\r\n\t\r\n\tHoldSpecialInst\t= SubstrateInfo<1,QSSubInstructions$>\r\n\t\r\n\t\r\n\tHoldVar = SubstrateInfo:CHAR(244):EpiInfo:CHAR(244):AddlInfo:CHAR(244):NewDev:CHAR(244):PreProd\r\n\t\r\n\t\r\n\tSet_Property(@Window, '@PSNo', PSNo)\r\n\tReactorType = Xlate('PROD_SPEC', PSNo, 'REACTOR_TYPE', 'X')\r\n\t/*\r\n\tPartNos = Xlate('PROD_SPEC', PSNo, 'PROD_VER_EPI_PART_NO', 'X')\r\n NumPartNos = DCount(PartNos, @VM)\r\n CurrPartNo = Field(PartNos, @VM, NumPartNos) \r\n\tIf CurrPartNo EQ 'U012' then\r\n\t\tReturnVal = Start_Window( 'NDW_GAN_PROD_SPEC', @WINDOW, SubstrateInfo:CHAR(244):EpiInfo:CHAR(244):AddlInfo:CHAR(244):NewDev:CHAR(244):PreProd:CHAR(244):'*CENTER' )\r\n\tend else\r\n\t\tReturnVal = Dialog_Box( 'PROD_SPEC_SI', @WINDOW, SubstrateInfo:CHAR(244):EpiInfo:CHAR(244):AddlInfo:CHAR(244):NewDev:CHAR(244):PreProd:CHAR(244):'*CENTER' )\r\n\tend\r\n\t*/\r\n\t\r\n\tIf ReactorType EQ 'GAN' then\r\n\t\tReturnVal = Start_Window( 'NDW_GAN_PROD_SPEC', @WINDOW, SubstrateInfo:CHAR(244):EpiInfo:CHAR(244):AddlInfo:CHAR(244):NewDev:CHAR(244):PreProd:CHAR(244):'*CENTER' )\r\n\t\t\r\n\tend else\r\n\t\tReturnVal = Dialog_Box( 'PROD_SPEC_SI', @WINDOW, SubstrateInfo:CHAR(244):EpiInfo:CHAR(244):AddlInfo:CHAR(244):NewDev:CHAR(244):PreProd:CHAR(244):'*CENTER' )\r\n\t\t\r\n\t\tIF ( ReturnVal <> '' ) AND ( ReturnVal <> 'CANCEL' ) AND ( ReturnVal <> HoldVar ) THEN\r\n\t\t\t\r\n\t IF Security_Check( 'Spec', WRITE$ ) THEN\r\n\t \t\r\n\t\t\t\tCONVERT CHAR(244) TO @FM IN ReturnVal\r\n\t\t\t\t\t\r\n\t\t\t\tSpecialInst = ReturnVal<1,QSSubInstructions$>\r\n\t\t\t\t\r\n\t\t\t\tIF SpecialInst <> HoldSpecialInst\tTHEN SpecInstFlag = TRUE$\r\n\t\t\t\tIF ReturnVal<2> <> EpiInfo \t\t\tTHEN RDSWarnFlag = TRUE$\r\n\t\t\t\t\t\t\r\n\t\t\t\tSet_Property(@WINDOW:'.SPEC_SUBSTRATE','TEXT', ReturnVal)\r\n\t\t\t\tSet_Property(@WINDOW:'.SPEC_EPI','TEXT', ReturnVal)\r\n\t\t\t\tSet_Property(@WINDOW:'.SPEC_ADDL','TEXT', ReturnVal)\r\n\t\t\t\tSet_Property(@WINDOW:'.SPEC_NEW_DEV','TEXT', ReturnVal)\r\n\t\t\t\tSet_Property(@WINDOW:'.SPEC_PRE_PROD','TEXT', ReturnVal)\r\n\t\t\t\t\t\r\n\t\t\t\tSet_Property(@WINDOW,'SAVEWARN',1)\r\n\t\t\t \r\n\t\t\tEND ELSE\r\n\t \t\tSecurity_Err_Msg( 'Spec', WRITE$ )\r\n\t \tEND\r\n\t\tEND\r\n\t\t\r\n\t\t/* Moved to Prod_Spec_Si \"Save\" Click script event handler per Mark Cousten's request. 7/3/18 djs\r\n\t\tIF RDSWarnFlag OR SpecInstFlag THEN\r\n\t\t\r\n\t\t\tOPEN 'DICT.REACT_RUN' TO ReactRunDict ELSE\r\n\t\t\t\tErrMsg('Unable to open DICT.REACT_RUN table.')\r\n\t\t\t\tRETURN\r\n\t\t\tEND\r\n\r\n\t\t\tOPEN 'REACT_RUN' TO ReactRunFile ELSE\r\n\t\t\t\tErrmsg('Unable to open REACT_RUN table.')\r\n\t\t\t\tRETURN\r\n\t\t\tEND\r\n\t\t\t\r\n\t\t\tSearchString = 'PS_NO':@VM:PSNo:@FM\r\n\t\t\t\r\n\t\t\tIF ReactType = 'EPP' THEN\r\n\t\t\t\tSearchString := 'RUN_STATUS':@VM:'SPEC':@VM:'TLOAD':@VM:'RLOAD':@VM:'ULMET':@FM\r\n\t\t\tEND ELSE\r\n\t\t\t\tSearchString := 'RUN_STATUS':@VM:'RDY':@VM:'SPEC':@VM:'SRFSPC':@VM\r\n\t\t\t\tSearchString := 'PREC':@VM:'PREI':@VM:'PRES':@VM:'RLOAD':@VM\r\n\t\t\t\tSearchString := 'WFRC':@VM:'WFRI':@VM:'WFRS':@VM\r\n\t\t\t\tSearchString := 'PSTC':@VM:'PSTI':@VM:'PSTS':@VM:'RFQ':@FM\r\n\t\t\t\t\r\n\t\t\tEND\r\n\t\t\tOption = ''\r\n\t\t\tFlag = ''\r\n\t\t\t\r\n\t\t\t\r\n\t\t\t*IF @USERNAME = 'BRYCE_BARB' THEN DEBUG\r\n\r\n\t\t\tSet_Status(0)\r\n\t\t\t\r\n\t\t\tCursor = Utility('CURSOR','H')\r\n\t\t\t\r\n\t\t\tBtree.Extract(SearchString,'REACT_RUN',ReactRunDict,Keylist,Option,Flag)\r\n\r\n\t\t\tVoid = Utility('CURSOR',Cursor)\r\n\r\n\t\t\tIF Get_Status(errCode) THEN\r\n\t\t\t\tErrmsg(errCode)\r\n\t\t\t\tRETURN\r\n\t\t\tEND\r\n\r\n\t\t\tIF KeyList NE '' THEN\r\n\t\t\t\tIF SpecInstFlag THEN\r\n\t\t\t\t\t\r\n\t\t\t\t\tMsgInfo = ''\r\n\t\t\t\t\tMsgInfo = 'There are active RDS records referencing the special/prove-in instructions on this Prod Spec':CRLF$\r\n\t\t\t\t\tMsgInfo = MsgInfo:'Select from the following list to update the special/prove-in instructions on the RDS records.'\r\n\t\t\t\t\tMsgInfo = '!'\r\n\t\t\t\t\tMsg(@WINDOW,MsgInfo)\r\n\t\t\t\t\t\r\n\t\t\t\t\tCONVERT @VM TO @FM IN Keylist\r\n\t\t\t\t\r\n\t\t\t\t\tMake.List(0, Keylist, ReactRunFile, ReactRunDict)\r\n\r\n\t\t\t\t\tSELECT 'REACT_RUN' BY '#WO_NO':@FM:'CASS_NO' USING 0 ELSE\r\n\t\t\t\t\t\tstatus = Set_FSError()\r\n\t\t\t\t\t\tRETURN\r\n\t\t\t\t\tEND\r\n\t\t\t\t\t\r\n\t\t\t\t\tRDSKeys = Popup(@WINDOW,'','RDS_QUERY_CURSOR')\r\n\t\t\t\t\t\r\n\t\t\t\t\tBoxCnt = COUNT(RDSKeys,@VM) + (RDSKeys NE '')\r\n\t\t\t\t\tFOR BoxNo = 1 TO BoxCnt\r\n\t\t\t\t\t\tRDSNo = RDSKeys<1,BoxNo>\r\n\t\t\t\t\t\tTableName = 'RDS'\r\n\t\t\t\t\t\tTableKey = RDSNo\r\n\t\t\t\t\t\tFieldData = SpecialInst\r\n\t\t\t\t\t\t\r\n\t\t\t\t\t\tobj_Post_Log('Create',TableName:@RM:TableKey:@RM:RDS_SPECIAL_INST$:@RM:FieldData)\t\t;* Update RDS Records\r\n\t\t\t\t\t\t\r\n\t\t\t\t\t\tobj_Post_Log('Create','REACT_RUN':@RM:RDSNo:@RM:REACT_RUN_SPECIAL_INST$:@RM:FieldData)\t;* Update REACT_RUN Records\r\n\t\t\t\t\t\t\r\n\t\t\t\t\t\t\r\n\t\t\t\t\tNEXT BoxNo\r\n\t\t\t\t\t\r\n\t\t\t\tEND ELSE\r\n\t\t\t\t\r\n\t\t\t\t\tMsgInfo = ''\r\n\t\t\t\t\tMsgInfo = 'You have changed Epi information,':CrLf$\r\n\t\t\t\t\tMsgInfo = MsgInfo:' and there are currently RDSs that are alredy ready':CrLf$:'to run or are running. Notify the customer or manufacturing':CrLf$\r\n\t\t\t\t\tMsgInfo = MsgInfo:'based on how you wish to proceed.'\r\n\t\t\t\t\tMsgInfo = '!'\r\n\t\t\t\t\tVoid = msg( '', MsgInfo )\r\n\t\t\t\tEND\r\n\t\t\tEND\r\n\t\tEND\r\n\t*/\r\n\tEND\r\nEND ELSE\r\n Security_Err_Msg( 'Spec', READ$ )\r\nEND\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC.VIEW_QUOTES_FIX.json b/LSL2/OIEVENT/CLICK/PROD_SPEC.VIEW_QUOTES_FIX.json new file mode 100644 index 0000000..d89d616 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC.VIEW_QUOTES_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, relational_call, rowexists, start_window, msg, Popup, Get_Status\r\ndeclare subroutine security_err_msg, obj_Appwindow, ErrMsg\r\n$insert msg_equates\r\n$insert POPUP_EQUATES\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Quote', Read$ ) then\r\n\tPSN = .prod_spec_id->text\r\n\tif PSN then\r\n\t\tif rowexists( 'PROD_SPEC', PSN ) then\r\n\t\t\tQuoteKeys = XLATE('PROD_SPEC',PSN,'QUOTE_KEYS','X')\r\n\t\t\tIF QuoteKeys = '' THEN\r\n\t\t\t\tErrMsg('No Quotes referring to this PSN on file')\r\n\t\t\t\tRETURN 0\r\n\t\t\tEND\r\n\t\t\tIF INDEX(QuoteKeys,@VM,1) THEN\r\n\t\t\t\tTypeOver = ''\r\n\t\t\t\tTypeOver = 'K'\r\n\t\t\t\tTypeOver = QuoteKeys\r\n\t\t\t\tQuoteKey = Popup(@WINDOW,TypeOver,'SHOW_QUOTES')\r\n\t\t\t\t\r\n\t\t\tEND ELSE\r\n\t\t\t\tQuoteKey = QuoteKeys\r\n\t\t\tEND\r\n\t\t\t\r\n\t\t\tIF QuoteKey NE '' THEN\r\n\t\t\t \tobj_Appwindow('ViewRelated','QUOTE2':@RM:QuoteKey)\r\n\t\t\tEND\r\n \t\t\r\n\t\tend else\r\n\t\t MsgInfo = ''\r\n\t\t MsgInfo = 'You must save this PSN first...'\r\n\t\t MsgInfo = '!'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t\tend\r\n\tend else\r\n\t MsgRec = ''\r\n\t MsgRec = 'You must retrieve a PSN first...' \r\n\t MsgRec = '!'\r\n\t Void = msg( '', MsgRec ) \r\n\tend\r\nend else\r\n security_err_msg( 'Quote', Read$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_BACKUP.BUTTON_13.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_BACKUP.BUTTON_13.json new file mode 100644 index 0000000..ad39364 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_BACKUP.BUTTON_13.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function repository, entid\r\n\r\nPopupId = entid( @appid<1>, 'POPUP', '', 'RATIO_TYPES' )\r\nChosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\nRArray = ''\r\nbegin case\r\n\tcase ChosenRow = \"AP\"\r\n\t\tRArray = '35/40/86/86/86/40/40/50/30/86'\r\n\tcase ChosenRow = \"Kit 2000-PEP\"\r\n\t\tRArray = '33/33/70/70/70/60/60/60/33/70'\r\n\tcase ChosenRow = \"PEP\"\r\n\t\tRArray = '35/40/75/75/75/40/40/50/30/75'\t\r\n\tcase ChosenRow = \"RP\"\r\n\t\tRArray = '35/45/70/70/70/40/40/40/30/70'\t\r\n\tcase ChosenRow = \"DSP\"\t\t\t\r\n\t\tRArray = '45/50/86/86/86/40/40/50/30/86'\r\nend case\r\nconvert '/' to @vm in RArray\r\nif RArray <> '' then\r\n .ratio_info->array = RArray\r\n @@window->savewarn = 1\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_BACKUP.CTRL_PLAN.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_BACKUP.CTRL_PLAN.json new file mode 100644 index 0000000..e29803e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_BACKUP.CTRL_PLAN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, set_printer, get_printer, msg, entid, repository\r\ndeclare function print_quote, MemberOf\r\ndeclare subroutine security_err_msg, Print_Control_Plan, Print_Control_Plan_JCH\r\n\r\n$insert security_rights_equ\r\n$insert msg_equates\r\n$insert logical\r\n\r\nif security_check( 'Prod Spec', Print$ ) then\r\n\tif @@window->savewarn = true$ then\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo = 'You need to save this PSN before printing.'\r\n\t\tMsgInfo = '!'\r\n\t\tVoid = msg( '', MsgInfo )\r\n\t\treturn 0\r\n\tend else\r\n\t\tPSNo = .prod_spec_id->text\r\n\t\tPrint_Control_Plan(PSNo)\r\n\tend\r\nend else\r\n security_err_msg( 'Prod Spec', Print$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_BACKUP.DUP_PSN.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_BACKUP.DUP_PSN.json new file mode 100644 index 0000000..a933995 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_BACKUP.DUP_PSN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Next_Key, send_event, msg, security_check, fieldcount, NextKey\r\nDECLARE SUBROUTINE security_err_msg, delete_row, ErrMsg, Comm_Prod_Spec\r\n\r\n$INSERT Security_Rights_Equ\r\n$INSERT Quote_Spec_Equ\r\n$INSERT PROD_SPEC_EQUATES\r\n\r\n\r\nIF Security_Check( 'Prod Spec', Write$ ) THEN\r\n\r\n \r\n\tOrgPSNo\t= Get_Property(@WINDOW:'.PROD_SPEC_ID','TEXT')\r\n\tvoid\t= Send_Event(@WINDOW,'WRITE')\r\n\tOrgRec\t= XLATE('PROD_SPEC',OrgPSNo,'','X')\r\n\t\r\n\t\r\n * Rat Hole Data\r\n\t\r\n\tPartNums\t= OrgRec\r\n QualReacts\t= OrgRec\r\n SpecEpi\t\t= OrgRec\r\n SpecAddl\t= OrgRec\r\n SpecSub\t\t= OrgRec\r\n\r\n NewRec = OrgRec\r\n \r\n CONVERT CHAR(248) TO @FM IN SpecEpi\r\n \r\n\tLayerCnt = COUNT(SpecEpi,@FM) + (SpecEpi NE '')\r\n\t\r\n\tFOR I = 1 TO LayerCnt\r\n\t SpecEpi\t= ''\r\n\t\tSpecEpi\t= ''\r\n\t\tSpecEpi\t\t= ''\r\n\t\tSpecEpi\t= ''\r\n\t\tSpecEpi\t= ''\r\n\t\tSpecEpi\t\t= ''\r\n\t\tSpecEpi\t\t= ''\r\n\t\tSpecEpi\t\t= ''\r\n\t\tSpecEpi\t\t= ''\r\n\t\t*SpecEpi\t\t= ''\r\n\t\t*SpecEpi\t\t= ''\r\n\t\t*SpecEpi\t= ''\r\n\t\tSpecEpi\t= ''\r\n\t\tSpecEpi\t\t= ''\r\n\t\tSpecEpi\t= ''\r\n\tNEXT I\r\n\t\r\n\tCONVERT @FM TO CHAR(248) IN SpecEpi\r\n\t\r\n\t\r\n\t*SpecAddl<1,QSAddProdSig$>\t\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddQualSig$>\t\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\tSpecAddl<1,QSAddStressMeasure$>\t\t= ''\r\n\tSpecAddl<1,QSAddTransMeasure$>\t\t= ''\r\n\tSpecAddl<1,QSAddStressMin$>\t\t\t= ''\r\n\tSpecAddl<1,QSAddStressMax$>\t\t\t= ''\r\n\tSpecAddl<1,QSAddTransSpec$>\t\t\t= ''\r\n\t*SpecAddl<1,QSAddPreProdSig$>\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddPreQualSig$>\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddProdSigDate$>\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddProdSigTime$>\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddQualSigDate$>\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddQualSigTime$>\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddPreProdSigDate$>\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddPreProdSigTime$>\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddPreQualSigDate$>\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddPreQualSigTime$>\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t\r\n\t\r\n\tNewRec\t\t\t= SpecEpi\r\n\tNewRec\t\t= SpecAddl\r\n\tNewRec \t\t= Date()\t\t;* .entry_date->text\t\t= oconv( date(), 'D2/' )\r\n\tNewRec\t\t\t= @USER4\t\t;* .entry_id->text\t\t\t= oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\tNewRec\t\t\t= 'I'\t\t\t;*\t.status->value\t\t\t= 'I'\r\n\tNewRec\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t= ''\t\t\t;* Added 1/13/2009 JCH, J.C. Henry & Co., Inc.\r\n\tNewRec\t\t\t= ''\t\t\t;* Added 1/13/2009 JCH, J.C. Henry & Co., Inc.\r\n\tNewRec\t\t= ''\t\t\t;* Added 1/13/2009 JCH, J.C. Henry & Co., Inc.\r\n\tNewRec\t= ''\t\t\t;* Added 1/17/2011 JCH, J.C. Henry & Co., Inc.\r\n\tNewRec\t= ''\t\t\t;* Added 1/17/2011 JCH, J.C. Henry & Co., Inc.\r\n\t\r\n\tNewRec\t\t\t= ''\t\t\t;* Added 8/22/2012 JCH, J.C. Henry & Co., Inc.\r\n\tNewRec\t\t= ''\t\t\t;* Added 8/22/2012 JCH, J.C. Henry & Co., Inc.\r\n\t\r\n\t\r\n\t\r\n\t* Shipping_Info items\r\n\t\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t\t= ''\r\n\tNewRec\t\t= ''\r\n\tNewRec\t\t\t\t= ''\r\n\tNewRec\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t= ''\r\n\t\r\n\tNewRec\t\t\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t\t= ''\r\n\tNewRec\t\t\t\t= ''\t\r\n\tNewRec\t\t= ''\r\n\t\r\n\tNewRec\t\t\t= ''\r\n\r\n\r\n\tNextPSKey = NextKey('PROD_SPEC')\r\n\t\r\n\tOPEN 'PROD_SPEC' TO PSTable THEN\r\n\t\tWRITE NewRec ON PSTable,NextPSKey THEN\r\n\t\t\tvoid = Set_Property(@WINDOW:'.PROD_SPEC_ID','TEXT',NextPSKey)\r\n\t\t\tvoid = Send_Event(@WINDOW:'.PROD_SPEC_ID','LOSTFOCUS')\r\n\t\tEND ELSE\r\n\t\t\tErrMsg('Unable to write new PSN ':QUOTE(NextPSKey):' on PROD_SPEC file.')\r\n\t\tEND\r\n\tEND ELSE\r\n\t\tErrMsg('Unable to open PROD_SPEC table for write.')\r\n\tEND\r\n\tRETURN 0\r\n\t\r\nEND ELSE\r\n Security_Err_Msg( 'Prod Spec', Write$ )\r\nEND\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_BACKUP.PHX_BTN_CLEAR_FIX.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_BACKUP.PHX_BTN_CLEAR_FIX.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_BACKUP.PHX_BTN_CLEAR_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_BACKUP.PHX_QBF_FIRST_FIX.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_BACKUP.PHX_QBF_FIRST_FIX.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_BACKUP.PHX_QBF_FIRST_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_BACKUP.PHX_QBF_LAST_FIX.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_BACKUP.PHX_QBF_LAST_FIX.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_BACKUP.PHX_QBF_LAST_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_BACKUP.PHX_QBF_NEXT_FIX.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_BACKUP.PHX_QBF_NEXT_FIX.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_BACKUP.PHX_QBF_NEXT_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_BACKUP.PHX_QBF_PREV_FIX.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_BACKUP.PHX_QBF_PREV_FIX.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_BACKUP.PHX_QBF_PREV_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_BACKUP.RET_PSN_BUTTON.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_BACKUP.RET_PSN_BUTTON.json new file mode 100644 index 0000000..c781341 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_BACKUP.RET_PSN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function end_window, msg, send_event, post_event\r\ndeclare subroutine record_lock\r\n$insert logical\r\n\r\nProdSpecID = .prod_spec_id->text\r\nopen 'SYSLISTS' to SysListsTable else\r\n Void = msg( '', 'Unable to open SYSLISTS...' )\r\n return 0\r\nend\r\nPrevWindow = get_property( @window, '@PrevWindow' )\r\nRecordId = 'PROD_SPEC*':@station\r\nrecord_lock( SysListsTable, 'SysLists', RecordId )\r\nwritev ProdSpecID on SysListsTable, RecordId, 1 else\r\n Void = msg( '', 'Unable to write ':ProdSpecID:' on SYSLISTS ':RecordId )\r\n return 0\r\nend\r\nunlock SysListsTable, RecordId else\r\n Void = msg( '', 'Unable to unlock SYSLISTS ':RecordId )\r\n return 0\r\nend\r\nopen 'PROD_SPEC' to PSTable else\r\n Void = msg( '', 'Unable to open PROD_SPEC...' )\r\n return 0\r\nend\r\nunlock PSTable, ProdSpecID else\r\n Void = msg( '', 'Unable to unlock PROD_SPEC ':ProdSpecID )\r\n return 0\r\nend\r\nVoid = send_event( @window, 'WRITE' )\r\nVoid = end_window( @window, '' )\r\nbegin case\r\n case PrevWindow = 'Quote'\r\n Multi = get_property( 'QUOTE', '@ChoosingMultiPSN' ) \r\n if Multi then\r\n Void = post_event( 'QUOTE.PREV_PSNS', 'OMNIEVENT' ) \r\n end else\r\n Void = post_event( 'QUOTE.PROD_SPEC_ID', 'OMNIEVENT' )\r\n end\r\n case PrevWindow = 'CAR'\r\n Void = post_event( 'CAR.PROD_SPEC_ID', 'OMNIEVENT' ) \r\n case PrevWindow = 'WO-Log'\r\n Void = post_event( 'WO_LOG.PROD_SPEC_ID', 'OMNIEVENT' ) \r\n case PrevWindow = 'Order'\r\n Void = post_event( 'ORDER.ORDER_DETAIL', 'OMNIEVENT', 'PSN' ) \r\n case PrevWindow = 'SRP'\r\n Void = post_event( 'SRP_COC_RESULTS.PROD_SPEC_ID', 'OMNIEVENT' ) \r\nend case\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_BACKUP.SPEC_BUTTON_FIX.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_BACKUP.SPEC_BUTTON_FIX.json new file mode 100644 index 0000000..62e26e7 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_BACKUP.SPEC_BUTTON_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Dialog_Box, Set_Property, Msg, Security_Check, Prod_Spec_Comm, Get_Status, ErrMsg, Set_FSError, Start_Window\r\nDECLARE SUBROUTINE Security_Err_Msg, Btree.Extract,Msg, obj_Post_Log, ErrMsg, Set_Property, Set_Status, Make.List\r\n\r\n$INSERT MSG_EQUATES\r\n$INSERT SECURITY_RIGHTS_EQU\r\n$INSERT QUOTE_SPEC_EQU\r\n$INSERT LOGICAL\r\n$INSERT POPUP_EQUATES\r\n$INSERT RDS_EQU\r\n$INSERT REACT_RUN_EQUATES\r\n\r\nDeclare Function DCount\r\n\r\nEQU CRLF$ TO CHAR(13):CHAR(10)\r\n\r\nEQU SUB_INFO$\tTO 1\r\nEQU EPI_INFO$\tTO 2\r\nEQU ADDL_INFO$\tTO 3\r\nEQU NEW_DEV$\tTO 4\r\nEQU PRE_PROD$\tTO 5\r\n\t\t\t\t\r\n\r\nRDSWarnFlag\t\t= FALSE$\r\nSpecInstFlag\t= FALSE$\r\n\r\nIF Security_Check( 'Spec', READ$ ) THEN\r\n\r\n\tSubstrateInfo\t= Get_Property(@WINDOW:'.SPEC_SUBSTRATE','TEXT')\r\n\tEpiInfo\t\t\t= Get_Property(@WINDOW:'.SPEC_EPI','TEXT')\r\n\tAddlInfo\t\t= Get_Property(@WINDOW:'.SPEC_ADDL','TEXT')\r\n\tNewDev\t\t\t= Get_Property(@WINDOW:'.SPEC_NEW_DEV','TEXT')\r\n\tPreProd\t\t\t= Get_Property(@WINDOW:'.SPEC_PRE_PROD','TEXT')\r\n\tReactType\t\t= Get_Property(@WINDOW:'.RTYPE','VALUE')\r\n\tPSNo\t\t\t= Get_Property(@WINDOW:'.PROD_SPEC_ID','TEXT')\r\n\t\r\n\tHoldSpecialInst\t= SubstrateInfo<1,QSSubInstructions$>\r\n\t\r\n\t\r\n\tHoldVar = SubstrateInfo:CHAR(244):EpiInfo:CHAR(244):AddlInfo:CHAR(244):NewDev:CHAR(244):PreProd\r\n\t\r\n\t\r\n\tSet_Property(@Window, '@PSNo', PSNo)\r\n\tReactorType = Xlate('PROD_SPEC', PSNo, 'REACTOR_TYPE', 'X')\r\n\t/*\r\n\tPartNos = Xlate('PROD_SPEC', PSNo, 'PROD_VER_EPI_PART_NO', 'X')\r\n NumPartNos = DCount(PartNos, @VM)\r\n CurrPartNo = Field(PartNos, @VM, NumPartNos) \r\n\tIf CurrPartNo EQ 'U012' then\r\n\t\tReturnVal = Start_Window( 'NDW_GAN_PROD_SPEC', @WINDOW, SubstrateInfo:CHAR(244):EpiInfo:CHAR(244):AddlInfo:CHAR(244):NewDev:CHAR(244):PreProd:CHAR(244):'*CENTER' )\r\n\tend else\r\n\t\tReturnVal = Dialog_Box( 'PROD_SPEC_SI', @WINDOW, SubstrateInfo:CHAR(244):EpiInfo:CHAR(244):AddlInfo:CHAR(244):NewDev:CHAR(244):PreProd:CHAR(244):'*CENTER' )\r\n\tend\r\n\t*/\r\n\t\r\n\tIf ReactorType EQ 'GAN' then\r\n\t\tReturnVal = Start_Window( 'NDW_GAN_PROD_SPEC', @WINDOW, SubstrateInfo:CHAR(244):EpiInfo:CHAR(244):AddlInfo:CHAR(244):NewDev:CHAR(244):PreProd:CHAR(244):'*CENTER' )\r\n\t\t\r\n\tend else\r\n\t\tReturnVal = Dialog_Box( 'PROD_SPEC_SI', @WINDOW, SubstrateInfo:CHAR(244):EpiInfo:CHAR(244):AddlInfo:CHAR(244):NewDev:CHAR(244):PreProd:CHAR(244):'*CENTER' )\r\n\t\t\r\n\t\tIF ( ReturnVal <> '' ) AND ( ReturnVal <> 'CANCEL' ) AND ( ReturnVal <> HoldVar ) THEN\r\n\t\t\t\r\n\t IF Security_Check( 'Spec', WRITE$ ) THEN\r\n\t \t\r\n\t\t\t\tCONVERT CHAR(244) TO @FM IN ReturnVal\r\n\t\t\t\t\t\r\n\t\t\t\tSpecialInst = ReturnVal<1,QSSubInstructions$>\r\n\t\t\t\t\r\n\t\t\t\tIF SpecialInst <> HoldSpecialInst\tTHEN SpecInstFlag = TRUE$\r\n\t\t\t\tIF ReturnVal<2> <> EpiInfo \t\t\tTHEN RDSWarnFlag = TRUE$\r\n\t\t\t\t\t\t\r\n\t\t\t\tSet_Property(@WINDOW:'.SPEC_SUBSTRATE','TEXT', ReturnVal)\r\n\t\t\t\tSet_Property(@WINDOW:'.SPEC_EPI','TEXT', ReturnVal)\r\n\t\t\t\tSet_Property(@WINDOW:'.SPEC_ADDL','TEXT', ReturnVal)\r\n\t\t\t\tSet_Property(@WINDOW:'.SPEC_NEW_DEV','TEXT', ReturnVal)\r\n\t\t\t\tSet_Property(@WINDOW:'.SPEC_PRE_PROD','TEXT', ReturnVal)\r\n\t\t\t\t\t\r\n\t\t\t\tSet_Property(@WINDOW,'SAVEWARN',1)\r\n\t\t\t \r\n\t\t\tEND ELSE\r\n\t \t\tSecurity_Err_Msg( 'Spec', WRITE$ )\r\n\t \tEND\r\n\t\tEND\r\n\t\t\r\n\t\t/* Moved to Prod_Spec_Si \"Save\" Click script event handler per Mark Cousten's request. 7/3/18 djs\r\n\t\tIF RDSWarnFlag OR SpecInstFlag THEN\r\n\t\t\r\n\t\t\tOPEN 'DICT.REACT_RUN' TO ReactRunDict ELSE\r\n\t\t\t\tErrMsg('Unable to open DICT.REACT_RUN table.')\r\n\t\t\t\tRETURN\r\n\t\t\tEND\r\n\r\n\t\t\tOPEN 'REACT_RUN' TO ReactRunFile ELSE\r\n\t\t\t\tErrmsg('Unable to open REACT_RUN table.')\r\n\t\t\t\tRETURN\r\n\t\t\tEND\r\n\t\t\t\r\n\t\t\tSearchString = 'PS_NO':@VM:PSNo:@FM\r\n\t\t\t\r\n\t\t\tIF ReactType = 'EPP' THEN\r\n\t\t\t\tSearchString := 'RUN_STATUS':@VM:'SPEC':@VM:'TLOAD':@VM:'RLOAD':@VM:'ULMET':@FM\r\n\t\t\tEND ELSE\r\n\t\t\t\tSearchString := 'RUN_STATUS':@VM:'RDY':@VM:'SPEC':@VM:'SRFSPC':@VM\r\n\t\t\t\tSearchString := 'PREC':@VM:'PREI':@VM:'PRES':@VM:'RLOAD':@VM\r\n\t\t\t\tSearchString := 'WFRC':@VM:'WFRI':@VM:'WFRS':@VM\r\n\t\t\t\tSearchString := 'PSTC':@VM:'PSTI':@VM:'PSTS':@VM:'RFQ':@FM\r\n\t\t\t\t\r\n\t\t\tEND\r\n\t\t\tOption = ''\r\n\t\t\tFlag = ''\r\n\t\t\t\r\n\t\t\t\r\n\t\t\t*IF @USERNAME = 'BRYCE_BARB' THEN DEBUG\r\n\r\n\t\t\tSet_Status(0)\r\n\t\t\t\r\n\t\t\tCursor = Utility('CURSOR','H')\r\n\t\t\t\r\n\t\t\tBtree.Extract(SearchString,'REACT_RUN',ReactRunDict,Keylist,Option,Flag)\r\n\r\n\t\t\tVoid = Utility('CURSOR',Cursor)\r\n\r\n\t\t\tIF Get_Status(errCode) THEN\r\n\t\t\t\tErrmsg(errCode)\r\n\t\t\t\tRETURN\r\n\t\t\tEND\r\n\r\n\t\t\tIF KeyList NE '' THEN\r\n\t\t\t\tIF SpecInstFlag THEN\r\n\t\t\t\t\t\r\n\t\t\t\t\tMsgInfo = ''\r\n\t\t\t\t\tMsgInfo = 'There are active RDS records referencing the special/prove-in instructions on this Prod Spec':CRLF$\r\n\t\t\t\t\tMsgInfo = MsgInfo:'Select from the following list to update the special/prove-in instructions on the RDS records.'\r\n\t\t\t\t\tMsgInfo = '!'\r\n\t\t\t\t\tMsg(@WINDOW,MsgInfo)\r\n\t\t\t\t\t\r\n\t\t\t\t\tCONVERT @VM TO @FM IN Keylist\r\n\t\t\t\t\r\n\t\t\t\t\tMake.List(0, Keylist, ReactRunFile, ReactRunDict)\r\n\r\n\t\t\t\t\tSELECT 'REACT_RUN' BY '#WO_NO':@FM:'CASS_NO' USING 0 ELSE\r\n\t\t\t\t\t\tstatus = Set_FSError()\r\n\t\t\t\t\t\tRETURN\r\n\t\t\t\t\tEND\r\n\t\t\t\t\t\r\n\t\t\t\t\tRDSKeys = Popup(@WINDOW,'','RDS_QUERY_CURSOR')\r\n\t\t\t\t\t\r\n\t\t\t\t\tBoxCnt = COUNT(RDSKeys,@VM) + (RDSKeys NE '')\r\n\t\t\t\t\tFOR BoxNo = 1 TO BoxCnt\r\n\t\t\t\t\t\tRDSNo = RDSKeys<1,BoxNo>\r\n\t\t\t\t\t\tTableName = 'RDS'\r\n\t\t\t\t\t\tTableKey = RDSNo\r\n\t\t\t\t\t\tFieldData = SpecialInst\r\n\t\t\t\t\t\t\r\n\t\t\t\t\t\tobj_Post_Log('Create',TableName:@RM:TableKey:@RM:RDS_SPECIAL_INST$:@RM:FieldData)\t\t;* Update RDS Records\r\n\t\t\t\t\t\t\r\n\t\t\t\t\t\tobj_Post_Log('Create','REACT_RUN':@RM:RDSNo:@RM:REACT_RUN_SPECIAL_INST$:@RM:FieldData)\t;* Update REACT_RUN Records\r\n\t\t\t\t\t\t\r\n\t\t\t\t\t\t\r\n\t\t\t\t\tNEXT BoxNo\r\n\t\t\t\t\t\r\n\t\t\t\tEND ELSE\r\n\t\t\t\t\r\n\t\t\t\t\tMsgInfo = ''\r\n\t\t\t\t\tMsgInfo = 'You have changed Epi information,':CrLf$\r\n\t\t\t\t\tMsgInfo = MsgInfo:' and there are currently RDSs that are alredy ready':CrLf$:'to run or are running. Notify the customer or manufacturing':CrLf$\r\n\t\t\t\t\tMsgInfo = MsgInfo:'based on how you wish to proceed.'\r\n\t\t\t\t\tMsgInfo = '!'\r\n\t\t\t\t\tVoid = msg( '', MsgInfo )\r\n\t\t\t\tEND\r\n\t\t\tEND\r\n\t\tEND\r\n\t*/\r\n\tEND\r\nEND ELSE\r\n Security_Err_Msg( 'Spec', READ$ )\r\nEND\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_BACKUP.VIEW_QUOTES_FIX.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_BACKUP.VIEW_QUOTES_FIX.json new file mode 100644 index 0000000..d89d616 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_BACKUP.VIEW_QUOTES_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, relational_call, rowexists, start_window, msg, Popup, Get_Status\r\ndeclare subroutine security_err_msg, obj_Appwindow, ErrMsg\r\n$insert msg_equates\r\n$insert POPUP_EQUATES\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Quote', Read$ ) then\r\n\tPSN = .prod_spec_id->text\r\n\tif PSN then\r\n\t\tif rowexists( 'PROD_SPEC', PSN ) then\r\n\t\t\tQuoteKeys = XLATE('PROD_SPEC',PSN,'QUOTE_KEYS','X')\r\n\t\t\tIF QuoteKeys = '' THEN\r\n\t\t\t\tErrMsg('No Quotes referring to this PSN on file')\r\n\t\t\t\tRETURN 0\r\n\t\t\tEND\r\n\t\t\tIF INDEX(QuoteKeys,@VM,1) THEN\r\n\t\t\t\tTypeOver = ''\r\n\t\t\t\tTypeOver = 'K'\r\n\t\t\t\tTypeOver = QuoteKeys\r\n\t\t\t\tQuoteKey = Popup(@WINDOW,TypeOver,'SHOW_QUOTES')\r\n\t\t\t\t\r\n\t\t\tEND ELSE\r\n\t\t\t\tQuoteKey = QuoteKeys\r\n\t\t\tEND\r\n\t\t\t\r\n\t\t\tIF QuoteKey NE '' THEN\r\n\t\t\t \tobj_Appwindow('ViewRelated','QUOTE2':@RM:QuoteKey)\r\n\t\t\tEND\r\n \t\t\r\n\t\tend else\r\n\t\t MsgInfo = ''\r\n\t\t MsgInfo = 'You must save this PSN first...'\r\n\t\t MsgInfo = '!'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t\tend\r\n\tend else\r\n\t MsgRec = ''\r\n\t MsgRec = 'You must retrieve a PSN first...' \r\n\t MsgRec = '!'\r\n\t Void = msg( '', MsgRec ) \r\n\tend\r\nend else\r\n security_err_msg( 'Quote', Read$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_JCH.BUTTON_13.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_JCH.BUTTON_13.json new file mode 100644 index 0000000..ad39364 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_JCH.BUTTON_13.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function repository, entid\r\n\r\nPopupId = entid( @appid<1>, 'POPUP', '', 'RATIO_TYPES' )\r\nChosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\nRArray = ''\r\nbegin case\r\n\tcase ChosenRow = \"AP\"\r\n\t\tRArray = '35/40/86/86/86/40/40/50/30/86'\r\n\tcase ChosenRow = \"Kit 2000-PEP\"\r\n\t\tRArray = '33/33/70/70/70/60/60/60/33/70'\r\n\tcase ChosenRow = \"PEP\"\r\n\t\tRArray = '35/40/75/75/75/40/40/50/30/75'\t\r\n\tcase ChosenRow = \"RP\"\r\n\t\tRArray = '35/45/70/70/70/40/40/40/30/70'\t\r\n\tcase ChosenRow = \"DSP\"\t\t\t\r\n\t\tRArray = '45/50/86/86/86/40/40/50/30/86'\r\nend case\r\nconvert '/' to @vm in RArray\r\nif RArray <> '' then\r\n .ratio_info->array = RArray\r\n @@window->savewarn = 1\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_JCH.CTRL_PLAN.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_JCH.CTRL_PLAN.json new file mode 100644 index 0000000..e29803e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_JCH.CTRL_PLAN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, set_printer, get_printer, msg, entid, repository\r\ndeclare function print_quote, MemberOf\r\ndeclare subroutine security_err_msg, Print_Control_Plan, Print_Control_Plan_JCH\r\n\r\n$insert security_rights_equ\r\n$insert msg_equates\r\n$insert logical\r\n\r\nif security_check( 'Prod Spec', Print$ ) then\r\n\tif @@window->savewarn = true$ then\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo = 'You need to save this PSN before printing.'\r\n\t\tMsgInfo = '!'\r\n\t\tVoid = msg( '', MsgInfo )\r\n\t\treturn 0\r\n\tend else\r\n\t\tPSNo = .prod_spec_id->text\r\n\t\tPrint_Control_Plan(PSNo)\r\n\tend\r\nend else\r\n security_err_msg( 'Prod Spec', Print$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_JCH.DUP_PSN.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_JCH.DUP_PSN.json new file mode 100644 index 0000000..a933995 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_JCH.DUP_PSN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Next_Key, send_event, msg, security_check, fieldcount, NextKey\r\nDECLARE SUBROUTINE security_err_msg, delete_row, ErrMsg, Comm_Prod_Spec\r\n\r\n$INSERT Security_Rights_Equ\r\n$INSERT Quote_Spec_Equ\r\n$INSERT PROD_SPEC_EQUATES\r\n\r\n\r\nIF Security_Check( 'Prod Spec', Write$ ) THEN\r\n\r\n \r\n\tOrgPSNo\t= Get_Property(@WINDOW:'.PROD_SPEC_ID','TEXT')\r\n\tvoid\t= Send_Event(@WINDOW,'WRITE')\r\n\tOrgRec\t= XLATE('PROD_SPEC',OrgPSNo,'','X')\r\n\t\r\n\t\r\n * Rat Hole Data\r\n\t\r\n\tPartNums\t= OrgRec\r\n QualReacts\t= OrgRec\r\n SpecEpi\t\t= OrgRec\r\n SpecAddl\t= OrgRec\r\n SpecSub\t\t= OrgRec\r\n\r\n NewRec = OrgRec\r\n \r\n CONVERT CHAR(248) TO @FM IN SpecEpi\r\n \r\n\tLayerCnt = COUNT(SpecEpi,@FM) + (SpecEpi NE '')\r\n\t\r\n\tFOR I = 1 TO LayerCnt\r\n\t SpecEpi\t= ''\r\n\t\tSpecEpi\t= ''\r\n\t\tSpecEpi\t\t= ''\r\n\t\tSpecEpi\t= ''\r\n\t\tSpecEpi\t= ''\r\n\t\tSpecEpi\t\t= ''\r\n\t\tSpecEpi\t\t= ''\r\n\t\tSpecEpi\t\t= ''\r\n\t\tSpecEpi\t\t= ''\r\n\t\t*SpecEpi\t\t= ''\r\n\t\t*SpecEpi\t\t= ''\r\n\t\t*SpecEpi\t= ''\r\n\t\tSpecEpi\t= ''\r\n\t\tSpecEpi\t\t= ''\r\n\t\tSpecEpi\t= ''\r\n\tNEXT I\r\n\t\r\n\tCONVERT @FM TO CHAR(248) IN SpecEpi\r\n\t\r\n\t\r\n\t*SpecAddl<1,QSAddProdSig$>\t\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddQualSig$>\t\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\tSpecAddl<1,QSAddStressMeasure$>\t\t= ''\r\n\tSpecAddl<1,QSAddTransMeasure$>\t\t= ''\r\n\tSpecAddl<1,QSAddStressMin$>\t\t\t= ''\r\n\tSpecAddl<1,QSAddStressMax$>\t\t\t= ''\r\n\tSpecAddl<1,QSAddTransSpec$>\t\t\t= ''\r\n\t*SpecAddl<1,QSAddPreProdSig$>\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddPreQualSig$>\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddProdSigDate$>\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddProdSigTime$>\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddQualSigDate$>\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddQualSigTime$>\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddPreProdSigDate$>\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddPreProdSigTime$>\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddPreQualSigDate$>\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddPreQualSigTime$>\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t\r\n\t\r\n\tNewRec\t\t\t= SpecEpi\r\n\tNewRec\t\t= SpecAddl\r\n\tNewRec \t\t= Date()\t\t;* .entry_date->text\t\t= oconv( date(), 'D2/' )\r\n\tNewRec\t\t\t= @USER4\t\t;* .entry_id->text\t\t\t= oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\tNewRec\t\t\t= 'I'\t\t\t;*\t.status->value\t\t\t= 'I'\r\n\tNewRec\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t= ''\t\t\t;* Added 1/13/2009 JCH, J.C. Henry & Co., Inc.\r\n\tNewRec\t\t\t= ''\t\t\t;* Added 1/13/2009 JCH, J.C. Henry & Co., Inc.\r\n\tNewRec\t\t= ''\t\t\t;* Added 1/13/2009 JCH, J.C. Henry & Co., Inc.\r\n\tNewRec\t= ''\t\t\t;* Added 1/17/2011 JCH, J.C. Henry & Co., Inc.\r\n\tNewRec\t= ''\t\t\t;* Added 1/17/2011 JCH, J.C. Henry & Co., Inc.\r\n\t\r\n\tNewRec\t\t\t= ''\t\t\t;* Added 8/22/2012 JCH, J.C. Henry & Co., Inc.\r\n\tNewRec\t\t= ''\t\t\t;* Added 8/22/2012 JCH, J.C. Henry & Co., Inc.\r\n\t\r\n\t\r\n\t\r\n\t* Shipping_Info items\r\n\t\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t\t= ''\r\n\tNewRec\t\t= ''\r\n\tNewRec\t\t\t\t= ''\r\n\tNewRec\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t= ''\r\n\t\r\n\tNewRec\t\t\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t\t= ''\r\n\tNewRec\t\t\t\t= ''\t\r\n\tNewRec\t\t= ''\r\n\t\r\n\tNewRec\t\t\t= ''\r\n\r\n\r\n\tNextPSKey = NextKey('PROD_SPEC')\r\n\t\r\n\tOPEN 'PROD_SPEC' TO PSTable THEN\r\n\t\tWRITE NewRec ON PSTable,NextPSKey THEN\r\n\t\t\tvoid = Set_Property(@WINDOW:'.PROD_SPEC_ID','TEXT',NextPSKey)\r\n\t\t\tvoid = Send_Event(@WINDOW:'.PROD_SPEC_ID','LOSTFOCUS')\r\n\t\tEND ELSE\r\n\t\t\tErrMsg('Unable to write new PSN ':QUOTE(NextPSKey):' on PROD_SPEC file.')\r\n\t\tEND\r\n\tEND ELSE\r\n\t\tErrMsg('Unable to open PROD_SPEC table for write.')\r\n\tEND\r\n\tRETURN 0\r\n\t\r\nEND ELSE\r\n Security_Err_Msg( 'Prod Spec', Write$ )\r\nEND\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_JCH.PHX_BTN_CLEAR_FIX.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_JCH.PHX_BTN_CLEAR_FIX.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_JCH.PHX_BTN_CLEAR_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_JCH.PHX_QBF_FIRST_FIX.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_JCH.PHX_QBF_FIRST_FIX.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_JCH.PHX_QBF_FIRST_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_JCH.PHX_QBF_LAST_FIX.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_JCH.PHX_QBF_LAST_FIX.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_JCH.PHX_QBF_LAST_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_JCH.PHX_QBF_NEXT_FIX.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_JCH.PHX_QBF_NEXT_FIX.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_JCH.PHX_QBF_NEXT_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_JCH.PHX_QBF_PREV_FIX.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_JCH.PHX_QBF_PREV_FIX.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_JCH.PHX_QBF_PREV_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_JCH.RET_PSN_BUTTON.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_JCH.RET_PSN_BUTTON.json new file mode 100644 index 0000000..c781341 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_JCH.RET_PSN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function end_window, msg, send_event, post_event\r\ndeclare subroutine record_lock\r\n$insert logical\r\n\r\nProdSpecID = .prod_spec_id->text\r\nopen 'SYSLISTS' to SysListsTable else\r\n Void = msg( '', 'Unable to open SYSLISTS...' )\r\n return 0\r\nend\r\nPrevWindow = get_property( @window, '@PrevWindow' )\r\nRecordId = 'PROD_SPEC*':@station\r\nrecord_lock( SysListsTable, 'SysLists', RecordId )\r\nwritev ProdSpecID on SysListsTable, RecordId, 1 else\r\n Void = msg( '', 'Unable to write ':ProdSpecID:' on SYSLISTS ':RecordId )\r\n return 0\r\nend\r\nunlock SysListsTable, RecordId else\r\n Void = msg( '', 'Unable to unlock SYSLISTS ':RecordId )\r\n return 0\r\nend\r\nopen 'PROD_SPEC' to PSTable else\r\n Void = msg( '', 'Unable to open PROD_SPEC...' )\r\n return 0\r\nend\r\nunlock PSTable, ProdSpecID else\r\n Void = msg( '', 'Unable to unlock PROD_SPEC ':ProdSpecID )\r\n return 0\r\nend\r\nVoid = send_event( @window, 'WRITE' )\r\nVoid = end_window( @window, '' )\r\nbegin case\r\n case PrevWindow = 'Quote'\r\n Multi = get_property( 'QUOTE', '@ChoosingMultiPSN' ) \r\n if Multi then\r\n Void = post_event( 'QUOTE.PREV_PSNS', 'OMNIEVENT' ) \r\n end else\r\n Void = post_event( 'QUOTE.PROD_SPEC_ID', 'OMNIEVENT' )\r\n end\r\n case PrevWindow = 'CAR'\r\n Void = post_event( 'CAR.PROD_SPEC_ID', 'OMNIEVENT' ) \r\n case PrevWindow = 'WO-Log'\r\n Void = post_event( 'WO_LOG.PROD_SPEC_ID', 'OMNIEVENT' ) \r\n case PrevWindow = 'Order'\r\n Void = post_event( 'ORDER.ORDER_DETAIL', 'OMNIEVENT', 'PSN' ) \r\n case PrevWindow = 'SRP'\r\n Void = post_event( 'SRP_COC_RESULTS.PROD_SPEC_ID', 'OMNIEVENT' ) \r\nend case\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_JCH.SPEC_BUTTON_FIX.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_JCH.SPEC_BUTTON_FIX.json new file mode 100644 index 0000000..62e26e7 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_JCH.SPEC_BUTTON_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Dialog_Box, Set_Property, Msg, Security_Check, Prod_Spec_Comm, Get_Status, ErrMsg, Set_FSError, Start_Window\r\nDECLARE SUBROUTINE Security_Err_Msg, Btree.Extract,Msg, obj_Post_Log, ErrMsg, Set_Property, Set_Status, Make.List\r\n\r\n$INSERT MSG_EQUATES\r\n$INSERT SECURITY_RIGHTS_EQU\r\n$INSERT QUOTE_SPEC_EQU\r\n$INSERT LOGICAL\r\n$INSERT POPUP_EQUATES\r\n$INSERT RDS_EQU\r\n$INSERT REACT_RUN_EQUATES\r\n\r\nDeclare Function DCount\r\n\r\nEQU CRLF$ TO CHAR(13):CHAR(10)\r\n\r\nEQU SUB_INFO$\tTO 1\r\nEQU EPI_INFO$\tTO 2\r\nEQU ADDL_INFO$\tTO 3\r\nEQU NEW_DEV$\tTO 4\r\nEQU PRE_PROD$\tTO 5\r\n\t\t\t\t\r\n\r\nRDSWarnFlag\t\t= FALSE$\r\nSpecInstFlag\t= FALSE$\r\n\r\nIF Security_Check( 'Spec', READ$ ) THEN\r\n\r\n\tSubstrateInfo\t= Get_Property(@WINDOW:'.SPEC_SUBSTRATE','TEXT')\r\n\tEpiInfo\t\t\t= Get_Property(@WINDOW:'.SPEC_EPI','TEXT')\r\n\tAddlInfo\t\t= Get_Property(@WINDOW:'.SPEC_ADDL','TEXT')\r\n\tNewDev\t\t\t= Get_Property(@WINDOW:'.SPEC_NEW_DEV','TEXT')\r\n\tPreProd\t\t\t= Get_Property(@WINDOW:'.SPEC_PRE_PROD','TEXT')\r\n\tReactType\t\t= Get_Property(@WINDOW:'.RTYPE','VALUE')\r\n\tPSNo\t\t\t= Get_Property(@WINDOW:'.PROD_SPEC_ID','TEXT')\r\n\t\r\n\tHoldSpecialInst\t= SubstrateInfo<1,QSSubInstructions$>\r\n\t\r\n\t\r\n\tHoldVar = SubstrateInfo:CHAR(244):EpiInfo:CHAR(244):AddlInfo:CHAR(244):NewDev:CHAR(244):PreProd\r\n\t\r\n\t\r\n\tSet_Property(@Window, '@PSNo', PSNo)\r\n\tReactorType = Xlate('PROD_SPEC', PSNo, 'REACTOR_TYPE', 'X')\r\n\t/*\r\n\tPartNos = Xlate('PROD_SPEC', PSNo, 'PROD_VER_EPI_PART_NO', 'X')\r\n NumPartNos = DCount(PartNos, @VM)\r\n CurrPartNo = Field(PartNos, @VM, NumPartNos) \r\n\tIf CurrPartNo EQ 'U012' then\r\n\t\tReturnVal = Start_Window( 'NDW_GAN_PROD_SPEC', @WINDOW, SubstrateInfo:CHAR(244):EpiInfo:CHAR(244):AddlInfo:CHAR(244):NewDev:CHAR(244):PreProd:CHAR(244):'*CENTER' )\r\n\tend else\r\n\t\tReturnVal = Dialog_Box( 'PROD_SPEC_SI', @WINDOW, SubstrateInfo:CHAR(244):EpiInfo:CHAR(244):AddlInfo:CHAR(244):NewDev:CHAR(244):PreProd:CHAR(244):'*CENTER' )\r\n\tend\r\n\t*/\r\n\t\r\n\tIf ReactorType EQ 'GAN' then\r\n\t\tReturnVal = Start_Window( 'NDW_GAN_PROD_SPEC', @WINDOW, SubstrateInfo:CHAR(244):EpiInfo:CHAR(244):AddlInfo:CHAR(244):NewDev:CHAR(244):PreProd:CHAR(244):'*CENTER' )\r\n\t\t\r\n\tend else\r\n\t\tReturnVal = Dialog_Box( 'PROD_SPEC_SI', @WINDOW, SubstrateInfo:CHAR(244):EpiInfo:CHAR(244):AddlInfo:CHAR(244):NewDev:CHAR(244):PreProd:CHAR(244):'*CENTER' )\r\n\t\t\r\n\t\tIF ( ReturnVal <> '' ) AND ( ReturnVal <> 'CANCEL' ) AND ( ReturnVal <> HoldVar ) THEN\r\n\t\t\t\r\n\t IF Security_Check( 'Spec', WRITE$ ) THEN\r\n\t \t\r\n\t\t\t\tCONVERT CHAR(244) TO @FM IN ReturnVal\r\n\t\t\t\t\t\r\n\t\t\t\tSpecialInst = ReturnVal<1,QSSubInstructions$>\r\n\t\t\t\t\r\n\t\t\t\tIF SpecialInst <> HoldSpecialInst\tTHEN SpecInstFlag = TRUE$\r\n\t\t\t\tIF ReturnVal<2> <> EpiInfo \t\t\tTHEN RDSWarnFlag = TRUE$\r\n\t\t\t\t\t\t\r\n\t\t\t\tSet_Property(@WINDOW:'.SPEC_SUBSTRATE','TEXT', ReturnVal)\r\n\t\t\t\tSet_Property(@WINDOW:'.SPEC_EPI','TEXT', ReturnVal)\r\n\t\t\t\tSet_Property(@WINDOW:'.SPEC_ADDL','TEXT', ReturnVal)\r\n\t\t\t\tSet_Property(@WINDOW:'.SPEC_NEW_DEV','TEXT', ReturnVal)\r\n\t\t\t\tSet_Property(@WINDOW:'.SPEC_PRE_PROD','TEXT', ReturnVal)\r\n\t\t\t\t\t\r\n\t\t\t\tSet_Property(@WINDOW,'SAVEWARN',1)\r\n\t\t\t \r\n\t\t\tEND ELSE\r\n\t \t\tSecurity_Err_Msg( 'Spec', WRITE$ )\r\n\t \tEND\r\n\t\tEND\r\n\t\t\r\n\t\t/* Moved to Prod_Spec_Si \"Save\" Click script event handler per Mark Cousten's request. 7/3/18 djs\r\n\t\tIF RDSWarnFlag OR SpecInstFlag THEN\r\n\t\t\r\n\t\t\tOPEN 'DICT.REACT_RUN' TO ReactRunDict ELSE\r\n\t\t\t\tErrMsg('Unable to open DICT.REACT_RUN table.')\r\n\t\t\t\tRETURN\r\n\t\t\tEND\r\n\r\n\t\t\tOPEN 'REACT_RUN' TO ReactRunFile ELSE\r\n\t\t\t\tErrmsg('Unable to open REACT_RUN table.')\r\n\t\t\t\tRETURN\r\n\t\t\tEND\r\n\t\t\t\r\n\t\t\tSearchString = 'PS_NO':@VM:PSNo:@FM\r\n\t\t\t\r\n\t\t\tIF ReactType = 'EPP' THEN\r\n\t\t\t\tSearchString := 'RUN_STATUS':@VM:'SPEC':@VM:'TLOAD':@VM:'RLOAD':@VM:'ULMET':@FM\r\n\t\t\tEND ELSE\r\n\t\t\t\tSearchString := 'RUN_STATUS':@VM:'RDY':@VM:'SPEC':@VM:'SRFSPC':@VM\r\n\t\t\t\tSearchString := 'PREC':@VM:'PREI':@VM:'PRES':@VM:'RLOAD':@VM\r\n\t\t\t\tSearchString := 'WFRC':@VM:'WFRI':@VM:'WFRS':@VM\r\n\t\t\t\tSearchString := 'PSTC':@VM:'PSTI':@VM:'PSTS':@VM:'RFQ':@FM\r\n\t\t\t\t\r\n\t\t\tEND\r\n\t\t\tOption = ''\r\n\t\t\tFlag = ''\r\n\t\t\t\r\n\t\t\t\r\n\t\t\t*IF @USERNAME = 'BRYCE_BARB' THEN DEBUG\r\n\r\n\t\t\tSet_Status(0)\r\n\t\t\t\r\n\t\t\tCursor = Utility('CURSOR','H')\r\n\t\t\t\r\n\t\t\tBtree.Extract(SearchString,'REACT_RUN',ReactRunDict,Keylist,Option,Flag)\r\n\r\n\t\t\tVoid = Utility('CURSOR',Cursor)\r\n\r\n\t\t\tIF Get_Status(errCode) THEN\r\n\t\t\t\tErrmsg(errCode)\r\n\t\t\t\tRETURN\r\n\t\t\tEND\r\n\r\n\t\t\tIF KeyList NE '' THEN\r\n\t\t\t\tIF SpecInstFlag THEN\r\n\t\t\t\t\t\r\n\t\t\t\t\tMsgInfo = ''\r\n\t\t\t\t\tMsgInfo = 'There are active RDS records referencing the special/prove-in instructions on this Prod Spec':CRLF$\r\n\t\t\t\t\tMsgInfo = MsgInfo:'Select from the following list to update the special/prove-in instructions on the RDS records.'\r\n\t\t\t\t\tMsgInfo = '!'\r\n\t\t\t\t\tMsg(@WINDOW,MsgInfo)\r\n\t\t\t\t\t\r\n\t\t\t\t\tCONVERT @VM TO @FM IN Keylist\r\n\t\t\t\t\r\n\t\t\t\t\tMake.List(0, Keylist, ReactRunFile, ReactRunDict)\r\n\r\n\t\t\t\t\tSELECT 'REACT_RUN' BY '#WO_NO':@FM:'CASS_NO' USING 0 ELSE\r\n\t\t\t\t\t\tstatus = Set_FSError()\r\n\t\t\t\t\t\tRETURN\r\n\t\t\t\t\tEND\r\n\t\t\t\t\t\r\n\t\t\t\t\tRDSKeys = Popup(@WINDOW,'','RDS_QUERY_CURSOR')\r\n\t\t\t\t\t\r\n\t\t\t\t\tBoxCnt = COUNT(RDSKeys,@VM) + (RDSKeys NE '')\r\n\t\t\t\t\tFOR BoxNo = 1 TO BoxCnt\r\n\t\t\t\t\t\tRDSNo = RDSKeys<1,BoxNo>\r\n\t\t\t\t\t\tTableName = 'RDS'\r\n\t\t\t\t\t\tTableKey = RDSNo\r\n\t\t\t\t\t\tFieldData = SpecialInst\r\n\t\t\t\t\t\t\r\n\t\t\t\t\t\tobj_Post_Log('Create',TableName:@RM:TableKey:@RM:RDS_SPECIAL_INST$:@RM:FieldData)\t\t;* Update RDS Records\r\n\t\t\t\t\t\t\r\n\t\t\t\t\t\tobj_Post_Log('Create','REACT_RUN':@RM:RDSNo:@RM:REACT_RUN_SPECIAL_INST$:@RM:FieldData)\t;* Update REACT_RUN Records\r\n\t\t\t\t\t\t\r\n\t\t\t\t\t\t\r\n\t\t\t\t\tNEXT BoxNo\r\n\t\t\t\t\t\r\n\t\t\t\tEND ELSE\r\n\t\t\t\t\r\n\t\t\t\t\tMsgInfo = ''\r\n\t\t\t\t\tMsgInfo = 'You have changed Epi information,':CrLf$\r\n\t\t\t\t\tMsgInfo = MsgInfo:' and there are currently RDSs that are alredy ready':CrLf$:'to run or are running. Notify the customer or manufacturing':CrLf$\r\n\t\t\t\t\tMsgInfo = MsgInfo:'based on how you wish to proceed.'\r\n\t\t\t\t\tMsgInfo = '!'\r\n\t\t\t\t\tVoid = msg( '', MsgInfo )\r\n\t\t\t\tEND\r\n\t\t\tEND\r\n\t\tEND\r\n\t*/\r\n\tEND\r\nEND ELSE\r\n Security_Err_Msg( 'Spec', READ$ )\r\nEND\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_JCH.VIEW_QUOTES_FIX.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_JCH.VIEW_QUOTES_FIX.json new file mode 100644 index 0000000..d89d616 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_JCH.VIEW_QUOTES_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, relational_call, rowexists, start_window, msg, Popup, Get_Status\r\ndeclare subroutine security_err_msg, obj_Appwindow, ErrMsg\r\n$insert msg_equates\r\n$insert POPUP_EQUATES\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Quote', Read$ ) then\r\n\tPSN = .prod_spec_id->text\r\n\tif PSN then\r\n\t\tif rowexists( 'PROD_SPEC', PSN ) then\r\n\t\t\tQuoteKeys = XLATE('PROD_SPEC',PSN,'QUOTE_KEYS','X')\r\n\t\t\tIF QuoteKeys = '' THEN\r\n\t\t\t\tErrMsg('No Quotes referring to this PSN on file')\r\n\t\t\t\tRETURN 0\r\n\t\t\tEND\r\n\t\t\tIF INDEX(QuoteKeys,@VM,1) THEN\r\n\t\t\t\tTypeOver = ''\r\n\t\t\t\tTypeOver = 'K'\r\n\t\t\t\tTypeOver = QuoteKeys\r\n\t\t\t\tQuoteKey = Popup(@WINDOW,TypeOver,'SHOW_QUOTES')\r\n\t\t\t\t\r\n\t\t\tEND ELSE\r\n\t\t\t\tQuoteKey = QuoteKeys\r\n\t\t\tEND\r\n\t\t\t\r\n\t\t\tIF QuoteKey NE '' THEN\r\n\t\t\t \tobj_Appwindow('ViewRelated','QUOTE2':@RM:QuoteKey)\r\n\t\t\tEND\r\n \t\t\r\n\t\tend else\r\n\t\t MsgInfo = ''\r\n\t\t MsgInfo = 'You must save this PSN first...'\r\n\t\t MsgInfo = '!'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t\tend\r\n\tend else\r\n\t MsgRec = ''\r\n\t MsgRec = 'You must retrieve a PSN first...' \r\n\t MsgRec = '!'\r\n\t Void = msg( '', MsgRec ) \r\n\tend\r\nend else\r\n security_err_msg( 'Quote', Read$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_JRO.BUTTON_13.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_JRO.BUTTON_13.json new file mode 100644 index 0000000..ad39364 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_JRO.BUTTON_13.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function repository, entid\r\n\r\nPopupId = entid( @appid<1>, 'POPUP', '', 'RATIO_TYPES' )\r\nChosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\nRArray = ''\r\nbegin case\r\n\tcase ChosenRow = \"AP\"\r\n\t\tRArray = '35/40/86/86/86/40/40/50/30/86'\r\n\tcase ChosenRow = \"Kit 2000-PEP\"\r\n\t\tRArray = '33/33/70/70/70/60/60/60/33/70'\r\n\tcase ChosenRow = \"PEP\"\r\n\t\tRArray = '35/40/75/75/75/40/40/50/30/75'\t\r\n\tcase ChosenRow = \"RP\"\r\n\t\tRArray = '35/45/70/70/70/40/40/40/30/70'\t\r\n\tcase ChosenRow = \"DSP\"\t\t\t\r\n\t\tRArray = '45/50/86/86/86/40/40/50/30/86'\r\nend case\r\nconvert '/' to @vm in RArray\r\nif RArray <> '' then\r\n .ratio_info->array = RArray\r\n @@window->savewarn = 1\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_JRO.CTRL_PLAN.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_JRO.CTRL_PLAN.json new file mode 100644 index 0000000..e29803e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_JRO.CTRL_PLAN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, set_printer, get_printer, msg, entid, repository\r\ndeclare function print_quote, MemberOf\r\ndeclare subroutine security_err_msg, Print_Control_Plan, Print_Control_Plan_JCH\r\n\r\n$insert security_rights_equ\r\n$insert msg_equates\r\n$insert logical\r\n\r\nif security_check( 'Prod Spec', Print$ ) then\r\n\tif @@window->savewarn = true$ then\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo = 'You need to save this PSN before printing.'\r\n\t\tMsgInfo = '!'\r\n\t\tVoid = msg( '', MsgInfo )\r\n\t\treturn 0\r\n\tend else\r\n\t\tPSNo = .prod_spec_id->text\r\n\t\tPrint_Control_Plan(PSNo)\r\n\tend\r\nend else\r\n security_err_msg( 'Prod Spec', Print$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_JRO.DUP_PSN.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_JRO.DUP_PSN.json new file mode 100644 index 0000000..a933995 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_JRO.DUP_PSN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Next_Key, send_event, msg, security_check, fieldcount, NextKey\r\nDECLARE SUBROUTINE security_err_msg, delete_row, ErrMsg, Comm_Prod_Spec\r\n\r\n$INSERT Security_Rights_Equ\r\n$INSERT Quote_Spec_Equ\r\n$INSERT PROD_SPEC_EQUATES\r\n\r\n\r\nIF Security_Check( 'Prod Spec', Write$ ) THEN\r\n\r\n \r\n\tOrgPSNo\t= Get_Property(@WINDOW:'.PROD_SPEC_ID','TEXT')\r\n\tvoid\t= Send_Event(@WINDOW,'WRITE')\r\n\tOrgRec\t= XLATE('PROD_SPEC',OrgPSNo,'','X')\r\n\t\r\n\t\r\n * Rat Hole Data\r\n\t\r\n\tPartNums\t= OrgRec\r\n QualReacts\t= OrgRec\r\n SpecEpi\t\t= OrgRec\r\n SpecAddl\t= OrgRec\r\n SpecSub\t\t= OrgRec\r\n\r\n NewRec = OrgRec\r\n \r\n CONVERT CHAR(248) TO @FM IN SpecEpi\r\n \r\n\tLayerCnt = COUNT(SpecEpi,@FM) + (SpecEpi NE '')\r\n\t\r\n\tFOR I = 1 TO LayerCnt\r\n\t SpecEpi\t= ''\r\n\t\tSpecEpi\t= ''\r\n\t\tSpecEpi\t\t= ''\r\n\t\tSpecEpi\t= ''\r\n\t\tSpecEpi\t= ''\r\n\t\tSpecEpi\t\t= ''\r\n\t\tSpecEpi\t\t= ''\r\n\t\tSpecEpi\t\t= ''\r\n\t\tSpecEpi\t\t= ''\r\n\t\t*SpecEpi\t\t= ''\r\n\t\t*SpecEpi\t\t= ''\r\n\t\t*SpecEpi\t= ''\r\n\t\tSpecEpi\t= ''\r\n\t\tSpecEpi\t\t= ''\r\n\t\tSpecEpi\t= ''\r\n\tNEXT I\r\n\t\r\n\tCONVERT @FM TO CHAR(248) IN SpecEpi\r\n\t\r\n\t\r\n\t*SpecAddl<1,QSAddProdSig$>\t\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddQualSig$>\t\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\tSpecAddl<1,QSAddStressMeasure$>\t\t= ''\r\n\tSpecAddl<1,QSAddTransMeasure$>\t\t= ''\r\n\tSpecAddl<1,QSAddStressMin$>\t\t\t= ''\r\n\tSpecAddl<1,QSAddStressMax$>\t\t\t= ''\r\n\tSpecAddl<1,QSAddTransSpec$>\t\t\t= ''\r\n\t*SpecAddl<1,QSAddPreProdSig$>\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddPreQualSig$>\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddProdSigDate$>\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddProdSigTime$>\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddQualSigDate$>\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddQualSigTime$>\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddPreProdSigDate$>\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddPreProdSigTime$>\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddPreQualSigDate$>\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddPreQualSigTime$>\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t\r\n\t\r\n\tNewRec\t\t\t= SpecEpi\r\n\tNewRec\t\t= SpecAddl\r\n\tNewRec \t\t= Date()\t\t;* .entry_date->text\t\t= oconv( date(), 'D2/' )\r\n\tNewRec\t\t\t= @USER4\t\t;* .entry_id->text\t\t\t= oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\tNewRec\t\t\t= 'I'\t\t\t;*\t.status->value\t\t\t= 'I'\r\n\tNewRec\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t= ''\t\t\t;* Added 1/13/2009 JCH, J.C. Henry & Co., Inc.\r\n\tNewRec\t\t\t= ''\t\t\t;* Added 1/13/2009 JCH, J.C. Henry & Co., Inc.\r\n\tNewRec\t\t= ''\t\t\t;* Added 1/13/2009 JCH, J.C. Henry & Co., Inc.\r\n\tNewRec\t= ''\t\t\t;* Added 1/17/2011 JCH, J.C. Henry & Co., Inc.\r\n\tNewRec\t= ''\t\t\t;* Added 1/17/2011 JCH, J.C. Henry & Co., Inc.\r\n\t\r\n\tNewRec\t\t\t= ''\t\t\t;* Added 8/22/2012 JCH, J.C. Henry & Co., Inc.\r\n\tNewRec\t\t= ''\t\t\t;* Added 8/22/2012 JCH, J.C. Henry & Co., Inc.\r\n\t\r\n\t\r\n\t\r\n\t* Shipping_Info items\r\n\t\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t\t= ''\r\n\tNewRec\t\t= ''\r\n\tNewRec\t\t\t\t= ''\r\n\tNewRec\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t= ''\r\n\t\r\n\tNewRec\t\t\t\t= ''\r\n\tNewRec\t\t\t= ''\r\n\tNewRec\t\t\t\t= ''\r\n\tNewRec\t\t\t\t= ''\t\r\n\tNewRec\t\t= ''\r\n\t\r\n\tNewRec\t\t\t= ''\r\n\r\n\r\n\tNextPSKey = NextKey('PROD_SPEC')\r\n\t\r\n\tOPEN 'PROD_SPEC' TO PSTable THEN\r\n\t\tWRITE NewRec ON PSTable,NextPSKey THEN\r\n\t\t\tvoid = Set_Property(@WINDOW:'.PROD_SPEC_ID','TEXT',NextPSKey)\r\n\t\t\tvoid = Send_Event(@WINDOW:'.PROD_SPEC_ID','LOSTFOCUS')\r\n\t\tEND ELSE\r\n\t\t\tErrMsg('Unable to write new PSN ':QUOTE(NextPSKey):' on PROD_SPEC file.')\r\n\t\tEND\r\n\tEND ELSE\r\n\t\tErrMsg('Unable to open PROD_SPEC table for write.')\r\n\tEND\r\n\tRETURN 0\r\n\t\r\nEND ELSE\r\n Security_Err_Msg( 'Prod Spec', Write$ )\r\nEND\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_JRO.PHX_BTN_CLEAR_FIX.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_JRO.PHX_BTN_CLEAR_FIX.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_JRO.PHX_BTN_CLEAR_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_JRO.PHX_QBF_FIRST_FIX.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_JRO.PHX_QBF_FIRST_FIX.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_JRO.PHX_QBF_FIRST_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_JRO.PHX_QBF_LAST_FIX.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_JRO.PHX_QBF_LAST_FIX.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_JRO.PHX_QBF_LAST_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_JRO.PHX_QBF_NEXT_FIX.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_JRO.PHX_QBF_NEXT_FIX.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_JRO.PHX_QBF_NEXT_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_JRO.PHX_QBF_PREV_FIX.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_JRO.PHX_QBF_PREV_FIX.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_JRO.PHX_QBF_PREV_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_JRO.RET_PSN_BUTTON.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_JRO.RET_PSN_BUTTON.json new file mode 100644 index 0000000..c781341 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_JRO.RET_PSN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function end_window, msg, send_event, post_event\r\ndeclare subroutine record_lock\r\n$insert logical\r\n\r\nProdSpecID = .prod_spec_id->text\r\nopen 'SYSLISTS' to SysListsTable else\r\n Void = msg( '', 'Unable to open SYSLISTS...' )\r\n return 0\r\nend\r\nPrevWindow = get_property( @window, '@PrevWindow' )\r\nRecordId = 'PROD_SPEC*':@station\r\nrecord_lock( SysListsTable, 'SysLists', RecordId )\r\nwritev ProdSpecID on SysListsTable, RecordId, 1 else\r\n Void = msg( '', 'Unable to write ':ProdSpecID:' on SYSLISTS ':RecordId )\r\n return 0\r\nend\r\nunlock SysListsTable, RecordId else\r\n Void = msg( '', 'Unable to unlock SYSLISTS ':RecordId )\r\n return 0\r\nend\r\nopen 'PROD_SPEC' to PSTable else\r\n Void = msg( '', 'Unable to open PROD_SPEC...' )\r\n return 0\r\nend\r\nunlock PSTable, ProdSpecID else\r\n Void = msg( '', 'Unable to unlock PROD_SPEC ':ProdSpecID )\r\n return 0\r\nend\r\nVoid = send_event( @window, 'WRITE' )\r\nVoid = end_window( @window, '' )\r\nbegin case\r\n case PrevWindow = 'Quote'\r\n Multi = get_property( 'QUOTE', '@ChoosingMultiPSN' ) \r\n if Multi then\r\n Void = post_event( 'QUOTE.PREV_PSNS', 'OMNIEVENT' ) \r\n end else\r\n Void = post_event( 'QUOTE.PROD_SPEC_ID', 'OMNIEVENT' )\r\n end\r\n case PrevWindow = 'CAR'\r\n Void = post_event( 'CAR.PROD_SPEC_ID', 'OMNIEVENT' ) \r\n case PrevWindow = 'WO-Log'\r\n Void = post_event( 'WO_LOG.PROD_SPEC_ID', 'OMNIEVENT' ) \r\n case PrevWindow = 'Order'\r\n Void = post_event( 'ORDER.ORDER_DETAIL', 'OMNIEVENT', 'PSN' ) \r\n case PrevWindow = 'SRP'\r\n Void = post_event( 'SRP_COC_RESULTS.PROD_SPEC_ID', 'OMNIEVENT' ) \r\nend case\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_JRO.SPEC_BUTTON_FIX.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_JRO.SPEC_BUTTON_FIX.json new file mode 100644 index 0000000..62e26e7 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_JRO.SPEC_BUTTON_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Dialog_Box, Set_Property, Msg, Security_Check, Prod_Spec_Comm, Get_Status, ErrMsg, Set_FSError, Start_Window\r\nDECLARE SUBROUTINE Security_Err_Msg, Btree.Extract,Msg, obj_Post_Log, ErrMsg, Set_Property, Set_Status, Make.List\r\n\r\n$INSERT MSG_EQUATES\r\n$INSERT SECURITY_RIGHTS_EQU\r\n$INSERT QUOTE_SPEC_EQU\r\n$INSERT LOGICAL\r\n$INSERT POPUP_EQUATES\r\n$INSERT RDS_EQU\r\n$INSERT REACT_RUN_EQUATES\r\n\r\nDeclare Function DCount\r\n\r\nEQU CRLF$ TO CHAR(13):CHAR(10)\r\n\r\nEQU SUB_INFO$\tTO 1\r\nEQU EPI_INFO$\tTO 2\r\nEQU ADDL_INFO$\tTO 3\r\nEQU NEW_DEV$\tTO 4\r\nEQU PRE_PROD$\tTO 5\r\n\t\t\t\t\r\n\r\nRDSWarnFlag\t\t= FALSE$\r\nSpecInstFlag\t= FALSE$\r\n\r\nIF Security_Check( 'Spec', READ$ ) THEN\r\n\r\n\tSubstrateInfo\t= Get_Property(@WINDOW:'.SPEC_SUBSTRATE','TEXT')\r\n\tEpiInfo\t\t\t= Get_Property(@WINDOW:'.SPEC_EPI','TEXT')\r\n\tAddlInfo\t\t= Get_Property(@WINDOW:'.SPEC_ADDL','TEXT')\r\n\tNewDev\t\t\t= Get_Property(@WINDOW:'.SPEC_NEW_DEV','TEXT')\r\n\tPreProd\t\t\t= Get_Property(@WINDOW:'.SPEC_PRE_PROD','TEXT')\r\n\tReactType\t\t= Get_Property(@WINDOW:'.RTYPE','VALUE')\r\n\tPSNo\t\t\t= Get_Property(@WINDOW:'.PROD_SPEC_ID','TEXT')\r\n\t\r\n\tHoldSpecialInst\t= SubstrateInfo<1,QSSubInstructions$>\r\n\t\r\n\t\r\n\tHoldVar = SubstrateInfo:CHAR(244):EpiInfo:CHAR(244):AddlInfo:CHAR(244):NewDev:CHAR(244):PreProd\r\n\t\r\n\t\r\n\tSet_Property(@Window, '@PSNo', PSNo)\r\n\tReactorType = Xlate('PROD_SPEC', PSNo, 'REACTOR_TYPE', 'X')\r\n\t/*\r\n\tPartNos = Xlate('PROD_SPEC', PSNo, 'PROD_VER_EPI_PART_NO', 'X')\r\n NumPartNos = DCount(PartNos, @VM)\r\n CurrPartNo = Field(PartNos, @VM, NumPartNos) \r\n\tIf CurrPartNo EQ 'U012' then\r\n\t\tReturnVal = Start_Window( 'NDW_GAN_PROD_SPEC', @WINDOW, SubstrateInfo:CHAR(244):EpiInfo:CHAR(244):AddlInfo:CHAR(244):NewDev:CHAR(244):PreProd:CHAR(244):'*CENTER' )\r\n\tend else\r\n\t\tReturnVal = Dialog_Box( 'PROD_SPEC_SI', @WINDOW, SubstrateInfo:CHAR(244):EpiInfo:CHAR(244):AddlInfo:CHAR(244):NewDev:CHAR(244):PreProd:CHAR(244):'*CENTER' )\r\n\tend\r\n\t*/\r\n\t\r\n\tIf ReactorType EQ 'GAN' then\r\n\t\tReturnVal = Start_Window( 'NDW_GAN_PROD_SPEC', @WINDOW, SubstrateInfo:CHAR(244):EpiInfo:CHAR(244):AddlInfo:CHAR(244):NewDev:CHAR(244):PreProd:CHAR(244):'*CENTER' )\r\n\t\t\r\n\tend else\r\n\t\tReturnVal = Dialog_Box( 'PROD_SPEC_SI', @WINDOW, SubstrateInfo:CHAR(244):EpiInfo:CHAR(244):AddlInfo:CHAR(244):NewDev:CHAR(244):PreProd:CHAR(244):'*CENTER' )\r\n\t\t\r\n\t\tIF ( ReturnVal <> '' ) AND ( ReturnVal <> 'CANCEL' ) AND ( ReturnVal <> HoldVar ) THEN\r\n\t\t\t\r\n\t IF Security_Check( 'Spec', WRITE$ ) THEN\r\n\t \t\r\n\t\t\t\tCONVERT CHAR(244) TO @FM IN ReturnVal\r\n\t\t\t\t\t\r\n\t\t\t\tSpecialInst = ReturnVal<1,QSSubInstructions$>\r\n\t\t\t\t\r\n\t\t\t\tIF SpecialInst <> HoldSpecialInst\tTHEN SpecInstFlag = TRUE$\r\n\t\t\t\tIF ReturnVal<2> <> EpiInfo \t\t\tTHEN RDSWarnFlag = TRUE$\r\n\t\t\t\t\t\t\r\n\t\t\t\tSet_Property(@WINDOW:'.SPEC_SUBSTRATE','TEXT', ReturnVal)\r\n\t\t\t\tSet_Property(@WINDOW:'.SPEC_EPI','TEXT', ReturnVal)\r\n\t\t\t\tSet_Property(@WINDOW:'.SPEC_ADDL','TEXT', ReturnVal)\r\n\t\t\t\tSet_Property(@WINDOW:'.SPEC_NEW_DEV','TEXT', ReturnVal)\r\n\t\t\t\tSet_Property(@WINDOW:'.SPEC_PRE_PROD','TEXT', ReturnVal)\r\n\t\t\t\t\t\r\n\t\t\t\tSet_Property(@WINDOW,'SAVEWARN',1)\r\n\t\t\t \r\n\t\t\tEND ELSE\r\n\t \t\tSecurity_Err_Msg( 'Spec', WRITE$ )\r\n\t \tEND\r\n\t\tEND\r\n\t\t\r\n\t\t/* Moved to Prod_Spec_Si \"Save\" Click script event handler per Mark Cousten's request. 7/3/18 djs\r\n\t\tIF RDSWarnFlag OR SpecInstFlag THEN\r\n\t\t\r\n\t\t\tOPEN 'DICT.REACT_RUN' TO ReactRunDict ELSE\r\n\t\t\t\tErrMsg('Unable to open DICT.REACT_RUN table.')\r\n\t\t\t\tRETURN\r\n\t\t\tEND\r\n\r\n\t\t\tOPEN 'REACT_RUN' TO ReactRunFile ELSE\r\n\t\t\t\tErrmsg('Unable to open REACT_RUN table.')\r\n\t\t\t\tRETURN\r\n\t\t\tEND\r\n\t\t\t\r\n\t\t\tSearchString = 'PS_NO':@VM:PSNo:@FM\r\n\t\t\t\r\n\t\t\tIF ReactType = 'EPP' THEN\r\n\t\t\t\tSearchString := 'RUN_STATUS':@VM:'SPEC':@VM:'TLOAD':@VM:'RLOAD':@VM:'ULMET':@FM\r\n\t\t\tEND ELSE\r\n\t\t\t\tSearchString := 'RUN_STATUS':@VM:'RDY':@VM:'SPEC':@VM:'SRFSPC':@VM\r\n\t\t\t\tSearchString := 'PREC':@VM:'PREI':@VM:'PRES':@VM:'RLOAD':@VM\r\n\t\t\t\tSearchString := 'WFRC':@VM:'WFRI':@VM:'WFRS':@VM\r\n\t\t\t\tSearchString := 'PSTC':@VM:'PSTI':@VM:'PSTS':@VM:'RFQ':@FM\r\n\t\t\t\t\r\n\t\t\tEND\r\n\t\t\tOption = ''\r\n\t\t\tFlag = ''\r\n\t\t\t\r\n\t\t\t\r\n\t\t\t*IF @USERNAME = 'BRYCE_BARB' THEN DEBUG\r\n\r\n\t\t\tSet_Status(0)\r\n\t\t\t\r\n\t\t\tCursor = Utility('CURSOR','H')\r\n\t\t\t\r\n\t\t\tBtree.Extract(SearchString,'REACT_RUN',ReactRunDict,Keylist,Option,Flag)\r\n\r\n\t\t\tVoid = Utility('CURSOR',Cursor)\r\n\r\n\t\t\tIF Get_Status(errCode) THEN\r\n\t\t\t\tErrmsg(errCode)\r\n\t\t\t\tRETURN\r\n\t\t\tEND\r\n\r\n\t\t\tIF KeyList NE '' THEN\r\n\t\t\t\tIF SpecInstFlag THEN\r\n\t\t\t\t\t\r\n\t\t\t\t\tMsgInfo = ''\r\n\t\t\t\t\tMsgInfo = 'There are active RDS records referencing the special/prove-in instructions on this Prod Spec':CRLF$\r\n\t\t\t\t\tMsgInfo = MsgInfo:'Select from the following list to update the special/prove-in instructions on the RDS records.'\r\n\t\t\t\t\tMsgInfo = '!'\r\n\t\t\t\t\tMsg(@WINDOW,MsgInfo)\r\n\t\t\t\t\t\r\n\t\t\t\t\tCONVERT @VM TO @FM IN Keylist\r\n\t\t\t\t\r\n\t\t\t\t\tMake.List(0, Keylist, ReactRunFile, ReactRunDict)\r\n\r\n\t\t\t\t\tSELECT 'REACT_RUN' BY '#WO_NO':@FM:'CASS_NO' USING 0 ELSE\r\n\t\t\t\t\t\tstatus = Set_FSError()\r\n\t\t\t\t\t\tRETURN\r\n\t\t\t\t\tEND\r\n\t\t\t\t\t\r\n\t\t\t\t\tRDSKeys = Popup(@WINDOW,'','RDS_QUERY_CURSOR')\r\n\t\t\t\t\t\r\n\t\t\t\t\tBoxCnt = COUNT(RDSKeys,@VM) + (RDSKeys NE '')\r\n\t\t\t\t\tFOR BoxNo = 1 TO BoxCnt\r\n\t\t\t\t\t\tRDSNo = RDSKeys<1,BoxNo>\r\n\t\t\t\t\t\tTableName = 'RDS'\r\n\t\t\t\t\t\tTableKey = RDSNo\r\n\t\t\t\t\t\tFieldData = SpecialInst\r\n\t\t\t\t\t\t\r\n\t\t\t\t\t\tobj_Post_Log('Create',TableName:@RM:TableKey:@RM:RDS_SPECIAL_INST$:@RM:FieldData)\t\t;* Update RDS Records\r\n\t\t\t\t\t\t\r\n\t\t\t\t\t\tobj_Post_Log('Create','REACT_RUN':@RM:RDSNo:@RM:REACT_RUN_SPECIAL_INST$:@RM:FieldData)\t;* Update REACT_RUN Records\r\n\t\t\t\t\t\t\r\n\t\t\t\t\t\t\r\n\t\t\t\t\tNEXT BoxNo\r\n\t\t\t\t\t\r\n\t\t\t\tEND ELSE\r\n\t\t\t\t\r\n\t\t\t\t\tMsgInfo = ''\r\n\t\t\t\t\tMsgInfo = 'You have changed Epi information,':CrLf$\r\n\t\t\t\t\tMsgInfo = MsgInfo:' and there are currently RDSs that are alredy ready':CrLf$:'to run or are running. Notify the customer or manufacturing':CrLf$\r\n\t\t\t\t\tMsgInfo = MsgInfo:'based on how you wish to proceed.'\r\n\t\t\t\t\tMsgInfo = '!'\r\n\t\t\t\t\tVoid = msg( '', MsgInfo )\r\n\t\t\t\tEND\r\n\t\t\tEND\r\n\t\tEND\r\n\t*/\r\n\tEND\r\nEND ELSE\r\n Security_Err_Msg( 'Spec', READ$ )\r\nEND\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_JRO.VIEW_QUOTES_FIX.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_JRO.VIEW_QUOTES_FIX.json new file mode 100644 index 0000000..d89d616 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_JRO.VIEW_QUOTES_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, relational_call, rowexists, start_window, msg, Popup, Get_Status\r\ndeclare subroutine security_err_msg, obj_Appwindow, ErrMsg\r\n$insert msg_equates\r\n$insert POPUP_EQUATES\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Quote', Read$ ) then\r\n\tPSN = .prod_spec_id->text\r\n\tif PSN then\r\n\t\tif rowexists( 'PROD_SPEC', PSN ) then\r\n\t\t\tQuoteKeys = XLATE('PROD_SPEC',PSN,'QUOTE_KEYS','X')\r\n\t\t\tIF QuoteKeys = '' THEN\r\n\t\t\t\tErrMsg('No Quotes referring to this PSN on file')\r\n\t\t\t\tRETURN 0\r\n\t\t\tEND\r\n\t\t\tIF INDEX(QuoteKeys,@VM,1) THEN\r\n\t\t\t\tTypeOver = ''\r\n\t\t\t\tTypeOver = 'K'\r\n\t\t\t\tTypeOver = QuoteKeys\r\n\t\t\t\tQuoteKey = Popup(@WINDOW,TypeOver,'SHOW_QUOTES')\r\n\t\t\t\t\r\n\t\t\tEND ELSE\r\n\t\t\t\tQuoteKey = QuoteKeys\r\n\t\t\tEND\r\n\t\t\t\r\n\t\t\tIF QuoteKey NE '' THEN\r\n\t\t\t \tobj_Appwindow('ViewRelated','QUOTE2':@RM:QuoteKey)\r\n\t\t\tEND\r\n \t\t\r\n\t\tend else\r\n\t\t MsgInfo = ''\r\n\t\t MsgInfo = 'You must save this PSN first...'\r\n\t\t MsgInfo = '!'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t\tend\r\n\tend else\r\n\t MsgRec = ''\r\n\t MsgRec = 'You must retrieve a PSN first...' \r\n\t MsgRec = '!'\r\n\t Void = msg( '', MsgRec ) \r\n\tend\r\nend else\r\n security_err_msg( 'Quote', Read$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_QUERY.PART_NUMS.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_QUERY.PART_NUMS.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_QUERY.PART_NUMS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..f6216e9 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, ex_vm_rem\r\n\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\n\r\nopen 'DICT.PROD_SPEC' to DictProdSpecTable else\r\n Void = msg( '', 'Unable to open DICT.PROD_SPEC...' )\r\n return 0\r\nend\r\n\r\nSearchStr = ''\r\nCustIds\t\t= .customer_info->array<1>\r\nPartNums\t= .part_nums->array\r\nActive\t\t= .active_check->check\r\nInactive\t= .inactive_check->check\r\nHold\t\t= Get_Property(@WINDOW:'.HOLD_CHECK','CHECK')\r\n\r\n*\r\nPreProd = .preprod->check\r\nProd = .prod->check\r\nQual = .qual->check\r\nPreQual = .prequal->check\r\n*\r\nSiGe = .rt_sige->check\r\nEpsilon = .rt_epsilon->check\r\nASMPlus\t= .rt_asm_plus->check\r\nEpiPro = .rt_epipro->check\r\nHTR = .rt_htr->check\r\n*\r\nIf @User4 EQ 'DAN_CR' OR @UserName EQ 'DAN_CR' then debug\r\nCustIds = ex_vm_rem(CustIds)\r\nPartNums = ex_vm_rem(PartNums)\r\nif CustIds then\r\n *SearchStr<-1> = 'CUST_NO_USAGE':@vm:CustIds\r\n SearchStr<-1> = 'PROD_VER_CUST_NO':@vm:CustIds\t\t;* Changed from 'CUST_NO' on 12/18/2014 jch\r\nend\r\nif PartNums then\r\n SearchStr<-1> = 'CUST_PART_NO':@vm:PartNums\r\nend\r\nStatusVar = ''\r\nif Active then\r\n StatusVar<1,-1> = 'A'\r\nend\r\nif Inactive then\r\n StatusVar<1,-1> = 'I'\r\nend\r\n\r\nIF Hold THEN\r\n\tStatusVar<1,-1> = 'H'\r\nEND\r\n\r\nif StatusVar <> '' then\r\n SearchStr<-1> = 'STATUS':@vm:StatusVar\r\nend\r\n*\r\nSpecTypeVar = ''\r\nif PreProd then\r\n SpecTypeVar<1,-1> = 'E'\r\nend\r\nif Prod then\r\n SpecTypeVar<1,-1> = 'P'\r\nend\r\nif Qual then\r\n SpecTypeVar<1,-1> = 'Q'\r\nend\r\nif PreQual then\r\n SpecTypeVar<1,-1> = 'U'\r\nend\r\nif SpecTypeVar <> '' then\r\n SearchStr<-1> = 'SPEC_TYPE':@vm:SpecTypeVar\r\nend\r\n*\r\nRTypeVar = ''\r\n\r\nif SiGe then\tRTypeVar<1,-1> = 'SIG'\r\nif Epsilon then\tRTypeVar<1,-1> = 'ASM'\r\nIF ASMPlus THEN\tRTypeVar<1,-1> = 'ASM+'\r\nif EpiPro then\tRTypeVar<1,-1> = 'EPP'\r\nif HTR then\t\tRTypeVar<1,-1> = 'HTR'\r\n\r\nif RTypeVar <> '' then\r\n\tSearchStr<-1> = 'REACTOR_TYPE':@vm:RTypeVar\r\nend\r\n\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n \r\n * do a btree.extract\r\n\r\n \r\n btree.extract( SearchStr, 'PROD_SPEC', DictProdSpecTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting PROD_SPEC records...' )\r\n return 0\r\n end\r\n \r\n if Keys then\r\n convert @vm to @fm in Keys\r\n * Keys = key_sort( Keys, 'PROD_SPEC', 'CUST_NAME':@fm:'#REV_DATE', 1 )\r\n Keys = key_sort( Keys, 'PROD_SPEC', 'CUST_NAME', 1 )\r\n \r\n end_dialog( @window, Keys )\r\n \r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n \r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_RPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_RPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_RPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_RPT1.RUN.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_RPT1.RUN.json new file mode 100644 index 0000000..d4bc1ec --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_RPT1.RUN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function sched_rpt1, send_event, msg\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n$insert logical\r\n\r\nActive = .active_check->check\r\nInactive = .inactive_check->check\r\nCustIds = .customer_info->array<1>\r\nswap @vm:@vm with '' in CustIds\r\nif CustIds[-1,1] = @vm then CustIds[-1,1] = ''\r\nDirToPrint = .send_to_printer->text\r\n*if ( CustIds <> '' ) then\r\n\tRetVal = CustIds:'*':Active:'*':Inactive:'*':DirToPrint\r\n\tend_dialog( @window, RetVal )\r\n*end else\r\n* MsgInfo = ''\r\n* MsgInfo = 'You must enter data into every field for the report to work properly...'\r\n* MsgInfo = '!'\r\n* Void = msg( '', MsgInfo )\r\n*end\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_SHIP.TR_SRP.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_SHIP.TR_SRP.json new file mode 100644 index 0000000..6d74778 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_SHIP.TR_SRP.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert logical\r\n\r\nif .tr_srp->check = true$ then\r\n .tr_srp_wwafer->visible = true$\r\nend else\r\n .tr_srp_wwafer->check = false$\r\n .tr_srp_wwafer->visible = false$\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_SI.BUTTON_13.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI.BUTTON_13.json new file mode 100644 index 0000000..68951fc --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI.BUTTON_13.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function prod_spec_comm\r\n\r\nVoid = set_property( @window, '@MeasureToSet', 'TRANS_MEASURE' )\r\nVoid = set_property( @window, '@MeasureType', 'TRANS' )\r\nVoid = set_property( @window, '@MeasureDesc', 'Transition' )\r\nVoid = prod_spec_comm( \"SET_MEASURE\" )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_SI.BUTTON_14.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI.BUTTON_14.json new file mode 100644 index 0000000..5546fbd --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI.BUTTON_14.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function prod_spec_comm\r\n\r\nVoid = set_property( @window, '@MeasureToSet', 'STRESS_MEASURE' )\r\nVoid = set_property( @window, '@MeasureType', 'STRESS' )\r\nVoid = set_property( @window, '@MeasureDesc', 'Stress' )\r\nVoid = prod_spec_comm( \"SET_MEASURE\" )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_SI.CANCEL_FIX.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI.CANCEL_FIX.json new file mode 100644 index 0000000..47555b6 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI.CANCEL_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, get_property, set_property, msg, fieldcount, prod_spec_comm\r\ndeclare subroutine end_dialog, create_note\r\n\r\n$insert msg_equates \r\n$insert quote_sigs_equ\r\n\r\nend_dialog( @window, 'CANCEL' )\r\n\r\nRETURN 0\r\n\r\n/*\r\n* NEED TO DO THIS CHECK IN CASE THEY SAVE IT\r\n\r\n\r\nOrigSaveCheckControlData = get_property( @window, '@SaveCheckControlData' )\r\nSaveCheckControls = get_property( @window, '@SaveCheckControls' )\r\nCurSaveCheckControlData = get_property( SaveCheckControls, 'LIST':@rm:'LIST':@rm:'INVALUE' )\r\n\r\n* get substrate information to pass back to quote window\r\n\r\nControls = get_property( @window, '@SubControls' )\r\nSubstrateInfo = get_property( Controls, 'INVALUE' )\r\nconvert @rm to @vm in SubstrateInfo\r\nOrigSubstrateInfo = get_property( @window, '@OrigSubstrateInfo' )\r\n*\r\nMsgInfo = ''\r\nswap char(13):char(10) with @tm in OrigSubstrateInfo\r\nif SubStrateInfo <> OrigSubstrateInfo then\r\n MsgInfo = 'You have changed substrate information'\r\nend\r\n*\r\nControls = get_property( @window, '@AddlControls' )\r\nAddlInfo = get_property( Controls, 'INVALUE' )\r\nconvert @rm to @vm in AddlInfo\r\nOrigAddlInfo = get_property( @window, '@OrigAddlInfo' )\r\nswap char(13):char(10) with @tm in OrigAddlInfo\r\nif AddlInfo <> OrigAddlInfo then\r\n if MsgInfo then\r\n Ttext = ' and other production information.'\r\n end else\r\n Ttext = 'You have changed other production information.'\r\n end\r\n MsgInfo = MsgInfo:Ttext\r\nend\r\n*\r\nControls = get_property( @window, '@NDControls' )\r\nNDInfo = get_property( Controls, 'INVALUE' )\r\nconvert @rm to @vm in NDInfo\r\nOrigNDInfo = get_property( @window, '@OrigNDInfo' )\r\nswap char(13):char(10) with @tm in OrigNDInfo\r\nif NDInfo <> OrigNDInfo then\r\n if MsgInfo then\r\n Ttext = ' and new development information.'\r\n end else\r\n Ttext = 'You have changed new development information.'\r\n end\r\n MsgInfo = MsgInfo:Ttext\r\nend\r\n*\r\nControls = get_property( @window, '@PPControls' )\r\nPPInfo = get_property( Controls, 'INVALUE' )\r\nconvert @rm to @vm in PPInfo\r\nOrigPPInfo = get_property( @window, '@OrigPPInfo' )\r\nswap char(13):char(10) with @tm in OrigPPInfo\r\nif PPInfo <> OrigPPInfo then\r\n if MsgInfo then\r\n Ttext = ' and pre-production information.'\r\n end else\r\n Ttext = 'You have changed pre-production information.'\r\n end\r\n MsgInfo = MsgInfo:Ttext\r\nend\r\n*\r\n* check to see if epi info has changed first save current layer to common\r\n* and then compare with original common\r\nEpiPromptCnt = get_property( @window, '@EpiPromptCnt' )\r\nEpiControls = get_property( @window, '@EpiControls' )\r\nEpiDataOnWindow = get_property( EpiControls, 'LIST':@rm:'LIST':@rm:'INVALUE' )\r\nconvert @rm to @vm in EpiDataOnWindow\r\nCurSepLayerNo = get_property( @window, '@CurSepLayer' )\r\nAllSepLayers = get_property( @window, '@EpiInfo' )\r\nCurLayerData = field( AllSepLayers, char(247), CurSepLayerNo )\r\nif EpiDataOnWindow = @fm:@vm:@fm:str( @vm, EpiPromptCnt-2 ) then\r\n * epi prompts blank do not save to common and delete blank seperate layer\r\n AllSepLayers = fieldstore( AllSepLayers, char(247), 1, 1, char(243):'' )\r\n Acnt = fieldcount( AllSepLayers, char(247) )\r\n if CurSepLayerNo = Acnt then\r\n swap char(247):char(243) with '' in AllSepLayers\r\n end else\r\n swap char(243):char(247) with '' in AllSepLayers\r\n end\r\n convert char(243) to '' in AllSepLayers\r\n Void = set_property( @window, '@EpiInfo', AllSepLayers )\r\nend else\r\n\tCurLayerData = fieldstore( CurLayerData, char(248), 1, 1, EpiDataOnWindow )\r\n\tAllSepLayers = fieldstore( AllSepLayers, char(247), CurSepLayerNo, 1, CurlayerData )\r\n\tVoid = set_property( @window, '@EpiInfo', AllSepLayers )\r\nend\r\nOrigEpiData = get_property( @window, '@OrigEpiInfo' )\r\nEpiData = get_property( @window, '@EpiInfo' )\r\nif EpiData = '' then\r\n EpiData = @fm:@rm:@fm\r\nend\r\n\r\nif EpiData <> OrigEpiData then\r\n if MsgInfo then\r\n Ttext = ' and EPI information.'\r\n end else\r\n Ttext = 'You have changed EPI information.'\r\n end\r\n MsgInfo = MsgInfo:Ttext\r\nend\r\nif MsgInfo then\r\n\tMsgInfo = MsgInfo:' Do you wish to save?'\r\n\tMsgInfo = 'BNYC'\r\n\tMsgInfo = '?'\r\n\tResponse = msg( '', MsgInfo )\r\n\tif Response = 1 then \r\n\t Product = .sub_products->text\r\n\t if Product <> '' then\r\n\t CurProducts = xlate( 'LISTBOX_CONFIG', 'PRODUCTS', '', 'X' )\r\n\t locate Product in CurProducts using @vm setting Ppos else\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'Product ':quote(Product):' is not valid.'\r\n\t MsgInfo = 'H'\r\n\t Void = msg( '', MsgInfo )\r\n\t return 0\r\n\t end\r\n\t end else\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'You must select a product.'\r\n\t MsgInfo = 'H'\r\n\t Void = msg( '', MsgInfo )\r\n\t return 0\r\n\t end\r\n\t * VALIDATE THE DOPANTS\r\n\t Void = set_property( @window, '@LayerOn', 1 )\r\n\t Valid = prod_spec_comm( \"VALIDATE_DOPANT\" )\r\n\t if Valid else\r\n\t return 0\r\n\t end\r\n Valid = prod_spec_comm( \"VALIDATE_MINMAX\" )\r\n if Valid else\r\n return 0\r\n end\r\n Valid = prod_spec_comm( \"AKRION_RECIPE_CHECK\" )\r\n if Valid else\r\n return 0\r\n end \r\n\t convert @fm to @svm in EpiData ;* for conc mess\r\n\t ValToReturn = SubStrateInfo:char(244):EpiData:char(244):AddlInfo:char(244):NDInfo:char(244):PPInfo\r\n\t end_dialog( @window, ValToReturn )\r\n\tend else\r\n\t if Response = 0 then\r\n\t end_dialog( @window, 'CANCEL' )\r\n\t end\r\n\tend\r\nend else \r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0\r\n*/" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_SI.SAVE_FIX.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI.SAVE_FIX.json new file mode 100644 index 0000000..887caf1 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI.SAVE_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE SUBROUTINE End_Dialog, Security_Check, Msg, Obj_Post_Log, ErrMsg, Security_Err_Msg, Set_Status, Btree.Extract, Make.List, Set_FSError\r\nDECLARE FUNCTION Comm_Prod_Spec_SI, Popup, Security_Check, ErrMsg, Set_Status, Btree.Extract, Get_Status, Set_FSError, Msg, Database_Services\r\n\r\n$INSERT PROD_SPEC_EQUATES\r\n$INSERT MSG_EQUATES\r\n$INSERT SECURITY_RIGHTS_EQU\r\n$INSERT QUOTE_SPEC_EQU\r\n$INSERT LOGICAL\r\n$INSERT POPUP_EQUATES\r\n$INSERT RDS_EQU\r\n$INSERT REACT_RUN_EQUATES\r\n\r\nEQU CRLF$ TO CHAR(13):CHAR(10)\r\n\r\nEQU SUB_INFO$\tTO 1\r\nEQU EPI_INFO$\tTO 2\r\nEQU ADDL_INFO$\tTO 3\r\nEQU NEW_DEV$\tTO 4\r\nEQU PRE_PROD$\tTO 5\r\n\t\t\t\t\r\nRDSWarnFlag\t\t= FALSE$\r\nSpecInstFlag\t= FALSE$\r\n\r\nResults = Comm_Prod_Spec_SI('Save','')\r\n\r\nIF Results NE '' THEN\r\n\r\n\t\tReturnVal = Results\r\n\t\tHoldVar = Get_Property(@WINDOW, '@HOLDVAR')\r\n\t\r\n\t\tIF ( ReturnVal <> '' ) AND ( ReturnVal <> 'CANCEL' ) AND ( ReturnVal <> HoldVar ) THEN\r\n\t\r\n \tIF Security_Check( 'Spec', WRITE$ ) THEN\r\n \t\r\n\t\t\t\tCONVERT CHAR(244) TO @FM IN ReturnVal\r\n\t\t\t\t\r\n\t\t\t\tSpecialInst = ReturnVal<1,QSSubInstructions$>\r\n\t\t\t\tSubstrateInfo = field( HoldVar, char(244), 1 )\r\n\t\t\t\tEpiInfo = field( HoldVar, char(244), 2 )\r\n\t\t\t\tAddlInfo = field( HoldVar, char(244), 3 )\r\n\t\t\t\tNDInfo = field( HoldVar, char(244), 4 )\r\n\t\t\t\tPPInfo = field( HoldVar, char(244), 5 )\r\n\t\t\t\tHoldSpecialInst\t= SubstrateInfo<1,QSSubInstructions$>\r\n\t\t\t\tIF SpecialInst <> HoldSpecialInst\tTHEN SpecInstFlag = TRUE$\r\n\t\t\t\tIF ReturnVal<2> <> EpiInfo \t\t\tTHEN RDSWarnFlag = TRUE$\r\n\t\t\t\t\t\r\n\t\t\t\t*Set_Property(@WINDOW:'.SPEC_SUBSTRATE','TEXT', ReturnVal)\r\n\t\t\t\t*Set_Property(@WINDOW:'.SPEC_EPI','TEXT', ReturnVal)\r\n\t\t\t\t*Set_Property(@WINDOW:'.SPEC_ADDL','TEXT', ReturnVal)\r\n\t\t\t\t*Set_Property(@WINDOW:'.SPEC_NEW_DEV','TEXT', ReturnVal)\r\n\t\t\t\t*Set_Property(@WINDOW:'.SPEC_PRE_PROD','TEXT', ReturnVal)\r\n\t\t\t\t\r\n\t\t\t\t*Set_Property(@WINDOW,'SAVEWARN',1)\r\n\t\t \r\n\t\t END ELSE\r\n \t\t Security_Err_Msg( 'Spec', WRITE$ )\r\n \t\tEND\r\n\t\tEND\r\n\t\t\t\r\n\t\tIF RDSWarnFlag OR SpecInstFlag THEN\r\n\t\t\r\n\t\t\tOPEN 'DICT.REACT_RUN' TO ReactRunDict ELSE\r\n\t\t\t\tErrMsg('Unable to open DICT.REACT_RUN table.')\r\n\t\t\t\tRETURN\r\n\t\t\tEND\r\n\r\n\t\t\tOPEN 'REACT_RUN' TO ReactRunFile ELSE\r\n\t\t\t\tErrmsg('Unable to open REACT_RUN table.')\r\n\t\t\t\tRETURN\r\n\t\t\tEND\r\n\t\t\t\r\n\t\t\tPSNo = Get_Property('PROD_SPEC', '@PSNo')\r\n\t\t\tPSRec = Database_Services('ReadDataRow', 'PROD_SPEC', PSNo)\r\n\t\t\tReactType = PSRec\r\n\t\t\tSearchString = 'PS_NO':@VM:PSNo:@FM\r\n\t\t\t\r\n\t\t\tIF ReactType = 'EPP' THEN\r\n\t\t\t\tSearchString := 'RUN_STATUS':@VM:'SPEC':@VM:'TLOAD':@VM:'RLOAD':@VM:'ULMET':@FM\r\n\t\t\tEND ELSE\r\n\t\t\t\tSearchString := 'RUN_STATUS':@VM:'RDY':@VM:'SPEC':@VM:'SRFSPC':@VM\r\n\t\t\t\tSearchString := 'PREC':@VM:'PREI':@VM:'PRES':@VM:'RLOAD':@VM\r\n\t\t\t\tSearchString := 'WFRC':@VM:'WFRI':@VM:'WFRS':@VM\r\n\t\t\t\tSearchString := 'PSTC':@VM:'PSTI':@VM:'PSTS':@VM:'RFQ':@FM\r\n\t\t\t\t\r\n\t\t\tEND\r\n\t\t\tOption = ''\r\n\t\t\tFlag = ''\r\n\t\t\t\r\n\t\t\t\r\n\t\t\t*IF @USERNAME = 'BRYCE_BARB' THEN DEBUG\r\n\r\n\t\t\tSet_Status(0)\r\n\t\t\t\r\n\t\t\tCursor = Utility('CURSOR','H')\r\n\t\t\t\r\n\t\t\tBtree.Extract(SearchString,'REACT_RUN',ReactRunDict,Keylist,Option,Flag)\r\n\r\n\t\t\tVoid = Utility('CURSOR',Cursor)\r\n\r\n\t\t\tIF Get_Status(errCode) THEN\r\n\t\t\t\tErrmsg(errCode)\r\n\t\t\t\tRETURN\r\n\t\t\tEND\r\n\r\n\t\t\tIF KeyList NE '' THEN\r\n\t\t\t\tIF SpecInstFlag THEN\r\n\t\t\t\t\t\r\n\t\t\t\t\tMsgInfo = ''\r\n\t\t\t\t\tMsgInfo = 'There are active RDS records referencing the special/prove-in instructions on this Prod Spec':CRLF$\r\n\t\t\t\t\tMsgInfo = MsgInfo:'Select from the following list to update the special/prove-in instructions on the RDS records.'\r\n\t\t\t\t\tMsgInfo = '!'\r\n\t\t\t\t\tMsg(@WINDOW,MsgInfo)\r\n\t\t\t\t\t\r\n\t\t\t\t\tCONVERT @VM TO @FM IN Keylist\r\n\t\t\t\t\r\n\t\t\t\t\tMake.List(0, Keylist, ReactRunFile, ReactRunDict)\r\n\r\n\t\t\t\t\tSELECT 'REACT_RUN' BY '#WO_NO':@FM:'CASS_NO' USING 0 ELSE\r\n\t\t\t\t\t\tstatus = Set_FSError()\r\n\t\t\t\t\t\tRETURN\r\n\t\t\t\t\tEND\r\n\t\t\t\t\t\r\n\t\t\t\t\tRDSKeys = Popup(@WINDOW,'','RDS_QUERY_CURSOR')\r\n\t\t\t\t\t\r\n\t\t\t\t\tBoxCnt = COUNT(RDSKeys,@VM) + (RDSKeys NE '')\r\n\t\t\t\t\tFOR BoxNo = 1 TO BoxCnt\r\n\t\t\t\t\t\tRDSNo = RDSKeys<1,BoxNo>\r\n\t\t\t\t\t\tTableName = 'RDS'\r\n\t\t\t\t\t\tTableKey = RDSNo\r\n\t\t\t\t\t\tFieldData = SpecialInst\r\n\t\t\t\t\t\t\r\n\t\t\t\t\t\tobj_Post_Log('Create',TableName:@RM:TableKey:@RM:RDS_SPECIAL_INST$:@RM:FieldData)\t\t;* Update RDS Records\r\n\t\t\t\t\t\t\r\n\t\t\t\t\t\tobj_Post_Log('Create','REACT_RUN':@RM:RDSNo:@RM:REACT_RUN_SPECIAL_INST$:@RM:FieldData)\t;* Update REACT_RUN Records\r\n\t\t\t\t\t\t\r\n\t\t\t\t\t\t\r\n\t\t\t\t\tNEXT BoxNo\r\n\t\t\t\t\t\r\n\t\t\t\tEND ELSE\r\n\t\t\t\t\r\n\t\t\t\t\tMsgInfo = ''\r\n\t\t\t\t\tMsgInfo = 'You have changed Epi information,':CrLf$\r\n\t\t\t\t\tMsgInfo = MsgInfo:' and there are currently RDSs that are alredy ready':CrLf$:'to run or are running. Notify the customer or manufacturing':CrLf$\r\n\t\t\t\t\tMsgInfo = MsgInfo:'based on how you wish to proceed.'\r\n\t\t\t\t\tMsgInfo = '!'\r\n\t\t\t\t\tVoid = msg( '', MsgInfo )\r\n\t\t\t\tEND\r\n\t\t\tEND\r\n\r\n\tEnd_Dialog(@WINDOW,Results)\r\nEND ELSE\r\n\t\r\n\tEnd_Dialog(@WINDOW,Results)\r\n\t\r\nEND\r\n\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_SI.SPEC_NEXT_FIX.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI.SPEC_NEXT_FIX.json new file mode 100644 index 0000000..9b35687 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI.SPEC_NEXT_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event, send_event\r\ndeclare subroutine yield\r\n\r\n*Vpos = get_property( @window, 'VPOSITION', 1 )\r\n*CurPage = Vpos<1>\r\nVoid = send_event( @window:'.CANCEL_FIX', 'CLICK' )\r\nVoid = send_event( 'PROD_SPEC', 'QBFNEXT' )\r\nVoid = send_event( 'PROD_SPEC.SPEC_BUTTON_FIX', 'CLICK' )\r\n*if CurPage = 2 then\r\n* Void = post_event( @window, 'PAGE', 2 )\r\n* yield()\r\n* yield()\r\n* Vpos<1> = 2\r\n* Void = set_property( 'PROD_SPEC_SI', 'VPOSITION', Vpos )\r\n*end\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_SI.SPEC_PREV_FIX.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI.SPEC_PREV_FIX.json new file mode 100644 index 0000000..4de52c7 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI.SPEC_PREV_FIX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event, send_event\r\ndeclare subroutine yield\r\n\r\n*Vpos = get_property( @window, 'VPOSITION', 1 )\r\n*CurPage = Vpos<1>\r\nVoid = send_event( @window:'.CANCEL_FIX', 'CLICK' )\r\nVoid = send_event( 'PROD_SPEC', 'QBFPREV' )\r\nVoid = send_event( 'PROD_SPEC.SPEC_BUTTON_FIX', 'CLICK' )\r\n*if CurPage = 2 then\r\n *Void = post_event( @window, 'PAGE', 2 )\r\n *Void = post_event( @window:'.SUB_INSTRUCTIONS', 'GOTFOCUS', '' ) \r\n *Void = set_property( @window:'.SUB_INSTRUCTIONS', \"FOCUS\", 1) \r\n* Vpos<1> = 2\r\n* Void = set_property( 'PROD_SPEC_SI', 'VPOSITION', Vpos )\r\n*end\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_SI2.BUTTON_10.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI2.BUTTON_10.json new file mode 100644 index 0000000..5fa657f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI2.BUTTON_10.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function prod_spec_comm\r\n\r\nVoid = set_property( @window, '@MeasureToSet', 'EPI_RESMEASURE' )\r\nVoid = set_property( @window, '@MeasureType', 'RES' )\r\nVoid = set_property( @window, '@MeasureDesc', 'Resistivity' )\r\nVoid = prod_spec_comm( \"SET_MEASURE\" )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_SI2.BUTTON_11B.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI2.BUTTON_11B.json new file mode 100644 index 0000000..d097671 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI2.BUTTON_11B.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function prod_spec_comm\r\n\r\nVoid = set_property( @window, '@MeasureToSet', 'EPI_CONMEASURE' )\r\nVoid = set_property( @window, '@MeasureType', 'CON' )\r\nVoid = set_property( @window, '@MeasureDesc', 'Concentration' )\r\nVoid = prod_spec_comm( \"SET_MEASURE\" )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_SI2.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI2.CANCEL_BUTTON.json new file mode 100644 index 0000000..0666a3c --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI2.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\ndeclare function msg, fieldcount, prod_spec_comm\r\n$insert msg_equates\r\n\r\nEpiPromptCnt = get_property( @window, '@EpiPromptCnt' )\r\nEpiControls = get_property( @window, '@EpiControls' )\r\nEpiDataOnWindow = get_property( EpiControls, 'LIST':@rm:'LIST':@rm:'INVALUE' )\r\nconvert @rm to @vm in EpiDataOnWindow\r\nCurSameLayerNo = get_property( @window, '@CurSameLayer' )\r\nAllSameLayers = get_property( @window, '@EpiInfo' )\r\nif EpiDataOnWindow = @fm:@vm:@fm:str( @vm, EpiPromptCnt-2 ) then\r\n * do not store and delete blank layer\r\n AllSameLayers = fieldstore( AllSameLayers, char(248), CurSameLayerNo, 1, char(243):'' )\r\n Acnt = fieldcount( AllSameLayers, char(248))\r\n if CurSameLayerNo = Acnt then\r\n swap char(248):char(243) with '' in AllSameLayers\r\n end else\r\n swap char(243):char(248) with '' in AllSameLayers\r\n end\r\n convert char(243) to '' in AllSameLayers \r\n Void = set_property( @window, '@EpiInfo', AllSameLayers )\r\nend else\r\n\tAllSameLayers = fieldstore( AllSameLayers, char(248), CurSameLayerNo, 1, EpiDataOnWindow )\r\n\tVoid = set_property( @window, '@EpiInfo', AllSameLayers )\r\nend\r\n*\r\nOrigEpiData = get_property( @window, '@OrigEpiInfo' )\r\nEpiData = get_property( @window, '@EpiInfo' )\r\nif EpiData = '' then\r\n EpiData = @fm:@rm:@fm\r\nend\r\nif EpiData <> OrigEpiData then\r\n MsgInfo = ''\r\n MsgInfo = 'You have changed EPI information. Do you wish to save?'\r\n\tMsgInfo = 'BNYC'\r\n\tMsgInfo = '?'\r\n\tResponse = msg( '', MsgInfo )\r\n\tif Response = 1 then\r\n\t * VALIDATE THE DOPANTS\r\n\t Void = set_property( @window, '@LayerOn', get_property( @window, '@CurSameLayer' ) + 1 )\r\n\t Valid = prod_spec_comm( \"VALIDATE_DOPANT\" )\r\n if Valid else\r\n return 0\r\n end\r\n Valid = prod_spec_comm( \"VALIDATE_MINMAX\" )\r\n if Valid else\r\n return 0\r\n end\r\n\t convert @fm to @svm in EpiData ;* for conc mess\r\n\t end_dialog( @window, EpiData )\r\n\tend else\r\n\t if Response = 0 then\r\n\t end_dialog( @window, 'CANCEL' )\r\n\t end\r\n\tend\r\nend else \r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_SI2.DEL_BUTTON.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI2.DEL_BUTTON.json new file mode 100644 index 0000000..5a5641d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI2.DEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, msg\r\n$insert msg_equates\r\n$insert logical\r\nequate CrLf$ to char(13):char(10)\r\n\r\nEpiPromptCnt = get_property( @window, '@EpiPromptCnt' )\r\nEpiControls = get_property( @window, '@EpiControls' )\r\nCurSameLayerNo = get_property( @window, '@CurSameLayer' )\r\nAllSameLayers = get_property( @window, '@EpiInfo' )\r\nAllSameLayers = fieldstore( AllSameLayers, char(248), CurSameLayerNo, 1, char(243):'' )\r\nAcnt = fieldcount( AllSameLayers, char(248))\r\nif CurSameLayerNo = Acnt then\r\n swap char(248):char(243) with '' in AllSameLayers\r\nend else\r\n swap char(243):char(248) with '' in AllSameLayers\r\nend\r\nconvert char(243) to '' in AllSameLayers ;* if only one and they delete\r\n* the char 243 is left hanging\r\nVoid = set_property( @window, '@EpiInfo', AllSameLayers )\r\n* now display the next same reactor layer\r\nNextLayerData = field( AllSameLayers, char(248), CurSameLayerNo )\r\n*\r\nValueCnt = fieldcount( NextLayerData, @vm )\r\n* so set_property does not propagate\r\nif ValueCnt < EpiPromptCnt then\r\n NextLayerData := str( @vm, EpiPromptCnt-ValueCnt-1 )\r\nend\r\n* ok\r\nNewLayer = false$\r\nif NextLayerData = str( @vm, EpiPromptCnt-1 ) then\r\n * add the @fms for the conc\r\n NextLayerData<1,1> = @fm\r\n NextLayerData<2,2> = @fm\r\n NewLayer = true$\r\nend\r\nconvert @vm to @rm in NextLayerData\r\nVoid = set_property( EpiControls, 'LIST':@rm:'LIST':@rm:'INVALUE', NextLayerData )\r\n.epi_conc_min_thick->selpos = 1:@fm:1\r\n.epi_conc_max_thick->selpos = 1:@fm:1\t\r\nNumLayers = fieldcount( AllSameLayers, char(248) ) \r\nButText = .same_reactor_button->text\r\nconvert '123456789' to '' in ButText\r\nButText = trim( ButText )\r\nButText := ' ':CurSameLayerNo\r\n.same_reactor_button->text = ButText\r\n.same_reactor_layer_desc->text = CurSameLayerNo:' of ':NumLayers+NewLayer\r\n* void = post_event( @window:'.EPI_MIN_THICK', 'GOTFOCUS', '' )\r\n* would need the above line if epi_min_thick had gotfocus event\r\nvoid = set_property( @window:'.EPI_MIN_THICK', 'FOCUS', 1 ) \r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_SI2.EPI_CONC_MAX_THICK.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI2.EPI_CONC_MAX_THICK.json new file mode 100644 index 0000000..5530b73 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI2.EPI_CONC_MAX_THICK.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_SI2.EPI_CONC_MIN_THICK.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI2.EPI_CONC_MIN_THICK.json new file mode 100644 index 0000000..5530b73 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI2.EPI_CONC_MIN_THICK.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_SI2.INS_BUTTON.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI2.INS_BUTTON.json new file mode 100644 index 0000000..3fa86d1 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI2.INS_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, msg\r\n$insert msg_equates\r\n$insert logical\r\n\r\nEpiPromptCnt = get_property( @window, '@EpiPromptCnt' )\r\nEpiControls = get_property( @window, '@EpiControls' )\r\nEpiDataOnWindow = get_property( EpiControls, 'LIST':@rm:'LIST':@rm:'INVALUE' )\r\nconvert @rm to @vm in EpiDataOnWindow\r\nif EpiDataOnWindow = @fm:@vm:@fm:str( @vm, EpiPromptCnt-2 ) then\r\n MsgInfo = ''\r\n MsgInfo = 'You cannot have a blank same reactor layer...'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend else\r\n\tCurSameLayerNo = get_property( @window, '@CurSameLayer' )\r\n\tAllSameLayers = get_property( @window, '@EpiInfo' )\r\n\tAllSameLayers = fieldstore( AllSameLayers, char(248), CurSameLayerNo, 1, char(243):EpiDataOnWindow )\r\n\tconvert char(243) to char(248) in AllSameLayers\r\n\tVoid = set_property( @window, '@EpiInfo', AllSameLayers )\r\n\t* now display the next same reactor layer\r\n\tNewLayerData = field( AllSameLayers, char(248), CurSameLayerNo )\r\n\t*\r\n\tValueCnt = fieldcount( NewLayerData, @vm )\r\n\t* so set_property does not propagate\r\n\tif ValueCnt < EpiPromptCnt then\r\n\t NewLayerData := str( @vm, EpiPromptCnt-ValueCnt-1 )\r\n\tend\r\n\t* ok\r\n\tif NewLayerData = str( @vm, EpiPromptCnt-1 ) then\r\n\t * add the @fms for the conc\r\n\t NewLayerData<1,1> = @fm\r\n\t NewLayerData<2,2> = @fm\r\n\tend\r\n\tconvert @vm to @rm in NewLayerData\r\n\tVoid = set_property( EpiControls, 'LIST':@rm:'LIST':@rm:'INVALUE', NewLayerData )\r\n\t.epi_conc_min_thick->selpos = 1:@fm:1\r\n\t.epi_conc_max_thick->selpos = 1:@fm:1\t\r\n\tNumLayers = fieldcount( AllSameLayers, char(248) ) \r\n ButText = .same_reactor_button->text\r\n convert '123456789' to '' in ButText\r\n ButText = trim( ButText )\r\n ButText := ' ':CurSameLayerNo\r\n .same_reactor_button->text = ButText\r\n .same_reactor_layer_desc->text = CurSameLayerNo:' of ':NumLayers\r\n* void = post_event( @window:'.EPI_MIN_THICK', 'GOTFOCUS', '' )\r\n* would need the above line if epi_min_thick had gotfocus event\r\n void = set_property( @window:'.EPI_MIN_THICK', 'FOCUS', 1 ) \r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_SI2.NEXT_LAYER_BUTTON.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI2.NEXT_LAYER_BUTTON.json new file mode 100644 index 0000000..239c3e4 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI2.NEXT_LAYER_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, msg, prod_spec_comm\r\n$insert msg_equates\r\n$insert logical\r\n\r\n* VALIDATE THE DOPANTS\r\nVoid = set_property( @window, '@LayerOn', get_property( @window, '@CurSameLayer' ) + 1 )\r\nValid = prod_spec_comm( \"VALIDATE_DOPANT\" )\r\nif Valid else\r\n return 0\r\nend\r\n\r\nEpiPromptCnt = get_property( @window, '@EpiPromptCnt' )\r\nEpiControls = get_property( @window, '@EpiControls' )\r\nEpiDataOnWindow = get_property( EpiControls, 'LIST':@rm:'LIST':@rm:'INVALUE' )\r\nconvert @rm to @vm in EpiDataOnWindow\r\nif EpiDataOnWindow = @fm:@vm:@fm:str( @vm, EpiPromptCnt-2 ) then\r\n MsgInfo = ''\r\n MsgInfo = 'You cannot have a blank same reactor layer...'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend else\r\n\tCurSameLayerNo = get_property( @window, '@CurSameLayer' )\r\n\tAllSameLayers = get_property( @window, '@EpiInfo' )\r\n\tAllSameLayers = fieldstore( AllSameLayers, char(248), CurSameLayerNo, 1, EpiDataOnWindow )\r\n\tVoid = set_property( @window, '@EpiInfo', AllSameLayers )\r\n\tCurSameLayerNo += 1\r\n\tVoid = set_property( @window, '@CurSameLayer', CurSameLayerNo )\r\n\t* now display the next same reactor layer\r\n\tNextLayerData = field( AllSameLayers, char(248), CurSameLayerNo )\r\n\t*\r\n\tValueCnt = fieldcount( NextLayerData, @vm )\r\n\t* so set_property does not propagate\r\n\tif ValueCnt < EpiPromptCnt then\r\n\t NextLayerData := str( @vm, EpiPromptCnt-ValueCnt-1 )\r\n\tend\r\n\t* ok\r\n\tNewLayer = false$\r\n\tif NextLayerData = str( @vm, EpiPromptCnt-1 ) then\r\n\t * add the @fms for the conc\r\n\t NextLayerData<1,1> = @fm\r\n\t NextLayerData<2,2> = @fm\r\n\t NewLayer = true$\r\n\tend\r\n\tconvert @vm to @rm in NextLayerData\r\n\tVoid = set_property( EpiControls, 'LIST':@rm:'LIST':@rm:'INVALUE', NextLayerData )\r\n\t.epi_conc_min_thick->selpos = 1:@fm:1\r\n\t.epi_conc_max_thick->selpos = 1:@fm:1\t\r\n\tNumLayers = fieldcount( AllSameLayers, char(248) ) + NewLayer\r\n ButText = .same_reactor_button->text\r\n convert '123456789' to '' in ButText\r\n ButText = trim( ButText )\r\n ButText := ' ':CurSameLayerNo\r\n .same_reactor_button->text = ButText\r\n .same_reactor_layer_desc->text = CurSameLayerNo:' of ':NumLayers\r\n* void = post_event( @window:'.EPI_MIN_THICK', 'GOTFOCUS', '' )\r\n* would need the above line if epi_min_thick had gotfocus event\r\n void = set_property( @window:'.EPI_MIN_THICK', 'FOCUS', 1 ) \r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_SI2.PREV_LAYER_BUTTON.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI2.PREV_LAYER_BUTTON.json new file mode 100644 index 0000000..cdfe412 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI2.PREV_LAYER_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, msg, prod_spec_comm\r\n$insert msg_equates\r\n\r\n* VALIDATE THE DOPANTS\r\nVoid = set_property( @window, '@LayerOn', get_property( @window, '@CurSameLayer' ) + 1 )\r\nValid = prod_spec_comm( \"VALIDATE_DOPANT\" )\r\nif Valid else\r\n return 0\r\nend\r\n\r\nCurSameLayerNo = get_property( @window, '@CurSameLayer' )\r\nif CurSameLayerNo = 1 then\r\n MsgInfo = ''\r\n MsgInfo = 'You are on the first same reactor layer...'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend else\r\n\tEpiPromptCnt = get_property( @window, '@EpiPromptCnt' )\r\n\tEpiControls = get_property( @window, '@EpiControls' )\r\n\tEpiDataOnWindow = get_property( EpiControls, 'LIST':@rm:'LIST':@rm:'INVALUE' )\r\n\tAllSameLayers = get_property( @window, '@EpiInfo' )\r\n\tconvert @rm to @vm in EpiDataOnWindow\r\n\tif ( EpiDataOnWindow = @fm:@vm:@fm:str( @vm, EpiPromptCnt-2 ) ) and ( CurSameLayerNo < fieldcount( AllSameLayers, char(248) ) ) then\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'You cannot have a blank same reactor layer...'\r\n\t MsgInfo = 'H'\r\n\t Void = msg( '', MsgInfo )\r\n\t return 0\r\n\tend else\r\n\t\tif EpiDataOnWindow = @fm:@vm:@fm:str( @vm, EpiPromptCnt-2 ) then\r\n\t\t * null do not save\r\n\t\tend else\r\n \t\t* there is epi info for this layer save to common\r\n\t\t AllSameLayers = fieldstore( AllSameLayers, char(248), CurSameLayerNo, 1, EpiDataOnWindow )\r\n\t\t Void = set_property( @window, '@EpiInfo', AllSameLayers )\r\n end\t\t \r\n\t\tCurSameLayerNo -= 1\r\n\t\tVoid = set_property( @window, '@CurSameLayer', CurSameLayerNo )\r\n\t\t* now display the previous same reactor layer\r\n\t\tPrevLayerData = field( AllSameLayers, char(248), CurSameLayerNo )\r\n\t\t*\r\n\t\tValueCnt = fieldcount( PrevLayerData, @vm )\r\n\t\t* so set_property does not propagate\r\n\t\tif ValueCnt < EpiPromptCnt then\r\n\t\t PrevLayerData := str( @vm, EpiPromptCnt-ValueCnt-1 )\r\n\t\tend\r\n\t\t* ok\r\n\t\tconvert @vm to @rm in PrevLayerData\r\n\t\tVoid = set_property( EpiControls, 'LIST':@rm:'LIST':@rm:'INVALUE', PrevLayerData )\r\n\t\t.epi_conc_min_thick->selpos = 1:@fm:1\r\n\t\t.epi_conc_max_thick->selpos = 1:@fm:1\r\n\t\tNumLayers = fieldcount( AllSameLayers, char(248) )\r\n\t ButText = .same_reactor_button->text\r\n\t convert '123456789' to '' in ButText\r\n\t ButText = trim( ButText ) \r\n\t ButText := ' ':CurSameLayerNo\r\n\t .same_reactor_button->text = ButText\r\n\t .same_reactor_layer_desc->text = CurSameLayerNo:' of ':NumLayers\r\n\t * void = post_event( @window:'.EPI_MIN_THICK', 'GOTFOCUS', '' )\r\n * would need the above line if epi_min_thick had gotfocus event\r\n void = set_property( @window:'.EPI_MIN_THICK', 'FOCUS', 1 ) \r\n\tend\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_SI2.PSN_VIEW.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI2.PSN_VIEW.json new file mode 100644 index 0000000..f1ad39d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI2.PSN_VIEW.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function prod_spec_comm\r\n\r\nVoid = set_property( @window, '@MeasureToSet', 'EPI_THICKMEASURE' )\r\nVoid = set_property( @window, '@MeasureType', 'THICK' )\r\nVoid = set_property( @window, '@MeasureDesc', 'Thickness' )\r\nVoid = prod_spec_comm( \"SET_MEASURE\" )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_SI2.SAVE_BUTTON.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI2.SAVE_BUTTON.json new file mode 100644 index 0000000..de32853 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI2.SAVE_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, set_property, msg, prod_spec_comm\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\n* VALIDATE THE DOPANTS\r\nVoid = set_property( @window, '@LayerOn', get_property( @window, '@CurSameLayer' ) + 1 )\r\nValid = prod_spec_comm( \"VALIDATE_DOPANT\" )\r\nif Valid else\r\n return 0\r\nend\r\nValid = prod_spec_comm( \"VALIDATE_MINMAX\" )\r\nif Valid else\r\n return 0\r\nend\r\n\r\nEpiControls = get_property( @window, '@EpiControls' )\r\nEpiPromptCnt = get_property( @window, '@EpiPromptCnt' )\r\nEpiDataOnWindow = get_property( EpiControls, 'LIST':@rm:'LIST':@rm:'INVALUE' )\r\nconvert @rm to @vm in EpiDataOnWindow\r\nif EpiDataOnWindow = @fm:@vm:@fm:str( @vm, EpiPromptCnt-2 ) and get_property( @window, '@EpiInfo' ) = '' then\r\n * no epi information for current same reactor layer don't save\r\n end_dialog( @window, 'NULL' )\r\nend else\r\n if EpiDataOnWindow = @fm:@vm:@fm:str( @vm, EpiPromptCnt-2 ) then\r\n MsgInfo = ''\r\n MsgInfo = 'H'\r\n MsgInfo = 'You cannot have a blank same reactor layer...'\r\n Void = msg( '', MsgInfo )\r\n end else\r\n\t\tCurSameLayerNo = get_property( @window, '@CurSameLayer' )\r\n\t\tAllSameLayers = get_property( @window, '@EpiInfo' )\r\n\t\tAllSameLayers = fieldstore( AllSameLayers, char(248), CurSameLayerNo, 1, EpiDataOnWindow )\r\n\t\tVoid = set_property( @window, '@EpiInfo', AllSameLayers )\r\n\t\tEpiInfo = get_property( @window, '@EpiInfo' ) \r\n\t convert @fm to @svm in EpiInfo ;* for conc mess\r\n\t end_dialog( @window, EpiInfo )\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_SI3.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI3.CANCEL_BUTTON.json new file mode 100644 index 0000000..9ff5441 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI3.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_SI3.CLEAN_SURFSCAN.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI3.CLEAN_SURFSCAN.json new file mode 100644 index 0000000..5365685 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI3.CLEAN_SURFSCAN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function prod_spec_comm\r\n\r\nVoid = set_property( @window, '@SurfScanCtl', 'CLEAN_SURFSCAN' )\r\nVoid = prod_spec_comm( \"SURFSCAN_CLICK\" )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_SI3.POST_EPI_BL.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI3.POST_EPI_BL.json new file mode 100644 index 0000000..e830300 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI3.POST_EPI_BL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function prod_spec_comm\r\n\r\n\r\nVoid = set_property( @window, '@PrePost', 'POST' )\r\nVoid = set_property( @window, '@VirginBL', 'BL' )\r\nVoid = prod_spec_comm( 'LOAD_SURFACE_DEF' )\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_SI3.POST_EPI_V.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI3.POST_EPI_V.json new file mode 100644 index 0000000..d7db6dc --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI3.POST_EPI_V.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function prod_spec_comm\r\n\r\n\r\nVoid = set_property( @window, '@PrePost', 'POST' )\r\nVoid = set_property( @window, '@VirginBL', 'VIRGIN' )\r\nVoid = prod_spec_comm( 'LOAD_SURFACE_DEF' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_SI3.POST_SURFSCAN.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI3.POST_SURFSCAN.json new file mode 100644 index 0000000..ef305b9 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI3.POST_SURFSCAN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function prod_spec_comm\r\n\r\nVoid = set_property( @window, '@SurfScanCtl', 'POST_SURFSCAN' )\r\nVoid = prod_spec_comm( \"SURFSCAN_CLICK\" )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_SI3.PRE_EPI_BL.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI3.PRE_EPI_BL.json new file mode 100644 index 0000000..d9434d6 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI3.PRE_EPI_BL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function prod_spec_comm\r\n\r\n\r\nVoid = set_property( @window, '@PrePost', 'PRE' )\r\nVoid = set_property( @window, '@VirginBL', 'BL' )\r\nVoid = prod_spec_comm( 'LOAD_SURFACE_DEF' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_SI3.PRE_EPI_V.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI3.PRE_EPI_V.json new file mode 100644 index 0000000..befd827 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI3.PRE_EPI_V.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function prod_spec_comm\r\n\r\n\r\nVoid = set_property( @window, '@PrePost', 'PRE' )\r\nVoid = set_property( @window, '@VirginBL', 'VIRGIN' )\r\nVoid = prod_spec_comm( 'LOAD_SURFACE_DEF' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_SI3.PRE_SURFSCAN.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI3.PRE_SURFSCAN.json new file mode 100644 index 0000000..949bffe --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI3.PRE_SURFSCAN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function prod_spec_comm\r\n\r\nVoid = set_property( @window, '@SurfScanCtl', 'PRE_SURFSCAN' )\r\nVoid = prod_spec_comm( \"SURFSCAN_CLICK\" )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_SI3.SAVE_BUTTON.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI3.SAVE_BUTTON.json new file mode 100644 index 0000000..bac36b7 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI3.SAVE_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\ndeclare subroutine end_dialog\r\n\r\nControls = get_property( @window, '@Controls' )\r\nRetVal = get_property( Controls, 'INVALUE' )\r\nconvert @rm to @fm in RetVal\r\nNotes = .surface_notes->text\r\nend_dialog( @window, RetVal:Char(245):Notes )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_SI4.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI4.CANCEL_BUTTON.json new file mode 100644 index 0000000..9ff5441 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI4.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_SI4.SAVE_BUTTON.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI4.SAVE_BUTTON.json new file mode 100644 index 0000000..567769e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI4.SAVE_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE SUBROUTINE End_Dialog\r\n\r\nControls\t= Get_Property(@WINDOW,'@Controls')\r\nProps\t\t= Get_Property(@WINDOW,'@Props')\r\n\r\nRetVal = Get_Property( Controls,Props )\r\n\r\nCONVERT @RM TO '~' IN RetVal\r\n\r\nEnd_Dialog(@WINDOW, RetVal )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_SI5.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI5.CANCEL_BUTTON.json new file mode 100644 index 0000000..9ff5441 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI5.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PROD_SPEC_SI5.SAVE_BUTTON.json b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI5.SAVE_BUTTON.json new file mode 100644 index 0000000..45b17e1 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PROD_SPEC_SI5.SAVE_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nControls = get_property( @window, '@Controls' )\r\nRetVal = get_property( Controls, 'TEXT' )\r\nconvert @rm to char(245) in RetVal\r\nend_dialog( @window, RetVal )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PWD_ENTRY.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/PWD_ENTRY.CANCEL_BUTTON.json new file mode 100644 index 0000000..4aa42e3 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PWD_ENTRY.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window,false$ )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/PWD_ENTRY.OK_BUTTON.json b/LSL2/OIEVENT/CLICK/PWD_ENTRY.OK_BUTTON.json new file mode 100644 index 0000000..a73ebb5 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/PWD_ENTRY.OK_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine get_property, end_dialog\r\ndeclare function msg, send_event\r\n$insert logical\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\n\r\nPassWord = xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' )\r\nif .password->text = PassWord then\r\n end_dialog( @window,true$ )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'Password entered incorrectly...'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end_dialog( @window,false$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/P_NAMES.INTL_PHONES.json b/LSL2/OIEVENT/CLICK/P_NAMES.INTL_PHONES.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/P_NAMES.INTL_PHONES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/P_NAMES.PHONES.json b/LSL2/OIEVENT/CLICK/P_NAMES.PHONES.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/P_NAMES.PHONES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/P_NAMES.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/P_NAMES.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/P_NAMES.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/P_NAMES.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/P_NAMES.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/P_NAMES.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/P_NAMES.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/P_NAMES.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/P_NAMES.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/P_NAMES.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/P_NAMES.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/P_NAMES.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/P_NAMES.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/P_NAMES.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/P_NAMES.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG.BUTTON_5.json b/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG.BUTTON_5.json new file mode 100644 index 0000000..885c871 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG.BUTTON_5.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, post_event\r\n\r\nVoid = send_event( @window:'.TC_NO', 'OPTIONS' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG.REPLACED_ALL.json b/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG.REPLACED_ALL.json new file mode 100644 index 0000000..dd4bf53 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG.REPLACED_ALL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function quartz_tc_log_comm\r\n\r\nVoid = quartz_tc_log_comm('TC_CHG_TYPE')\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG.REPLACED_CENTER.json b/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG.REPLACED_CENTER.json new file mode 100644 index 0000000..dd4bf53 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG.REPLACED_CENTER.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function quartz_tc_log_comm\r\n\r\nVoid = quartz_tc_log_comm('TC_CHG_TYPE')\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG.REPLACED_FRONT.json b/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG.REPLACED_FRONT.json new file mode 100644 index 0000000..dd4bf53 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG.REPLACED_FRONT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function quartz_tc_log_comm\r\n\r\nVoid = quartz_tc_log_comm('TC_CHG_TYPE')\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG.REPLACED_REAR.json b/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG.REPLACED_REAR.json new file mode 100644 index 0000000..dd4bf53 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG.REPLACED_REAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function quartz_tc_log_comm\r\n\r\nVoid = quartz_tc_log_comm('TC_CHG_TYPE')\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG.REPLACED_SIDE.json b/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG.REPLACED_SIDE.json new file mode 100644 index 0000000..dd4bf53 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG.REPLACED_SIDE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function quartz_tc_log_comm\r\n\r\nVoid = quartz_tc_log_comm('TC_CHG_TYPE')\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..fa4e7b2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, fieldcount\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.QUARTZ_TC_LOG' to DictQTCLogTable else\r\n Void = msg( '', 'Unable to open DICT.QUARTZ_TC_LOG...' )\r\n return 0\r\nend\r\nSearchStr = ''\r\nEntryDateFrom = .entry_date_from->text\r\nEntryDateThru = .entry_date_thru->text\r\n\r\nReactors = .reactors->array\r\nswap @vm:@vm with '' in Reactors\r\nif Reactors[-1,1] = @vm then Reactors[-1,1] = ''\r\n\r\nif EntryDateFrom and EntryDateThru then\r\n SearchStr<-1> = 'ENTRY_DATE':@vm:EntryDateFrom:'...':EntryDateThru\r\nend else\r\n\tif EntryDateFrom then\r\n\t SearchStr<-1> = 'ENTRY_DATE':@vm:'>=':EntryDateFrom\r\n\tend\r\n\tif EntryDateThru then\r\n\t SearchStr<-1> = 'ENTRY_DATE':@vm:'<=':EntryDateThru\r\n\tend\r\nend\r\nif Reactors <> '' then\r\n SearchStr<-1> = 'REACTOR':@vm:Reactors\r\nend\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'QUARTZ_TC_LOG', DictQTCLogTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting QUARTZ_TC_LOG records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'QUARTZ_TC_LOG', 'REACTOR':@fm:'#ENTRY_DATE', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG_QUERY.REACTORS.json b/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG_QUERY.REACTORS.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUARTZ_TC_LOG_QUERY.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG.BUTTON_10.json b/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG.BUTTON_10.json new file mode 100644 index 0000000..871562c --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG.BUTTON_10.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, send_event\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\n$insert reactor_log_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nQuartzSig = .quartz_sig->text\r\nif QuartzSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo = 'This log has already been signed.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.quartz_sig->text = @user4\r\n\t\t.quartz_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t.status->value = 'V'\r\n\t\t@@window->savewarn = 1\r\n\t\tRecord = get_property( @window, 'RECORD' )\r\n\tend\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG.BUTTON_11.json b/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG.BUTTON_11.json new file mode 100644 index 0000000..e229e4a --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG.BUTTON_11.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, post_event\r\n\r\nVoid = send_event( @window:'.REACT_ITEM_ID', 'OPTIONS' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG.BUTTON_5.json b/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG.BUTTON_5.json new file mode 100644 index 0000000..81411d8 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG.BUTTON_5.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, post_event\r\n\r\nVoid = send_event( @window:'.WAND_LOG_NO', 'OPTIONS' )\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG.BUTTON_9.json b/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG.BUTTON_9.json new file mode 100644 index 0000000..81c7390 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG.BUTTON_9.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, send_event\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\n$insert reactor_log_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo = 'This log has already been signed.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t.status->value = 'C'\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\n\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG_QUERY.BUTTON_4.json b/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG_QUERY.BUTTON_4.json new file mode 100644 index 0000000..20508d5 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG_QUERY.BUTTON_4.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, post_event\r\n\r\nVoid = send_event( @window:'.REACT_ITEMS', 'OPTIONS' )\r\nVoid = post_event( @window:'.REACT_ITEMS', 'LOSTFOCUS' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..0b075aa --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, fieldcount\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\n\r\nopen 'DICT.QUARTZ_WAND_LOG' to DictQuartzWandLogTable else\r\n Void = msg( '', 'Unable to open DICT.QUARTZ_WAND_LOG...' )\r\n return 0\r\nend\r\nSearchStr = ''\r\nEntryDateFrom = .entry_date_from->text\r\nEntryDateThru = .entry_date_thru->text\r\n\r\nReactors = .reactors->array\r\nswap @vm:@vm with '' in Reactors\r\nif Reactors[-1,1] = @vm then Reactors[-1,1] = ''\r\n\r\nif EntryDateFrom and EntryDateThru then\r\n SearchStr<-1> = 'ENTRY_DATE':@vm:EntryDateFrom:'...':EntryDateThru\r\nend else\r\n\tif EntryDateFrom then\r\n\t SearchStr<-1> = 'ENTRY_DATE':@vm:'>=':EntryDateFrom\r\n\tend\r\n\tif EntryDateThru then\r\n\t SearchStr<-1> = 'ENTRY_DATE':@vm:'<=':EntryDateThru\r\n\tend\r\nend\r\nif Reactors <> '' then\r\n SearchStr<-1> = 'REACTOR':@vm:Reactors\r\nend\r\n\r\nEntryIds = .entry_ids->array<1>\r\nReactItems = .react_items->array<1>\r\nReactServs = .react_servs->array<1>\r\nReactors = .reactors->array\r\nRProbsCat = .react_probs_cat->array<1>\r\nRServsCat = .react_servs_cat->array<1>\r\n\r\nswap @vm:@vm with '' in RProbsCat\r\nif RProbsCat[-1,1] = @vm then RProbsCat[-1,1] = ''\r\nswap @vm:@vm with '' in RServsCat\r\nif RServsCat[-1,1] = @vm then RServsCat[-1,1] = ''\r\nswap @vm:@vm with '' in EntryIds\r\nif EntryIds[-1,1] = @vm then EntryIds[-1,1] = ''\r\nswap @vm:@vm with '' in Reactors\r\nif Reactors[-1,1] = @vm then Reactors[-1,1] = ''\r\nswap @vm:@vm with '' in ReactItems\r\nif ReactItems[-1,1] = @vm then ReactItems[-1,1] = ''\r\nswap @vm:@vm with '' in ReactServs\r\nif ReactServs[-1,1] = @vm then ReactServs[-1,1] = ''\r\n\r\nif EntryIds <> '' then\r\n SearchStr<-1> = 'ENTRY_ID':@vm:EntryIds\r\nend\r\nif ReactItems <> '' then\r\n SearchStr<-1> = 'REACT_ITEM_ID':@vm:ReactItems\r\nend\r\nif ReactServs <> '' then\r\n SearchStr<-1> = 'REACT_SERV_ID':@vm:ReactServs\r\nend\r\nif RProbsCat <> '' then\r\n SearchStr<-1> = 'REACT_PROB_CAT_ID':@vm:RProbsCat\r\nend\r\nif RServsCat <> '' then\r\n SearchStr<-1> = 'REACT_SERV_CAT_ID':@vm:RServsCat\r\nend\r\n*\r\nCatVar = ''\r\n*if Maint then\r\n* CatVar<1,-1> = 'M'\r\n*end\r\n*if Pass then\r\n* CatVar<1,-1> = 'A'\r\n*end\r\n*if CatVar then\r\n* SearchStr<-1> = 'CATEGORY':@vm:CatVar\r\n*end\r\nif Reactors <> '' then\r\n SearchStr<-1> = 'REACTOR':@vm:Reactors\r\nend\r\n*\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'QUARTZ_WAND_LOG', DictQuartzWandLogTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting QUARTZ_WAND_LOG records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n * RESORT THIS MESS ACCORDING TO MIKE\r\n ** Keys = key_sort( Keys, 'REACTOR_LOG', 'REACTOR':@fm:'REACT_PROB_CAT_DESC_INITIAL':@fm:'START_DATE', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG_QUERY.REACTORS.json b/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG_QUERY.REACTORS.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG_QUERY.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG_QUERY.REACT_ITEMS.json b/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG_QUERY.REACT_ITEMS.json new file mode 100644 index 0000000..29cdf4f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUARTZ_WAND_LOG_QUERY.REACT_ITEMS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUOTE.BUTTON_5.json b/LSL2/OIEVENT/CLICK/QUOTE.BUTTON_5.json new file mode 100644 index 0000000..c87c3e4 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUOTE.BUTTON_5.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\ndeclare subroutine create_note\r\n$insert msg_equates\r\n$insert logical\r\n\r\nif .status->value = 'C' then\r\n\tMsgInfo = ''\r\n\tMsgInfo = 'This quote is already closed...'\r\n\tMsgInfo = '!'\r\n\tAns = msg( '', MsgInfo )\r\nend else\r\n\tMsgInfo = ''\r\n\tMsgInfo = 'This will permanently close the quote and will NEVER be allowed to be used in an order. Are you sure you wish to continue.'\r\n\tMsgInfo = '?'\r\n\tMsgInfo = 'BNY'\r\n\tAns = msg( '', MsgInfo )\r\n\tif Ans = 1 then\r\n\t .status->value = 'C'\r\n\t @@window->savewarn = true$\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUOTE.BUTTON_7.json b/LSL2/OIEVENT/CLICK/QUOTE.BUTTON_7.json new file mode 100644 index 0000000..e02fb4c --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUOTE.BUTTON_7.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, set_printer, get_printer, msg, entid, repository\r\ndeclare function print_quote\r\ndeclare subroutine security_err_msg\r\n\r\n$insert security_rights_equ\r\n$insert oiprint_equates\r\n$insert msg_equates\r\n$insert company_equ\r\n$insert logical\r\n\r\nif security_check( 'Quote', Print$ ) then\r\n\tif @@window->savewarn = true$ then\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'You need to save this Quote before printing.'\r\n\t MsgInfo = '!'\r\n\t Void = msg( '', MsgInfo )\r\n\t return 0\r\n\tend else\r\n\t Quote = .quote_no->text\r\n\t Void = print_quote( Quote )\r\n\tend\r\nend else\r\n security_err_msg( 'Quote', Print$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUOTE.DUP_QUOTE_BUTTON.json b/LSL2/OIEVENT/CLICK/QUOTE.DUP_QUOTE_BUTTON.json new file mode 100644 index 0000000..e0c2bc1 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUOTE.DUP_QUOTE_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function next_key, send_event, msg, security_check\r\ndeclare subroutine security_err_msg, delete_row\r\n$insert security_rights_equ\r\n$insert quote_equ\r\n\r\nif security_check( 'Quote', Write$ ) then\r\n * save off all data\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n convert @fm to @rm in AllControls\r\n AllData = get_property( Allcontrols, 'TEXT' )\r\n QuoteDetail = .quote_detail->array\r\n RecToUse = ''\r\n RecToUse = iconv( QuoteDetail<4>, 'MD2,$' )\r\n RecToUse = iconv( QuoteDetail<5>, 'MD2,$' )\r\n RecToUse = QuoteDetail<2>\r\n RecToUse = iconv( QuoteDetail<6>, 'MD2,$' )\r\n OrigQuoteNo = .quote_no->text\r\n\tChoice = send_event( @window, 'CLEAR' )\r\n\tif Choice = '' then\r\n\t * if choice has a value then the user has canceled \r\n\t\topen 'QUOTE' to QuoteTableVar else\r\n\t\t Void = msg( '', 'Unable to open QUOTE...' )\r\n\t\t return 0\r\n\t\tend\r\n\t\tNextQuoteKey = next_key( 'QUOTE', QuoteTableVar, 'NEXT', '' )\r\n\t\t.quote_no->text = NextQuoteKey\r\n\t\tunlock QuoteTableVar, NextQuoteKey else\r\n\t\t Void = msg( '', 'Unable to unlock QUOTE ':NextQuoteKey )\r\n\t\t return 0\r\n\t\tend\r\n\t\tVoid = send_event( @window:'.QUOTE_NO', 'LOSTFOCUS' )\r\n\t\tVoid = set_property( AllControls, 'TEXT', AllData )\r\n\t\t.quote_no->text = NextQuoteKey\r\n \t.signatures->array = @vm:@vm:@vm:@fm:@vm:@vm:@vm\r\n\t\t.entry_date->text = oconv( date(), 'D2/' )\r\n\t\t.entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t.status->value = 'U'\r\n\t\t.inquiry_status->value = 'O'\r\n\t\tVoid = set_property( @window, 'RECORD', RecToUse )\r\n\t\tQuoteDetail<7> = @vm\r\n\t\t.quote_detail->array = QuoteDetail\r\n\t\tVoid = send_event( @window:'.QUOTE_DETAIL', 'CALCULATE', 7 )\r\n\t\t@@window->savewarn = 1\r\n\t\t*delete_row( 'QUOTE', NextQuoteKey, '' ) ;* the user may not want to save\r\n\t\t* OI WILL NOW ONLY WRITE WHAT HAS CHANGED SINCE THE READ\r\n end\r\nend else\r\n security_err_msg( 'Quote', Write$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUOTE.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/QUOTE.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUOTE.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUOTE.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/QUOTE.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUOTE.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUOTE.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/QUOTE.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUOTE.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUOTE.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/QUOTE.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUOTE.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUOTE.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/QUOTE.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUOTE.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUOTE.PSN_VIEW.json b/LSL2/OIEVENT/CLICK/QUOTE.PSN_VIEW.json new file mode 100644 index 0000000..f903aa6 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUOTE.PSN_VIEW.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, post_event\r\n\r\nVoid = send_event( @window:'.PROD_SPEC_ID', 'OPTIONS' )\r\nVoid = post_event( @window:'.PROD_SPEC_ID', 'LOSTFOCUS' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUOTE.QUOTE_DETAIL.json b/LSL2/OIEVENT/CLICK/QUOTE.QUOTE_DETAIL.json new file mode 100644 index 0000000..433078c --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUOTE.QUOTE_DETAIL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 7 else\r\n Void = editcell( CtrlEntId, '' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUOTE.RET_QUOTE_BUTTON.json b/LSL2/OIEVENT/CLICK/QUOTE.RET_QUOTE_BUTTON.json new file mode 100644 index 0000000..1b3e938 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUOTE.RET_QUOTE_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function end_window, msg, send_event, post_event\r\ndeclare subroutine record_lock\r\n\r\nopen 'SYSLISTS' to SysListsTable else\r\n Void = msg( '', 'Unable to open SYSLISTS...' )\r\n return 0\r\nend\r\nPrevWindow = set_property( @window, '@PrevWindow' )\r\nRecordId = 'QUOTE_ID*':@station\r\nrecord_lock( SysListsTable, 'SysLists', RecordId )\r\nwritev .quote_no->text on SysListsTable, RecordId, 1 else\r\n Void = msg( '', 'Unable to write ':.quote_no->text:' on SYSLISTS ':RecordId )\r\n return 0\r\nend\r\nunlock SysListsTable, RecordId else\r\n Void = msg( '', 'Unable to unlock SYSLISTS ':RecordId )\r\n return 0\r\nend\r\nopen 'QUOTE' to QuoteTable else\r\n Void = msg( '', 'Unable to open QUOTE...' )\r\n return 0\r\nend\r\nQuoteNo = .quote_no->text\r\nunlock QuoteTable, QuoteNo else\r\n Void = msg( '', 'Unable to unlock QUOTE ':QuoteNo )\r\n return 0\r\nend\r\nVoid = send_event( @window, 'WRITE' )\r\nVoid = end_window( @window, '' )\r\nbegin case\r\n case PrevWindow = 'Order'\r\n Void = post_event( 'ORDER.ORDER_DETAIL', 'OMNIEVENT' )\r\n case PrevWindow = 'Annual Contracts'\r\n Void = post_event( 'ANNUAL_CONTRACTS.QUOTE_NUM', 'OMNIEVENT' )\r\n case PrevWindow = 'Work Order Log'\r\n Void = post_event( 'WO_LOG.QUOTE_NUM', 'OMNIEVENT' )\r\n case PrevWindow = 'CAR'\r\n Void = post_event( 'CAR.QUOTE_NUM', 'OMNIEVENT' )\r\nend case\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUOTE.SIGN.json b/LSL2/OIEVENT/CLICK/QUOTE.SIGN.json new file mode 100644 index 0000000..8f8d645 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUOTE.SIGN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, msg, dialog_box\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\nequ CrLf$ to char(13):char(10)\r\n\r\nCurStat = .status->value\r\nif CurStat = 'C' then\r\n MsgInfo = ''\r\n MsgInfo = 'This Quote is closed...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\nif .status->value = 'O' then\r\n MsgInfo = ''\r\n MsgInfo = 'This Quote is fully signed...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend else\r\n\tCurSigs = .signatures->array<1>\r\n\tlocate @user4 in CurSigs using @vm setting Fpos then\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'You have already signed off on this quote...' \r\n\t MsgInfo = 'H'\r\n\t Void = msg( '', MsgInfo )\r\n\tend else\r\n\t SignatureInfo = xlate( 'CONFIG', 'QUOTE_SIGS', '', 'X' )\r\n\t Users = SignatureInfo<1>\r\n\t Passwords = SignatureInfo<2>\r\n\t NumSigsRequired = SignatureInfo<3>+0\r\n\t QuoteFaxer = SignatureInfo<5>\r\n\t locate @user4 in Users using @vm setting Fpos then\r\n\t if ( .prod_spec_id->text <> '' ) then\r\n\t\t Password = Passwords<1,Fpos>\r\n\t\t Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:Password )\r\n\t\t if Valid then\r\n\t\t Sigs = .signatures->array<1>\r\n\t\t SigsOut = .signatures->array<2>\r\n\t\t\t Scnt = fieldcount( Sigs, @vm )\r\n\t\t\t Filled = false$\r\n\t\t\t for i = 1 to Scnt\r\n\t\t\t if Sigs<1,i> = '' then\r\n\t\t\t Sigs<1,i> = @user4\r\n\t\t\t SigsOut<1,i> = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t\t Filled = true$\r\n\t\t\t end\r\n\t\t\t until Filled\r\n\t\t\t next i\r\n\t\t\t ExpDate = .exp_date->invalue\r\n\t\t if ExpDate = '' or ExpDate < date() then\r\n\t\t * don't change it is expired\r\n\t\t if i >= NumSigsRequired then\r\n if QuoteFaxer then\r\n\t\t Message = 'This quote is fully signed and ready to be faxed but it is currently expired. You will need to push the expiration date out.'\r\n\t\t create_note( QuoteFaxer, 'System', 'Quote ready to fax', Message, 'QUOTE', .quote_no->text )\r\n end\r\n end\r\n\t\t end else\r\n\t\t if i >= NumSigsRequired then\r\n\t\t .status->value = 'O'\r\n\t\t .inquiry_status->value = 'C'\r\n\t\t if QuoteFaxer then\r\n\t\t Message = 'This quote is fully signed and ready to be faxed'\r\n\t\t create_note( QuoteFaxer, 'System', 'Quote ready to fax', Message, 'QUOTE', .quote_no->text )\r\n\t\t end\r\n\t\t end \r\n\t\t end\r\n\t\t SigArray = Sigs:@fm:SigsOut\r\n\t\t .signatures->array = SigArray\r\n @@window->savewarn = 1\r\n\t\t\t end \r\n\t\t end else\r\n\t\t MsgInfo = ''\r\n\t\t Ttext = 'You must enter a PSN ( Product Specification# ) before signing'\r\n\t\t MsgInfo = Ttext\r\n\t\t MsgInfo = 'H'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t\t end\r\n\t end else\r\n\t\t MsgInfo = ''\r\n\t\t MsgInfo = 'You are not authorized to sign off on Quotes...'\r\n\t\t MsgInfo = 'H'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t end\r\n\tend\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUOTE_OLD.QUOTE_DETAIL.json b/LSL2/OIEVENT/CLICK/QUOTE_OLD.QUOTE_DETAIL.json new file mode 100644 index 0000000..53fd320 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUOTE_OLD.QUOTE_DETAIL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 6 else\r\n Void = editcell( CtrlEntId, '' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUOTE_OLD_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/QUOTE_OLD_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUOTE_OLD_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUOTE_OLD_QUERY.ENTRY_IDS.json b/LSL2/OIEVENT/CLICK/QUOTE_OLD_QUERY.ENTRY_IDS.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUOTE_OLD_QUERY.ENTRY_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUOTE_OLD_QUERY.PART_NUMS.json b/LSL2/OIEVENT/CLICK/QUOTE_OLD_QUERY.PART_NUMS.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUOTE_OLD_QUERY.PART_NUMS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUOTE_OLD_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/QUOTE_OLD_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..9430269 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUOTE_OLD_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.QUOTE_OLD' to DictQuoteTable else\r\n Void = msg( '', 'Unable to open DICT.QUOTE_OLD...' )\r\n return 0\r\nend\r\nSearchStr = ''\r\nCustIds = .customer_info->array<1>\r\nEntryDateFrom = .entry_date_from->text\r\nEntryDateThru = .entry_date_thru->text\r\nExpDateFrom = .exp_date_from->text\r\nExpDateThru = .exp_date_thru->text\r\nOpen = .open_check->check\r\nExpired = .expired_check->check\r\nUnsigned = .unsigned_check->check\r\nEntryIds = .entry_ids->array<1>\r\nPartNums = .part_nums->array\r\nswap @vm:@vm with '' in CustIds\r\nif CustIds[-1,1] = @vm then CustIds[-1,1] = ''\r\nswap @vm:@vm with '' in EntryIds\r\nif EntryIds[-1,1] = @vm then EntryIds[-1,1] = ''\r\nswap @vm:@vm with '' in PartNums\r\nif Partnums[-1,1] = @vm then PartNums[-1,1] = ''\r\nif CustIds then\r\n SearchStr<-1> = 'CUST_NO':@vm:CustIds\r\nend\r\nif EntryDateFrom and EntryDateThru then\r\n SearchStr<-1> = 'ENTRY_DATE':@vm:EntryDateFrom:'...':EntryDateThru\r\nend else\r\n\tif EntryDateFrom then\r\n\t SearchStr<-1> = 'ENTRY_DATE':@vm:'>=':EntryDateFrom\r\n\tend\r\n\tif EntryDateThru then\r\n\t SearchStr<-1> = 'ENTRY_DATE':@vm:'<=':EntryDateThru\r\n\tend\r\nend\r\nif ExpDateFrom and ExpDateThru then\r\n\tSearchStr<-1> = 'EXP_DATE':@vm:ExpDateFrom:'...':ExpDateThru\r\nend else\r\n\tif ExpDateFrom then\r\n\t SearchStr<-1> = 'EXP_DATE':@vm:'>=':ExpDateFrom\r\n\tend\r\n\tif ExpDateThru then\r\n\t SearchStr<-1> = 'EXP_DATE':@vm:'<=':ExpDateThru\r\n\tend\r\nend\r\nif EntryIds then\r\n SearchStr<-1> = 'ENTRY_ID':@vm:EntryIds\r\nend\r\nStatusVar = ''\r\nif Open then\r\n StatusVar<1,-1> = 'O'\r\nend\r\nif Expired then\r\n StatusVar<1,-1> = 'E'\r\nend\r\nif Unsigned then\r\n StatusVar<1,-1> = 'U'\r\nend\r\nif StatusVar then\r\n SearchStr<-1> = 'STATUS':@vm:StatusVar\r\nend\r\nif PartNums then\r\n SearchStr<-1> = 'CUST_PART_NUM':@vm:PartNums\r\nend\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'QUOTE_OLD', DictQuoteTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting QUOTE_OLD records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'QUOTE_OLD', 'CUST_NAME':@fm:'#ENTRY_DATE', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUOTE_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/QUOTE_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUOTE_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUOTE_QUERY.ENTRY_IDS.json b/LSL2/OIEVENT/CLICK/QUOTE_QUERY.ENTRY_IDS.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUOTE_QUERY.ENTRY_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUOTE_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/QUOTE_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..3307415 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUOTE_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.QUOTE' to DictQuoteTable else\r\n Void = msg( '', 'Unable to open DICT.QUOTE...' )\r\n return 0\r\nend\r\nSearchStr = ''\r\nCustIds = .customer_info->array<1>\r\nEntryDateFrom = .entry_date_from->text\r\nEntryDateThru = .entry_date_thru->text\r\nExpDateFrom = .exp_date_from->text\r\nExpDateThru = .exp_date_thru->text\r\nOpen = .open_check->check\r\nExpired = .expired_check->check\r\nUnsigned = .unsigned_check->check\r\nClosed = .closed_check->check\r\nEntryIds = .entry_ids->array<1>\r\nPSN = .psn_nos->array\r\nswap @vm:@vm with '' in PSN\r\nif PSN[-1,1] = @vm then PSN[-1,1] = ''\r\nswap @vm:@vm with '' in CustIds\r\nif CustIds[-1,1] = @vm then CustIds[-1,1] = ''\r\nswap @vm:@vm with '' in EntryIds\r\nif EntryIds[-1,1] = @vm then EntryIds[-1,1] = ''\r\nif CustIds then\r\n SearchStr<-1> = 'CUST_NO':@vm:CustIds\r\nend\r\nif EntryDateFrom and EntryDateThru then\r\n SearchStr<-1> = 'ENTRY_DATE':@vm:EntryDateFrom:'...':EntryDateThru\r\nend else\r\n\tif EntryDateFrom then\r\n\t SearchStr<-1> = 'ENTRY_DATE':@vm:'>=':EntryDateFrom\r\n\tend\r\n\tif EntryDateThru then\r\n\t SearchStr<-1> = 'ENTRY_DATE':@vm:'<=':EntryDateThru\r\n\tend\r\nend\r\nif ExpDateFrom and ExpDateThru then\r\n\tSearchStr<-1> = 'EXP_DATE':@vm:ExpDateFrom:'...':ExpDateThru\r\nend else\r\n\tif ExpDateFrom then\r\n\t SearchStr<-1> = 'EXP_DATE':@vm:'>=':ExpDateFrom\r\n\tend\r\n\tif ExpDateThru then\r\n\t SearchStr<-1> = 'EXP_DATE':@vm:'<=':ExpDateThru\r\n\tend\r\nend\r\nif EntryIds then\r\n SearchStr<-1> = 'ENTRY_ID':@vm:EntryIds\r\nend\r\nStatusVar = ''\r\nif Open then\r\n StatusVar<1,-1> = 'O'\r\nend\r\nif Expired then\r\n StatusVar<1,-1> = 'E'\r\nend\r\nif Unsigned then\r\n StatusVar<1,-1> = 'U'\r\nend\r\nif Closed then\r\n StatusVar<1,-1> = 'C'\r\nend\r\nif StatusVar then\r\n SearchStr<-1> = 'STATUS':@vm:StatusVar\r\nend\r\nif PSN then\r\n SearchStr<-1> = 'PROD_SPEC_ID':@vm:PSN\r\nend\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'QUOTE', DictQuoteTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting QUOTE records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'QUOTE', 'CUST_NAME':@fm:'#ENTRY_DATE', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUOTE_QUERY.PSN_NOS.json b/LSL2/OIEVENT/CLICK/QUOTE_QUERY.PSN_NOS.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUOTE_QUERY.PSN_NOS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUOTE_RPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/QUOTE_RPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUOTE_RPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUOTE_RPT1.ENTRY_IDS.json b/LSL2/OIEVENT/CLICK/QUOTE_RPT1.ENTRY_IDS.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUOTE_RPT1.ENTRY_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUOTE_RPT1.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/QUOTE_RPT1.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..2ddca72 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUOTE_RPT1.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility\r\n$insert rlist_equates\r\n$insert lsl_users_equ\r\n\r\nopen 'DICT.QUOTE' to DictQuoteTable else\r\n Void = msg( '', 'Unable to open DICT.QUOTE...' )\r\n return 0\r\nend\r\nSearchStr = ''\r\nCustIds = .customer_info->array<1>\r\nEntryDateFrom = .entry_date_from->text\r\nEntryDateThru = .entry_date_thru->text\r\nExpDateFrom = .exp_date_from->text\r\nExpDateThru = .exp_date_thru->text\r\nOpen = .open_check->check\r\nExpired = .expired_check->check\r\nUnsigned = .unsigned_check->check\r\nEntryIds = .entry_ids->array<1>\r\nswap @vm:@vm with '' in CustIds\r\nif CustIds[-1,1] = @vm then CustIds[-1,1] = ''\r\nswap @vm:@vm with '' in EntryIds\r\nif EntryIds[-1,1] = @vm then CustIds[-1,1] = ''\r\nif CustIds then\r\n SearchStr<-1> = 'CUST_NO':@vm:CustIds\r\nend \r\nif EntryDateFrom then\r\n SearchStr<-1> = 'ENTRY_DATE':@vm:'>=':EntryDateFrom\r\nend\r\nif EntryDateThru then\r\n SearchStr<-1> = 'ENTRY_DATE':@vm:'<=':EntryDateThru\r\nend\r\nif ExpDateFrom then\r\n SearchStr<-1> = 'EXP_DATE':@vm:'>=':ExpDateFrom\r\nend\r\nif ExpDateThru then\r\n SearchStr<-1> = 'EXP_DATE':@vm:'<=':ExpDateThru\r\nend\r\nStatusVar = ''\r\nif Open then\r\n StatusVar<1,-1> = 'O'\r\nend\r\nif Expired then\r\n StatusVar<1,-1> = 'E'\r\nend\r\nif Unsigned then\r\n StatusVar<1,-1> = 'U'\r\nend\r\nif StatusVar then\r\n SearchStr<-1> = 'STATUS':@vm:StatusVar\r\nend\r\nListId = 'QUOTE1.RPT*':@station\r\nCallLine = ''\r\nif SearchStr then\r\n * do a btree.extract\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n btree.extract( SearchStr, 'QUOTE', DictQuoteTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting QUOTE records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n open 'SYSLISTS' to SysListsTable else\r\n Void = msg( '', 'Unable to open SYSLISTS...' )\r\n return 0\r\n end\r\n Keys = key_sort( Keys, 'QUOTE', 'CUST_NAME':@fm:'ENTRY_DATE', 1 )\r\n\r\n write Keys on SysListsTable, ListId else\r\n Void = msg( '', 'Error while writing keys on SYSLISTS ':ListId:'...' )\r\n return 0\r\n end\r\n gosub CallReport\r\n end else\r\n Void = msg( '', 'No records found for meeting your criteria...' )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n * do a select on whole table\r\n rlist( 'SELECT QUOTE BY CUST_NAME BY ENTRY_DATE', target_savelist$, ListId, '', '' )\r\n gosub CallReport\r\nend\r\nend_dialog( @window, '' )\r\nreturn 0\r\n\r\n*===========================================================================*\r\nCallReport:\r\n if .send_to_printer->text = 'Yes' then\r\n Pparam = '/PR=1'\r\n end else\r\n Pparam = '/PV=1'\r\n end\r\n Password = xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' )\r\n CallLine = 'REPORTER.EXE /RP=QUOTE1.RPT /AP=':@appid<1>:' /UN=':@user4:' /PW=':Password:' /QU=1 ':PParam\r\n Stat = utility( 'RUNWIN', CallLine )\r\nreturn\r\n\r\n*===========================================================================*\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUOTE_SIG_PWD_ENTRY.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/QUOTE_SIG_PWD_ENTRY.CANCEL_BUTTON.json new file mode 100644 index 0000000..4aa42e3 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUOTE_SIG_PWD_ENTRY.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window,false$ )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUOTE_SIG_PWD_ENTRY.OK_BUTTON.json b/LSL2/OIEVENT/CLICK/QUOTE_SIG_PWD_ENTRY.OK_BUTTON.json new file mode 100644 index 0000000..9977fc2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUOTE_SIG_PWD_ENTRY.OK_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine get_property, end_dialog\r\ndeclare function msg, send_event\r\n\r\n$INSERT LOGICAL\r\n$INSERT MSG_EQUATES\r\n\r\nPInfo = Get_Property( @WINDOW, '@PINFO' )\r\n\r\nPassWord = Get_Property(@WINDOW:'.PASSWORD','TEXT')\r\n\r\nIF Password = PInfo<1,2> THEN\r\n\r\n\tEnd_Dialog( @WINDOW,TRUE$ )\r\n\t\r\nEND ELSE\r\n\r\n\tMsgInfo = ''\r\n\tMsgInfo = 'Password entered incorrectly...'\r\n\tMsgInfo = 'H'\r\n\t\r\n\tVoid = Msg( '', MsgInfo )\r\n\t\r\n\tEnd_Dialog( @WINDOW,false$ )\r\nEND\r\n\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUOTE_SPEC_INFO.EPI_CONC_MAX_THICK.json b/LSL2/OIEVENT/CLICK/QUOTE_SPEC_INFO.EPI_CONC_MAX_THICK.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUOTE_SPEC_INFO.EPI_CONC_MAX_THICK.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUOTE_SPEC_INFO.EPI_CONC_MIN_THICK.json b/LSL2/OIEVENT/CLICK/QUOTE_SPEC_INFO.EPI_CONC_MIN_THICK.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUOTE_SPEC_INFO.EPI_CONC_MIN_THICK.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUOTE_SRL.DUP_QUOTE_BUTTON.json b/LSL2/OIEVENT/CLICK/QUOTE_SRL.DUP_QUOTE_BUTTON.json new file mode 100644 index 0000000..a9824b7 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUOTE_SRL.DUP_QUOTE_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function next_key, send_event, msg, security_check\r\ndeclare subroutine security_err_msg, delete_row\r\n$insert security_rights_equ\r\n$insert quote_equ\r\n\r\nif security_check( 'Quote SRL', Write$ ) then\r\n * save off all data\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n convert @fm to @rm in AllControls\r\n AllData = get_property( Allcontrols, 'TEXT' )\r\n QuoteDetail = .quote_detail->array\r\n SpecSubstrate = .spec_substrate->text\r\n SpecEpi = .spec_epi->text\r\n OrigQuoteNo = .quote_no->text\r\n\tChoice = send_event( @window, 'CLEAR' )\r\n\tif Choice = '' then\r\n\t * if choice has a value then the user has canceled \r\n\t\topen 'QUOTE_SRL' to QuoteTableVar else\r\n\t\t Void = msg( '', 'Unable to open QUOTE_SRL...' )\r\n\t\t return 0\r\n\t\tend\r\n\t\tNextQuoteKey = next_key( 'QUOTE_SRL', QuoteTableVar, 'NEXT', '' )\r\n\t\t.quote_no->text = NextQuoteKey\r\n\t\tunlock QuoteTableVar, NextQuoteKey else\r\n\t\t Void = msg( '', 'Unable to unlock QUOTE SRL ':NextQuoteKey )\r\n\t\t return 0\r\n\t\tend\r\n\t\tVoid = send_event( @window:'.QUOTE_NO', 'LOSTFOCUS' )\r\n\t\tVoid = set_property( AllControls, 'TEXT', AllData )\r\n\t\t.quote_no->text = NextQuoteKey\r\n \t\t.entry_date->text = oconv( date(), 'D2/' )\r\n\t\t.entry_id->text = oconv( @username, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\t\t*delete_row( 'QUOTE', NextQuoteKey, '' ) ;* the user may not want to save\r\n\t\t* OI WILL NOW ONLY WRITE WHAT HAS CHANGED SINCE THE READ\r\n end\r\nend else\r\n security_err_msg( 'Quote SRL', Write$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUOTE_SRL.RET_QUOTE_BUTTON.json b/LSL2/OIEVENT/CLICK/QUOTE_SRL.RET_QUOTE_BUTTON.json new file mode 100644 index 0000000..7f907eb --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUOTE_SRL.RET_QUOTE_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function end_window, msg, send_event\r\ndeclare subroutine record_lock\r\n\r\nopen 'SYSLISTS' to SysListsTable else\r\n Void = msg( '', 'Unable to open SYSLISTS...' )\r\n return 0\r\nend\r\nPrevWindow = set_property( @window, '@PrevWindow' )\r\nRecordId = 'QUOTE_ID*':@station\r\nrecord_lock( SysListsTable, 'SysLists', RecordId )\r\nwritev .quote_no->text on SysListsTable, RecordId, 1 else\r\n Void = msg( '', 'Unable to write ':.quote_no->text:' on SYSLISTS ':RecordId )\r\n return 0\r\nend\r\nunlock SysListsTable, RecordId else\r\n Void = msg( '', 'Unable to unlock SYSLISTS ':RecordId )\r\n return 0\r\nend\r\nopen 'QUOTE_SRL' to QuoteTable else\r\n Void = msg( '', 'Unable to open QUOTE_SRL...' )\r\n return 0\r\nend\r\nQuoteNo = .quote_no->text\r\nunlock QuoteTable, QuoteNo else\r\n Void = msg( '', 'Unable to unlock QUOTE_SRL ':QuoteNo )\r\n return 0\r\nend\r\nVoid = send_event( @window, 'WRITE' )\r\nVoid = end_window( @window, '' )\r\nif PrevWindow = 'Order' then\r\n Void = send_event( 'ORDER_SRL.ORDER_DETAIL', 'OMNIEVENT' )\r\nend else\r\n Void = send_event( 'ANNUAL_CONTRACTS.QUOTE_NUM', 'OMNIEVENT' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUOTE_SRL.VIEW_SPEC_INFO_BUTTON.json b/LSL2/OIEVENT/CLICK/QUOTE_SRL.VIEW_SPEC_INFO_BUTTON.json new file mode 100644 index 0000000..738bfcb --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUOTE_SRL.VIEW_SPEC_INFO_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, set_property, msg\r\n$insert msg_equates\r\n$insert quote_spec_equ\r\n\r\nSignatureInfo = xlate( 'CONFIG', 'QUOTE_SIGS', '', 'X' )\r\nUsers = SignatureInfo<1>\r\nlocate @user4 in Users using @vm setting Fpos then\r\n\tEpiInfo = .spec_epi->text\r\n\tSubstrateInfo = .spec_substrate->text\r\n\tHoldVar = SubstrateInfo:char(244):EpiInfo \r\n\tReturnVal = dialog_box( 'QUOTE_SPEC_INFO', @window, '':char(244):SubstrateInfo:char(244):EpiInfo )\r\n\tif ReturnVal <> '' and ReturnVal <> 'CANCEL' and ReturnVal <> HoldVar then\r\n\t\tconvert char(244) to @fm in ReturnVal\r\n\t\tSubstrateInfo = ReturnVal<1>\r\n\t\tEpiInfo = ReturnVal<2>\r\n\t\t.spec_epi->text = EpiInfo\r\n\t\t.spec_substrate->text = SubstrateInfo\r\n\t .wafer_desc->text = SubstrateInfo<1,QSSubWaferSize$>:' ':SubstrateInfo<1,QSSubOrientation$>\r\n\t @@window->savewarn = 1\r\n\tend\r\nend else\r\n MsgInfo = ''\r\n\tTtext = 'You do not have proper security to view/edit spec and substrate information...'\r\n\tMsgInfo = Ttext\r\n\tMsgInfo = 'H'\r\n\tVoid = msg( '', MsgInfo )\r\n\treturn 0\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUOTE_SRL_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/QUOTE_SRL_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..5d89c1d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUOTE_SRL_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUOTE_SRL_QUERY.ENTRY_IDS.json b/LSL2/OIEVENT/CLICK/QUOTE_SRL_QUERY.ENTRY_IDS.json new file mode 100644 index 0000000..5d89c1d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUOTE_SRL_QUERY.ENTRY_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/QUOTE_SRL_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/QUOTE_SRL_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..bf0b857 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/QUOTE_SRL_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, rlist, end_dialog\r\ndeclare function msg, key_sort, utility\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.QUOTE_SRL' to DictQuoteTable else\r\n Void = msg( '', 'Unable to open DICT.QUOTE_SRL...' )\r\n return 0\r\nend\r\nSearchStr = ''\r\nCustIds = .customer_info->array<1>\r\nEntryDateFrom = .entry_date_from->text\r\nEntryDateThru = .entry_date_thru->text\r\nExpDateFrom = .exp_date_from->text\r\nExpDateThru = .exp_date_thru->text\r\nOpen = .open_check->check\r\nExpired = .expired_check->check\r\nEntryIds = .entry_ids->array<1>\r\nswap @vm:@vm with '' in CustIds\r\nif CustIds[-1,1] = @vm then CustIds[-1,1] = ''\r\nswap @vm:@vm with '' in EntryIds\r\nif EntryIds[-1,1] = @vm then EntryIds[-1,1] = ''\r\nif CustIds then\r\n SearchStr<-1> = 'CUST_NO':@vm:CustIds\r\nend \r\nif EntryDateFrom then\r\n SearchStr<-1> = 'ENTRY_DATE':@vm:'>=':EntryDateFrom\r\nend\r\nif EntryDateThru then\r\n SearchStr<-1> = 'ENTRY_DATE':@vm:'<=':EntryDateThru\r\nend\r\nif ExpDateFrom then\r\n SearchStr<-1> = 'EXP_DATE':@vm:'>=':ExpDateFrom\r\nend\r\nif ExpDateThru then\r\n SearchStr<-1> = 'EXP_DATE':@vm:'<=':ExpDateThru\r\nend\r\nif EntryIds then\r\n SearchStr<-1> = 'ENTRY_ID':@vm:EntryIds\r\nend\r\nStatusVar = ''\r\nif Open then\r\n StatusVar<1,-1> = 'O'\r\nend\r\nif Expired then\r\n StatusVar<1,-1> = 'E'\r\nend\r\nif StatusVar then\r\n SearchStr<-1> = 'STATUS':@vm:StatusVar\r\nend\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'QUOTE_SRL', DictQuoteTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting QUOTE SRL records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'QUOTE_SRL', 'CUST_NAME':@fm:'#ENTRY_DATE', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS.BUTTON_20.json b/LSL2/OIEVENT/CLICK/RDS.BUTTON_20.json new file mode 100644 index 0000000..fad6daf --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS.BUTTON_20.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Dialog_Box, Msg, Get_Status, obj_WO_Mat\r\nDECLARE SUBROUTINE obj_WO_Mat, obj_WO_Mat_Log, ErrMsg\r\n\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\n$insert prod_spec_equ\r\n$INSERT REACTOR_EQUATES\r\n\r\n\t\r\n/*\r\nCurStatus = .status->value\r\nCurSig = .fw_sig->text\r\n\r\nif CurSig <> '' then\r\n MsgInfo = ''\r\n MsgInfo = 'This RDS has already been signed for First Wafer Inspection.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n RETURN 0\r\nEND\r\n\r\n* * * * \r\n\r\nIF CurStatus NE 'I' THEN\r\n\r\n\tMsgInfo = ''\r\n\tTvar = 'This RDS must go through the \"In-Process step\" '\r\n\tTvar:= 'before it can be signed for First Wafer Inspection.'\r\n\tMsgInfo = Tvar\r\n\tMsgInfo = '!'\r\n\tVoid = msg( '', MsgInfo )\r\n\tRETURN 0\r\n\r\nEND\r\n\r\n* * * *\r\n\r\n*/\r\n\r\nWONo\t= Get_Property(@WINDOW:'.WO','DEFPROP')\r\nCassNo\t= Get_Property(@WINDOW:'.CASS_NO','DEFPROP')\r\n \r\nWOMatCurrStatus = obj_WO_Mat('CurrStatus',WONo:'*':CassNo)\r\n\r\nIF WOMatCurrStatus = 'HOLD' THEN\r\n\tErrorMessage = 'Cassette is on Hold and may not be signed off.':CRLF$:CRLF$\r\n\tvoid = Msg(@WINDOW, ErrorMessage, 'PROCESS_SIGNATURE_ERROR')\r\n\tRETURN 0\r\nEND\r\n\r\n* * * * Move this to the CI window ********************************************\r\n \r\nPSNId = .psn->text\r\nPSNRec = xlate( 'PROD_SPEC', PSNId, '', 'X' )\r\n \t \r\nIF Xlate( 'PROD_SPEC', PSNId, prod_spec_first_ver_inst$, 'X' ) NE '' THEN\r\n\tYes = Dialog_Box( 'RDS_VER', @window, PSNId:'*':prod_spec_first_ver_inst$ )\r\n\tIF NOT(Yes) THEN\r\n\t\tRETURN 0\r\n\tEND\r\nEND\r\n\r\n* * * *\r\n \r\n\t \r\nValid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\t\t\t\r\nIF NOT(Valid) THEN\r\n\tRETURN 0\r\nEND\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN DEBUG\r\n\r\n\r\n\r\n.fw_sig->text = @user4\r\n.fw_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.fw_sig_date->text = SigDt\r\n.fw_sig_time->text = SigTm\r\n@@window->savewarn = 1\r\n\t\t\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS.FIRST_WAF_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS.FIRST_WAF_BUTTON.json new file mode 100644 index 0000000..c2843c8 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS.FIRST_WAF_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@RdsWindowToCall', 'RDS' )\r\nVoid = rds_comm( \"RDS_VIEW\" )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS.HOLD_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS.HOLD_BUTTON.json new file mode 100644 index 0000000..93b383d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS.HOLD_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm2\r\n\r\nVoid = rds_comm2( \"HOLD_CLICK\" )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/RDS.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/RDS.PHX_QBF_FIRST.json new file mode 100644 index 0000000..9f561e1 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\nDECLARE Subroutine Comm_RDS\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\n\r\nComm_RDS('FirstRefresh')\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/RDS.PHX_QBF_LAST.json new file mode 100644 index 0000000..4ffa3c5 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\nDeclare Subroutine Comm_RDS\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\n\r\nComm_RDS('FirstRefresh')\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/RDS.PHX_QBF_NEXT.json new file mode 100644 index 0000000..2f75b83 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\nDECLARE Subroutine Comm_RDS\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nComm_RDS('FirstRefresh')\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/RDS.PHX_QBF_PREV.json new file mode 100644 index 0000000..031aaba --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\nDeclare Subroutine Comm_RDS\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nComm_RDS('FirstRefresh')\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS.POST_EPI_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS.POST_EPI_BUTTON.json new file mode 100644 index 0000000..a8b51f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS.POST_EPI_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@RdsWindowToCall', 'RDS_POST_EPI' )\r\nVoid = rds_comm( \"RDS_VIEW\" )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS.PRE_EPI_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS.PRE_EPI_BUTTON.json new file mode 100644 index 0000000..a1645c9 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS.PRE_EPI_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@RdsWindowToCall', 'RDS_PRE_EPI' )\r\nVoid = rds_comm( \"RDS_VIEW\" )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS.PROVEIN_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS.PROVEIN_BUTTON.json new file mode 100644 index 0000000..bd17403 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS.PROVEIN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@WindowToCall', 'RDS_PROVEIN' )\r\nVoid = rds_comm( 'CALL_WINDOW' )\r\nVoid = set_property( @window, '@WindowToCall', '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS.PSN_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS.PSN_BUTTON.json new file mode 100644 index 0000000..9a9aa3f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS.PSN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@WindowToCall', 'PROD_SPEC' )\r\nVoid = rds_comm( 'CALL_WINDOW' )\r\nVoid = set_property( @window, '@WindowToCall', '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS.UNLOAD_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS.UNLOAD_BUTTON.json new file mode 100644 index 0000000..2f3cfb0 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS.UNLOAD_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@RdsWindowToCall', 'RDS_UNLOAD' )\r\nVoid = rds_comm( \"RDS_VIEW\" )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS.WO_VERIFY_VIEW.json b/LSL2/OIEVENT/CLICK/RDS.WO_VERIFY_VIEW.json new file mode 100644 index 0000000..5d561b7 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS.WO_VERIFY_VIEW.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function start_window\r\n$insert rds_equ\r\n\r\n*WOVerifyID = xlate( 'RDS', .rds_no->text, rds_wo_verify_id$, 'X' )\r\n*RetVal = start_window( 'WO_VERIFY', @window, WOVerifyID:'*CENTER', '', '' ) ;* Dead 9/17/2007 Dave Klotz & JCH\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_HOLD.CANCEL.json b/LSL2/OIEVENT/CLICK/RDS_HOLD.CANCEL.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_HOLD.CANCEL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_HOLD.HOLD_STATUS.json b/LSL2/OIEVENT/CLICK/RDS_HOLD.HOLD_STATUS.json new file mode 100644 index 0000000..ef54d32 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_HOLD.HOLD_STATUS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "CurStatus = @CtrlEntId->value\r\nif CurStatus = 1 then\r\n * ON HOLD\r\n .unhold_operator->text = ''\r\n .unhold_operator_name->text = ''\r\n .unhold_date->text = ''\r\n .unhold_time->text = ''\r\nend else\r\n * OFF HOLD\r\n .unhold_operator->text = @user4\r\n .unhold_operator_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .unhold_date->text = oconv( date(), 'D2/' )\r\n .unhold_time->text = oconv( time(), 'MTH' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_HOLD.SAVE.json b/LSL2/OIEVENT/CLICK/RDS_HOLD.SAVE.json new file mode 100644 index 0000000..e72ab09 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_HOLD.SAVE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\ndeclare subroutine end_dialog\r\n$insert logical\r\n$insert msg_equates\r\n\r\nControls = get_property( @window, '@Controls' )\r\nType = get_property( @window, '@Type' )\r\nContinue = true$\r\n\r\nif Type = 'NEW' then\r\n MsgInfo = ''\r\n MsgInfo = 'Are you sure that you want to put this lot on Hold???'\r\n MsgInfo = 'BNYC'\r\n MsgInfo = '?'\r\n Resp = msg( '', MsgInfo )\r\n if Resp = 1 then\r\n\t Data = get_property( Controls, 'TEXT')\r\n end else\r\n if Resp = 0 then\r\n end_dialog( '', 'CANCEL' )\r\n end else\r\n return 0\r\n * USER CANCELLED\r\n end\r\n end\r\nend else\r\n\tData = get_property( Controls, 'TEXT')\r\nend\r\nStatus = .hold_status->value\r\nconvert @rm to @fm in Data\r\nData = Data:char(245):Status\r\nend_dialog( @window, Data )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_LAYERS.BUTTON_1.json b/LSL2/OIEVENT/CLICK/RDS_LAYERS.BUTTON_1.json new file mode 100644 index 0000000..d8e0fa4 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_LAYERS.BUTTON_1.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, set_property, msg\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nLayerControls = get_property( @window, '@LayerControls' )\r\nLayerPromptCnt = get_property( @window, '@LayerPromptCnt' )\r\nLayerDataOnWindow = get_property( LayerControls,'INVALUE' )\r\nconvert @rm to @fm in LayerDataOnWindow\r\nif LayerDataOnWindow = str( @fm, LayerPromptCnt-1 ) and get_property( @window, '@LayerInfo' ) = '' then\r\n * no epi information for current RDS layer\r\n end_dialog( @window, '' )\r\nend else\r\n if LayerDataOnWindow = str( @fm, LayerPromptCnt-1 ) then\r\n MsgInfo = ''\r\n MsgInfo = 'H'\r\n MsgInfo = 'You cannot have a blank RDS layer...'\r\n Void = msg( '', MsgInfo )\r\n end else\r\n\t\tCurLayerNo = get_property( @window, '@CurLayer' )\r\n\t\tAllLayers = get_property( @window, '@LayerInfo' )\r\n\t\tAllLayers = fieldstore( AllLayers, char(248), CurLayerNo, 1, LayerDataOnWindow )\r\n\t\tVoid = set_property( @window, '@LayerInfo', AllLayers )\r\n\t\tLayerInfo = get_property( @window, '@LayerInfo' ) \r\n\t\tconvert @vm to @svm in LayerInfo\r\n\t\tconvert @fm to @vm in LayerInfo\r\n\t end_dialog( @window, LayerInfo )\r\n\tend\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_LAYERS.BUTTON_2.json b/LSL2/OIEVENT/CLICK/RDS_LAYERS.BUTTON_2.json new file mode 100644 index 0000000..fa11d1b --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_LAYERS.BUTTON_2.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\ndeclare function msg\r\n$insert msg_equates\r\n\r\nLayerPromptCnt = get_property( @window, '@LayerPromptCnt' )\r\nLayerControls = get_property( @window, '@LayerControls' )\r\nLayerDataOnWindow = get_property( LayerControls, 'INVALUE' )\r\nconvert @rm to @fm in LayerDataOnWindow\r\nCurLayerNo = get_property( @window, '@CurLayer' )\r\nAllLayers = get_property( @window, '@LayerInfo' )\r\nif LayerDataOnWindow = str( @fm, LayerPromptCnt-1 ) then\r\n * do not store and delete blank layer\r\n convert char(248) to @fm in AllLayers\r\n AllLayers = delete( AllLayers, CurLayerNo, 0, 0 )\r\n convert @fm to char(248) in AllLayers\r\n Void = set_property( @window, '@LayerInfo', AllLayers )\r\nend else\r\n\tAllLayers = fieldstore( AllLayers, char(248), CurLayerNo, 1, LayerDataOnWindow )\r\n\tVoid = set_property( @window, '@LayerInfo', AllLayers )\r\nend\r\n*\r\nOrigLayerData = get_property( @window, '@OrigLayerInfo' )\r\nLayerData = get_property( @window, '@LayerInfo' )\r\nif LayerData <> OrigLayerData then\r\n MsgInfo = ''\r\n MsgInfo = 'You have changed RDS layer information. Do you wish to save?'\r\n\tMsgInfo = 'BNYC'\r\n\tMsgInfo = '?'\r\n\tResponse = msg( '', MsgInfo )\r\n\tif Response = 1 then \r\n\t convert @vm to @svm in LayerData\r\n\t convert @fm to @vm in LayerData\r\n\t end_dialog( @window, LayerData )\r\n\tend else\r\n\t if Response = 0 then\r\n\t end_dialog( @window, 'CANCEL' )\r\n\t end\r\n\tend\r\nend else \r\n end_dialog( @window, 'CANCEL' )\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_LAYERS.BUTTON_3.json b/LSL2/OIEVENT/CLICK/RDS_LAYERS.BUTTON_3.json new file mode 100644 index 0000000..84a46e7 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_LAYERS.BUTTON_3.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nValidSecurity = rds_comm( 'OVERRIDE' )\r\nif ValidSecurity then\r\n Controls = get_property( @window, '@LayerControls' )\r\n Void = set_property( Controls, 'ENABLED', 1 )\r\n .recipe_no->enabled = 0\r\n Void = set_property( @window, '@Override', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_LAYERS.BUTTON_6.json b/LSL2/OIEVENT/CLICK/RDS_LAYERS.BUTTON_6.json new file mode 100644 index 0000000..e36f661 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_LAYERS.BUTTON_6.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, msg, rds_comm\r\n$insert msg_equates\r\n$insert logical\r\nequate CrLf$ to char(13):char(10)\r\n\r\n* THIS CODE NEVER CALLED DUE TO IT BEING INVISIBLE ON THE WINDOW\r\n* WE WILL NOT LET THE USER INSERT OR DELETE LAYERS ANYMORE\r\n* BRYCE MADE THIS DECISION ON 1/15/98\r\n* DID NOT DELETE CAUSE POSSIBLY SOME DAY CHRIS MAY WANT IT BACK\r\nRETURN 0\r\n\r\nContinue = false$\r\nif .epi_dopant->enabled = 0 then\r\n\tValidSecurity = rds_comm( 'OVERRIDE' )\r\n\tif ValidSecurity then\r\n\t Continue = true$\r\n Controls = get_property( @window, '@LayerControls' )\r\n\t Void = set_property( Controls, 'ENABLED', 1 )\r\n\t .recipe_no->enabled = 0\r\n\tend\r\nend else\r\n Continue = true$\r\nend\r\nif Continue then\r\n\tLayerPromptCnt = get_property( @window, '@LayerPromptCnt' )\r\n\tLayerControls = get_property( @window, '@LayerControls' )\r\n\tCurLayerNo = get_property( @window, '@CurLayer' )\r\n\tAllLayers = get_property( @window, '@LayerInfo' )\r\n\tAllLayers = fieldstore( AllLayers, char(248), CurLayerNo, 1, char(243):'' )\r\n\tAcnt = fieldcount( AllLayers, char(248))\r\n\tif CurLayerNo = Acnt then\r\n\t swap char(248):char(243) with '' in AllLayers\r\n\tend else\r\n\t swap char(243):char(248) with '' in AllLayers\r\n\tend\r\n\tconvert char(243) to '' in AllLayers ;* if only one and they delete\r\n\t* the char 243 is left hanging\r\n\tVoid = set_property( @window, '@LayerInfo', AllLayers )\r\n\t* now display the next Layer info\r\n\tNextLayerData = field( AllLayers, char(248), CurLayerNo )\r\n\t*\r\n\tValueCnt = fieldcount( NextLayerData, @fm )\r\n\t* so set_property does not propagate\r\n\tif ValueCnt < LayerPromptCnt then\r\n\t NextLayerData := str( @fm, LayerPromptCnt-ValueCnt-1 )\r\n\tend\r\n\t* ok\r\n\tNewLayer = false$\r\n\tif NextLayerData = str( @fm, LayerPromptCnt-1 ) then\r\n\t * add the @fms for the conc\r\n\t NewLayer = true$\r\n\tend\r\n\tconvert @fm to @rm in NextLayerData\r\n\tVoid = set_property( LayerControls, 'INVALUE', NextLayerData )\r\n\tNumLayers = fieldcount( AllLayers, char(248) ) \r\n\t.layer_desc->text = CurLayerNo:' of ':NumLayers+NewLayer\r\n\tvoid = set_property( @window:'.EPI_DOPANT', 'FOCUS', 1 ) \r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_LAYERS.BUTTON_8.json b/LSL2/OIEVENT/CLICK/RDS_LAYERS.BUTTON_8.json new file mode 100644 index 0000000..b4c55b6 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_LAYERS.BUTTON_8.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nArrayToFill = 'TTHICK_AVG/TRES_AVG/TTHICK_STDEV/TRES_STDEV/TTHICK_MAX/TRES_MAX/'\r\nArrayToFill:= 'TTHICK_MIN/TRES_MIN/TTHICK_UNIF/TRES_UNIF'\r\nswap '/' with @rm:@window:'.' in ArrayToFill\r\nArrayToFill = @window:'.':ArrayToFill\r\nCalcs = rds_comm( 'CALC_STAT_INFO' )\r\nswap @vm with @rm in Calcs\r\nVoid = set_property( ArrayToFill, 'TEXT', Calcs ) \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_LAYERS.CON_MAX.json b/LSL2/OIEVENT/CLICK/RDS_LAYERS.CON_MAX.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_LAYERS.CON_MAX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_LAYERS.CON_MIN.json b/LSL2/OIEVENT/CLICK/RDS_LAYERS.CON_MIN.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_LAYERS.CON_MIN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_LAYERS.CON_TARGET.json b/LSL2/OIEVENT/CLICK/RDS_LAYERS.CON_TARGET.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_LAYERS.CON_TARGET.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_LAYERS.INS_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_LAYERS.INS_BUTTON.json new file mode 100644 index 0000000..357c4fe --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_LAYERS.INS_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, msg, rds_comm\r\n$insert msg_equates\r\n$insert logical\r\n\r\n* THIS CODE NEVER CALLED DUE TO IT BEING INVISIBLE ON THE WINDOW\r\n* WE WILL NOT LET THE USER INSERT OR DELETE LAYERS ANYMORE\r\n* BRYCE MADE THIS DECISION ON 1/15/98\r\n* DID NOT DELETE CAUSE POSSIBLY SOME DAY CHRIS MAY WANT IT BACK\r\nRETURN 0\r\n\r\n\r\nLayerPromptCnt = get_property( @window, '@LayerPromptCnt' )\r\nLayerControls = get_property( @window, '@LayerControls' )\r\nLayerDataOnWindow = get_property( LayerControls, 'INVALUE' )\r\nconvert @rm to @fm in LayerDataOnWindow\r\nif LayerDataOnWindow = str( @fm, LayerPromptCnt-1 ) then\r\n MsgInfo = ''\r\n MsgInfo = 'You cannot have a blank multi layer RDS...'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend else\r\n\tContinue = false$\r\n\tif .epi_dopant->enabled = 0 then\r\n\t\tValidSecurity = rds_comm( 'OVERRIDE' )\r\n\t\tif ValidSecurity then\r\n\t\t Continue = true$\r\n\t Controls = get_property( @window, '@LayerControls' )\r\n\t\t Void = set_property( Controls, 'ENABLED', 1 )\r\n\t\t .recipe_no->enabled = 0\r\n\t\tend\r\n\tend else\r\n\t Continue = true$\r\n\tend\r\n if Continue then\r\n\t\tCurLayerNo = get_property( @window, '@CurLayer' )\r\n\t\tAllLayers = get_property( @window, '@LayerInfo' )\r\n\t\tAllLayers = fieldstore( AllLayers, char(248), CurLayerNo, 1, char(243):LayerDataOnWindow )\r\n\t\tconvert char(243) to char(248) in AllLayers\r\n\t\tVoid = set_property( @window, '@LayerInfo', AllLayers )\r\n\t\t* now display the next layer info\r\n\t\tNewLayerData = field( AllLayers, char(248), CurLayerNo )\r\n\t\t*\r\n\t\tValueCnt = fieldcount( NewLayerData, @fm )\r\n\t\t* so set_property does not propagate\r\n\t\tif ValueCnt < LayerPromptCnt then\r\n\t\t NewLayerData := str( @fm, LayerPromptCnt-ValueCnt-1 )\r\n\t\tend\r\n\t\tconvert @fm to @rm in NewLayerData\r\n\t\tVoid = set_property( LayerControls, 'INVALUE', NewLayerData )\r\n\t\tNumLayers = fieldcount( AllLayers, char(248) ) \r\n\t .layer_desc->text = CurLayerNo:' of ':NumLayers\r\n\t void = set_property( @window:'.EPI_DOPANT', 'FOCUS', 1 ) \r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_LAYERS.NEXT_LAYER.json b/LSL2/OIEVENT/CLICK/RDS_LAYERS.NEXT_LAYER.json new file mode 100644 index 0000000..bb0b405 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_LAYERS.NEXT_LAYER.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, msg, rds_comm\r\n$insert msg_equates\r\n$insert logical\r\n\r\nLayerPromptCnt = get_property( @window, '@LayerPromptCnt' )\r\nLayerControls = get_property( @window, '@LayerControls' )\r\nLayerDataOnWindow = get_property( LayerControls, 'INVALUE' )\r\nconvert @rm to @fm in LayerDataOnWindow\r\nif LayerDataOnWindow = str( @fm, LayerPromptCnt-1 ) then\r\n MsgInfo = ''\r\n MsgInfo = 'You cannot have a blank multi layer RDS...'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend else\r\n\tCurLayerNo = get_property( @window, '@CurLayer' )\r\n\tAllLayers = get_property( @window, '@LayerInfo' )\r\n\tif CurLayerNo = fieldcount( AllLayers, char(248) ) then\r\n\t * on last layer trying to add a new\r\n\t * check security\r\n\t \tContinue = false$\r\n\t \t* REMOVE CODE BELOW BY BRYCE MEEK ON 1/15/99 \r\n\t \t* WILL NOT ALLOW NEW LAYERS TO BE ADDED JUST OVERRIDE WHAT IS THERE\r\n \t*if .epi_dopant->enabled = 0 then\r\n\t\t* ValidSecurity = rds_comm( 'OVERRIDE' )\r\n\t\t* if ValidSecurity then\r\n\t\t* Continue = true$\r\n\t * Controls = get_property( @window, '@LayerControls' )\r\n\t\t* Void = set_property( Controls, 'ENABLED', 1 )\r\n\t\t* .recipe_no->enabled = 0\r\n\t\t* end\r\n\t *end else\r\n\t * Continue = true$\r\n\t *end\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'You are on the last multi layer RDS...'\r\n\t MsgInfo = 'H'\r\n\t Void = msg( '', MsgInfo )\r\n\tend else\r\n\t Continue = true$\r\n\tend\r\n\tif Continue then\r\n\t\tAllLayers = fieldstore( AllLayers, char(248), CurLayerNo, 1, LayerDataOnWindow )\r\n\t\tVoid = set_property( @window, '@LayerInfo', AllLayers )\r\n\t\tCurLayerNo += 1\r\n\t\tVoid = set_property( @window, '@CurLayer', CurLayerNo )\r\n\t\t* now display the next RDS layer\r\n\t\tNextLayerData = field( AllLayers, char(248), CurLayerNo )\r\n\t\t*\r\n\t\tValueCnt = fieldcount( NextLayerData, @fm )\r\n\t\t* so set_property does not propagate\r\n\t\tif ValueCnt < LayerPromptCnt then\r\n\t\t NextLayerData := str( @fm, LayerPromptCnt-ValueCnt-1 )\r\n\t\tend\r\n\t\t* ok\r\n\t\tNewLayer = false$\r\n\t\tif NextLayerData = str( @fm, LayerPromptCnt-1 ) then\r\n\t\t NewLayer = true$\r\n\t\tend\r\n\t\tconvert @fm to @rm in NextLayerData\r\n\t\tVoid = set_property( LayerControls, 'INVALUE', NextLayerData )\r\n\t\tNumLayers = fieldcount( AllLayers, char(248) ) + NewLayer\r\n\t .layer_desc->text = CurLayerNo+1:' of ':NumLayers+1\r\n\t void = set_property( @window:'.EPI_TIME', 'FOCUS', 1 ) \r\n\t\tVoid = rds_comm( 'CALC_ALL_RES' )\t \r\n Void = rds_comm( \"SET_ML_LIMITS\" )\t\t\r\n\t\tif .res_units->text = 'ê/Ü' then\r\n\t\t * ohms squared use sheetrho for label and calculations\r\n\t\t .thick_resrho_label->text = 'Thickness:SheetRHO:' \r\n\t\tend else\r\n\t\t .thick_resrho_label->text = 'Thickness:Resistivity:' \r\n\t\tend \r\n\tend\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_LAYERS.PREV_LAYER.json b/LSL2/OIEVENT/CLICK/RDS_LAYERS.PREV_LAYER.json new file mode 100644 index 0000000..4382c0c --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_LAYERS.PREV_LAYER.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, msg, rds_comm\r\n$insert msg_equates\r\n\r\nCurLayerNo = get_property( @window, '@CurLayer' )\r\nif CurLayerNo = 1 then\r\n MsgInfo = ''\r\n MsgInfo = 'You are on the first multi layer RDS...'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend else\r\n\tLayerPromptCnt = get_property( @window, '@LayerPromptCnt' )\r\n\tLayerControls = get_property( @window, '@LayerControls' )\r\n\tLayerDataOnWindow = get_property( LayerControls,'INVALUE' )\r\n\tAllLayers = get_property( @window, '@LayerInfo' )\r\n\tconvert @rm to @fm in LayerDataOnWindow\r\n\tif ( LayerDataOnWindow = str( @fm, LayerPromptCnt-1 ) ) and ( CurLayerNo < fieldcount( AllLayers, char(248) ) ) then\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'You cannot have a blank multi layer RDS...'\r\n\t MsgInfo = 'H'\r\n\t Void = msg( '', MsgInfo )\r\n\t return 0\r\n\tend else\r\n\t\tif LayerDataOnWindow = str( @fm, LayerPromptCnt-1 ) then\r\n\t\t * null do not save\r\n\t\tend else\r\n \t\t* there is rds info for this layer save to common\r\n \t\t*LAYERDATAONWINDOW\r\n\t\t AllLayers = fieldstore( AllLayers, char(248), CurLayerNo, 1, LayerDataOnWindow )\r\n\t\t Void = set_property( @window, '@LayerInfo', AllLayers )\r\n end\t\t \r\n\t\tCurLayerNo -= 1\r\n\t\tVoid = set_property( @window, '@CurLayer', CurLayerNo )\r\n\t\t* now display the previous layer\r\n\t\tPrevLayerData = field( AllLayers, char(248), CurLayerNo )\r\n\t\t*\r\n\t\tValueCnt = fieldcount( PrevLayerData, @fm )\r\n\t\t* so set_property does not propagate\r\n\t\tif ValueCnt < LayerPromptCnt then\r\n\t\t PrevLayerData := str( @fm, LayerPromptCnt-ValueCnt-1 )\r\n\t\tend\r\n\t\t* ok\r\n\t\tconvert @fm to @rm in PrevLayerData\r\n\t\tVoid = set_property( LayerControls, 'INVALUE', PrevLayerData )\r\n\t\tNumLayers = fieldcount( AllLayers, char(248) )\r\n\t .layer_desc->text = CurLayerNo+1:' of ':NumLayers+1\r\n void = set_property( @window:'.EPI_TIME', 'FOCUS', 1 ) \r\n\t\tVoid = rds_comm( 'CALC_ALL_RES' )\r\n\t\tVoid = rds_comm( \"SET_ML_LIMITS\" )\r\n\t\tif .res_units->text = 'ê/Ü' then\r\n\t\t * ohms squared use sheetrho for label and calculations\r\n\t\t .thick_resrho_label->text = 'Thickness:SheetRHO:' \r\n\t\tend else\r\n\t\t .thick_resrho_label->text = 'Thickness:Resistivity:' \r\n\t\tend \r\n\tend\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_LAYERS.SHEETRHO_READINGS.json b/LSL2/OIEVENT/CLICK/RDS_LAYERS.SHEETRHO_READINGS.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_LAYERS.SHEETRHO_READINGS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_LAYERS.THICKNESS_READINGS.json b/LSL2/OIEVENT/CLICK/RDS_LAYERS.THICKNESS_READINGS.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_LAYERS.THICKNESS_READINGS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_OVR.BUTTON_1.json b/LSL2/OIEVENT/CLICK/RDS_OVR.BUTTON_1.json new file mode 100644 index 0000000..92705e8 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_OVR.BUTTON_1.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\ndeclare function msg\r\n$insert msg_equates\r\n\r\nLot = trim( .lot_num->text )\r\nQty = trim( .sched_qty->text )\r\nQuoteNo = trim( .quote_no->value )\r\nQxjCheck = .qxj->check\r\nRetVal = Lot:'*':Qty:'*':QxjCheck:'*':QuoteNo\r\nend_dialog( @window, RetVal )\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_OVR.BUTTON_2.json b/LSL2/OIEVENT/CLICK/RDS_OVR.BUTTON_2.json new file mode 100644 index 0000000..9ff5441 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_OVR.BUTTON_2.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_POST_EPI.BUTTON_16.json b/LSL2/OIEVENT/CLICK/RDS_POST_EPI.BUTTON_16.json new file mode 100644 index 0000000..a83a3eb --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_POST_EPI.BUTTON_16.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = rds_comm( \"CALL_SURF_INSP\" )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_POST_EPI.CLEAN_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_POST_EPI.CLEAN_BUTTON.json new file mode 100644 index 0000000..27ad396 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_POST_EPI.CLEAN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = rds_comm( \"CALL_CLEAN\" )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_POST_EPI.FIRST_WAF_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_POST_EPI.FIRST_WAF_BUTTON.json new file mode 100644 index 0000000..c2843c8 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_POST_EPI.FIRST_WAF_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@RdsWindowToCall', 'RDS' )\r\nVoid = rds_comm( \"RDS_VIEW\" )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_POST_EPI.HOLD_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_POST_EPI.HOLD_BUTTON.json new file mode 100644 index 0000000..93b383d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_POST_EPI.HOLD_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm2\r\n\r\nVoid = rds_comm2( \"HOLD_CLICK\" )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_POST_EPI.METROLOGY_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_POST_EPI.METROLOGY_BUTTON.json new file mode 100644 index 0000000..04060cf --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_POST_EPI.METROLOGY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Dialog_Box\r\n\r\nRDSNo = Get_Property(@WINDOW:'.RDS_NO','DEFPROP')\r\n\r\nIF RDSNo NE '' THEN\r\n\tVoid = Dialog_Box( 'RDS_METROLOGY', @WINDOW, RDSNo )\r\nEND\r\n\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_POST_EPI.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/RDS_POST_EPI.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_POST_EPI.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_POST_EPI.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/RDS_POST_EPI.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_POST_EPI.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_POST_EPI.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/RDS_POST_EPI.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_POST_EPI.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_POST_EPI.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/RDS_POST_EPI.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_POST_EPI.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_POST_EPI.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/RDS_POST_EPI.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_POST_EPI.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_POST_EPI.PRE_EPI_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_POST_EPI.PRE_EPI_BUTTON.json new file mode 100644 index 0000000..a1645c9 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_POST_EPI.PRE_EPI_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@RdsWindowToCall', 'RDS_PRE_EPI' )\r\nVoid = rds_comm( \"RDS_VIEW\" )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_POST_EPI.PROVEIN_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_POST_EPI.PROVEIN_BUTTON.json new file mode 100644 index 0000000..bd17403 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_POST_EPI.PROVEIN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@WindowToCall', 'RDS_PROVEIN' )\r\nVoid = rds_comm( 'CALL_WINDOW' )\r\nVoid = set_property( @window, '@WindowToCall', '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_POST_EPI.PSN_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_POST_EPI.PSN_BUTTON.json new file mode 100644 index 0000000..9a9aa3f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_POST_EPI.PSN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@WindowToCall', 'PROD_SPEC' )\r\nVoid = rds_comm( 'CALL_WINDOW' )\r\nVoid = set_property( @window, '@WindowToCall', '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_POST_EPI.RECIPE_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_POST_EPI.RECIPE_BUTTON.json new file mode 100644 index 0000000..427c76e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_POST_EPI.RECIPE_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@WindowToCall', 'RECIPE' )\r\nVoid = rds_comm( 'CALL_WINDOW' )\r\nVoid = set_property( @window, '@WindowToCall', '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_POST_EPI.SUPPL_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_POST_EPI.SUPPL_BUTTON.json new file mode 100644 index 0000000..1627c4a --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_POST_EPI.SUPPL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm2\r\n\r\nVoid = rds_comm2( \"SUPPL_CLICK\" )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_POST_EPI.SURFSCAN_DATA.json b/LSL2/OIEVENT/CLICK/RDS_POST_EPI.SURFSCAN_DATA.json new file mode 100644 index 0000000..de72659 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_POST_EPI.SURFSCAN_DATA.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box\r\n\r\nPSN = .psn->text\r\nOrigData = .surfscan_info->array\r\nRetVar = dialog_box( 'RDS_POST_EPI2', @window, PSN:char(245):OrigData:char(245):'CENTER' )\r\nif ( RetVar <> OrigData ) and ( RetVar <> '' ) then\r\n .surfscan_info->array = RetVar\r\n @@window->savewarn = 1\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_POST_EPI.UNLOAD_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_POST_EPI.UNLOAD_BUTTON.json new file mode 100644 index 0000000..2f3cfb0 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_POST_EPI.UNLOAD_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@RdsWindowToCall', 'RDS_UNLOAD' )\r\nVoid = rds_comm( \"RDS_VIEW\" )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_POST_EPI2.SAVE.json b/LSL2/OIEVENT/CLICK/RDS_POST_EPI2.SAVE.json new file mode 100644 index 0000000..96c0043 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_POST_EPI2.SAVE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\ndeclare function msg\r\n$insert msg_equates\r\n\r\nControls = get_property( @window, '@Controls' )\r\nRetVal = get_property( Controls, 'TEXT' )\r\nconvert @rm to @fm in RetVal\r\nend_dialog( @window, RetVal )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.BUTTON_16.json b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.BUTTON_16.json new file mode 100644 index 0000000..a83a3eb --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.BUTTON_16.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = rds_comm( \"CALL_SURF_INSP\" )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.CLEAN_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.CLEAN_BUTTON.json new file mode 100644 index 0000000..27ad396 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.CLEAN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = rds_comm( \"CALL_CLEAN\" )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.FIRST_WAF_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.FIRST_WAF_BUTTON.json new file mode 100644 index 0000000..8387ba3 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.FIRST_WAF_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION rds_comm\r\n\r\nVoid = set_property( @window, '@RdsWindowToCall', 'RDS' )\r\nVoid = rds_comm( \"RDS_VIEW\" )\r\nRETURN 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.METROLOGY_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.METROLOGY_BUTTON.json new file mode 100644 index 0000000..04060cf --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.METROLOGY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Dialog_Box\r\n\r\nRDSNo = Get_Property(@WINDOW:'.RDS_NO','DEFPROP')\r\n\r\nIF RDSNo NE '' THEN\r\n\tVoid = Dialog_Box( 'RDS_METROLOGY', @WINDOW, RDSNo )\r\nEND\r\n\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.POST_EPI_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.POST_EPI_BUTTON.json new file mode 100644 index 0000000..a8b51f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.POST_EPI_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@RdsWindowToCall', 'RDS_POST_EPI' )\r\nVoid = rds_comm( \"RDS_VIEW\" )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.PRE_EPI_SIG_INFO.json b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.PRE_EPI_SIG_INFO.json new file mode 100644 index 0000000..5c34f23 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.PRE_EPI_SIG_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event, Send_Event\r\n\r\nforward_event()\r\n\r\nSend_Event(CtrlEntID,'POSCHANGED')\r\n\r\n\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 5 else\r\n Void = editcell( CtrlEntId, '' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.PROVEIN_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.PROVEIN_BUTTON.json new file mode 100644 index 0000000..bd17403 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.PROVEIN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@WindowToCall', 'RDS_PROVEIN' )\r\nVoid = rds_comm( 'CALL_WINDOW' )\r\nVoid = set_property( @window, '@WindowToCall', '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.PSN_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.PSN_BUTTON.json new file mode 100644 index 0000000..9a9aa3f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.PSN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@WindowToCall', 'PROD_SPEC' )\r\nVoid = rds_comm( 'CALL_WINDOW' )\r\nVoid = set_property( @window, '@WindowToCall', '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.RECIPE_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.RECIPE_BUTTON.json new file mode 100644 index 0000000..427c76e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.RECIPE_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@WindowToCall', 'RECIPE' )\r\nVoid = rds_comm( 'CALL_WINDOW' )\r\nVoid = set_property( @window, '@WindowToCall', '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.UNLOAD_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.UNLOAD_BUTTON.json new file mode 100644 index 0000000..2f3cfb0 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI.UNLOAD_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@RdsWindowToCall', 'RDS_UNLOAD' )\r\nVoid = rds_comm( \"RDS_VIEW\" )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_PRE_EPI2.SAVE.json b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI2.SAVE.json new file mode 100644 index 0000000..96c0043 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI2.SAVE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\ndeclare function msg\r\n$insert msg_equates\r\n\r\nControls = get_property( @window, '@Controls' )\r\nRetVal = get_property( Controls, 'TEXT' )\r\nconvert @rm to @fm in RetVal\r\nend_dialog( @window, RetVal )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.BUTTON_16.json b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.BUTTON_16.json new file mode 100644 index 0000000..a83a3eb --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.BUTTON_16.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = rds_comm( \"CALL_SURF_INSP\" )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.CLEAN_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.CLEAN_BUTTON.json new file mode 100644 index 0000000..27ad396 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.CLEAN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = rds_comm( \"CALL_CLEAN\" )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.METROLOGY_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.METROLOGY_BUTTON.json new file mode 100644 index 0000000..04060cf --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.METROLOGY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Dialog_Box\r\n\r\nRDSNo = Get_Property(@WINDOW:'.RDS_NO','DEFPROP')\r\n\r\nIF RDSNo NE '' THEN\r\n\tVoid = Dialog_Box( 'RDS_METROLOGY', @WINDOW, RDSNo )\r\nEND\r\n\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.POST_EPI_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.POST_EPI_BUTTON.json new file mode 100644 index 0000000..a8b51f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.POST_EPI_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@RdsWindowToCall', 'RDS_POST_EPI' )\r\nVoid = rds_comm( \"RDS_VIEW\" )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.PRE_EPI_SIG_INFO.json b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.PRE_EPI_SIG_INFO.json new file mode 100644 index 0000000..5c34f23 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.PRE_EPI_SIG_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event, Send_Event\r\n\r\nforward_event()\r\n\r\nSend_Event(CtrlEntID,'POSCHANGED')\r\n\r\n\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 5 else\r\n Void = editcell( CtrlEntId, '' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.PROVEIN_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.PROVEIN_BUTTON.json new file mode 100644 index 0000000..bd17403 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.PROVEIN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@WindowToCall', 'RDS_PROVEIN' )\r\nVoid = rds_comm( 'CALL_WINDOW' )\r\nVoid = set_property( @window, '@WindowToCall', '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.PSN_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.PSN_BUTTON.json new file mode 100644 index 0000000..9a9aa3f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.PSN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@WindowToCall', 'PROD_SPEC' )\r\nVoid = rds_comm( 'CALL_WINDOW' )\r\nVoid = set_property( @window, '@WindowToCall', '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.RECIPE_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.RECIPE_BUTTON.json new file mode 100644 index 0000000..427c76e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.RECIPE_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@WindowToCall', 'RECIPE' )\r\nVoid = rds_comm( 'CALL_WINDOW' )\r\nVoid = set_property( @window, '@WindowToCall', '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.SIGN_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.SIGN_BUTTON.json new file mode 100644 index 0000000..f3a5d3e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.SIGN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert msg_equates\r\n$insert lsl_users_equ\r\n$insert prod_spec_equ\r\n$insert rds_equ\r\ndeclare function dialog_box, msg, rds_comm2, start_window\r\nequ CrLf$ to char(13):char(10)\r\n\r\nCurStatus = .status->value\r\nif CurStatus = 'C' then\r\n CurReactor = .reactor->text\r\n if CurReactor <> '' else\r\n MsgInfo = ''\r\n MsgInfo = 'You must enter the reactor number before signing.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\n end\r\n RetVar = rds_comm2( \"SIGN_HOLD_CHECK\" )\r\n if RetVar = 1 then\r\n\t PSNId = .psn->text\r\n\t PSNRec = xlate( 'PROD_SPEC', PSNId, '', 'X' )\t\r\n\t \r\n\t * IF THERE ARE PRE_EPI_VER INSTRUCTIONS THEN SHOW USER\r\n\t \r\n IF Xlate( 'PROD_SPEC', PSNId, prod_spec_pre_epi_ver_inst$, 'X' ) NE '' THEN\r\n Yes = dialog_box( 'RDS_VER', @window, PSNId:'*':prod_spec_pre_epi_ver_inst$ )\r\n IF NOT(Yes) THEN Return 0\t\t;* User pressed the 'No' button\r\n\t END\r\n\t \r\n\t Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\t if Valid then\r\n\t .pre_epi_sig->text = @user4\r\n\t .pre_epi_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t .pre_epi_sig_date->text = oconv( date(), 'D2/' )\r\n\t .pre_epi_sig_time->text = oconv( time(), 'MTH' )\r\n\t .status->value = 'E'\r\n\t ***** THE CODE FROM HERE DOWN TO NEXT COMMENT GOES IN THE WO_VERIFY\r\n\t ***** WHEN I GET TO THE MAINTENANCE STUFF\r\n\t\t PSNId = .psn->text\r\n\t\t PSNRec = xlate( 'PROD_SPEC', PSNId, '', 'X' )\r\n\t\t Dopant = xlate( 'PROD_SPEC', PSNId, 'DOPANT_L1', 'X' )\r\n\t\t Restricter = PSNRec\r\n\t\t Ratios = PSNRec\r\n\t\t PINSusceptor = PSNRec\r\n\t\t TubePressure = PSNRec\r\n\t\t LastDopant = xlate( 'CONFIG', 'DOPANT':CurReactor, 1, 'X' )\r\n\t\t LastRestricter = xlate( 'CONFIG', 'RESTRICTER':CurReactor, 1, 'X' )\t\t \r\n\t\t LastRatios = xlate( 'CONFIG', 'RATIOS':CurReactor, 1, 'X' )\t\t \r\n\t\t LastPINSusceptor = xlate( 'CONFIG', 'PIN_SUSCEPTOR':CurReactor, 1, 'X' )\t\t \t\t \r\n\t\t LastTubePressure = xlate( 'CONFIG', 'TUBE_PRESSURE':CurReactor, 1, 'X' )\t\t \t\t \r\n\t\t MsgText = ''\r\n\t\t if ( Dopant <> LastDopant ) and ( LastDopant <> '' ) then\r\n\t\t MsgText := 'The last box that ran through reactor ':CurReactor:' was ':LastDopant\r\n\t\t MsgText := ' and the current PSN requires ':Dopant:CrLf$\r\n\t\t end\r\n\t\t if ( Restricter <> LastRestricter ) and ( LastRestricter <> '' ) then\r\n\t\t if LastRestricter then\r\n\t\t RStmt = 'required a'\r\n\t\t end else\r\n\t\t RStmt = 'did not require a'\t\t \r\n\t\t end\r\n\t\t if Restricter then\r\n\t\t RStmt2 = 'required a'\r\n\t\t end else\r\n\t\t RStmt2 = 'does not require a'\t\t \r\n\t\t end\r\n\t\t MsgText := 'The last box that ran through reactor ':CurReactor:' ':RStmt:' wand restricter'\r\n\t\t MsgText := ' and the current PSN ':RStmt2:' wand restricter':CrLf$\r\n\t\t end\r\n\t\t if ( PinSusceptor <> LastPinSusceptor ) and ( LastPinSusceptor <> '' ) then\r\n\t\t if LastPinSusceptor then\r\n\t\t RStmt = 'required a'\r\n\t\t end else\r\n\t\t RStmt = 'did not require a'\t\t \r\n\t\t end\r\n\t\t if PinSusceptor then\r\n\t\t RStmt2 = 'required a'\r\n\t\t end else\r\n\t\t RStmt2 = 'does not require a'\t\t \r\n\t\t end\r\n\t\t MsgText := 'The last box that ran through reactor ':CurReactor:' ':RStmt:' pinned susceptor'\r\n\t\t MsgText := ' and the current PSN ':RStmt2:' pinned susceptor':CrLf$\r\n\t\t end\r\n\t\t if ( TubePressure <> LastTubePressure ) and ( LastTubePressure <> '' ) then\r\n\t\t MsgText := 'The last box that ran through reactor ':CurReactor:' was set up for ':LastTubePressure:' tube type'\r\n\t\t MsgText := ' and the current PSN requires ':TubePressure:' tube type.':CrLf$\r\n\t\t end\r\n\t\t if ( Ratios <> LastRatios ) and ( LastRatios <> '' ) then\r\n\t\t for i = 1 to 10\r\n\t\t * ONLY TEN RATIOS\r\n\t\t if Ratios<1,i> <> LastRatios<1,i> then\r\n\t\t MsgText := 'Ratio ':i:' should be set to ':Ratios<1,i>:CrLf$\r\n\t\t end\r\n\t\t next i\r\n\t\t end\r\n\t if MsgText <> '' then\r\n\t MsgText := 'Please verify the above information and contact maintenance and/or engineering.'\r\n\t MsgInfo = ''\r\n\t MsgInfo = MsgText\r\n\t MsgInfo = '!'\r\n\t Void = msg( '', MsgInfo )\r\n\t end\r\n\t ***** TO HERE WILL GO IN THE WO_VERIFY TABLE\r\n\t @@window->savewarn = 1\r\n\t end\r\n end else\r\n * WILL POPUP ERROR\r\n end\r\nend else\r\n * THIS RDS HAS ALREADY GONE THROUGH THE PRE EPI INSPRECTION\r\n MsgInfo = ''\r\n MsgInfo = 'This RDS has already gone through the Pre-Epi Insprection process.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.SUPPL_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.SUPPL_BUTTON.json new file mode 100644 index 0000000..1627c4a --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.SUPPL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm2\r\n\r\nVoid = rds_comm2( \"SUPPL_CLICK\" )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.SURF_SCAN_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.SURF_SCAN_BUTTON.json new file mode 100644 index 0000000..5d31651 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.SURF_SCAN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE SUBROUTINE obj_AppWindow, Set_Property\r\nDECLARE FUNCTION Get_Property\r\n\r\nCtrls = @WINDOW:'.WO':@RM\t\t\t; Props = 'TEXT':@RM\r\nCtrls := @WINDOW:'.CASS_NO':@RM\t\t; Props = 'TEXT':@RM\r\nCtrls := @WINDOW:'.WO_STEP':@RM\t\t; Props = 'TEXT':@RM\r\nCtrls := @WINDOW:'.RDS_NO'\t\t\t; Props = 'TEXT'\r\n\r\nVals = Get_Property(Ctrls,Props)\r\n\r\nWONo \t= Vals[1,@RM]\r\nCassNo\t= Vals[COL2()+1,@RM]\r\nWOStep\t= Vals[COL2()+1,@RM]\r\nRDSNo\t= Vals[COL2()+1,@RM]\r\n\r\nStage = 'PE'\t\t\t\t\t;* Pre Epi\r\n\r\nSurfScanKey = WONo:'*':WOStep:'*':CassNo:'*':Stage\r\nobj_AppWindow('ViewRelated','SURFACE_SCAN':@RM:SurfScanKey)\r\n\r\nSet_Property('SURFACE_SCAN.RDS_NO','TEXT',RDSNo)\r\n\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.UNLOAD_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.UNLOAD_BUTTON.json new file mode 100644 index 0000000..2f3cfb0 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.UNLOAD_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@RdsWindowToCall', 'RDS_UNLOAD' )\r\nVoid = rds_comm( \"RDS_VIEW\" )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.VIEW_MOD_HIST.json b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.VIEW_MOD_HIST.json new file mode 100644 index 0000000..b09c3c9 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.VIEW_MOD_HIST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = rds_comm( \"VIEW_MOD_INFO\" )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/RDS_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_QUERY.LOT_NUM.json b/LSL2/OIEVENT/CLICK/RDS_QUERY.LOT_NUM.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_QUERY.LOT_NUM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_QUERY.PART_NUM.json b/LSL2/OIEVENT/CLICK/RDS_QUERY.PART_NUM.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_QUERY.PART_NUM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..b5910ba --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\n\r\nopen 'DICT.RDS' to DictRDSTable else\r\n Void = msg( '', 'Unable to open DICT.RDS...' )\r\n return 0\r\nend\r\nSearchStr = ''\r\nReactors = .reactors->array<1>\r\nCustIds = .customer_info->array<1>\r\nDateInFrom = .date_in_from->text\r\nDateInThru = .date_in_thru->text\r\nDateOutFrom = .date_out_from->text\r\nDateOutThru = .date_out_thru->text\r\nTimeInFrom = .time_in_from->text\r\nTimeInThru = .time_in_thru->text\r\nTimeOutFrom = .time_out_from->text\r\nTimeOutThru = .time_out_thru->text\r\nRecCheck = .received_check->check\r\nPreEpiCheck = .pre_epi_check->check\r\nInProcessCheck = .in_process_check->check\r\nPostEpiCheck = .post_epi_check->check\r\nReadyShipCheck = .ready_ship_check->check\r\nShipCheck = .ship_check->check\r\nHoldCheck = .hold_check->check\r\nWo = .wo->array\r\nPo = .po->array\r\nLotNum = .lot_num->array\r\nPartNum = .part_num->array\r\nQuoteNos = .quote_nos->array\r\nPSN = .psn_nos->array\r\n\r\nswap @vm:@vm with '' in Wo\r\nif Wo[-1,1] = @vm then Wo[-1,1] = ''\r\nswap @vm:@vm with '' in Po\r\nif Po[-1,1] = @vm then Po[-1,1] = ''\r\nswap @vm:@vm with '' in LotNum\r\nif LotNum[-1,1] = @vm then LotNum[-1,1] = ''\r\nswap @vm:@vm with '' in PartNum\r\nif PartNum[-1,1] = @vm then PartNum[-1,1] = ''\r\nswap @vm:@vm with '' in CustIds\r\nif CustIds[-1,1] = @vm then CustIds[-1,1] = ''\r\nswap @vm:@vm with '' in QuoteNos\r\nif QuoteNos[-1,1] = @vm then QuoteNos[-1,1] = ''\r\nswap @vm:@vm with '' in Reactors\r\nif Reactors[-1,1] = @vm then Reactors[-1,1] = ''\r\nswap @vm:@vm with '' in PSN\r\nif PSN[-1,1] = @vm then PSN[-1,1] = ''\r\n*\r\nif PSN then\r\n SearchStr<-1> = 'PROD_SPEC_ID':@vm:PSN\r\nend\r\nif Reactors then\r\n SearchStr<-1> = 'REACTOR':@vm:Reactors\r\nend\r\nif CustIds then\r\n SearchStr<-1> = 'CUST_NO':@vm:CustIds\r\nend\r\nif DateInFrom and DateInThru then\r\n SearchStr<-1> = 'DATE_IN':@vm:DateInFrom:'...':DateInThru\r\nend else\r\n\tif DateInFrom then\r\n\t SearchStr<-1> = 'DATE_IN':@vm:'>=':DateInFrom\r\n\tend\r\n\tif DateInThru then\r\n\t SearchStr<-1> = 'DATE_IN':@vm:'<=':DateInThru\r\n\tend\r\nend\r\nif DateOutFrom and DateOutThru then\r\n SearchStr<-1> = 'DATE_OUT':@vm:DateOutFrom:'...':DateOutThru\r\nend else\r\n\tif DateOutFrom then\r\n\t SearchStr<-1> = 'DATE_OUT':@vm:'>=':DateOutFrom\r\n\tend\r\n\tif DateOutThru then\r\n\t SearchStr<-1> = 'DATE_OUT':@vm:'<=':DateOutThru\r\n\tend\r\nend\r\nif TimeInFrom and TimeInThru then\r\n SearchStr<-1> = 'TIME_IN':@vm:TimeInFrom:'...':TimeInThru\r\nend else\r\n\tif TimeInFrom then\r\n\t SearchStr<-1> = 'TIME_IN':@vm:'>=':TimeInFrom\r\n\tend\r\n\tif TimeInThru then\r\n\t SearchStr<-1> = 'TIME_IN':@vm:'<=':TimeInThru\r\n\tend\r\nend\r\nif TimeOutFrom and TimeOutThru then\r\n SearchStr<-1> = 'TIME_OUT':@vm:TimeOutFrom:'...':TimeOutThru\r\nend else\r\n\tif TimeOutFrom then\r\n\t SearchStr<-1> = 'TIME_OUT':@vm:'>=':TimeOutFrom\r\n\tend\r\n\tif TimeOutThru then\r\n\t SearchStr<-1> = 'TIME_OUT':@vm:'<=':TimeOutThru\r\n\tend\r\nend\r\n*\r\nStatusVar = ''\r\nif RecCheck then\r\n StatusVar<1,-1> = 'C'\r\nend\r\nif PreEpiCheck then\r\n StatusVar<1,-1> = 'E'\r\nend\r\nif InProcessCheck then\r\n StatusVar<1,-1> = 'I'\r\nend\r\nif PostEpiCheck then\r\n StatusVar<1,-1> = 'T'\r\nend\r\nif ReadyShipCheck then\r\n StatusVar<1,-1> = 'R'\r\nend\r\nif ShipCheck then\r\n StatusVar<1,-1> = 'S'\r\nend\r\nif StatusVar then\r\n SearchStr<-1> = 'STATUS':@vm:StatusVar\r\nend\r\n*\r\nif HoldCheck then\r\n SearchStr<-1> = 'HOLD':@vm:HoldCheck\r\nend\r\n*\r\nif Wo then\r\n SearchStr<-1> = 'WO':@vm:Wo\r\nend\r\nif Po then\r\n SearchStr<-1> = 'PO':@VM:Po\r\nend\r\nif LotNum <> '' then\r\n SearchStr<-1> = 'LOT_NUM':@vm:LotNum\r\nend\r\nif PartNum then\r\n SearchStr<-1> = 'PART_NUM':@vm:PartNum\r\nend\r\nif QuoteNos then\r\n SearchStr<-1> = 'QUOTE_NO':@vm:QuoteNos\r\nend\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'RDS', DictRDSTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting RDS records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'RDS', 'CUST_NAME':@fm:'WO':@fm:'RUN_ORDER_NUM', 0 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_QUERY.PO.json b/LSL2/OIEVENT/CLICK/RDS_QUERY.PO.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_QUERY.PO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_QUERY.PSN_NOS.json b/LSL2/OIEVENT/CLICK/RDS_QUERY.PSN_NOS.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_QUERY.PSN_NOS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_QUERY.QUOTE_NOS.json b/LSL2/OIEVENT/CLICK/RDS_QUERY.QUOTE_NOS.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_QUERY.QUOTE_NOS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_QUERY.REACTORS.json b/LSL2/OIEVENT/CLICK/RDS_QUERY.REACTORS.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_QUERY.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_QUERY.WO.json b/LSL2/OIEVENT/CLICK/RDS_QUERY.WO.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_QUERY.WO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_RECIPE.BUTTON_1.json b/LSL2/OIEVENT/CLICK/RDS_RECIPE.BUTTON_1.json new file mode 100644 index 0000000..7235e99 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_RECIPE.BUTTON_1.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nControls = get_property( @window, '@Controls' )\r\nRetVal = get_property( Controls, 'TEXT' )\r\nconvert @rm to @fm in RetVal\r\nif get_property( @window, '@OverRide' ) then\r\n Void = set_property( 'RDS', '@RecipeOverride', 1 )\r\nend\r\nend_dialog( @window, RetVal )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_RECIPE.BUTTON_2.json b/LSL2/OIEVENT/CLICK/RDS_RECIPE.BUTTON_2.json new file mode 100644 index 0000000..9ff5441 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_RECIPE.BUTTON_2.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_RECIPE.BUTTON_3.json b/LSL2/OIEVENT/CLICK/RDS_RECIPE.BUTTON_3.json new file mode 100644 index 0000000..9db9822 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_RECIPE.BUTTON_3.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nValidSecurity = rds_comm( 'RECIPEOVERRIDE' )\r\nif ValidSecurity then\r\n Controls = get_property( @window, '@Controls' )\r\n Void = set_property( Controls, 'ENABLED', 1 )\r\n .recipe_no->enabled = 0\r\n Void = set_property( @window, '@OverRide', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_REJECTS.CANCEL.json b/LSL2/OIEVENT/CLICK/RDS_REJECTS.CANCEL.json new file mode 100644 index 0000000..a143ea1 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_REJECTS.CANCEL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, send_event, memberof\r\ndeclare subroutine end_dialog\r\n$insert logical\r\n$insert msg_equates\r\n\r\nOrigRejInfo = get_property( @window, '@OrigRejInfo' )\r\nCurRejInfo = .rej_info->array\r\nSaveRej = false$\r\nif CurRejInfo <> OrigRejInfo then\r\n MsgInfo = ''\r\n Msg = 'Would you like to save changes?'\r\n MsgInfo = Msg\r\n MsgInfo = 'BNYC'\r\n MsgInfo = '?'\r\n Response = msg( '', MsgInfo )\r\n if Response = 1 then\r\n SaveRej = true$\r\n end else\r\n if Response = 0 then\r\n\t SaveRej = false$\r\n\t end else\r\n\t return 0 ;* user cancelled leave in window\r\n\t end\r\n end\r\nend\r\nif SaveRej then\r\n Void = send_event( @window:'.SAVE', 'CLICK' )\r\nend else\r\n end_dialog( @window, 'CANCEL' )\t\t\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_REJECTS.REJ_INFO.json b/LSL2/OIEVENT/CLICK/RDS_REJECTS.REJ_INFO.json new file mode 100644 index 0000000..a0ef7b6 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_REJECTS.REJ_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell, memberof\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif memberof( @user4, 'SUPERVISOR' ) then\r\n\tif Col = 3 or Col = 5 or Col = 6 else\r\n\t Void = set_property( @window, '@JustClicked', 1 )\r\n\tend\r\nend else\r\n\tif Col = 3 or Col = 5 or Col = 4 or Col = 6 else\r\n\t Void = set_property( @window, '@JustClicked', 1 )\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_REJECTS.SAVE.json b/LSL2/OIEVENT/CLICK/RDS_REJECTS.SAVE.json new file mode 100644 index 0000000..d2fb8ed --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_REJECTS.SAVE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, fieldcount, memberof, next_key\r\ndeclare subroutine end_dialog, record_lock\r\n$insert logical\r\n$insert msg_equates\r\n$insert ncr_equ\r\n$insert rds_equ\r\n\r\nFlagToSaveRDS = false$\r\nRejQty = get_property( @window, '@RejQty', RejQty )\r\nNumRej = sum( .rej_info->array<1> )\r\nLossError = false$\r\nAcError = false$\r\nError = false$\r\nRDSId = get_property( @window, '@RDSId' )\r\nRejField = get_property( @window, '@RejField' )\r\nif NumRej = RejQty then\r\n CurArray = .rej_info->array\r\n NumRows = fieldcount( CurArray<1>, @vm ) +1 ;* JUST INCASE FIRST VALUE NULL\r\n for i = 1 to NumRows\r\n if CurArray<1,i> <> '' then\r\n * check to see if they have entered a loss code for every\r\n * row with rejects in it\r\n if CurArray<2,i> <> '' else\r\n LossError = true$\r\n end\r\n if memberof( @user4, 'SUPERVISOR' ) then\r\n if CurArray<4,i> <> '' else\r\n AcError = true$ \r\n end\r\n end\r\n end else\r\n if CurArray<2,i> = '' then\r\n * blank line\r\n end else\r\n LossError = true$\r\n end\r\n end\r\n Error = LossError + AcError\r\n until Error\r\n next i\r\n if Error then\r\n if LossError then\r\n MsgInfo = ''\r\n MsgInfo = 'H'\r\n MsgInfo = 'You must enter rejects and a loss code for every row that contains an entry!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n if AcError then\r\n MsgInfo = ''\r\n MsgInfo = 'H'\r\n MsgInfo = 'You must enter an assignable cause for every row that contains rejects!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n return 0\r\n end else\r\n open 'NCR' to NCRTable else\r\n Void = msg( '', 'Unable to open NCR..' )\r\n return 0\r\n end\r\n * CHECK RDS DATE\r\n * if xlate( 'RDS', RDSId, rds_entry_date$, 'X' ) > INTERNALSTARTDATE THE\r\n * REMARKED THE DATE CHECK AND GONNA DO EVERYTHING PER CHRIS H.\r\n\t for i = 1 to NumRows\r\n\t * GONNA CREATE AN NCR FOR EACH LOSS\r\n\t if ( CurArray<1,i> <> '' ) and ( CurArray<6,i> = '' ) then\r\n\t * MEANING THERE IS A LOSS CODE AND THERE IS NO NCR SO CREATE IT\r\n FlagToSaveRDS = true$ \r\n\t\t\t\tKeyToUse = next_key( 'NCR', NCRTable, 'NEXT', '' )\r\n\t\t\t\tNCRRec = ''\r\n\t\t\t\tNCRRec = date()\r\n\t\t\t\tNCRRec = time()\r\n\t\t\t\tNCRRec = @user4\r\n\t\t\t\tNCRRec = RDSId\t\t\t\t\t\t\r\n\t\t\t\tNCRRec = 'O'\r\n\t\t\t\tNCRRec = RejField\r\n\t\t\t\tNCRRec = i\r\n\t\t\t\twrite NCRRec on NCRTable, KeyToUse else\r\n\t\t\t\t Void = msg( '', 'Unable to write ':KeyToUse:' on NCR...')\r\n\t\t\t\t return 0\r\n\t\t\t\tend\r\n\t\t\t\tunlock NCRTable, KeyToUse else\r\n\t\t\t\t Void = msg( '', 'Unable to unlock NCR ':KeyToUse:'...' )\r\n\t\t\t\t return 0\r\n\t\t\t\tend\r\n\t\t\t\tCurArray<6,i> = KeyToUse\r\n\t\t\t Void = next_key( 'NCR', NCRTable, 'UPDATE', KeyToUse )\t\t \r\n\t end\r\n\t next i\r\n\t * NOW DELETE THE NCRS THAT WERE DELETED DUE TO ROW DELETION\r\n\t NCRsToDelete = get_property( @window, '@NCRsToDelete' )\r\n RejCntToDelete = get_property( @window, '@RejCntToDelete' )\r\n RejLossToDelete = get_property( @window, '@RejLossToDelete' )\r\n RejACToDelete = get_property( @window, '@RejACToDelete')\t \r\n\t NCnt = fieldcount( NCRsToDelete, @fm )\r\n\t if NCnt > 0 then\r\n\t FlagToSaveRDS = true$\r\n\t end\r\n\t for i = 1 to NCnt\r\n\t ThisNCR = NCRsToDelete\r\n\t * NEED TO SEE IF THIS NCR HAD ANY DATA ENTERED INTO IT AND IF SO WE WILL NOT DELETE\r\n\t * SO WE READ AND REMOVE WHAT THE CODE HAD WRITTEN AND IF ANYTHING IS LEFT\r\n\t * WE THEN KNOW THAT IT HAS BEEN CHANGED\r\n\t NCRRec = xlate( 'NCR', ThisNCR, '', 'X' )\r\n\t CurStatus = NCRRec\r\n\t *AnySignature = NCRRec:NCRRec\r\n\t *AnySignature:= NCRRec:NCRRec\r\n\t *AnySignature:= NCRRec:NCRRec\r\n\t * IF WE HAVE ANY SIGNATURE ON THIS NCR WE DON'T DELETE WE WANT TO REWRITE \r\n\t * WITH 999 IN THE REJ_CNT_VALUE FIELD THIS WAY\r\n\t * IT WILL NOT REFERENCE ANY LOSS OR AC CODE IN THIS RDS\r\n\t * IT WILL FILL IN THE LOSS_CODE_ORIG, AC_CODE_ORIG\r\n\t * AND REJ_CNT_ORIG FIELDS\r\n\t * ABOVE CHANGED TO NOT CHECK FOR SIGNATURE RATHER TO CHECK FOR A NON OPEN STATUS\r\n\t * WHICH MEANS IT HAS BEEN REJECTED AND THEN ACCEPTED FOR SHIPMENT\r\n\t if CurStatus <> 'O' then\r\n\t * THIS NCR HAS BEEN SIGNED REWRITE WITH 999 IN REJ_CNT_FIELD AS MENTIONED ABOVE\r\n\t * AND FILL IN THE ORIG FIELDS\r\n\t NCRRec = 999\r\n\t NCRRec = RejLossToDelete\r\n\t NCRRec = RejACToDelete\r\n\t NCRRec = RejCntToDelete\r\n lock NCRTable, ThisNCR then\r\n\t\t\t write NCRRec on NCRTable, ThisNCR else\r\n\t\t\t Void = msg( '', 'Unable to write NCR ':ThisNCR )\r\n\t\t\t return 0\r\n\t\t\t end\r\n\t\t\t unlock NCRTable, ThisNCR else\r\n\t\t\t Void = msg( '', 'Unable to unlock NCR ':ThisNCR )\r\n\t\t\t return 0\r\n\t\t\t end\r\n\t\t\t end else\r\n\t\t\t MsgInfo = ''\r\n\t\t\t MsgInfo = 'Unable to lock NCR ':ThisNCR:', try at a later time.'\r\n\t\t\t MsgInfo = 'H'\r\n\t\t\t Void = msg( '', MsgInfo )\r\n\t\t\t return 0\r\n\t\t\t end\r\n\t end else\r\n\t\t\t lock NCRTable, ThisNCR then\r\n\t\t\t delete NCRTable, ThisNCR else\r\n\t\t\t Void = msg( '', 'Unable to delete NCR ':ThisNCR )\r\n\t\t\t return 0\r\n\t\t\t end\r\n\t\t\t unlock NCRTable, ThisNCR else\r\n\t\t\t Void = msg( '', 'Unable to unlock NCR ':ThisNCR )\r\n\t\t\t return 0\r\n\t\t\t end \r\n\t\t\t end else\r\n\t\t\t MsgInfo = ''\r\n\t\t\t MsgInfo = 'Unable to lock NCR ':ThisNCR:', try at a later time.'\r\n\t\t\t MsgInfo = 'H'\r\n\t\t\t Void = msg( '', MsgInfo )\r\n\t\t\t return 0\r\n\t\t\t end\r\n\t\t end\r\n\t\t next i\r\n *end\r\n if get_property( @window, '@NCRPriorWarn' ) = true$ then\r\n FlagToSaveRDS = true$\r\n end\r\n end_dialog( @window, CurArray:char(245):FlagToSaveRDS )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'H'\r\n RejType = get_property( @window, '@RejType' ) \r\n if NumRej > RejQty then\r\n * entered too many rejects\r\n Message = 'There are ':RejQty:' ':RejType:' rejects and you have '\r\n Message:= 'entered ':NumRej:', which is too many...Please fix this problem.'\r\n end else\r\n * didn't enter enough rejects\r\n Message = 'There are ':RejQty:' ':RejType:' rejects and you have '\r\n Message:= 'only entered ':NumRej:'...Please account for all rejects.'\r\n end\r\n MsgInfo = Message\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_RPT1.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_RPT1.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_RPT1.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_RPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/RDS_RPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_RPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_RPT1.REACTORS.json b/LSL2/OIEVENT/CLICK/RDS_RPT1.REACTORS.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_RPT1.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_RPT1.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_RPT1.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..887ca3c --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_RPT1.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function sched_rpt1, send_event, msg\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nCustIds = .customer_info->array<1>\r\nswap @vm:@vm with '' in CustIds\r\nif CustIds[-1,1] = @vm then CustIds[-1,1] = ''\r\nDateInFrom = .date_in_from->text\r\nDateInThru = .date_in_thru->text\r\nDetSum = .det_sum->text\r\nReactors = .reactors->array\r\nswap @vm:@vm with '' in Reactors\r\nif Reactors[-1,1] = @vm then Reactors[-1,1] = ''\r\nif DateInFrom or DateInThru then\r\n\tDirToPrint = .send_to_printer->text\r\n\tLslCompany = .lsl_company->text\r\n\tRetVal = DateInFrom:'*':DateInThru:'*':DirToPrint:'*':CustIds:'*':DetSum:'*':Reactors\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a from date or a thru date.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_RPT2.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_RPT2.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_RPT2.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_RPT2.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/RDS_RPT2.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_RPT2.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_RPT2.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_RPT2.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..865b56c --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_RPT2.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function sched_rpt1, send_event, msg\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nWos = .wos->array\r\nswap @vm:@vm with '' in Wos\r\nif Wos[-1,1] = @vm then Wos[-1,1] = ''\r\nCustIds = .customer_info->array<1>\r\nswap @vm:@vm with '' in CustIds\r\nif CustIds[-1,1] = @vm then CustIds[-1,1] = ''\r\nDateInFrom = .date_in_from->text\r\nDateInThru = .date_in_thru->text\r\nif DateInFrom or DateInThru or Wos or CustIds then\r\n\tDirToPrint = .send_to_printer->text\r\n\tLslCompany = .lsl_company->text\r\n\tRetVal = DateInFrom:'*':DateInThru:'*':DirToPrint:'*':CustIds:'*':Wos\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must enter some criteria for the report...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_RPT2.WOS.json b/LSL2/OIEVENT/CLICK/RDS_RPT2.WOS.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_RPT2.WOS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_RPT3.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_RPT3.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_RPT3.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_RPT3.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_RPT3.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..04ffe98 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_RPT3.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function sched_rpt1, send_event, msg\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n$insert logical\r\n\r\nDateInFrom = .date_in_from->text\r\nDateInThru = .date_in_thru->text\r\nReactor = .reactor->text\r\nRecipe = .recipe->text\r\nDirToPrint = .send_to_printer->text\r\nInjector = ''\r\nOffset = ''\r\nRptType = .rpt_type->value\r\nif RptType then\r\n\tif RptType = 'I' then\r\n\t Injector = true$\r\n\tend else\r\n\t Offset = true$\r\n\tend\r\nend \r\nif ( DateInFrom ) and ( DateInThru ) and ( Reactor ) and ( RptType ) then\r\n\tRetVal = Recipe:'*':Reactor:'*':Offset:'*':Injector:'*':DateInFrom:'*':DateInThru:'*':DirToPrint\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must enter data into every field except recipe for the report to work properly...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_SRPT1.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_SRPT1.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_SRPT1.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_SRPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/RDS_SRPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_SRPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_SRPT1.REACTORS.json b/LSL2/OIEVENT/CLICK/RDS_SRPT1.REACTORS.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_SRPT1.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_SRPT1.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_SRPT1.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..844a93b --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_SRPT1.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function ex_vm_rem, msg\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nCustIds = .customer_info->array<1>\r\nCustIds = ex_vm_rem(CustIds)\r\nDateInFrom = .date_in_from->text\r\nDateInThru = .date_in_thru->text\r\nReactors = .reactors->array\r\nReactors = ex_vm_rem(Reactors)\r\n\r\nWithStmt = ''\r\n\r\nif DateInFrom = '' Or DateInThru = '' then\r\n MsgInfo = ''\r\n MsgInfo = 'You must enter a date from and thru...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\n\r\nBegDteNum = Iconv(DateInFrom,'D')\r\nEndDteNum = Iconv(DateInThru,'D')\r\nDteDifNum = EndDteNum - BegDteNum\r\nIf DteDifNum < 0 Then\r\n MsgInfo = ''\r\n MsgInfo = 'Date From can not be greater than Date Thru...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\nIf DteDifNum > 31 then \r\n MsgInfo = ''\r\n MsgInfo = 'Difference in dates can not be greater than 31 days...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\n\r\n*CHECK BOX FOR GRID\r\nGrid = .grid->check\r\nif Grid then\r\n Grid = 'GRID'\r\nend else\r\n Grid = ''\r\nend\r\n\r\nRetVal = ''\r\nRetVal := DateInFrom:'*'\r\nRetVal := DateInThru:'*'\r\nRetVal := CustIds:'*'\r\nRetVal := Reactors:'*'\r\nRetVal := Grid:'*'\r\nend_dialog( @window, RetVal )\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_SRPT2.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_SRPT2.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_SRPT2.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_SRPT2.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_SRPT2.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..2b6de7b --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_SRPT2.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function sched_rpt1, send_event, msg, ex_vm_rem\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nDateFrom = .date_from->text\r\nDateThru = .date_thru->text\r\n\r\n* ALLOW THE USER TO NOT ENTER ANY DATES\r\n* AND THE REPORT WILL GENERATE ALL\r\n*if DateFrom or DateThru then\r\n RetVal = DateFrom:'*':DateThru\r\n end_dialog( @window, RetVal )\r\n*end else\r\n* MsgInfo = ''\r\n* MsgInfo = 'You must have a from date or a thru date.'\r\n* MsgInfo = '!'\r\n* Void = msg( '', MsgInfo )\r\n*end\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_SSI_STDS.BUTTON_1.json b/LSL2/OIEVENT/CLICK/RDS_SSI_STDS.BUTTON_1.json new file mode 100644 index 0000000..dbc615e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_SSI_STDS.BUTTON_1.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nThickStd = .standard_t->text\r\nRdsStd = .standard_r->text\r\nRetVal = ThickStd:@fm:RdsStd\r\nend_dialog( @window, RetVal )\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_SSI_STDS.BUTTON_2.json b/LSL2/OIEVENT/CLICK/RDS_SSI_STDS.BUTTON_2.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_SSI_STDS.BUTTON_2.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_SUPPL.CANCEL.json b/LSL2/OIEVENT/CLICK/RDS_SUPPL.CANCEL.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_SUPPL.CANCEL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_SUPPL.OP_SIG_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_SUPPL.OP_SIG_BUTTON.json new file mode 100644 index 0000000..1c73061 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_SUPPL.OP_SIG_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, msg, dialog_box, memberof\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif memberof( @user4, 'DATA_ENTRY' ) or memberof( @user4, 'SUPERVISOR' ) then\r\n\tif .op_sig->text <> '' then\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'This RDS Supplement form has already been signed by a technician.'\r\n\t MsgInfo = '!'\r\n\t Void = msg( '', MsgInfo )\r\n\tend else\r\n\t Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\t\tif Valid then\r\n\t\t .save->enabled = 1\r\n\t .op_sig->text = @user4\r\n\t .op_sig_name->text = xlate( 'LSL_USERS', @user4, 'FIRST_LAST', 'X' )\r\n\t .op_sig_date->text = oconv( date(), 'D2/' )\t \r\n\t .op_sig_time->text = oconv( time(), 'MTH' )\r\n\t @@window->savewarn = 1\r\n\t end\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = '!'\r\n MsgInfo = 'You must be a cleanroom personnel to sign the work order verification.'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_SUPPL.SAVE.json b/LSL2/OIEVENT/CLICK/RDS_SUPPL.SAVE.json new file mode 100644 index 0000000..37b5725 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_SUPPL.SAVE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\ndeclare subroutine end_dialog\r\n$insert logical\r\n$insert msg_equates\r\n\r\nControls = get_property( @window, '@Controls' )\r\nData = get_property( Controls, 'TEXT')\r\nconvert @rm to @fm in Data\r\nSupplementFlag = 1\r\nData = field( Data, @fm, 1, 6 ):@fm:SupplementFlag\r\nData := char(245):.suppl_inst->text\r\nend_dialog( @window, Data )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_SUPPL_INST.CANCEL.json b/LSL2/OIEVENT/CLICK/RDS_SUPPL_INST.CANCEL.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_SUPPL_INST.CANCEL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_SUPPL_INST.SAVE.json b/LSL2/OIEVENT/CLICK/RDS_SUPPL_INST.SAVE.json new file mode 100644 index 0000000..5c5b7b5 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_SUPPL_INST.SAVE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, .suppl_inst->text )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_SURF_ENT.SAVE.json b/LSL2/OIEVENT/CLICK/RDS_SURF_ENT.SAVE.json new file mode 100644 index 0000000..96c0043 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_SURF_ENT.SAVE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\ndeclare function msg\r\n$insert msg_equates\r\n\r\nControls = get_property( @window, '@Controls' )\r\nRetVal = get_property( Controls, 'TEXT' )\r\nconvert @rm to @fm in RetVal\r\nend_dialog( @window, RetVal )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_THICK_AVG.BUTTON_1.json b/LSL2/OIEVENT/CLICK/RDS_THICK_AVG.BUTTON_1.json new file mode 100644 index 0000000..6d495ee --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_THICK_AVG.BUTTON_1.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nRetVal = .thick_avg->text\r\nend_dialog( @window, RetVal )\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_THICK_AVG.BUTTON_2.json b/LSL2/OIEVENT/CLICK/RDS_THICK_AVG.BUTTON_2.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_THICK_AVG.BUTTON_2.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_TW.CANCEL.json b/LSL2/OIEVENT/CLICK/RDS_TW.CANCEL.json new file mode 100644 index 0000000..d20ddf6 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_TW.CANCEL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, send_event, memberof\r\ndeclare subroutine end_dialog\r\n$insert logical\r\n$insert msg_equates\r\n\r\nOrigTWInfo = get_property( @window, '@OrigTWInfo' )\r\nCurTWInfo = .tw_info->array\r\nSaveTW = false$\r\nif CurTWInfo <> OrigTWInfo then\r\n MsgInfo = ''\r\n Msg = 'Would you like to save changes?'\r\n MsgInfo = Msg\r\n MsgInfo = 'BNYC'\r\n MsgInfo = '?'\r\n Response = msg( '', MsgInfo )\r\n if Response = 1 then\r\n SaveTW = true$\r\n end else\r\n if Response = 0 then\r\n\t SaveTW = false$\r\n\t end else\r\n\t return 0 ;* user cancelled leave in window\r\n\t end\r\n end\r\nend\r\nif SaveTW then\r\n Void = send_event( @window:'.SAVE', 'CLICK' )\r\nend else\r\n end_dialog( @window, 'CANCEL' )\t\t\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_TW.COPY_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_TW.COPY_BUTTON.json new file mode 100644 index 0000000..0fab1f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_TW.COPY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE Subroutine Send_Message\r\n\r\n\r\nCurrList = .TW_INFO->LIST\t\t;* Get data list from control\r\nCurrPos = .TW_INFO->SELPOS\t\t;* Current position\r\n\r\nCurrRow = CurrPos<2>\r\n\r\nCurrLine = CurrList\t;* This is the line to clone\r\n\r\nLineNo = 1\r\nLOOP\r\n\tFirstColData = CurrList\r\nWHILE FirstColData NE ''\r\n\tLineNo += 1\r\nREPEAT\r\n\r\n\r\nIF LineNo > 1 THEN\r\n\tSend_Message(@WINDOW:'.TW_INFO','INSERT',LineNo,CurrLine)\r\nEND\r\n\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_TW.SAVE.json b/LSL2/OIEVENT/CLICK/RDS_TW.SAVE.json new file mode 100644 index 0000000..1df24c2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_TW.SAVE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, fieldcount, memberof, rds_comm, send_event, rds_comm2\r\ndeclare subroutine end_dialog, yield\r\n$insert logical\r\n$insert msg_equates\r\n$insert tw_info_array_equ\r\n$insert tw_codes_equ\r\n\r\nVoid = rds_comm( \"TW_ACCT_ROW_VAL\" )\r\n\r\ngosub CLEAN_INVALID_VALS\r\n\r\nRetVar = rds_comm2( 'TW_INSPEC_CHECK' )\r\nif RetVar then\r\n * ERROR WILL DISPLAY IN THE CODE\r\n return 0\r\nend\r\n\r\nTWQty = get_property( @window, '@TWQty', TWQty )\r\nNumTW = sum( .tw_info->array<1> )\r\nTWError = false$\r\nif NumTW = TWQty then\r\n CurArray = .tw_info->array\r\n NumRows = fieldcount( CurArray<1>, @vm ) +1 ;* JUST INCASE FIRST VALUE NULL\r\n for i = 1 to NumRows\r\n if CurArray<1,i> <> '' then\r\n * check to see if they have entered a loss code for every\r\n * row with rejects in it\r\n if CurArray<2,i> <> '' else\r\n TWError = true$\r\n end\r\n * NOW FORCE THEM TO ENTER NO MORE THAN 1 WAFER IF THIS REQUIRES DATA\r\n * CAUSE WE WANT AN ENTRY FOR EACH AVERAGE NOT ONE AVERAGE FOR 5(EXAMPLE) WAFERS\r\n CurCode = CurArray\r\n CurCnt = CurArray\r\n if xlate( 'TW_CODES', CurCode, tw_codes_run_data_required$, 'X' ) then\r\n * MAKE SURE THE CNT IS NO MORE THAN ONE\r\n if CurCnt = 1 else\r\n TWError = true$\r\n end\r\n end\r\n end else\r\n if CurArray<2,i> = '' then\r\n * blank line\r\n end else\r\n TWError = true$\r\n end\r\n end\r\n until TWError\r\n next i\r\n if TWError then\r\n MsgInfo = ''\r\n MsgInfo = 'H'\r\n MsgInfo = 'You must enter test wafers and a usage code for every row that contains an entry! Also, if the usage code requires data, you may only enter 1 wafer per line. i.e. ( we want the average for every wafer ).'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\n end else\r\n CurArray = delete( CurArray, 3, 0, 0 ) ;* NEED TO DELETE THE THIRD COLUMN\r\n ;* WHICH IS THE LOSS CODE DESCRIPTION\r\n ;* THAT WE DON'T NEED TO STORE.\r\n end_dialog( @window, CurArray )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'H'\r\n TWType = get_property( @window, '@TWType' ) \r\n if NumTW > TWQty then\r\n * entered too many rejects\r\n Message = 'There are ':TWQty:' ':TWType:' test wafers and you have '\r\n Message:= 'entered ':NumTW:', which is too many...Please fix this problem.'\r\n end else\r\n * didn't enter enough rejects\r\n Message = 'There are ':TWQty:' ':TWType:' test wafers and you have '\r\n Message:= 'only entered ':NumTW:'...Please account for all test wafers.'\r\n end\r\n MsgInfo = Message\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0\r\n*===============================================================================================*\r\nCLEAN_INVALID_VALS:\r\n ValidArray = get_property( @window, '@ValidArray', ValidArray )\r\n CurArray = .tw_info->array\r\n Rcnt = fieldcount( CurArray<1>, @vm )\r\n for i = 1 to Rcnt\r\n for j = TWInfoArrayThick$ to TWInfoArrayRHO$\r\n if ( ValidArray = 1 ) then\r\n CurArray = ''\r\n end\r\n next j\r\n next i\r\n .tw_info->array = CurArray\r\nreturn\r\n*===============================================================================================*" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_TW.TW_INFO.json b/LSL2/OIEVENT/CLICK/RDS_TW.TW_INFO.json new file mode 100644 index 0000000..08e5252 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_TW.TW_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell, memberof\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 3 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_UNLOAD.BUTTON_16.json b/LSL2/OIEVENT/CLICK/RDS_UNLOAD.BUTTON_16.json new file mode 100644 index 0000000..a83a3eb --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_UNLOAD.BUTTON_16.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = rds_comm( \"CALL_SURF_INSP\" )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_UNLOAD.CLEAN_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_UNLOAD.CLEAN_BUTTON.json new file mode 100644 index 0000000..27ad396 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_UNLOAD.CLEAN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = rds_comm( \"CALL_CLEAN\" )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_UNLOAD.FIRST_WAF_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_UNLOAD.FIRST_WAF_BUTTON.json new file mode 100644 index 0000000..c2843c8 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_UNLOAD.FIRST_WAF_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@RdsWindowToCall', 'RDS' )\r\nVoid = rds_comm( \"RDS_VIEW\" )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_UNLOAD.HOLD_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_UNLOAD.HOLD_BUTTON.json new file mode 100644 index 0000000..93b383d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_UNLOAD.HOLD_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm2\r\n\r\nVoid = rds_comm2( \"HOLD_CLICK\" )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_UNLOAD.METROLOGY_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_UNLOAD.METROLOGY_BUTTON.json new file mode 100644 index 0000000..e0f15d8 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_UNLOAD.METROLOGY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Dialog_Box\r\n\r\nRDSNo = Get_Property(@WINDOW:'.RDS_NO','DEFPROP')\r\n\r\nIF RDSNo NE '' THEN\r\n\tVoid = Dialog_Box( 'RDS_METROLOGY', @WINDOW, RDSNo )\r\nEND\r\n\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_UNLOAD.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/RDS_UNLOAD.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_UNLOAD.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_UNLOAD.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/RDS_UNLOAD.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_UNLOAD.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_UNLOAD.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/RDS_UNLOAD.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_UNLOAD.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_UNLOAD.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/RDS_UNLOAD.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_UNLOAD.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_UNLOAD.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/RDS_UNLOAD.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_UNLOAD.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_UNLOAD.POST_EPI_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_UNLOAD.POST_EPI_BUTTON.json new file mode 100644 index 0000000..a8b51f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_UNLOAD.POST_EPI_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@RdsWindowToCall', 'RDS_POST_EPI' )\r\nVoid = rds_comm( \"RDS_VIEW\" )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_UNLOAD.PRE_EPI_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_UNLOAD.PRE_EPI_BUTTON.json new file mode 100644 index 0000000..a1645c9 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_UNLOAD.PRE_EPI_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@RdsWindowToCall', 'RDS_PRE_EPI' )\r\nVoid = rds_comm( \"RDS_VIEW\" )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_UNLOAD.PROVEIN_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_UNLOAD.PROVEIN_BUTTON.json new file mode 100644 index 0000000..bd17403 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_UNLOAD.PROVEIN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@WindowToCall', 'RDS_PROVEIN' )\r\nVoid = rds_comm( 'CALL_WINDOW' )\r\nVoid = set_property( @window, '@WindowToCall', '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_UNLOAD.PSN_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_UNLOAD.PSN_BUTTON.json new file mode 100644 index 0000000..9a9aa3f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_UNLOAD.PSN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@WindowToCall', 'PROD_SPEC' )\r\nVoid = rds_comm( 'CALL_WINDOW' )\r\nVoid = set_property( @window, '@WindowToCall', '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_UNLOAD.RECIPE_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_UNLOAD.RECIPE_BUTTON.json new file mode 100644 index 0000000..427c76e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_UNLOAD.RECIPE_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@WindowToCall', 'RECIPE' )\r\nVoid = rds_comm( 'CALL_WINDOW' )\r\nVoid = set_property( @window, '@WindowToCall', '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_UNLOAD.SRPCFG_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_UNLOAD.SRPCFG_BUTTON.json new file mode 100644 index 0000000..3fe880d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_UNLOAD.SRPCFG_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function create_bmp_entity, fieldcount, popup, start_window, utility, rds_comm2, msg\r\n$insert popup_equates\r\n$insert msg_equates\r\n\r\nequ SRPProfilePath$ to 'P:\\SRPScans'\r\n\r\nRDS = .rds_no->text\r\nCurArray = .srp_profiles->array\r\nCCnt = fieldcount( CurArray, @vm )\r\nTcnt = 0\r\nPVals = ''\r\nfor i = 1 to CCnt\r\n if ( CurArray<1,i> <> '' ) then\r\n Tcnt += 1 \r\n PVals<1,-1> = 'Profile ':i\r\n end\r\nnext i\r\nChoosen = 'New' ;* ASSUME THEY ARE CREATING A NEW ONE\r\nif ( PVals <> '' ) then\r\n OverRide = ''\r\n OverRide = PVals:@vm:'New'\r\n Choosen = Popup( @window, OverRide, 'SRP_PROFILES' )\r\nend\r\nBMPPointer = 0\r\nif Choosen = 'New' then\r\n BMPPointer = create_bmp_entity( RDS, SRPProfilePath$ )\r\n if BMPPointer <> 0 then\r\n * CHECK TO SEE IF IT ALREADY EXISTS SO DON'T ADD IT\r\n locate BMPPointer in CurArray using @vm setting Fpos then\r\n MsgInfo = ''\r\n MsgInfo = 'This profile is already attached...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo ) \r\n end else\r\n CurArray<1,Tcnt+1> = BMPPointer \r\n .srp_profiles->array = CurArray\r\n MsgInfo = ''\r\n MsgInfo = 'This RDS successfully points to this RDS...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n @@window->savewarn = 1\r\n end\r\n end\r\nend else\r\n if Choosen <> '' then\r\n * GET IT DOWN TO THE NUMBER SO WE CAN REMOVE IF THEY CHOOSE 'Remove'\r\n convert @upper_case to '' in Choosen\r\n convert @lower_case to '' in Choosen\r\n convert ' ' to '' in Choosen\r\n OrigChoosen = Choosen\r\n OverRide = ''\r\n\t OverRide = 'View':@vm:'Remove'\r\n\t Choosen = Popup( @window, OverRide, 'SRP_PROFILES' )\r\n\t if Choosen = 'Remove' then\r\n\t CurArray = delete( CurArray, 1, OrigChoosen, 0 )\r\n\t .srp_profiles->array = CurArray\r\n\t end else\r\n\t * CALL THE RDS_SRP WINDOW AND ALLOW VIEWING OF THIS PROFILE\r\n\t Param = CurArray<1,OrigChoosen>\r\n\t Stat = utility( 'CURSOR', 'H' )\r\n Void = start_window ( 'RDS_SRP', @window, Param, '', '' )\r\n\t end\r\n end else\r\n * USER PRESSED CANCEL\r\n end\r\nend\r\nVoid = rds_comm2('SET_SRP_PROFILE')\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_UNLOAD.UNLOAD_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_UNLOAD.UNLOAD_BUTTON.json new file mode 100644 index 0000000..2f3cfb0 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_UNLOAD.UNLOAD_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@RdsWindowToCall', 'RDS_UNLOAD' )\r\nVoid = rds_comm( \"RDS_VIEW\" )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_UNLOAD_LOAD_EX.BUTTON_10.json b/LSL2/OIEVENT/CLICK/RDS_UNLOAD_LOAD_EX.BUTTON_10.json new file mode 100644 index 0000000..085c7e5 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_UNLOAD_LOAD_EX.BUTTON_10.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".oo_ex2->text = ''\r\n.oo_ex2_name->text = ''\r\n.oo_ex2_date->text = ''\r\n.oo_ex2_time->text = ''\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_UNLOAD_LOAD_EX.BUTTON_11.json b/LSL2/OIEVENT/CLICK/RDS_UNLOAD_LOAD_EX.BUTTON_11.json new file mode 100644 index 0000000..4cf1dc4 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_UNLOAD_LOAD_EX.BUTTON_11.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert msg_equates\r\n$insert lsl_users_equ\r\n$insert rds_equ\r\n$insert prod_spec_equ\r\ndeclare function dialog_box, msg, rds_comm, rds_comm2\r\n\r\nif .oi_ex2->text <> '' then\r\n MsgInfo = ''\r\n MsgInfo = 'This has already been signed.'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\n\r\nif .oo_ex1->text <> '' else\r\n MsgInfo = ''\r\n MsgInfo = 'You cannot do a second load if you have not unloaded once.'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\nValid = rds_comm2( 'LOAD_UNLOAD_EXTRA_SIGN_CHECK' )\r\nif Valid else\r\n * error will be raised in rds_comm2\r\n return 0\r\nend\r\nValid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\nif Valid then\r\n .oi_ex2->text = @user4\r\n .oi_ex2_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .oi_ex2_date->text = oconv( date(), 'D2/' )\r\n .oi_ex2_time->text = oconv( time(), 'MTH' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_UNLOAD_LOAD_EX.BUTTON_11B.json b/LSL2/OIEVENT/CLICK/RDS_UNLOAD_LOAD_EX.BUTTON_11B.json new file mode 100644 index 0000000..d7cf5b1 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_UNLOAD_LOAD_EX.BUTTON_11B.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".oi_ex3->text = ''\r\n.oi_ex3_name->text = ''\r\n.oi_ex3_date->text = ''\r\n.oi_ex3_time->text = ''\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_UNLOAD_LOAD_EX.BUTTON_2.json b/LSL2/OIEVENT/CLICK/RDS_UNLOAD_LOAD_EX.BUTTON_2.json new file mode 100644 index 0000000..b664fbc --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_UNLOAD_LOAD_EX.BUTTON_2.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert msg_equates\r\n$insert lsl_users_equ\r\n$insert rds_equ\r\n$insert prod_spec_equ\r\ndeclare function dialog_box, msg, rds_comm, rds_comm2\r\n\r\nif .oo_ex1->text <> '' then\r\n MsgInfo = ''\r\n MsgInfo = 'This has already been signed.'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\nValid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\nif Valid then\r\n .oo_ex1->text = @user4\r\n .oo_ex1_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .oo_ex1_date->text = oconv( date(), 'D2/' )\r\n .oo_ex1_time->text = oconv( time(), 'MTH' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_UNLOAD_LOAD_EX.BUTTON_5.json b/LSL2/OIEVENT/CLICK/RDS_UNLOAD_LOAD_EX.BUTTON_5.json new file mode 100644 index 0000000..f7bb308 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_UNLOAD_LOAD_EX.BUTTON_5.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert msg_equates\r\n$insert lsl_users_equ\r\n$insert rds_equ\r\n$insert prod_spec_equ\r\ndeclare function dialog_box, msg, rds_comm, rds_comm2\r\n\r\nif .oi_ex3->text <> '' then\r\n MsgInfo = ''\r\n MsgInfo = 'This has already been signed.'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\n\r\nif .oo_ex2->text <> '' else\r\n MsgInfo = ''\r\n MsgInfo = 'You cannot do a third load if you have not unloaded twice.'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\n\r\nValid = rds_comm2( 'LOAD_UNLOAD_EXTRA_SIGN_CHECK' )\r\nif Valid else\r\n * error will be raised in rds_comm2\r\n return 0\r\nend\r\n\r\nValid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\nif Valid then\r\n .oi_ex3->text = @user4\r\n .oi_ex3_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .oi_ex3_date->text = oconv( date(), 'D2/' )\r\n .oi_ex3_time->text = oconv( time(), 'MTH' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_UNLOAD_LOAD_EX.BUTTON_6.json b/LSL2/OIEVENT/CLICK/RDS_UNLOAD_LOAD_EX.BUTTON_6.json new file mode 100644 index 0000000..e190469 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_UNLOAD_LOAD_EX.BUTTON_6.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert msg_equates\r\n$insert lsl_users_equ\r\n$insert rds_equ\r\n$insert prod_spec_equ\r\ndeclare function dialog_box, msg, rds_comm, rds_comm2\r\n\r\nif .oo_ex2->text <> '' then\r\n MsgInfo = ''\r\n MsgInfo = 'This has already been signed.'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\n\r\nif .oi_ex2->text <> '' else\r\n MsgInfo = ''\r\n MsgInfo = 'You cannot do a second unload if you have not loaded twice.'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\n\r\nValid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\nif Valid then\r\n .oo_ex2->text = @user4\r\n .oo_ex2_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .oo_ex2_date->text = oconv( date(), 'D2/' )\r\n .oo_ex2_time->text = oconv( time(), 'MTH' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_UNLOAD_LOAD_EX.BUTTON_8.json b/LSL2/OIEVENT/CLICK/RDS_UNLOAD_LOAD_EX.BUTTON_8.json new file mode 100644 index 0000000..72d7a43 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_UNLOAD_LOAD_EX.BUTTON_8.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".oo_ex1->text = ''\r\n.oo_ex1_name->text = ''\r\n.oo_ex1_date->text = ''\r\n.oo_ex1_time->text = ''\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_UNLOAD_LOAD_EX.BUTTON_9.json b/LSL2/OIEVENT/CLICK/RDS_UNLOAD_LOAD_EX.BUTTON_9.json new file mode 100644 index 0000000..5366c03 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_UNLOAD_LOAD_EX.BUTTON_9.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".oi_ex2->text = ''\r\n.oi_ex2_name->text = ''\r\n.oi_ex2_date->text = ''\r\n.oi_ex2_time->text = ''\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_UNLOAD_LOAD_EX.CANCEL.json b/LSL2/OIEVENT/CLICK/RDS_UNLOAD_LOAD_EX.CANCEL.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_UNLOAD_LOAD_EX.CANCEL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_UNLOAD_LOAD_EX.SAVE.json b/LSL2/OIEVENT/CLICK/RDS_UNLOAD_LOAD_EX.SAVE.json new file mode 100644 index 0000000..1abf1b6 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_UNLOAD_LOAD_EX.SAVE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nControls = get_property( @window, '@Controls' )\r\nDataToReturn = get_property( Controls, 'INVALUE' )\r\nconvert @rm to @fm in DataToReturn\r\nend_dialog( @window, DataToReturn )\r\n\r\n/* WAS ORIGINALLY GOING TO DO THE WRITE HERE, BUT THE RDS WILL HAVE A WINDOW VARIABLE AND THEN\r\n * PERFORM A WRITEV TO THE POSITION OF ALL OF THIS DATA\r\nRDSRec = xlate( 'RDS', RDSID, '', 'X' )\r\n.oo_ex1->text = RDSRec\r\n.oo_ex1_name->text = oconv( RDSRec, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.oo_ex1_date->text = oconv( RDSRec, 'D2/' )\r\n.oo_ex1_time->text = oconv( RDSRec, 'MTH' )\r\n**************\r\n.oi_ex2->text = RDSRec\r\n.oi_ex2_name->text = oconv( RDSRec, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.oi_ex2_date->text = oconv( RDSRec, 'D2/' )\r\n.oi_ex2_time->text = oconv( RDSRec, 'MTH' )\r\n**************\r\n.oo_ex2->text = RDSRec\r\n.oo_ex2_name->text = oconv( RDSRec, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.oo_ex2_date->text = oconv( RDSRec, 'D2/' )\r\n.oo_ex2_time->text = oconv( RDSRec, 'MTH' )\r\n**************\r\n.oi_ex3->text = RDSRec\r\n.oi_ex3_name->text = oconv( RDSRec, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.oi_ex3_date->text = oconv( RDSRec, 'D2/' )\r\n.oi_ex3_time->text = oconv( RDSRec, 'MTH' )\r\n**************\r\n.oo_ex3->text = RDSRec\r\n.oo_ex3_name->text = oconv( RDSRec, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.oo_ex3_date->text = oconv( RDSRec, 'D2/' )\r\n.oo_ex3_time->text = oconv( RDSRec, 'MTH' )\r\n*/\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_VER.NO_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_VER.NO_BUTTON.json new file mode 100644 index 0000000..5be3512 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_VER.NO_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE SUBROUTINE End_Dialog\r\n\r\nEnd_Dialog(@WINDOW,'0')\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RDS_VER.YES_BUTTON.json b/LSL2/OIEVENT/CLICK/RDS_VER.YES_BUTTON.json new file mode 100644 index 0000000..f9868ce --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RDS_VER.YES_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE SUBROUTINE End_Dialog\r\n\r\nEnd_Dialog(@WINDOW,'1')\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTORPM_SRPT1.BUTTON_5.json b/LSL2/OIEVENT/CLICK/REACTORPM_SRPT1.BUTTON_5.json new file mode 100644 index 0000000..5433c65 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTORPM_SRPT1.BUTTON_5.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, post_event\r\n\r\nVoid = send_event( @window:'.REACT_SERVS', 'OPTIONS' )\r\nVoid = post_event( @window:'.REACT_SERVS', 'LOSTFOCUS' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTORPM_SRPT1.NOT_COMPLETED.json b/LSL2/OIEVENT/CLICK/REACTORPM_SRPT1.NOT_COMPLETED.json new file mode 100644 index 0000000..3b5fca1 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTORPM_SRPT1.NOT_COMPLETED.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "Check = @CtrlEntId->check\r\n.complete_from->enabled = not( Check )\r\n.complete_thru->enabled = not( Check )\r\nif Check then\r\n .complete_from->text = ''\r\n .complete_thru->text = ''\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTORPM_SRPT1.PERFORM_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/REACTORPM_SRPT1.PERFORM_REPORT_BUTTON.json new file mode 100644 index 0000000..f1019ac --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTORPM_SRPT1.PERFORM_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, fieldcount, ex_vm_rem\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.REACTOR_PM' to DictReactorPMTable else\r\n Void = msg( '', 'Unable to open DICT.REACTOR_PM...' )\r\n return 0\r\nend\r\nLastDoneFrom = .last_done_from->text\r\nLastDoneThru = .last_done_thru->text\r\nNextDoneFrom = .next_done_from->text\r\nNextDoneThru = .next_done_thru->text\r\nCompleteFrom = .complete_from->text\r\nCompleteThru = .complete_thru->text\r\nReactServs = .react_servs->array<1>\r\nReactServs = ex_vm_rem(ReactServs)\r\nReactors = .reactors->array\r\nReactors = ex_vm_rem(Reactors)\r\nNotCompleted = .not_completed->check\r\nFirstSort = .sort_options_1->value\r\nSecondSort = .sort_options_2->value\r\nThirdSort = .sort_options_3->value\r\n\r\nif LastDoneFrom And LastDoneThru Then\r\n if LastDoneFrom <= LastDoneThru else\r\n MsgInfo = ''\r\n MsgInfo = 'Last Date Thru must be equal to or greater than Last Date From!' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n Return 0\r\n end \r\nEnd\r\n\r\nif NextDoneFrom And NextDoneThru Then\r\n if NextDoneFrom <= NextDoneThru else\r\n MsgInfo = ''\r\n MsgInfo = 'Next Date Thru must be equal to or greater than Next Date From!' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n Return 0\r\n End\r\nEnd\r\n\r\nif CompleteFrom and CompleteThru then\r\n if CompleteFrom <= CompleteThru else\r\n MsgInfo = ''\r\n MsgInfo = 'Complete Date Thru must be equal to or greater than Complete Date From!' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n Return 0\r\n End\r\nEnd\r\n \r\nRetVal = '' \r\nRetVal := LastDoneFrom:'*' ;*Last_Done\r\nRetVal := LastDoneThru:'*' ;*Last_Done\r\nRetVal := NextDoneFrom:'*' ;*Next_Done\r\nRetVal := NextDoneThru:'*' ;*Next_Done\r\nRetVal := CompleteFrom:'*' ;*Complete_Date\r\nRetVal := CompleteThru:'*' ;*Complete_Date\r\nRetVal := ReactServs:'*' ;*Reactor_Servers \r\nRetVal := Reactors:'*' ;*Reactors\r\nRetVal := NotCompleted:'*' ;*Incomplete\r\nRetVal := FirstSort:'*' ;*Order By\r\nRetVal := SecondSort:'*' ;*Then By 2\r\nRetVal := ThirdSort ;*Then By 3\r\n\r\nend_dialog( @window, RetVal )\r\n\r\n\t\t\r\nreturn 0\r\n\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTORPM_SRPT1.REACTORS.json b/LSL2/OIEVENT/CLICK/REACTORPM_SRPT1.REACTORS.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTORPM_SRPT1.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTORPM_SRPT1.REACT_SERVS.json b/LSL2/OIEVENT/CLICK/REACTORPM_SRPT1.REACT_SERVS.json new file mode 100644 index 0000000..29cdf4f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTORPM_SRPT1.REACT_SERVS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTORPM_SRPT1.SORT_OPTIONS_1.json b/LSL2/OIEVENT/CLICK/REACTORPM_SRPT1.SORT_OPTIONS_1.json new file mode 100644 index 0000000..ed9c9fc --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTORPM_SRPT1.SORT_OPTIONS_1.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\n\r\nOpt1 = .sort_options_1->Value\r\nOpt2 = .sort_options_2->Value\r\nOpt3 = .sort_options_3->Value\r\n\r\nIf Opt1 = Opt2 Or Opt2 = Opt3 Or Opt1 = Opt3 Then\r\n Msg001 = ''\r\n Msg001 := 'The same sort field has been selected|'\r\n Msg001 := 'for two or more options!'\r\n Void = msg('',Msg001)\r\nEnd\r\n\r\nReturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTORPM_SRPT1.SORT_OPTIONS_2.json b/LSL2/OIEVENT/CLICK/REACTORPM_SRPT1.SORT_OPTIONS_2.json new file mode 100644 index 0000000..38e3b08 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTORPM_SRPT1.SORT_OPTIONS_2.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\n\r\nOpt1 = .sort_options_1->Value\r\nOpt2 = .sort_options_2->Value\r\nOpt3 = .sort_options_3->Value\r\n\r\nIf Opt1 = Opt2 Or Opt2 = Opt3 Or Opt1 = Opt3 Then\r\n If Opt2 = 0 And Opt3 = 0 Else\r\n Msg001 = ''\r\n Msg001 := 'The same sort field has been selected|'\r\n Msg001 := 'for two or more options!'\r\n Void = msg('',Msg001)\r\n End \r\nEnd\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTORPM_SRPT1.SORT_OPTIONS_3.json b/LSL2/OIEVENT/CLICK/REACTORPM_SRPT1.SORT_OPTIONS_3.json new file mode 100644 index 0000000..5d05025 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTORPM_SRPT1.SORT_OPTIONS_3.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\n\r\nOpt1 = .sort_options_1->Value\r\nOpt2 = .sort_options_2->Value\r\nOpt3 = .sort_options_3->Value\r\n\r\nIf Opt1 = Opt2 Or Opt2 = Opt3 Or Opt1 = Opt3 Then\r\n If Opt2 = 0 And Opt3 = 0 Else\r\n Msg001 = ''\r\n Msg001 := 'The same sort field has been selected|'\r\n Msg001 := 'for two or more options!'\r\n Void = msg('',Msg001)\r\n End \r\nEnd\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG.BUTTON_18.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG.BUTTON_18.json new file mode 100644 index 0000000..44318fc --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG.BUTTON_18.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function start_window\r\n\r\nIf Get_Property('NDW_MAIN', 'VISIBLE') then\r\n AppMain = 'NDW_MAIN'\r\nend else\r\n AppMain = 'LSL_MAIN2'\r\nend\r\nVoid = start_window( 'REACTOR_MAINT_TODO', AppMain, '*CENTER', '', '' )\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG.ITEM_BUTTON.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG.ITEM_BUTTON.json new file mode 100644 index 0000000..20508d5 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG.ITEM_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, post_event\r\n\r\nVoid = send_event( @window:'.REACT_ITEMS', 'OPTIONS' )\r\nVoid = post_event( @window:'.REACT_ITEMS', 'LOSTFOCUS' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_AW.SAVE.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_AW.SAVE.json new file mode 100644 index 0000000..f9d9c78 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_AW.SAVE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nControls = get_property( @window, '@Controls' )\r\nRetVal = get_property( Controls, 'TEXT' )\r\nconvert @rm to @fm in RetVal\r\nend_dialog( @window, RetVal )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_LL.SAVE.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_LL.SAVE.json new file mode 100644 index 0000000..39bae2e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_LL.SAVE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nControls = get_property( @window, '@Controls' )\r\nRetVal = get_property( Controls, 'INVALUE' )\r\nconvert @rm to @fm in RetVal\r\nend_dialog( @window, RetVal )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_QUERY.BUTTON_4.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_QUERY.BUTTON_4.json new file mode 100644 index 0000000..20508d5 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_QUERY.BUTTON_4.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, post_event\r\n\r\nVoid = send_event( @window:'.REACT_ITEMS', 'OPTIONS' )\r\nVoid = post_event( @window:'.REACT_ITEMS', 'LOSTFOCUS' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_QUERY.BUTTON_5.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_QUERY.BUTTON_5.json new file mode 100644 index 0000000..5433c65 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_QUERY.BUTTON_5.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, post_event\r\n\r\nVoid = send_event( @window:'.REACT_SERVS', 'OPTIONS' )\r\nVoid = post_event( @window:'.REACT_SERVS', 'LOSTFOCUS' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_QUERY.BUTTON_6B.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_QUERY.BUTTON_6B.json new file mode 100644 index 0000000..47b3867 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_QUERY.BUTTON_6B.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, post_event\r\n\r\nVoid = send_event( @window:'.REACT_PROBS_CAT', 'OPTIONS' )\r\nVoid = post_event( @window:'.REACT_PROBS_CAT', 'LOSTFOCUS' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_QUERY.BUTTON_7.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_QUERY.BUTTON_7.json new file mode 100644 index 0000000..cc20d2b --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_QUERY.BUTTON_7.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, post_event\r\n\r\nVoid = send_event( @window:'.REACT_SERVS_CAT', 'OPTIONS' )\r\nVoid = post_event( @window:'.REACT_SERVS_CAT', 'LOSTFOCUS' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_QUERY.ENTRY_IDS.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_QUERY.ENTRY_IDS.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_QUERY.ENTRY_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..55ae6e4 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, fieldcount\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.REACTOR_LOG' to DictReactorLogTable else\r\n Void = msg( '', 'Unable to open DICT.REACTOR_LOG...' )\r\n return 0\r\nend\r\nSearchStr = ''\r\nEntryDateFrom = .entry_date_from->text\r\nEntryDateThru = .entry_date_thru->text\r\nStartDateFrom = .start_date_from->text\r\nStartDateThru = .start_date_thru->text\r\nEndDateFrom = .end_date_from->text\r\nEndDateThru = .end_date_thru->text\r\n*\r\nScheduled = .scheduled->check\r\nUnScheduled = .unscheduled->check\r\n*\r\nMaint = .maint->check\r\nPass = .Pass->check\r\nEntryIds = .entry_ids->array<1>\r\nReactItems = .react_items->array<1>\r\nReactServs = .react_servs->array<1>\r\nReactors = .reactors->array\r\nRProbsCat = .react_probs_cat->array<1>\r\nRServsCat = .react_servs_cat->array<1>\r\nswap @vm:@vm with '' in RProbsCat\r\nif RProbsCat[-1,1] = @vm then RProbsCat[-1,1] = ''\r\nswap @vm:@vm with '' in RServsCat\r\nif RServsCat[-1,1] = @vm then RServsCat[-1,1] = ''\r\nswap @vm:@vm with '' in EntryIds\r\nif EntryIds[-1,1] = @vm then EntryIds[-1,1] = ''\r\nswap @vm:@vm with '' in Reactors\r\nif Reactors[-1,1] = @vm then Reactors[-1,1] = ''\r\nswap @vm:@vm with '' in ReactItems\r\nif ReactItems[-1,1] = @vm then ReactItems[-1,1] = ''\r\nswap @vm:@vm with '' in ReactServs\r\nif ReactServs[-1,1] = @vm then ReactServs[-1,1] = ''\r\nif EntryDateFrom and EntryDateThru then\r\n SearchStr<-1> = 'ENTRY_DATE':@vm:EntryDateFrom:'...':EntryDateThru\r\nend else\r\n\tif EntryDateFrom then\r\n\t SearchStr<-1> = 'ENTRY_DATE':@vm:'>=':EntryDateFrom\r\n\tend\r\n\tif EntryDateThru then\r\n\t SearchStr<-1> = 'ENTRY_DATE':@vm:'<=':EntryDateThru\r\n\tend\r\nend\r\nif StartDateFrom and StartDateThru then\r\n SearchStr<-1> = 'START_DATE':@vm:StartDateFrom:'...':StartDateThru\r\nend else\r\n\tif StartDateFrom then\r\n\t SearchStr<-1> = 'START_DATE':@vm:'>=':StartDateFrom\r\n\tend\r\n\tif StartDateThru then\r\n\t SearchStr<-1> = 'START_DATE':@vm:'<=':StartDateThru\r\n\tend\r\nend\r\nif EndDateFrom and EndDateThru then\r\n SearchStr<-1> = 'END_DATE':@vm:EndDateFrom:'...':EndDateThru\r\nend else\r\n\tif EndDateFrom then\r\n\t SearchStr<-1> = 'END_DATE':@vm:'>=':EndDateFrom\r\n\tend\r\n\tif EndDateThru then\r\n\t SearchStr<-1> = 'END_DATE':@vm:'<=':EndDateThru\r\n\tend\r\nend\r\nif EntryIds <> '' then\r\n SearchStr<-1> = 'ENTRY_ID':@vm:EntryIds\r\nend\r\nif ReactItems <> '' then\r\n SearchStr<-1> = 'REACT_ITEM_IDS':@vm:ReactItems\r\nend\r\nif ReactServs <> '' then\r\n SearchStr<-1> = 'REACT_SERV_ID':@vm:ReactServs\r\nend\r\nif RProbsCat <> '' then\r\n SearchStr<-1> = 'REACT_PROB_CAT_ID':@vm:RProbsCat\r\nend\r\nif RServsCat <> '' then\r\n SearchStr<-1> = 'REACT_SERV_CAT_ID':@vm:RServsCat\r\nend\r\n*\r\nCatVar = ''\r\nif Maint then\r\n CatVar<1,-1> = 'M'\r\nend\r\nif Pass then\r\n CatVar<1,-1> = 'A'\r\nend\r\nif CatVar then\r\n SearchStr<-1> = 'CATEGORY':@vm:CatVar\r\nend\r\nif Reactors <> '' then\r\n SearchStr<-1> = 'REACTOR':@vm:Reactors\r\nend\r\n*\r\nSchedVar = ''\r\nif Scheduled then\r\n SchedVar<1,-1> = 1\r\nend\r\nif UnScheduled then\r\n SchedVar<1,-1> = 0\r\nend\r\nif SchedVar <> '' then\r\n SearchStr<-1> = 'SCHEDULED':@vm:SchedVar\r\nend\r\n\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'REACTOR_LOG', DictReactorLogTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting REACTOR_LOG records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n * RESORT THIS MESS ACCORDING TO MIKE\r\n Keys = key_sort( Keys, 'REACTOR_LOG', 'REACTOR':@fm:'REACT_PROB_CAT_DESC_INITIAL':@fm:'START_DATE', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_QUERY.REACTORS.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_QUERY.REACTORS.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_QUERY.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_QUERY.REACT_ITEMS.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_QUERY.REACT_ITEMS.json new file mode 100644 index 0000000..29cdf4f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_QUERY.REACT_ITEMS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_QUERY.REACT_PROBS_CAT.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_QUERY.REACT_PROBS_CAT.json new file mode 100644 index 0000000..29cdf4f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_QUERY.REACT_PROBS_CAT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_QUERY.REACT_SERVS.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_QUERY.REACT_SERVS.json new file mode 100644 index 0000000..29cdf4f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_QUERY.REACT_SERVS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_QUERY.REACT_SERVS_CAT.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_QUERY.REACT_SERVS_CAT.json new file mode 100644 index 0000000..29cdf4f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_QUERY.REACT_SERVS_CAT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT1.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT1.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..bb8b875 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT1.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, fieldcount\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nStartDateFrom = .start_date_from->text\r\nStartDateThru = .start_date_thru->text\r\nMaint = .maint->check\r\nPass = .Pass->check\r\nOther = .other->check\r\nProve = .prove->check\r\nEng = .eng->check\r\nReactors = .reactors->array\r\nSelServ = .reactorservice->selpos\r\nORServ = .reactorservice->list\r\nDetSum = .det_sum->text\r\nServiceEdit = .serviceedit->text\r\nServToExtract = ''\r\nScnt = fieldcount( SelServ, @fm )\r\nfor i = 1 to Scnt\r\n ServToExtract := ORServ>:@vm\r\nnext i\r\nServToExtract[-1,1] = ''\r\nif ServiceEdit <> '' then\r\n if ServToExtract <> '' then\r\n ServToExtract := @vm:ServiceEdit\r\n end else\r\n ServToExtract = ServiceEdit\r\n end\r\nend\r\nswap @vm:@vm with '' in Reactors\r\nif Reactors[-1,1] = @vm then Reactors[-1,1] = ''\r\nif StartDateFrom or StartDateThru then\r\n\tDirToPrint = .send_to_printer->text\r\n\tRetVal = StartDateFrom:'*':StartDateThru:'*':Reactors:'*':ServToExtract:'*':Maint:'*':Pass:'*':Other:'*':Prove:'*':Eng:'*':DetSum:'*':DirToPrint\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a from date or a thru date.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT1.REACTORS.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT1.REACTORS.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT1.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT1.WIZ_BUTTON.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT1.WIZ_BUTTON.json new file mode 100644 index 0000000..19921e2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT1.WIZ_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, entid, repository\r\n\r\nFirstPopup:\r\nOverRide = ''\r\nPopupId = entid( @appid<1>, 'POPUP', '', 'MAINT_WIZARD' )\r\nChoosenOpt = repository( 'EXECUTE', PopupId, @window, OverRide )\r\nif ChoosenOpt <> '' then\r\n * concatenate the choosen opt for the next popup\r\n SecondPopup:\r\n PopupId = entid( @appid<1>, 'POPUP', '', 'MAINT_WIZARD':ChoosenOpt )\r\n ChoosenOpt2 = repository( 'EXECUTE', PopupId, @window, OverRide )\r\n if ChoosenOpt2 <> '' then\r\n if len(ChoosenOpt2) = 1 then\r\n PopupId = entid( @appid<1>, 'POPUP', '', 'MAINT_WIZARD':ChoosenOpt:ChoosenOpt2 )\r\n ChoosenOpt3 = repository( 'EXECUTE', PopupId, @window, OverRide )\r\n if ChoosenOpt3 <> '' then\r\n .serviceedit->text = ChoosenOpt3\r\n end else\r\n goto SecondPopup\r\n end\r\n end else\r\n .serviceedit->text = ChoosenOpt2\r\n end\r\n end else\r\n goto FirstPopup\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT2.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT2.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..c69d2c0 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT2.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, fieldcount\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nStartDateFrom = .start_date_from->text\r\nStartDateThru = .start_date_thru->text\r\nReactors = .reactors->array\r\n\r\nswap @vm:@vm with '' in Reactors\r\nif Reactors[-1,1] = @vm then Reactors[-1,1] = ''\r\nif StartDateFrom or StartDateThru then\r\n\tDirToPrint = .send_to_printer->text\r\n\tRetVal = StartDateFrom:'*':StartDateThru:'*':Reactors:'*':DirToPrint\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a from date or a thru date.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT2.REACTORS.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT2.REACTORS.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT2.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT3.BUTTON_4.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT3.BUTTON_4.json new file mode 100644 index 0000000..20508d5 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT3.BUTTON_4.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, post_event\r\n\r\nVoid = send_event( @window:'.REACT_ITEMS', 'OPTIONS' )\r\nVoid = post_event( @window:'.REACT_ITEMS', 'LOSTFOCUS' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT3.BUTTON_5.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT3.BUTTON_5.json new file mode 100644 index 0000000..5433c65 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT3.BUTTON_5.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, post_event\r\n\r\nVoid = send_event( @window:'.REACT_SERVS', 'OPTIONS' )\r\nVoid = post_event( @window:'.REACT_SERVS', 'LOSTFOCUS' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT3.BUTTON_6.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT3.BUTTON_6.json new file mode 100644 index 0000000..06eb602 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT3.BUTTON_6.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, post_event\r\n\r\nVoid = send_event( @window:'.REACT_PROBS', 'OPTIONS' )\r\nVoid = post_event( @window:'.REACT_PROBS', 'LOSTFOCUS' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT3.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT3.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..d8ee118 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT3.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, fieldcount\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nStartDateFrom = .start_date_from->text\r\nStartDateThru = .start_date_thru->text\r\nReactors = .reactors->array\r\nDetSum = .det_sum->text\r\nReactItems = .react_items->array<1>\r\nReactProbs = .react_probs->array<1>\r\nReactServs = .react_servs->array<1>\r\n\r\nswap @vm:@vm with '' in ReactItems\r\nif ReactItems[-1,1] = @vm then ReactItems[-1,1] = ''\r\nswap @vm:@vm with '' in ReactProbs\r\nif ReactProbs[-1,1] = @vm then ReactProbs[-1,1] = ''\r\nswap @vm:@vm with '' in ReactServs\r\nif ReactServs[-1,1] = @vm then ReactServs[-1,1] = ''\r\nswap @vm:@vm with '' in Reactors\r\nif Reactors[-1,1] = @vm then Reactors[-1,1] = ''\r\nif StartDateFrom or StartDateThru then\r\n\tDirToPrint = .send_to_printer->text\r\n\tRetVal = StartDateFrom:'*':StartDateThru:'*':Reactors:'*':DetSum:'*':DirToPrint:'*':ReactItems:'*':ReactProbs:'*':ReactServs\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a from date or a thru date.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT3.REACTORS.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT3.REACTORS.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT3.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT3.REACT_ITEMS.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT3.REACT_ITEMS.json new file mode 100644 index 0000000..29cdf4f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT3.REACT_ITEMS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT3.REACT_PROBS.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT3.REACT_PROBS.json new file mode 100644 index 0000000..29cdf4f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT3.REACT_PROBS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT3.REACT_SERVS.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT3.REACT_SERVS.json new file mode 100644 index 0000000..29cdf4f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT3.REACT_SERVS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT4.BUTTON_5.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT4.BUTTON_5.json new file mode 100644 index 0000000..5433c65 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT4.BUTTON_5.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, post_event\r\n\r\nVoid = send_event( @window:'.REACT_SERVS', 'OPTIONS' )\r\nVoid = post_event( @window:'.REACT_SERVS', 'LOSTFOCUS' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT4.BUTTON_6.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT4.BUTTON_6.json new file mode 100644 index 0000000..06eb602 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT4.BUTTON_6.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, post_event\r\n\r\nVoid = send_event( @window:'.REACT_PROBS', 'OPTIONS' )\r\nVoid = post_event( @window:'.REACT_PROBS', 'LOSTFOCUS' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT4.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT4.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..26d7ddc --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT4.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, fieldcount, ex_vm_rem\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nStartDateFrom = .start_date_from->text\r\nStartDateThru = .start_date_thru->text\r\nReactors = .reactors->array\r\nReactors = ex_vm_rem( Reactors )\r\nServs = .react_servs->array<1>\r\nServs = ex_vm_rem( Servs )\r\nProbs = .react_probs->array<1>\r\nProbs = ex_vm_rem( Probs )\r\n\r\nif StartDateFrom or StartDateThru then\r\n\tDirToPrint = .send_to_printer->text\r\n\tRetVal = StartDateFrom:'*':StartDateThru:'*':Reactors:'*':Probs:'*':Servs:'*':DirToPrint\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a from date or a thru date.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT4.REACTORS.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT4.REACTORS.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT4.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT4.REACT_PROBS.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT4.REACT_PROBS.json new file mode 100644 index 0000000..29cdf4f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT4.REACT_PROBS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT4.REACT_SERVS.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT4.REACT_SERVS.json new file mode 100644 index 0000000..29cdf4f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_RPT4.REACT_SERVS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_SRPT1.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_SRPT1.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..d844f38 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_SRPT1.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare subroutine activate_save_select\r\ndeclare function msg, key_sort, utility, fieldcount, ex_vm_rem\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n$insert rlist_equates\r\n\r\nWithStmt = ''\r\n\r\nGrid = .grid->check\r\nif Grid then\r\n Grid = 'GRID '\r\nend else\r\n Grid = ''\r\nend\r\n\r\nStartDateFrom = .start_date_from->text\r\nStartDateThru = .start_date_thru->text\r\nReactors = .reactors->array\r\nReactors = ex_vm_rem(Reactors)\r\n\r\nif StartDateFrom = '' Or StartDateThru = '' then\r\n MsgInfo = ''\r\n MsgInfo = 'You must enter a date from and thru...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\n\r\nBegDteNum = Iconv(StartDateFrom,'D')\r\nEndDteNum = Iconv(StartDateThru,'D')\r\nDteDifNum = EndDteNum - BegDteNum\r\nIf DteDifNum < 0 Then\r\n MsgInfo = ''\r\n MsgInfo = 'Date From can not be greater than Date Thru...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\n\r\nProblemCategories = .react_probs_cat->array\r\nProblemCategories = ex_vm_rem(ProblemCategories<1>)\r\nServiceIDs = .react_servs->array\r\nServiceIDs = ex_vm_rem(ServiceIDs<1>)\r\n\r\nParameterString = ''\r\nParameterString := StartDateFrom:'*'\r\nParameterString := StartDateThru:'*'\r\nParameterString := Reactors:'*'\r\nParameterString := ProblemCategories:'*'\r\nParameterString := ServiceIDs:'*'\r\nParameterString := Grid\r\n\r\nend_dialog( @window, ParameterString )\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_SRPT1.PROBLEM_CATEGORY_BUTTON.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_SRPT1.PROBLEM_CATEGORY_BUTTON.json new file mode 100644 index 0000000..51aca3a --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_SRPT1.PROBLEM_CATEGORY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, post_event\r\n\r\n*DEBUG\r\nVoid = send_event( @window:'.REACT_PROBS_CAT', 'OPTIONS' )\r\nVoid = post_event( @window:'.REACT_PROBS_CAT', 'LOSTFOCUS' )\r\n\r\n*Void = send_event( @window:'.REACT_ITEMS', 'OPTIONS' )\r\n*Void = post_event( @window:'.REACT_ITEMS', 'LOSTFOCUS' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_SRPT1.REACTORS.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_SRPT1.REACTORS.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_SRPT1.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_SRPT1.REACT_PROBS_CAT.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_SRPT1.REACT_PROBS_CAT.json new file mode 100644 index 0000000..29cdf4f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_SRPT1.REACT_PROBS_CAT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_SRPT1.REACT_SERVS.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_SRPT1.REACT_SERVS.json new file mode 100644 index 0000000..29cdf4f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_SRPT1.REACT_SERVS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_SRPT1.SERVICE_ID_BUTTON.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_SRPT1.SERVICE_ID_BUTTON.json new file mode 100644 index 0000000..5433c65 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_SRPT1.SERVICE_ID_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, post_event\r\n\r\nVoid = send_event( @window:'.REACT_SERVS', 'OPTIONS' )\r\nVoid = post_event( @window:'.REACT_SERVS', 'LOSTFOCUS' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_SRPT2.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_SRPT2.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..1d9e68b --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_SRPT2.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, fieldcount\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nStartDateFrom = .start_date_from->text\r\nStartDateThru = .start_date_thru->text\r\nReactors = .reactors->array\r\nswap @vm:@vm with '' in Reactors\r\nif Reactors[-1,1] = @vm then Reactors[-1,1] = ''\r\nif StartDateFrom or StartDateThru then\r\n\tDirToPrint = .send_to_printer->text\r\n\tRetVal = StartDateFrom:'*':StartDateThru:'*':Reactors\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a from date or a thru date.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_LOG_SRPT2.REACTORS.json b/LSL2/OIEVENT/CLICK/REACTOR_LOG_SRPT2.REACTORS.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_LOG_SRPT2.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_MAINT_TODO.BUTTON_3.json b/LSL2/OIEVENT/CLICK/REACTOR_MAINT_TODO.BUTTON_3.json new file mode 100644 index 0000000..35a2c69 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_MAINT_TODO.BUTTON_3.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, end_window, fieldcount, utility, send_message, send_event\r\ndeclare subroutine rlist, record_lock, create_note, ErrMsg, Set_Property\r\n\r\n$insert logical\r\n$insert rlist_equates\r\n$insert msg_equates\r\n$insert react_servs_equ\r\n$insert REACTOR_PM_EQU\t\r\n$INSERT REACTOR_EQUATES\r\n\r\n\r\nRETURN 0\r\n\r\nVoid = utility( 'CURSOR', 'H' )\r\nSet_Property(@WINDOW:'.LIST_1','VISIBLE',0)\r\n\r\nOPEN 'REACTOR_PM' TO RPMTable ELSE\r\n\tErrMsg('Unable to open REACTOR_PM table...')\r\n\tRETURN 0\r\nEND\r\n\r\nEndDt = OConv(Date() + 60, 'D4/')\r\n\r\nStatement = 'SELECT REACTOR_PM WITH COMPLETE_DATE = \"\" AND WITH NEXT_DONE < ':QUOTE(EndDt)\r\nRList( Statement, target_activelist$, '', '', '' )\r\n\r\n\r\nReactNos = ''\r\nNextDueDts = ''\r\nServiceIDs = ''\r\n\r\nDone = 0\r\nLOOP\r\n\tREADNEXT RPMKey ELSE Done = 1\r\nUNTIL Done\r\n\tREAD RPMRec FROM RPMTable,RPMKey THEN\r\n\t\tReactNo\t\t= RPMRec\r\n\t\tServiceID\t= RPMRec\r\n\t\tNextDueDt\t= RPMRec\r\n\t\t\r\n\t\tLOCATE ReactNo IN ReactNos BY 'AR' USING @FM SETTING RPos ELSE\r\n\t\t\tReactNos = INSERT(ReactNos,RPos,0,0,ReactNo)\r\n\t\tEND\r\n\t\t\r\n\t\tLOCATE NextDueDt IN NextDueDts BY 'AR' USING @VM SETTING DPos ELSE\r\n\t\t\tNextDueDts = INSERT(NextDueDts,RPos,DPos,0,NextDueDt)\r\n\t\t\tServiceIDs = INSERT(ServiceIDs,RPos,DPos,0,ServiceID)\r\n\t\tEND\r\n\tEND\t;* End of RPMRec read\r\nREPEAT\r\n\r\n\r\n\r\nDisplay = ''\r\n\r\nReactCnt = COUNT(ReactNos,@FM) + (ReactNos NE '')\r\n\r\nPrevReactNo = ''\r\nFOR R = 1 TO ReactCnt\r\n\tReactNo = ReactNos\r\n\t\r\n\tIF ReactNo NE PrevReactNo THEN\r\n\t\tReactRec\t= XLATE('REACTOR',ReactNo,'','X')\r\n\t\tReactType\t= OCONV(ReactRec,'[REACT_TYPE_CONV]')\r\n\r\n\t\tReactDesc\t= ReactRec\r\n\t\tPrevReactNo = ReactNo\r\n\t\tIF PrevReactNo NE '' THEN\r\n\t\t\tDisplay<-1> = STR('-',100)\r\n\t\tEND\r\n\t\tDisplay<-1> = '1-1: React No ':ReactNo:' ':ReactType:' ':ReactDesc\r\n\tEND\r\n\t\r\n\tndCnt = COUNT(NextDueDts,@VM) + (NextDueDts NE '')\r\n\t\r\n\tFOR I = 1 TO ndCnt\r\n\t\tNextDueDt\t= OCONV(NextDueDts,'D4/')\r\n\t\tServiceID \t= ServiceIDs\r\n\t\tService\t\t= XLATE('REACT_SERVS',ServiceID,REACT_SERVS_DESCRIPTION$,'X' )\r\n\t\t\r\n\t\tDisplay<-1> = '2-2: Due On: ':NextDueDt:' ':ServiceID:' ':Service\r\n\tNEXT I\r\n\r\nNEXT R\r\nDEBUG\r\n\r\nopen 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table...' )\r\n return 0\r\nend\r\n\r\nrecord_lock( ConfigTable, 'REACTOR_TODO_LIST', 'REACTOR_TODO_LIST' )\r\nwrite '' on ConfigTable, 'REACTOR_TODO_LIST' else\r\n Void = msg( '', 'Unable to write to CONFIG, REACTOR_TODO_LIST...' )\r\n return 0\r\nend\r\n\r\n\r\nwrite Display on ConfigTable, 'REACTOR_TODO_LIST' else\r\n Void = msg( '', 'Unable to write to CONFIG, REACTOR_TODO_LIST...' )\r\n return 0\r\nend\r\n\r\nunlock ConfigTable, 'REACTOR_TODO_LIST' else\r\n Void = msg( '', 'Unable to unlock CONFIG REACTOR_TODO_LIST...' )\r\n return 0\r\nend\r\nVoid = send_event( @window, 'CREATE' )\r\nVoid = send_message( @window:'.LIST_1', 'EXPAND', 0, 0 )\r\n.list_1->visible = 1\r\nVoid = utility( 'CURSOR', 'A' )\r\nreturn 0\r\n\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_MAINT_TODO.BUTTON_4.json b/LSL2/OIEVENT/CLICK/REACTOR_MAINT_TODO.BUTTON_4.json new file mode 100644 index 0000000..1d28cc5 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_MAINT_TODO.BUTTON_4.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, set_printer, get_printer, msg, fieldcount, send_event, Printer_Select\r\ndeclare subroutine security_err_msg, Print_Reactor_Maint_Todo\r\n$insert security_rights_equ\r\n$insert oiprint_equates\r\n$insert msg_equates\r\n\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN\r\n\tPRINT_REACTOR_MAINT_TODO()\r\n\tRETURN 0\r\nEND\r\n\r\n\r\n\r\nVoid = send_event( @window:'.BUTTON_2', 'CLICK' )\r\nCurList = .list_1->list\r\nswap '1: ' with '' in CurList\r\nTvar = str( '-', 98 )\r\nswap Tvar with '' in CurList\r\nswap '2-2:' with '' in CurList\r\n\r\nPrintPath = Printer_Select('',1)\t\t;* Get default printer path\r\nStat = set_printer( 'INIT', '', '', '':@fm:'':@fm:0:@fm:'', '','',PrintPath )\r\n\r\ngosub CheckErr\r\nFont = \"Courier New,12,L,1\"\r\nconvert ',' to @fm in Font\r\nTfont = Font\r\nStat = set_printer( 'FONT', Font )\r\ngosub CheckErr\r\nVoid = set_printer( 'FONT', Font )\r\ngosub CheckErr\r\nVoid = set_printer( 'TEXT', '' )\r\nTable = ''\r\nTable = CurList\r\nColTableInfo = '<+11160'\r\nRCnt = fieldcount( CurList, @fm )\r\nfor i = 1 to RCnt\r\n Table = CurList\r\n if len( Table ) > 3 then\r\n Type = TB_ALL\r\n end else\r\n Type = TB_NONE\r\n end\r\n\tx = Set_Printer(\"ADDTABLE\", ColTableInfo, '', Table, '', '', 1, Type)\r\nnext i\r\nstat = set_printer( 'TERM' ) \r\ngosub CheckErr \r\nRETURN 0\r\n\r\n*===========================================================================*\r\nCheckErr:\r\n if stat < 0 then\r\n goto FatalExit\r\n end\r\nreturn \r\n\r\n*===========================================================================*\r\nFatalExit:\r\n Void = msg( '', Stat )\r\n Stat = set_printer( 'TERM' )\r\nreturn \r\n\r\n*===========================================================================*" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_MAINT_TODO.EXPAND_ALL.json b/LSL2/OIEVENT/CLICK/REACTOR_MAINT_TODO.EXPAND_ALL.json new file mode 100644 index 0000000..5cf8282 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_MAINT_TODO.EXPAND_ALL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_message\r\n\r\nVoid = send_message( @window:'.LIST_1', 'EXPAND', 0, 2 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_MAINT_TODO.MIN_ALL.json b/LSL2/OIEVENT/CLICK/REACTOR_MAINT_TODO.MIN_ALL.json new file mode 100644 index 0000000..2c0aeb0 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_MAINT_TODO.MIN_ALL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_message\r\n\r\nVoid = send_message( @window:'.LIST_1', 'EXPAND', 0, 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_PM.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/REACTOR_PM.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_PM.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_PM_QUERY.BUTTON_5.json b/LSL2/OIEVENT/CLICK/REACTOR_PM_QUERY.BUTTON_5.json new file mode 100644 index 0000000..5433c65 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_PM_QUERY.BUTTON_5.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, post_event\r\n\r\nVoid = send_event( @window:'.REACT_SERVS', 'OPTIONS' )\r\nVoid = post_event( @window:'.REACT_SERVS', 'LOSTFOCUS' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_PM_QUERY.NOT_COMPLETED.json b/LSL2/OIEVENT/CLICK/REACTOR_PM_QUERY.NOT_COMPLETED.json new file mode 100644 index 0000000..3b5fca1 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_PM_QUERY.NOT_COMPLETED.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "Check = @CtrlEntId->check\r\n.complete_from->enabled = not( Check )\r\n.complete_thru->enabled = not( Check )\r\nif Check then\r\n .complete_from->text = ''\r\n .complete_thru->text = ''\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_PM_QUERY.REACT_SERVS.json b/LSL2/OIEVENT/CLICK/REACTOR_PM_QUERY.REACT_SERVS.json new file mode 100644 index 0000000..29cdf4f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_PM_QUERY.REACT_SERVS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_UTIL_SRPT1.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/REACTOR_UTIL_SRPT1.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..4bad3b5 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_UTIL_SRPT1.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog, ErrMsg\r\ndeclare function msg\r\n\r\n$insert msg_equates\r\n\r\nStartDateFrom = .start_date_from->text\r\nStartDateThru = .start_date_thru->text\r\nReactors = .reactors->array\r\n\r\nLOOP\r\nUNTIL Reactors[-1,1] NE @VM\t\t;* Strips trailing @VM's on Reactor array\r\n\tReactors[-1,1] = ''\r\nREPEAT\r\n\r\nif StartDateFrom = '' Or StartDateThru = '' then\r\n MsgInfo = ''\r\n MsgInfo = 'You must enter a date from and thru...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\n\r\nBegDteNum = Iconv(StartDateFrom,'D')\r\nEndDteNum = Iconv(StartDateThru,'D')\r\nDteDifNum = EndDteNum - BegDteNum\r\nIf DteDifNum < 0 Then\r\n MsgInfo = ''\r\n MsgInfo = 'Date From can not be greater than Date Thru...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\nIf DteDifNum > 31 then \r\n MsgInfo = ''\r\n MsgInfo = 'Difference in dates can not be greater than 31 days...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\n\r\nCustNos = Get_Property(@WINDOW:'.CUST_INFO','ARRAY')<1,1>\t;* First column\r\n\r\nLOOP\r\n\tTestVal = CustNos[-1,'B':@VM]\r\nUNTIL TestVal NE '' OR CustNos = ''\r\n\tCustNos[-1,1] = ''\r\nREPEAT\r\n\r\nExport = Get_Property(@WINDOW:'.EXPORT','CHECK')\r\n\r\n\r\nend_dialog( @window, StartDateFrom:@FM:StartDateThru:@FM:Reactors:@FM:CustNos:@FM:Export )\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_UTIL_SRPT1.REACTORS.json b/LSL2/OIEVENT/CLICK/REACTOR_UTIL_SRPT1.REACTORS.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_UTIL_SRPT1.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACTOR_UTIL_SRPT2.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/REACTOR_UTIL_SRPT2.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..7dfe5af --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACTOR_UTIL_SRPT2.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare subroutine activate_save_select\r\ndeclare function msg, key_sort, utility, fieldcount, ex_vm_rem, Get_Property\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n$insert rlist_equates\r\n\r\nWithStmt = ''\r\n\r\nStartDateFrom = .start_date_from->text\r\nStartDateThru = .start_date_thru->text\r\n\r\nif StartDateFrom = '' Or StartDateThru = '' then\r\n MsgInfo = ''\r\n MsgInfo = 'You must enter a date from and thru...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\n\r\nBegDteNum = Iconv(StartDateFrom,'D')\r\nEndDteNum = Iconv(StartDateThru,'D')\r\nDteDifNum = EndDteNum - BegDteNum\r\nIf DteDifNum < 0 Then\r\n MsgInfo = ''\r\n MsgInfo = 'Date From can not be greater than Date Thru...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\n\r\n*If DteDifNum > 31 then \r\n* MsgInfo = ''\r\n* MsgInfo = 'Difference in dates can not be greater than 31 days...'\r\n* MsgInfo = '!'\r\n* Void = msg( '', MsgInfo )\r\n* return 0\r\n*end\r\n\r\n\r\n@user0 = BegDteNum\r\n@user1 = EndDteNum\r\n\r\nCustNo = Get_Property(@WINDOW:'.CUST_INFO','ARRAY')<1,1>\r\n\r\n\r\nLOOP\r\n\tTestVal = CustNo[-1,'B':@VM]\r\nUNTIL TestVal NE '' OR CustNo = ''\r\n\tCustNo[-1,1] = ''\r\nREPEAT\r\n\r\nend_dialog( @window, StartDateFrom:'*':StartDateThru:'*':'':'*':CustNo )\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_HRS.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/REACT_HRS.CANCEL_BUTTON.json new file mode 100644 index 0000000..75519b1 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_HRS.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\ndeclare subroutine end_dialog\r\n\r\nopen 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\nunlock ConfigTable, 'REACT_HRS' else\r\n Void = msg( '', 'Unable to unlock REACT_HRS')\r\nend\r\nend_dialog( @window, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_HRS.REACT_INFO.json b/LSL2/OIEVENT/CLICK/REACT_HRS.REACT_INFO.json new file mode 100644 index 0000000..66c58df --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_HRS.REACT_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 1 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_HRS.SAVE_BUTTON.json b/LSL2/OIEVENT/CLICK/REACT_HRS.SAVE_BUTTON.json new file mode 100644 index 0000000..2dc70e7 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_HRS.SAVE_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\ndeclare subroutine end_dialog\r\n$insert master_calib_list_equ\r\n\r\nopen 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\n\r\nRecord = .react_info->array\r\n\r\nwrite Record on ConfigTable, 'REACT_HRS' else\r\n Void = msg( '', 'Unable to write REACT_HRS in CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\nunlock ConfigTable, 'REACT_HRS' else\r\n Void = msg( '', 'Unable to unlock REACT_HRS in CONFIG table' )\r\nend\r\nend_dialog( @window, '' )\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_ITEMS.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/REACT_ITEMS.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_ITEMS.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_ITEMS.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/REACT_ITEMS.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_ITEMS.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_ITEMS.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/REACT_ITEMS.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_ITEMS.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_ITEMS.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/REACT_ITEMS.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_ITEMS.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_ITEMS.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/REACT_ITEMS.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_ITEMS.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_ITEMS.VIEW_GRAPHITE.json b/LSL2/OIEVENT/CLICK/REACT_ITEMS.VIEW_GRAPHITE.json new file mode 100644 index 0000000..6528661 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_ITEMS.VIEW_GRAPHITE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE SUBROUTINE obj_Appwindow\r\n\r\nGRNo = Get_Property(@WINDOW:'.GR_NO','DEFPROP')\r\n\r\nIF GRNo NE '' THEN\r\n\tobj_Appwindow('ViewRelated','GRAPHITE':@RM:GRNo)\r\nEND\r\n\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_ITEMS.VIEW_TUBE.json b/LSL2/OIEVENT/CLICK/REACT_ITEMS.VIEW_TUBE.json new file mode 100644 index 0000000..9aabadb --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_ITEMS.VIEW_TUBE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE SUBROUTINE obj_Appwindow\r\n\r\nTubeID = Get_Property(@WINDOW:'.TUBE_ID','DEFPROP')\r\n\r\nIF TubeID NE '' THEN\r\n\tobj_Appwindow('ViewRelated','TUBE':@RM:TubeID)\r\nEND\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_LL_SERV.BUTTON_3.json b/LSL2/OIEVENT/CLICK/REACT_LL_SERV.BUTTON_3.json new file mode 100644 index 0000000..d822fdd --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_LL_SERV.BUTTON_3.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, start_window, send_event\r\n$insert logical\r\n\r\nIf Get_Property('NDW_MAIN', 'VISIBLE') then\r\n AppMain = 'NDW_MAIN'\r\nend else\r\n AppMain = 'LSL_MAIN2'\r\nend\r\n\r\nLLInfo = .ll_info->array\r\nSelPos = .ll_info->selpos\r\nCol = SelPos<1>\r\nRow = SelPos<2>\r\nReactorToPass = LLInfo<1,Row>\r\nReactorLogID = dialog_box( 'REACT_MODE_CHG', @window, ReactorToPass:'*':'':'*':'':'*':true$ )\r\nif num( ReactorLogID ) then\r\n Void = start_window( 'REACTOR_LOG', AppMain, ReactorLogID:'*CENTER', '', '' )\r\nend\r\nVoid = send_event( @window, 'CLOSE' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_LL_SERV.PRINT.json b/LSL2/OIEVENT/CLICK/REACT_LL_SERV.PRINT.json new file mode 100644 index 0000000..c3867db --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_LL_SERV.PRINT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, set_printer, get_printer, msg, fieldcount, ex_vm_rem,Printer_Select\r\ndeclare subroutine security_err_msg\r\n$insert security_rights_equ\r\n$insert oiprint_equates\r\n$insert msg_equates\r\n\r\nPrintPath = Printer_Select('',1)\t\t;* Get default printer path\r\nStat = set_printer( 'INIT', '', '', .25:@fm:.25:@fm:.25:@fm:.25, 0 ,'',PrintPath)\r\n\r\nFont = \"Times New Roman,24,C,1\"\r\nconvert ',' to @fm in Font\r\nHf = Font\r\nStat = set_printer( 'FONT', Font )\r\nVoid = set_printer( 'TEXT', 'Leak & Lamp Information' )\r\nVoid = set_printer( 'TEXT', '' )\r\nFont<2> = 14\r\nVoid = set_printer( 'FONT', Font )\r\nTable2 = .ll_info->list\r\nTable = 'Reactor#':@vm:'Last Date':@vm:'Last Time':@vm:'Log ID':@vm:'Hrs Since LL'\r\nVoid = Set_Printer( 'ADDTABLE', '^+1440':@vm:'^+1440':@vm:'^+1440':@vm:'^+1440':@vm:'^+1440', '', Table, '','','', TB_ALL:@fm:'C' )\r\nVoid = Set_Printer( 'ADDTABLE', '^+1440':@vm:'^+1440':@vm:'^+1440':@vm:'^+1440':@vm:'^+1440', '', Table2, '','', 1, TB_ALL:@fm:'C' )\r\nstat = set_printer( 'TERM' ) \r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_MODE_CHG.APPLY.json b/LSL2/OIEVENT/CLICK/REACT_MODE_CHG.APPLY.json new file mode 100644 index 0000000..23fd380 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_MODE_CHG.APPLY.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, NextKey, next_key, rowexists, Get_Status, Logging_Services, Environment_Services\r\ndeclare subroutine end_dialog, record_lock, obj_React_Mode, ErrMsg, obj_React_Status, Logging_Services\r\n\r\n$insert logical\r\n$insert react_mode_equ\r\n$INSERT REACTOR_EQUATES\r\n$insert reactor_log_equ\r\n$insert react_util_equ\r\n$insert wo_log_equ\r\n$insert msg_equates\r\n$insert REACTOR_CHILD_KEY_IDS_EQUATES\r\n\r\nCurTime = time()\r\nCurDate = date()\r\n\r\nLogPath = Environment_Services('GetApplicationRootPath') : '\\ReactMode\\LogFiles'\r\n\r\nDate = Oconv(Date(), 'D4/')\r\nLogFileName = Date[7, 4] : '-' : Date[1, 2] : '-' : Date[4, 2] : ' ReactMode Log.csv'\r\nHeaders = 'Logging DTM' : @FM : 'Description'\r\nColumnWidths = 20 : @FM : 250\r\nobjLog = Logging_Services('NewLog', LogPath, LogFilename, CRLF$, ' ', Headers, ColumnWidths, False$, False$)\r\n\r\nLeakLampAutoFlag\t= ( Get_Property( @window, '@LeakLampAutoFlag' ) = 1 )\r\n\r\nCurReactModeSvc\t\t= Get_Property(@WINDOW:'.REACTMODESVC','TEXT')\t;* .reactmodesvc->text\r\n\r\nReactProbCat = trim( field( CurReactModeSvc, '|', 1 ) )\r\n\r\nif ReactProbCat <> '' then\r\n\tif rowexists( 'REACT_PROB_CAT', ReactProbCat ) else\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'You must choose a VALID Reactor Problem Category.'\r\n\t MsgInfo = 'H'\r\n\t Void = msg( '', MsgInfo )\r\n\t return 0 \r\n\tend\r\nend\r\n\r\nCurMode = Get_Property(@WINDOW:'.MODE','DEFPROP')\t\t;*.mode->text\r\nNoteText = Get_Property(@WINDOW:'.NOTE','DEFPROP')\t\t;*Note contents\r\nCurReactor = .reactor_no->text\r\n\r\nLogData = ''\r\nLogData<1> = Oconv(Date(), 'D4/') : ' ' : Oconv(Time(), 'MTS') ; // Logging DTM\r\nLogData<2> = 'Reactor No: ' : CurReactor : ' - Requested Mode Change: ' : CurMode\r\nLogging_Services('AppendLog', objLog, LogData, @RM, @FM, False$)\r\n\r\n\r\nIF Get_Property( @WINDOW, '@Mode' )[1,11] NE 'Maintenance' THEN\r\n\tIF NoteText = '' AND LEN(NoteText) < 3 THEN\r\n\t\t* Note Text appears to be null\r\n\t\tErrMsg('Note / Reason for Change must be filled in.')\t\t;* Reason not required coming out of maintenance\r\n\t\tRETURN 0\r\n\tEND\r\nEND\r\n\r\nif CurMode[1,11] = ( 'Maintenance' ) and ( CurReactModeSvc = '' ) then\r\n MsgInfo = ''\r\n MsgInfo = 'You must choose a Reactor Problem Category.'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\n\r\n* IF THERE IS AN RUID THEN WE NEED TO CLOSE OUT THE PRIOR MODE\r\n\r\n\r\nopen 'REACT_UTIL' to ReactUtilTable else\r\n void = msg( '', 'Unable to open REACT_UTIL table...' )\r\n return 0\r\nend\r\n\r\n* ReactUtilID as found in the 'REACT_MODE':ReactNo record in the CONFIG table\r\n\r\nTReactUtilID = .ruid->text\r\n\r\nif TReactUtilID then\r\n * CHECK TO SEE IF THEY HAVE ENTERED THE REACTOR LOG INFO IF IT IS MAINTENANCE MODE\r\n ReactorLogID = ''\r\n \r\n if get_property( @window, '@Mode' )[1,11] = 'Maintenance' then \r\n CurMaintID = xlate( 'REACT_UTIL', TReactUtilID, react_util_reactor_log_id$, 'X' )\r\n if ( CurMaintID <> '' ) then\r\n CurMaintRec = xlate( 'REACTOR_LOG', CurMaintID, '', 'X' )\r\n end\r\n end\r\n\r\n\r\n record_lock( ReactUtilTable, 'REACT_UTIL', TReactUtilID )\r\n \r\n RUtilRec = ''\r\n RUtilRec = xlate( 'REACT_UTIL', TReactUtilID, '', 'X' )\r\n RUtilRec = CurDate\r\n RUtilRec = CurTime\r\n RUtilRec = @user4\r\n \r\n write RUtilRec on ReactUtilTable, TReactUtilID else\r\n* Void = msg( '', 'Unable to write ':TReactUtilID:' on REACT_UTIL...' )\r\n* return 0\r\n end\r\n \r\n unlock ReactUtilTable, TReactUtilID else\r\n* Void = msg( '', 'Unable to unlock REACT_UTIL ':TReactUtilID:'...' )\r\n* return 0\r\n end\r\n \r\nend\r\n\r\n**********************************************************************************\r\n* WRITE OUT NEW MODE INFORMATION\r\n\r\nKeyToUse = next_key( 'REACT_UTIL', ReactUtilTable, 'NEXT', '' )\r\nRUtilRec = ''\r\nRUtilRec = CurReactor\r\nRUtilRec = NoteText\r\n\r\n \r\nRMode = ''\r\n\r\nReactorLogID = ''\r\n\r\n* * * * * Added 3/27/2004 by John C. Henry, J.C. Henry, Inc. - Added popup for maintenance of Mode Codes\r\n\r\nPopupData = XLATE('SYSREPOSPOPUPS','LSL2**REACTOR_MODE',8,'X')\r\n\r\nFOR I = 1 TO COUNT(PopupData,@VM) + (@VM NE '')\r\n\tStatusDesc = PopupData<1,I,2>\r\nUNTIL StatusDesc = CurMode\r\nNEXT I\r\n\r\nRMode = PopupData<1,I,1>\r\n\r\nIF RMode = 'M' OR RMode = 'J' THEN ReactorLogID = 'CreateAReactorLogEntry'\r\n\r\n* * * * * End of changes.\r\n\r\n\r\nRUtilRec = RMode\r\nRUtilRec = CurDate\r\nRUtilRec = CurTime\r\nRUtilRec = @user4\r\n\r\n\r\nTwo = .wo->text\r\nif Two <> '' then\r\n * called from processing windows\r\n RUtilRec = Two\r\nend else\r\n * called from main menu so work order not passed \r\n * we do have a lock so we can use the previous \r\n * work order---in other words it has not changed\r\n Two = xlate( 'REACT_UTIL', .ruid->text, react_util_wo$, 'X' ) \r\n RUtilRec = Two\r\nend\r\n\r\nRUtilRec = xlate( 'WO_LOG', Two[1,6], wo_log_cust_no$, 'X' )\t\t\t;* Added [1,6] for WO Step mods 7/28/2005 JCH\r\n\r\n********************************************************************************************************\r\n\r\n* NOW IF IT IS MAINTENANCE MODE, CREATE A REACTOR LOG ENTRY AND ASSIGN TO REACT_UTIL_REACTOR_LOG_ID$\r\n\r\nif ( ReactorLogID <> '' ) then\r\n ReactorLogID = ''\r\n\topen 'REACTOR_LOG' to RLTable else\r\n*\t Void = msg( '', 'Unable to open REACTOR_LOG...' )\r\n*\t return 0\r\n\tend\r\n\t// Already set at top of event handler. No need to set this again.\r\n * CurDate = date()\r\n * CurTime = time()\r\n EntryId = @user4\r\n\tReactorLogID = NextKey( 'REACTOR_LOG' )\r\n\tRLRec = ''\r\n\tRLRec = CurDate\r\n\tRLRec = CurTime\r\n\tRLRec = CurReactor\r\n\tRLRec = 'M' ;* for maintenance\r\n\tRLRec = EntryId\t\t\r\n\tRLRec = CurDate\r\n\tRLRec = KeyToUse\r\n\tRLRec = trim( field( .reactmodesvc->text, '|', 1 ) )\r\n\t\r\n\tif LeakLampAutoFlag then\r\n\t RLRec = 188\r\n\t RLRec = 1\r\n\t RLRec = 25\r\n\tend\r\n\t\r\n\twrite RLRec on RLTable, ReactorLogID else\r\n*\t void = msg( '', 'Unable to write ':ReactorLogID:' on REACTOR_LOG...' )\r\n*\t return 0\r\n\tend\r\n\t\r\nend\r\n\r\nRUtilRec = ReactorLogID\r\n\r\nwrite RUtilRec on ReactUtilTable, KeyToUse else\r\n* Void = msg( '', 'Unable to write ':KeyToUse:' on REACT_UTIL...' )\r\n* return 0\r\nend\r\n\r\nunlock ReactUtilTable, KeyToUse else\r\n* Void = msg( '', 'Unable to unlock REACT_UTIL ':KeyToUse:'...' )\r\n* return 0\r\nend\r\nVoid = next_key( 'REACT_UTIL', ReactUtilTable, 'UPDATE', KeyToUse )\r\n\r\nopen 'CONFIG' to ConfigTable else\r\n* Void = msg( '', 'Unable to open CONFIG table...' )\r\n* return 0\r\nend\r\nRec = ''\r\nRec = .mode->text\r\nRec = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\nRec = oconv( date(), 'D4/' )\r\nRec = oconv( time(), 'MTH' )\r\nRec = KeyToUse\r\nRec = ReactorLogID\r\n\r\nif .reactmodesvc->visible then\r\n Rec = .reactmodesvc->text\r\nend else\r\n Rec = ''\r\nend\r\n\r\nif .note->visible then\r\n Rec = .note->text\r\nend else\r\n Rec = ''\r\nend\r\n\r\nReactNo = Get_Property(@WINDOW:'.REACTOR_NO','TEXT')\r\nCurrDTM = Rec:\" \":Rec\r\n\r\n*PrevModeKey = XLATE('REACTOR',ReactNo,REACTOR_CURR_MODE_KEY$,'X')<1,1>\t;* This gets to MV'd if there are problems in the data JCH\r\nPrevModeKey = Xlate('REACTOR_CHILD_KEY_IDS', ReactNo, REACTOR_CHILD_KEY_IDS_REACT_MODE_KEY_IDS$, 'X')<1, 1>\r\nOpenDTM\t= FIELD(PrevModeKey,'*',2)\r\nOpenDTM = OCONV(OpenDTM,'DT4/^S')\r\n\r\nMode\t= Rec\r\n\r\nRecName = 'REACT_MODE':ReactNo\r\n\r\n\r\n* * * * * Changes by JCH on 11/5/2007 * * * * *\r\n\r\nCurrMode = OCONV(XLATE('REACTOR',ReactNo,'CURR_MODE','X'),'[REACT_MODE_CONV]')\r\nNewMode\t = Get_Property(@WINDOW:'.MODE','TEXT')\r\nProdModes = 'Production':@VM\r\nProdModes := 'Production (incr sampling)'\r\n\r\nLogData = ''\r\nLogData<1> = Oconv(Date(), 'D4/') : ' ' : Oconv(Time(), 'MTS') ; // Logging DTM\r\nLogData<2> = 'Reactor No: ' : CurReactor : ' - Current Mode: ' : CurrMode : ' - New Mode: ' : NewMode\r\nLogging_Services('AppendLog', objLog, LogData, @RM, @FM, False$)\r\n\r\n*IF NewMode NE CurrMode AND NewMode NE '' THEN\r\n\r\n\tLOCATE CurrMode IN ProdModes USING @VM SETTING DUMMY THEN\r\n\t\r\n\t\tLOCATE NewMode IN ProdModes USING @VM SETTING DUMMY ELSE\r\n\t\t\r\n\t\t\tOutOfProdDTM = Rec:' ':Rec\r\n\t\t\t\r\n\t\t\tobj_React_Status('SetOutOfProdDTM',ReactNo:@RM:OutOfProdDTM)\r\n\t\t\t\r\n\t\t\tIF Get_Status(errCode) THEN\r\n\t\t\t\tErrMsg(errCode)\r\n\t\t\tEND\r\n\t\tEND\t\t;* End of check on New Mode\r\n\tEND\t\t;* End of check on Current Mode\r\n*END\t\t;* End of check for a CHANGE in Mode\r\n\r\n* * * End of changes * * * * *\r\n\r\n\r\nWRITE Rec ON ConfigTable,RecName THEN\r\n\r\n\r\n*\tIF NewMode NE CurrMode AND NewMode NE '' THEN\r\n\r\n\r\n\t\tIF CurrMode NE '' THEN\r\n\t\t\tcrParms = ReactNo\r\n\t\t\tcrParms := @RM:OpenDTM\r\n\t\t\tcrParms := @RM:CurrDTM\r\n\t\t\tcrParms := @RM:@USER4\r\n\t\t\tcrParms := @RM:Rec\r\n\t\t\tcrParms := @RM:Rec\r\n\t\t\tcrParms := @RM:Rec\r\n\r\n LogData = ''\r\n LogData<1> = Oconv(Date(), 'D4/') : ' ' : Oconv(Time(), 'MTS') ; // Logging DTM\r\n LogData<2> = 'Reactor No: ' : ReactNo : ' - obj_React_Mode(\"Close\") - Key ID: ' : ReactNo : '*' : Iconv(OpenDTM, 'DT')\r\n Logging_Services('AppendLog', objLog, LogData, @RM, @FM, False$)\r\n\r\n\t\t\tobj_React_Mode('Close',crParms)\t\t\t\t;* Close the currently active mode\r\n\t\t\t\r\n\t\t\tIF Get_Status(errCode) THEN\r\n\t\t\t\tErrMsg(errCode)\r\n\t\t\tEND\r\n\t\tEND\r\n\t\t\t\r\n\t\tcrParms = ReactNo\r\n\t\tcrParms := @RM:CurrDTM\r\n\t\tcrParms := @RM:@USER4\r\n\t\tcrParms := @RM:Rec\r\n\t\tcrParms := @RM:Rec\r\n\t\tcrParms := @RM:Rec\r\n\t\tcrParms := @RM:Rec\r\n\r\n LogData = ''\r\n LogData<1> = Oconv(Date(), 'D4/') : ' ' : Oconv(Time(), 'MTS') ; // Logging DTM\r\n LogData<2> = 'Reactor No: ' : ReactNo : ' - obj_React_Mode(\"Create\") - Key ID: ' : ReactNo : '*' : Iconv(CurrDTM, 'DT')\r\n Logging_Services('AppendLog', objLog, LogData, @RM, @FM, False$)\r\n\r\n\t\tobj_React_Mode('Create',crParms)\t\t;* Create new active mode record\r\n\t\t\r\n\t\tIF Get_Status(errCode) THEN\r\n\t\t\tErrMsg(errCode)\r\n\t\tEND\r\n\t\r\n*\tEND\r\n\t\t\r\nEND ELSE\r\n* Void = msg( '', 'Unable to write ':RecName:' on CONFIG table...' )\r\n* return 0\r\nend\r\n\r\nunlock ConfigTable, RecName else NULL\r\n\r\nNewMode = Get_Property(@WINDOW:'.MODE','TEXT')\r\n\r\nWriteFinishTime = Time()\r\n\r\nif LeakLampAutoFlag then\r\n end_dialog( @window, ReactorLogID )\r\nend else\r\n end_dialog( @window, NewMode )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_MODE_CHG.CANCEL.json b/LSL2/OIEVENT/CLICK/REACT_MODE_CHG.CANCEL.json new file mode 100644 index 0000000..6c3fa37 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_MODE_CHG.CANCEL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\ndeclare function memberof, msg\r\n\r\nif memberof( @user4, 'DATA_ENTRY' ) or memberof ( @user4, 'SUPERVISOR' ) or memberof( @user4, 'MAINTENANCE' ) then\r\n open 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table...' )\r\n return 0\r\n end\r\n RecName = 'REACT_MODE':.reactor_no->text\r\n unlock ConfigTable, RecName else\r\n *Void = msg( '', 'Unable to unlock ':RecName:' in CONFIG table...' )\r\n *return 0\r\n * remarked above code cause user may cancel without entering a\r\n * reactor number if a technician\r\n end\r\n if .reactor_no->text else\r\n .reactor_no->text = 1\r\n end\r\nend\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_MODE_CHG.RL_BUTTON.json b/LSL2/OIEVENT/CLICK/REACT_MODE_CHG.RL_BUTTON.json new file mode 100644 index 0000000..47da0f1 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_MODE_CHG.RL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function start_window\r\n\r\nIf Get_Property('NDW_MAIN', 'VISIBLE') then\r\n AppMain = 'NDW_MAIN'\r\nend else\r\n AppMain = 'LSL_MAIN2'\r\nend\r\n\r\nVoid = start_window( 'REACTOR_LOG', AppMain, .rlid->text:'*CENTER', '', '' )\r\n\r\nvoid = Set_Property('REACTOR_LOG','@PARENT','REACT_MODE_CHG')\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_PROBS.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/REACT_PROBS.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_PROBS.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_PROBS.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/REACT_PROBS.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_PROBS.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_PROBS.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/REACT_PROBS.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_PROBS.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_PROBS.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/REACT_PROBS.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_PROBS.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_PROBS.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/REACT_PROBS.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_PROBS.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_PROBS.SERV_BUTTON.json b/LSL2/OIEVENT/CLICK/REACT_PROBS.SERV_BUTTON.json new file mode 100644 index 0000000..a6b153b --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_PROBS.SERV_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, post_event\r\n\r\nVoid = send_event( @window:'.PROB_CAT_ID', 'OPTIONS' )\r\nVoid = post_event( @window:'.PROB_CAT_ID', 'LOSTFOCUS' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_PROB_CAT.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/REACT_PROB_CAT.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_PROB_CAT.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_PROB_CAT.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/REACT_PROB_CAT.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_PROB_CAT.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_PROB_CAT.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/REACT_PROB_CAT.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_PROB_CAT.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_PROB_CAT.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/REACT_PROB_CAT.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_PROB_CAT.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_PROB_CAT.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/REACT_PROB_CAT.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_PROB_CAT.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_SERVS.LU_MAINT_ACTION.json b/LSL2/OIEVENT/CLICK/REACT_SERVS.LU_MAINT_ACTION.json new file mode 100644 index 0000000..4e45edf --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_SERVS.LU_MAINT_ACTION.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, post_event\r\n\r\nVoid = send_event( @window:'.ACTION', 'OPTIONS' )\r\nVoid = post_event( @window:'.ACTION', 'LOSTFOCUS' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_SERVS.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/REACT_SERVS.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_SERVS.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_SERVS.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/REACT_SERVS.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_SERVS.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_SERVS.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/REACT_SERVS.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_SERVS.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_SERVS.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/REACT_SERVS.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_SERVS.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_SERVS.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/REACT_SERVS.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_SERVS.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_SERVS.SERV_BUTTON.json b/LSL2/OIEVENT/CLICK/REACT_SERVS.SERV_BUTTON.json new file mode 100644 index 0000000..7f199f4 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_SERVS.SERV_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, post_event\r\n\r\nVoid = send_event( @window:'.SERV_CAT_ID', 'OPTIONS' )\r\nVoid = post_event( @window:'.SERV_CAT_ID', 'LOSTFOCUS' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.BUTTON_31.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.BUTTON_31.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.BUTTON_31.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE20.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE20.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE20.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE22.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE22.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE22.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE24.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE24.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE24.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE26.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE26.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE26.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE28.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE28.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE28.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE30.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE30.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE30.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE32.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE32.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE32.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE34.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE34.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE34.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE36.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE36.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE36.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE38.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE38.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE38.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE40.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE40.json new file mode 100644 index 0000000..5e6ac2b --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE40.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE42.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE42.json new file mode 100644 index 0000000..9de8bed --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE42.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\n\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE44.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE44.json new file mode 100644 index 0000000..9de8bed --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE44.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\n\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE46.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE46.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE46.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE48.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE48.json new file mode 100644 index 0000000..5e6ac2b --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE48.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE50.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE50.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE50.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE52.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE52.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE52.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE54.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE54.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE54.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE56.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE56.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE56.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE58.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE58.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE58.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE60.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE60.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE60.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE62.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE62.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE62.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE64.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE64.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE64.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE66.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE66.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE66.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE68.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE68.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE68.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE70.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE70.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE70.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE72.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE72.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE72.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE74.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE74.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE74.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE76.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE76.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE76.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE78.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE78.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_EVEN.RMODE78.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE21.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE21.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE21.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE23.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE23.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE23.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE25.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE25.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE25.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE27.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE27.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE27.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE29.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE29.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE29.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE31.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE31.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE31.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE33.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE33.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE33.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE35.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE35.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE35.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE37.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE37.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE37.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE39.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE39.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE39.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE41.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE41.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE41.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE43.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE43.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE43.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE45.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE45.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE45.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE47.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE47.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE47.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE49.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE49.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE49.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE51.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE51.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE51.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE53.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE53.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE53.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE55.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE55.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE55.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE57.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE57.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE57.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE59.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE59.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE59.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE61.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE61.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE61.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE63.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE63.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE63.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE65.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE65.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE65.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE67.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE67.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE67.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE69.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE69.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE69.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE71.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE71.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE71.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE73.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE73.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE73.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE75.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE75.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE75.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE77.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE77.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE77.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE79.json b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE79.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_STATUS_ODD.RMODE79.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REACT_TUBE_CHG.PRINT.json b/LSL2/OIEVENT/CLICK/REACT_TUBE_CHG.PRINT.json new file mode 100644 index 0000000..c760185 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REACT_TUBE_CHG.PRINT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, set_printer, get_printer, msg, fieldcount, ex_vm_rem,Printer_Select\r\ndeclare subroutine security_err_msg\r\n$insert security_rights_equ\r\n$insert oiprint_equates\r\n$insert msg_equates\r\n\r\nPrintPath = Printer_Select('',1)\t\t;* Get default printer path\r\nStat = set_printer( 'INIT', '', '', .25:@fm:.25:@fm:.25:@fm:.25, 0, '',PrintPath )\r\n\r\nFont = \"Times New Roman,24,C,1\"\r\nconvert ',' to @fm in Font\r\nHf = Font\r\nStat = set_printer( 'FONT', Font )\r\nVoid = set_printer( 'TEXT', 'Reactor Process Tube Change Board' )\r\nVoid = set_printer( 'TEXT', '' )\r\nFont<2> = 14\r\nVoid = set_printer( 'FONT', Font )\r\nTable2 = .tube_chg_info->list\r\nTable = 'Reactor#':@vm:'Last Done':@vm:'Log ID':@vm:'Current Hrs'\r\nVoid = Set_Printer( 'ADDTABLE', '^+1440':@vm:'^+1440':@vm:'^+1440':@vm:'^+1440', '', Table, '','','', TB_ALL:@fm:'C' )\r\nVoid = Set_Printer( 'ADDTABLE', '^+1440':@vm:'^+1440':@vm:'^+1440':@vm:'^+1440', '', Table2, '','', 1, TB_ALL:@fm:'C' )\r\nstat = set_printer( 'TERM' ) \r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE.BUTTON_12.json b/LSL2/OIEVENT/CLICK/RECIPE.BUTTON_12.json new file mode 100644 index 0000000..3e366bc --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE.BUTTON_12.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function recipe_comm\r\n\r\nVoid = recipe_comm( \"VIEW_MOD_INFO\" )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE.BUTTON_3.json b/LSL2/OIEVENT/CLICK/RECIPE.BUTTON_3.json new file mode 100644 index 0000000..96c55d7 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE.BUTTON_3.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function next_key, send_event, msg, security_check\r\ndeclare subroutine security_err_msg, delete_row\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Recipe', Write$ ) then\r\n * save off all data\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n convert @fm to @rm in AllControls\r\n AllData = get_property( Allcontrols, 'TEXT' )\r\n LimitInfo = .limit_info->list\r\n DiskInfo = .disk_info->array\r\n CBCheck = .cap_burst->check\r\n\tChoice = send_event( @window, 'CLEAR' )\r\n\tif Choice = '' then\r\n\t * if choice has a value then the user has canceled \r\n\t\topen 'RECIPE' to RecipeTableVar else\r\n\t\t Void = msg( '', 'Unable to open RECIPE...' )\r\n\t\t return 0\r\n\t\tend\r\n\t\tNextRecipeKey = next_key( 'RECIPE', RecipeTableVar, 'NEXT', '' )\r\n\t\t.recipe_no->text = NextRecipeKey\r\n\t\tunlock RecipeTableVar, NextRecipeKey else\r\n\t\t Void = msg( '', 'Unable to unlock RECIPE ':NextRecipeKey )\r\n\t\t return 0\r\n\t\tend\r\n\t\tVoid = send_event( @window:'.RECIPE_NO', 'LOSTFOCUS' )\r\n\t\tVoid = set_property( AllControls, 'TEXT', AllData )\r\n\t\t.recipe_no->text = NextRecipeKey\r\n\t\t.entry_date->text = oconv( date(), 'D2/' )\r\n\t\t.entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\tLimitInfo = LimitInfo<1> ;* ONLY RETURN THE TOP ROW OF LIMITS\r\n\t\tLimitInfo<1,1> = '' ;* AND BLANK OUT THE PSN\r\n\t\t.limit_info->list = LimitInfo\r\n\t\t.disk_info->array = DiskInfo\r\n .cap_burst->check = CBCheck\r\n .cap_burst_gases->enabled = CBCheck\r\n\t\tVoid = set_property( @window, 'RECORD', RecToUse )\r\n\t\t@@window->savewarn = 1\r\n end\r\nend else\r\n security_err_msg( 'Recipe', Write$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE.BUTTON_4A.json b/LSL2/OIEVENT/CLICK/RECIPE.BUTTON_4A.json new file mode 100644 index 0000000..6dd4567 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE.BUTTON_4A.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, msg, dialog_box, memberof\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\n$insert lsl_users_equ\r\n$insert ncr_equ\r\n\r\nequ CrLf$ to char(13):char(10)\r\n\r\n\r\nif memberof( @user4, 'ENGINEERING' ) then\r\n * OK\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = '!'\r\n MsgInfo = 'You must be an engineer to sign for recipes.'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\nif ( .eng_sig->text = '' ) then\r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n if Valid then\r\n .eng_sig->text = @user4\r\n .eng_sig_name->text = xlate( 'LSL_USERS', @user4, 'FIRST_LAST', 'X' )\r\n .status->value = 'A'\r\n @@window->savewarn = 1\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'Do you wisht to inactivate this recipe?.'\r\n MsgInfo = '?'\r\n MsgInfo = 'BNY'\r\n Resp = msg( '', MsgInfo )\r\n if Resp then\r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n if Valid then\r\n .eng_sig->text = ''\r\n .eng_sig_name->text = ''\r\n .status->value = 'I'\r\n end\r\n end\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE.CAP_BURST.json b/LSL2/OIEVENT/CLICK/RECIPE.CAP_BURST.json new file mode 100644 index 0000000..60cc73c --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE.CAP_BURST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\n\r\nforward_event()\r\nif @CtrlEntId->check then\r\n .cap_burst_gases->enabled = 1\r\nend else\r\n .cap_burst_gases->text = ''\r\n .cap_burst_gases->enabled = 0 \r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE.DISK_INFO.json b/LSL2/OIEVENT/CLICK/RECIPE.DISK_INFO.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE.DISK_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE.LAYER_BUTTON.json b/LSL2/OIEVENT/CLICK/RECIPE.LAYER_BUTTON.json new file mode 100644 index 0000000..141f746 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE.LAYER_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, set_property, msg, fieldcount\r\n$insert msg_equates\r\n$insert quote_spec_equ\r\n\r\nLayerInfo = .layer_info->text\r\nReturnVal = dialog_box( 'RECIPE2', @window, LayerInfo:char(244):.recipe_name->text )\r\nif ReturnVal <> 'CANCEL' and ReturnVal <> LayerInfo then\r\n .layer_info->text = ReturnVal\r\n Tlay = trim( .layer_button->text )\r\n convert '0123456789' to '' in Tlay\r\n Tlay := ' ':fieldcount( ReturnVal, char(248) )\r\n .layer_button->text = Tlay\r\n @@window->savewarn = 1\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE.LIMIT_INFO.json b/LSL2/OIEVENT/CLICK/RECIPE.LIMIT_INFO.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE.LIMIT_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/RECIPE.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/RECIPE.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/RECIPE.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/RECIPE.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/RECIPE.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE.PRINT_RECIPE.json b/LSL2/OIEVENT/CLICK/RECIPE.PRINT_RECIPE.json new file mode 100644 index 0000000..bed0b0b --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE.PRINT_RECIPE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, msg, security_check, test\r\ndeclare function set_printer, print_recipe\r\ndeclare subroutine security_err_msg\r\n$insert msg_equates\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Recipe', Print$ ) then\r\n\tQbfList = get_property( @window, 'QBFLIST' )\r\n\tCurId = .recipe_no->text\r\n\tif QbfList then\r\n\t Ids = QbfList\r\n\tend else\r\n\t Ids = CurId\r\n\tend\r\n\tIdCnt = fieldcount( Ids, @fm )\r\n\tif IdCnt > 1 then\r\n\t * prompt user to print all\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'Do you wish to print all recipes in current QBF List?'\r\n\t MsgInfo = '?'\r\n\t MsgInfo = 'BNYC'\r\n\t Ans = msg( '', MsgInfo )\r\n\t if Ans = 0 then\r\n\t * print only the current one\r\n\t Ids = CurId\r\n\t end else\r\n\t if Ans <> 1 then\r\n\t * user canceled\r\n\t return 0\r\n\t end\r\n\t end\r\n\tend\r\n\tif Ids <> '' then\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'Do you wish to print the OVERRIDDEN INFO ONLY???'\r\n\t MsgInfo = '?'\r\n\t MsgInfo = 'BNYC'\r\n\t OvrOnly = msg( '', MsgInfo )\r\n\t if ( OvrOnly = 1 ) or ( OvrOnly = 0 ) then\r\n\t Void = print_recipe( Ids, OvrOnly )\r\n\t end\r\n\tend else\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'You must have a Recipe present.'\r\n\t MsgInfo = '!'\r\n\t Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n security_err_msg( 'Recipe', Print$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE.RET_RECIPE_NUM_BUTTON.json b/LSL2/OIEVENT/CLICK/RECIPE.RET_RECIPE_NUM_BUTTON.json new file mode 100644 index 0000000..13f42d7 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE.RET_RECIPE_NUM_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function end_window, msg, send_event, post_event\r\ndeclare subroutine record_lock\r\n\r\nopen 'SYSLISTS' to SysListsTable else\r\n Void = msg( '', 'Unable to open SYSLISTS...' )\r\n return 0\r\nend\r\nRecordId = 'RECIPE_ID*':@station\r\nrecord_lock( SysListsTable, 'SysLists', RecordId )\r\nwritev .recipe_no->text on SysListsTable, RecordId, 1 else\r\n Void = msg( '', 'Unable to write ':.recipe_id->text:' on SYSLISTS ':RecordId )\r\n return 0\r\nend\r\nunlock SysListsTable, RecordId else\r\n Void = msg( '', 'Unable to unlock SYSLISTS ':RecordId )\r\n return 0\r\nend\r\nopen 'RECIPE' to RecipeTable else\r\n Void = msg( '', 'Unable to open RECIPE...' )\r\n return 0\r\nend\r\nRecipeNo = .recipe_no->text\r\nunlock RecipeTable, RecipeNo else\r\n * HAD A BUG WHERE IT COULD NOT ULOCK WHEN CANCELING THE SAVE\r\n * WARN MESSAGE CHECK INTO LATER\r\n *Void = msg( '', 'Unable to unlock RECIPE ':RecipeNo )\r\n *return 0\r\nend\r\nVoid = send_event( @window, 'WRITE' )\r\nVoid = send_event( @window, 'CLOSE' )\r\nVoid = post_event( 'PROD_SPEC_SI.EPI_RECIPE', 'OMNIEVENT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE2.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/RECIPE2.CANCEL_BUTTON.json new file mode 100644 index 0000000..e10168c --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE2.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\ndeclare function msg\r\n$insert msg_equates\r\n\r\nRecipePromptCnt = get_property( @window, '@RecipePromptCnt' )\r\nRecipeControls = get_property( @window, '@RecipeControls' )\r\nRecipeDataOnWindow = get_property( RecipeControls, 'INVALUE' )\r\nconvert @rm to @vm in RecipeDataOnWindow\r\nCurLayerNo = get_property( @window, '@CurLayer' )\r\nAllLayers = get_property( @window, '@RecipeInfo' )\r\nif RecipeDataOnWindow = str( @vm, RecipePromptCnt-1 ) then\r\n * do not store and delete blank layer\r\n convert char(248) to @fm in AllLayers\r\n AllLayers = delete( AllLayers, CurLayerNo, 0, 0 )\r\n convert @fm to char(248) in AllLayers\r\n Void = set_property( @window, '@RecipeInfo', AllLayers )\r\nend else\r\n\tAllLayers = fieldstore( AllLayers, char(248), CurLayerNo, 1, RecipeDataOnWindow )\r\n\tVoid = set_property( @window, '@RecipeInfo', AllLayers )\r\nend\r\n*\r\nOrigRecipeData = get_property( @window, '@OrigRecipeInfo' )\r\nRecipeData = get_property( @window, '@RecipeInfo' )\r\nif RecipeData <> OrigRecipeData then\r\n MsgInfo = ''\r\n MsgInfo = 'You have changed recipe information. Do you wish to save?'\r\n\tMsgInfo = 'BNYC'\r\n\tMsgInfo = '?'\r\n\tResponse = msg( '', MsgInfo )\r\n\tif Response = 1 then \r\n\t end_dialog( @window, RecipeData )\r\n\tend else\r\n\t if Response = 0 then\r\n\t end_dialog( @window, 'CANCEL' )\r\n\t end\r\n\tend\r\nend else \r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE2.DEL_BUTTON.json b/LSL2/OIEVENT/CLICK/RECIPE2.DEL_BUTTON.json new file mode 100644 index 0000000..52e1375 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE2.DEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, msg\r\n$insert msg_equates\r\n$insert logical\r\nequate CrLf$ to char(13):char(10)\r\n\r\nRecipePromptCnt = get_property( @window, '@RecipePromptCnt' )\r\nRecipeControls = get_property( @window, '@RecipeControls' )\r\nCurLayerNo = get_property( @window, '@CurLayer' )\r\nAllLayers = get_property( @window, '@RecipeInfo' )\r\nAllLayers = fieldstore( AllLayers, char(248), CurLayerNo, 1, char(243):'' )\r\nAcnt = fieldcount( AllLayers, char(248))\r\nif CurLayerNo = Acnt then\r\n swap char(248):char(243) with '' in AllLayers\r\nend else\r\n swap char(243):char(248) with '' in AllLayers\r\nend\r\nconvert char(243) to '' in AllLayers ;* if only one and they delete\r\n* the char 243 is left hanging\r\nVoid = set_property( @window, '@RecipeInfo', AllLayers )\r\n* now display the next recipe layer\r\nNextLayerData = field( AllLayers, char(248), CurLayerNo )\r\n*\r\nValueCnt = fieldcount( NextLayerData, @vm )\r\n* so set_property does not propagate\r\nif ValueCnt < RecipePromptCnt then\r\n NextLayerData := str( @vm, RecipePromptCnt-ValueCnt-1 )\r\nend\r\n* ok\r\nNewLayer = false$\r\nif NextLayerData = str( @vm, RecipePromptCnt-1 ) then\r\n * add the @fms for the conc\r\n NewLayer = true$\r\nend\r\nconvert @vm to @rm in NextLayerData\r\nVoid = set_property( RecipeControls, 'INVALUE', NextLayerData )\r\nNumLayers = fieldcount( AllLayers, char(248) ) \r\n.layer_desc->text = CurLayerNo:' of ':NumLayers+NewLayer\r\nvoid = set_property( @window:'.EPI_DOPANT', 'FOCUS', 1 ) \r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE2.INS_BUTTON.json b/LSL2/OIEVENT/CLICK/RECIPE2.INS_BUTTON.json new file mode 100644 index 0000000..e3de17e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE2.INS_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, msg\r\n$insert msg_equates\r\n$insert logical\r\n\r\nRecipePromptCnt = get_property( @window, '@RecipePromptCnt' )\r\nRecipeControls = get_property( @window, '@RecipeControls' )\r\nRecipeDataOnWindow = get_property( RecipeControls, 'INVALUE' )\r\nconvert @rm to @vm in RecipeDataOnWindow\r\nif RecipeDataOnWindow = str( @vm, RecipePromptCnt-1 ) then\r\n MsgInfo = ''\r\n MsgInfo = 'You cannot have a blank multi layer recipe...'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend else\r\n\tCurLayerNo = get_property( @window, '@CurLayer' )\r\n\tAllLayers = get_property( @window, '@RecipeInfo' )\r\n\tAllLayers = fieldstore( AllLayers, char(248), CurLayerNo, 1, char(243):RecipeDataOnWindow )\r\n\tconvert char(243) to char(248) in AllLayers\r\n\tVoid = set_property( @window, '@RecipeInfo', AllLayers )\r\n\t* now display the next recipe layer\r\n\tNewLayerData = field( AllLayers, char(248), CurLayerNo )\r\n\t*\r\n\tValueCnt = fieldcount( NewLayerData, @vm )\r\n\t* so set_property does not propagate\r\n\tif ValueCnt < RecipePromptCnt then\r\n\t NewLayerData := str( @vm, RecipePromptCnt-ValueCnt-1 )\r\n\tend\r\n\tconvert @vm to @rm in NewLayerData\r\n\tVoid = set_property( RecipeControls, 'INVALUE', NewLayerData )\r\n\tNumLayers = fieldcount( AllLayers, char(248) ) \r\n .layer_desc->text = CurLayerNo:' of ':NumLayers\r\n void = set_property( @window:'.EPI_DOPANT', 'FOCUS', 1 ) \r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE2.NEXT_LAYER_BUTTON.json b/LSL2/OIEVENT/CLICK/RECIPE2.NEXT_LAYER_BUTTON.json new file mode 100644 index 0000000..2bec43c --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE2.NEXT_LAYER_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, msg\r\n$insert msg_equates\r\n$insert logical\r\n\r\nRecipePromptCnt = get_property( @window, '@RecipePromptCnt' )\r\nRecipeControls = get_property( @window, '@RecipeControls' )\r\nRecipeDataOnWindow = get_property( RecipeControls, 'INVALUE' )\r\nconvert @rm to @vm in RecipeDataOnWindow\r\nif RecipeDataOnWindow = str( @vm, RecipePromptCnt-1 ) then\r\n MsgInfo = ''\r\n MsgInfo = 'You cannot have a blank multi layer recipe...'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend else\r\n\tCurLayerNo = get_property( @window, '@CurLayer' )\r\n\tAllLayers = get_property( @window, '@RecipeInfo' )\r\n\tAllLayers = fieldstore( AllLayers, char(248), CurLayerNo, 1, RecipeDataOnWindow )\r\n\tVoid = set_property( @window, '@RecipeInfo', AllLayers )\r\n\tCurLayerNo += 1\r\n\tVoid = set_property( @window, '@CurLayer', CurLayerNo )\r\n\t* now display the next recipe layer\r\n\tNextLayerData = field( AllLayers, char(248), CurLayerNo )\r\n\t*\r\n\tValueCnt = fieldcount( NextLayerData, @vm )\r\n\t* so set_property does not propagate\r\n\tif ValueCnt < RecipePromptCnt then\r\n\t NextLayerData := str( @vm, RecipePromptCnt-ValueCnt-1 )\r\n\tend\r\n\t* ok\r\n\tNewLayer = false$\r\n\tif NextLayerData = str( @vm, RecipePromptCnt-1 ) then\r\n\t NewLayer = true$\r\n\tend\r\n\tconvert @vm to @rm in NextLayerData\r\n\tVoid = set_property( RecipeControls, 'INVALUE', NextLayerData )\r\n\tNumLayers = fieldcount( AllLayers, char(248) ) + NewLayer\r\n .layer_desc->text = CurLayerNo:' of ':NumLayers\r\n void = set_property( @window:'.EPI_DOPANT', 'FOCUS', 1 ) \r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE2.PREV_LAYER_BUTTON.json b/LSL2/OIEVENT/CLICK/RECIPE2.PREV_LAYER_BUTTON.json new file mode 100644 index 0000000..2f68c76 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE2.PREV_LAYER_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, msg\r\n$insert msg_equates\r\n\r\nCurLayerNo = get_property( @window, '@CurLayer' )\r\nif CurLayerNo = 1 then\r\n MsgInfo = ''\r\n MsgInfo = 'You are on the first multi layer recipe...'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend else\r\n\tRecipePromptCnt = get_property( @window, '@RecipePromptCnt' )\r\n\tRecipeControls = get_property( @window, '@RecipeControls' )\r\n\tRecipeDataOnWindow = get_property( RecipeControls,'INVALUE' )\r\n\tAllLayers = get_property( @window, '@RecipeInfo' )\r\n\tconvert @rm to @vm in RecipeDataOnWindow\r\n\tif ( RecipeDataOnWindow = str( @vm, RecipePromptCnt-1 ) ) and ( CurLayerNo < fieldcount( AllLayers, char(248) ) ) then\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'You cannot have a blank multi layer recipe...'\r\n\t MsgInfo = 'H'\r\n\t Void = msg( '', MsgInfo )\r\n\t return 0\r\n\tend else\r\n\t\tif RecipeDataOnWindow = str( @vm, RecipePromptCnt-1 ) then\r\n\t\t * null do not save\r\n\t\tend else\r\n \t\t* there is recipe info for this layer save to common\r\n\t\t AllLayers = fieldstore( AllLayers, char(248), CurLayerNo, 1, RecipeDataOnWindow )\r\n\t\t Void = set_property( @window, '@RecipeInfo', AllLayers )\r\n end\t\t \r\n\t\tCurLayerNo -= 1\r\n\t\tVoid = set_property( @window, '@CurLayer', CurLayerNo )\r\n\t\t* now display the previous recipe layer\r\n\t\tPrevLayerData = field( AllLayers, char(248), CurLayerNo )\r\n\t\t*\r\n\t\tValueCnt = fieldcount( PrevLayerData, @vm )\r\n\t\t* so set_property does not propagate\r\n\t\tif ValueCnt < RecipePromptCnt then\r\n\t\t PrevLayerData := str( @vm, RecipePromptCnt-ValueCnt-1 )\r\n\t\tend\r\n\t\t* ok\r\n\t\tconvert @vm to @rm in PrevLayerData\r\n\t\tVoid = set_property( RecipeControls, 'INVALUE', PrevLayerData )\r\n\t\tNumLayers = fieldcount( AllLayers, char(248) )\r\n\t .layer_desc->text = CurLayerNo:' of ':NumLayers\r\n void = set_property( @window:'.EPI_DOPANT', 'FOCUS', 1 ) \r\n\tend\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE2.SAVE_BUTTON.json b/LSL2/OIEVENT/CLICK/RECIPE2.SAVE_BUTTON.json new file mode 100644 index 0000000..fed4681 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE2.SAVE_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, set_property, msg\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nRecipeControls = get_property( @window, '@RecipeControls' )\r\nRecipePromptCnt = get_property( @window, '@RecipePromptCnt' )\r\nRecipeDataOnWindow = get_property( RecipeControls,'INVALUE' )\r\nconvert @rm to @vm in RecipeDataOnWindow\r\n\r\nif RecipeDataOnWindow = str( @vm, RecipePromptCnt-1 ) and get_property( @window, '@RecipeInfo' ) = '' then\r\n * no epi information for current recipe layer\r\n end_dialog( @window, '' )\r\nend else\r\n if RecipeDataOnWindow = str( @vm, RecipePromptCnt-1 ) then\r\n MsgInfo = ''\r\n MsgInfo = 'H'\r\n MsgInfo = 'You cannot have a blank recipe layer...'\r\n Void = msg( '', MsgInfo )\r\n end else\r\n\t\tCurLayerNo = get_property( @window, '@CurLayer' )\r\n\t\tAllLayers = get_property( @window, '@RecipeInfo' )\r\n\t\tAllLayers = fieldstore( AllLayers, char(248), CurLayerNo, 1, RecipeDataOnWindow )\r\n\t\tVoid = set_property( @window, '@RecipeInfo', AllLayers )\r\n\t\tRecipeInfo = get_property( @window, '@RecipeInfo' ) \r\n\t end_dialog( @window, RecipeInfo )\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.CLEAR.json b/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.CLEAR.json new file mode 100644 index 0000000..7b31e29 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine recipe_browse_comm\r\n\r\nrecipe_browse_comm( 'CLEAR', '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.GOTO_RDS.json b/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.GOTO_RDS.json new file mode 100644 index 0000000..e00c556 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.GOTO_RDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function start_window\r\n\r\nVoid = start_window( 'RDS', @window, .rds_no->text:'*CENTER', '', '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.INST_REC_BUTTON.json b/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.INST_REC_BUTTON.json new file mode 100644 index 0000000..d671bcf --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.INST_REC_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function start_window\r\n$insert rds_equ\r\n\r\nCurPSN = xlate( 'RDS', .rds_no->text, rds_prod_spec_id$, 'X' )\r\nVoid = start_window ( 'RECIPE_BROWSE2', @window, CurPSN:'*CENTER', '', '' )\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.LAY_BEG.json b/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.LAY_BEG.json new file mode 100644 index 0000000..84033c9 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.LAY_BEG.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine recipe_browse_comm\r\n\r\nrecipe_browse_comm( 'CHANGE_LAYER', 1 ) ;* 1 for the first layer\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.LAY_END.json b/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.LAY_END.json new file mode 100644 index 0000000..579cb1c --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.LAY_END.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine recipe_browse_comm\r\n\r\nLastLayer = get_property( @window, '@LayCnt' )\r\nrecipe_browse_comm( 'CHANGE_LAYER', LastLayer )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.LAY_NEXT.json b/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.LAY_NEXT.json new file mode 100644 index 0000000..b904852 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.LAY_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine recipe_browse_comm\r\n\r\nrecipe_browse_comm( 'CHANGE_LAYER', 'NEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.LAY_PREV.json b/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.LAY_PREV.json new file mode 100644 index 0000000..5c52dfd --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.LAY_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine recipe_browse_comm\r\n\r\nrecipe_browse_comm( 'CHANGE_LAYER', 'PREVIOUS' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.PRINT.json b/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.PRINT.json new file mode 100644 index 0000000..f409792 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.PRINT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, set_printer, get_printer, msg, fieldcount, start_window, post_event, Printer_Select\r\ndeclare subroutine security_err_msg\r\n\r\n$insert msg_equates\r\n$insert oiprint_equates\r\n$insert rds_equ\r\n$insert security_rights_equ\r\n\r\nPrinterID\t\t \t= ''\r\nGetDefaultPrinter\t= 1\r\nPrintPath\t\t\t= Printer_Select(PrinterID,GetDefaultPrinter)\t;* Get Default printer path\r\n\r\nStat = set_printer( 'INIT', '', '', 0:@fm:0:@fm:0:@fm:0, 0,'' ,PrintPath )\r\n\r\ngosub CheckErr\r\nFont = \"Times New Roman,16,L,1\"\r\nconvert ',' to @fm in Font\r\nStat = set_printer( 'FONT', Font )\r\ngosub CheckErr\r\nVoid = set_printer( 'BMP', 'BMPS\\RECBROWS.BMP', 1:@fm:1:@fm:6.5:@fm:7.38, 0, 0 )\r\n\r\nRdsNo = .rds_no->text\r\nReactor = .reactor->text\r\nRecipe = .recipe_no->text\r\nRecipeName = .recipe_name->text\r\nWO = .wo->text\r\nRunOrder = .run_order->text\r\n\r\nEpiTime = .epi_time->text\r\nEpiDopantFlow = .epi_dopant_flow->text\r\nAux1 = .aux1->text\r\nAux2 = .aux2->text\r\nEpiH2Flow = .epi_h2_flow->text\r\nTCSFlow = .tcs_flow->text\r\nDCSFlow = .dcs_flow->text\r\nBakeTime = .bake_time->text\r\nInjectors = .injectors->text\r\nHCLFlow = .hcl_flow->text\r\nAdjDiluent = .adj_diluent->text\r\nFOffset = .f_offset->text\r\nSOffset = .s_offset->text\r\nROffset = .r_offset->text\r\n\r\nEpiTemp = .epi_temp->text\r\nEpiDiluent = .epi_diluent->text\r\nEpiDopant = .epi_dopant->text\r\nEtchTime = .etch_time->text\r\nEpiGases = .epi_gases->text\r\nEpiGasRate = .epi_gas_rate->text\r\nEpiGasUnits = .epi_gasunits->text\r\n\r\n* RECIPE, RUN DATA SHEET AND WORK ORDER INFORAMTION\r\nVoid = set_printer( 'TEXTXY', RdsNo, 6.06:@fm:2.19, '', 0 )\r\nVoid = set_printer( 'TEXTXY', Reactor, 1.25:@fm:3.34, '', 0 )\r\nVoid = set_printer( 'TEXTXY', Recipe, 2.25:@fm:3.34, '', 0 )\r\nVoid = set_printer( 'TEXTXY', RecipeName, 3.81:@fm:3.34, '', 0 )\r\nVoid = set_printer( 'TEXTXY', WO, 1.31:@fm:4.25, '', 0 )\r\nVoid = set_printer( 'TEXTXY', RunOrder, 4.88:@fm:4.25, '', 0 )\r\n\r\n* ADJUSTABLE PARAMATERS\r\nFont<2> = 14\r\nStat = set_printer( 'FONT', Font )\r\nVoid = set_printer( 'TEXTXY', EpiTime, 2.06:@fm:5.06, '', 0 )\r\nVoid = set_printer( 'TEXTXY', EpiDopantFlow, 3.63:@fm:5.06, '', 0 )\r\nVoid = set_printer( 'TEXTXY', Aux1, 2.06:@fm:5.5, '', 0 )\r\nVoid = set_printer( 'TEXTXY', Aux2, 3.63:@fm:5.5, '', 0 )\r\nVoid = set_printer( 'TEXTXY', EpiH2Flow, 2.06:@fm:6.41, '', 0 )\r\nVoid = set_printer( 'TEXTXY', TCSFlow, 2.06:@fm:5.97, '', 0 )\r\nVoid = set_printer( 'TEXTXY', DCSFlow, 3.63:@fm:5.97, '', 0 )\r\nVoid = set_printer( 'TEXTXY', BakeTime, 2.06:@fm:6.78, '', 0 )\r\nVoid = set_printer( 'TEXTXY', Injectors, 3.63:@fm:6.78, '', 0 )\r\nVoid = set_printer( 'TEXTXY', HCLFlow, 2.06:@fm:7.23, '', 0 )\r\nVoid = set_printer( 'TEXTXY', AdjDiluent, 3.63:@fm:7.23, '', 0 )\r\nVoid = set_printer( 'TEXTXY', FOffset, 1.69:@fm:7.88, '', 0 )\r\nVoid = set_printer( 'TEXTXY', SOffset, 2.75:@fm:7.88, '', 0 )\r\nVoid = set_printer( 'TEXTXY', ROffset, 3.75:@fm:7.88, '', 0 )\r\n\r\n* NON ADJUSTABLE PARAMETERS\r\nVoid = set_printer( 'TEXTXY', EpiTemp, 5.13:@fm:5.13, '', 0 )\r\nVoid = set_printer( 'TEXTXY', EpiDiluent, 6.69:@fm:5.13, '', 0 )\r\nVoid = set_printer( 'TEXTXY', EpiDopant, 4.56:@fm:5.97, '', 0 )\r\nVoid = set_printer( 'TEXTXY', EtchTime, 6.66:@fm:7.56, '', 0 )\r\nVoid = set_printer( 'TEXTXY', EpiGases, 4.56:@fm:6.81, '', 0 )\r\nVoid = set_printer( 'TEXTXY', EpiGasRate, 4.56:@fm:7.84, '', 0 )\r\nVoid = set_printer( 'TEXTXY', EpiGasUnits, 5.38:@fm:7.81, '', 0 )\r\n\r\nFont<2> = 16\r\nStat = set_printer( 'FONT', Font )\r\nCurPSN = xlate( 'RDS', .rds_no->text, rds_prod_spec_id$, 'X' )\r\nFooter = 'PSN ':CurPSN:' Current Instructions and Recipe Limits...See next page=========>'\r\nVoid = set_printer( 'TEXTXY', Footer, 1:@fm:9.5, '', 0 )\r\n\r\nstat = set_printer( 'TERM' ) \r\ngosub CheckErr\r\n\r\nVoid = start_window( 'RECIPE_BROWSE2', @window, CurPSN:'*CENTER', '', '' )\r\nVoid = post_event( 'RECIPE_BROWSE2.PRINT', 'CLICK' )\r\nVoid = post_event( 'RECIPE_BROWSE2.CLOSE', 'CLICK' )\r\nRETURN 0\r\n*===========================================================================*\r\nCheckErr:\r\n if stat < 0 then\r\n goto FatalExit\r\n end\r\nreturn \r\n\r\n*===========================================================================*\r\nFatalExit:\r\n Void = msg( '', Stat )\r\n Stat = set_printer( 'TERM' )\r\nreturn \r\n\r\n*===========================================================================*\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.RO_BEG.json b/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.RO_BEG.json new file mode 100644 index 0000000..f5efc6e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.RO_BEG.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine recipe_browse_comm\r\n\r\nrecipe_browse_comm( 'CHANGE_BOX', 1 ) ;* 1 for the first box run\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.RO_END.json b/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.RO_END.json new file mode 100644 index 0000000..8748225 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.RO_END.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine recipe_browse_comm\r\n\r\nLastBox = get_property( @window, '@RDSCnt' )\r\nrecipe_browse_comm( 'CHANGE_BOX', LastBox )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.RO_NEXT.json b/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.RO_NEXT.json new file mode 100644 index 0000000..7834826 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.RO_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine recipe_browse_comm\r\n\r\nrecipe_browse_comm( 'CHANGE_BOX', 'NEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.RO_PREV.json b/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.RO_PREV.json new file mode 100644 index 0000000..a5a10dc --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.RO_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine recipe_browse_comm\r\n\r\nrecipe_browse_comm( 'CHANGE_BOX', 'PREVIOUS' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.SEARCH.json b/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.SEARCH.json new file mode 100644 index 0000000..ce14e31 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.SEARCH.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine recipe_browse_comm\r\n\r\nrecipe_browse_comm( 'SEARCH', '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.WO_BEG.json b/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.WO_BEG.json new file mode 100644 index 0000000..1490045 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.WO_BEG.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine recipe_browse_comm\r\n\r\nrecipe_browse_comm( 'CHANGE_WO', 1 ) ;* 1 for the first work order\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.WO_END.json b/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.WO_END.json new file mode 100644 index 0000000..d5a99d8 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.WO_END.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine recipe_browse_comm\r\n\r\nLastWo = get_property( @window, '@WoCnt' )\r\nrecipe_browse_comm( 'CHANGE_WO', LastWo )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.WO_NEXT.json b/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.WO_NEXT.json new file mode 100644 index 0000000..f481c1e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.WO_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine recipe_browse_comm\r\n\r\nrecipe_browse_comm( 'CHANGE_WO', 'NEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.WO_PREV.json b/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.WO_PREV.json new file mode 100644 index 0000000..512cf4e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE_BROWSE.WO_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine recipe_browse_comm\r\n\r\nrecipe_browse_comm( 'CHANGE_WO', 'PREVIOUS' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/RECIPE_BROWSE2.PRINT.json b/LSL2/OIEVENT/CLICK/RECIPE_BROWSE2.PRINT.json new file mode 100644 index 0000000..8a8098b --- /dev/null +++ b/LSL2/OIEVENT/CLICK/RECIPE_BROWSE2.PRINT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, set_printer, get_printer, msg, fieldcount,Printer_Select\r\ndeclare subroutine security_err_msg\r\n$insert security_rights_equ\r\n$insert oiprint_equates\r\n$insert msg_equates\r\n\r\n\r\nPrintPath = Printer_Select('',1)\t\t;* Get default printer path\r\nStat = set_printer( 'INIT', '', '', .25:@fm:.75:@fm:.25:@fm:.25, 0 ,0,PrintPath)\r\ngosub CheckErr\r\nFont = \"Times New Roman,18,C,1,,1\"\r\nconvert ',' to @fm in Font\r\nStat = set_printer( 'FONT', Font )\r\ngosub CheckErr\r\n\r\nVoid = set_printer( 'TEXT', @@window->text )\r\nVoid = set_printer( 'TEXT', '' )\r\nVoid = set_printer( 'TEXT', '' )\r\n\r\nSpecialInst = .special_inst->text\r\nProveInInst = .provein_inst->text\r\nRecipeLimits = .recipe_limits->list\r\nRecipeLayerLimits = .recipe_layer_limits->list\r\nFont<2> = 16\r\nFont<6> = 0\r\nVoid = set_printer( 'FONT', Font )\r\n\r\nif SpecialInst <> '' then\r\n Font<2> = 16\r\n Font<3> = 'C'\r\n Font<4> = 1\r\n Void = set_printer( 'FONT', Font )\r\n Void = set_printer( 'TEXT', 'Special Instructions' )\r\n Table = ''\r\n Table<-1> = SpecialInst\r\n TableColInfo = '<+11520'\r\n Font<2> = 12 \r\n Font<3> = 'L' \r\n Font<4> = 0\r\n Void = set_printer( 'FONT', Font ) \r\n x = Set_Printer(\"ADDTABLE\", TableColInfo, '', Table, '', '', 0, TB_ALL)\r\n Void = set_printer( 'TEXT', '' )\r\nend\r\n\r\nif ProveInInst <> '' then\r\n Font<2> = 16\r\n Font<3> = 'C'\r\n Font<4> = 1\r\n Void = set_printer( 'FONT', Font )\r\n Void = set_printer( 'TEXT', 'Prove-In Instructions' ) \r\n Table = ''\r\n Table<-1> = ProveInInst\r\n TableColInfo = '<+11520'\r\n Font<2> = 12 \r\n Font<3> = 'L' \r\n Font<4> = 0\r\n Void = set_printer( 'FONT', Font ) \r\n x = Set_Printer(\"ADDTABLE\", TableColInfo, '', Table, '', '', 0, TB_ALL)\r\n Void = set_printer( 'TEXT', '' )\r\n Void = set_printer( 'TEXT', '' ) \r\nend\r\n\r\n* COLUMN HEADINGS FOR RECIPE LIMITS\r\nFont<2> = 16\r\nFont<3> = 'C'\r\nFont<4> = 1\r\nVoid = set_printer( 'FONT', Font )\r\nVoid = set_printer( 'TEXT', 'Recipe Limits' )\r\n\r\nFont<2> = 8 \r\nFont<3> = 'L' \r\nFont<4> = 1\r\nVoid = set_printer( 'FONT', Font )\r\n\r\nTableColInfo = '^+9627':@vm:'^+1950'\r\nTable = ''\r\nTable<-1> = 'Adjustable Parameter':@vm:'Offsets'\r\nx = Set_Printer(\"ADDTABLE\", TableColInfo, '', Table, '', '', 0, TB_ALL)\r\n\r\nTableColInfo = '^+906':@vm:'^+1007':@vm:'^+1167':@vm:'^+1007':@vm:'^+1007':@vm:'^+906':@vm:'^+906':@vm\r\nTableCOlInfo:= '^+906':@vm:'^+906':@vm:'^+906':@vm:'^+650':@vm:'^+650':@vm:'^+650'\r\nTable = ''\r\nTable = 'Deposit~Diluent~Dopant~HCL~Bake~H2~TCS~DCS~AUX1~AUX2~Front~Side~Rear'\r\nconvert '~' to @vm in Table\r\nx = Set_Printer(\"ADDTABLE\", TableColInfo, '', Table, '', '', 0, TB_ALL)\r\n\r\nFont<2> = 7\r\nFont<4> = 0\r\nVoid = set_printer( 'FONT', Font )\r\nx = Set_Printer(\"ADDTABLE\", TableColInfo, '', RecipeLimits, '', '', 0, TB_ALL)\r\nFont<2> = 12\r\nVoid = set_printer( 'FONT', Font )\r\nVoid = set_printer( 'TEXT', '' )\r\nVoid = set_printer( 'TEXT', '' ) \r\n\r\n* COLUMN HEADINGS FOR RECIPE LAYER LIMITS\r\nFont<2> = 16\r\nFont<3> = 'C'\r\nFont<4> = 1\r\nVoid = set_printer( 'FONT', Font )\r\nVoid = set_printer( 'TEXT', 'Recipe Layer Limits' )\r\n\r\nFont<2> = 8 \r\nFont<3> = 'C' \r\nFont<4> = 1\r\nVoid = set_printer( 'FONT', Font )\r\nTableColInfo = '^+1440':@vm:'^+2880'\r\nTable = ''\r\nTable = 'Layer':@vm:'Adjustable Paramater'\r\nconvert '~' to @vm in Table\r\nx = Set_Printer(\"ADDTABLE\", TableColInfo, '', Table, '', '', 0, TB_ALL:@fm:'C')\r\n\r\nFont<4> = 0\r\nVoid = set_printer( 'FONT', Font )\r\nTableColInfo = '^+1440':@vm:'^+1440':@vm:'^+1440'\r\nx = Set_Printer(\"ADDTABLE\", TableColInfo, '', RecipeLayerLimits, '', '', 0, TB_ALL:@fm:'C')\r\n\r\nstat = set_printer( 'TERM' ) \r\ngosub CheckErr \r\n\r\nRETURN 0\r\n*===========================================================================*\r\nCheckErr:\r\n if stat < 0 then\r\n goto FatalExit\r\n end\r\nreturn \r\n\r\n*===========================================================================*\r\nFatalExit:\r\n Void = msg( '', Stat )\r\n Stat = set_printer( 'TERM' )\r\nreturn \r\n\r\n*===========================================================================*\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REPORT_SLIST_CFG.CANCEL.json b/LSL2/OIEVENT/CLICK/REPORT_SLIST_CFG.CANCEL.json new file mode 100644 index 0000000..97a53d4 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REPORT_SLIST_CFG.CANCEL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\ndeclare subroutine end_dialog\r\n\r\nopen 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\nReportID = Trim(.report_id->text)\r\nIf ReportID Then\r\n unlock ConfigTable, ReportID else\r\n Void = msg( '', 'Unable to unlock ':ReportID:' in CONFIG table' )\r\n end\r\nend\r\nend_dialog( @window, '' )\r\n \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REPORT_SLIST_CFG.CHECK_SLIST_SCRIPT_BUTTON.json b/LSL2/OIEVENT/CLICK/REPORT_SLIST_CFG.CHECK_SLIST_SCRIPT_BUTTON.json new file mode 100644 index 0000000..35cd562 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REPORT_SLIST_CFG.CHECK_SLIST_SCRIPT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, post_event, utility\r\ndeclare subroutine rlist\r\ndeclare subroutine btree.extract\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n$insert rlist_equates\r\n\r\nCrLf = Char(13):Char(10)\r\nStmt = .Slist_Script->text\r\n\r\nIf Len(Stmt) = 0 Then\r\n Void = msg( '', '', ' has nothing in it...' )\r\n Void = post_event( @window:'.REPORT_ID', 'GOTFOCUS' )\r\n return 0\t\r\nEnd\r\n\r\n*Pick up Record Count. \r\nRecCount = .record_count->Text\r\n*See if there is a Record Count. If not make it 100. \r\nIf RecCount < 1 Then RecCount = 100\r\n*Add The Record Count to run with to the statement. \r\nStmt[1,4] = \"LIST \":RecCount\r\nSwap \"~CURRDATE~\" With Oconv(Date(),'D4/') In Stmt\r\nSwap \"~CurrDate~\" With Oconv(Date(),'D4/') In Stmt\r\nSwap \"~ORDERBY~\" With '' In Stmt\r\nSwap \"~OrderBy~\" With '' In Stmt\r\nSwap \"~entry_date_filter~, ~cust_no_filter~\" With '' in Stmt \r\nFor K = 1 to 50\r\n Swap \"~Limit\":K:\"~\" With '' in Stmt \r\nNext \r\n\r\nOsWrite Stmt To \"C:\\SlstScrp.Txt\"\r\n\r\nVoid = utility( 'CURSOR', 'H' )\r\n\r\ncall Slist( Stmt )\r\n\r\nVoid = utility( 'CURSOR', 'A' )\r\n\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REPORT_SLIST_CFG.DELETE_BUTTON.json b/LSL2/OIEVENT/CLICK/REPORT_SLIST_CFG.DELETE_BUTTON.json new file mode 100644 index 0000000..94dfb15 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REPORT_SLIST_CFG.DELETE_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, dialog_box, send_event\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n$insert rpt_cfg_equ\r\n\r\nopen 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\n\r\nReportID = .report_id->text\r\n\r\nIf ReportID='' Then\r\n Ans = msg('', 'A Report ID must be selected before you can delete it!' )\r\n Return 0\r\nEnd\r\nIf ReportID[-8,8] # '_SRPTCFG' Then\r\n Ans = msg('', 'The Report ID must end in \"_SRPTCFG\" in order to be deleted!' )\r\n Return 0\r\nEnd\r\n\r\n**Ask if want to delete\r\nGoSub AskIfDelete\r\n\r\nIf Ans Then\r\n *Yes we delete...\r\n Delete ConfigTable, ReportID Then\r\n GoSub ClearScreen\r\n LockId = ReportID\r\n GoSub UnlockRecord \r\n Ans = msg('', \"CONFIG RECORD ': ReportID: ' IS DELETED!\" )\r\n Void = send_event( @window:'.REPORT_ID', 'GOTFOCUS' )\r\n End Else\r\n Ans = msg('', \"RECORD DELETE FAILED!!\" )\r\n End\r\nEnd\r\n\r\nreturn 0\r\n\r\n*===========================================\r\nAskIfDelete:\r\n*===========================================\r\nTmpStructure = ''\r\n TmpStructure = 'REALLY DELETE REPORT CONFIG RECORD ':ReportID:'??'\r\n TmpStructure = 'BNYC'\r\n TmpStructure = 'A'\r\n TmpStructure = '!'\r\n TmpStructure = 'DELETE?'\r\n Ans = msg('', TmpStructure )\r\n If Ans = 0 Or Ans = Char(27) Then\r\n Ans = msg('', \"DELETE CANCELED!\" )\r\n Ans = 0\r\n End\r\nReturn\r\n\r\n*===========================================\r\nClearScreen:\r\n*===========================================\r\n.Table_Name->text = ''\r\n.Width->text = ''\r\n.Title->text = ''\r\n.Title_2->Text = ''\r\n.Title_3->Text = ''\r\n.Title_4->Text = ''\r\n.Title_Font_Type->text = ''\r\n.Title_Font_Size->text = ''\r\n.Title_Font_Bold->check = ''\r\n.Title_Font_Italic->check = ''\r\n.Col_Hed_Font_Type->text = ''\r\n.Col_Hed_Font_Size->text = ''\r\n.Col_Hed_Font_Bold->check = ''\r\n.Col_Hed_Font_Italic->check = ''\r\n.Def_Col_Font_Type->text = ''\r\n.Def_Col_Font_Size->text = ''\r\n.Def_Col_Font_Bold->check = ''\r\n.Def_Col_Font_Italic->check = ''\r\n.OrderBy->text = ''\r\n.Landscape_Chk->Check = ''\r\n.Grid_Chk->Check = ''\r\n.No_Page_Chk->Check = ''\r\n.Dbl_Spc_Chk->Check = ''\r\n.Id_Supp_Chk->Check = ''\r\n.Det_Supp_Chk->Check = ''\r\n.Col_Hdr_Supp->Check = ''\r\n.Hdr_Supp->Check = ''\r\n.Slist_Script->text = ''\r\n.With_Statement->Text = ''\r\n.Footer->Text = ''\r\n.PageNumber->Check = ''\r\n.COLUMN_INFO->array = ''\r\n.Report_ID->text = ''\r\n\r\nReturn\r\n\r\n*===========================================\r\nUnlockRecord:\r\n*===========================================\r\nunlock ConfigTable, LockID else\r\n Void = msg( '', 'Unable to unlock ':LockID:' in CONFIG table' )\r\nend\r\n\r\nReturn\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REPORT_SLIST_CFG.NEW_REPORT.json b/LSL2/OIEVENT/CLICK/REPORT_SLIST_CFG.NEW_REPORT.json new file mode 100644 index 0000000..979b834 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REPORT_SLIST_CFG.NEW_REPORT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box\r\n\r\nParams = dialog_box( 'NEW_REPORT', @window, '*CENTER' )\r\n\r\nReturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REPORT_SLIST_CFG.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/REPORT_SLIST_CFG.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..7408be2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REPORT_SLIST_CFG.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, post_event\r\n\r\n\r\n\r\nCrLf = Char(13):Char(10)\r\nRptPrg = .report_procedure->text\r\n\r\nIf Len( RptPrg ) = 0 Then\r\n Void = msg( '', '', 'Procedure Name field is empty...' )\r\n Void = post_event( @window:'.REPORT_PROCEDURE', 'GOTFOCUS' )\r\n return 0\t\r\nEnd\r\n\r\nCall @RptPrg\r\n\r\n\r\n\r\n\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REPORT_SLIST_CFG.SAVE.json b/LSL2/OIEVENT/CLICK/REPORT_SLIST_CFG.SAVE.json new file mode 100644 index 0000000..70f9760 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REPORT_SLIST_CFG.SAVE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg,send_event\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n$insert rpt_cfg_equ\r\n\r\nopen 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\nReportID = Trim(.report_id->text)\r\n\r\nReportRecord = ''\r\n\r\nIf ReportID > '' Then\r\n * SET RECORD TO ALL CONTROLS\r\n TempVar = .Table_Name->Text\r\n Convert @Lower_Case To @Upper_Case In TempVar\r\n ReportRecord = TempVar\r\n ReportRecord = .Width->Text \r\n ReportRecord = .Title->Text\r\n ReportRecord = .Title_2->Text\r\n ReportRecord = .Title_3->Text\r\n ReportRecord = .Title_4->Text \r\n ReportRecord = .Title_Font_Type->Text \r\n ReportRecord = .Title_Font_Size->Text \r\n ReportRecord = .Title_Font_Bold->Check \r\n ReportRecord = .Title_Font_Italic->Check \r\n ReportRecord = .Title_Font_Underline->Check \r\n ReportRecord = .Col_Hed_Font_Type->Text \r\n ReportRecord = .Col_Hed_Font_Size->Text \r\n ReportRecord = .Col_Hed_Font_Bold->Check \r\n ReportRecord = .Col_Hed_Font_Italic->Check\r\n ReportRecord = .Col_Hed_Font_Underline->Check\r\n ReportRecord = .Def_Font_Type->Text \r\n ReportRecord = .Def_Font_Size->Text \r\n ReportRecord = .Def_Font_Bold->Check \r\n ReportRecord = .Def_Font_Italic->Check\r\n ReportRecord = .Def_Font_Underline->Check\r\n ReportRecord = .OrderBy->text\r\n ReportRecord = .Landscape_Chk->Check\r\n ReportRecord = .Grid_Chk->Check \r\n ReportRecord = .No_Page_Chk->Check \r\n ReportRecord = .Dbl_Spc_Chk->Check \r\n ReportRecord = .Id_Supp_Chk->Check \r\n ReportRecord = .Det_Supp_Chk->Check \r\n ReportRecord = .Col_Hdr_Supp->Check \r\n ReportRecord = .Hdr_Supp->Check \r\n ReportRecord = .With_Statement->Text \r\n ReportRecord = .Footer->Text\r\n ReportRecord = .PageNumber->Check\r\n\r\n ReportRecord = .Report_Procedure->text\r\n\r\n arrayinfo = .COLUMN_INFO->array\r\n TempVar = arrayinfo<1>\r\n Convert @Lower_Case To @Upper_Case In TempVar\r\n ReportRecord = TempVar \r\n ReportRecord = arrayinfo<2> \r\n TempVar = arrayinfo<3> \r\n Convert @Lower_Case To @Upper_Case In TempVar \r\n ReportRecord = TempVar \r\n ReportRecord = arrayinfo<4> \r\n ReportRecord = arrayinfo<5>\r\n TempVar = arrayinfo<6>\r\n Convert @Lower_Case To @Upper_Case In TempVar \r\n ReportRecord = TempVar \r\n TempVar = arrayinfo<7>\r\n Convert @Lower_Case To @Upper_Case In TempVar \r\n ReportRecord = TempVar\r\n TempVar = arrayinfo<8>\r\n Convert @Lower_Case To @Upper_Case In TempVar \r\n ReportRecord = TempVar\r\n TempVar = arrayinfo<9>\r\n Convert @Lower_Case To @Upper_Case In TempVar \r\n ReportRecord = TempVar \r\n TempVar = arrayinfo<10>\r\n Convert @Lower_Case To @Upper_Case In TempVar \r\n ReportRecord = TempVar \r\n TempVar = arrayinfo<11>\r\n Convert @Lower_Case To @Upper_Case In TempVar \r\n ReportRecord = TempVar \r\n TempVar = arrayinfo<12>\r\n Convert @Lower_Case To @Upper_Case In TempVar \r\n ReportRecord = TempVar \r\n \r\n void = send_event(@window:\".SLIST_SCRIPT_BUTTON\", \"CLICK\" )\r\n ReportRecord = .Slist_Script->text \r\n \r\n write ReportRecord on ConfigTable, ReportID Then\r\n Void = msg( '', 'Record ':ReportID:' has been written to CONFIG table' )\r\n end else\r\n Void = msg( '', 'Unable to write ':ReportID:' in CONFIG table' )\r\n end\r\nend\r\n\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/REPORT_SLIST_CFG.SLIST_SCRIPT_BUTTON.json b/LSL2/OIEVENT/CLICK/REPORT_SLIST_CFG.SLIST_SCRIPT_BUTTON.json new file mode 100644 index 0000000..9e57e04 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/REPORT_SLIST_CFG.SLIST_SCRIPT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n$insert rpt_cfg_equ\r\n\r\nDim OrderByMat(10,10)\r\n\r\nopen 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\n\r\nReportRecord = ''\r\n\r\nReportID = Trim(.report_id->text)\r\n\r\n* SET RECORD TO ALL CONTROLS\r\nTempVar = .Table_Name->Text\r\nConvert @Lower_Case To @Upper_Case In TempVar\r\nReportRecord = TempVar\r\nReportRecord = .Width->Text\r\nReportRecord = .Title->Text\r\nReportRecord = .Title_2->Text \r\nReportRecord = .Title_3->Text\r\nReportRecord = .Title_4->Text\r\nReportRecord = .Title_Font_Type->Text\r\nReportRecord = .Title_Font_Size->Text\r\nReportRecord = .Title_Font_Bold->Check\r\nReportRecord = .Title_Font_Italic->Check\r\nReportRecord = .Title_Font_Underline->Check\r\nReportRecord = .Col_Hed_Font_Type->Text\r\nReportRecord = .Col_Hed_Font_Size->Text\r\nReportRecord = .Col_Hed_Font_Bold->Check\r\nReportRecord = .Col_Hed_Font_Italic->Check\r\nReportRecord = .Col_Hed_Font_Underline->Check\r\nReportRecord = .Def_Font_Type->Text\r\nReportRecord = .Def_Font_Size->Text\r\nReportRecord = .Def_Font_Bold->Check\r\nReportRecord = .Def_Font_Italic->Check\r\nReportRecord = .Def_Font_Underline->Check\r\nReportRecord = .OrderBy->text\r\nReportRecord = .Landscape_Chk->Check\r\nReportRecord = .Grid_Chk->Check \r\nReportRecord = .No_Page_Chk->Check \r\nReportRecord = .Dbl_Spc_Chk->Check\r\nReportRecord = .Id_Supp_Chk->Check \r\nReportRecord = .Det_Supp_Chk->Check \r\nReportRecord = .Col_Hdr_Supp->Check \r\nReportRecord = .Hdr_Supp->Check \r\nReportRecord = .Slist_Script->text\r\nReportRecord = .Footer->Text\r\nReportRecord = .PageNumber->Check\r\n\r\narrayinfo = .COLUMN_INFO->array\r\nTmpArray = arrayinfo<1>\r\nConvert @Lower_Case To @Upper_Case In TmpArray\r\nReportRecord = TmpArray \r\narrayinfo<1> = TmpArray \r\n\r\nReportRecord = arrayinfo<2> \r\nReportRecord = arrayinfo<3> \r\n\r\nTmpArray = arrayinfo<3>\r\nConvert @Lower_Case To @Upper_Case In TmpArray\r\nReportRecord = TmpArray\r\narrayinfo<3> = TmpArray\r\n\r\nReportRecord = arrayinfo<4> \r\nReportRecord = arrayinfo<5>\r\nTmpArray = arrayinfo<6>\r\nConvert @Lower_Case To @Upper_Case In TmpArray\r\nReportRecord = TmpArray\r\narrayinfo<6> = TmpArray\r\n\r\nTmpArray = arrayinfo<7>\r\nConvert @Lower_Case To @Upper_Case In TmpArray \r\nReportRecord = TmpArray\r\narrayinfo<7> = TmpArray\r\n\r\nTmpArray = arrayinfo<8>\r\nConvert @Lower_Case To @Upper_Case In TmpArray \r\nReportRecord = TmpArray\r\narrayinfo<8> = TmpArray\r\n\r\nTmpArray = arrayinfo<9>\r\nConvert @Lower_Case To @Upper_Case In TmpArray \r\nReportRecord = TmpArray\r\narrayinfo<9> = TmpArray\r\n\r\nTmpArray = arrayinfo<10>\r\nConvert @Lower_Case To @Upper_Case In TmpArray \r\nReportRecord = TmpArray\r\narrayinfo<10> = TmpArray\r\n\r\nTmpArray = arrayinfo<11>\r\nConvert @Lower_Case To @Upper_Case In TmpArray \r\nReportRecord = TmpArray\r\narrayinfo<11> = TmpArray\r\n\r\nTmpArray = arrayinfo<12>\r\nConvert @Lower_Case To @Upper_Case In TmpArray \r\nReportRecord = TmpArray\r\narrayinfo<12> = TmpArray\r\n\r\n.COLUMN_INFO->array = arrayinfo\r\n\r\nTblNme = Trim(ReportRecord)\r\nIf Len(TblNme) <= 0 Then\r\n Void = msg( '', @username:'! Have you decided to run a report with no Table Name Specified??' )\r\n return 0\r\nEnd\r\n\r\nOrderByMat(0,0) = 0\r\nOrderBy = Trim(ReportRecord)\r\nConvert @Lower_Case To @Upper_Case In OrderBy\r\nIf Len(OrderBy) Then\r\n If OrderBy[1,1] # \"~\" Then\r\n OrderByMat(0,0) = 1\r\n Swap ', ' With ' ' In OrderBy\r\n Swap ' ' With ' ' In OrderBy\r\n Swap ' ' With ' ' In OrderBy\r\n Ctr = Count(OrderBy, \" \") + 1\r\n For K=1 To Ctr\r\n TempOrder = Field(OrderBy,\" \",K)\r\n If TempOrder[1,1] = '-' Then\r\n OrderByMat(K, 1) = \" BY-DSND \"\r\n OrderByMat(K, 2) = TempOrder[2,100]\r\n End Else \r\n OrderByMat(K, 1) = \" BY \"\r\n OrderByMat(K, 2) = TempOrder\r\n End\r\n Next\r\n OrderBy = ''\r\n For K=1 To Ctr\r\n OrderBy := OrderByMat(K, 1):OrderByMat(K, 2)\r\n Next\r\n End\r\nEnd\r\n\r\nWithStmt = .With_Statement->Text\r\n\r\nRptWidth = ReportRecord\r\nHalfRpt = RptWidth/2\r\n\r\nTtlTxt = Trim(ReportRecord)\r\nHalfTtlLen = Len(TtlTxt)/2\r\nTtlLeftChars = HalfRpt - HalfTtlLen\r\n\r\nCurDte = Oconv(Date(),'D4/')\r\nTtlLeftSpaces = TtlLeftChars - 10\r\nIf TtlLeftSpaces <=0 Then TtlLeftSpaces = 1\r\n\r\nTtlPgs = \"\"\r\nTtlRightSpaces = HalfRpt - HalfTtlLen\r\nSuppPageNumber = ReportRecord\r\nIf SuppPageNumber Then\r\n If TtlRightSpaces <=0 Then TtlRightSpaces = 1\r\nEnd Else\r\n TtlPgs = \"Pg. 'P' \"\r\n TtlRightSpaces -= 8\r\n If TtlRightSpaces <=0 Then TtlRightSpaces = 1\r\nEnd\r\n\r\nNoPage = ''\r\nTmpVar = ReportRecord\r\nIf TmpVar Then NoPage = \"'N' \" \r\n\r\n*Next line to yield \"Date Title of Report Pg. 'P' \r\nCurDte = '~CurrDate~'\r\nRptTtl = CurDte: Space(TtlLeftSpaces): TtlTxt: Space(TtlRightSpaces):TtlPgs:NoPage:' '\r\n\r\nDspTtlLns = ''\r\n*Next lines yields 'L' (Second Title Line) 'L' (Third Title Line) 'L' (Fourth Title Line) \" \r\nTtlTxt = Trim(ReportRecord)\r\nIf Len(TtlTxt) Then\r\n HalfTtlLen = Len(TtlTxt)/2\r\n TtlLeftSpaces = HalfRpt - HalfTtlLen\r\n If TtlLeftSpaces >= 0 Then\r\n If TtlTxt[1,1] = '~' Then\r\n DspTtlLns := \"'L'\": TtlTxt\r\n End Else\r\n DspTtlLns := \"'L'\": Space(TtlLeftSpaces): TtlTxt\r\n End \r\n End\r\nEnd\r\n\r\nTtlTxt = Trim(ReportRecord)\r\nIf Len(TtlTxt) Then\r\n HalfTtlLen = Len(TtlTxt)/2\r\n TtlLeftSpaces = HalfRpt - HalfTtlLen\r\n If TtlLeftSpaces >= 0 Then\r\n If TtlTxt[1,1] = '~' Then\r\n DspTtlLns := \"'L'\": TtlTxt\r\n End Else\r\n DspTtlLns := \"'L'\": Space(TtlLeftSpaces): TtlTxt\r\n End \r\n End \r\nEnd \r\n\r\nTtlTxt = Trim(ReportRecord)\r\nIf Len(TtlTxt) Then\r\n HalfTtlLen = Len(TtlTxt)/2\r\n TtlLeftSpaces = HalfRpt - HalfTtlLen\r\n If TtlLeftSpaces >= 0 Then\r\n If TtlTxt[1,1] = '~' Then\r\n DspTtlLns := \"'L'\": TtlTxt\r\n End Else\r\n DspTtlLns := \"'L'\": Space(TtlLeftSpaces): TtlTxt\r\n End \r\n End \r\nEnd \r\n\r\nDspTtlLns := '\" '\r\n\r\nTtlFont = ''\r\nIf ReportRecord Then TtlFont := ReportRecord:','\r\nIf ReportRecord Then TtlFont := ReportRecord:','\r\nIf ReportRecord Then TtlFont := \"B,\"\r\nIf ReportRecord Then TtlFont := \"I,\"\r\nIf ReportRecord Then TtlFont := \"U,\"\r\n\r\nIf TtlFont Then TtlFont = ' HDRFONT \"': TtlFont[1,Len(TtlFont)-1]:'\" '\r\n\r\nRptHeading = 'HEADING \"':RptTtl:DspTtlLns:TtlFont\r\n\r\nColHed = ''\r\nIf ReportRecord Then ColHed := ReportRecord:','\r\nIf ReportRecord Then ColHed := ReportRecord:','\r\nIf ReportRecord Then ColHed := 'B,'\r\nIf ReportRecord Then ColHed := 'I,'\r\nIf ReportRecord Then ColHed := 'U,'\r\nIf ColHed Then ColHed = 'COLHDRFONT \"':ColHed[1,Len(ColHed)-1]:'\" '\r\nRptHeading := ColHed\r\n\r\nLandscape = ''\r\nTmpVar = ReportRecord\r\nIf TmpVar Then Landscape = 'LANDSCAPE ' \r\n\r\nRptHeading := Landscape\r\n \r\nGrid = ''\r\nTmpVar = ReportRecord\r\nIf TmpVar Then Grid = \"GRID\" \r\n\r\nRptHeading := Grid:\" BOX \"\r\n\r\nDblSpace = ''\r\nTmpVar = ReportRecord\r\nIf TmpVar Then DblSpace = 'DBL-SPC ' \r\n\r\nRptHeading := DblSpace\r\n\r\n\r\nIDsupp = ''\r\nTmpVar = ReportRecord\r\nIf TmpVar Then IDsupp = 'ID-SUPP ' \r\n\r\nRptHeading := IDsupp\r\n\r\nDetSupp = ''\r\nTmpVar = ReportRecord\r\nIf TmpVar Then DetSupp = 'DET-SUPP ' \r\n\r\nRptHeading := DetSupp\r\n\r\nColHdrSupp = ''\r\nTmpVar = ReportRecord\r\nIf TmpVar Then ColHdrSupp = 'COL-HDR-SUPP ' \r\n\r\nRptHeading := ColHdrSupp\r\n\r\nHdrSupp = ''\r\nTmpVar = ReportRecord\r\nIf TmpVar Then HdrSupp = 'HDR-SUPP ' \r\n\r\nRptHeading := HdrSupp\r\n\r\nFooter = ''\r\nTmpVar = ReportRecord\r\nIf TmpVar Then RptHeading := 'FOOTING \"':Footer: '\" '\r\n\r\nDefFont = ''\r\nIf ReportRecord Then DefFont := ReportRecord:\",\"\r\nIf ReportRecord Then DefFont := ReportRecord:\",\"\r\nIf ReportRecord Then DefFont := 'B,'\r\nIf ReportRecord Then DefFont := 'I,'\r\nIf ReportRecord Then DefFont := 'U,'\r\nIf DefFont Then DefFont = 'FONT \"':DefFont[1,Len(DefFont)-1]:'\" '\r\n\r\nFieldList = DefFont\r\n\r\nFieldArray = Trim(ReportRecord)\r\nSwap @vm With @fm in FieldArray\r\nHeadArray = ReportRecord\r\nSwap @vm With @fm in HeadArray\r\nColArray = ReportRecord\r\nSwap @vm With @fm in ColArray\r\nFontTypeArray = ReportRecord\r\nSwap @vm With @fm in FontTypeArray\r\nFontSizeArray = ReportRecord\r\nSwap @vm With @fm in FontSizeArray\r\nFontBoldArray = ReportRecord\r\nSwap @vm With @fm in FontBoldArray\r\nFontItalicArray = ReportRecord\r\nSwap @vm With @fm in FontItalicArray\r\nFontUnderlineArray = ReportRecord\r\nSwap @vm With @fm in FontUnderlineArray\r\nBreakArray = ReportRecord\r\nSwap @vm With @fm in BreakArray\r\nValueArray = ReportRecord\r\nSwap @vm With @fm in ValueArray\r\nTotalArray = ReportRecord\r\nSwap @vm With @fm in TotalArray\r\nLimitArray = ReportRecord\r\nSwap @vm With @fm in LimitArray\r\n\r\nCtr = Count(FieldArray,@fm) + 1\r\n\r\nGrandTotal = ''\r\nFor K = 1 To Ctr\r\n ThisField = Trim(FieldArray)\r\n If Len(ThisField) > 0 Then\r\n TmpVar = Trim(TotalArray)\r\n If TmpVar[1,1] = 'Y' Then\r\n FieldList := \" TOTAL \"\r\n If TmpVar[2,1] = ':' Then\r\n GrandTotal = 'GRAND-TOTAL \"':TmpVar[3,100]:'\" '\r\n End \r\n End\r\n TmpBreakOn = Trim(BreakArray)\r\n If TmpBreakOn = \"Y\" Or TmpBreakOn = \"y\" Then\r\n FieldList := \" BREAK-ON \": ThisField:\" \"\r\n TmpVar = Trim(ValueArray)\r\n Begin Case\r\n Case TmpVar = \"'V'\" Or TmpVar = 'V' Or TmpVar = 'Y' Or TmpVar = 'y'\r\n TmpVar = ' \"':\"'\":'V':\"'\":'\" '\r\n Case TmpVar = '' Or TmpVar = 'N' Or TmpVar = 'n'\r\n TmpVar = ''\r\n Case 1\r\n TmpVar = ' \"':TmpVar:'\" '\r\n End Case\r\n FieldList := TmpVar\r\n End Else\r\n FieldList := ThisField:\" \"\r\n End \r\n TmpVar = HeadArray\r\n If Len(TmpVar) > 0 Then\r\n FieldList := 'COLHEAD \"':TmpVar:'\" '\r\n End\r\n TmpVar = ColArray\r\n Convert @Lower.Case To @Upper.Case in TmpVar\r\n If Len(TmpVar) > 0 Then\r\n FieldList := 'JUSTLEN \"':TmpVar:'\" '\r\n End \r\n\r\n\r\n ColFnt = ''\r\n If FontTypeArray Then ColFnt := FontTypeArray : ','\r\n If FontSizeArray Then ColFnt := FontSizeArray : ','\r\n If FontBoldArray = \"Y\" Then ColFnt := 'B,'\r\n If FontItalicArray = \"Y\" Then ColFnt := 'I,'\r\n If FontUnderlineArray = \"Y\" Then ColFnt := 'U,'\r\n If ColFnt Then ColFnt = 'ColFont \"':ColFnt[1,Len(ColFnt)-1]:'\" '\r\n FieldList := ColFnt\r\n\r\n TmpVar = LimitArray\r\n Convert @Lower.Case To @Upper.Case in TmpVar\r\n If Len(TmpVar) > 0 Then\r\n If TmpVar = 'Y' Or TmpVar = '1' Then FieldList := ' ~Limit':K:'~ '\r\n End \r\n End\r\nNext\r\n*For Developing The Script...\r\nSlistScript = ''\r\nSlistScript := \"LIST \":TblNme:\" \": FieldList: GrandTotal: WithStmt: ' ' \r\nSlistScript := OrderBy : ' ' : RptHeading\r\n.Slist_Script->text = SlistScript\r\n\r\nReportRecord = .Slist_Script->text \r\n\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHEDULE.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/SCHEDULE.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHEDULE.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHEDULE.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/SCHEDULE.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHEDULE.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHEDULE.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/SCHEDULE.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHEDULE.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHEDULE.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/SCHEDULE.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHEDULE.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHEDULE.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/SCHEDULE.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHEDULE.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHEDULE.RDS_DETAIL.json b/LSL2/OIEVENT/CLICK/SCHEDULE.RDS_DETAIL.json new file mode 100644 index 0000000..3f6d001 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHEDULE.RDS_DETAIL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = editcell( CtrlEntId, '' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHEDULE.SAVE_NEXT.json b/LSL2/OIEVENT/CLICK/SCHEDULE.SAVE_NEXT.json new file mode 100644 index 0000000..4b385af --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHEDULE.SAVE_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "Declare Function send_event, set_eventstatus, get_eventstatus\r\n\r\nVoid = set_eventstatus(0)\r\nVoid = send_event(@window, 'WRITE')\r\nErr = get_eventstatus()\r\nif Err else\r\n Void = send_event(@window, 'QBFNEXT')\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHEDULE.SHIP_DETAIL.json b/LSL2/OIEVENT/CLICK/SCHEDULE.SHIP_DETAIL.json new file mode 100644 index 0000000..d072e4e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHEDULE.SHIP_DETAIL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 11 else\r\n Void = editcell( CtrlEntId, '' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHEDULE.WAFER_SCHED_SHIP.json b/LSL2/OIEVENT/CLICK/SCHEDULE.WAFER_SCHED_SHIP.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHEDULE.WAFER_SCHED_SHIP.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHEDULE_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/SCHEDULE_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHEDULE_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHEDULE_QUERY.LOT_NUM.json b/LSL2/OIEVENT/CLICK/SCHEDULE_QUERY.LOT_NUM.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHEDULE_QUERY.LOT_NUM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHEDULE_QUERY.PART_NUM.json b/LSL2/OIEVENT/CLICK/SCHEDULE_QUERY.PART_NUM.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHEDULE_QUERY.PART_NUM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHEDULE_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/SCHEDULE_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..3f17e80 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHEDULE_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.SCHEDULE' to DictScheduleTable else\r\n Void = msg( '', 'Unable to open DICT.SCHEDULE...' )\r\n return 0\r\nend\r\nSearchStr = ''\r\nCustIds = .customer_info->array<1>\r\n*EntryDateFrom = .entry_date_from->text\r\n*EntryDateThru = .entry_date_thru->text\r\nOpen = .open_check->check\r\nClosed = .closed_check->check\r\n*EntryIds = .entry_ids->array<1>\r\nWo = .wo->array\r\nPo = .po->array\r\nLotNum = .lot_num->array\r\nPartNum = .part_num->array\r\n*QuoteNos = .quote_nos->array\r\n*OrderNos = .order_nos->array\r\n*InvoiceNos = .invoice_nos->array\r\nswap @vm:@vm with '' in Wo\r\nif Wo[-1,1] = @vm then Wo[-1,1] = ''\r\nswap @vm:@vm with '' in Po\r\nif Po[-1,1] = @vm then Po[-1,1] = ''\r\nswap @vm:@vm with '' in LotNum\r\nif LotNum[-1,1] = @vm then LotNum[-1,1] = ''\r\nswap @vm:@vm with '' in PartNum\r\nif PartNum[-1,1] = @vm then PartNum[-1,1] = ''\r\nswap @vm:@vm with '' in CustIds\r\nif CustIds[-1,1] = @vm then CustIds[-1,1] = ''\r\n*swap @vm:@vm with '' in EntryIds\r\n*if EntryIds[-1,1] = @vm then EntryIds[-1,1] = ''\r\n*swap @vm:@vm with '' in QuoteNos\r\n*if QuoteNos[-1,1] = @vm then QuoteNos[-1,1] = ''\r\n*swap @vm:@vm with '' in OrderNos\r\n*if OrderNos[-1,1] = @vm then OrderNos[-1,1] = ''\r\n*swap @vm:@vm with '' in InvoiceNos\r\n*if InvoiceNos[-1,1] = @vm then InvoiceNos[-1,1] = ''\r\nif CustIds then\r\n SearchStr<-1> = 'CUST_NO':@vm:CustIds\r\nend \r\n*if EntryDateFrom then\r\n* SearchStr<-1> = 'ENTRY_DATE':@vm:'>=':EntryDateFrom\r\n*end\r\n*if EntryDateThru then\r\n* SearchStr<-1> = 'ENTRY_DATE':@vm:'<=':EntryDateThru\r\n*end\r\n*if EntryIds then\r\n* SearchStr<-1> = 'ENTRY_ID':@vm:EntryIds\r\n*end\r\nStatusVar = ''\r\nif Open then\r\n StatusVar<1,-1> = 'O'\r\nend\r\nif Closed then\r\n StatusVar<1,-1> = 'C'\r\nend\r\nif StatusVar then\r\n SearchStr<-1> = 'STATUS':@vm:StatusVar\r\nend\r\nif Wo then\r\n SearchStr<-1> = 'WO':@vm:Wo\r\nend\r\nif Po then\r\n SearchStr<-1> = 'PO':@VM:Po\r\nend\r\nif LotNum then\r\n SearchStr<-1> = 'LOT_NUM':@vm:LotNum\r\nend\r\nif PartNum then\r\n SearchStr<-1> = 'PART_NUM':@vm:PartNum\r\nend\r\n*if QuoteNos then\r\n* SearchStr<-1> = 'QUOTE_NUM':@vm:QuoteNos\r\n*end\r\n*if OrderNos then\r\n* SearchStr<-1> = 'ORDER_NO':@vm:OrderNos\r\n*end\r\n*if InvoiceNos then\r\n* SearchStr<-1> = 'INVOICE_IDS':@vm:InvoiceNos\r\n*end\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'SCHEDULE', DictScheduleTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting SCHEDULE records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'SCHEDULE', 'CUST_NAME':@fm:'WO':@fm:'ORDER_LINE', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHEDULE_QUERY.PO.json b/LSL2/OIEVENT/CLICK/SCHEDULE_QUERY.PO.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHEDULE_QUERY.PO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHEDULE_QUERY.WO.json b/LSL2/OIEVENT/CLICK/SCHEDULE_QUERY.WO.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHEDULE_QUERY.WO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHEDULE_SRL.RDS_DETAIL.json b/LSL2/OIEVENT/CLICK/SCHEDULE_SRL.RDS_DETAIL.json new file mode 100644 index 0000000..9a3c1d6 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHEDULE_SRL.RDS_DETAIL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = editcell( CtrlEntId, '' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHEDULE_SRL.SHIP_DETAIL.json b/LSL2/OIEVENT/CLICK/SCHEDULE_SRL.SHIP_DETAIL.json new file mode 100644 index 0000000..fb8e555 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHEDULE_SRL.SHIP_DETAIL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 10 else\r\n Void = editcell( CtrlEntId, '' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHEDULE_SRL.WAFER_SCHED_SHIP.json b/LSL2/OIEVENT/CLICK/SCHEDULE_SRL.WAFER_SCHED_SHIP.json new file mode 100644 index 0000000..5530b73 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHEDULE_SRL.WAFER_SCHED_SHIP.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHEDULE_SRL_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/SCHEDULE_SRL_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..5d89c1d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHEDULE_SRL_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHEDULE_SRL_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/SCHEDULE_SRL_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..5be69e7 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHEDULE_SRL_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.SCHEDULE_SRL' to DictScheduleTable else\r\n Void = msg( '', 'Unable to open DICT.SCHEDULE_SRL...' )\r\n return 0\r\nend\r\nSearchStr = ''\r\nCustIds = .customer_info->array<1>\r\n*EntryDateFrom = .entry_date_from->text\r\n*EntryDateThru = .entry_date_thru->text\r\nOpen = .open_check->check\r\nClosed = .closed_check->check\r\n*EntryIds = .entry_ids->array<1>\r\nWo = .wo->array\r\nPo = .po->array\r\n*QuoteNos = .quote_nos->array\r\n*OrderNos = .order_nos->array\r\n*InvoiceNos = .invoice_nos->array\r\nswap @vm:@vm with '' in Wo\r\nif Wo[-1,1] = @vm then Wo[-1,1] = ''\r\nswap @vm:@vm with '' in Po\r\nif Po[-1,1] = @vm then Po[-1,1] = ''\r\nswap @vm:@vm with '' in CustIds\r\nif CustIds[-1,1] = @vm then CustIds[-1,1] = ''\r\n*swap @vm:@vm with '' in EntryIds\r\n*if EntryIds[-1,1] = @vm then EntryIds[-1,1] = ''\r\n*swap @vm:@vm with '' in QuoteNos\r\n*if QuoteNos[-1,1] = @vm then QuoteNos[-1,1] = ''\r\n*swap @vm:@vm with '' in OrderNos\r\n*if OrderNos[-1,1] = @vm then OrderNos[-1,1] = ''\r\n*swap @vm:@vm with '' in InvoiceNos\r\n*if InvoiceNos[-1,1] = @vm then InvoiceNos[-1,1] = ''\r\nif CustIds then\r\n SearchStr<-1> = 'CUST_NO':@vm:CustIds\r\nend \r\n*if EntryDateFrom then\r\n* SearchStr<-1> = 'ENTRY_DATE':@vm:'>=':EntryDateFrom\r\n*end\r\n*if EntryDateThru then\r\n* SearchStr<-1> = 'ENTRY_DATE':@vm:'<=':EntryDateThru\r\n*end\r\n*if EntryIds then\r\n* SearchStr<-1> = 'ENTRY_ID':@vm:EntryIds\r\n*end\r\nStatusVar = ''\r\nif Open then\r\n StatusVar<1,-1> = 'O'\r\nend\r\nif Closed then\r\n StatusVar<1,-1> = 'C'\r\nend\r\nif StatusVar then\r\n SearchStr<-1> = 'STATUS':@vm:StatusVar\r\nend\r\nif Wo then\r\n SearchStr<-1> = 'WO':@vm:Wo\r\nend\r\nif Po then\r\n SearchStr<-1> = 'PO':@VM:Po\r\nend\r\n*if QuoteNos then\r\n* SearchStr<-1> = 'QUOTE_NUM':@vm:QuoteNos\r\n*end\r\n*if OrderNos then\r\n* SearchStr<-1> = 'ORDER_NO':@vm:OrderNos\r\n*end\r\n*if InvoiceNos then\r\n* SearchStr<-1> = 'INVOICE_IDS':@vm:InvoiceNos\r\n*end\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'SCHEDULE_SRL', DictScheduleTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting SCHEDULE_SRL records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'SCHEDULE_SRL', 'CUST_NAME':@fm:'#ENTRY_DATE', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHEDULE_SRL_QUERY.PO.json b/LSL2/OIEVENT/CLICK/SCHEDULE_SRL_QUERY.PO.json new file mode 100644 index 0000000..5530b73 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHEDULE_SRL_QUERY.PO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHEDULE_SRL_QUERY.WO.json b/LSL2/OIEVENT/CLICK/SCHEDULE_SRL_QUERY.WO.json new file mode 100644 index 0000000..5530b73 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHEDULE_SRL_QUERY.WO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHED_RPT1.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/SCHED_RPT1.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHED_RPT1.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHED_RPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/SCHED_RPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHED_RPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHED_RPT1.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/SCHED_RPT1.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..43288b2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHED_RPT1.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function sched_rpt1, send_event, msg\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nBillDateFrom = .bill_date_from->text\r\nBillDateThru = .bill_date_thru->text\r\nPlant = .plant->text\r\nCusts = .customer_info->array<1>\r\nswap @vm:@vm with '' in Custs\r\nif Custs[-1,1] = @vm then Custs[-1,1] = ''\r\nif BillDateFrom or BillDateThru then\r\n\tDirToPrint = .send_to_printer->text\r\n\tRetVal = BillDateFrom:'*':BillDateThru:'*':DirToPrint:'*':Custs:'*':Plant\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a from date or a thru date.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHED_RPT2.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/SCHED_RPT2.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHED_RPT2.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHED_RPT2.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/SCHED_RPT2.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHED_RPT2.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHED_RPT2.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/SCHED_RPT2.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..2d7dc75 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHED_RPT2.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function sched_rpt1, send_event, msg\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nBillDateFrom = .bill_date_from->text\r\nBillDateThru = .bill_date_thru->text\r\nPlant = .plant->text\r\nCusts = .customer_info->array<1>\r\nswap @vm:@vm with '' in Custs\r\nif Custs[-1,1] = @vm then Custs[-1,1] = ''\r\nif BillDateFrom or BillDateThru then\r\n\tDirToPrint = .send_to_printer->text\r\n\tRetVal = BillDateFrom:'*':BillDateThru:'*':DirToPrint:'*':Custs:'*':Plant\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a from date or a thru date.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHED_RPT3.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/SCHED_RPT3.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHED_RPT3.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHED_RPT3.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/SCHED_RPT3.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHED_RPT3.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHED_RPT3.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/SCHED_RPT3.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..9cabb0b --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHED_RPT3.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function sched_rpt1, send_event, msg\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nCusts = .customer_info->array<1>\r\nswap @vm:@vm with '' in Custs\r\nif Custs[-1,1] = @vm then Custs[-1,1] = ''\r\nBillDateFrom = .bill_date_from->text\r\nBillDateThru = .bill_date_thru->text\r\nPlant = .plant->text\r\nif BillDateFrom or BillDateThru then\r\n\tDirToPrint = .send_to_printer->text\r\n\tRetVal = BillDateFrom:'*':BillDateThru:'*':DirToPrint:'*':Custs:'*':Plant\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a from date or a thru date.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHED_RPT4.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/SCHED_RPT4.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHED_RPT4.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHED_RPT4.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/SCHED_RPT4.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHED_RPT4.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHED_RPT4.LOT_NUM.json b/LSL2/OIEVENT/CLICK/SCHED_RPT4.LOT_NUM.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHED_RPT4.LOT_NUM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHED_RPT4.PART_NUM.json b/LSL2/OIEVENT/CLICK/SCHED_RPT4.PART_NUM.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHED_RPT4.PART_NUM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHED_RPT4.PO.json b/LSL2/OIEVENT/CLICK/SCHED_RPT4.PO.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHED_RPT4.PO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHED_RPT4.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/SCHED_RPT4.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..3c107a0 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHED_RPT4.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function sched_rpt1, send_event, msg\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\n* ss stands for scheduled ship\r\nSSDateFrom = .ss_date_from->text\r\nSSDateThru = .ss_date_thru->text\r\nCusts = .customer_info->array<1>\r\nswap @vm:@vm with '' in Custs\r\nif Custs[-1,1] = @vm then Custs[-1,1] = ''\r\nPO = .po->array\r\nswap @vm:@vm with '' in PO\r\nif PO[-1,1] = @vm then PO[-1,1] = ''\r\nLotNum = .lot_num->array\r\nswap @vm:@vm with '' in LotNum\r\nif LotNum[-1,1] = @vm then LotNum[-1,1] = ''\r\nWO = .wo->array\r\nswap @vm:@vm with '' in WO\r\nif WO[-1,1] = @vm then WO[-1,1] = ''\r\nPartNum = .part_num->array\r\nswap @vm:@vm with '' in PartNum\r\nif PartNum[-1,1] = @vm then PartNum[-1,1] = ''\r\nif SSDateFrom and SSDateThru then\r\n\tDirToPrint = .send_to_printer->text\r\n\tRetVal = SSDateFrom:'*':SSDateThru:'*':DirToPrint:'*':Custs:'*':PO:'*':WO:'*':LotNum:'*':PartNum\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a Scheduled Shipment from date and a thru date.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHED_RPT4.WO.json b/LSL2/OIEVENT/CLICK/SCHED_RPT4.WO.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHED_RPT4.WO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHED_SRPT1.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/SCHED_SRPT1.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHED_SRPT1.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHED_SRPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/SCHED_SRPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHED_SRPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHED_SRPT1.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/SCHED_SRPT1.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..ce295a4 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHED_SRPT1.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function sched_rpt1, send_event, msg, ex_vm_rem\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nBillDateFrom = .bill_date_from->text\r\nBillDateThru = .bill_date_thru->text\r\nPlant = .plant->text\r\nCusts = .customer_info->array<1>\r\nCusts = ex_vm_rem(Custs)\r\nif BillDateFrom or BillDateThru then\r\n*DirToPrint = .send_to_printer->text\r\n DirToPrint = ''\r\n RetVal = BillDateFrom:'*':BillDateThru:'*':Custs:'*':Plant:'*':DirToPrint\r\n end_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a from date or a thru date.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHED_SRPT2.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/SCHED_SRPT2.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHED_SRPT2.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHED_SRPT2.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/SCHED_SRPT2.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHED_SRPT2.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHED_SRPT2.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/SCHED_SRPT2.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..ce295a4 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHED_SRPT2.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function sched_rpt1, send_event, msg, ex_vm_rem\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nBillDateFrom = .bill_date_from->text\r\nBillDateThru = .bill_date_thru->text\r\nPlant = .plant->text\r\nCusts = .customer_info->array<1>\r\nCusts = ex_vm_rem(Custs)\r\nif BillDateFrom or BillDateThru then\r\n*DirToPrint = .send_to_printer->text\r\n DirToPrint = ''\r\n RetVal = BillDateFrom:'*':BillDateThru:'*':Custs:'*':Plant:'*':DirToPrint\r\n end_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a from date or a thru date.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHED_SRPT3.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/SCHED_SRPT3.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHED_SRPT3.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHED_SRPT3.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/SCHED_SRPT3.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHED_SRPT3.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCHED_SRPT3.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/SCHED_SRPT3.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..ce295a4 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCHED_SRPT3.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function sched_rpt1, send_event, msg, ex_vm_rem\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nBillDateFrom = .bill_date_from->text\r\nBillDateThru = .bill_date_thru->text\r\nPlant = .plant->text\r\nCusts = .customer_info->array<1>\r\nCusts = ex_vm_rem(Custs)\r\nif BillDateFrom or BillDateThru then\r\n*DirToPrint = .send_to_printer->text\r\n DirToPrint = ''\r\n RetVal = BillDateFrom:'*':BillDateThru:'*':Custs:'*':Plant:'*':DirToPrint\r\n end_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a from date or a thru date.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCRUBBER_MAINT_MULT.BUTTON_1.json b/LSL2/OIEVENT/CLICK/SCRUBBER_MAINT_MULT.BUTTON_1.json new file mode 100644 index 0000000..8198081 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCRUBBER_MAINT_MULT.BUTTON_1.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, msg, next_key, start_window\r\n$insert reactor_log_equ\r\n$insert logical\r\n$insert msg_equates\r\n\r\nLLInfo = .ll_info->array\r\nReactors = LLInfo<1>\r\nStartDate = LLInfo<2>\r\nStartTime = LLInfo<3>\r\nEndDate = LLInfo<4>\r\nEndTime = LLInfo<5>\r\nRcnt = fieldcount( Reactors, @vm )\r\nif ( Rcnt > 0 ) then\r\n\topen 'REACTOR_LOG' to RLTable else\r\n\t Void = msg( '', 'Unable to open REACTOR_LOG...' )\r\n\t return 0\r\n\tend\r\n CurDate = date()\r\n CurTime = time()\r\n EntryId = @user4\r\n RlKeys = ''\r\n for i = 1 to Rcnt\r\n ThisReactor = Reactors<1,i>\r\n if ThisReactor <> '' then\r\n\t \tNextRLKey = next_key( 'REACTOR_LOG', RLTable, 'NEXT', '' )\r\n\t\t\tRLRec = ''\r\n\t\t\tRLRec = iconv( StartDate<1,i>, 'D' )\r\n\t\t\tRLRec = iconv( StartTime<1,i>, 'MT' )\r\n\t\t\tRLRec = iconv( EndDate<1,i>, 'D' )\r\n\t\t\tRLRec = iconv( EndTime<1,i>, 'MT' )\r\n\t\t\tRLRec = ThisReactor\r\n\t\t\tRLRec = 'M' ;* for maintenance\r\n\t\t\tRLRec = EntryId\t\t\r\n\t\t\tRLRec = CurDate\r\n\t\t\tRLRec = 270 ;* replace nozzle\r\n\t\t\twrite RLRec on RLTable, NextRLKey else\r\n\t\t\t void = msg( '', 'Unable to write ':NextRLKey:' on REACTOR_LOG...' )\r\n\t\t\t return 0\r\n\t\t\tend\r\n\t\t\tunlock RLTable, NextRLKey else\r\n\t\t\t Void = msg( '', 'Unable to unlock ':NextRLKey:' on REACTOR_LOG...' )\r\n\t\t\t return 0\r\n\t\t\tend\r\n\t\t\tVoid = next_key( 'REACTOR_LOG', RLTable, 'UPDATE', NextRLKey )\r\n\t RlKeys<1,-1> = NextRLKey\t\t\r\n end\r\n next i\r\n\t.reactors->text = ''\r\n\tCleanArray = str( @vm, 6 ):@fm:str( @vm, 6 ):@fm:str( @vm, 6 ):@fm:str( @vm, 6 ):@fm:str( @vm, 6 )\r\n\t.ll_info->array = CleanArray\r\n if RlKeys <> '' then\r\n MsgInfo = ''\r\n MsgInfo = 'Do you wish to view the entrie(s)...'\r\n MsgInfo = 'BNY'\r\n MsgInfo = '?'\r\n Resp = msg( '', MsgInfo )\r\n if Resp then\r\n\t\t Void = start_window( 'REACTOR_LOG', '', RlKeys:'*CENTER', '', '' )\r\n end\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must select at least one reactor...'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SCRUBBER_MAINT_MULT.BUTTON_3.json b/LSL2/OIEVENT/CLICK/SCRUBBER_MAINT_MULT.BUTTON_3.json new file mode 100644 index 0000000..36a52cf --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SCRUBBER_MAINT_MULT.BUTTON_3.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "SelectedReacts = .reactors->text\r\nconvert @fm to @vm in SelectedReacts\r\nconvert @upper_case to '' in SelectedReacts\r\nconvert @lower_case to '' in SelectedReacts\r\nLLInfo = .ll_info->array\r\nRCol = LLInfo<1>\r\nswap @vm:@vm with '' in RCol\r\nif RCol[-1,1] = @vm then RCol[-1,1] = ''\r\nif RCol <> '' then\r\n RCol:= @vm:SelectedReacts\r\nend else\r\n RCol:= SelectedReacts\r\nend\r\nLLInfo<1> = RCol\r\n.ll_info->array = LLInfo\r\n.reactors->text = ''\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SEC_GROUPS.TABLESECURITY.json b/LSL2/OIEVENT/CLICK/SEC_GROUPS.TABLESECURITY.json new file mode 100644 index 0000000..64c3a5d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SEC_GROUPS.TABLESECURITY.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SEMI_LOG.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/SEMI_LOG.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SEMI_LOG.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SEMI_LOG.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/SEMI_LOG.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SEMI_LOG.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SEMI_LOG.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/SEMI_LOG.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SEMI_LOG.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SEMI_LOG.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/SEMI_LOG.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SEMI_LOG.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SEMI_LOG.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/SEMI_LOG.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SEMI_LOG.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SEMI_LOG.SIGN_BUTTON.json b/LSL2/OIEVENT/CLICK/SEMI_LOG.SIGN_BUTTON.json new file mode 100644 index 0000000..11a63e4 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SEMI_LOG.SIGN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo = 'This log has already been signed.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SEMI_LOG_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/SEMI_LOG_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..65fa37a --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SEMI_LOG_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, ex_vm_rem\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.SEMI_LOG' to DictSemiLogTable else\r\n Void = msg( '', 'Unable to open DICT.SEMI_LOG...' )\r\n return 0\r\nend\r\n\r\nSearchStr = ''\r\nDateFrom = .date_from->text\r\nDateThru = .date_thru->text\r\nTankNumber = ex_vm_rem( .tanknumber->text )\r\nconvert @fm to @vm in TankNumber; *text property will be fm delimited if >1 chosen\r\nTechIDs = ex_vm_rem( .techs->array<1> )\r\n\r\nswap @vm:@vm with '' in TechIDs\r\nif TechIDs[-1,1] = @vm then TechIDs[-1,1] = ''\r\nif TechIDs then\r\n SearchStr<-1> = 'TECH_SIG':@vm:TechIDs\r\nend\r\n\r\nif DateFrom and DateThru then\r\n SearchStr<-1> = 'DATE_CHANGED':@vm:DateFrom:'...':DateThru\r\nend else\r\n\tif DateFrom then\r\n\t SearchStr<-1> = 'DATE_CHANGED':@vm:'>=':DateFrom\r\n\tend\r\n\tif DateThru then\r\n\t SearchStr<-1> = 'DATE_CHANGED':@vm:'<=':DateThru\r\n\tend\r\nend\r\n\r\nif TankNumber then\r\n\tSearchStr<-1> = 'TANK_NO':@vm:TankNumber\r\nend\r\n\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'SEMI_LOG', DictSemiLogTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting Tank Change Log records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'SEMI_LOG', '#DATE_CHANGED':@fm:'#TIME_CHANGED':@fm:'TANK_NO', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SEMI_LOG_QUERY.TECHS.json b/LSL2/OIEVENT/CLICK/SEMI_LOG_QUERY.TECHS.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SEMI_LOG_QUERY.TECHS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SEMI_VEND_CODE.LU_VEND_CODE.json b/LSL2/OIEVENT/CLICK/SEMI_VEND_CODE.LU_VEND_CODE.json new file mode 100644 index 0000000..b9b674f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SEMI_VEND_CODE.LU_VEND_CODE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Popup\r\nDECLARE SUBROUTINE Set_Property, Send_Event\r\n\r\nVendCode = Popup(@WINDOW,'','SEMI_VEND_CODE')\r\n\r\nIF VendCode NE '' THEN\r\n\tSet_Property(@WINDOW:'.VEND_CD','DEFPROP',VendCode)\r\n\tSend_Event(@WINDOW:'.VEND_CD','LOSTFOCUS')\r\nEND\r\n\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SET_AC_REMIND.RUN.json b/LSL2/OIEVENT/CLICK/SET_AC_REMIND.RUN.json new file mode 100644 index 0000000..acbe15f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SET_AC_REMIND.RUN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, end_window, send_event, start_window\r\ndeclare subroutine rlist, record_lock, create_note\r\n$insert logical\r\n$insert rlist_equates\r\n$insert msg_equates\r\n$insert annual_contracts_equ\r\n$insert exports_equ\r\n$insert quote_sigs_equ\r\n\r\nIf Get_Property('NDW_MAIN', 'VISIBLE') then\r\n AppMain = 'NDW_MAIN'\r\nend else\r\n AppMain = 'LSL_MAIN2'\r\nend\r\n\r\nCurrentSize = .gasbar->size\r\nNewSize = CurrentSize\r\nNewSize<3> = 0\r\n.gasbar->size = NewSize\r\n.gasbar->visible = 1\r\nToday = date()\r\nAWeekAndADayFromNow = oconv( date()+8, 'D2/' )\r\nStatement = \"SELECT ANNUAL_CONTRACTS WITH STATUS = 'O' AND WITH BELOW_MIN_BALANCE\"\r\nrlist( Statement, target_activelist$, '', '', '' )\r\n@rn.counter = 0\r\nEof = false$\r\nOnePercent = iconv( @reccount*.01, 'MD0' )\r\nloop\r\n readnext Id else Eof = true$\r\nuntil Eof\r\n NoteSubject = 'Annual contract# ':Id\r\n NoteText = 'Annual contract# ':Id:' is below the minimum balance...Please see attachment'\r\n SendTo = xlate( 'CONFIG', 'QUOTE_SIGS', ACReminder$, 'X' )\r\n create_note( SendTo, 'System', NoteSubject, NoteText, 'ANNUAL_CONTRACTS', Id )\r\n if mod( @rn.counter, OnePercent ) else\r\n\t NewWidth = CurrentSize<3> * @rn.counter/@reccount\r\n\t .percent_complete->text = oconv(iconv( @rn.counter/@reccount*100, 'MD0' ), 'MD0' ):'%'\r\n\t NewSize<3> = NewWidth\r\n\t .gasbar->redraw = 0\r\n\t .gasbar->size = NewSize\r\n\t .gasbar->redraw = 1\r\n end\r\nrepeat\r\nif @rn.counter > 0 and @reccount > 0 then\r\n\tNewWidth = CurrentSize<3> * @rn.counter/@reccount\r\n\t.percent_complete->text = oconv(iconv( @rn.counter/@reccount*100, 'MD0' ), 'MD0' ):'%'\r\n\tNewSize<3> = NewWidth\r\n\t.gasbar->redraw = 0\r\n\t.gasbar->size = NewSize\r\n\t.gasbar->redraw = 1\r\nend\r\n* CALL THE SYSTEM EXPORT FOR THE PSNs FOR THE FORCASTING SYSTEM\r\nVoid = send_event( 'EXPORTS', 'CLOSE' )\r\nVoid = start_window ( 'EXPORTS', AppMain, 'SYSTEM_GENERATED*PSN_SYSTEM_EXPORT':'*':'':'*NOEXCEL', '', '' )\r\n* NOW CALL THE SYSTEM EXPORT FOR THE Invoices FOR THE FORCASTING SYSTEM\r\nopen 'EXPORTS' to ExportTable else\r\n void = msg( '', 'Unable to open EXPORTS...' )\r\n return 0\r\nend\r\n* NO LOCKING CAUSE I AM THE ONLY GOD THAT CAN SAVE THE SYSTEM EXPORTS\r\nExportTemplate = 'INVOICE_SYSTEM_EXPORT'\r\nTwoWeeksAgo = oconv( date()-14, 'D2/' )\r\nYesterday = oconv( date()-1, 'D2/' )\r\nwritev \"FROM \":TwoWeeksAgo:' TO ':Yesterday on ExportTable, ExportTemplate, exports_query_col_filter$ else\r\n void = msg( '', 'Unable to write to \"EXPORTS\" ':quote(ExportTemplate):'...contact MIS.' )\r\n return 0\r\nend\r\nVoid = send_event( 'EXPORTS', 'CLOSE' )\r\nVoid = start_window ( 'EXPORTS', AppMain, 'SYSTEM_GENERATED*':ExportTemplate:'*':'':'*NOEXCEL', '', '' )\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SET_CAR_REMIND.RUN.json b/LSL2/OIEVENT/CLICK/SET_CAR_REMIND.RUN.json new file mode 100644 index 0000000..440864b --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SET_CAR_REMIND.RUN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, end_window\r\ndeclare subroutine rlist, record_lock, create_note\r\n$insert logical\r\n$insert rlist_equates\r\n$insert msg_equates\r\n$insert car_equ\r\n\r\nCurrentSize = .gasbar->size\r\nNewSize = CurrentSize\r\nNewSize<3> = 0\r\n.gasbar->size = NewSize\r\n.gasbar->visible = 1\r\nopen 'CAR' to CARTable else\r\n Void = msg( '', 'Unable to open CAR table...' )\r\n return 0\r\nend\r\nToday = date()\r\nAWeekAndADayFromNow = oconv( date()+8, 'D2/' )\r\nStatement = 'SELECT CAR WITH CAR_INPLACE_DATE = \"\" AND WITH ANT_CAR_INPLACE_DATE <> \"\" AND WITH ANT_CAR_INPLACE_DATE < ':quote( AWeekAndADayFromNow )\r\nrlist( Statement, target_activelist$, '', '', '' )\r\n@rn.counter = 0\r\nEof = false$\r\nOnePercent = iconv( @reccount*.01, 'MD0' )\r\nloop\r\n readnext Id else Eof = true$\r\nuntil Eof\r\n read CARRec from CARTable, Id else\r\n Void = msg( '', 'Unable to read ':Id:' from CAR table.' )\r\n return 0\r\n end\r\n AntInplaceDate = CARRec\r\n begin case\r\n case AntInplaceDate = Today\r\n NoteText = \"This CAR#\":Id:\" anticipated in place date is today \":oconv( Today, 'D2/' ):'...Please make sure this is in place, date and sign; or have the VP of Manufacturing push the anticipated in place date out.'\r\n\t\t NoteSubject = 'CAR#':Id:' in place TODAY Reminder'\r\n case AntInplaceDate > Today\r\n NoteText = \"This CAR#\":Id:\" anticipated in place date is \":oconv( AntInplaceDate, 'D2/' ):'...Please make sure this is in place, date and sign by this date; or have the VP of Manufacturing push the anticipated in place date out.'\r\n\t\t NoteSubject = 'CAR#':Id:' in place Reminder'\r\n case AntInplaceDate < Today\r\n NoteText = \"This CAR#\":Id:\" anticipated in place date was \":oconv( AntInplaceDate, 'D2/' ):'...Please make sure this is in place, date and sign; or have the VP of Manufacturing push the anticipated in place date out.'\r\n\t\t NoteSubject = 'CAR#':Id:' in place LATE Reminder'\r\n end case\r\n create_note( CARRec, 'System', NoteSubject, NoteText, 'CAR', Id )\t \t \r\n if mod( @rn.counter, OnePercent ) else\r\n\t NewWidth = CurrentSize<3> * @rn.counter/@reccount\r\n\t .percent_complete->text = oconv(iconv( @rn.counter/@reccount*100, 'MD0' ), 'MD0' ):'%'\r\n\t NewSize<3> = NewWidth\r\n\t .gasbar->redraw = 0\r\n\t .gasbar->size = NewSize\r\n\t .gasbar->redraw = 1\r\n end\r\nrepeat\r\nif @rn.counter > 0 and @reccount > 0 then\r\n\tNewWidth = CurrentSize<3> * @rn.counter/@reccount\r\n\t.percent_complete->text = oconv(iconv( @rn.counter/@reccount*100, 'MD0' ), 'MD0' ):'%'\r\n\tNewSize<3> = NewWidth\r\n\t.gasbar->redraw = 0\r\n\t.gasbar->size = NewSize\r\n\t.gasbar->redraw = 1\r\nend\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SET_CLOSE_INVOICES.RUN.json b/LSL2/OIEVENT/CLICK/SET_CLOSE_INVOICES.RUN.json new file mode 100644 index 0000000..05a1f02 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SET_CLOSE_INVOICES.RUN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, end_window, ar_inv_exp, fieldcount\r\ndeclare subroutine rlist, record_lock\r\n$insert logical\r\n$insert rlist_equates\r\n$insert msg_equates\r\n$insert invoice_equ\r\n$insert invoice_srl_equ\r\n\r\n\r\nCurrentSize = .gasbar->size\r\nNewSize = CurrentSize\r\nNewSize<3> = 0\r\n.gasbar->size = NewSize\r\n.gasbar->visible = 1\r\nopen 'INVOICE' to InvoiceTable else\r\n Void = msg( '', 'Unable to open INVOICE table...' )\r\n return 0\r\nend\r\nStatement = 'SELECT INVOICE WITH STATUS = \"O\"'\r\nrlist( Statement, target_activelist$, '', '', '' )\r\n@rn.counter = 0\r\nEof = false$\r\n\r\nOnePercent = iconv( @reccount*.01, 'MD0' )\r\nloop\r\n readnext Id else Eof = true$\r\nuntil Eof\r\n record_lock( InvoiceTable, 'Invoice', Id )\r\n read InvoiceRec from InvoiceTable, Id else\r\n Void = msg( '', 'Unable to read ':Id:' from invoice table.' )\r\n return 0\r\n end\r\n InvoiceRec = 'C' ;* expired\r\n Balance = xlate( 'INVOICE', Id, 'BALANCE', 'X' )\r\n if Balance <> 0 then\r\n CCnt = fieldcount( InvoiceRec, @vm )\r\n if CCnt else\r\n CCnt = fieldcount( InvoiceRec, @vm )\r\n end\r\n if CCnt else\r\n\t\t CCnt = fieldcount( InvoiceRec, @vm ) \r\n end\r\n InvoiceRec = 'System'\r\n InvoiceRec = date()\r\n InvoiceRec = Balance\r\n end\r\n write InvoiceRec on InvoiceTable, Id else\r\n Void = msg( '', 'Unable to write ':Id:' on invoice table.' )\r\n return 0\r\n end\r\n unlock InvoiceTable, Id else\r\n Void = msg( '', 'Unable to unlock ':Id:' in invoice table.' )\r\n return 0\r\n end\r\n if mod( @rn.counter, OnePercent ) else\r\n\t NewWidth = CurrentSize<3> * @rn.counter/@reccount\r\n\t .percent_complete->text = oconv(iconv( @rn.counter/@reccount*100, 'MD0' ), 'MD0' ):'%'\r\n\t NewSize<3> = NewWidth\r\n\t .gasbar->redraw = 0\r\n\t .gasbar->size = NewSize\r\n\t .gasbar->redraw = 1\r\n end\r\nrepeat\r\nif @rn.counter > 0 and @reccount > 0 then\r\n\tNewWidth = CurrentSize<3> * @rn.counter/@reccount\r\n\t.percent_complete->text = oconv(iconv( @rn.counter/@reccount*100, 'MD0' ), 'MD0' ):'%'\r\n\tNewSize<3> = NewWidth\r\n\t.gasbar->redraw = 0\r\n\t.gasbar->size = NewSize\r\n\t.gasbar->redraw = 1\r\nend\r\n\r\n*\r\n* Automatically export the prior day of invoices to the mas90 subdirectory\r\n* if the run day is monday it will subtract three days for the prior friday\r\n* so if we ever invoice on the weekend it would be included.\r\n/**********\r\n* WITH ORACLE NO EXPORTING\r\n*Today = date()\r\n*Day = 'Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday'\r\n*convert ',' to @fm in Day\r\n*CurDay = Day\r\n*if CurDay = 'Monday' then\r\n* DayToStart = oconv( Today-3, 'D2/' ) ;* to get from last friday\r\n* DayToEnd = oconv( Today-1, 'D2/' ) ;* for yesterday\r\n*end else\r\n* DayToStart = oconv( Today-1, 'D2/' ) ;* for yesterday\r\n* DayToEnd = oconv( Today-1, 'D2/' ) ;* for yesterday\r\n*end\r\n*ParamToPass = DayToStart:'*':DayToEnd:'*M:\\90W\\MAS90\\INVOICE.M&S'\r\n*Void = ar_inv_exp(ParamToPass,False$)\r\n***********/\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SET_CLOSE_SCHEDULES.RUN.json b/LSL2/OIEVENT/CLICK/SET_CLOSE_SCHEDULES.RUN.json new file mode 100644 index 0000000..5cf7d7a --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SET_CLOSE_SCHEDULES.RUN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, end_window, fieldcount\r\ndeclare subroutine rlist, record_lock\r\n$insert logical\r\n$insert rlist_equates\r\n$insert msg_equates\r\n$insert rds_equ\r\n$insert schedule_equ\r\n$insert schedule_srl_equ\r\n\r\n\r\nCurrentSize = .gasbar->size\r\nNewSize = CurrentSize\r\nNewSize<3> = 0\r\n.gasbar->size = NewSize\r\n.gasbar->visible = 1\r\nopen 'SCHEDULE' to SchedTable else\r\n Void = msg( '', 'Unable to open SCHEDULE table...' )\r\n return 0\r\nend\r\nStatement = 'SELECT SCHEDULE WITH STATUS = \"O\"'\r\nrlist( Statement, target_activelist$, '', '', '' )\r\n@rn.counter = 0\r\nEof = false$\r\nToday = date()\r\nOnePercent = iconv( @reccount*.01, 'MD0' )\r\nloop\r\n readnext Id else Eof = true$\r\nuntil Eof\r\n read SchedRec from SchedTable, Id else\r\n Void = msg( '', 'Unable to read ':Id:' from SCHEDULE table.' )\r\n return 0\r\n end\r\n Update = false$\r\n Quantity = xlate( 'SCHEDULE', Id, 'QUANTITY', 'X' )\r\n if Quantity then ;* wafers shipped\r\n ShipSum = sum( SchedRec ) + sum( SchedRec ) + sum( SchedRec )\r\n if ShipSum = Quantity then ;* all shipped\r\n Update = true$\r\n end\r\n end else ;* setup or srp charge\r\n if SchedRec then\r\n Update = true$\r\n end\r\n end\r\n if Update then\r\n record_lock( SchedTable, 'Schedule', Id )\r\n\t SchedRec = 'C'\r\n\t SchedRec = Today\r\n\t write SchedRec on SchedTable, Id else\r\n\t Void = msg( '', 'Unable to write ':Id:' on schedule table.' )\r\n\t return 0\r\n\t end\r\n\t unlock SchedTable, Id else\r\n\t Void = msg( '', 'Unable to unlock ':Id:' in schedule table.' )\r\n\t return 0\r\n\t end\r\n end\r\n if mod( @rn.counter, OnePercent ) else\r\n NewWidth = CurrentSize<3> * @rn.counter/@reccount\r\n\t .percent_complete->text = oconv(iconv( @rn.counter/@reccount*100, 'MD0' ), 'MD0' ):'%'\r\n\t NewSize<3> = NewWidth\r\n\t .gasbar->redraw = 0\r\n\t .gasbar->size = NewSize\r\n\t .gasbar->redraw = 1\r\n end\r\nrepeat\r\nif @rn.counter > 0 and @reccount > 0 then\r\n\tNewWidth = CurrentSize<3> * @rn.counter/@reccount\r\n\t.percent_complete->text = oconv(iconv( @rn.counter/@reccount*100, 'MD0' ), 'MD0' ):'%'\r\n\tNewSize<3> = NewWidth\r\n\t.gasbar->redraw = 0\r\n\t.gasbar->size = NewSize\r\n\t.gasbar->redraw = 1\r\nend\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SET_CLOSE_WO_LOGS.RUN.json b/LSL2/OIEVENT/CLICK/SET_CLOSE_WO_LOGS.RUN.json new file mode 100644 index 0000000..14c1ace --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SET_CLOSE_WO_LOGS.RUN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, end_window, fieldcount, set_status\r\ndeclare subroutine rlist, record_lock, extract_si_keys\r\n$insert logical\r\n$insert rlist_equates\r\n$insert msg_equates\r\n$insert rds_equ\r\n$insert wo_log_equ\r\n$insert prod_spec_equ\r\n$insert quote_spec_equ\r\n\r\nCurrentSize = .gasbar->size\r\nNewSize = CurrentSize\r\nNewSize<3> = 0\r\n.gasbar->size = NewSize\r\n.gasbar->visible = 1\r\nopen 'WO_LOG' to WoLogTable else\r\n Void = msg( '', 'Unable to open WO_LOG...' )\r\n return 0\r\nend\r\nopen 'RDS' to RdsTable else\r\n Void = msg( '', 'Unable to open RDS...' )\r\n return 0\r\nend\r\nopen 'PROD_SPEC' to PSNTable else\r\n Void = msg( '', 'Unable to open PSN...' )\r\n return 0\r\nend\r\nVoid = set_status(0)\r\nStatement = 'SELECT WO_LOG WITH STATUS = \"O\"'\r\nrlist( Statement, target_activelist$, '', '', '' )\r\n@rn.counter = 0\r\nEof = false$\r\nToday = date()\r\nOnePercent = iconv( @reccount*.01, 'MD0' )\r\nloop\r\n readnext Id else Eof = true$\r\nuntil Eof\r\n read WoLogRec from WoLogTable, Id else\r\n Void = msg( '', 'Unable to read ':Id:' from WO_LOG table.' )\r\n return 0\r\n end\r\n Update = true$\r\n extract_si_keys( 'RDS', 'WO', Id, RdsToProc )\r\n Rcnt = fieldcount( RdsToProc, @vm )\r\n if Rcnt > 0 else\r\n Update = false$\r\n end\r\n for i = 1 to Rcnt\r\n read RdsRec from RdsTable, RdsToProc<1,i> else\r\n Void = msg( '', 'Unable to read ':RdsToProc<1,i>:' from RDS...':Id )\r\n GOTO NEXTRDS\r\n *return 0\r\n end\r\n if RdsRec = 'S' else\r\n Update = false$\r\n end\r\n until Update = false$\r\n NEXTRDS:\r\n next i\r\n if Update then\r\n record_lock( WoLogTable, 'Wo Log', Id )\r\n\t WoLogRec = 'C'\r\n\t WoLogRec = date()\r\n write WoLogRec on WoLogTable, Id else\r\n Void = msg( '', 'Unable to write ':Id:' on WO_LOG table.' )\r\n\t return 0\r\n\t end\r\n unlock WoLogTable, Id else\r\n Void = msg( '', 'Unable to unlock ':Id:' in WO_LOG table.' )\r\n\t return 0\r\n\t end\r\n end\r\n if mod( @rn.counter, OnePercent ) else\r\n NewWidth = CurrentSize<3> * @rn.counter/@reccount\r\n\t .percent_complete->text = oconv(iconv( @rn.counter/@reccount*100, 'MD0' ), 'MD0' ):'%'\r\n\t NewSize<3> = NewWidth\r\n\t .gasbar->redraw = 0\r\n\t .gasbar->size = NewSize\r\n\t .gasbar->redraw = 1\r\n end\r\nrepeat\r\nif @rn.counter > 0 and @reccount > 0 then\r\n\tNewWidth = CurrentSize<3> * @rn.counter/@reccount\r\n\t.percent_complete->text = oconv(iconv( @rn.counter/@reccount*100, 'MD0' ), 'MD0' ):'%'\r\n\tNewSize<3> = NewWidth\r\n\t.gasbar->redraw = 0\r\n\t.gasbar->size = NewSize\r\n\t.gasbar->redraw = 1\r\nend\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SET_EXPIRED_QUOTES.RUN.json b/LSL2/OIEVENT/CLICK/SET_EXPIRED_QUOTES.RUN.json new file mode 100644 index 0000000..5204569 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SET_EXPIRED_QUOTES.RUN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, end_window\r\ndeclare subroutine rlist, record_lock, update_index, create_note\r\n$insert logical\r\n$insert rlist_equates\r\n$insert msg_equates\r\n$insert quote_equ\r\n$insert quote_sigs_equ\r\n\r\nCurrentSize = .gasbar->size\r\nNewSize = CurrentSize\r\nNewSize<3> = 0\r\n.gasbar->size = NewSize\r\n.gasbar->visible = 1\r\nopen 'QUOTE' to QuoteTable else\r\n Void = msg( '', 'Unable to open QUOTE table...' )\r\n return 0\r\nend\r\n* DON'T SET QUOTES TO EXPIRED IF THEY ARE CLOSED\r\nToday = date()\r\nMonthFromNow = date()+30\r\nMonthFromNowOut = oconv( MonthFromNow, 'D2/' )\r\nWeekFromNow = date()+7\r\nStatement = 'SELECT QUOTE WITH STATUS <> \"C\" AND WITH EXP_DATE < ':quote(MonthFromNowOut)\r\nrlist( Statement, target_activelist$, '', '', '' )\r\n@rn.counter = 0\r\nEof = false$\r\nOnePercent = iconv( @reccount*.01, 'MD0' )\r\nloop\r\n readnext Id else Eof = true$\r\nuntil Eof\r\n * ONLY CLOSE THE QUOTES THAT ARE ACTUALLY EXPIRED\r\n read QuoteRec from QuoteTable, Id else\r\n Void = msg( '', 'Unable to read ':Id:' from quote table.' )\r\n return 0\r\n end\r\n ExpDate = QuoteRec\r\n if ExpDate <= date() then\r\n\t record_lock( QuoteTable, 'Quote', Id )\r\n\t * NEED TO REREAD\r\n\t read QuoteRec from QuoteTable, Id else\r\n\t Void = msg( '', 'Unable to read ':Id:' from quote table.' )\r\n\t return 0\r\n\t end\r\n\t QuoteRec = 'E' ;* expired\r\n\t write QuoteRec on QuoteTable, Id else\r\n\t Void = msg( '', 'Unable to write ':Id:' on quote table.' )\r\n\t return 0\r\n\t end\r\n\t unlock QuoteTable, Id else\r\n\t Void = msg( '', 'Unable to unlock ':Id:' in quote table.' )\r\n\t return 0\r\n\t end\r\n end else\r\n DaysForExp = ExpDate-Today \r\n if DaysForExp > 30 else\r\n\t * NOW SEE IF WE SHOULD WARN ABOUT EXPIRING\r\n\t ExpWarn = QuoteRec\r\n\t \t SignatureInfo = xlate( 'CONFIG', 'QUOTE_SIGS', '', 'X' )\r\n\t Notify = xlate( 'CONFIG', 'QUOTE_SIGS', ExpiredQuotesNotif$, 'X' )\r\n\t * REMMED THE BELOW CODE CAUSE THERE WERE TOO MANY MESSAGES\r\n\t *if DaysForExp <= 7 then\r\n\t * * ONLY A WEEK LEFT NOW WARN EVERY DAY\r\n\t * NoteSubject = 'Quote ':Id:' about to expire'\r\n\t * NoteText = 'Quote ':Id:' will expire on ':oconv( ExpDate, 'D2/' ):'...Please see attachment.'\r\n * create_note( Notify, 'System', NoteSubject, NoteText, 'QUOTE', Id )\t \r\n\t *end else\r\n\t * IS BETWEEN 8 AND 30 DAYS BEFORE EXPIRATION ONLY WARN IF THIS QUOTE HAS\r\n\t * NOT ALREADY BEEN USED FOR WARNING\r\n\t if ExpWarn else\r\n\t\t NoteSubject = 'Quote ':Id:' about to expire'\r\n\t\t NoteText = 'Quote ':Id:' will expire on ':oconv( ExpDate, 'D2/' ):'...Please see attachment.'\r\n\t create_note( Notify, 'System', NoteSubject, NoteText, 'QUOTE', Id )\r\n\t end\r\n\t *end\r\n\t if ExpWarn else\r\n\t * HAVE NOT BEEN WARNED ABOUT THIS QUOTE\r\n\t\t\t record_lock( QuoteTable, 'Quote', Id )\r\n\t\t\t * NEED TO REREAD\r\n\t\t\t read QuoteRec from QuoteTable, Id else\r\n\t\t\t Void = msg( '', 'Unable to read ':Id:' from quote table.' )\r\n\t\t\t return 0\r\n\t\t\t end\r\n\t\t\t QuoteRec = 1 ;* flag \r\n\t\t\t write QuoteRec on QuoteTable, Id else\r\n\t\t\t Void = msg( '', 'Unable to write ':Id:' on quote table.' )\r\n\t\t\t return 0\r\n\t\t\t end\r\n\t\t\t unlock QuoteTable, Id else\r\n\t\t\t Void = msg( '', 'Unable to unlock ':Id:' in quote table.' )\r\n\t\t\t return 0\r\n\t\t\t end\r\n\t end\r\n\t end\r\n end\r\n if mod( @rn.counter, OnePercent ) else\r\n\t NewWidth = CurrentSize<3> * @rn.counter/@reccount\r\n\t .percent_complete->text = oconv(iconv( @rn.counter/@reccount*100, 'MD0' ), 'MD0' ):'%'\r\n\t NewSize<3> = NewWidth\r\n\t .gasbar->redraw = 0\r\n\t .gasbar->size = NewSize\r\n\t .gasbar->redraw = 1\r\n end\r\nrepeat\r\nif @rn.counter > 0 and @reccount > 0 then\r\n\tNewWidth = CurrentSize<3> * @rn.counter/@reccount\r\n\t.percent_complete->text = oconv(iconv( @rn.counter/@reccount*100, 'MD0' ), 'MD0' ):'%'\r\n\tNewSize<3> = NewWidth\r\n\t.gasbar->redraw = 0\r\n\t.gasbar->size = NewSize\r\n\t.gasbar->redraw = 1\r\nend\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SET_ICAR_REMIND.RUN.json b/LSL2/OIEVENT/CLICK/SET_ICAR_REMIND.RUN.json new file mode 100644 index 0000000..8577e7d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SET_ICAR_REMIND.RUN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, end_window\r\ndeclare subroutine rlist, record_lock, create_note\r\n$insert logical\r\n$insert rlist_equates\r\n$insert msg_equates\r\n$insert icar_equ\r\n\r\nCurrentSize = .gasbar->size\r\nNewSize = CurrentSize\r\nNewSize<3> = 0\r\n.gasbar->size = NewSize\r\n.gasbar->visible = 1\r\nopen 'ICAR' to ICARTable else\r\n Void = msg( '', 'Unable to open ICAR table...' )\r\n return 0\r\nend\r\nToday = date()\r\nStatement = 'SELECT ICAR WITH STATUS = \"O\" AND WITH RESP_SUPERVISOR_SIG = \"\"'\r\nrlist( Statement, target_activelist$, '', '', '' )\r\nToday = date()\r\n@rn.counter = 0\r\nEof = false$\r\nOnePercent = iconv( @reccount*.01, 'MD0' )\r\nloop\r\n readnext Id else Eof = true$\r\nuntil Eof\r\n read ICARRec from ICARTable, Id else\r\n Void = msg( '', 'Unable to read ':Id:' from ICAR table.' )\r\n return 0\r\n end\r\n IssueDate = ICARRec\r\n NumOfDays = Today - IssueDate\r\n if ( NumOfDays ) > 6 then\r\n RespSup = ICARRec\r\n NoteText = \"This ICAR#\":Id:\" needs to be signed off by you as the responsible supervisor. It was issued on \":oconv( IssueDate, 'D2/' ):'...which has been ':NumOfDays:' days. Please be sure to sign this soon.'\r\n NoteSubject = 'ICAR#':Id:' LATE signature reminder'\r\n create_note( RespSup, 'System', NoteSubject, NoteText, 'ICAR', Id )\t \t \r\n end\r\n if mod( @rn.counter, OnePercent ) else\r\n\t NewWidth = CurrentSize<3> * @rn.counter/@reccount\r\n\t .percent_complete->text = oconv(iconv( @rn.counter/@reccount*100, 'MD0' ), 'MD0' ):'%'\r\n\t NewSize<3> = NewWidth\r\n\t .gasbar->redraw = 0\r\n\t .gasbar->size = NewSize\r\n\t .gasbar->redraw = 1\r\n end\r\nrepeat\r\nif @rn.counter > 0 and @reccount > 0 then\r\n\tNewWidth = CurrentSize<3> * @rn.counter/@reccount\r\n\t.percent_complete->text = oconv(iconv( @rn.counter/@reccount*100, 'MD0' ), 'MD0' ):'%'\r\n\tNewSize<3> = NewWidth\r\n\t.gasbar->redraw = 0\r\n\t.gasbar->size = NewSize\r\n\t.gasbar->redraw = 1\r\nend\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SET_INACTIVATE_PSN.RUN.json b/LSL2/OIEVENT/CLICK/SET_INACTIVATE_PSN.RUN.json new file mode 100644 index 0000000..a2ef0eb --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SET_INACTIVATE_PSN.RUN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, end_window\r\ndeclare subroutine rlist, record_lock, create_note\r\n$insert logical\r\n$insert rlist_equates\r\n$insert msg_equates\r\n$insert prod_spec_equ\r\n$insert quote_spec_equ\r\n\r\n\r\n\r\n* REMOVE THIS FROM THE NIGHTLY PROCESS WINDOW\r\n\r\nCurrentSize = .gasbar->size\r\nNewSize = CurrentSize\r\nNewSize<3> = 0\r\n.gasbar->size = NewSize\r\n.gasbar->visible = 1\r\nopen 'PROD_SPEC' to PSNTable else\r\n Void = msg( '', 'Unable to open PROD_SPEC table...' )\r\n return 0\r\nend\r\n*\r\n********\r\nToday = date()\r\nTodayOut = oconv( Today, 'D2/' )\r\nTheFirstDay = iconv( field( TodayOut, '/', 1 ):'/01/':field( TodayOut, '/', 3 ), 'D2/' )\r\nFirstDayPos = mod( TheFirstDay, 7 )+1\r\nDay = field( TodayOut, '/', 2 )+0\r\n\r\nif ( Day = 1 ) or ( Day < 4 and ( ( FirstDayPos = 7 ) or ( FirstDayPos = 1 ) ) ) then\r\n * TODAY IS EITHER THE FIRST OF TODAY IS THE THIRD OR SECOND AND THE FIRST WAS OVER THE \r\n * WEEKEND\r\n * NOW SEE IF IT IS TUESDAY IF IT IS THEN IT RAN ON MONDAY AND DO NOT RUN AGAIN\r\n TodayDay = mod( Today, 7 )+1\r\n if TodayDay = 3 then\r\n * DO NOT RUN CAUSE TODAY IS TUESDAY AND IT RAN ON MONDAY\r\n return 1\r\n end\r\n\tStatement = 'SELECT PROD_SPEC WITH STATUS = \"A\" AND WITH ACTIVITY_6MO = 0'\r\n\t* IF WE GET HERE WE ARE RUNNING THE PROCESSW\r\n\trlist( Statement, target_activelist$, '', '', '' )\r\n\t@rn.counter = 0\r\n\tEof = false$\r\n\tOnePercent = iconv( @reccount*.01, 'MD0' )\r\n\tloop\r\n\t readnext Id else Eof = true$\r\n\tuntil Eof\r\n\t record_lock( PSNTable, 'PROD_SPEC', Id ) \t\r\n\t read PSNRec from PSNTable, Id else\r\n\t Void = msg( '', 'Unable to read ':Id:' from PSN table.' )\r\n\t return 0\r\n\t end\r\n\t PSNRec = 'I'\r\n\t SpecAddtl = PSNRec = ''\r\n PSNRec = SpecAddtl\r\n\t write PSNRec on PSNTable, Id else\r\n\t Void = msg( '', 'Unable to write ':Id:' on PSN table.' )\r\n\t return 0\r\n\t end\r\n\t unlock PSNTable, Id else\r\n\t Void = msg( '', 'Unable to unlock ':Id:' in PSN table.' )\r\n\t return 0\r\n\t end\r\n\t if mod( @rn.counter, OnePercent ) else\r\n\t\t NewWidth = CurrentSize<3> * @rn.counter/@reccount\r\n\t\t .percent_complete->text = oconv(iconv( @rn.counter/@reccount*100, 'MD0' ), 'MD0' ):'%'\r\n\t\t NewSize<3> = NewWidth\r\n\t\t .gasbar->redraw = 0\r\n\t\t .gasbar->size = NewSize\r\n\t\t .gasbar->redraw = 1\r\n\t end\r\n\trepeat\r\n\tif @rn.counter > 0 and @reccount > 0 then\r\n\t\tNewWidth = CurrentSize<3> * @rn.counter/@reccount\r\n\t\t.percent_complete->text = oconv(iconv( @rn.counter/@reccount*100, 'MD0' ), 'MD0' ):'%'\r\n\t\tNewSize<3> = NewWidth\r\n\t\t.gasbar->redraw = 0\r\n\t\t.gasbar->size = NewSize\r\n\t\t.gasbar->redraw = 1\r\n\tend\r\nend else\r\n return 1\r\nend\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SET_LINK_RDS_RL.RUN.json b/LSL2/OIEVENT/CLICK/SET_LINK_RDS_RL.RUN.json new file mode 100644 index 0000000..7763785 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SET_LINK_RDS_RL.RUN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, end_window, fieldcount, msg\r\ndeclare subroutine rlist, record_lock, update_index, btree.extract\r\n$insert logical\r\n$insert rlist_equates\r\n$insert msg_equates\r\n$insert rds_equ\r\n$insert reactor_log_equ\r\n\r\nCurrentSize = .gasbar->size\r\nNewSize = CurrentSize\r\nNewSize<3> = 0\r\n.gasbar->size = NewSize\r\n.gasbar->visible = 1\r\nopen 'REACTOR_LOG' to ReactorLogTable else\r\n Void = msg( '', 'Unable to open REACTOR_LOG...' )\r\n return 0\r\nend\r\nopen 'DICT.RDS' to DictRdsTable else\r\n Void = msg( '', 'Unable to open DICT.RDS...' )\r\n return 0\r\nend\r\nopen 'RDS' to RdsTable else\r\n Void = msg( '', 'Unable to open RDS...' )\r\n return 0\r\nend\r\nopen 'SYSLISTS' to SysListsTable else\r\n Void = msg( '', 'Unable to open SYSLISTS...' )\r\n return 0\r\nend\r\nToday = date()\r\n*\r\n* only select reactor logs for up to a 3 days ago as to not keep trying to\r\n* link something that does not need linking for 6 months ago\r\nThreeDaysAgo = quote( oconv( Today-3, 'D2/' ) )\r\nStatement = 'SELECT REACTOR_LOG WITH RDS_NO = \"\" AND WITH ENTRY_DATE >= ':ThreeDaysAgo\r\nrlist( Statement, target_activelist$, '', '', '' )\r\n@rn.counter = 0\r\nEof = false$\r\nOnePercent = iconv( @reccount*.01, 'MD0' )\r\nListOut = ''\r\nloop\r\n readnext Id else Eof = true$\r\nuntil Eof\r\n read ReactorLogRec from ReactorLogTable, Id else\r\n Void = msg( '', 'Unable to read ':Id:' from REACTOR_LOG table.' )\r\n return 0\r\n end\r\n RlReactor = ReactorLogRec\r\n RlStartDate = ReactorLogRec\r\n RlStartTime = ReactorLogRec\r\n RlEndDate = ReactorLogRec\r\n RlEndTime = ReactorLogRec\r\n FindBeg = (RlStartDate*24*60*60)+RlStartTime\r\n FindEnd = (RlEndDate*24*60*60)+RlEndTime\r\n if ( RlStartDate <> '' ) and ( RlEndDate <> '' ) and ( RlReactor <> '' ) then\r\n\t SearchStr = ''\r\n\t SearchStr<-1> = 'DATE_IN':@vm:oconv(RlStartDate,'D2/')\r\n\t SearchStr<-1> = 'DATE_OUT':@vm:';':oconv(RlEndDate,'D2/')\r\n\t SearchStr<-1> = 'REACTOR':@vm:RlReactor\t \r\n\t SearchStr := @fm\r\n\t btree.extract( SearchStr, 'RDS', DictRdsTable, RdsKeys, '', Flag )\r\n\t Rcnt = fieldcount( RdsKeys, @vm )\r\n StampThis = false$\t \r\n\t for i = 1 to Rcnt\r\n\t ThisRdsId = RdsKeys<1,i>\r\n\t read RdsRec from RdsTable, ThisRdsId else\r\n\t Void = msg( '', 'Unable to read ':ThisRdsId:' from RDS...' )\r\n\t return 0\r\n\t end\r\n\t RdsReactor = RdsRec\r\n\t RdsDateIn = RdsRec\r\n\t RdsDateOut = RdsRec\r\n\t RdsTimeIn = RdsRec\r\n\t RdsTimeOut = RdsRec\r\n\t RdsWo = RdsRec\r\n\t RdsCust = RdsRec\r\n\t BegRange = (RdsDateIn*24*60*60)+RdsTimeIn\r\n\t EndRange = (RdsDateOut*24*60*60)+RdsTimeOut\r\n\t if (RdsDateIn) and (RdsDateOut) and (RdsTimeIn) and (RdsTimeOut) then\r\n\t if ( FindBeg > BegRange ) and ( FindBeg < EndRange ) then\r\n\t gosub WriteRlRecord\t \t \r\n\t end else\r\n\t if ( FindEnd > BegRange ) and ( FindEnd < EndRange ) then\r\n \t gosub WriteRlRecord\t \r\n \t end\r\n \t end\r\n\t end\r\n\t *RlReactor = ReactorLogRec\r\n\t *RlStartDate = ReactorLogRec\r\n\t *RlStartTime = ReactorLogRec\r\n\t *RlEndDate = ReactorLogRec\r\n\t *RlEndTime = ReactorLogRec\r\n\t until StampThis\r\n\t next i\r\n\t if mod( @rn.counter, OnePercent ) else\r\n\t NewWidth = CurrentSize<3> * @rn.counter/@reccount\r\n\t\t .percent_complete->text = oconv(iconv( @rn.counter/@reccount*100, 'MD0' ), 'MD0' ):'%'\r\n\t\t NewSize<3> = NewWidth\r\n\t\t .gasbar->redraw = 0\r\n\t\t .gasbar->size = NewSize\r\n\t\t .gasbar->redraw = 1\r\n\t end\r\n\tend\r\n\tdoit:\r\nrepeat\r\nif @rn.counter > 0 and @reccount > 0 then\r\n\tNewWidth = CurrentSize<3> * @rn.counter/@reccount\r\n\t.percent_complete->text = oconv(iconv( @rn.counter/@reccount*100, 'MD0' ), 'MD0' ):'%'\r\n\tNewSize<3> = NewWidth\r\n\t.gasbar->redraw = 0\r\n\t.gasbar->size = NewSize\r\n\t.gasbar->redraw = 1\r\nend\r\nif ListOut <> '' then\r\n ListId = 'RL':oconv( date(), 'D2/' )\r\n write ListOut to SysListsTable, ListId else\r\n Void = msg( '', 'Unable to write ':ListId:' on SYSLISTS...' )\r\n return 0\r\n end\t\r\nend\r\nreturn 1\r\n*===========================================================================*\r\nWriteRLRecord:\r\nStampThis = true$\r\nListOut<-1> = Id:'->':ThisRdsId:'*':field(RdsKeys,@vm,i+1,999)\r\nrecord_lock( ReactorLogTable, 'Reactor Log', Id )\r\nReactorLogRec = ThisRdsId\r\nReactorLogRec = RdsWo\r\nReactorLogRec = RdsReactor\r\nReactorLogRec = RdsCust\r\nwrite ReactorLogRec on ReactorLogTable, Id else\r\n Void = msg( '', 'Unable to write ':Id:' on REACTOR_LOG table.' )\r\n return 0\r\nend\r\nunlock ReactorLogTable, Id else\r\n Void = msg( '', 'Unable to unlock ':Id:' in REACTOR_LOG table.' )\r\n return 0\r\nend\r\nreturn\r\n*===========================================================================*" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SET_PSN_REMIND.RUN.json b/LSL2/OIEVENT/CLICK/SET_PSN_REMIND.RUN.json new file mode 100644 index 0000000..7345510 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SET_PSN_REMIND.RUN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, end_window\r\ndeclare subroutine rlist, record_lock, create_note\r\n$insert logical\r\n$insert rlist_equates\r\n$insert msg_equates\r\n$insert prod_spec_equ\r\n$insert quote_spec_equ\r\n$insert quote_sigs_equ\r\n\r\n* REMOVE FROM THE NIGHTLY PROCESS ROUTINE\r\n\r\n* I DO NOT THINK WE SHOULD USE THE REMINDER ANY MORE\r\n* NEED TO SPEAK WITH THE PSN FLOW GROUP IF THIS IS TO BE USED IN THE FUTURE\r\n\r\nCurrentSize = .gasbar->size\r\nNewSize = CurrentSize\r\nNewSize<3> = 0\r\n.gasbar->size = NewSize\r\n.gasbar->visible = 1\r\nopen 'PROD_SPEC' to PSNTable else\r\n Void = msg( '', 'Unable to open PROD_SPEC table...' )\r\n return 0\r\nend\r\nToday = date()\r\nTodayOut = oconv( Today, 'D2/' )\r\nStatement = 'SELECT PROD_SPEC WITH STATUS = \"I\"'\r\n************************************REMOVED THE AND WITH ORDER_SIGNATURE <> \"\"' FROM LINE ABOVE CAUSE ORDER_SIGNATURE WENT BYE BYE\r\nrlist( Statement, target_activelist$, '', '', '' )\r\n@rn.counter = 0\r\nEof = false$\r\n\r\n\r\n* THIS SHOULD BE REMOVED FROM THE NIGHTLY PROCESS SETUP\r\n\r\n* SEND MESSAGE TO TSIS AND CTO AND ENGINEERS IF THEY HAVE NOT SIGNED\r\nSignatureInfo = xlate( 'CONFIG', 'QUOTE_SIGS', '', 'X' )\r\nMfgMgr = SignatureInfo\r\nEngMgr = SignatureInfo\r\n\r\nNote = 'This PSN attachment has missing signatures...Please review and sign if you are done reviewing.'\r\nOnePercent = iconv( @reccount*.01, 'MD0' )\r\nloop\r\n readnext Id else Eof = true$\r\nuntil Eof\r\n read PSNRec from PSNTable, Id else\r\n Void = msg( '', 'Unable to read ':Id:' from PSN table.' )\r\n return 0\r\n end\r\n SendTo = ''\r\n\r\n SpecAddtl = PSNRec\r\n SpecSub = PSNRec\r\n if SpecSub<1,QSSubSpecType$> = 'Q' else \r\n \r\n end\r\n if ( SendTo <> '' ) then\r\n SENDTO<1,-1> = 'BRYCE_M'\r\n Subject = 'PSN ':Id :' needs signing...' \r\n create_note( SendTo, 'System', Subject, Note, 'PROD_SPEC', Id ) \r\n end\r\n if mod( @rn.counter, OnePercent ) else\r\n\t NewWidth = CurrentSize<3> * @rn.counter/@reccount\r\n\t .percent_complete->text = oconv(iconv( @rn.counter/@reccount*100, 'MD0' ), 'MD0' ):'%'\r\n\t NewSize<3> = NewWidth\r\n\t .gasbar->redraw = 0\r\n\t .gasbar->size = NewSize\r\n\t .gasbar->redraw = 1\r\n end\r\nrepeat\r\nif @rn.counter > 0 and @reccount > 0 then\r\n\tNewWidth = CurrentSize<3> * @rn.counter/@reccount\r\n\t.percent_complete->text = oconv(iconv( @rn.counter/@reccount*100, 'MD0' ), 'MD0' ):'%'\r\n\tNewSize<3> = NewWidth\r\n\t.gasbar->redraw = 0\r\n\t.gasbar->size = NewSize\r\n\t.gasbar->redraw = 1\r\nend\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SET_REACTOR_PM_REMIND.RUN.json b/LSL2/OIEVENT/CLICK/SET_REACTOR_PM_REMIND.RUN.json new file mode 100644 index 0000000..3a08ae4 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SET_REACTOR_PM_REMIND.RUN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, end_window, fieldcount\r\ndeclare subroutine rlist, record_lock, create_note\r\n\r\n$insert logical\r\n$insert rlist_equates\r\n$insert msg_equates\r\n$insert react_servs_equ\r\n$insert reactor_pm_equ\r\n\r\nCurrentSize = .gasbar->size\r\nNewSize = CurrentSize\r\nNewSize<3> = 0\r\n.gasbar->size = NewSize\r\n.gasbar->visible = 1\r\nopen 'REACTOR_PM' to RPMTable else\r\n Void = msg( '', 'Unable to open REACTOR_PM table...' )\r\n return 0\r\nend\r\nToday = date()\r\nAWeekAndADayFromNow = oconv( date()+8, 'D2/' )\r\nStatement = 'SELECT REACTOR_PM WITH COMPLETE_DATE = \"\" AND WITH NEXT_DONE < ':quote( AWeekAndADayFromNow )\r\nrlist( Statement, target_activelist$, '', '', '' )\r\n@rn.counter = 0\r\nEof = false$\r\nOnePercent = iconv( @reccount*.01, 'MD0' )\r\nMaintTechs = xlate( 'LISTBOX_CONFIG', 'MAINTTECH', 1, 'X' )\r\n\r\nopen 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table...' )\r\n return 0\r\nend\r\n\r\nrecord_lock( ConfigTable, 'REACTOR_TODO_LIST', 'REACTOR_TODO_LIST' )\r\nwrite '' on ConfigTable, 'REACTOR_TODO_LIST' else\r\n Void = msg( '', 'Unable to write to CONFIG, REACTOR_TODO_LIST...' )\r\n return 0\r\nend\r\n\r\nReactors = ''\r\nServices = ''\r\nServiceDates = ''\r\n\r\nloop\r\n readnext Id else Eof = true$\r\nuntil Eof\r\n read RPMRec from RPMTable, Id else\r\n Void = msg( '', 'Unable to read ':Id:' from REACTOR_PM table.' )\r\n return 0\r\n end\r\n NextDone = RPMRec\r\n begin case\r\n case NextDone = Today\r\n NoteText = \"This Reactor PM#\":Id:\" next service date is today \":oconv( Today, 'D2/' ):'...Please make sure this is in handled.'\r\n\t\t NoteSubject = 'Reactor PM#':Id:' next service TODAY Reminder'\r\n case NextDone > Today\r\n NoteText = \"This Reactor PM#\":Id:\" next service date is \":oconv( NextDone, 'D2/' ):'...Please make sure this is handled soon.'\r\n\t\t NoteSubject = 'Reactor PM#':Id:' next service Reminder'\r\n case NextDone < Today\r\n NoteText = \"This Reactor PM#\":Id:\" next service date was \":oconv( NextDone, 'D2/' ):'...Please make sure this is handled today.'\r\n\t\t NoteSubject = 'Reactor PM#':Id:' next service LATE Reminder'\r\n end case\r\n *create_note( MaintTechs:@vm:'CHRIS_L':@vm:'BRYCE_M', 'System', NoteSubject, NoteText, 'REACTOR_PM', Id )\t \t \r\n * DO NOT SEND MESSAGES TO TECHS ANYMORE JUST LET THEM USE THE REACTOR TO-DO LIST\r\n * MAYBE CLEAN UP THIS CODE LATER\r\n CurReactor = RPMRec\r\n CurService = RPMRec\r\n CurServDate = RPMRec\r\n locate CurReactor in Reactors by 'AR' using @fm setting RPos then\r\n TheseServices = Services\r\n TheseServiceDates = ServiceDates\r\n locate CurServDate in TheseServiceDates by 'AR' using @vm setting SPos then\r\n * ALWAYS GOING TO INSERT NO MATTER WHAT\r\n end \r\n TheseServiceDates = insert( TheseServiceDates, 1, SPos, 0, CurServDate )\r\n TheseServices = insert( TheseServices, 1, SPos, 0, CurService )\r\n Services = TheseServices\r\n ServiceDates = TheseServiceDates\r\n end else\r\n Reactors = insert( Reactors, RPos, 0, 0, CurReactor )\r\n Services = insert( Services, RPos, 0, 0, '' )\r\n Services = insert( Services, RPos, 1, 0, CurService )\r\n ServiceDates = insert( ServiceDates, RPos, 0, 0, '' )\r\n ServiceDates = insert( ServiceDates, RPos, 1, 0, CurServDate )\r\n end\r\n if mod( @rn.counter, OnePercent ) else\r\n\t NewWidth = CurrentSize<3> * @rn.counter/@reccount\r\n\t .percent_complete->text = oconv(iconv( @rn.counter/@reccount*100, 'MD0' ), 'MD0' ):'%'\r\n\t NewSize<3> = NewWidth\r\n\t .gasbar->redraw = 0\r\n\t .gasbar->size = NewSize\r\n\t .gasbar->redraw = 1\r\n end\r\nrepeat\r\nif @rn.counter > 0 and @reccount > 0 then\r\n\tNewWidth = CurrentSize<3> * @rn.counter/@reccount\r\n\t.percent_complete->text = oconv(iconv( @rn.counter/@reccount*100, 'MD0' ), 'MD0' ):'%'\r\n\tNewSize<3> = NewWidth\r\n\t.gasbar->redraw = 0\r\n\t.gasbar->size = NewSize\r\n\t.gasbar->redraw = 1\r\nend\r\n* NOW WRITE OUT THE\r\nMyTvar = 'Reactor Services as of '\r\nMyTvar:= oconv( date(), 'D4/' ):' @ ':oconv( time(), 'MTHS' ):'...'\r\n\r\nReactorToDoList = '1: R# ':fmt('Due Date', 'C#12' ):' ':fmt('SID', 'L#4' ):' ':fmt( MyTvar, 'C#75' )\r\nRcnt = fieldcount( Reactors, @fm )\r\nfor i = 1 to Rcnt\r\n *\r\n ReactorToDoList<-1> = '1: ':fmt( Reactors, 'C#3' )\r\n TServs = Services\r\n TSDates = ServiceDates\r\n SCnt = fieldcount( TServs, @vm )\r\n ReactorToDoList<-1> = '2-2: ':str('-', 98 )\r\n for j = 1 to SCnt\r\n ReactorToDoList<-1> = '2-2: ':fmt( quote( oconv( TSDates<1,j>, 'D4/' ) ),'C#14' ):' ':fmt( TServs<1,j>, 'C#4' ):' ':fmt( xlate( 'REACT_SERVS', TServs<1,j>, REACT_SERVS_DESCRIPTION$, 'X' ), 'L#75' )\r\n next j\r\n ReactorToDoList<-1> = '2-2: ':str('-', 98 )\r\nnext i\r\nwrite ReactorToDoList on ConfigTable, 'REACTOR_TODO_LIST' else\r\n Void = msg( '', 'Unable to write to CONFIG, REACTOR_TODO_LIST...' )\r\n return 0\r\nend\r\nunlock ConfigTable, 'REACTOR_TODO_LIST' else\r\n Void = msg( '', 'Unable to unlock CONFIG REACTOR_TODO_LIST...' )\r\n return 0\r\nend\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SET_REACT_UTIL_NONPROD_WARN.RUN.json b/LSL2/OIEVENT/CLICK/SET_REACT_UTIL_NONPROD_WARN.RUN.json new file mode 100644 index 0000000..4adc067 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SET_REACT_UTIL_NONPROD_WARN.RUN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, end_window, fieldcount\r\ndeclare subroutine rlist, record_lock, create_note, btree.extract\r\n\r\n$insert logical\r\n$insert rlist_equates\r\n$insert msg_equates\r\n$insert react_servs_equ\r\n$insert reactor_pm_equ\r\n$insert react_mode_equ\r\n$insert react_util_equ\r\n$insert company_equ\r\n$insert quote_sigs_equ\r\n$insert spc_clean_hf_equ\r\n$insert spc_clean_hf_etch_equ\r\n$insert spc_clean_hf_akrion_equ\r\n$insert spc_clean_hf_etch_akrion_equ\r\n\r\nequ CrLf$ to char(13):char(10)\r\n\r\nCurrentSize = .gasbar->size\r\nNewSize = CurrentSize\r\nNewSize<3> = 0\r\n.gasbar->size = NewSize\r\n.gasbar->visible = 1\r\nopen 'REACT_UTIL' to RUTable else\r\n Void = msg( '', 'Unable to open REACT_UTIL table...' )\r\n return 0\r\nend\r\nopen 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table...' )\r\n return 0\r\nend\r\n\r\nToday = date()-2\r\nDay = 'Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday'\r\nconvert ',' to @fm in Day\r\nCurDay = Day\r\nif CurDay = 'Monday' then\r\n DayToStart = oconv( Today-3, 'D4/' ) ;* to get from last friday\r\n DayToEnd = oconv( Today, 'D4/' ) ;* for today\r\nend else\r\n DayToStart = oconv( Today-1, 'D4/' ) ;* for yesterday\r\n DayToEnd = oconv( Today, 'D4/' ) ;* for today\r\nend\r\n\r\nStatement = 'SELECT REACT_UTIL BY REACTOR WITH START_DATE FROM ':quote(DayToStart):' TO ':quote(DayToEnd)\r\nStatement:= ' OR WITH END_DATE FROM ':quote(DayToStart):' TO ':quote(DayToEnd)\r\n\r\nrlist( Statement, target_activelist$, '', '', '' )\r\n@rn.counter = 0\r\nEof = false$\r\nOnePercent = iconv( @reccount*.01, 'MD0' )\r\nloop\r\n readnext Id else Eof = true$\r\nuntil Eof\r\n read RURec from RUTable, Id else\r\n Void = msg( '', 'Unable to read ':Id:' from REACT_UTIL table.' )\r\n return 0\r\n end\r\n * IF ELAPSED HOURS <> NULL THEN IF \r\n StartTime = RURec\r\n StartDate = RURec\r\n EndTime = RURec\r\n EndDate = RURec\r\n \r\n if ( RURec <> \"P\" ) and ( RURec <> \"D\" ) then ;* PRODUCTION OR DOWN NO MATERIAL\r\n ElapsedHours = xlate( 'REACT_UTIL', Id, 'ELAPSED_HOURS', 'X' )\r\n Reactor = RURec\r\n if ElapsedHours = '' then\r\n * NOW CALCULATE THE ELAPSED HOURS BASED ON RIGHT HERE RIGHT NOW\r\n EndDate = date()\r\n EndTime = time()\r\n DateDiff = EndDate - StartDate\r\n SecondsToAdd = 0\r\n if DateDiff then\r\n SecondsToAdd = 86400*DateDiff\r\n end\r\n Tans = ( EndTime + SecondsToAdd ) - StartTime\r\n ElapsedHours = ( Tans /3600) * 100\r\n end \r\n EndDate = oconv( EndDate, 'D2/' )\r\n EndTime = oconv( EndTime, 'MTH' )\r\n StartDate = oconv( StartDate, 'D2/' )\r\n StartTime = oconv( StartTime, 'MTH' ) \r\n ElapsedHours = oconv( ElapsedHours, 'MD2' ) \r\n if ElapsedHours > 12.00 then\r\n * SEND A MESSAGE TO\r\n CustName = xlate( 'COMPANY', RURec, company_co_name$, 'X' )\r\n MsgText = ''\r\n MsgText = 'Reactor ':Reactor:' was in ':oconv( RURec, '[REACT_MODE_CONV]' ):' mode from ':StartTime:' on ':StartDate\r\n MsgText:= ' to ':EndTime:' on ':EndDate:'. This is a total of ':ElapsedHours:' hours.':CrLf$\r\n * NOW PUT IN THE CURRENT MODE\r\n ModeConfig = xlate( 'CONFIG', 'REACT_MODE':Reactor, '', 'X' )\r\n MsgText:= 'Reactor ':Reactor:' is currently in ':ModeConfig:' as of ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' )\r\n create_note( 'BRYCE_M', 'System', 'Reactor ':Reactor:' ':CustName, MsgText, '', '', '' )\r\n end\r\n end ;* IF IT IS ANYTHING BUT PRODUCTION THEN SEE IF IT HAS BEEN DOWN FOR 4+ HOURS\r\n if mod( @rn.counter, OnePercent ) else\r\n\t NewWidth = CurrentSize<3> * @rn.counter/@reccount\r\n\t .percent_complete->text = oconv(iconv( @rn.counter/@reccount*100, 'MD0' ), 'MD0' ):'%'\r\n\t NewSize<3> = NewWidth\r\n\t .gasbar->redraw = 0\r\n\t .gasbar->size = NewSize\r\n\t .gasbar->redraw = 1\r\n end\r\nrepeat\r\nif @rn.counter > 0 and @reccount > 0 then\r\n\tNewWidth = CurrentSize<3> * @rn.counter/@reccount\r\n\t.percent_complete->text = oconv(iconv( @rn.counter/@reccount*100, 'MD0' ), 'MD0' ):'%'\r\n\tNewSize<3> = NewWidth\r\n\t.gasbar->redraw = 0\r\n\t.gasbar->size = NewSize\r\n\t.gasbar->redraw = 1\r\nend\r\n****************************************************************************************************************************\r\n* THIS IS TO CHECK AND SEE IF THEY DID NOT PERFORM AN HF ETCH RATE TEST ON MONDAY, WEDNESDAY, OR FRIDAY\r\nToday = date()\r\nDay = mod( Today, 7 )\r\nDay += 1 ;* FOR THE 1 BASED ARRAY\r\nDays = 'Sunday/Monday/Tuesday/Wednesday/Thursday/Friday/Saturday'\r\nconvert '/' to @fm in Days\r\nDayOut = Days\r\nDateString = ''\r\nif DayOut = 'Monday' then\r\n DateString = oconv( Today-3, 'D2/' ):'...':oconv( Today-1, 'D2/' )\r\n DayToCheck = ''\r\nend else\r\n DateString = '=':oconv( Today-1, 'D2/' )\r\n DayToCheck = oconv( Today-1, 'D2/' )\r\nend\r\nSearchStr = ''\r\nSearchStr<-1> = 'DATE_TESTED':@vm:DateString\r\nSearchStr := @fm\r\n* do a btree.extract\r\nopen 'DICT.SPC_CLEAN_HF_ETCH' to DictSPCCleanHFTable else\r\n msg( '', 'Unable to open DICT.SPC_CLEAN_HF_ETCH...' )\r\n return 1\r\nend\r\nKeys = ''\r\nbtree.extract( SearchStr, 'SPC_CLEAN_HF_ETCH', DictSPCCleanHFTable, Keys, '', Flag )\r\nif Flag <> 0 then\r\n Void = msg( '', 'Error while extracting SPC_CLEAN_HF_ETCH records...' )\r\n return 1\r\nend\r\nEngineers = xlate( 'CONFIG', 'QUOTE_SIGS', PSNPreProdSigs$, 'X' )\r\nif DayOut = 'Monday' then\r\n DatesToCheck = oconv( Today-3, 'D2/' ):@vm:oconv( Today-2, 'D2/' ):@vm:oconv( Today-1, 'D2/' )\r\n DatesTested = oconv( xlate( 'SPC_CLEAN_HF_ETCH', Keys, spc_clean_hf_etch_date_tested$, 'X' ), 'D2/' )\r\n DatesMissing = ''\r\n for i = 1 to 3\r\n locate DatesToCheck<1,i> in DatesTested using @vm setting FPos else\r\n DatesMissing := DatesToCheck<1,i>:', '\r\n end\r\n next i\r\n DatesMissing[-2,2] = ''\r\n if DatesMissing <> '' then\r\n\t\tMsgText = ''\r\n\t\tMsgText = 'HF Etch removal test not performed on ':DatesMissing:'...Please make sure that this gets done today.'\r\n\t create_note( Engineers:@VM:'MICHAEL_M', 'System', 'HF Etch removal test not performed', MsgText, 'SPC_CLEAN_HF_ETCH', '', '' )\r\n\t * ATTACH THE WINDOW BUT NO KEYS, DUE TO NO ENTRY \r\n end\r\nend else\r\n\tif Keys = '' then\r\n\t\tMsgText = ''\r\n\t\tMsgText = 'HF Etch removal test not performed on ':DayToCheck:'...Please make sure that this gets done today.'\r\n\t create_note( Engineers:@VM:'MICHAEL_M', 'System', 'HF Etch removal test not performed', MsgText, 'SPC_CLEAN_HF_ETCH', '', '' )\r\n\t * ATTACH THE WINDOW BUT NO KEYS, DUE TO NO ENTRY\r\n\tend\r\nend\r\n**************************************************************************************************************************\r\n\r\n\r\n* THIS IS TO CHECK AND SEE IF THEY DID NOT PERFORM AN HF PARTICLE TEST ON ANY DAY NEED TO CHECK WITH MICHELLE\r\n*********** THIS SHOULD CHECK FOR CP1, CP2 AND MEG AS WELL ****************************8\r\nToday = date()\r\nDay = mod( Today, 7 )\r\nDay += 1 ;* FOR THE 1 BASED ARRAY\r\nDays = 'Sunday/Monday/Tuesday/Wednesday/Thursday/Friday/Saturday'\r\nconvert '/' to @fm in Days\r\nDayOut = Days\r\nDateString = ''\r\nif DayOut = 'Monday' then\r\n DateString = oconv( Today-3, 'D2/' ):'...':oconv( Today-1, 'D2/' )\r\n DayToCheck = ''\r\nend else\r\n DateString = '=':oconv( Today-1, 'D2/' )\r\n DayToCheck = oconv( Today-1, 'D2/' )\r\nend\r\nSearchStr = ''\r\nSearchStr<-1> = 'DATE_TESTED':@vm:DateString\r\nSearchStr := @fm\r\n* do a btree.extract\r\nopen 'DICT.SPC_CLEAN_HF' to DictSPCCleanHFTable else\r\n msg( '', 'Unable to open DICT.SPC_CLEAN_HF...' )\r\n return 1\r\nend\r\nKeys = ''\r\nbtree.extract( SearchStr, 'SPC_CLEAN_HF', DictSPCCleanHFTable, Keys, '', Flag )\r\nif Flag <> 0 then\r\n Void = msg( '', 'Error while extracting SPC_CLEAN_HF records...' )\r\n return 1\r\nend\r\nEngineers = xlate( 'CONFIG', 'QUOTE_SIGS', PSNPreProdSigs$, 'X' )\r\nif DayOut = 'Monday' then\r\n DatesToCheck = oconv( Today-3, 'D2/' ):@vm:oconv( Today-2, 'D2/' ):@vm:oconv( Today-1, 'D2/' )\r\n DatesTested = oconv( xlate( 'SPC_CLEAN_HF', Keys, spc_clean_hf_date_tested$, 'X' ), 'D2/' )\r\n DatesMissing = ''\r\n for i = 1 to 3\r\n locate DatesToCheck<1,i> in DatesTested using @vm setting FPos else\r\n DatesMissing := DatesToCheck<1,i>:', '\r\n end\r\n next i\r\n DatesMissing[-2,2] = ''\r\n if DatesMissing <> '' then\r\n\t\tMsgText = ''\r\n\t\tMsgText = 'HF Particle test not performed on ':DatesMissing:'...Please make sure that this gets done today.'\r\n\t create_note( Engineers, 'System', 'HF Particle test not performed', MsgText, 'SPC_CLEAN_HF', '', '' )\r\n\t * ATTACH THE WINDOW BUT NO KEYS, DUE TO NO ENTRY \r\n end\r\nend else\r\n\tif Keys = '' then\r\n\t\tMsgText = ''\r\n\t\tMsgText = 'HF Particle removal test not performed on ':DayToCheck:'...Please make sure that this gets done today.'\r\n\t create_note( Engineers, 'System', 'HF Particle removal test not performed', MsgText, 'SPC_CLEAN_HF', '', '' )\r\n\t * ATTACH THE WINDOW BUT NO KEYS, DUE TO NO ENTRY\r\n\tend\r\nend\r\n\r\n****************************************************************************************************************************\r\n\r\n* THIS IS TO CHECK AND SEE IF THEY DID NOT PERFORM AN HF AKRION PARTICLE TEST ON ANY DAY NEED TO CHECK WITH MICHELLE\r\nToday = date()\r\nDay = mod( Today, 7 )\r\nDay += 1 ;* FOR THE 1 BASED ARRAY\r\nDays = 'Sunday/Monday/Tuesday/Wednesday/Thursday/Friday/Saturday'\r\nconvert '/' to @fm in Days\r\nDayOut = Days\r\nDateString = ''\r\nif DayOut = 'Monday' then\r\n DateString = oconv( Today-3, 'D2/' ):'...':oconv( Today-1, 'D2/' )\r\n DayToCheck = ''\r\nend else\r\n DateString = '=':oconv( Today-1, 'D2/' )\r\n DayToCheck = oconv( Today-1, 'D2/' )\r\nend\r\nSearchStr = ''\r\nSearchStr<-1> = 'DATE_TESTED':@vm:DateString\r\nSearchStr := @fm\r\n* do a btree.extract\r\nopen 'DICT.SPC_CLEAN_HF_AKRION' to DictSPCCleanHFTable else\r\n msg( '', 'Unable to open DICT.SPC_CLEAN_HF_AKRION...' )\r\n return 1\r\nend\r\nKeys = ''\r\nbtree.extract( SearchStr, 'SPC_CLEAN_HF_AKRION', DictSPCCleanHFTable, Keys, '', Flag )\r\nif Flag <> 0 then\r\n Void = msg( '', 'Error while extracting SPC_CLEAN_HF_AKRION records...' )\r\n return 1\r\nend\r\nEngineers = xlate( 'CONFIG', 'QUOTE_SIGS', PSNPreProdSigs$, 'X' )\r\nif DayOut = 'Monday' then\r\n DatesToCheck = oconv( Today-3, 'D2/' ):@vm:oconv( Today-2, 'D2/' ):@vm:oconv( Today-1, 'D2/' )\r\n DatesTested = oconv( xlate( 'SPC_CLEAN_HF_AKRION', Keys, spc_clean_hf_akrion_date_tested$, 'X' ), 'D2/' )\r\n DatesMissing = ''\r\n for i = 1 to 3\r\n locate DatesToCheck<1,i> in DatesTested using @vm setting FPos else\r\n DatesMissing := DatesToCheck<1,i>:', '\r\n end\r\n next i\r\n DatesMissing[-2,2] = ''\r\n if DatesMissing <> '' then\r\n\t\tMsgText = ''\r\n\t\tMsgText = 'HF Particle test not performed on ':DatesMissing:'...Please make sure that this gets done today.'\r\n\t create_note( Engineers, 'System', 'HF Akrion Particle test not performed', MsgText, 'SPC_CLEAN_HF_AKRION', '', '' )\r\n\t * ATTACH THE WINDOW BUT NO KEYS, DUE TO NO ENTRY \r\n end\r\nend else\r\n\tif Keys = '' then\r\n\t\tMsgText = ''\r\n\t\tMsgText = 'HF Particle removal test not performed on ':DayToCheck:'...Please make sure that this gets done today.'\r\n\t create_note( Engineers, 'System', 'HF Akrion Particle removal test not performed', MsgText, 'SPC_CLEAN_HF_AKRION', '', '' )\r\n\t * ATTACH THE WINDOW BUT NO KEYS, DUE TO NO ENTRY\r\n\tend\r\nend\r\n\r\n\r\n\r\n\r\n****************************************************************************************************************************\r\n* THIS IS TO CHECK AND SEE IF THEY DID NOT PERFORM AN HF ETCH AKRION TEST ON ANY DAY\r\nToday = date()\r\nDay = mod( Today, 7 )\r\nDay += 1 ;* FOR THE 1 BASED ARRAY\r\nDays = 'Sunday/Monday/Tuesday/Wednesday/Thursday/Friday/Saturday'\r\nconvert '/' to @fm in Days\r\nDayOut = Days\r\nDateString = ''\r\nif DayOut = 'Monday' then\r\n DateString = oconv( Today-3, 'D2/' ):'...':oconv( Today-1, 'D2/' )\r\n DayToCheck = ''\r\nend else\r\n DateString = '=':oconv( Today-1, 'D2/' )\r\n DayToCheck = oconv( Today-1, 'D2/' )\r\nend\r\nSearchStr = ''\r\nSearchStr<-1> = 'DATE_TESTED':@vm:DateString\r\nSearchStr := @fm\r\n* do a btree.extract\r\nopen 'DICT.SPC_CLEAN_HF_ETCH_AKRION' to DictSPCCleanHFTable else\r\n msg( '', 'Unable to open DICT.SPC_CLEAN_HF_ETCH_AKRION...' )\r\n return 1\r\nend\r\nKeys = ''\r\nbtree.extract( SearchStr, 'SPC_CLEAN_HF_ETCH_AKRION', DictSPCCleanHFTable, Keys, '', Flag )\r\nif Flag <> 0 then\r\n Void = msg( '', 'Error while extracting SPC_CLEAN_HF_ETCH_AKRION records...' )\r\n return 1\r\nend\r\nEngineers = xlate( 'CONFIG', 'QUOTE_SIGS', PSNPreProdSigs$, 'X' )\r\nif DayOut = 'Monday' then\r\n DatesToCheck = oconv( Today-3, 'D2/' ):@vm:oconv( Today-2, 'D2/' ):@vm:oconv( Today-1, 'D2/' )\r\n DatesTested = oconv( xlate( 'SPC_CLEAN_HF_ETCH_AKRION', Keys, spc_clean_hf_etch_akrion_date_tested$, 'X' ), 'D2/' )\r\n DatesMissing = ''\r\n for i = 1 to 3\r\n locate DatesToCheck<1,i> in DatesTested using @vm setting FPos else\r\n DatesMissing := DatesToCheck<1,i>:', '\r\n end\r\n next i\r\n DatesMissing[-2,2] = ''\r\n if DatesMissing <> '' then\r\n\t\tMsgText = ''\r\n\t\tMsgText = 'HF Etch removal test not performed on ':DatesMissing:'...Please make sure that this gets done today.'\r\n\t create_note( Engineers:@VM:'MICHAEL_M', 'System', 'HF Etch Akrion removal test not performed', MsgText, 'SPC_CLEAN_HF_ETCH_AKRION', '', '' )\r\n\t * ATTACH THE WINDOW BUT NO KEYS, DUE TO NO ENTRY \r\n end\r\nend else\r\n\tif Keys = '' then\r\n\t\tMsgText = ''\r\n\t\tMsgText = 'HF Etch removal test not performed on ':DayToCheck:'...Please make sure that this gets done today.'\r\n\t create_note( Engineers:@VM:'MICHAEL_M', 'System', 'HF Etch Akrion removal test not performed', MsgText, 'SPC_CLEAN_HF_ETCH_AKRION', '', '' )\r\n\t * ATTACH THE WINDOW BUT NO KEYS, DUE TO NO ENTRY\r\n\tend\r\nend\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SET_REMIND_CALIB.RUN.json b/LSL2/OIEVENT/CLICK/SET_REMIND_CALIB.RUN.json new file mode 100644 index 0000000..daa35d0 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SET_REMIND_CALIB.RUN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, end_window, fieldcount\r\ndeclare subroutine rlist, record_lock, create_note\r\n\r\n$insert logical\r\n$insert rlist_equates\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\n$insert master_calib_list_equ\r\n$INSERT NOTIFICATION_EQU\r\n\r\nEQU CRLF$ TO \\0D0A\\\r\n\r\nCurrentSize\t= .gasbar->size\r\nNewSize\t\t= CurrentSize\r\nNewSize<3>\t= 0\r\n\r\n.gasbar->size\t\t= NewSize\r\n.gasbar->visible\t= 1\r\n\r\n\r\nOPEN 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table...' )\r\n return 0\r\nEND\r\n\r\n* Changed to send only 2 messages with multiple instruments / NIST lines per message 12/22/2008 JCH\r\n\r\nMasterCalibList = XLATE( 'CONFIG', 'MASTER_CALIB_LIST', '', 'X' )\r\n\r\nInstruments\t= MasterCalibList\t\t\t\t; *read the instrument array\r\nInstrumentCnt = COUNT(Instruments,@VM) + (Instruments NE '')\r\n\r\nInstrumentSNs\t\t\t= MasterCalibList\r\nInstrumentLocs\t\t\t= MasterCalibList\r\nInstrumentNextCalDates\t= MasterCalibList\r\n\r\nNISTs = MasterCalibList\t\t\t\t\t; *read the NIST Standards array\r\nNISTCnt = COUNT(NISTs,@VM) + (NISTs NE '')\r\n\r\nNISTSNs\t\t\t\t= MasterCalibList\r\nNISTLocs\t\t\t= MasterCalibList\r\nNISTNextCalDates\t= MasterCalibList\r\n\r\n\r\nToday = DATE() \r\n\r\nNoteText = ''\r\n\r\nFOR I = 1 TO InstrumentCnt\r\n\tIF (InstrumentNextCalDates<1, I> < today+15) AND (InstrumentNextCalDates<1,I> <>'') THEN\r\n\t\tIDate = OCONV( InstrumentNextCalDates<1, I>, \"D2/\" )\r\n\t\tNoteText := 'The ':Instruments<1,I>:' (S/N: ':InstrumentSNs<1,I>:') located in the ':InstrumentLocs<1,I>:' is due for calibration on ':IDate:CRLF$\r\n\tEND\r\nNEXT I\r\n\r\nCalEngSigners = XLATE('NOTIFICATION','4PP_OUT',NOTIFICATION_USER_ID$,'X')\r\n\r\nNoteSubject = \"Equipment Calibration Reminder\"\r\n \r\nIF NoteText NE '' THEN\r\n\tCreate_Note( CalEngSigners, 'System', NoteSubject, NoteText, 'MASTER_CALIB_LIST', 'EQUIPMENT*':I:'*CENTER' )\r\nEND\r\n\r\nNoteText = ''\r\n\r\nFOR I = 1 TO NISTCnt\r\n\tIF (NISTNextCalDates<1,I> < Today+15) and (NISTNextCalDates<1,I> <>'') THEN\r\n\t\tNDate = OCONV( NISTNextCalDates<1, I>, \"D2/\")\r\n\t\tNoteText := 'The NIST Standard ':NISTs<1,I>:' (S/N: ':NISTSNs<1,I>:') located in the ':NISTLocs<1,I>:' is due for calibration on ':NDate:CRLF$\r\n\tEND\r\nNEXT I\r\n\r\nIF NoteText NE '' THEN\r\n\tCreate_Note( CalEngSigners, 'System', NoteSubject, NoteText, 'MASTER_CALIB_LIST', 'NIST*':I:'*CENTER' )\r\nEND\r\n\r\nRETURN 1\r\n\r\n\r\n\r\n/*\r\nCalEngSigners = XLATE( 'CONFIG', 'QUOTE_SIGS', F4PPOutSpecNotif$, 'X' )\r\nNoteSubject = \"Equipment Calibration Reminder\" \r\n\r\nFOR I = 1 TO InstrumentCnt\r\n\tIF (InstrumentNextCalDates<1, I> < Today+15) and (InstrumentNextCalDates<1,I> <>'') THEN\r\n\t\tIDate = OCONV( InstrumentNextCalDates<1, I>, \"D2/\" )\r\n\t\tNoteText = 'The ':Instruments<1,I>:' (S/N: ':InstrumentSNs<1,I>:') which is located in the ':InstrumentLocs<1,I>:' is due for calibration on ':IDate\r\n\t\tcreate_note( CalEngSigners, 'System', NoteSubject, NoteText, 'MASTER_CALIB_LIST', 'EQUIPMENT*':I:'*CENTER' )\t \t \r\n \tEND\r\nNEXT\r\n\r\nfor I = 1 to NISTCnt\r\n\tif (NISTNextCalDate<1,I> < today+15) and (NISTNextCalDate<1,I> <>'') then\r\n\t\tNDate = oconv( NISTNextCalDate<1, I>, \"D2/\")\r\n\t\tNoteText = 'The NIST Standard ':NISTs<1,I>:' (S/N: ':NISTSNs<1,I>:') which is located in the ':NISTLocs<1,I>:' is due for calibration on ':NDate\r\n\t\tcreate_note( CalEngSigners, 'System', NoteSubject, NoteText, 'MASTER_CALIB_LIST', 'NIST*':I:'*CENTER' )\t \t \t \t \r\n\t\t\r\n \tend \r\nnext\r\n*/\r\n\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF.SIGN_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF.SIGN_BUTTON.json new file mode 100644 index 0000000..c29b64f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF.SIGN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo = 'This HF SPC Control entry has already been signed.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_AKRION.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_AKRION.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_AKRION.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_AKRION.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_AKRION.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_AKRION.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_AKRION.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_AKRION.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_AKRION.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_AKRION.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_AKRION.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_AKRION.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_AKRION.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_AKRION.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_AKRION.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_AKRION.SIGN_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_AKRION.SIGN_BUTTON.json new file mode 100644 index 0000000..c29b64f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_AKRION.SIGN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo = 'This HF SPC Control entry has already been signed.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_AKRION_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_AKRION_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..bdcbebb --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_AKRION_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, fieldcount, ex_vm_rem\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.SPC_CLEAN_HF_AKRION' to DictSPCCleanHFAkrionTable else\r\n Void = msg( '', 'Unable to open DICT.SPC_CLEAN_HF_AKRION...' )\r\n return 0\r\nend\r\n\r\nSearchStr = ''\r\nDateTestedFrom = .date_tested_from->text\r\nDateTestedThru = .date_tested_thru->text\r\nShifts = .shift->text\r\nTypes = .hftype->text\r\nconvert @fm to @vm in Shifts\r\nconvert @fm to @vm in Types\r\n\r\n\r\nif DateTestedFrom and DateTestedThru then\r\n SearchStr<-1> = 'DATE_TESTED':@vm:DateTestedFrom:'...':DateTestedThru\r\nend else\r\n\tif DateTestedFrom then\r\n\t SearchStr<-1> = 'DATE_TESTED':@vm:'>=':DateTestedFrom\r\n\tend\r\n\tif DateTestedThru then\r\n\t SearchStr<-1> = 'DATE_TESTED':@vm:'<=':DateTestedThru\r\n\tend\r\nend\r\nif ( Shifts <> '' ) then\r\n SearchStr<-1> = 'SHIFT':@vm:Shifts\r\nend\r\nif ( Types <> '' ) then\r\n SearchStr<-1> = 'TEST_TYPE':@vm:Types\r\nend\r\n\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'SPC_CLEAN_HF_AKRION', DictSPCCleanHFAkrionTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting SPC_CLEAN_HF_AKRION records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'SPC_CLEAN_HF_AKRION', '#DATE_TESTED':@fm:'#SHIFT':@fm:'#TEST_TYPE', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_AKRION_RPT1.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_AKRION_RPT1.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_AKRION_RPT1.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_AKRION_RPT1.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_AKRION_RPT1.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..7e9a44e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_AKRION_RPT1.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, msg, ex_vm_rem\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nTestDateFrom = .test_date_from->text\r\nTestDateThru = .test_date_thru->text\r\nType = .hftype->text\r\n\r\nif ( TestDateFrom <> '' ) and ( TestDateThru <> '' ) and ( Type <> '' ) then\r\n\tDirToPrint = .send_to_printer->text\r\n\tRetVal = TestDateFrom:'*':TestDateThru:'*':Type:'*':DirToPrint\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must enter a Type, test date from and thru.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH.SIGN_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH.SIGN_BUTTON.json new file mode 100644 index 0000000..7b563ae --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH.SIGN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo = 'This HF Etch SPC Control entry has already been signed.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_AKRION.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_AKRION.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_AKRION.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_AKRION.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_AKRION.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_AKRION.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_AKRION.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_AKRION.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_AKRION.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_AKRION.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_AKRION.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_AKRION.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_AKRION.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_AKRION.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_AKRION.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_AKRION.SIGN_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_AKRION.SIGN_BUTTON.json new file mode 100644 index 0000000..832aacb --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_AKRION.SIGN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo = 'This Akrion HF Etch SPC Control entry has already been signed.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_AKRION_QUERY.PQB.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_AKRION_QUERY.PQB.json new file mode 100644 index 0000000..0156821 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_AKRION_QUERY.PQB.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, fieldcount, ex_vm_rem\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.SPC_CLEAN_HF_ETCH_AKRION' to DictSPCCleanHFEtchAkrionTable else\r\n Void = msg( '', 'Unable to open DICT.SPC_CLEAN_HF_ETCH_AKRION...' )\r\n return 0\r\nend\r\n\r\nSearchStr = ''\r\nDateTestedFrom = .date_tested_from->text\r\nDateTestedThru = .date_tested_thru->text\r\nShifts = .shift->text\r\nTestType = .hfetchtype->text\r\nconvert @fm to @vm in Shifts\r\nconvert @fm to @vm in TestType\r\n\r\nif DateTestedFrom and DateTestedThru then\r\n SearchStr<-1> = 'DATE_TESTED':@vm:DateTestedFrom:'...':DateTestedThru\r\nend else\r\n\tif DateTestedFrom then\r\n\t SearchStr<-1> = 'DATE_TESTED':@vm:'>=':DateTestedFrom\r\n\tend\r\n\tif DateTestedThru then\r\n\t SearchStr<-1> = 'DATE_TESTED':@vm:'<=':DateTestedThru\r\n\tend\r\nend\r\nif ( Shifts <> '' ) then\r\n SearchStr<-1> = 'SHIFT':@vm:Shifts\r\nend\r\nif ( TestType <> '' ) then\r\n SearchStr<-1> = 'TEST_TYPE':@vm:TestType\r\nend\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'SPC_CLEAN_HF_ETCH_AKRION', DictSPCCleanHFEtchAkrionTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting SPC_CLEAN_HF_ETCH_AKRION records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'SPC_CLEAN_HF_ETCH_AKRION', '#DATE_TESTED':@fm:'#SHIFT', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_AKRION_RPT1.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_AKRION_RPT1.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_AKRION_RPT1.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_AKRION_RPT1.RB.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_AKRION_RPT1.RB.json new file mode 100644 index 0000000..d42c366 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_AKRION_RPT1.RB.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, msg, ex_vm_rem\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nTestDateFrom = .test_date_from->text\r\nTestDateThru = .test_date_thru->text\r\nTestType = .hfetchtype->text\r\n\r\nif ( TestDateFrom <> '' ) and ( TestDateThru <> '' ) and ( TestType <> '' ) then\r\n\tDirToPrint = .send_to_printer->text\r\n\tRetVal = TestDateFrom:'*':TestDateThru:'*':TestType:'*':DirToPrint\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must enter a test date from, thru and a test type.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..d60c04f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, fieldcount, ex_vm_rem\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.SPC_CLEAN_HF_ETCH' to DictSPCCleanHFEtchTable else\r\n Void = msg( '', 'Unable to open DICT.SPC_CLEAN_HF_ETCH...' )\r\n return 0\r\nend\r\n\r\nSearchStr = ''\r\nDateTestedFrom = .date_tested_from->text\r\nDateTestedThru = .date_tested_thru->text\r\nShifts = .shift->text\r\nconvert @fm to @vm in Shifts\r\n\r\n\r\nif DateTestedFrom and DateTestedThru then\r\n SearchStr<-1> = 'DATE_TESTED':@vm:DateTestedFrom:'...':DateTestedThru\r\nend else\r\n\tif DateTestedFrom then\r\n\t SearchStr<-1> = 'DATE_TESTED':@vm:'>=':DateTestedFrom\r\n\tend\r\n\tif DateTestedThru then\r\n\t SearchStr<-1> = 'DATE_TESTED':@vm:'<=':DateTestedThru\r\n\tend\r\nend\r\nif ( Shifts <> '' ) then\r\n SearchStr<-1> = 'SHIFT':@vm:Shifts\r\nend\r\n\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'SPC_CLEAN_HF_ETCH', DictSPCCleanHFEtchTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting SPC_CLEAN_HF_ETCH records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'SPC_CLEAN_HF_ETCH', '#DATE_TESTED':@fm:'#SHIFT', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_RPT1.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_RPT1.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_RPT1.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_RPT1.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_RPT1.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..91a5c4c --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_ETCH_RPT1.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, msg, ex_vm_rem\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nTestDateFrom = .test_date_from->text\r\nTestDateThru = .test_date_thru->text\r\n\r\nif ( TestDateFrom <> '' ) and ( TestDateThru <> '' ) then\r\n\tDirToPrint = .send_to_printer->text\r\n\tRetVal = TestDateFrom:'*':TestDateThru:'*':DirToPrint\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must enter a test date from and thru.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..c26d8f5 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, fieldcount, ex_vm_rem\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.SPC_CLEAN_HF' to DictSPCCleanHFTable else\r\n Void = msg( '', 'Unable to open DICT.SPC_CLEAN_HF...' )\r\n return 0\r\nend\r\n\r\nSearchStr = ''\r\nDateTestedFrom = .date_tested_from->text\r\nDateTestedThru = .date_tested_thru->text\r\nShifts = .shift->text\r\nSC1s = .precleancode->text\r\nconvert @fm to @vm in Shifts\r\nconvert @fm to @vm in SC1s\r\n\r\n\r\nif DateTestedFrom and DateTestedThru then\r\n SearchStr<-1> = 'DATE_TESTED':@vm:DateTestedFrom:'...':DateTestedThru\r\nend else\r\n\tif DateTestedFrom then\r\n\t SearchStr<-1> = 'DATE_TESTED':@vm:'>=':DateTestedFrom\r\n\tend\r\n\tif DateTestedThru then\r\n\t SearchStr<-1> = 'DATE_TESTED':@vm:'<=':DateTestedThru\r\n\tend\r\nend\r\nif ( Shifts <> '' ) then\r\n SearchStr<-1> = 'SHIFT':@vm:Shifts\r\nend\r\nif ( SC1s <> '' ) then\r\n SearchStr<-1> = 'CODE':@vm:SC1s\r\nend\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'SPC_CLEAN_HF', DictSPCCleanHFTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting SPC_CLEAN_HF records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'SPC_CLEAN_HF', '#DATE_TESTED':@fm:'#SHIFT':@fm:'#CODE', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_RPT1.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_RPT1.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_RPT1.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_RPT1.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_RPT1.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..c7cbfc7 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_HF_RPT1.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, msg, ex_vm_rem\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nTestDateFrom = .test_date_from->text\r\nTestDateThru = .test_date_thru->text\r\nCode = .precleancode->text\r\n\r\nif ( TestDateFrom <> '' ) and ( TestDateThru <> '' ) and ( Code <> '' ) then\r\n\tDirToPrint = .send_to_printer->text\r\n\tRetVal = TestDateFrom:'*':TestDateThru:'*':Code:'*':DirToPrint\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must enter a Code, test date from and thru.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_SC1.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_SC1.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_SC1.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_SC1.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_SC1.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_SC1.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_SC1.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_SC1.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_SC1.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_SC1.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_SC1.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_SC1.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_SC1.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_SC1.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_SC1.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_SC1.SIGN_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_SC1.SIGN_BUTTON.json new file mode 100644 index 0000000..e6cc069 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_SC1.SIGN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo = 'This SC1 SPC Control entry has already been signed.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_SC1_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_SC1_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..387c172 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_SC1_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, fieldcount, ex_vm_rem\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.SPC_CLEAN_SC1' to DictSPCCleanSC1Table else\r\n Void = msg( '', 'Unable to open DICT.SPC_CLEAN_SC1...' )\r\n return 0\r\nend\r\n\r\nSearchStr = ''\r\nDateTestedFrom = .date_tested_from->text\r\nDateTestedThru = .date_tested_thru->text\r\nShifts = .shift->text\r\nSC1s = .precleancode->text\r\nconvert @fm to @vm in Shifts\r\nconvert @fm to @vm in SC1s\r\n\r\n\r\nif DateTestedFrom and DateTestedThru then\r\n SearchStr<-1> = 'DATE_TESTED':@vm:DateTestedFrom:'...':DateTestedThru\r\nend else\r\n\tif DateTestedFrom then\r\n\t SearchStr<-1> = 'DATE_TESTED':@vm:'>=':DateTestedFrom\r\n\tend\r\n\tif DateTestedThru then\r\n\t SearchStr<-1> = 'DATE_TESTED':@vm:'<=':DateTestedThru\r\n\tend\r\nend\r\nif ( Shifts <> '' ) then\r\n SearchStr<-1> = 'SHIFT':@vm:Shifts\r\nend\r\nif ( SC1s <> '' ) then\r\n SearchStr<-1> = 'CODE':@vm:SC1s\r\nend\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'SPC_CLEAN_SC1', DictSPCCleanSC1Table, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting SPC_CLEAN_SC1 records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'SPC_CLEAN_SC1', '#DATE_TESTED':@fm:'#SHIFT':@fm:'#CODE', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_SC1_RPT1.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_SC1_RPT1.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_SC1_RPT1.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_SC1_RPT1.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_SC1_RPT1.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..c7cbfc7 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_SC1_RPT1.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, msg, ex_vm_rem\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nTestDateFrom = .test_date_from->text\r\nTestDateThru = .test_date_thru->text\r\nCode = .precleancode->text\r\n\r\nif ( TestDateFrom <> '' ) and ( TestDateThru <> '' ) and ( Code <> '' ) then\r\n\tDirToPrint = .send_to_printer->text\r\n\tRetVal = TestDateFrom:'*':TestDateThru:'*':Code:'*':DirToPrint\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must enter a Code, test date from and thru.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_SRD.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_SRD.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_SRD.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_SRD.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_SRD.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_SRD.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_SRD.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_SRD.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_SRD.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_SRD.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_SRD.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_SRD.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_SRD.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_SRD.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_SRD.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_SRD.SIGN_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_SRD.SIGN_BUTTON.json new file mode 100644 index 0000000..125f687 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_SRD.SIGN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo = 'This SRD SPC Control entry has already been signed.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_SRD_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_SRD_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..cfed9ae --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_SRD_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, fieldcount, ex_vm_rem\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.SPC_CLEAN_SRD' to DictSPCCleanSRDTable else\r\n Void = msg( '', 'Unable to open DICT.SPC_CLEAN_SRD...' )\r\n return 0\r\nend\r\n\r\nSearchStr = ''\r\nDateTestedFrom = .date_tested_from->text\r\nDateTestedThru = .date_tested_thru->text\r\nShifts = .shift->text\r\nSRDs = .precleansrd->text\r\nconvert @fm to @vm in Shifts\r\nconvert @fm to @vm in SRDs\r\n\r\n\r\nif DateTestedFrom and DateTestedThru then\r\n SearchStr<-1> = 'DATE_TESTED':@vm:DateTestedFrom:'...':DateTestedThru\r\nend else\r\n\tif DateTestedFrom then\r\n\t SearchStr<-1> = 'DATE_TESTED':@vm:'>=':DateTestedFrom\r\n\tend\r\n\tif DateTestedThru then\r\n\t SearchStr<-1> = 'DATE_TESTED':@vm:'<=':DateTestedThru\r\n\tend\r\nend\r\nif ( Shifts <> '' ) then\r\n SearchStr<-1> = 'SHIFT':@vm:Shifts\r\nend\r\nif ( SRDs <> '' ) then\r\n SearchStr<-1> = 'SRD':@vm:SRDs\r\nend\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'SPC_CLEAN_SRD', DictSPCCleanSRDTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting SPC_CLEAN_SRD records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'SPC_CLEAN_SRD', '#DATE_TESTED':@fm:'#SHIFT':@fm:'#SRD', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_SRD_RPT1.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_SRD_RPT1.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_SRD_RPT1.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_CLEAN_SRD_RPT1.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_CLEAN_SRD_RPT1.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..d79642d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_CLEAN_SRD_RPT1.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, msg, ex_vm_rem\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nTestDateFrom = .test_date_from->text\r\nTestDateThru = .test_date_thru->text\r\nSRD = .precleansrd->text\r\n\r\nif ( TestDateFrom <> '' ) and ( TestDateThru <> '' ) and ( SRD <> '' ) then\r\n\tDirToPrint = .send_to_printer->text\r\n\tRetVal = TestDateFrom:'*':TestDateThru:'*':SRD:'*':DirToPrint\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must enter a SRD, test date from and thru.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_EVAL_4PP.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/SPC_EVAL_4PP.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_EVAL_4PP.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_EVAL_4PP.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/SPC_EVAL_4PP.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_EVAL_4PP.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_EVAL_4PP.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/SPC_EVAL_4PP.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_EVAL_4PP.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_EVAL_4PP.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/SPC_EVAL_4PP.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_EVAL_4PP.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_EVAL_4PP.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/SPC_EVAL_4PP.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_EVAL_4PP.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_EVAL_4PP.SIGN_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_EVAL_4PP.SIGN_BUTTON.json new file mode 100644 index 0000000..2f301b2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_EVAL_4PP.SIGN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo = 'This 4PP SPC Control entry has already been signed.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_EVAL_4PP_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_EVAL_4PP_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..a3fefa6 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_EVAL_4PP_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, fieldcount, ex_vm_rem\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.SPC_EVAL_4PP' to DictSPCEval4PPTable else\r\n Void = msg( '', 'Unable to open DICT.SPC_EVAL_4PP...' )\r\n return 0\r\nend\r\n\r\nSearchStr = ''\r\nDateTestedFrom = .date_tested_from->text\r\nDateTestedThru = .date_tested_thru->text\r\nShifts = .shift->text\r\nToolNums = .4ppnumber->text\r\nEvalRange = .evalrange->text\r\nconvert @fm to @vm in Shifts\r\nconvert @fm to @vm in ToolNums\r\nconvert @fm to @vm in EvalRange\r\n\r\n\r\nif DateTestedFrom and DateTestedThru then\r\n SearchStr<-1> = 'DATE_TESTED':@vm:DateTestedFrom:'...':DateTestedThru\r\nend else\r\n\tif DateTestedFrom then\r\n\t SearchStr<-1> = 'DATE_TESTED':@vm:'>=':DateTestedFrom\r\n\tend\r\n\tif DateTestedThru then\r\n\t SearchStr<-1> = 'DATE_TESTED':@vm:'<=':DateTestedThru\r\n\tend\r\nend\r\nif ( Shifts <> '' ) then\r\n SearchStr<-1> = 'SHIFT':@vm:Shifts\r\nend\r\nif ( ToolNums <> '' ) then\r\n SearchStr<-1> = 'TOOL_NUMBER':@vm:ToolNums\r\nend\r\nif ( EvalRange <> '' ) then\r\n SearchStr<-1> = 'RANGE':@vm:EvalRange\r\nend\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'SPC_EVAL_4PP', DictSPCEval4PPTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting SPC_EVAL_4PP records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'SPC_EVAL_4PP', 'TOOL_NUMBER':@fm:'#DATE_TESTED':@fm:'#RANGE':@fm:'#SHIFT', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_EVAL_4PP_RPT1.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_EVAL_4PP_RPT1.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_EVAL_4PP_RPT1.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_EVAL_4PP_RPT1.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_EVAL_4PP_RPT1.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..61d3ff8 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_EVAL_4PP_RPT1.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, msg, ex_vm_rem\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nTestDateFrom = .test_date_from->text\r\nTestDateThru = .test_date_thru->text\r\nToolNum = .4ppnumber->text\r\nEvalRange = .evalrange->text\r\nEval4PPWaferID = .eval4ppwaferid->text\r\nif ( TestDateFrom <> '' ) and ( TestDateThru <> '' ) and ( ToolNum <> '' ) and ( EvalRange <> '' ) and ( Eval4PPWaferID <> '' ) then\r\n\tDirToPrint = .send_to_printer->text\r\n\tRetVal = TestDateFrom:'*':TestDateThru:'*':ToolNum:'*':EvalRange:'*':Eval4PPWaferID:'*':DirToPrint\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must select a tool, range, wafer ID and enter a test date from and thru.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_EVAL_4PP_RPT2.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_EVAL_4PP_RPT2.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_EVAL_4PP_RPT2.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_EVAL_4PP_RPT2.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_EVAL_4PP_RPT2.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..61d3ff8 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_EVAL_4PP_RPT2.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, msg, ex_vm_rem\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nTestDateFrom = .test_date_from->text\r\nTestDateThru = .test_date_thru->text\r\nToolNum = .4ppnumber->text\r\nEvalRange = .evalrange->text\r\nEval4PPWaferID = .eval4ppwaferid->text\r\nif ( TestDateFrom <> '' ) and ( TestDateThru <> '' ) and ( ToolNum <> '' ) and ( EvalRange <> '' ) and ( Eval4PPWaferID <> '' ) then\r\n\tDirToPrint = .send_to_printer->text\r\n\tRetVal = TestDateFrom:'*':TestDateThru:'*':ToolNum:'*':EvalRange:'*':Eval4PPWaferID:'*':DirToPrint\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must select a tool, range, wafer ID and enter a test date from and thru.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_EVAL_ADE.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/SPC_EVAL_ADE.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_EVAL_ADE.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_EVAL_ADE.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/SPC_EVAL_ADE.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_EVAL_ADE.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_EVAL_ADE.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/SPC_EVAL_ADE.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_EVAL_ADE.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_EVAL_ADE.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/SPC_EVAL_ADE.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_EVAL_ADE.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_EVAL_ADE.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/SPC_EVAL_ADE.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_EVAL_ADE.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_EVAL_ADE.SIGN_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_EVAL_ADE.SIGN_BUTTON.json new file mode 100644 index 0000000..c846977 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_EVAL_ADE.SIGN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo = 'This ADE SPC Control entry has already been signed.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_EVAL_ADE_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_EVAL_ADE_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..f642edd --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_EVAL_ADE_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, fieldcount, ex_vm_rem\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.SPC_EVAL_ADE' to DictSPCEvalADETable else\r\n Void = msg( '', 'Unable to open DICT.SPC_EVAL_ADE...' )\r\n return 0\r\nend\r\n\r\nSearchStr = ''\r\nDateTestedFrom = .date_tested_from->text\r\nDateTestedThru = .date_tested_thru->text\r\nShifts = .shift->text\r\nToolNums = .ftirnumber->text\r\nEvalRange = .evalrange->text\r\nconvert @fm to @vm in Shifts\r\nconvert @fm to @vm in ToolNums\r\nconvert @fm to @vm in EvalRange\r\n\r\n\r\nif DateTestedFrom and DateTestedThru then\r\n SearchStr<-1> = 'DATE_TESTED':@vm:DateTestedFrom:'...':DateTestedThru\r\nend else\r\n\tif DateTestedFrom then\r\n\t SearchStr<-1> = 'DATE_TESTED':@vm:'>=':DateTestedFrom\r\n\tend\r\n\tif DateTestedThru then\r\n\t SearchStr<-1> = 'DATE_TESTED':@vm:'<=':DateTestedThru\r\n\tend\r\nend\r\nif ( Shifts <> '' ) then\r\n SearchStr<-1> = 'SHIFT':@vm:Shifts\r\nend\r\nif ( ToolNums <> '' ) then\r\n SearchStr<-1> = 'TOOL_NUMBER':@vm:ToolNums\r\nend\r\nif ( EvalRange <> '' ) then\r\n SearchStr<-1> = 'RANGE':@vm:EvalRange\r\nend\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'SPC_EVAL_ADE', DictSPCEvalADETable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting SPC_EVAL_ADE records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'SPC_EVAL_ADE', 'TOOL_NUMBER':@fm:'#DATE_TESTED':@fm:'#SHIFT', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_EVAL_ADE_RPT1.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_EVAL_ADE_RPT1.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_EVAL_ADE_RPT1.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_EVAL_ADE_RPT1.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_EVAL_ADE_RPT1.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..e2bd3ef --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_EVAL_ADE_RPT1.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, msg, ex_vm_rem\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nTestDateFrom = .test_date_from->text\r\nTestDateThru = .test_date_thru->text\r\nToolNum = .ADEnumber->text\r\nEvalRange = .evalrange->text\r\nEvalADEWaferID = .evaladewaferid->text\r\n\r\nif ( TestDateFrom <> '' ) and ( TestDateThru <> '' ) and ( ToolNum <> '' ) and ( EvalRange <> '' ) and ( EvalADEWaferID <> '' ) then\r\n\tDirToPrint = .send_to_printer->text\r\n\tRetVal = TestDateFrom:'*':TestDateThru:'*':ToolNum:'*':EvalRange:'*':EvalADEWaferID:'*':DirToPrint\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must select a tool, range, wafer ID and enter a test date from and thru.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_EVAL_ADE_RPT2.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_EVAL_ADE_RPT2.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_EVAL_ADE_RPT2.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_EVAL_ADE_RPT2.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_EVAL_ADE_RPT2.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..8b67ef9 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_EVAL_ADE_RPT2.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, msg, ex_vm_rem\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nTestDateFrom = .test_date_from->text\r\nTestDateThru = .test_date_thru->text\r\nToolNum = .adenumber->text\r\nEvalRange = .evalrange->text\r\nEvalADEWaferID = .evalADEwaferid->text\r\nif ( TestDateFrom <> '' ) and ( TestDateThru <> '' ) and ( ToolNum <> '' ) and ( EvalRange <> '' ) and ( EvalADEWaferID <> '' ) then\r\n\tDirToPrint = .send_to_printer->text\r\n\tRetVal = TestDateFrom:'*':TestDateThru:'*':ToolNum:'*':EvalRange:'*':EvalADEWaferID:'*':DirToPrint\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must select a tool, range, wafer ID and enter a test date from and thru.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_EVAL_FTIR.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/SPC_EVAL_FTIR.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_EVAL_FTIR.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_EVAL_FTIR.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/SPC_EVAL_FTIR.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_EVAL_FTIR.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_EVAL_FTIR.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/SPC_EVAL_FTIR.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_EVAL_FTIR.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_EVAL_FTIR.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/SPC_EVAL_FTIR.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_EVAL_FTIR.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_EVAL_FTIR.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/SPC_EVAL_FTIR.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_EVAL_FTIR.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_EVAL_FTIR.SIGN_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_EVAL_FTIR.SIGN_BUTTON.json new file mode 100644 index 0000000..9c96cbe --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_EVAL_FTIR.SIGN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo = 'This FTIR SPC Control entry has already been signed.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_EVAL_FTIR_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_EVAL_FTIR_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..5190d2c --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_EVAL_FTIR_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, fieldcount, ex_vm_rem\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.SPC_EVAL_FTIR' to DictSPCEvalFTIRTable else\r\n Void = msg( '', 'Unable to open DICT.SPC_EVAL_FTIR...' )\r\n return 0\r\nend\r\n\r\nSearchStr = ''\r\nDateTestedFrom = .date_tested_from->text\r\nDateTestedThru = .date_tested_thru->text\r\nShifts = .shift->text\r\nToolNums = .ftirnumber->text\r\nEvalRange = .evalrange->text\r\nconvert @fm to @vm in Shifts\r\nconvert @fm to @vm in ToolNums\r\nconvert @fm to @vm in EvalRange\r\n\r\n\r\nif DateTestedFrom and DateTestedThru then\r\n SearchStr<-1> = 'DATE_TESTED':@vm:DateTestedFrom:'...':DateTestedThru\r\nend else\r\n\tif DateTestedFrom then\r\n\t SearchStr<-1> = 'DATE_TESTED':@vm:'>=':DateTestedFrom\r\n\tend\r\n\tif DateTestedThru then\r\n\t SearchStr<-1> = 'DATE_TESTED':@vm:'<=':DateTestedThru\r\n\tend\r\nend\r\nif ( Shifts <> '' ) then\r\n SearchStr<-1> = 'SHIFT':@vm:Shifts\r\nend\r\nif ( ToolNums <> '' ) then\r\n SearchStr<-1> = 'TOOL_NUMBER':@vm:ToolNums\r\nend\r\nif ( EvalRange <> '' ) then\r\n SearchStr<-1> = 'RANGE':@vm:EvalRange\r\nend\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'SPC_EVAL_FTIR', DictSPCEvalFTIRTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting SPC_EVAL_FTIR records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'SPC_EVAL_FTIR', 'TOOL_NUMBER':@fm:'#DATE_TESTED':@fm:'#SHIFT', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_EVAL_FTIR_RPT1.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_EVAL_FTIR_RPT1.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_EVAL_FTIR_RPT1.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_EVAL_FTIR_RPT1.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_EVAL_FTIR_RPT1.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..0716dec --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_EVAL_FTIR_RPT1.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, msg, ex_vm_rem\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nTestDateFrom = .test_date_from->text\r\nTestDateThru = .test_date_thru->text\r\nToolNum = .ftirnumber->text\r\nEvalRange = .evalrange->text\r\nEvalFTIRWaferID = .evalftirwaferid->text\r\n\r\nif ( TestDateFrom <> '' ) and ( TestDateThru <> '' ) and ( ToolNum <> '' ) and ( EvalRange <> '' ) and ( EvalFTIRWaferID <> '' ) then\r\n\tDirToPrint = .send_to_printer->text\r\n\tRetVal = TestDateFrom:'*':TestDateThru:'*':ToolNum:'*':EvalRange:'*':EvalFTIRWaferID:'*':DirToPrint\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must select a tool, range, wafer ID and enter a test date from and thru.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_EVAL_FTIR_RPT2.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_EVAL_FTIR_RPT2.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_EVAL_FTIR_RPT2.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_EVAL_FTIR_RPT2.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_EVAL_FTIR_RPT2.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..c6b3ba4 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_EVAL_FTIR_RPT2.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, msg, ex_vm_rem\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nTestDateFrom = .test_date_from->text\r\nTestDateThru = .test_date_thru->text\r\nToolNum = .4ppnumber->text\r\nEvalRange = .evalrange->text\r\nEvalFTIRWaferID = .evalftirwaferid->text\r\nif ( TestDateFrom <> '' ) and ( TestDateThru <> '' ) and ( ToolNum <> '' ) and ( EvalRange <> '' ) and ( EvalFTIRWaferID <> '' ) then\r\n\tDirToPrint = .send_to_printer->text\r\n\tRetVal = TestDateFrom:'*':TestDateThru:'*':ToolNum:'*':EvalRange:'*':EvalFTIRWaferID:'*':DirToPrint\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must select a tool, range, wafer ID and enter a test date from and thru.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_LIMITS.CANCEL.json b/LSL2/OIEVENT/CLICK/SPC_LIMITS.CANCEL.json new file mode 100644 index 0000000..88cfd22 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_LIMITS.CANCEL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\ndeclare subroutine end_dialog\r\n\r\nopen 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\nunlock ConfigTable, 'SPC_LIMITS' else\r\n *Void = msg( '', 'Unable to unlock CONFIG SPC_LIMITS')\r\n * may not have locked if user does not have proper security\r\nend\r\nend_dialog( @window, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_LIMITS.EVAL_4PP_INFO.json b/LSL2/OIEVENT/CLICK/SPC_LIMITS.EVAL_4PP_INFO.json new file mode 100644 index 0000000..cc0c580 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_LIMITS.EVAL_4PP_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_LIMITS.EVAL_4PP_STDEV_INFO.json b/LSL2/OIEVENT/CLICK/SPC_LIMITS.EVAL_4PP_STDEV_INFO.json new file mode 100644 index 0000000..cc0c580 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_LIMITS.EVAL_4PP_STDEV_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_LIMITS.EVAL_ADE_INFO.json b/LSL2/OIEVENT/CLICK/SPC_LIMITS.EVAL_ADE_INFO.json new file mode 100644 index 0000000..cc0c580 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_LIMITS.EVAL_ADE_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_LIMITS.EVAL_ADE_STDEV_INFO.json b/LSL2/OIEVENT/CLICK/SPC_LIMITS.EVAL_ADE_STDEV_INFO.json new file mode 100644 index 0000000..cc0c580 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_LIMITS.EVAL_ADE_STDEV_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_LIMITS.EVAL_FTIR_INFO.json b/LSL2/OIEVENT/CLICK/SPC_LIMITS.EVAL_FTIR_INFO.json new file mode 100644 index 0000000..cc0c580 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_LIMITS.EVAL_FTIR_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_LIMITS.EVAL_FTIR_STDEV_INFO.json b/LSL2/OIEVENT/CLICK/SPC_LIMITS.EVAL_FTIR_STDEV_INFO.json new file mode 100644 index 0000000..cc0c580 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_LIMITS.EVAL_FTIR_STDEV_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_LIMITS.SAVE.json b/LSL2/OIEVENT/CLICK/SPC_LIMITS.SAVE.json new file mode 100644 index 0000000..579962a --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_LIMITS.SAVE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\ndeclare subroutine end_dialog\r\n$insert spc_limits_equ\r\n$insert msg_equates\r\n\r\nopen 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\nHFMax = .hf_max->text\r\nif mod( HFMax, 5 ) then\r\n MsgInfo = ''\r\n MsgInfo = 'HF Max limits must be evenly divisible by 5...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\nWafEtchMin = .waf_etch_min->text\r\nWafEtchMax = .waf_etch_max->text\r\nWafEtchDiff = WafEtchMax-WafEtchMin\r\n\r\nif ( WafEtchMin[4,1] = 0 ) and ( WafEtchMax[4,1] = 0 ) else\r\n * DON'T LET THEM SPEC INTO THE THOUSANDS\r\n MsgInfo = ''\r\n MsgInfo = 'You can not spec in to the thousands for wafer etch.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\nif WafEtchDiff > .2 then\r\n MsgInfo = ''\r\n MsgInfo = 'The spec range for wafer etch can not exceed .200.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\nNumRows = 0\r\nBotVal = ''\r\nif WafEtchDiff > .02 then\r\n BotVal = WafEtchMin-.010\r\nend else\r\n BotVal = WafEtchMin\r\nend\r\nfor i = WafEtchMax to BotVal step -.010\r\n NumRows += 1\r\nnext i\r\nif mod( NumRows, 2 ) else\r\n MsgInfo = ''\r\n MsgInfo = 'The spec range for wafer etch would not generate the same qty of points on each side of the target. Please balance this.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\n\r\n\r\nRecord = ''\r\nRecord = .srd_min->text\r\nRecord = .srd_max->text\r\nRecord = iconv( .srd_chg_date->text, 'D' )\r\n*\r\nRecord = .sc1_min->text\r\nRecord = .sc1_max->text\r\nRecord = iconv( .sc1_chg_date->text, 'D' )\r\n*\r\nRecord = .hf_min->text\r\nRecord = .hf_max->text\r\nRecord = iconv( .hf_chg_date->text, 'D' )\r\n*\r\nRecord = .hf_etch_min->text\r\nRecord = .hf_etch_max->text\r\nRecord = iconv( .hf_etch_chg_date->text, 'D' )\r\n*\r\nRecord = iconv( WafEtchMin, 'MD3' )\r\nRecord = iconv( WafEtchMax, 'MD3' )\r\nRecord = iconv( .waf_etch_chg_date->text, 'D' )\r\n*\r\nEvalFTIRInfo = .eval_ftir_info->array\r\nRecord = EvalFTIRInfo<1>\r\nRecord = iconv( EvalFTIRInfo<2>, 'MD3' )\r\nRecord = iconv( EvalFTIRInfo<3>, 'MD3' )\r\nRecord = iconv( EvalFTIRInfo<4>, 'D' )\r\nRecord = EvalFTIRInfo<5>\r\nRecord = iconv( EvalFTIRInfo<6>, 'MD3' )\r\nRecord = iconv( EvalFTIRInfo<7>, 'MD3' )\r\nRecord = iconv( EvalFTIRInfo<8>, 'D' )\r\nRecord = EvalFTIRInfo<9>\r\nRecord = iconv( EvalFTIRInfo<10>, 'MD3' )\r\nRecord = iconv( EvalFTIRInfo<11>, 'MD3' )\r\nRecord = iconv( EvalFTIRInfo<12>, 'D' )\r\n*\r\nEvalFTIRStdevInfo = .eval_ftir_stdev_info->array\r\nRecord = EvalFTIRStdevInfo<1>\r\nRecord = iconv( EvalFTIRStdevInfo<2>, 'MD3' )\r\nRecord = iconv( EvalFTIRStdevInfo<3>, 'MD3' )\r\nRecord = iconv( EvalFTIRStdevInfo<4>, 'D' )\r\nRecord = EvalFTIRStdevInfo<5>\r\nRecord = iconv( EvalFTIRStdevInfo<6>, 'MD3' )\r\nRecord = iconv( EvalFTIRStdevInfo<7>, 'MD3' )\r\nRecord = iconv( EvalFTIRStdevInfo<8>, 'D' )\r\nRecord = EvalFTIRStdevInfo<9>\r\nRecord = iconv( EvalFTIRStdevInfo<10>, 'MD3' )\r\nRecord = iconv( EvalFTIRStdevInfo<11>, 'MD3' )\r\nRecord = iconv( EvalFTIRStdevInfo<12>, 'D' )\r\n*\r\nEval4PPInfo = .eval_4pp_info->array\r\nRecord = Eval4PPInfo<1>\r\nRecord = Eval4PPInfo<2>\r\nRecord = Eval4PPInfo<3>\r\nRecord = iconv( Eval4PPInfo<4>, 'D' )\r\nRecord = Eval4PPInfo<5>\r\nRecord = Eval4PPInfo<6>\r\nRecord = Eval4PPInfo<7>\r\nRecord = iconv( Eval4PPInfo<8>, 'D' )\r\nRecord = Eval4PPInfo<9>\r\nRecord = Eval4PPInfo<10>\r\nRecord = Eval4PPInfo<11>\r\nRecord = iconv( Eval4PPInfo<12>, 'D' )\r\n*\r\nEval4PPStdevInfo = .eval_4pp_stdev_info->array\r\nRecord = Eval4PPStdevInfo<1>\r\nRecord = iconv( Eval4PPStdevInfo<2>, 'MD3' )\r\nRecord = iconv( Eval4PPStdevInfo<3>, 'MD3' )\r\nRecord = iconv( Eval4PPStdevInfo<4>, 'D' )\r\nRecord = Eval4PPStdevInfo<5>\r\nRecord = iconv( Eval4PPStdevInfo<6>, 'MD3' )\r\nRecord = iconv( Eval4PPStdevInfo<7>, 'MD3' )\r\nRecord = iconv( Eval4PPStdevInfo<8>, 'D' )\r\nRecord = Eval4PPStdevInfo<9>\r\nRecord = iconv( Eval4PPStdevInfo<10>, 'MD3' )\r\nRecord = iconv( Eval4PPStdevInfo<11>, 'MD3' )\r\nRecord = iconv( Eval4PPStdevInfo<12>, 'D' )\r\n*\r\nEvalADEInfo = .eval_ADE_info->array\r\nRecord = EvalADEInfo<1>\r\nRecord = iconv( EvalADEInfo<2>, 'MD3' )\r\nRecord = iconv( EvalADEInfo<3>, 'MD3' )\r\nRecord = iconv( EvalADEInfo<4>, 'D' )\r\nRecord = EvalADEInfo<5>\r\nRecord = iconv( EvalADEInfo<6>, 'MD3' )\r\nRecord = iconv( EvalADEInfo<7>, 'MD3' )\r\nRecord = iconv( EvalADEInfo<8>, 'D' )\r\nRecord = EvalADEInfo<9>\r\nRecord = iconv( EvalADEInfo<10>, 'MD3' )\r\nRecord = iconv( EvalADEInfo<11>, 'MD3' )\r\nRecord = iconv( EvalADEInfo<12>, 'D' )\r\n*\r\nEvalADEStdevInfo = .eval_ADE_stdev_info->array\r\nRecord = EvalADEStdevInfo<1>\r\nRecord = iconv( EvalADEStdevInfo<2>, 'MD3' )\r\nRecord = iconv( EvalADEStdevInfo<3>, 'MD3' )\r\nRecord = iconv( EvalADEStdevInfo<4>, 'D' )\r\nRecord = EvalADEStdevInfo<5>\r\nRecord = iconv( EvalADEStdevInfo<6>, 'MD3' )\r\nRecord = iconv( EvalADEStdevInfo<7>, 'MD3' )\r\nRecord = iconv( EvalADEStdevInfo<8>, 'D' )\r\nRecord = EvalADEStdevInfo<9>\r\nRecord = iconv( EvalADEStdevInfo<10>, 'MD3' )\r\nRecord = iconv( EvalADEStdevInfo<11>, 'MD3' )\r\nRecord = iconv( EvalADEStdevInfo<12>, 'D' )\r\n*\r\nRecord = .react_part_min->text\r\nRecord = .react_part_max->text\r\nRecord = iconv( .react_part_date_chg->text, 'D' )\r\n*\r\nRecord = iconv( .react_haze_min->text, 'MD2' )\r\nRecord = iconv( .react_haze_max->text, 'MD2' )\r\nRecord = iconv( .react_haze_date_chg->text, 'D' )\r\n*\r\nRecord = .hf_ake_etch_min->text\r\nRecord = .hf_ake_etch_max->text\r\nRecord = iconv( .hf_ake_etch_date->text, 'D' )\r\nRecord = .hf_akd_etch_min->text\r\nRecord = .hf_akd_etch_max->text\r\nRecord = iconv( .hf_akd_etch_date->text, 'D' )\r\n*\r\nRecord = .hf_akq_min->text\r\nRecord = .hf_akq_max->text\r\nRecord = iconv( .hf_akq_date->text, 'D' )\r\n*\r\nRecord = .hf_akh_min->text\r\nRecord = .hf_akh_max->text\r\nRecord = iconv( .hf_akh_date->text, 'D' )\r\n\r\n*\r\nwrite Record on ConfigTable, 'SPC_LIMITS' else\r\n Void = msg( '', 'Unable to write SPC_LIMITS in CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\nunlock ConfigTable, 'SPC_LIMITS' else\r\n Void = msg( '', 'Unable to unlock SPC_LIMITS in CONFIG table' )\r\nend\r\nend_dialog( @window, '' )\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_OCAP.NEXT.json b/LSL2/OIEVENT/CLICK/SPC_OCAP.NEXT.json new file mode 100644 index 0000000..d9904a6 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_OCAP.NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\ndeclare function msg\r\n\r\n$insert msg_equates\r\n\r\nMessages = get_property( @window, '@Messages' )\r\nPointers = get_property( @window, '@Pointers' )\r\nCurTier = get_property( @window, '@CurTier' )\r\n\r\nCurMessage = Messages<1,CurTier>\r\n\r\nNextPtrs = Pointers<1,CurTier>\r\nNextYes = field( NextPtrs, ';', 1 )\r\nNextNo = field( NextPtrs, ';', 2 )\r\n\r\nif ( NextYes = '' ) and ( NextNo = '' ) then\r\n * THEY HAVE FINISHED CURMESSAGE WILL HAVE TERM#N\r\n TermNo = CurMessage[-1,'#']\r\n end_dialog( @window, TermNo )\r\n return 0\r\nend\r\n\r\nCurVisible = .answer->visible\r\nCurAnswer = .answer->value\r\nif ( CurVisible ) then\r\n * TRYING TO GO FORWARD AND ANSWER IS VISIBLE SO MAKE SURE THEY ANSWERD\r\n if ( CurAnswer <> '' ) then\r\n if CurAnswer = 1 then\r\n NextTier = NextYes\r\n end else\r\n NextTier = NextNo\r\n end\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must choose Yes or No...'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\n end\r\nend else\r\n * NEXTYES AND NEXTNO ARE THE SAME CAUSE STATEMENT SO JUST USE YES\r\n NextTier = NextYes\r\nend\r\nVoid = set_property( @window, '@CurTier', NextTier )\r\n.question_instruction->text = Messages<1,NextTier>\r\n\r\n* PULL OFF ANSWER AND THEN SET TO BLANK FOR NEXT QUESTION\r\nCurTier = get_property( @window, '@CurTier' )\r\nNextNextPtrs = Pointers<1,CurTier>\r\nNextNextYes = field( NextNextPtrs, ';', 1 )\r\nNextNextNo = field( NextNextPtrs, ';', 2 )\r\n\r\n.answer->value = ''\r\nif NextNextYes <> NextNextNo then\r\n .answer->visible = 1\r\nend else\r\n * BOTH LINKS ARE EQUAL SO WE ARE AT THE END OR IT IS JUST A STATEMENT\r\n .answer->visible = 0\r\n if ( NextNextYes = '' ) and ( NextNextNo = '' ) then\r\n .next->text = '&Finish'\r\n end\r\nend\r\n.prev->enabled = 1\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_OCAP.PREV.json b/LSL2/OIEVENT/CLICK/SPC_OCAP.PREV.json new file mode 100644 index 0000000..992e581 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_OCAP.PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\n$insert msg_equates\r\n\r\n.next->text = '&Next'\r\n\r\nMessages = get_property( @window, '@Messages' )\r\nPointers = get_property( @window, '@Pointers' )\r\nCurTier = get_property( @window, '@CurTier' )\r\n\r\nPtrs = Pointers<1,CurTier>\r\nPrevPtr = field( Ptrs, ';', 3 )\r\nPrevMessage = Messages<1,PrevPtr>\r\nPrevPtrs = Pointers<1,PrevPtr>\r\nPrevYes = field( PrevPtrs, ';', 1 )\r\nPrevNo = field( PrevPtrs, ';', 2 ) \r\n\r\nif PrevYes = PrevNo then\r\n * POINTERS ARE EQUAL SO YOU KNOW IT IS NOT A QUESTION\r\n .answer->visible = 0\r\nend else\r\n .answer->visible = 1\r\nend\r\nVoid = set_property( @window, '@CurTier', PrevPtr )\r\n.question_instruction->text = PrevMessage\r\nif PrevPtr = 1 then\r\n .prev->enabled = 0\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_OCAP_CFG.BUTTON_1.json b/LSL2/OIEVENT/CLICK/SPC_OCAP_CFG.BUTTON_1.json new file mode 100644 index 0000000..8388754 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_OCAP_CFG.BUTTON_1.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\ndeclare subroutine end_dialog\r\n\r\nOcapID = .ocap_id->text\r\nopen 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\nunlock ConfigTable, OcapID else\r\n * USER NEVER HAD A LOCK SO IT IS HARMLESS\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_OCAP_CFG.SAVE.json b/LSL2/OIEVENT/CLICK/SPC_OCAP_CFG.SAVE.json new file mode 100644 index 0000000..d89d5fb --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_OCAP_CFG.SAVE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\ndeclare subroutine end_dialog\r\n\r\nOcapID = .ocap_id->text\r\nopen 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\nOcapInfo = .ocap_info->array\r\nwrite OcapInfo on ConfigTable, OcapID else\r\n Void = msg( '', 'Unable to write ':OcapID:' on CONFIG...' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\nunlock ConfigTable, OcapID else\r\n Void = msg( '', 'Unable to unlock ':OcapID:' in config...' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\n.ocap_info->array = '':@fm:''\r\n.ocap_id->text = ''\r\nVoid = set_property( 'SYSTEM', 'FOCUS', @window:'.OCAP_ID' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_REACTOR_PARTICLES.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/SPC_REACTOR_PARTICLES.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_REACTOR_PARTICLES.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_REACTOR_PARTICLES.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/SPC_REACTOR_PARTICLES.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_REACTOR_PARTICLES.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_REACTOR_PARTICLES.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/SPC_REACTOR_PARTICLES.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_REACTOR_PARTICLES.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_REACTOR_PARTICLES.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/SPC_REACTOR_PARTICLES.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_REACTOR_PARTICLES.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_REACTOR_PARTICLES.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/SPC_REACTOR_PARTICLES.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_REACTOR_PARTICLES.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_REACTOR_PARTICLES.SIGN_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_REACTOR_PARTICLES.SIGN_BUTTON.json new file mode 100644 index 0000000..125f687 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_REACTOR_PARTICLES.SIGN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo = 'This SRD SPC Control entry has already been signed.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_REACTOR_PARTICLES_QUERY.PQB.json b/LSL2/OIEVENT/CLICK/SPC_REACTOR_PARTICLES_QUERY.PQB.json new file mode 100644 index 0000000..5cf60e2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_REACTOR_PARTICLES_QUERY.PQB.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, fieldcount, ex_vm_rem\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.SPC_REACTOR_PARTICLES' to DictSPCRPTable else\r\n Void = msg( '', 'Unable to open DICT.SPC_REACTOR_PARTICLES...' )\r\n return 0\r\nend\r\n\r\nSearchStr = ''\r\nDateTestedFrom = .date_tested_from->text\r\nDateTestedThru = .date_tested_thru->text\r\nShifts = .shift->text\r\nReactors = .reactors->array\r\nReactors = ex_vm_rem( Reactors )\r\nconvert @fm to @vm in Shifts\r\n\r\nif DateTestedFrom and DateTestedThru then\r\n SearchStr<-1> = 'DATE_TESTED':@vm:DateTestedFrom:'...':DateTestedThru\r\nend else\r\n\tif DateTestedFrom then\r\n\t SearchStr<-1> = 'DATE_TESTED':@vm:'>=':DateTestedFrom\r\n\tend\r\n\tif DateTestedThru then\r\n\t SearchStr<-1> = 'DATE_TESTED':@vm:'<=':DateTestedThru\r\n\tend\r\nend\r\nif ( Shifts <> '' ) then\r\n SearchStr<-1> = 'SHIFT':@vm:Shifts\r\nend\r\nif ( Reactors <> '' ) then\r\n SearchStr<-1> = 'REACTOR':@vm:Reactors\r\nend\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'SPC_REACTOR_PARTICLES', DictSPCRPTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting SPC_REACTOR_PARTICLES records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'SPC_REACTOR_PARTICLES', 'REACTOR':@fm:'#DATE_TESTED':@fm:'SHIFT', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_REACTOR_PARTICLES_RPT1.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_REACTOR_PARTICLES_RPT1.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_REACTOR_PARTICLES_RPT1.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_REACTOR_PARTICLES_RPT1.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_REACTOR_PARTICLES_RPT1.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..cf717d0 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_REACTOR_PARTICLES_RPT1.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, msg, ex_vm_rem\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nTestDateFrom = .test_date_from->text\r\nTestDateThru = .test_date_thru->text\r\nReactor = .reactor->text\r\n\r\nif ( TestDateFrom <> '' ) and ( TestDateThru <> '' ) and ( Reactor <> '' ) then\r\n\tDirToPrint = .send_to_printer->text\r\n\tRetVal = TestDateFrom:'*':TestDateThru:'*':Reactor:'*':DirToPrint\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must enter a Reactor, test date from and thru.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_REACTOR_PARTICLES_RPT2.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_REACTOR_PARTICLES_RPT2.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_REACTOR_PARTICLES_RPT2.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_REACTOR_PARTICLES_RPT2.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_REACTOR_PARTICLES_RPT2.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..cf717d0 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_REACTOR_PARTICLES_RPT2.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, msg, ex_vm_rem\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nTestDateFrom = .test_date_from->text\r\nTestDateThru = .test_date_thru->text\r\nReactor = .reactor->text\r\n\r\nif ( TestDateFrom <> '' ) and ( TestDateThru <> '' ) and ( Reactor <> '' ) then\r\n\tDirToPrint = .send_to_printer->text\r\n\tRetVal = TestDateFrom:'*':TestDateThru:'*':Reactor:'*':DirToPrint\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must enter a Reactor, test date from and thru.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_WAFER_ETCH.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/SPC_WAFER_ETCH.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_WAFER_ETCH.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_WAFER_ETCH.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/SPC_WAFER_ETCH.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_WAFER_ETCH.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_WAFER_ETCH.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/SPC_WAFER_ETCH.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_WAFER_ETCH.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_WAFER_ETCH.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/SPC_WAFER_ETCH.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_WAFER_ETCH.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_WAFER_ETCH.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/SPC_WAFER_ETCH.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_WAFER_ETCH.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_WAFER_ETCH.SIGN_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_WAFER_ETCH.SIGN_BUTTON.json new file mode 100644 index 0000000..e6cc069 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_WAFER_ETCH.SIGN_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nTechSig = .tech_sig->text\r\nif TechSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo = 'This SC1 SPC Control entry has already been signed.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.tech_sig->text = @user4\r\n\t\t.tech_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_WAFER_ETCH_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_WAFER_ETCH_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..3f811d3 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_WAFER_ETCH_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, fieldcount, ex_vm_rem\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.SPC_WAFER_ETCH' to DictSPCWaferEtchTable else\r\n Void = msg( '', 'Unable to open DICT.SPC_WAFER_ETCH...' )\r\n return 0\r\nend\r\n\r\nSearchStr = ''\r\nDateTestedFrom = .date_tested_from->text\r\nDateTestedThru = .date_tested_thru->text\r\nShifts = .shift->text\r\nReactors = .reactors->array\r\nReactors = ex_vm_rem( Reactors )\r\nconvert @fm to @vm in Shifts\r\n\r\nif DateTestedFrom and DateTestedThru then\r\n SearchStr<-1> = 'DATE_TESTED':@vm:DateTestedFrom:'...':DateTestedThru\r\nend else\r\n\tif DateTestedFrom then\r\n\t SearchStr<-1> = 'DATE_TESTED':@vm:'>=':DateTestedFrom\r\n\tend\r\n\tif DateTestedThru then\r\n\t SearchStr<-1> = 'DATE_TESTED':@vm:'<=':DateTestedThru\r\n\tend\r\nend\r\nif ( Shifts <> '' ) then\r\n SearchStr<-1> = 'SHIFT':@vm:Shifts\r\nend\r\nif ( Reactors <> '' ) then\r\n SearchStr<-1> = 'REACTOR':@vm:Reactors\r\nend\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'SPC_WAFER_ETCH', DictSPCWaferEtchTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting SPC_WAFER_ETCH records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'SPC_WAFER_ETCH', '#DATE_TESTED':@fm:'#REACTOR', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_WAFER_ETCH_RPT1.BUTTON_4.json b/LSL2/OIEVENT/CLICK/SPC_WAFER_ETCH_RPT1.BUTTON_4.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_WAFER_ETCH_RPT1.BUTTON_4.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SPC_WAFER_ETCH_RPT1.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/SPC_WAFER_ETCH_RPT1.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..f760a6b --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SPC_WAFER_ETCH_RPT1.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, msg, ex_vm_rem\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nTestDateFrom = .date_tested_from->text\r\nTestDateThru = .date_tested_thru->text\r\nReactor = .reactor->text\r\n\r\nif ( TestDateFrom <> '' ) and ( TestDateThru <> '' ) and ( Reactor <> '' ) then\r\n\tDirToPrint = .send_to_printer->text\r\n\tRetVal = TestDateFrom:'*':TestDateThru:'*':Reactor:'*':DirToPrint\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must enter a reactor, test date from and thru.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SRP_COC_RESULTS.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/SRP_COC_RESULTS.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SRP_COC_RESULTS.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SRP_COC_RESULTS.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/SRP_COC_RESULTS.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SRP_COC_RESULTS.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SRP_COC_RESULTS.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/SRP_COC_RESULTS.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SRP_COC_RESULTS.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SRP_COC_RESULTS.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/SRP_COC_RESULTS.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SRP_COC_RESULTS.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SRP_COC_RESULTS.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/SRP_COC_RESULTS.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SRP_COC_RESULTS.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SRP_COC_RESULTS.PSN_VIEW.json b/LSL2/OIEVENT/CLICK/SRP_COC_RESULTS.PSN_VIEW.json new file mode 100644 index 0000000..f903aa6 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SRP_COC_RESULTS.PSN_VIEW.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, post_event\r\n\r\nVoid = send_event( @window:'.PROD_SPEC_ID', 'OPTIONS' )\r\nVoid = post_event( @window:'.PROD_SPEC_ID', 'LOSTFOCUS' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SRP_COC_RESULTS_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/SRP_COC_RESULTS_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SRP_COC_RESULTS_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SRP_COC_RESULTS_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/SRP_COC_RESULTS_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..cf69972 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SRP_COC_RESULTS_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, ex_vm_rem\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\n\r\nopen 'DICT.SRP_COC_RESULTS' to DictSRPCOCResultsTable else\r\n Void = msg( '', 'Unable to open DICT.SRP_COC_RESULTS...' )\r\n return 0\r\nend\r\nSearchStr = ''\r\nReactors = .reactors->array<1>\r\nCustIds = .customer_info->array<1>\r\nSRPDateFrom = .srp_date_from->text\r\nSRPDateThru = .srp_date_thru->text\r\nReactors = ex_vm_rem( Reactors )\r\nCustIds = ex_vm_rem( CustIds )\r\n*\r\nif Reactors then\r\n SearchStr<-1> = 'REACTOR':@vm:Reactors\r\nend\r\nif CustIds then\r\n SearchStr<-1> = 'CUST_ID':@vm:CustIds\r\nend\r\nif SRPDateFrom and SRPDateThru then\r\n SearchStr<-1> = 'SRP_DATE':@vm:SRPDateFrom:'...':SRPDateThru\r\nend else\r\n\tif SRPDateFrom then\r\n\t SearchStr<-1> = 'SRP_DATE':@vm:'>=':SRPDateFrom\r\n\tend\r\n\tif SRPDateThru then\r\n\t SearchStr<-1> = 'SRP_DATE':@vm:'<=':SRPDateThru\r\n\tend\r\nend\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'SRP_COC_RESULTS', DictSRPCOCResultsTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting SRP_COC_RESULTS records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'SRP_COC_RESULTS', '#SRP_DATE':@fm:'CUST_NAME':@fm:'REACTOR', 0 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SRP_COC_RESULTS_QUERY.REACTORS.json b/LSL2/OIEVENT/CLICK/SRP_COC_RESULTS_QUERY.REACTORS.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SRP_COC_RESULTS_QUERY.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SRP_INCOMING_LOG.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/SRP_INCOMING_LOG.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SRP_INCOMING_LOG.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SRP_INCOMING_LOG.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/SRP_INCOMING_LOG.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SRP_INCOMING_LOG.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SRP_INCOMING_LOG.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/SRP_INCOMING_LOG.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SRP_INCOMING_LOG.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SRP_INCOMING_LOG.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/SRP_INCOMING_LOG.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SRP_INCOMING_LOG.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SRP_INCOMING_LOG.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/SRP_INCOMING_LOG.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SRP_INCOMING_LOG.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SRP_INCOMING_LOG.SIGN_BUTTON_LABEL.json b/LSL2/OIEVENT/CLICK/SRP_INCOMING_LOG.SIGN_BUTTON_LABEL.json new file mode 100644 index 0000000..71df7a6 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SRP_INCOMING_LOG.SIGN_BUTTON_LABEL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, msg, post_event, set_property\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nDateField = .date->text\r\nif DateField = '' then; *make sure date has been entered\r\n\tMsgInfo = ''\r\n\tMsgInfo = \"Date is required\"\r\n\tMsgInfo = \"H\"\r\n\tVoid = msg( '', MsgInfo )\r\n\tVoid = post_event( @window:'.DATE', 'GOTFOCUS' )\r\n\tVoid = set_property( @window:'.DATE', 'FOCUS', 1 )\r\n\treturn 0\r\nend\r\n\r\nType = .SRPlogwafertype->text\r\nif Type = '' then; *make sure wafer type has been entered\r\n\tMsgInfo = ''\r\n\tMsgInfo = \"SRP Wafer Type is required\"\r\n\tMsgInfo = \"H\"\r\n\tVoid = msg( '', MsgInfo )\r\n\tVoid = post_event( @window:'.SRPLOGWAFERTYPE', 'GOTFOCUS' )\r\n\tVoid = set_property( @window:'.SRPLOGWAFERTYPE', 'FOCUS', 1 )\r\n\treturn 0\r\nend\r\n\r\nSRPreason = .SRPlogreason->text\r\nif SRPreason <> 'Eng. Qual.' then; *WO#, RDS# & Customer are required fields\r\n\tWO = .wo_num->text\r\n\tRDS = .rds_num->text\r\n\tcustomer = .cust_id->text\r\n\tif WO = '' then\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo = \"Work Order number is required\"\r\n\t\tMsgInfo = \"H\"\r\n\t\tVoid = msg( '', MsgInfo )\r\n\t\tVoid = post_event( @window:'.WO_NUM', 'GOTFOCUS' )\r\n\t\tVoid = set_property( @window:'.WO_NUM', 'FOCUS', 1 )\r\n\t\treturn 0\r\n\tend\r\n\tif RDS = '' then\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo = \"RDS number is required\"\r\n\t\tMsgInfo = \"H\"\r\n\t\tVoid = msg( '', MsgInfo )\r\n\t\tVoid = post_event( @window:'.RDS_NUM', 'GOTFOCUS' )\r\n\t\tVoid = set_property( @window:'.RDS_NUM', 'FOCUS', 1 )\r\n\t\treturn 0\r\n\tend\r\n\tif customer = '' then\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo = \"Customer is required\"\r\n\t\tMsgInfo = \"H\"\r\n\t\tVoid = msg( '', MsgInfo )\r\n\t\tVoid = post_event( @window:'.CUST_ID', 'GOTFOCUS' )\r\n\t\tVoid = set_property( @window:'.CUST_ID', 'FOCUS', 1 )\r\n\t\treturn 0\r\n\tend\t\r\nend\r\n\r\nEngSig = .eng_sig->text\r\nif EngSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo = 'This log has already been signed.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.eng_sig->text = @user4\r\n\t\t.eng_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SRP_INCOMING_LOG_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/SRP_INCOMING_LOG_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SRP_INCOMING_LOG_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SRP_INCOMING_LOG_QUERY.ENGINEERS.json b/LSL2/OIEVENT/CLICK/SRP_INCOMING_LOG_QUERY.ENGINEERS.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SRP_INCOMING_LOG_QUERY.ENGINEERS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SRP_INCOMING_LOG_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/SRP_INCOMING_LOG_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..eae1d7a --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SRP_INCOMING_LOG_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, ex_vm_rem\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.SRP_INCOMING_LOG' to DictSRPIncomingLogTable else\r\n Void = msg( '', 'Unable to open DICT.SRP_INCOMING_LOG...' )\r\n return 0\r\nend\r\n\r\nSearchStr = ''\r\nDateFrom = .date_from->text\r\nDateThru = .date_thru->text\r\nSRPWaferType = ex_vm_rem( .SRPLogWaferType->text )\r\nconvert @fm to @vm in SRPWaferType; *text property will be fm delimited if >1 chosen\r\nCustomerIDs = ex_vm_rem( .customer_info->array<1> ) \r\nEngineerIDs = ex_vm_rem( .engineers->array<1> )\r\n\r\nswap @vm:@vm with '' in CustomerIDs\r\nif CustomerIDs[-1,1] = @vm then CustomerIDs[-1,1] = ''\r\nif CustomerIDs then\r\n SearchStr<-1> = 'CUST_ID':@vm:CustomerIDs\r\nend\r\n\r\nswap @vm:@vm with '' in EngineerIDs\r\nif EngineerIDs[-1,1] = @vm then EngineerIDs[-1,1] = ''\r\nif EngineerIDs then\r\n SearchStr<-1> = 'ENG_SIG':@vm:EngineerIDs\r\nend\r\n\r\nif DateFrom and DateThru then\r\n SearchStr<-1> = 'DATE':@vm:DateFrom:'...':DateThru\r\nend else\r\n\tif DateFrom then\r\n\t SearchStr<-1> = 'DATE':@vm:'>=':DateFrom\r\n\tend\r\n\tif DateThru then\r\n\t SearchStr<-1> = 'DATE':@vm:'<=':DateThru\r\n\tend\r\nend\r\n\r\nif SRPWaferType then\r\n\tSearchStr<-1> = 'WAFER_TYPE':@vm:SRPWaferType\r\nend\r\n\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'SRP_INCOMING_LOG', DictSRPIncomingLogTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting SRP Incoming Log records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'SRP_INCOMING_LOG', '#DATE', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SUB_REC_LOG.BUTTON_5.json b/LSL2/OIEVENT/CLICK/SUB_REC_LOG.BUTTON_5.json new file mode 100644 index 0000000..7e94cf3 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SUB_REC_LOG.BUTTON_5.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nReceiverSig = .receiver_sig->text\r\nif ReceiverSig <> '' then\r\n\tMsgInfo = ''\r\n MsgInfo = 'This log has already been signed.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend else \r\n Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\tif Valid then\r\n\t\t.receiver_sig->text = @user4\r\n\t\t.receiver_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\tend\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SUB_REC_LOG.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/SUB_REC_LOG.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SUB_REC_LOG.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SUB_REC_LOG.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/SUB_REC_LOG.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SUB_REC_LOG.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SUB_REC_LOG.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/SUB_REC_LOG.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SUB_REC_LOG.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SUB_REC_LOG.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/SUB_REC_LOG.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SUB_REC_LOG.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SUB_REC_LOG.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/SUB_REC_LOG.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SUB_REC_LOG.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SUB_REC_LOG_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/SUB_REC_LOG_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SUB_REC_LOG_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SUB_REC_LOG_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/SUB_REC_LOG_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..24bd223 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SUB_REC_LOG_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, ex_vm_rem\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.SUB_REC_LOG' to DictSubRecLogTable else\r\n Void = msg( '', 'Unable to open DICT.SUB_REC_LOG...' )\r\n return 0\r\nend\r\n\r\nSearchStr = ''\r\nDateFrom = .date_from->text\r\nDateThru = .date_thru->text\r\nSRLVendor = ex_vm_rem( .SubrecLogVendor->text )\r\nconvert @fm to @vm in SRLVendor; *text property will be fm delimited if >1 chosen\r\nCustomerIDs = ex_vm_rem( .customer_info->array<1> ) \r\nReceiverIDs = ex_vm_rem( .receivers->array<1> )\r\n\r\nswap @vm:@vm with '' in CustomerIDs\r\nif CustomerIDs[-1,1] = @vm then CustomerIDs[-1,1] = ''\r\nif CustomerIDs then\r\n SearchStr<-1> = 'CUST_ID':@vm:CustomerIDs\r\nend\r\n\r\nswap @vm:@vm with '' in ReceiverIDs\r\nif ReceiverIDs[-1,1] = @vm then ReceiverIDs[-1,1] = ''\r\nif ReceiverIDs then\r\n SearchStr<-1> = 'RECEIVER_SIG':@vm:ReceiverIDs\r\nend\r\n\r\nif DateFrom and DateThru then\r\n SearchStr<-1> = 'DATE_REC':@vm:DateFrom:'...':DateThru\r\nend else\r\n\tif DateFrom then\r\n\t SearchStr<-1> = 'DATE_REC':@vm:'>=':DateFrom\r\n\tend\r\n\tif DateThru then\r\n\t SearchStr<-1> = 'DATE_REC':@vm:'<=':DateThru\r\n\tend\r\nend\r\n\r\nif SRLVendor then\r\n\tSearchStr<-1> = 'VENDOR':@vm:SRLVendor\r\nend\r\n\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'SUB_REC_LOG', DictSubRecLogTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting Substrate Receiving Log records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'SUB_REC_LOG', '#DATE_REC':@fm:'#TIME_REC', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/SUB_REC_LOG_QUERY.RECEIVERS.json b/LSL2/OIEVENT/CLICK/SUB_REC_LOG_QUERY.RECEIVERS.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/SUB_REC_LOG_QUERY.RECEIVERS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/TABLENAMES.CANCEL.json b/LSL2/OIEVENT/CLICK/TABLENAMES.CANCEL.json new file mode 100644 index 0000000..bcb2efb --- /dev/null +++ b/LSL2/OIEVENT/CLICK/TABLENAMES.CANCEL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\ndeclare subroutine end_dialog\r\n\r\nopen 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\nunlock ConfigTable, 'TABLENAMES' else\r\n Void = msg( '', 'Unable to unlock CONFIG TABLENAMES')\r\nend\r\nend_dialog( @window, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/TABLENAMES.SAVE.json b/LSL2/OIEVENT/CLICK/TABLENAMES.SAVE.json new file mode 100644 index 0000000..ded474f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/TABLENAMES.SAVE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\ndeclare subroutine end_dialog\r\n\r\nopen 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\nTableNames = .tablenames->array\r\nwrite TableNames on ConfigTable, 'TABLENAMES' else\r\n Void = msg( '', 'Unable to write TABLENAMES in CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\nunlock ConfigTable, 'TABLENAMES' else\r\n Void = msg( '', 'Unable to unlock TABLENAMES in CONFIG table' )\r\nend\r\nend_dialog( @window, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/TENCOR.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/TENCOR.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/TENCOR.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/TENCOR.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/TENCOR.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/TENCOR.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/TENCOR.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/TENCOR.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/TENCOR.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/TENCOR.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/TENCOR.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/TENCOR.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/TENCOR.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/TENCOR.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/TENCOR.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/TEST.BUTTON_2.json b/LSL2/OIEVENT/CLICK/TEST.BUTTON_2.json new file mode 100644 index 0000000..e423413 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/TEST.BUTTON_2.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE SUBROUTINE Set_Status, Print_ErrMsg, Btree.Extract\r\nDECLARE FUNCTION obj_RDS, Get_Status, Create_Dialog\r\n\r\n\r\nParms = '143277':@RM\t;* WO No\r\nParms := '1':@RM\t\t;* WO Step\r\nParms := '1':@RM\t\t;* Last Step\r\nParms := '':@RM\t\t\t;* CassNo\r\nParms := '12345':@RM\t;* QuoteNo\r\nParms := '54321'\t\t;* Order No\r\n\r\nSet_Status(0)\r\n\r\nTWProd = obj_RDS('Create',Parms)\r\nTWProd = obj_RDS('Create',Parms)\r\n\r\nIF Get_Status(errCode) THEN\r\n\t\r\n\tPrint_ErrMsg(errCode)\r\n\t\r\nEND\r\n\r\n\r\nSearchString = 'BOGUS':@VM:'12234':@FM\r\n\r\nOPEN 'DICT.JCH_LOG' TO DictVar ELSE NULL\r\n\r\n*Btree.Extract(SearchString,'JCH_LOG', DictVar, keys, '', '')\r\n\r\nIF Get_Status(errCode) THEN\r\n\t*Print_ErrMsg(errCode)\r\nEND\r\n\r\n\r\n*Print_ErrMsg('What does this do withouth a title?')\r\n\r\n\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/TEST.EPI_CONC_MIN_THICK.json b/LSL2/OIEVENT/CLICK/TEST.EPI_CONC_MIN_THICK.json new file mode 100644 index 0000000..5530b73 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/TEST.EPI_CONC_MIN_THICK.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/TEST.PRINT_PROD_LABEL.json b/LSL2/OIEVENT/CLICK/TEST.PRINT_PROD_LABEL.json new file mode 100644 index 0000000..cd5286a --- /dev/null +++ b/LSL2/OIEVENT/CLICK/TEST.PRINT_PROD_LABEL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE SUBROUTINE Set_Status, Print_ErrMsg, Btree.Extract\r\nDECLARE FUNCTION obj_RDS, Get_Status, Create_Dialog\r\n\r\n\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/TW_CODES.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/TW_CODES.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/TW_CODES.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/TW_CODES.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/TW_CODES.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/TW_CODES.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/TW_CODES.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/TW_CODES.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/TW_CODES.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/TW_CODES.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/TW_CODES.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/TW_CODES.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/TW_CODES.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/TW_CODES.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/TW_CODES.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/TW_PRIME_USAGE.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/TW_PRIME_USAGE.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/TW_PRIME_USAGE.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/TW_PRIME_USAGE.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/TW_PRIME_USAGE.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/TW_PRIME_USAGE.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/TW_PRIME_USAGE.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/TW_PRIME_USAGE.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/TW_PRIME_USAGE.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/TW_PRIME_USAGE.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/TW_PRIME_USAGE.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/TW_PRIME_USAGE.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/TW_PRIME_USAGE.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/TW_PRIME_USAGE.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/TW_PRIME_USAGE.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/TW_PRIME_USAGE.TW_INFO.json b/LSL2/OIEVENT/CLICK/TW_PRIME_USAGE.TW_INFO.json new file mode 100644 index 0000000..08e5252 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/TW_PRIME_USAGE.TW_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell, memberof\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 3 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/TW_PRIME_USAGE_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/TW_PRIME_USAGE_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..3901d8f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/TW_PRIME_USAGE_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, rlist, end_dialog\r\ndeclare function msg, key_sort, utility\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\n\r\nopen 'DICT.TW_PRIME_USAGE' to DictTWPUsageTable else\r\n Void = msg( '', 'Unable to open DICT.TW_PRIME_USAGE...' )\r\n return 0\r\nend\r\nSearchStr = ''\r\nReactors = .reactors->array<1>\r\nEntryDateFrom = .entry_date_from->text\r\nEntryDateThru = .entry_date_thru->text\r\nPPlus = .pplus_check->check\r\nPMinus = .pminus_check->check\r\nNPlus = .nplus_check->check\r\nNMinus = .nminus_check->check\r\n\r\nswap @vm:@vm with '' in Reactors\r\nif Reactors[-1,1] = @vm then Reactors[-1,1] = ''\r\n*\r\nif Reactors then\r\n SearchStr<-1> = 'REACTOR':@vm:Reactors\r\nend\r\nif EntryDateFrom and EntryDateThru then\r\n SearchStr<-1> = 'ENTRY_DATE':@vm:EntryDateFrom:'...':EntryDateThru\r\nend else\r\n\tif EntryDateFrom then\r\n\t SearchStr<-1> = 'ENTRY_DATE':@vm:'>=':EntryDateFrom\r\n\tend\r\n\tif EntryDateThru then\r\n\t SearchStr<-1> = 'ENTRY_DATE':@vm:'<=':EntryDateThru\r\n\tend\r\nend\r\nTypeVar = ''\r\nif PPlus then\r\n TypeVar<1,-1> = 'P+'\r\nend\r\nif PMinus then\r\n TypeVar<1,-1> = 'P-'\r\nend\r\nif NPlus then\r\n TypeVar<1,-1> = 'N+'\r\nend\r\nif NMinus then\r\n TypeVar<1,-1> = 'N-'\r\nend\r\nif TypeVar then\r\n SearchStr<-1> = 'TYPE':@vm:TypeVar\r\nend\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'TW_PRIME_USAGE', DictTWPUsageTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting TW_PRIME_USAGE records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'TW_PRIME_USAGE', 'ENTRY_DATE':@fm:'REACTOR', 0 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/TW_PRIME_USAGE_QUERY.REACTORS.json b/LSL2/OIEVENT/CLICK/TW_PRIME_USAGE_QUERY.REACTORS.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/TW_PRIME_USAGE_QUERY.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/TW_USAGE.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/TW_USAGE.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/TW_USAGE.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/TW_USAGE.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/TW_USAGE.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/TW_USAGE.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/TW_USAGE.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/TW_USAGE.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/TW_USAGE.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/TW_USAGE.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/TW_USAGE.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/TW_USAGE.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/TW_USAGE.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/TW_USAGE.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/TW_USAGE.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/TW_USAGE.TW_INFO.json b/LSL2/OIEVENT/CLICK/TW_USAGE.TW_INFO.json new file mode 100644 index 0000000..08e5252 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/TW_USAGE.TW_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell, memberof\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 3 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/TW_USAGE_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/TW_USAGE_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..25494b7 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/TW_USAGE_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, rlist, end_dialog\r\ndeclare function msg, key_sort, utility\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\n\r\nopen 'DICT.TW_USAGE' to DictTWUsageTable else\r\n Void = msg( '', 'Unable to open DICT.TW_USAGE...' )\r\n return 0\r\nend\r\nSearchStr = ''\r\nReactors = .reactors->array<1>\r\nEntryDateFrom = .entry_date_from->text\r\nEntryDateThru = .entry_date_thru->text\r\nPPlus = .pplus_check->check\r\nPMinus = .pminus_check->check\r\nNPlus = .nplus_check->check\r\nNMinus = .nminus_check->check\r\n\r\nswap @vm:@vm with '' in Reactors\r\nif Reactors[-1,1] = @vm then Reactors[-1,1] = ''\r\n*\r\nif Reactors then\r\n SearchStr<-1> = 'REACTOR':@vm:Reactors\r\nend\r\nif EntryDateFrom and EntryDateThru then\r\n SearchStr<-1> = 'ENTRY_DATE':@vm:EntryDateFrom:'...':EntryDateThru\r\nend else\r\n\tif EntryDateFrom then\r\n\t SearchStr<-1> = 'ENTRY_DATE':@vm:'>=':EntryDateFrom\r\n\tend\r\n\tif EntryDateThru then\r\n\t SearchStr<-1> = 'ENTRY_DATE':@vm:'<=':EntryDateThru\r\n\tend\r\nend\r\nTypeVar = ''\r\nif PPlus then\r\n TypeVar<1,-1> = 'P+'\r\nend\r\nif PMinus then\r\n TypeVar<1,-1> = 'P-'\r\nend\r\nif NPlus then\r\n TypeVar<1,-1> = 'N+'\r\nend\r\nif NMinus then\r\n TypeVar<1,-1> = 'N-'\r\nend\r\nif TypeVar then\r\n SearchStr<-1> = 'TYPE':@vm:TypeVar\r\nend\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'TW_USAGE', DictTWUsageTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting TW_USAGE records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'TW_USAGE', 'ENTRY_DATE':@fm:'REACTOR', 0 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/TW_USAGE_QUERY.REACTORS.json b/LSL2/OIEVENT/CLICK/TW_USAGE_QUERY.REACTORS.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/TW_USAGE_QUERY.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/USERS_SRPT1.EMPLOYEE_INFO.json b/LSL2/OIEVENT/CLICK/USERS_SRPT1.EMPLOYEE_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/USERS_SRPT1.EMPLOYEE_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/USERS_SRPT1.PERFORM_REPORT.json b/LSL2/OIEVENT/CLICK/USERS_SRPT1.PERFORM_REPORT.json new file mode 100644 index 0000000..04e5b91 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/USERS_SRPT1.PERFORM_REPORT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare subroutine activate_save_select\r\ndeclare subroutine end_dialog\r\ndeclare function msg, key_sort, utility\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\nend_dialog( @window, UsersType:'*':UserIds:'*':Groups:'*':Shifts )\r\n\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/USERS_SRPT1.SUPERVISOR_INFO.json b/LSL2/OIEVENT/CLICK/USERS_SRPT1.SUPERVISOR_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/USERS_SRPT1.SUPERVISOR_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/VERIFY_USER.BTN_CANCEL.json b/LSL2/OIEVENT/CLICK/VERIFY_USER.BTN_CANCEL.json new file mode 100644 index 0000000..4aa42e3 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/VERIFY_USER.BTN_CANCEL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window,false$ )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/VERIFY_USER.BTN_OK.json b/LSL2/OIEVENT/CLICK/VERIFY_USER.BTN_OK.json new file mode 100644 index 0000000..b9ba738 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/VERIFY_USER.BTN_OK.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine get_property, end_dialog\r\ndeclare function msg, send_event\r\ndebug\r\n$INSERT LOGICAL\r\n$INSERT MSG_EQUATES\r\n$INSERT LSL_USERS_EQUATES\r\n\r\nPInfo = Get_Property( @WINDOW, '@PINFO' )\r\n\r\nUsername = Get_Property(@WINDOW:'.EDL_USERNAME','TEXT')\r\nPassword = Get_Property(@WINDOW:'.EDL_PASSWORD','TEXT')\r\n\r\n// A different user is signing. ie. LEAD signature override\r\nIF Username NE PInfo<1,1> THEN\r\n\tPInfo<1,2> = XLATE( 'LSL_USERS', Username, LSL_USERS_PASSWORD$,'X' )\r\nEND\r\n\r\nIF Password = PInfo<1,2> THEN\r\n\r\n\tEnd_Dialog( @WINDOW,TRUE$ )\r\n\t\r\nEND ELSE\r\n\r\n\tMsgInfo = ''\r\n\tMsgInfo = 'Password entered incorrectly...'\r\n\tMsgInfo = 'H'\r\n\t\r\n\tVoid = Msg( '', MsgInfo )\r\n\t\r\n\tEnd_Dialog( @WINDOW,false$ )\r\nEND\r\n\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WAFER_INV.BUTTON_1.json b/LSL2/OIEVENT/CLICK/WAFER_INV.BUTTON_1.json new file mode 100644 index 0000000..e76c424 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WAFER_INV.BUTTON_1.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, set_printer, get_printer, msg, fieldcount\r\ndeclare function winexec, Printer_Select\r\ndeclare subroutine security_err_msg\r\n$insert security_rights_equ\r\n$insert oiprint_equates\r\n$insert msg_equates\r\n\r\n* text field equates\r\nequ MfgName$ to 1\r\nequ PackListNo$ to 2\r\nequ EntryDate$ to 3\r\nequ MfgSpec$ to 4\r\nequ MfgSO$ to 5\r\nequ Cust$ to 6\r\nequ Polish$ to 7\r\nequ CustPo$ to 8\r\nequ QtyRec$ to 9\r\nequ Notes$ to 10\r\nequ Order$ to 1\r\nequ OrdLine$ to 2\r\nequ PO$ to 3\r\nequ MfgLot$ to 4\r\nequ Wo$ to 5\r\nequ InvoiceNos$ to 6\r\nequ ShipDate$ to 7\r\nequ InProcess$ to 8\r\nequ ShipQty$ to 9\r\nequ Rejects$ to 10\r\nif security_check( 'Wafer Inventory', Print$ ) then\r\n * pull off variables\r\n TextFields = 'WAFERMFG/PACK_LIST_NO/ENTRY_DATE/MFG_SPEC_NO/MFG_SALES_ORD_NO/'\r\n TextFields:= 'CUST_NAME/POLISH/PO_TO_MFG/QTY_RECEIVED/NOTES'\r\n swap '/' with @rm:@window:'.' in TextFields\r\n TextFields = @window:'.':TextFields\r\n TextFields = get_property( TextFields, 'TEXT' )\r\n convert @rm to @fm in TextFields\r\n Notes = TextFields\r\n NotesOut = ''\r\n swap char(13):char(10) with @fm in Notes\r\n Ncnt = fieldcount( Notes, @fm )\r\n for i = 1 to Ncnt\r\n if Notes <> '' then\r\n ThisPara = fmt( Notes, 'T#55' )\r\n convert @tm to @fm in ThisPara\r\n NotesOut := ThisPara:@fm:@fm\r\n end\r\n next i\r\n NotesOut[-2,2] = ''\r\n Notes = NotesOut\r\n NoteCnt = fieldcount( Notes, @fm )\r\n Status = .status->value\r\n if Status = 'O' then \r\n Status = 'Open'\r\n end else\r\n Status = 'Closed'\r\n end\r\n TotOnSite = .tot_on_site->array\r\n TotInProcess = .tot_in_process->array\r\n TotAvail = .tot_avail->array\r\n TotShipQty = .tot_ship_qty->array\r\n TotRejects = .tot_rej->array\r\n LineItems = .inv_detail->array\r\n OrdNo = LineItems\r\n MfgLot = LineItems\r\n WO = LineItems\r\n PO = LineItems\r\n InvoiceNos = LineItems\r\n ShipDate = LineItems\r\n ShipQty = LineItems\r\n Rejects = LineItems\r\n InProcess = LineItems\r\n Lcnt = fieldcount( PO, @vm ) \r\n MaxLines = 37\r\n*lcnt = 54 ;* for testing\r\n\tPrintPath = Printer_Select('',1)\t\t;* Get default printer path\r\n Stat = set_printer( 'INIT', '', '', .25:@fm:'':@fm:0:@fm:'', 0, 0, PrintPath )\r\n gosub CheckErr\r\n Font = \"Courier New,9,L,1\"\r\n convert ',' to @fm in Font\r\n Hf = Font\r\n Stat = set_printer( 'FONT', Font )\r\n gosub CheckErr\r\n gosub PrintToF\r\n * print body\r\n* MfgLot = str( 111128:@vm, 55 )\r\n* Wo = str( 1000:@vm, 55 )\r\n* PO = str( 455:@vm, 55 )\r\n* INvoiceNos = str( 555:@vm, 55 )\r\n* shipdate = str( 55555:@vm, 55 )\r\n* shipqty = str( 14:@vm, 55 )\r\n* rejects = str( '$45.00':@vm, 55 )\r\n* InProcess = str( 500:@vm, 55 )\r\n\r\n LinesPrinted = 0\r\n for j = 1 to 24\r\n Stat = set_printer( 'TEXT', '' )\r\n next j\r\n for i = 1 to Lcnt\r\n LineOut = fmt( OrdNo<1,i>, 'L#9' ):' '\r\n\t LineOut:= fmt( PO<1,i>, 'L#14' ):' '\r\n\t LineOut:= fmt( MfgLot<1,i>, 'L#13' ):' '\r\n\t LineOut:= fmt( Wo<1,i>, 'L#6' ):' '\r\n\t LineOut:= fmt( InvoiceNos<1,i>, 'L#13' ):' '\r\n\t LineOut:= fmt( ShipDate<1,i>, 'L#8' ): ' '\r\n\t LineOut:= fmt( InProcess<1,i>, 'R#9' ):' '\r\n\t LineOut:= fmt( ShipQty<1,i>, 'R#7' ):' '\r\n\t LineOut:= fmt( Rejects<1,i>, 'R#7' )\r\n\t Stat = set_printer( 'TEXT', LineOut )\r\n\t LinesPrinted += 1\r\n\t if LinesPrinted = MaxLines then\r\n\t gosub PageBreak\r\n\t end\r\n\tnext i\r\n if Notes then\r\n for k = 1 to 5\r\n stat = set_printer( 'TEXT', '' )\r\n LinesPrinted += 1\r\n if LinesPrinted = MaxLines then\r\n gosub PageBreak\r\n end\r\n next k\r\n stat = set_printer( 'TEXT', space(13):'NOTE:' )\r\n LinesPrinted += 1\r\n if LinesPrinted = MaxLines then \r\n gosub PageBreak\r\n end\r\n for Nc = 1 to NoteCnt\r\n stat = set_printer( 'TEXT', space(23):Notes )\r\n\t LinesPrinted += 1\r\n\t if LinesPrinted = MaxLines then\r\n\t gosub PageBreak\r\n\t end\r\n next Nc\r\n end\r\n stat = set_printer( 'TEXTXY', '( Total On Site ':TotOnSite:' )', .25:@fm:9.25, Hf, 0 )\t \r\n stat = set_printer( 'TEXTXY', 'Total Quantity Wafers Shipped ':TotShipQty, 2.5:@fm:9.25, Hf, 0 )\r\n stat = set_printer( 'TEXTXY', 'Total Rejects ':TotRejects, 6.25:@fm:9.25, Hf, 0 )\r\n stat = set_printer( 'TEXTXY', '( Total In Process ':TotInProcess:' )', .25:@fm:9.44, Hf, 0 )\t \r\n stat = set_printer( 'TEXTXY', '( Total Available ':TotAvail:' )', .25:@fm:9.63, Hf, 0 )\t \r\n stat = set_printer( 'TERM' ) \r\n gosub CheckErr \r\nend else\r\n security_err_msg( 'Wafer Inventory', Print$ )\r\nend\r\nRETURN 0\r\n*===========================================================================*\r\nPrintTof:\r\n Tfon = Hf\r\n Tfon<2> = 12\r\n stat = set_printer( 'TEXTXY', 'EPITRONICS SILICON DIVISION', 2.25:@fm:0, TFon, 1 )\r\n stat = set_printer( 'TEXTXY', 'CUSTOMER WAFER INVENTORY', 0:@fm:.5, Tfon, 1 )\r\n stat = set_printer( 'TEXTXY', 'INVENTORY# ':.waf_inv_no->text, 6.19:@fm:.5, Tfon, 1 ) \r\n stat = set_printer( 'LINESTYLE', ps_solid:@fm:1 )\r\n stat = set_printer( 'LINE', 0:@fm:.75:@fm:7.5:@fm:.75, 1 )\r\n stat = set_printer( 'TEXTXY', 'Date: ':TextFields, 6:@fm:1, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', 'Manufacturer: ':TextFields, .25:@fm:1, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', ' #: ':TextFields, .25:@fm:1.19, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', 'Mfg Spec#: ':TextFields, .25:@fm:1.5, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', 'Customer: ':TextFields, 4:@fm:1.69, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', 'Mfg Sls Ord#: ':TextFields, .25:@fm:1.88, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', 'Customer PO#: ':TextFields, 4:@fm:2.06, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', 'Polish: ':TextFields, .25:@fm:2.25, Hf, 1 ) \r\n stat = set_printer( 'TEXTXY', 'Qty Received: ':TextFields, .25:@fm:2.63, Hf, 1 ) \r\n stat = set_printer( 'TEXTXY', 'Status: ':Status, 4:@fm:2.63, Hf, 1 )\r\n stat = set_printer( 'LINE', 0:@fm:3:@fm:7.5:@fm:3, 1 )\r\n stat = set_printer( 'LINE', 0:@fm:9:@fm:7.5:@fm:9, 1 )\r\n stat = set_printer( 'TEXTXY', 'Ord#', 0:@fm:3.25, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', 'Cust PO', .75:@fm:3.25, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', 'Mfg Lot', 1.88:@fm:3.25, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', 'Wo#', 2.94:@fm:3.25, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', 'Invoice#', 3.5:@fm:3.25, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', 'Ship Date', 4.63:@fm:3.25, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', 'In Process', 5.44:@fm:3.25, Hf, 1 ) \r\n stat = set_printer( 'TEXTXY', 'Ship#', 6.38:@fm:3.25, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', 'Rejects', 6.94:@fm:3.25, Hf, 1 )\r\n *stat = set_printer( 'LINESTYLE', ps_solid:@fm:3 ) \r\n stat = set_printer( 'LINE', 0:@fm:3.38:@fm:.63:@fm:3.38, 1 )\r\n stat = set_printer( 'LINE', .75:@fm:3.38:@fm:1.75:@fm:3.38, 1 )\r\n stat = set_printer( 'LINE', 1.88:@fm:3.38:@fm:2.81:@fm:3.38, 1 )\r\n stat = set_printer( 'LINE', 2.94:@fm:3.38:@fm:3.38:@fm:3.38, 1 )\r\n stat = set_printer( 'LINE', 3.5:@fm:3.38:@fm:4.5:@fm:3.38, 1 )\r\n stat = set_printer( 'LINE', 4.63:@fm:3.38:@fm:5.31:@fm:3.38, 1 )\r\n stat = set_printer( 'LINE', 5.44:@fm:3.38:@fm:6.19:@fm:3.38, 1 ) \r\n stat = set_printer( 'LINE', 6.31:@fm:3.38:@fm:6.81:@fm:3.38, 1 )\r\n stat = set_printer( 'LINE', 6.94:@fm:3.38:@fm:7.5:@fm:3.38, 1 ) \r\n *stat = set_printer( 'LINESTYLE', ps_solid:@fm:5 )\r\nreturn \r\n\r\n*===========================================================================*\r\nCheckErr:\r\n if stat < 0 then\r\n goto FatalExit\r\n end\r\nreturn \r\n\r\n*===========================================================================*\r\nFatalExit:\r\n Void = msg( '', Stat )\r\n Stat = set_printer( 'TERM' )\r\nreturn \r\n\r\n*===========================================================================*\r\nPageBreak:\r\n Stat = set_printer( 'PAGEBREAK' )\r\n\tLinesPrinted = 0\r\n for j = 1 to 24\r\n Stat = set_printer( 'TEXT', '' )\r\n next j\r\nreturn\r\n\r\n*===========================================================================*\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WAFER_INV.INV_DETAIL.json b/LSL2/OIEVENT/CLICK/WAFER_INV.INV_DETAIL.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WAFER_INV.INV_DETAIL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WAFER_INV.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/WAFER_INV.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WAFER_INV.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WAFER_INV.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/WAFER_INV.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WAFER_INV.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WAFER_INV.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/WAFER_INV.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WAFER_INV.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WAFER_INV.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/WAFER_INV.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WAFER_INV.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WAFER_INV.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/WAFER_INV.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WAFER_INV.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WAFER_INV.RET_WI_BUTTON.json b/LSL2/OIEVENT/CLICK/WAFER_INV.RET_WI_BUTTON.json new file mode 100644 index 0000000..c9b75af --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WAFER_INV.RET_WI_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function end_window, msg, send_event, post_event\r\ndeclare subroutine record_lock\r\n$insert logical\r\n\r\nWafInvID = .waf_inv_no->text\r\nopen 'SYSLISTS' to SysListsTable else\r\n Void = msg( '', 'Unable to open SYSLISTS...' )\r\n return 0\r\nend\r\nPrevWindow = get_property( @window, '@PrevWindow' )\r\nRecordId = 'WAFER_INV*':@station\r\nrecord_lock( SysListsTable, 'SysLists', RecordId )\r\nwritev WafInvID on SysListsTable, RecordId, 1 else\r\n Void = msg( '', 'Unable to write ':WafInvID:' on SYSLISTS ':RecordId )\r\n return 0\r\nend\r\nunlock SysListsTable, RecordId else\r\n Void = msg( '', 'Unable to unlock SYSLISTS ':RecordId )\r\n return 0\r\nend\r\nopen 'WAFER_INV' to WafInvTable else\r\n Void = msg( '', 'Unable to open WAFER_INV...' )\r\n return 0\r\nend\r\nunlock WafInvTable, WafInvID else\r\n Void = msg( '', 'Unable to unlock WAFER_INV ':WafInvID )\r\n return 0\r\nend\r\nVoid = send_event( @window, 'WRITE' )\r\nVoid = end_window( @window, '' )\r\nif PrevWindow = 'Order' then\r\n Void = post_event( 'ORDER.ORDER_DETAIL', 'OMNIEVENT', 'WAFER_INV' ) \r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WAFER_INV_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/WAFER_INV_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WAFER_INV_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WAFER_INV_QUERY.LSL_INV_NO.json b/LSL2/OIEVENT/CLICK/WAFER_INV_QUERY.LSL_INV_NO.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WAFER_INV_QUERY.LSL_INV_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WAFER_INV_QUERY.LSL_WO.json b/LSL2/OIEVENT/CLICK/WAFER_INV_QUERY.LSL_WO.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WAFER_INV_QUERY.LSL_WO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WAFER_INV_QUERY.MFG_LOT_NO.json b/LSL2/OIEVENT/CLICK/WAFER_INV_QUERY.MFG_LOT_NO.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WAFER_INV_QUERY.MFG_LOT_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WAFER_INV_QUERY.MFG_SALES_ORD.json b/LSL2/OIEVENT/CLICK/WAFER_INV_QUERY.MFG_SALES_ORD.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WAFER_INV_QUERY.MFG_SALES_ORD.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WAFER_INV_QUERY.PACK_LIST_NOS.json b/LSL2/OIEVENT/CLICK/WAFER_INV_QUERY.PACK_LIST_NOS.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WAFER_INV_QUERY.PACK_LIST_NOS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WAFER_INV_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/WAFER_INV_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..41542a3 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WAFER_INV_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.WAFER_INV' to DictWaferInvTable else\r\n Void = msg( '', 'Unable to open DICT.WAFER_INV...' )\r\n return 0\r\nend\r\nSearchStr = ''\r\nCustIds = .customer_info->array<1>\r\nOpen = .open_check->check\r\nClosed = .closed_check->check\r\nPackListNos = .pack_list_nos->array\r\nMfgSlsOrd = .mfg_sales_ord->array\r\nMfgLotNo = .mfg_lot_no->text\r\nLslWo = .lsl_wo->array\r\nLslInvNo = .lsl_inv_no->array\r\nswap @vm:@vm with '' in MfgSlsOrd\r\nif MfgSlsOrd[-1,1] = @vm then MfgSlsOrd[-1,1] = ''\r\nswap @vm:@vm with '' in MfgLotNo\r\nif MfgLotNo[-1,1] = @vm then MfgLotNo[-1,1] = ''\r\nswap @vm:@vm with '' in LslWo\r\nif LslWo[-1,1] = @vm then LslWo[-1,1] = ''\r\nswap @vm:@vm with '' in LslInvNo\r\nif LslInvNo[-1,1] = @vm then LslInvNo[-1,1] = ''\r\nswap @vm:@vm with '' in CustIds\r\nif CustIds[-1,1] = @vm then CustIds[-1,1] = ''\r\nswap @vm:@vm with '' in PackListNos\r\nif PackListNos[-1,1] = @vm then PackListNos[-1,1] = ''\r\nif MfgSlsOrd then\r\n SearchStr<-1> = 'MFG_SALES_ORD':@vm:MfgSlsOrd\r\nend\r\nif MfgLotNo then\r\n SearchStr<-1> = 'MFG_LOT_NO':@vm:MfgLotNo\r\nend\r\nif LslWo then\r\n SearchStr<-1> = 'LSL_WO':@vm:LslWo\r\nend\r\nif LslInvNo then\r\n SearchStr<-1> = 'LSL_INVOICE_NO':@vm:LslInvNo\r\nend\r\nif CustIds then\r\n SearchStr<-1> = 'CUST_NO':@vm:CustIds\r\nend \r\nStatusVar = ''\r\nif Open then\r\n StatusVar<1,-1> = 'O'\r\nend\r\nif Closed then\r\n StatusVar<1,-1> = 'C'\r\nend\r\nif StatusVar then\r\n SearchStr<-1> = 'STATUS':@vm:StatusVar\r\nend\r\nif PackListNos then\r\n SearchStr<-1> = 'PACKING_NO':@vm:PackListNos\r\nend\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'WAFER_INV', DictWaferInvTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting WAFER_INV records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'WAFER_INV', 'CUST_NAME':@fm:'#ENTRY_DATE', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WAFER_SHIPMENT_OPTS.BUTTON_1.json b/LSL2/OIEVENT/CLICK/WAFER_SHIPMENT_OPTS.BUTTON_1.json new file mode 100644 index 0000000..156a067 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WAFER_SHIPMENT_OPTS.BUTTON_1.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\n\r\nopen 'DICT.RDS' to DictRDSTable else\r\n Void = msg( '', 'Unable to open DICT.RDS...' )\r\n return 0\r\nend\r\nSearchStr = ''\r\nDateOutFrom = .date_out_from->text\r\nDateOutThru = .date_out_thru->text\r\nWo = .wo->array\r\nswap @vm:@vm with '' in Wo\r\nif Wo[-1,1] = @vm then Wo[-1,1] = ''\r\n*\r\nif DateOutFrom then\r\n SearchStr<-1> = 'DATE_OUT':@vm:'>=':DateOutFrom\r\nend\r\nif DateOutThru then\r\n SearchStr<-1> = 'DATE_OUT':@vm:'<=':DateOutThru\r\nend\r\nif Wo then\r\n SearchStr<-1> = 'WO':@vm:Wo\r\nend\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'RDS', DictRDSTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting RDS records...' )\r\n end_dialog( @window, '' )\r\n end\r\n if Keys then\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WAFER_SHIPMENT_OPTS.WO.json b/LSL2/OIEVENT/CLICK/WAFER_SHIPMENT_OPTS.WO.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WAFER_SHIPMENT_OPTS.WO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WAFER_SHIPMENT_OPTS2.PRINT_BUTTON.json b/LSL2/OIEVENT/CLICK/WAFER_SHIPMENT_OPTS2.PRINT_BUTTON.json new file mode 100644 index 0000000..bd7888d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WAFER_SHIPMENT_OPTS2.PRINT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nReturnString = ''\r\nReturnStr = .front_page->check\r\nReturnStr<1,-1> = .front_page_copy->text\r\nReturnStr<1,-1> = .back_page->check\r\nReturnStr<1,-1> = .back_page_copy->text\r\nReturnStr<1,-1> = .ship_type->value\r\nReturnStr<1,-1> = .cust_rds->check\r\nReturnStr<1,-1> = .ncr_rej_cnt->text\r\nReturnStr<1,-1> = .print_pdf->check\r\nReturnStr<1,-1> = .vendor_coa->check\r\nend_dialog( @window, ReturnStr )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.BUTTON_12.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.BUTTON_12.json new file mode 100644 index 0000000..21aef2b --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.BUTTON_12.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm('REFRESH', 1 ) ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.BUTTON_3.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.BUTTON_3.json new file mode 100644 index 0000000..47562d9 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.BUTTON_3.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_MAST_SCHED' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.CANCEL.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.CANCEL.json new file mode 100644 index 0000000..df01dbf --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.CANCEL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('FORM_CANCEL', 1 ) ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.GROUP1.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.GROUP1.json new file mode 100644 index 0000000..de426aa --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.GROUP1.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.GROUP2.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.GROUP2.json new file mode 100644 index 0000000..1ea390d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.GROUP2.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED2' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.GROUP3.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.GROUP3.json new file mode 100644 index 0000000..5f3851c --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.GROUP3.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED3' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.RM20.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.RM20.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.RM20.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.RM22.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.RM22.json new file mode 100644 index 0000000..e9949d7 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.RM22.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\n*wo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.RM24.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.RM24.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.RM24.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.RM26.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.RM26.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.RM26.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.RM28.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.RM28.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.RM28.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.RM30.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.RM30.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.RM30.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.SAVE.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.SAVE.json new file mode 100644 index 0000000..490d72a --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED.SAVE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('FORM_SAVE', 1 ) ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.BUTTON_12.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.BUTTON_12.json new file mode 100644 index 0000000..5eae36d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.BUTTON_12.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm('REFRESH', 2 ) ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.BUTTON_3.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.BUTTON_3.json new file mode 100644 index 0000000..47562d9 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.BUTTON_3.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_MAST_SCHED' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.CANCEL.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.CANCEL.json new file mode 100644 index 0000000..ccfe787 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.CANCEL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('FORM_CANCEL', 2 ) ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.GROUP1.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.GROUP1.json new file mode 100644 index 0000000..de426aa --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.GROUP1.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.GROUP2.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.GROUP2.json new file mode 100644 index 0000000..1ea390d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.GROUP2.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED2' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.GROUP3.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.GROUP3.json new file mode 100644 index 0000000..5f3851c --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.GROUP3.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED3' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.GROUP4.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.GROUP4.json new file mode 100644 index 0000000..7a8d0fe --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.GROUP4.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED4' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.GROUP5.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.GROUP5.json new file mode 100644 index 0000000..7e59573 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.GROUP5.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED5' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.RM21.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.RM21.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.RM21.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.RM23.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.RM23.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.RM23.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.RM25.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.RM25.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.RM25.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.RM27.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.RM27.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.RM27.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.RM29.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.RM29.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.RM29.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.RM31.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.RM31.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.RM31.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.SAVE.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.SAVE.json new file mode 100644 index 0000000..99f8b76 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED2.SAVE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('FORM_SAVE', 2 ) ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.BUTTON_12.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.BUTTON_12.json new file mode 100644 index 0000000..55b70e4 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.BUTTON_12.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm('REFRESH', 3 ) ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.BUTTON_3.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.BUTTON_3.json new file mode 100644 index 0000000..47562d9 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.BUTTON_3.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_MAST_SCHED' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.CANCEL.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.CANCEL.json new file mode 100644 index 0000000..a7deb53 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.CANCEL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('FORM_CANCEL', 3 ) ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.GROUP1.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.GROUP1.json new file mode 100644 index 0000000..de426aa --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.GROUP1.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.GROUP2.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.GROUP2.json new file mode 100644 index 0000000..1ea390d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.GROUP2.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED2' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.GROUP3.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.GROUP3.json new file mode 100644 index 0000000..5f3851c --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.GROUP3.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED3' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.GROUP4.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.GROUP4.json new file mode 100644 index 0000000..7a8d0fe --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.GROUP4.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED4' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.GROUP5.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.GROUP5.json new file mode 100644 index 0000000..7e59573 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.GROUP5.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED5' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.RM32.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.RM32.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.RM32.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.RM33.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.RM33.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.RM33.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.RM34.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.RM34.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.RM34.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.RM35.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.RM35.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.RM35.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.RM36.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.RM36.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.RM36.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.RM37.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.RM37.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.RM37.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.SAVE.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.SAVE.json new file mode 100644 index 0000000..f4ec926 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED3.SAVE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('FORM_SAVE', 3 ) ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.BUTTON_12.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.BUTTON_12.json new file mode 100644 index 0000000..ebb4421 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.BUTTON_12.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm('REFRESH', 4 ) ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.BUTTON_3.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.BUTTON_3.json new file mode 100644 index 0000000..47562d9 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.BUTTON_3.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_MAST_SCHED' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.CANCEL.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.CANCEL.json new file mode 100644 index 0000000..77287d1 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.CANCEL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('FORM_CANCEL', 4 ) ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.GROUP1.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.GROUP1.json new file mode 100644 index 0000000..de426aa --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.GROUP1.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.GROUP2.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.GROUP2.json new file mode 100644 index 0000000..1ea390d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.GROUP2.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED2' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.GROUP3.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.GROUP3.json new file mode 100644 index 0000000..5f3851c --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.GROUP3.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED3' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.GROUP4.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.GROUP4.json new file mode 100644 index 0000000..7a8d0fe --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.GROUP4.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED4' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.GROUP5.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.GROUP5.json new file mode 100644 index 0000000..7e59573 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.GROUP5.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED5' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.RM39.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.RM39.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.RM39.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.RM41.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.RM41.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.RM41.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.RM43.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.RM43.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.RM43.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.RM45.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.RM45.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.RM45.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.RM47.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.RM47.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.RM47.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.RM49.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.RM49.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.RM49.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.SAVE.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.SAVE.json new file mode 100644 index 0000000..461be25 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED4.SAVE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('FORM_SAVE', 4 ) ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED5.BUTTON_12.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED5.BUTTON_12.json new file mode 100644 index 0000000..158920e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED5.BUTTON_12.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm('REFRESH', 5 ) ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED5.BUTTON_3.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED5.BUTTON_3.json new file mode 100644 index 0000000..47562d9 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED5.BUTTON_3.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_MAST_SCHED' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED5.CANCEL.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED5.CANCEL.json new file mode 100644 index 0000000..40208a8 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED5.CANCEL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('FORM_CANCEL', 5 ) ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED5.GROUP1.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED5.GROUP1.json new file mode 100644 index 0000000..de426aa --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED5.GROUP1.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED5.GROUP2.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED5.GROUP2.json new file mode 100644 index 0000000..1ea390d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED5.GROUP2.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED2' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED5.GROUP3.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED5.GROUP3.json new file mode 100644 index 0000000..5f3851c --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED5.GROUP3.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED3' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED5.GROUP4.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED5.GROUP4.json new file mode 100644 index 0000000..7a8d0fe --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED5.GROUP4.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED4' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED5.GROUP5.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED5.GROUP5.json new file mode 100644 index 0000000..7e59573 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED5.GROUP5.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED5' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED5.RM51.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED5.RM51.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED5.RM51.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED5.RM53.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED5.RM53.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED5.RM53.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED5.RM55.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED5.RM55.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED5.RM55.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED5.SAVE.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED5.SAVE.json new file mode 100644 index 0000000..df8ebfc --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED5.SAVE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('FORM_SAVE', 5 ) ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.1_5.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.1_5.json new file mode 100644 index 0000000..de426aa --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.1_5.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.21_25.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.21_25.json new file mode 100644 index 0000000..5f3851c --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.21_25.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED3' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.26_30.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.26_30.json new file mode 100644 index 0000000..7a8d0fe --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.26_30.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED4' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.31_35.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.31_35.json new file mode 100644 index 0000000..7e59573 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.31_35.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED5' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.36_40.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.36_40.json new file mode 100644 index 0000000..9b037c7 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.36_40.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED6' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.41_45.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.41_45.json new file mode 100644 index 0000000..c4a34e9 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.41_45.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED7' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.46_50.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.46_50.json new file mode 100644 index 0000000..75908e2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.46_50.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED8' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.51_55.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.51_55.json new file mode 100644 index 0000000..f17562a --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.51_55.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED9' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.6_20.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.6_20.json new file mode 100644 index 0000000..1ea390d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.6_20.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED2' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.BUTTON_12.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.BUTTON_12.json new file mode 100644 index 0000000..560bb1e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.BUTTON_12.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm('REFRESH', 6 ) ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.BUTTON_3.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.BUTTON_3.json new file mode 100644 index 0000000..47562d9 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.BUTTON_3.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_MAST_SCHED' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.CANCEL.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.CANCEL.json new file mode 100644 index 0000000..24ca76d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.CANCEL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('FORM_CANCEL', 6 ) ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.RM36.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.RM36.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.RM36.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.RM37.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.RM37.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.RM37.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.RM38.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.RM38.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.RM38.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.RM39.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.RM39.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.RM39.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.RM40.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.RM40.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.RM40.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.SAVE.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.SAVE.json new file mode 100644 index 0000000..0b05e58 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED6.SAVE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('FORM_SAVE', 6 ) ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.1_5.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.1_5.json new file mode 100644 index 0000000..de426aa --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.1_5.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.21_25.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.21_25.json new file mode 100644 index 0000000..5f3851c --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.21_25.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED3' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.26_30.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.26_30.json new file mode 100644 index 0000000..7a8d0fe --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.26_30.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED4' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.31_35.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.31_35.json new file mode 100644 index 0000000..7e59573 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.31_35.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED5' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.36_40.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.36_40.json new file mode 100644 index 0000000..9b037c7 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.36_40.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED6' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.41_45.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.41_45.json new file mode 100644 index 0000000..c4a34e9 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.41_45.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED7' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.46_50.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.46_50.json new file mode 100644 index 0000000..75908e2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.46_50.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED8' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.51_55.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.51_55.json new file mode 100644 index 0000000..f17562a --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.51_55.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED9' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.6_20.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.6_20.json new file mode 100644 index 0000000..1ea390d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.6_20.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED2' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.BUTTON_12.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.BUTTON_12.json new file mode 100644 index 0000000..ec94246 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.BUTTON_12.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm('REFRESH', 7 ) ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.BUTTON_3.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.BUTTON_3.json new file mode 100644 index 0000000..47562d9 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.BUTTON_3.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_MAST_SCHED' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.CANCEL.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.CANCEL.json new file mode 100644 index 0000000..626e9c5 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.CANCEL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('FORM_CANCEL', 7 ) ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.RM41.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.RM41.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.RM41.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.RM42.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.RM42.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.RM42.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.RM43.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.RM43.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.RM43.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.RM44.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.RM44.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.RM44.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.RM45.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.RM45.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.RM45.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.SAVE.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.SAVE.json new file mode 100644 index 0000000..2d6bb37 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED7.SAVE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('FORM_SAVE', 7 ) ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.1_5.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.1_5.json new file mode 100644 index 0000000..de426aa --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.1_5.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.21_25.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.21_25.json new file mode 100644 index 0000000..5f3851c --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.21_25.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED3' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.26_30.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.26_30.json new file mode 100644 index 0000000..7a8d0fe --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.26_30.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED4' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.31_35.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.31_35.json new file mode 100644 index 0000000..7e59573 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.31_35.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED5' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.36_40.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.36_40.json new file mode 100644 index 0000000..9b037c7 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.36_40.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED6' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.41_45.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.41_45.json new file mode 100644 index 0000000..c4a34e9 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.41_45.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED7' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.46_50.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.46_50.json new file mode 100644 index 0000000..75908e2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.46_50.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED8' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.51_55.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.51_55.json new file mode 100644 index 0000000..f17562a --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.51_55.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED9' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.6_20.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.6_20.json new file mode 100644 index 0000000..1ea390d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.6_20.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED2' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.BUTTON_12.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.BUTTON_12.json new file mode 100644 index 0000000..1dc0092 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.BUTTON_12.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm('REFRESH', 8 ) ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.BUTTON_3.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.BUTTON_3.json new file mode 100644 index 0000000..47562d9 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.BUTTON_3.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_MAST_SCHED' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.CANCEL.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.CANCEL.json new file mode 100644 index 0000000..1d7f442 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.CANCEL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('FORM_CANCEL', 8 ) ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.RM46.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.RM46.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.RM46.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.RM47.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.RM47.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.RM47.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.RM48.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.RM48.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.RM48.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.RM49.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.RM49.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.RM49.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.RM50.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.RM50.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.RM50.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.SAVE.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.SAVE.json new file mode 100644 index 0000000..b668c35 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED8.SAVE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('FORM_SAVE', 8 ) ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.1_5.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.1_5.json new file mode 100644 index 0000000..de426aa --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.1_5.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.21_25.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.21_25.json new file mode 100644 index 0000000..5f3851c --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.21_25.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED3' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.26_30.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.26_30.json new file mode 100644 index 0000000..7a8d0fe --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.26_30.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED4' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.31_35.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.31_35.json new file mode 100644 index 0000000..7e59573 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.31_35.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED5' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.36_40.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.36_40.json new file mode 100644 index 0000000..9b037c7 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.36_40.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED6' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.41_45.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.41_45.json new file mode 100644 index 0000000..c4a34e9 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.41_45.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED7' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.46_50.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.46_50.json new file mode 100644 index 0000000..75908e2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.46_50.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED8' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.51_55.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.51_55.json new file mode 100644 index 0000000..f17562a --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.51_55.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED9' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.6_20.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.6_20.json new file mode 100644 index 0000000..1ea390d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.6_20.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_DAILY_SCHED2' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.BUTTON_12.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.BUTTON_12.json new file mode 100644 index 0000000..0204f69 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.BUTTON_12.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm('REFRESH', 9 ) ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.BUTTON_3.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.BUTTON_3.json new file mode 100644 index 0000000..47562d9 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.BUTTON_3.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('CALL_WINDOW', 'WO_MAST_SCHED' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.CANCEL.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.CANCEL.json new file mode 100644 index 0000000..2b12740 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.CANCEL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('FORM_CANCEL', 9 ) ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.RM51.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.RM51.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.RM51.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.RM52.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.RM52.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.RM52.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.RM53.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.RM53.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.RM53.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.RM54.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.RM54.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.RM54.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.RM55.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.RM55.json new file mode 100644 index 0000000..43fd8f2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.RM55.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'REACT_MODE', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.SAVE.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.SAVE.json new file mode 100644 index 0000000..b576156 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED9.SAVE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nwo_daily_sched_comm('FORM_SAVE', 9 ) ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE21.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE21.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE21.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE23.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE23.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE23.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE25.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE25.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE25.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE27.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE27.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE27.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE29.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE29.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE29.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE31.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE31.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE31.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE33.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE33.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE33.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE35.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE35.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE35.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE37.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE37.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE37.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE39.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE39.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE39.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE41.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE41.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE41.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE43.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE43.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE43.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE45.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE45.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE45.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE47.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE47.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE47.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE49.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE49.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE49.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE51.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE51.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE51.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE53.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE53.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE53.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE55.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE55.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE55.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE57.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE57.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE57.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE59.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE59.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE59.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE61.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE61.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE61.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE63.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE63.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE63.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE65.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE65.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE65.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE67.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE67.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE67.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE69.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE69.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL.RMODE69.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE20.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE20.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE20.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE22.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE22.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE22.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE24.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE24.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE24.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE26.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE26.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE26.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE28.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE28.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE28.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE30.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE30.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE30.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE32.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE32.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE32.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE34.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE34.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE34.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE36.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE36.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE36.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE38.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE38.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE38.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE40.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE40.json new file mode 100644 index 0000000..5e6ac2b --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE40.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE42.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE42.json new file mode 100644 index 0000000..9de8bed --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE42.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\n\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE44.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE44.json new file mode 100644 index 0000000..9de8bed --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE44.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\n\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE46.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE46.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE46.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE48.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE48.json new file mode 100644 index 0000000..5e6ac2b --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE48.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE50.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE50.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE50.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE52.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE52.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE52.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE54.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE54.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE54.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE56.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE56.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE56.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE58.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE58.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE58.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE60.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE60.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE60.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE62.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE62.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE62.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE64.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE64.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE64.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE66.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE66.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE66.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE68.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE68.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE68.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE70.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE70.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE70.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE72.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE72.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE72.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE74.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE74.json new file mode 100644 index 0000000..64501da --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_ALL2.RMODE74.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'REACT_DETAIL', CtrlEntId[-2,2] )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_SINGLE.CANCEL.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_SINGLE.CANCEL.json new file mode 100644 index 0000000..dac688b --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_SINGLE.CANCEL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm2, forward_event\r\n\r\nwo_daily_sched_comm2('FORM_CANCEL') ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_SINGLE.RMODE.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_SINGLE.RMODE.json new file mode 100644 index 0000000..4e103a2 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_SINGLE.RMODE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE SUBROUTINE WO_DAILY_SCHED_COMM2\r\n\r\nWO_DAILY_SCHED_COMM2('REACT_MODE')\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_SINGLE.SAVE.json b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_SINGLE.SAVE.json new file mode 100644 index 0000000..a1ee9d1 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_DAILY_SCHED_SINGLE.SAVE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE SUBROUTINE WO_Daily_Sched_Comm2\r\nDECLARE FUNCTION WO_Daily_Sched_All_Comm\r\ndeclare function post_event\r\n\r\nParent = Get_Property( @window, 'PARENT' )\r\n\r\nWO_Daily_Sched_Comm2('FORM_SAVE') ;* this is the first window\r\n\r\nvoid = WO_Daily_Sched_All_Comm( 'FORM_CREATE', Parent)\r\n\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_LOG.BUTTON_10.json b/LSL2/OIEVENT/CLICK/WO_LOG.BUTTON_10.json new file mode 100644 index 0000000..13cd5e3 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_LOG.BUTTON_10.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "Declare function Send_Event, start_window\r\n\r\nWO = .WO_NO->Text\r\n\r\nVoid = send_event( @window, \"WRITE\")\r\n\r\nVoid = send_event( @window, \"CLOSE\")\r\n\r\nParms = ''\r\nParms := '*'\r\nParms := 'CENTER*'\r\nParms := WO\r\n\r\nVoid = start_window (\"ORDER\",\"LSL_MAIN2\", parms)\r\n\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_LOG.BUTTON_3.json b/LSL2/OIEVENT/CLICK/WO_LOG.BUTTON_3.json new file mode 100644 index 0000000..4d403e9 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_LOG.BUTTON_3.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function next_key, send_event, msg, security_check\r\ndeclare subroutine security_err_msg, delete_row\r\n$insert security_rights_equ\r\n\r\nif security_check( 'WO Log', Write$ ) then\r\n * save off all data\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n convert @fm to @rm in AllControls\r\n AllData = get_property( Allcontrols, 'TEXT' )\r\n HoldReactors = .reactors->array\r\n HoldCycleTime = .cycle_time->value\r\n\tChoice = send_event( @window, 'CLEAR' )\r\n\tif Choice = '' then\r\n\t * if choice has a value then the user has canceled \r\n\t\topen 'WO_LOG' to WOLogTableVar else\r\n\t\t Void = msg( '', 'Unable to open WO_LOG...' )\r\n\t\t return 0\r\n\t\tend\r\n\t\tNextWOKey = next_key( 'WO_LOG', WOLogTableVar, 'NEXT', '' )\r\n\t\t.wo_no->text = NextWOKey\r\n\t\tunlock WOLogTableVar, NextWOKey else\r\n\t\t Void = msg( '', 'Unable to unlock WO_LOG ':NextWOKey )\r\n\t\t return 0\r\n\t\tend\r\n\t\tVoid = send_event( @window:'.WO_NO', 'LOSTFOCUS' )\r\n\t\tVoid = set_property( AllControls, 'TEXT', AllData )\r\n\t\t.wo_no->text = NextWOKey\r\n\t\t.entry_date->text = oconv( date(), 'D2/' )\r\n\t\t.entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .status->value = 'O'\r\n .reactors->array = HoldReactors\r\n .close_date->text = ''\r\n .cycle_time->value = HoldCycleTime\r\n\t\t@@window->savewarn = 1\r\n end\r\nend else\r\n security_err_msg( 'WO Log', Write$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_LOG.CYCLE_TIME.json b/LSL2/OIEVENT/CLICK/WO_LOG.CYCLE_TIME.json new file mode 100644 index 0000000..65ecf08 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_LOG.CYCLE_TIME.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "CurValue = @CtrlEntId->value\r\nReceivedDate = iconv( .received_date->text, 'D' )\r\nCommitDate = ''\r\n\r\nif ( ReceivedDate <> '' ) then\r\n\tbegin case\r\n\t case CurValue = 'P'\r\n\t * PRIORITY SO ADD TWO DAYS\r\n\t .commit_date->text = oconv( ReceivedDate+2, 'D2/' )\r\n\t case CurValue = 'E'\r\n\t * EXPRESS SO ADD SEVEN DAYS \r\n\t .commit_date->text = oconv( ReceivedDate+7, 'D2/' )\r\n\t case CurValue = 'F'\r\n\t * FIRST IN FIRST OUT SO ADD 14 DAYS\r\n\t .commit_date->text = oconv( ReceivedDate+14, 'D2/' )\r\n\tend case\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_LOG.PHX_BTN_CLEAR.json b/LSL2/OIEVENT/CLICK/WO_LOG.PHX_BTN_CLEAR.json new file mode 100644 index 0000000..e7bd663 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_LOG.PHX_BTN_CLEAR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\n\r\nVoid = set_property( @window, 'QBFLIST', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_LOG.PHX_QBF_FIRST.json b/LSL2/OIEVENT/CLICK/WO_LOG.PHX_QBF_FIRST.json new file mode 100644 index 0000000..deaba60 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_LOG.PHX_QBF_FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFFIRST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_LOG.PHX_QBF_LAST.json b/LSL2/OIEVENT/CLICK/WO_LOG.PHX_QBF_LAST.json new file mode 100644 index 0000000..1368627 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_LOG.PHX_QBF_LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFLAST' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_LOG.PHX_QBF_NEXT.json b/LSL2/OIEVENT/CLICK/WO_LOG.PHX_QBF_NEXT.json new file mode 100644 index 0000000..6c30624 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_LOG.PHX_QBF_NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFNEXT' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_LOG.PHX_QBF_PREV.json b/LSL2/OIEVENT/CLICK/WO_LOG.PHX_QBF_PREV.json new file mode 100644 index 0000000..193389e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_LOG.PHX_QBF_PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nWinName = CtrlEntID[1,'.']\r\nVoid = send_event( WinName, 'QBFPREV' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_LOG.PSN_VIEW.json b/LSL2/OIEVENT/CLICK/WO_LOG.PSN_VIEW.json new file mode 100644 index 0000000..f903aa6 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_LOG.PSN_VIEW.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, post_event\r\n\r\nVoid = send_event( @window:'.PROD_SPEC_ID', 'OPTIONS' )\r\nVoid = post_event( @window:'.PROD_SPEC_ID', 'LOSTFOCUS' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_LOG_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/WO_LOG_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_LOG_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_LOG_QUERY.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/WO_LOG_QUERY.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..5b20448 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_LOG_QUERY.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, ex_vm_rem\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nopen 'DICT.WO_LOG' to DictWOLogTable else\r\n Void = msg( '', 'Unable to open DICT.WO_LOG...' )\r\n return 0\r\nend\r\nSearchStr = ''\r\nCustIds = ex_vm_rem(.customer_info->array<1>)\r\nif CustIds then\r\n SearchStr<-1> = 'CUST_NO':@vm:CustIds\r\nend\r\nPSNs = ex_vm_rem( .psns->array )\r\nif PSNs then\r\n SearchStr<-1> = 'PROD_SPEC_ID':@vm:PSNs\r\nend\r\nEntryDateFrom = .entry_date_from->text\r\nEntryDateThru = .entry_date_thru->text\r\nif EntryDateFrom and EntryDateThru then\r\n SearchStr<-1> = 'ENTRY_DATE':@vm:EntryDateFrom:'...':EntryDateThru\r\nend else\r\n\tif EntryDateFrom then\r\n\t SearchStr<-1> = 'ENTRY_DATE':@vm:'>=':EntryDateFrom\r\n\tend\r\n\tif EntryDateThru then\r\n\t SearchStr<-1> = 'ENTRY_DATE':@vm:'<=':EntryDateThru\r\n\tend\r\nend\r\nWoFrom = .wo_from->text\r\nWoThru = .wo_thru->text\r\nif WoFrom and WoThru then\r\n SearchStr<-1> = 'WO':@vm:WoFrom:'...':WoThru\r\nend else\r\n\tif WoFrom then\r\n\t SearchStr<-1> = 'WO':@vm:'>=':WoFrom\r\n\tend\r\n\tif WoThru then\r\n\t SearchStr<-1> = 'WO':@vm:'<=':WoThru\r\n\tend\r\nend\r\nOpen = .open_check->check\r\nClosed = .closed_check->check\r\nStatusVar = ''\r\nif Open then\r\n StatusVar<1,-1> = 'O'\r\nend\r\nif Closed then\r\n StatusVar<1,-1> = 'C'\r\nend\r\nif StatusVar then\r\n SearchStr<-1> = 'STATUS':@vm:StatusVar\r\nend\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n * do a btree.extract\r\n btree.extract( SearchStr, 'WO_LOG', DictWOLogTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting WO_LOG records...' )\r\n return 0\r\n end\r\n if Keys then\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'WO_LOG', 'CUST_NAME':@fm:'#ENTRY_DATE', 1 )\r\n end_dialog( @window, Keys )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'No records found meeting your criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You have not entered any search criteria...' \r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_LOG_QUERY.PSNS.json b/LSL2/OIEVENT/CLICK/WO_LOG_QUERY.PSNS.json new file mode 100644 index 0000000..02fef06 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_LOG_QUERY.PSNS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = editcell( CtrlEntId, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_LOG_RPT1.CANCEL_BUTTON.json b/LSL2/OIEVENT/CLICK/WO_LOG_RPT1.CANCEL_BUTTON.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_LOG_RPT1.CANCEL_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_LOG_RPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/CLICK/WO_LOG_RPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..de76051 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_LOG_RPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_LOG_RPT1.RUN_REPORT_BUTTON.json b/LSL2/OIEVENT/CLICK/WO_LOG_RPT1.RUN_REPORT_BUTTON.json new file mode 100644 index 0000000..b4ee0e9 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_LOG_RPT1.RUN_REPORT_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function sched_rpt1, send_event, msg, ex_vm_rem\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nEntDateFrom = .entry_date_from->text\r\nEntDateThru = .entry_date_thru->text\r\nDueDateFrom = .due_date_from->text\r\nDueDateThru = .due_date_thru->text\r\nCloseDateFrom = .close_date_from->text\r\nCloseDateThru = .close_date_thru->text\r\nWOFrom = .wo_from->text\r\nWOThru = .wo_thru->text\r\nOpen = .open_check->check\r\nClosed = .closed_check->check\r\nSchedYes = .sched_yes_check->check\r\nSchedNo = .sched_no_check->check\r\nCusts = ex_vm_rem( .customer_info->array<1> )\r\nEntParam = EntDateFrom:EntDateThru:DueDateFrom:DueDateThru:CloseDateFrom:CloseDateThru:WOFrom:WOThru:Custs:Open:Closed:SchedYes:SchedNo\r\nif EntParam then\r\n\tDirToPrint = .send_to_printer->text\r\n\tRetVal = EntDateFrom:'*':EntDateThru:'*':DueDateFrom:'*':DueDateThru:'*'\r\n\tRetVal:= CloseDateFrom:'*':CloseDateThru:'*':WOFrom:'*':WOThru:'*':Custs:'*':Open:'*':Closed:'*':SchedYes:'*':SchedNo:'*':DirToPrint\r\n\tend_dialog( @window, RetVal )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must enter at least one parameter for the report.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_LOG_SEQ_CHG.BUTTON_1.json b/LSL2/OIEVENT/CLICK/WO_LOG_SEQ_CHG.BUTTON_1.json new file mode 100644 index 0000000..d56790f --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_LOG_SEQ_CHG.BUTTON_1.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function next_key, msg, next_mesa_wo_log_key\r\ndeclare subroutine end_dialog\r\n\r\nopen 'WO_LOG' to WoLogTable else\r\n Void = msg( '', 'Unable to open WO_LOG...' )\r\n return 0\r\nend\r\nVoid = next_key( 'WO_LOG', WoLogTable, 'UPDATE', .next_two->text - 1 )\r\nVoid = next_mesa_wo_log_key( 'UPDATE', .next_mwo->text - 1 )\r\n* using next key to reset - 1 cause next_key increments +1 for next key\r\nend_dialog( @window )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_LOG_SRPT1.PERFORM_QUERY_BUTTON.json b/LSL2/OIEVENT/CLICK/WO_LOG_SRPT1.PERFORM_QUERY_BUTTON.json new file mode 100644 index 0000000..fdeea1e --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_LOG_SRPT1.PERFORM_QUERY_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, fieldcount\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nEntryDateFrom = .entry_date_from->text\r\nEntryDateThru = .entry_date_thru->text\r\nScheduled = .scheduled->value\r\nPSNTypes = ''\r\nPreProd = .preprod->check\r\nif PreProd then\r\n PSNTypes<1,-1> = 'E'\r\nend\r\nResearch = .research->check\r\nif Research then\r\n PSNTypes<1,-1> = 'R'\r\nend\r\nProd = .prod->check\r\nif Prod then\r\n PSNTypes<1,-1> = 'P'\r\nend\r\nQual = .qual->check\r\nif Qual then\r\n PSNTypes<1,-1> = 'Q'\r\nend\r\nMatrix = .matrix->check\r\nif Matrix then\r\n PSNTypes<1,-1> = 'M'\r\nend\r\nif Scheduled then\r\n if PSNTypes = '' then\r\n MsgInfo = ''\r\n MsgInfo = 'You must select at least one spec type...Due to selecting Scheduled.'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\n end\r\n if ( EntryDateFrom = '' ) and ( EntryDateThru = '' ) then\r\n MsgInfo = ''\r\n MsgInfo = 'You must enter an entry date from and/or entry date thru.'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0 \r\n end\r\nend\r\n* THE REPORT CODE WILL SWAP THE @VMS WITH QUOTES FOR THE REPORT\r\nRetVal = Scheduled:'*':PSNTypes:'*':EntryDateFrom:'*':EntryDateThru\r\nend_dialog( @window, RetVal )\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_MAINT_SCHED.OK.json b/LSL2/OIEVENT/CLICK/WO_MAINT_SCHED.OK.json new file mode 100644 index 0000000..048a205 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_MAINT_SCHED.OK.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, '' )\t\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_MAINT_SCHED.PRINT.json b/LSL2/OIEVENT/CLICK/WO_MAINT_SCHED.PRINT.json new file mode 100644 index 0000000..c311c0d --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_MAINT_SCHED.PRINT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, set_printer, get_printer, msg, fieldcount, popup,Printer_Select\r\ndeclare subroutine security_err_msg\r\n$insert security_rights_equ\r\n$insert oiprint_equates\r\n$insert msg_equates\r\n$insert popup_equates\r\nequ Mon$ to 1\r\nequ Tue$ to 2\r\nequ Wed$ to 3\r\nequ Thurs$ to 4\r\nequ Fri$ to 5\r\nequ Sat$ to 6\r\nequ Sun$ to 7\r\n\r\n\r\nReselect:\r\nMastSchedPrintOptsPopup = xlate( 'SYSREPOSPOPUPS', @appid<1>:'**WO_MAST_SCHED_PRINT_OPTS', '', 'X' )\r\nDisplay = MastSchedPrintOptsPopup\r\nDisplay = .sched_info->label\r\nconvert @fm to @vm in Display\r\nMastSchedPrintOptsPopup = Display\r\nReturnVal = popup( @window, MastSchedPrintOptsPopup )\r\nCCnt = fieldcount( ReturnVal, @vm )\r\nif CCnt > 7 then\r\n MsgInfo = ''\r\n MsgInfo = 'You may only choose 7 days to print at a given time.'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n goto ReSelect\r\nend\r\n**\r\n\r\nPrintPath = Printer_Select('',1)\t\t;* Get default printer path\r\nStat = set_printer( 'INIT', '', '', '':@fm:'':@fm:0:@fm:'', 1,'',PrintPath )\r\ngosub CheckErr\r\nFont = \"Courier New,12,L,1\"\r\nconvert ',' to @fm in Font\r\nTfont = Font\r\nStat = set_printer( 'FONT', Font )\r\ngosub CheckErr\r\ngosub PrintToF\r\nFont<2> = 9\r\nFont<4> = 0\r\nVoid = set_printer( 'FONT', Font )\r\ngosub CheckErr\r\nVoid = set_printer( 'TEXT', '' )\r\n**\r\nSInfo = .sched_info->array\r\nColHeads = .sched_info->label\r\nconvert @fm to @vm in ColHeads\r\nNewColHeads = ''\r\nfor i = 1 to CCnt\r\n NewColHeads<1,-1> = ColHeads<1,ReturnVal<1,i>>\r\nnext i\r\nTable = ''\r\nTable<1> = 'R#':@vm:NewColHeads\r\nRcnt = fieldcount( SInfo<1>, @vm )\r\nTFont<2> = 9\r\nStat = set_printer( 'FONT', TFont )\r\nfor i = 1 to Rcnt\r\n Tvar = trim(SInfo,i>):trim(SInfo,i>):trim(SInfo,i>):trim(SInfo,i>):trim(SInfo,i>):trim(SInfo,i>):trim(SInfo,i>)\r\n if Tvar = '|||||||' or Tvar = '||||||' then \r\n * Tom puts a '|' when not in use and if it is not in use for all 7 days then don't print\r\n end else\r\n Table<-1> = i:@vm:SInfo,i>:@vm:SInfo,i>:@vm:SInfo,i>:@vm:SInfo,i>:@vm:SInfo,i>:@vm:SInfo,i>:@vm:SInfo,i>\r\n end\r\nnext i\r\nColTableInfo = '>+360':@vm:'<+2044':@vm:'<+2044':@vm:'<+2044':@vm:'<+2044':@vm:'<+2044':@vm:'<+2044':@vm:'<+2044'\r\nx = Set_Printer(\"ADDTABLE\", ColTableInfo, '', Table, '', '', 1, TB_ALL)\r\nstat = set_printer( 'TERM' ) \r\ngosub CheckErr \r\n\r\nRETURN 0\r\n*===========================================================================*\r\nPrintTof:\r\n TFont<1> = 24 ;* THIS IS THE FONT NAME DON'T KNOW WHAT 24 TURNS OUT TO BE BUT LIKE THE PRINT\r\n TFont<3> = 'C'\r\n Stat = set_printer( 'FONT', TFont )\r\n LineOut = ''\r\n LineOut = 'Reactor Setup Scheduler'\r\n Void = set_printer( 'TEXT', LineOut ) \r\n LineOut = 'For the month of ':.month->text\r\n Void = set_printer( 'TEXT', LineOut )\r\n Void = set_printer( 'TEXT', 'WR = Wand Restrictor PS = Pinned Susceptor' ) \r\n Void = set_printer( 'TEXT', '' )\r\nreturn \r\n\r\n*===========================================================================*\r\nCheckErr:\r\n if stat < 0 then\r\n goto FatalExit\r\n end\r\nreturn \r\n\r\n*===========================================================================*\r\nFatalExit:\r\n Void = msg( '', Stat )\r\n Stat = set_printer( 'TERM' )\r\nreturn \r\n\r\n*===========================================================================*\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_MAST_SCHED.CANCEL.json b/LSL2/OIEVENT/CLICK/WO_MAST_SCHED.CANCEL.json new file mode 100644 index 0000000..fff7cd8 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_MAST_SCHED.CANCEL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, send_event, memberof\r\ndeclare subroutine end_dialog\r\n$insert logical\r\n$insert msg_equates\r\n\r\nif memberof(@user4,'MASTER_SCHED' ) and get_property( @window, '@GotLock' ) then\r\n OrigSched = get_property( @window, '@OrigSched' )\r\n CurSched = .sched_info->array\r\n SaveSched = false$\r\n if CurSched <> OrigSched then\r\n MsgInfo = ''\r\n Msg = 'Would you like to save changes?'\r\n \tMsgInfo = Msg\r\n\t MsgInfo = 'BNYC'\r\n\t MsgInfo = '?'\r\n\t Response = msg( '', MsgInfo )\r\n\t if Response = 1 then\r\n\t SaveSched = true$\r\n\t end else\r\n\t if Response = 0 then\r\n\t SaveSched = false$\r\n\t end else\r\n\t return 0 ;* user cancelled leave in window\r\n\t end\r\n\t end\r\n\tend\r\n if SaveSched then\r\n Void = send_event( @window:'.SAVE', 'CLICK' )\r\n end else\r\n\t\topen 'CONFIG' to ConfigTable else\r\n\t\t Void = msg( '', 'Unable to open CONFIG table' )\r\n\t\t end_dialog( @window, '' )\r\n\t\t return 0\r\n\t\tend\r\n\t\tunlock ConfigTable, 'WO_MAST_SCHED' else\r\n\t\t Void = msg( '', 'Unable to unlock CONFIG WO_MAST_SCHED')\r\n\t\tend\r\n end_dialog( @window, '' )\t\t\r\n\tend\r\nend else\r\n end_dialog( @window, '' )\t\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_MAST_SCHED.CFG_DATE_BUTTON.json b/LSL2/OIEVENT/CLICK/WO_MAST_SCHED.CFG_DATE_BUTTON.json new file mode 100644 index 0000000..81e8923 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_MAST_SCHED.CFG_DATE_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box\r\n\r\nColRow = .sched_info->selpos\r\nCurLabels = .sched_info->label\r\nCol = ColRow<1>\r\nRow = ColRow<2>\r\nLabelToPass = CurLabels\r\nRetVar = dialog_box( 'WO_MAST_SCHED_DATE_CFG2', @window, LabelToPass )\r\nif RetVar <> 'CANCEL' then\r\n CurLabels = RetVar\r\n .sched_info->label = CurLabels\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_MAST_SCHED.CLEAR_DAY.json b/LSL2/OIEVENT/CLICK/WO_MAST_SCHED.CLEAR_DAY.json new file mode 100644 index 0000000..99393a6 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_MAST_SCHED.CLEAR_DAY.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, fieldcount\r\n$insert msg_equates\r\n\r\nSelpos = .sched_info->selpos\r\nColumn = SelPos<1>\r\nRow = SelPos<2>\r\nColToDel = .sched_info->label\r\nMsgInfo = ''\r\nMsgInfo = 'Are you sure you want to clear ':ColToDel:' for all reactors?'\r\nMsgInfo = '?'\r\nMsgInfo = 'BNY'\r\nResp = msg( '', MsgInfo )\r\nif Resp then\r\n Array = .sched_info->array\r\n Rcnt = fieldcount( Array<1>, @vm )\r\n NewColumn = str('|':@vm,19)\r\n NewColumn[-1,1] = ''\r\n NewColumn := str( @vm:'Open', Rcnt-19 )\r\n Array = NewColumn\r\n .sched_info->array = Array\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_MAST_SCHED.NEW_WO.json b/LSL2/OIEVENT/CLICK/WO_MAST_SCHED.NEW_WO.json new file mode 100644 index 0000000..80b907c --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_MAST_SCHED.NEW_WO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, repository, entid, start_window, memberof\r\n$insert msg_equates\r\n\r\n\r\nif memberof(@user4,'MASTER_SCHED' ) then\r\n * NO MORE TEMP WORK ORDERS\r\n *PopRec = entid( @appid<1>, 'POPUP', '', 'INVOICE_PLANT_OPTS' )\r\n *PlantCode = repository( 'EXECUTE', PopRec, @window, '' )\r\n *if PlantCode else\r\n * return 0 ;* user canceled\r\n *end \r\n *Misc@ = true$\r\n Void = start_window( 'WO_LOG', @window, '*CREATE*CENTER', '', '' )\r\n *Misc@ = false$\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You do not have proper security to create Work Order Entries...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_MAST_SCHED.PRINT.json b/LSL2/OIEVENT/CLICK/WO_MAST_SCHED.PRINT.json new file mode 100644 index 0000000..e9515f3 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_MAST_SCHED.PRINT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, set_printer, get_printer, msg, fieldcount, popup,Printer_Select\r\ndeclare subroutine security_err_msg\r\n\r\n$insert security_rights_equ\r\n$insert oiprint_equates\r\n$insert msg_equates\r\n$insert popup_equates\r\n\r\nequ Mon$ to 1\r\nequ Tue$ to 2\r\nequ Wed$ to 3\r\nequ Thurs$ to 4\r\nequ Fri$ to 5\r\nequ Sat$ to 6\r\nequ Sun$ to 7\r\n\r\nReselect:\r\n\r\nMastSchedPrintOptsPopup = xlate( 'SYSREPOSPOPUPS', @appid<1>:'**WO_MAST_SCHED_PRINT_OPTS', '', 'X' )\r\n\r\n*Display = MastSchedPrintOptsPopup\r\n\r\nDisplay = .sched_info->label\t\t\t;* List of 31 dates displayed at the top of the schedule\r\nconvert @fm to @vm in Display\r\n\r\nMastSchedPrintOptsPopup = Display\r\n\r\nSelDates = popup( @window, MastSchedPrintOptsPopup )\t\t;* Returns positions of selected dates in the list of 31\r\n\r\nSelDtCnt = fieldcount( SelDates, @vm )\r\nif SelDtCnt else\r\n return 0\r\nend\r\n\r\nif SelDtCnt > 7 then\r\n MsgInfo = ''\r\n MsgInfo = 'You may only choose 7 days to print at a given time.'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n goto ReSelect\r\nend\r\n**\r\n\r\nPrintPath = Printer_Select('',1)\t\t;* Get default printer path\r\nStat = set_printer( 'INIT', '', '', '':@fm:'':@fm:0:@fm:'', 1,'',PrintPath )\r\ngosub CheckErr\r\n\r\nFont = \"Courier New,12,L,1\"\r\nconvert ',' to @fm in Font\r\nTfont = Font\r\nStat = set_printer( 'FONT', Font )\r\ngosub CheckErr\r\n\r\ngosub PrintToF\r\n\r\nFont<2> = 9\r\nFont<4> = 0\r\nVoid = set_printer( 'FONT', Font )\r\ngosub CheckErr\r\n\r\nVoid = set_printer( 'TEXT', '' )\r\n\r\n**\r\n\r\n\r\n\r\nSInfo\t\t= .sched_info->array\r\nColHeads \t= .sched_info->label\r\n\r\nconvert @fm to @vm in ColHeads\r\n\r\nNewColHeads = ''\r\n\r\nfor I = 1 to SelDtCnt\r\n NewColHeads<1,-1> = ColHeads<1,SelDates<1,I>>\r\nnext I\r\n\r\nTable = ''\r\nTable<1> = 'R#':@vm:NewColHeads\r\n\r\nRcnt = fieldcount( SInfo<1>, @vm )\r\n\r\nTFont<2> = 9\r\nStat = set_printer( 'FONT', TFont )\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN DEBUG\r\n\r\nfor i = 1 to Rcnt\r\n Tvar = trim(SInfo,i>):trim(SInfo,i>):trim(SInfo,i>):trim(SInfo,i>):trim(SInfo,i>):trim(SInfo,i>):trim(SInfo,i>)\r\n \r\n \r\n \r\n if Tvar = '|||||||' or Tvar = '||||||' then \r\n \t\r\n * Tom puts a '|' when not in use and if it is not in use for all 7 days then don't print\r\n end else\r\n Table<-1> = i:@vm:SInfo,i>:@vm:SInfo,i>:@vm:SInfo,i>:@vm:SInfo,i>:@vm:SInfo,i>:@vm:SInfo,i>:@vm:SInfo,i>\r\n end\r\nnext i\r\n\r\nColTableInfo = '>+360':@vm:'<+2044':@vm:'<+2044':@vm:'<+2044':@vm:'<+2044':@vm:'<+2044':@vm:'<+2044':@vm:'<+2044'\r\nx = Set_Printer(\"ADDTABLE\", ColTableInfo, '', Table, '', '', 1, TB_ALL)\r\nstat = set_printer( 'TERM' ) \r\ngosub CheckErr \r\n\r\nRETURN 0\r\n*===========================================================================*\r\nPrintTof:\r\n TFont<1> = 24\r\n TFont<3> = 'C'\r\n Stat = set_printer( 'FONT', TFont )\r\n LineOut = ''\r\n LineOut = 'Reactor Master Scheduler'\r\n Void = set_printer( 'TEXT', LineOut ) \r\n TFont<1> = 16 \r\n Stat = set_printer( 'FONT', TFont ) \r\n LineOut = 'For the month of ':.month->text\r\n Void = set_printer( 'TEXT', LineOut )\r\n Void = set_printer( 'TEXT', '' )\r\n Stat = set_printer( 'FONT', Font ) \r\nreturn \r\n\r\n*===========================================================================*\r\nCheckErr:\r\n if stat < 0 then\r\n goto FatalExit\r\n end\r\nreturn \r\n\r\n*===========================================================================*\r\nFatalExit:\r\n Void = msg( '', Stat )\r\n Stat = set_printer( 'TERM' )\r\nreturn \r\n\r\n*===========================================================================*\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_MAST_SCHED.QCFG_DATE_BUTTON.json b/LSL2/OIEVENT/CLICK/WO_MAST_SCHED.QCFG_DATE_BUTTON.json new file mode 100644 index 0000000..d2c9b3a --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_MAST_SCHED.QCFG_DATE_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\n$insert msg_equates\r\n\r\nColRow = .sched_info->selpos\r\nCurLabels = .sched_info->label\r\nCol = ColRow<1>\r\nRow = ColRow<2>\r\nif Col = 31 then\r\n Col = 1\r\n .sched_info->selpos = Col:@fm:Row\r\n MsgInfo = ''\r\n MsgInfo = 'You are currently on the last day...You will now be placed on the first day.'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\nCurLabel = CurLabels\r\nDay = field( CurLabel, ' ', 1 )\r\nMonth = field( CurLabel, ' ', 2 )\r\nDate = field( CurLabel, ' ', 3 )\r\nYear = field( CurLabel, ' ', 4 )\r\nMonths = 'January/February/March/April/May/June/July/August/September/October/November/December'\r\nDays = 'Sunday/Monday/Tuesday/Wednesday/Thursday/Friday/Saturday'\r\nconvert '/' to @fm in Months\r\nconvert '/' to @fm in Days\r\nlocate Month in Months using @fm setting MPos else\r\n MPos = 0\r\nend\r\nlocate Day in Days using @fm setting DPos then\r\n if DPos = 7 then\r\n DPos = 1\r\n end else\r\n DPos += 1\r\n end\r\nend else\r\n DPos = 0\r\nend\r\n* SEE IF NEXT DAY IS A VALID DATE OR NOT\r\nTDate = date + 1\r\nTTDate = iconv( Months:'/':TDate:'/':Year, 'D' )\r\nif TTDate then\r\n NewLabel = ''\r\n if TDate < 10 then\r\n TDate = 0:TDate\r\n end\r\n NewLabel = Days:' ':Month:' ':TDate:' ':Year\r\nend else\r\n NewLabel = ''\r\n if MPos > 11 then\r\n MPos = 0 ;* SO IT WILL BE SET TO JANUARY BELOW WITH MPOS+1\r\n end\r\n NewLabel = Days:' ':Months:' 01':' ':Year\r\nend\r\nCol += 1\r\n.sched_info->selpos = Col:@fm:Row\r\nCurLabels = NewLabel\r\n.sched_info->label = CurLabels\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_MAST_SCHED.SAVE.json b/LSL2/OIEVENT/CLICK/WO_MAST_SCHED.SAVE.json new file mode 100644 index 0000000..c066242 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_MAST_SCHED.SAVE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, fieldcount, wo_mast_sched_comm\r\ndeclare subroutine end_dialog, create_note, obj_Sched\r\n\r\n$insert quote_sigs_equ\r\n$INSERT NOTIFICATION_EQU\r\n\r\nequ CrLf$ to char(13):char(10)\r\n\r\nVoid = wo_mast_sched_comm( 'SET_WO_SCHEDULED' )\r\nopen 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN DEBUG\r\n\r\nMastSchedRec = ''\r\nDates = .sched_info->label\r\nconvert @fm to @vm in Dates\r\nMonth = .month->text\r\nReactorCnt = .reactor_cnt->text\r\nRestInfo = .sched_info->array\r\nMastSchedRec = Dates:@fm:Month:@fm:ReactorCnt:@fm:RestInfo\r\nwrite MastSchedRec on ConfigTable, 'WO_MAST_SCHED' else\r\n Void = msg( '', 'Unable to write WO_MAST_SCHED in CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\nunlock ConfigTable, 'WO_MAST_SCHED' else\r\n Void = msg( '', 'Unable to unlock WO_MAST_SCHED in CONFIG table' )\r\nend\r\n\r\nobj_Sched('PushConfig')\t\t;* Pushes data in CONFIG to SCHED_DET records\r\n\r\nOrigSched = get_property( @window, '@OrigSched' )\r\nCurSched = .sched_info->array\r\n\r\n* NOT USING MAST_SCHED_TODAY_DATE() CAUSE I NEED CURDAY AS WELL\r\nDayPos = mod( date(), 7 )+1\r\nDays = 'Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday'\r\nconvert ',' to @fm in Days\r\nCurDay = Days\r\nCurDate = oconv( date(), 'D4,HL' )\r\nconvert ',' to ' ' in CurDate\r\nCurDate = CurDay:' ':CurDate\r\n\r\nCurLabels = .sched_info->label\r\nlocate CurDate in CurLabels using @fm setting DayNum then\r\n * DayNum set\r\nend else\r\n * DayNum not found, today is not in the schedule\r\n DayNum = ''\r\nend\r\n\r\n* * * * * * * * * * * * * * * *\r\n\r\n* * Added loop to check 5 days in advance * * 6/25/2014 JCH\r\n\r\nStartDay \t= DayNum\r\nEndDay\t\t= DayNum + 5\r\n\r\n*FOR SchedPointer = StartDay TO EndDay\r\n\r\n*\tIF SchedPointer > 31 THEN\r\n*\t\tDayNum -= 31\r\n*\tEND ELSE\r\n*\t\tDayNum = SchedPointer\r\n*\tEND\r\n\r\n\tTodaySched = CurSched\r\n\tOTodaySched = OrigSched\r\n\tif ( DayNum <> '' ) and ( CurSched <> OrigSched ) then\r\n\t MsgToSend = ''\r\n\t for i = 1 to .reactor_cnt->text\r\n\t if TodaySched<1,i> <> OTodaySched<1,i> then\r\n\t\t\t * Today for this reactor has been modified so notify the supervisors\r\n\t \t MsgToSend := ' Reactor ':i:' has changed on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MT' ):CrLf$\r\n\t\t end\r\n\t next i \r\n\t \r\n\t SendTo = ''\r\n\t \r\n\t IF CurDay = 'Sunday' OR CurDay = 'Monday' OR CurDay = 'Tuesday' THEN\r\n\t \r\n\t SendTo = XLATE('NOTIFICATION','MAST_SCHED_BEG',NOTIFICATION_USER_ID$,'X')\t\t\t;* Added 09/28/2005 JCH - J.C. Henry & Co., Inc\r\n\t \r\n\t END ELSE\r\n\t IF CurDay = 'Thursday' OR CurDay = 'Friday' OR CurDay = 'Saturday' THEN\r\n\t \r\n\t SendTo = XLATE('NOTIFICATION','MAST_SCHED_END',NOTIFICATION_USER_ID$,'X')\t\t;* Added 09/28/2005 JCH - J.C. Henry & Co., Inc\r\n\t \r\n\t END ELSE\r\n\t * it is Wednesday so send to both cause they alternate\r\n\t \t\r\n\t SendTo \t\t= XLATE('NOTIFICATION','MAST_SCHED_BEG',NOTIFICATION_USER_ID$,'X')\t\t;* Added 09/28/2005 JCH - J.C. Henry & Co., Inc\r\n\t SendTo<1,-1>\t= XLATE('NOTIFICATION','MAST_SCHED_END',NOTIFICATION_USER_ID$,'X')\t\t;* Added 09/28/2005 JCH - J.C. Henry & Co., Inc\r\n\t \r\n\t END\r\n\t END\r\n\t \r\n\t MsgToSend:= ' This has been modified by '\r\n\t MsgToSend:= oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t MsgToSend:= ' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'...See Attachment.'\r\n\t Subject = 'Reactor Schedule Change Notice...'\r\n\t create_note( SendTo, 'System', Subject, MsgToSend, 'WO_MAST_SCHED', '*CENTER' )\t \r\n\tend\r\n*NEXT SchedPointer\r\n\r\n\r\n* * * * * * * * * * \r\n\r\n\r\n\r\nSCnt = fieldcount( CurSched, @fm )\r\nfor zz = 1 to SCnt\r\n CurDay = CurSched\r\n OCurDay = OrigSched\r\n\tif CurDay <> OCurDay then\r\n MsgToSend = ''\r\n\t for i = 1 to .reactor_cnt->text\r\n\t if CurDay<1,i> <> OCurDay<1,i> then\r\n\t\t\t * IF THERE IS A CAROT^ IN IT THEN SEND TO MAINTENANCE\r\n\t\t\t if index( CurDay<1,i>, '^', 1 ) then\r\n\t\t\t MsgToSend := 'Reactor ':i:' has had maintenance scheduled for ':Dates<1,zz>:'.':CrLf$\t\t \r\n\t\t\t end\r\n\t\t end\r\n\t next i \r\n\t if MsgToSend <> '' then\r\n\t SendTo = xlate( 'LISTBOX_CONFIG', 'MAINTTECH', 1, 'X' ):@vm:'BRYCE_M':@vm:'DAVE_W'\r\n\t\t MsgToSend:= 'Maintenance has been scheduled by '\r\n\t\t MsgToSend:= oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t MsgToSend:= ' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'...See Attachment.'\r\n\t\t Subject = 'Maintenance Scheduled...'\r\n\t\t create_note( SendTo, 'System', Subject, MsgToSend, 'WO_MAST_SCHED', '*CENTER' )\t \r\n\t end\r\n\tend\r\nnext zz\r\n\r\n \r\nend_dialog( @window, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_MAST_SCHED_DATE_CFG.BUTTON_1.json b/LSL2/OIEVENT/CLICK/WO_MAST_SCHED_DATE_CFG.BUTTON_1.json new file mode 100644 index 0000000..46ca72b --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_MAST_SCHED_DATE_CFG.BUTTON_1.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine get_property, end_dialog\r\ndeclare function msg, send_event\r\n$insert logical\r\n\r\nDays = .days->array\r\nconvert @fm to '*' in Days\r\nend_dialog( @window, Days )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_MAST_SCHED_DATE_CFG.BUTTON_2.json b/LSL2/OIEVENT/CLICK/WO_MAST_SCHED_DATE_CFG.BUTTON_2.json new file mode 100644 index 0000000..9ff5441 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_MAST_SCHED_DATE_CFG.BUTTON_2.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_MAST_SCHED_DATE_CFG2.BUTTON_1.json b/LSL2/OIEVENT/CLICK/WO_MAST_SCHED_DATE_CFG2.BUTTON_1.json new file mode 100644 index 0000000..4fe8f41 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_MAST_SCHED_DATE_CFG2.BUTTON_1.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nDay = .day->text\r\nMonth = .month->text\r\nDate = .date->text\r\nYear = .year->text\r\n\r\nReturnVar = Day:' ':Month:' ':Date:' ':Year\r\nif ( Day <> '' ) and ( Month <> '' ) and ( Date <> '' ) and ( Year <> '' ) then\r\n end_dialog( @window, ReturnVar )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must select a value for each portion of the date.'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_MAST_SCHED_DATE_CFG2.BUTTON_2.json b/LSL2/OIEVENT/CLICK/WO_MAST_SCHED_DATE_CFG2.BUTTON_2.json new file mode 100644 index 0000000..9599819 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_MAST_SCHED_DATE_CFG2.BUTTON_2.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_MAST_SCHED_FIND.CANCEL.json b/LSL2/OIEVENT/CLICK/WO_MAST_SCHED_FIND.CANCEL.json new file mode 100644 index 0000000..3eea05a --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_MAST_SCHED_FIND.CANCEL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_mast_sched_comm\r\n\r\nwo_mast_sched_comm( 'CANCEL', '', '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_MAST_SCHED_FIND.NEXT.json b/LSL2/OIEVENT/CLICK/WO_MAST_SCHED_FIND.NEXT.json new file mode 100644 index 0000000..6de48d5 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_MAST_SCHED_FIND.NEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_mast_sched_comm\r\n\r\nwo_mast_sched_comm( 'NEXT', .find_val->text, .case_sens->check )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_MAST_SCHED_FIND.PREV.json b/LSL2/OIEVENT/CLICK/WO_MAST_SCHED_FIND.PREV.json new file mode 100644 index 0000000..6a656f8 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_MAST_SCHED_FIND.PREV.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_mast_sched_comm\r\n\r\nwo_mast_sched_comm( 'PREV', .find_val->text, .case_sens->check )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLICK/WO_VERIFY.TECH_SIG_BUTTON.json b/LSL2/OIEVENT/CLICK/WO_VERIFY.TECH_SIG_BUTTON.json new file mode 100644 index 0000000..f523368 --- /dev/null +++ b/LSL2/OIEVENT/CLICK/WO_VERIFY.TECH_SIG_BUTTON.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, msg, dialog_box, memberof, wo_verify_comm\r\ndeclare subroutine create_note\r\n$insert logical\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\n$insert ncr_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif memberof( @user4, 'DATA_ENTRY' ) or memberof( @user4, 'SUPERVISOR' ) then\r\n\tif .tech_sig->text <> '' then\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'This WO has already been signed by a technician.'\r\n\t MsgInfo = '!'\r\n\t Void = msg( '', MsgInfo )\r\n\tend else\r\n\t DopantChk = .dopant_chk->check\r\n\t RecipeChk = .recipe_chk->check\r\n\t InstructionsChk = .instructions_chk->check\r\n\t SPCChk = .spc_chk->check\r\n\t RecipeChk = .recipe_param_chk->check\r\n\t if ( DopantChk ) and ( RecipeChk ) and ( InstructionsChk ) and ( SPCChk ) and ( RecipeChk ) then\r\n\t\t Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\t\t\tif Valid then\r\n\t\t .tech_sig->text = @user4\r\n\t\t .tech_sig_name->text = xlate( 'LSL_USERS', @user4, 'FIRST_LAST', 'X' )\r\n\t\t .tech_sig_time->text = oconv( time(), 'MTH' )\r\n\t\t @@window->savewarn = 1\r\n\t\t Void = wo_verify_comm( 'STATUS_CHECK' )\r\n\t\t end\r\n\t\tend else\r\n\t\t MsgInfo = ''\r\n\t\t MsgInfo = 'You must check every item on the Work Order Verification Check List.'\r\n\t\t MsgInfo = '!'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t\tend\r\n\t\t\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = '!'\r\n MsgInfo = 'You must be a cleanroom personnel to sign the work order verification.'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/ANNUAL_CONTRACTS..json b/LSL2/OIEVENT/CLOSE/ANNUAL_CONTRACTS..json new file mode 100644 index 0000000..5c6be61 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/ANNUAL_CONTRACTS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event(CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/ASSIGN_CAUSE..json b/LSL2/OIEVENT/CLOSE/ASSIGN_CAUSE..json new file mode 100644 index 0000000..50eef30 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/ASSIGN_CAUSE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/ATTENDANCE..json b/LSL2/OIEVENT/CLOSE/ATTENDANCE..json new file mode 100644 index 0000000..50eef30 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/ATTENDANCE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/CALL_VISIT..json b/LSL2/OIEVENT/CLOSE/CALL_VISIT..json new file mode 100644 index 0000000..50eef30 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/CALL_VISIT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/CAR..json b/LSL2/OIEVENT/CLOSE/CAR..json new file mode 100644 index 0000000..50eef30 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/CAR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/CDM_LOG..json b/LSL2/OIEVENT/CLOSE/CDM_LOG..json new file mode 100644 index 0000000..c37084c --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/CDM_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\n*Void = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/COC..json b/LSL2/OIEVENT/CLOSE/COC..json new file mode 100644 index 0000000..50eef30 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/COC..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/COMPANY..json b/LSL2/OIEVENT/CLOSE/COMPANY..json new file mode 100644 index 0000000..50eef30 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/COMPANY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/CUST_INQUIRY..json b/LSL2/OIEVENT/CLOSE/CUST_INQUIRY..json new file mode 100644 index 0000000..50eef30 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/CUST_INQUIRY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/DBW_WM_OUT_WAFER_SELECT..json b/LSL2/OIEVENT/CLOSE/DBW_WM_OUT_WAFER_SELECT..json new file mode 100644 index 0000000..4c52e6c --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/DBW_WM_OUT_WAFER_SELECT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "Declare subroutine End_Dialog\r\n\r\nEnd_Dialog(CtrlEntId, 'Cancel')\r\n\r\nReturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/DBW_WO_MAT_WAFER_SELECT..json b/LSL2/OIEVENT/CLOSE/DBW_WO_MAT_WAFER_SELECT..json new file mode 100644 index 0000000..4c52e6c --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/DBW_WO_MAT_WAFER_SELECT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "Declare subroutine End_Dialog\r\n\r\nEnd_Dialog(CtrlEntId, 'Cancel')\r\n\r\nReturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/DESIG_ERR_GRP..json b/LSL2/OIEVENT/CLOSE/DESIG_ERR_GRP..json new file mode 100644 index 0000000..50eef30 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/DESIG_ERR_GRP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/DIALOG_LOAD_EPI_PRO..json b/LSL2/OIEVENT/CLOSE/DIALOG_LOAD_EPI_PRO..json new file mode 100644 index 0000000..a84211c --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/DIALOG_LOAD_EPI_PRO..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_Dialog_Load_Epi_Pro\r\n\r\nRETURN Comm_Dialog_Load_Epi_Pro('Close')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/DIALOG_LOAD_SUSCEPTOR..json b/LSL2/OIEVENT/CLOSE/DIALOG_LOAD_SUSCEPTOR..json new file mode 100644 index 0000000..5b87d89 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/DIALOG_LOAD_SUSCEPTOR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Dialog_Load_Susceptor\r\n\r\n\r\n\r\nRETURN Dialog_Load_Susceptor('PRECLOSE')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/DIALOG_LOAD_SUSCEPTOR_CUTOVER..json b/LSL2/OIEVENT/CLOSE/DIALOG_LOAD_SUSCEPTOR_CUTOVER..json new file mode 100644 index 0000000..5b87d89 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/DIALOG_LOAD_SUSCEPTOR_CUTOVER..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Dialog_Load_Susceptor\r\n\r\n\r\n\r\nRETURN Dialog_Load_Susceptor('PRECLOSE')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/DIALOG_UNLOG_SUSCEPTOR..json b/LSL2/OIEVENT/CLOSE/DIALOG_UNLOG_SUSCEPTOR..json new file mode 100644 index 0000000..5b87d89 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/DIALOG_UNLOG_SUSCEPTOR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Dialog_Load_Susceptor\r\n\r\n\r\n\r\nRETURN Dialog_Load_Susceptor('PRECLOSE')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/GAN_PM..json b/LSL2/OIEVENT/CLOSE/GAN_PM..json new file mode 100644 index 0000000..466fe31 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/GAN_PM..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nVoid = send_event( CtrlEntId:'.CANCEL', 'CLICK' )\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/GAN_PROD_SPEC..json b/LSL2/OIEVENT/CLOSE/GAN_PROD_SPEC..json new file mode 100644 index 0000000..50eef30 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/GAN_PROD_SPEC..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/HOTH2O2_LOG..json b/LSL2/OIEVENT/CLOSE/HOTH2O2_LOG..json new file mode 100644 index 0000000..50eef30 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/HOTH2O2_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/INVOICE..json b/LSL2/OIEVENT/CLOSE/INVOICE..json new file mode 100644 index 0000000..f6eeedc --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/INVOICE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event, check_notes\r\ndeclare subroutine forward_event\r\n\r\nif get_property( @window, '@CalledFromOrder' ) then\r\n Void = post_event( 'ORDER', 'CLOSE', '' )\r\nend\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/LAST_WFR_CI_GROUP..json b/LSL2/OIEVENT/CLOSE/LAST_WFR_CI_GROUP..json new file mode 100644 index 0000000..8982066 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/LAST_WFR_CI_GROUP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes, rds_comm\r\ndeclare subroutine forward_event\r\n\r\n\r\nif rds_comm( 'CHECK_NCR_SAVE' ) then\r\n * DO NOTHING CAUSE THE USER WAS ASKED TO SAVE AND THEY SAID NO BUT WE MUST\r\n return 0\r\nend\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/LOSS_CODES..json b/LSL2/OIEVENT/CLOSE/LOSS_CODES..json new file mode 100644 index 0000000..50eef30 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/LOSS_CODES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/LSL_MAIN2..json b/LSL2/OIEVENT/CLOSE/LSL_MAIN2..json new file mode 100644 index 0000000..9dcee03 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/LSL_MAIN2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_printer, Get_Property\r\ndeclare subroutine record_lock, Set_Property\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\n\r\n*Void = Set_Property('SYSTSEM','IDLEPROC','')\r\nVoid = Set_Property(@WINDOW,'TIMER','')\r\n\r\n\r\nUNLOCK All\r\n/*\r\nDEAD - 1/27/2005 JCH\r\n* will write out the x and y coords for the user, so the menu comes up at the last used\r\n* location\r\nWinSize = get_property( @window, 'SIZE' )\r\nX = WinSize<1>\r\nY = WinSize<2>\r\nXsize = WinSize<3>\r\nYsize = WinSize<4>\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN DEBUG\r\n\r\nopen 'LSL_USERS' to LSLUsersTableVar else\r\n MsgInfo = ''\r\n MsgInfo = 'Unable to open LSL_USERS...'\r\n MsgInfo = -2\r\n MsgInfo = -2\r\n Void = msg( '', MsgInfo )\r\nend\r\n\r\nread UserRec from LSLUsersTableVar, @user4 then\r\n\t \r\n\t*UserRec = xlate( 'LSL_USERS', @user4, '', 'X' )\r\n\tUserRec = X\r\n\tUserRec = Y\r\n\tUserRec = Xsize\r\n\tUserRec = Ysize\r\n\twrite UserRec on LSLUsersTableVar, @user4 else Null\r\n\r\nEND;* End of User Rec Read\r\n*/\r\n\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/MASTER_CALIB_LIST..json b/LSL2/OIEVENT/CLOSE/MASTER_CALIB_LIST..json new file mode 100644 index 0000000..466fe31 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/MASTER_CALIB_LIST..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nVoid = send_event( CtrlEntId:'.CANCEL', 'CLICK' )\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/MASTER_DISK_LOG..json b/LSL2/OIEVENT/CLOSE/MASTER_DISK_LOG..json new file mode 100644 index 0000000..50eef30 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/MASTER_DISK_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/MASTER_PM_LIST_20190422..json b/LSL2/OIEVENT/CLOSE/MASTER_PM_LIST_20190422..json new file mode 100644 index 0000000..466fe31 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/MASTER_PM_LIST_20190422..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nVoid = send_event( CtrlEntId:'.CANCEL', 'CLICK' )\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/MEG_LOG..json b/LSL2/OIEVENT/CLOSE/MEG_LOG..json new file mode 100644 index 0000000..50eef30 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/MEG_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/MSG_GROUPS..json b/LSL2/OIEVENT/CLOSE/MSG_GROUPS..json new file mode 100644 index 0000000..50eef30 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/MSG_GROUPS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/NAMES..json b/LSL2/OIEVENT/CLOSE/NAMES..json new file mode 100644 index 0000000..50eef30 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/NAMES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/NDA..json b/LSL2/OIEVENT/CLOSE/NDA..json new file mode 100644 index 0000000..50eef30 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/NDA..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/NDW_GAN_PROD_SPEC..json b/LSL2/OIEVENT/CLOSE/NDW_GAN_PROD_SPEC..json new file mode 100644 index 0000000..37a6128 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/NDW_GAN_PROD_SPEC..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "Declare Function NDW_GAN_PROD_SPEC_EVENTS\r\n\r\nreturn NDW_GAN_PROD_SPEC_EVENTS(CtrlEntID, 'CLOSE')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/NOTES..json b/LSL2/OIEVENT/CLOSE/NOTES..json new file mode 100644 index 0000000..2d0a532 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/NOTES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine yield,forward_event, msg\r\ndeclare function send_event\r\n\r\nif get_property( @window, '@called' ) then\r\n Void = send_event( 'NOTE_PTRS.WRITE', 'OMNIEVENT' )\r\nend\r\nVoid = set_property( @window, '@DontClose', 1 )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/ORDER..json b/LSL2/OIEVENT/CLOSE/ORDER..json new file mode 100644 index 0000000..50eef30 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/ORDER..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/ORG_DIALOG_LOAD_EPI_PRO..json b/LSL2/OIEVENT/CLOSE/ORG_DIALOG_LOAD_EPI_PRO..json new file mode 100644 index 0000000..a84211c --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/ORG_DIALOG_LOAD_EPI_PRO..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_Dialog_Load_Epi_Pro\r\n\r\nRETURN Comm_Dialog_Load_Epi_Pro('Close')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/PHOTOFLO_LOG..json b/LSL2/OIEVENT/CLOSE/PHOTOFLO_LOG..json new file mode 100644 index 0000000..50eef30 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/PHOTOFLO_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/PRINT_HELP_CONFIG..json b/LSL2/OIEVENT/CLOSE/PRINT_HELP_CONFIG..json new file mode 100644 index 0000000..466fe31 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/PRINT_HELP_CONFIG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nVoid = send_event( CtrlEntId:'.CANCEL', 'CLICK' )\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/PRINT_HELP_CONFIG2..json b/LSL2/OIEVENT/CLOSE/PRINT_HELP_CONFIG2..json new file mode 100644 index 0000000..466fe31 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/PRINT_HELP_CONFIG2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nVoid = send_event( CtrlEntId:'.CANCEL', 'CLICK' )\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/PROD_SPEC_BACKUP..json b/LSL2/OIEVENT/CLOSE/PROD_SPEC_BACKUP..json new file mode 100644 index 0000000..9ba4d05 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/PROD_SPEC_BACKUP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event, Start_Window\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/PROD_SPEC_JCH..json b/LSL2/OIEVENT/CLOSE/PROD_SPEC_JCH..json new file mode 100644 index 0000000..9ba4d05 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/PROD_SPEC_JCH..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event, Start_Window\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/PROD_SPEC_JRO..json b/LSL2/OIEVENT/CLOSE/PROD_SPEC_JRO..json new file mode 100644 index 0000000..9ba4d05 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/PROD_SPEC_JRO..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event, Start_Window\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/PRS_STAGE..json b/LSL2/OIEVENT/CLOSE/PRS_STAGE..json new file mode 100644 index 0000000..9e9dbc0 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/PRS_STAGE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "Declare function Get_Property, RowExists\r\nDeclare subroutine Set_Property\r\n\r\n$Insert LOGICAL\r\n\r\nPSNo = Get_Property(@WINDOW : '.PS_NO', 'TEXT')\r\nStage = Get_Property(@Window : '.STAGE', 'TEXT')\r\n\r\nIf PSNo NE '' and Stage NE '' then\r\n\tPRSStageKey = PSNo : '*' : Stage\r\n\tIf RowExists('PRS_STAGE', PRSStageKey) EQ False$ then\r\n\t // User is adding a new stage to the PSN from the PROD_SPEC form without any details.\r\n\t // Set the SAVEWARN property to true to prompt them to save upon exiting the form if \r\n\t // they have not already done so.\r\n\t Set_Property(@Window, 'SAVEWARN', True$)\r\n\tend\r\nend\r\n\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/P_NAMES..json b/LSL2/OIEVENT/CLOSE/P_NAMES..json new file mode 100644 index 0000000..50eef30 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/P_NAMES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/QUARTZ_TC_LOG..json b/LSL2/OIEVENT/CLOSE/QUARTZ_TC_LOG..json new file mode 100644 index 0000000..50eef30 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/QUARTZ_TC_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/QUARTZ_WAND_LOG..json b/LSL2/OIEVENT/CLOSE/QUARTZ_WAND_LOG..json new file mode 100644 index 0000000..27b3422 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/QUARTZ_WAND_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/QUOTE..json b/LSL2/OIEVENT/CLOSE/QUOTE..json new file mode 100644 index 0000000..50eef30 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/QUOTE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/QUOTE_OLD..json b/LSL2/OIEVENT/CLOSE/QUOTE_OLD..json new file mode 100644 index 0000000..d10d762 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/QUOTE_OLD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes, end_window\r\ndeclare subroutine forward_event\r\n\r\n* SIMPLY CALL END_WINDOW CAUSE IF WE FORWARD THE EVENT AND SOMETHING HAS CHANGED\r\n* IT WILL ASK THE USER IF THEY WANT TO SAVE AND WE ARE NOT ALLOWING SAVES\r\nVoid = end_window( @window )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/QUOTE_SRL..json b/LSL2/OIEVENT/CLOSE/QUOTE_SRL..json new file mode 100644 index 0000000..90ede51 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/QUOTE_SRL..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CtrlEntId, CtrlClassId, CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/RDS..json b/LSL2/OIEVENT/CLOSE/RDS..json new file mode 100644 index 0000000..29334fa --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/RDS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes, rds_comm\r\ndeclare subroutine forward_event, yield, Comm_RDS\r\n$insert msg_equates\r\n\r\nComm_RDS('Close')\r\nforward_event( CancelFlag )\r\n\r\n*Void = check_notes()\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/RDS_POST_EPI..json b/LSL2/OIEVENT/CLOSE/RDS_POST_EPI..json new file mode 100644 index 0000000..c37084c --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/RDS_POST_EPI..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\n*Void = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/RDS_PRE_EPI..json b/LSL2/OIEVENT/CLOSE/RDS_PRE_EPI..json new file mode 100644 index 0000000..c37084c --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/RDS_PRE_EPI..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\n*Void = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/RDS_PRE_EPI_ORG..json b/LSL2/OIEVENT/CLOSE/RDS_PRE_EPI_ORG..json new file mode 100644 index 0000000..50eef30 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/RDS_PRE_EPI_ORG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/RDS_UNLOAD..json b/LSL2/OIEVENT/CLOSE/RDS_UNLOAD..json new file mode 100644 index 0000000..6a77333 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/RDS_UNLOAD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes, rds_comm\r\ndeclare subroutine forward_event\r\n\r\n\r\nif rds_comm( 'CHECK_NCR_SAVE' ) then\r\n * DO NOTHING CAUSE THE USER WAS ASKED TO SAVE AND THEY SAID NO BUT WE MUST\r\n return 0\r\nend\r\nforward_event( CancelFlag )\r\n*Void = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/REACTOR_LOG_AREV..json b/LSL2/OIEVENT/CLOSE/REACTOR_LOG_AREV..json new file mode 100644 index 0000000..90ede51 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/REACTOR_LOG_AREV..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CtrlEntId, CtrlClassId, CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/REACTOR_PM..json b/LSL2/OIEVENT/CLOSE/REACTOR_PM..json new file mode 100644 index 0000000..50eef30 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/REACTOR_PM..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/REACTOR_RO..json b/LSL2/OIEVENT/CLOSE/REACTOR_RO..json new file mode 100644 index 0000000..94f8dcb --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/REACTOR_RO..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_Reactor\r\n\r\nRETURN Comm_Reactor('Close')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/REACT_ITEMS..json b/LSL2/OIEVENT/CLOSE/REACT_ITEMS..json new file mode 100644 index 0000000..50eef30 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/REACT_ITEMS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/REACT_PROBS..json b/LSL2/OIEVENT/CLOSE/REACT_PROBS..json new file mode 100644 index 0000000..50eef30 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/REACT_PROBS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/REACT_PROB_CAT..json b/LSL2/OIEVENT/CLOSE/REACT_PROB_CAT..json new file mode 100644 index 0000000..50eef30 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/REACT_PROB_CAT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/RECIPE..json b/LSL2/OIEVENT/CLOSE/RECIPE..json new file mode 100644 index 0000000..c37084c --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/RECIPE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\n*Void = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/SCHEDULE..json b/LSL2/OIEVENT/CLOSE/SCHEDULE..json new file mode 100644 index 0000000..85421fd --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/SCHEDULE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes, msg, fieldcount\r\ndeclare subroutine forward_event, create_note\r\n$insert quote_sigs_equ\r\n$insert msg_equates\r\n\r\nSavedWOs = get_property( @window, '@SavedWOs' )\r\nSavedCusts = get_property( @window, '@SavedCusts' )\r\nif SavedWOs then\r\n SWoCnt = fieldcount( SavedWOs, @fm )\r\n if SWOCnt > 1 then\r\n WOVar = 'WOs'\r\n MessageVar = 'The following WOs have been entered: ' \r\n for i = 1 to SWOCnt\r\n ThisWO = SavedWOs\r\n ThisCust = SavedCusts\r\n MessageVar := ThisWO:'-':ThisCust:', '\r\n next i\r\n MessageVar[-2,2] = ''\r\n end else\r\n WOVar = 'WO' \r\n MessageVar = 'The following WO has been entered: ':SavedWOs:'-':SavedCusts:'.'\r\n end\r\n\tMsgInfo = ''\r\n\tMsgInfo = 'Do you wish to send a notification to shipping.'\r\n\tMsgInfo = '?'\r\n\tMsgInfo = 'BNY'\r\n\tResp = msg( '', MsgInfo )\r\n\tif Resp then\r\n SendTo = xlate( 'CONFIG', 'QUOTE_SIGS', WOEntryNotif$, 'X' )\r\n\t create_note( SendTo, @user4, WOVar:' Entered', MessageVar, '', '', '' )\r\n\tend\r\nend\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/SCHEDULE_SRL..json b/LSL2/OIEVENT/CLOSE/SCHEDULE_SRL..json new file mode 100644 index 0000000..90ede51 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/SCHEDULE_SRL..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CtrlEntId, CtrlClassId, CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/SEMI_LOG..json b/LSL2/OIEVENT/CLOSE/SEMI_LOG..json new file mode 100644 index 0000000..50eef30 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/SEMI_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/SPC_CLEAN_HF..json b/LSL2/OIEVENT/CLOSE/SPC_CLEAN_HF..json new file mode 100644 index 0000000..d5893d4 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/SPC_CLEAN_HF..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes, get_eventstatus\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/SPC_CLEAN_HF_AKRION..json b/LSL2/OIEVENT/CLOSE/SPC_CLEAN_HF_AKRION..json new file mode 100644 index 0000000..d5893d4 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/SPC_CLEAN_HF_AKRION..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes, get_eventstatus\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/SPC_CLEAN_HF_ETCH..json b/LSL2/OIEVENT/CLOSE/SPC_CLEAN_HF_ETCH..json new file mode 100644 index 0000000..d5893d4 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/SPC_CLEAN_HF_ETCH..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes, get_eventstatus\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/SPC_CLEAN_HF_ETCH_AKRION..json b/LSL2/OIEVENT/CLOSE/SPC_CLEAN_HF_ETCH_AKRION..json new file mode 100644 index 0000000..d5893d4 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/SPC_CLEAN_HF_ETCH_AKRION..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes, get_eventstatus\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/SPC_CLEAN_SC1..json b/LSL2/OIEVENT/CLOSE/SPC_CLEAN_SC1..json new file mode 100644 index 0000000..d5893d4 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/SPC_CLEAN_SC1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes, get_eventstatus\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/SPC_CLEAN_SRD..json b/LSL2/OIEVENT/CLOSE/SPC_CLEAN_SRD..json new file mode 100644 index 0000000..d5893d4 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/SPC_CLEAN_SRD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes, get_eventstatus\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/SPC_EVAL_4PP..json b/LSL2/OIEVENT/CLOSE/SPC_EVAL_4PP..json new file mode 100644 index 0000000..d5893d4 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/SPC_EVAL_4PP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes, get_eventstatus\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/SPC_EVAL_ADE..json b/LSL2/OIEVENT/CLOSE/SPC_EVAL_ADE..json new file mode 100644 index 0000000..d5893d4 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/SPC_EVAL_ADE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes, get_eventstatus\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/SPC_EVAL_FTIR..json b/LSL2/OIEVENT/CLOSE/SPC_EVAL_FTIR..json new file mode 100644 index 0000000..d5893d4 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/SPC_EVAL_FTIR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes, get_eventstatus\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/SPC_REACTOR_PARTICLES..json b/LSL2/OIEVENT/CLOSE/SPC_REACTOR_PARTICLES..json new file mode 100644 index 0000000..d28dd98 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/SPC_REACTOR_PARTICLES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\ndeclare function check_notes, get_eventstatus\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/SPC_WAFER_ETCH..json b/LSL2/OIEVENT/CLOSE/SPC_WAFER_ETCH..json new file mode 100644 index 0000000..d5893d4 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/SPC_WAFER_ETCH..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes, get_eventstatus\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/SRP_COC_RESULTS..json b/LSL2/OIEVENT/CLOSE/SRP_COC_RESULTS..json new file mode 100644 index 0000000..d5893d4 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/SRP_COC_RESULTS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes, get_eventstatus\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/SRP_INCOMING_LOG..json b/LSL2/OIEVENT/CLOSE/SRP_INCOMING_LOG..json new file mode 100644 index 0000000..50eef30 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/SRP_INCOMING_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/SUB_REC_LOG..json b/LSL2/OIEVENT/CLOSE/SUB_REC_LOG..json new file mode 100644 index 0000000..50eef30 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/SUB_REC_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/TABLENAMES..json b/LSL2/OIEVENT/CLOSE/TABLENAMES..json new file mode 100644 index 0000000..a447631 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/TABLENAMES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\n\r\nVoid = send_event( CtrlEntId:'.CANCEL', 'CLICK' )\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/TW_CODES..json b/LSL2/OIEVENT/CLOSE/TW_CODES..json new file mode 100644 index 0000000..50eef30 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/TW_CODES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/TW_PRIME_USAGE..json b/LSL2/OIEVENT/CLOSE/TW_PRIME_USAGE..json new file mode 100644 index 0000000..50eef30 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/TW_PRIME_USAGE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/TW_USAGE..json b/LSL2/OIEVENT/CLOSE/TW_USAGE..json new file mode 100644 index 0000000..50eef30 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/TW_USAGE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/TW_USE..json b/LSL2/OIEVENT/CLOSE/TW_USE..json new file mode 100644 index 0000000..e57f224 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/TW_USE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_TW_Use\r\n\r\nRETURN Comm_TW_Use(CtrlEntID,'CLOSE')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/WAFER_INV..json b/LSL2/OIEVENT/CLOSE/WAFER_INV..json new file mode 100644 index 0000000..50eef30 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/WAFER_INV..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/WO_DAILY_SCHED_SINGLE..json b/LSL2/OIEVENT/CLOSE/WO_DAILY_SCHED_SINGLE..json new file mode 100644 index 0000000..5c32750 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/WO_DAILY_SCHED_SINGLE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "Declare subroutine WO_Daily_Sched_Comm2\r\n\r\nWO_Daily_Sched_Comm2('FORM_CLOSE')\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/WO_LOG..json b/LSL2/OIEVENT/CLOSE/WO_LOG..json new file mode 100644 index 0000000..50eef30 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/WO_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CLOSE/WO_VERIFY..json b/LSL2/OIEVENT/CLOSE/WO_VERIFY..json new file mode 100644 index 0000000..50eef30 --- /dev/null +++ b/LSL2/OIEVENT/CLOSE/WO_VERIFY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\nVoid = check_notes()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/ABOUT..json b/LSL2/OIEVENT/CREATE/ABOUT..json new file mode 100644 index 0000000..9288ecb --- /dev/null +++ b/LSL2/OIEVENT/CREATE/ABOUT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function center_window\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/AC_RPT1..json b/LSL2/OIEVENT/CREATE/AC_RPT1..json new file mode 100644 index 0000000..0a18779 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/AC_RPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Annual Contracts', Print$ ) else\r\n security_err_msg( 'Annual Contracts', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/AC_RPT_1..json b/LSL2/OIEVENT/CREATE/AC_RPT_1..json new file mode 100644 index 0000000..a7b575c --- /dev/null +++ b/LSL2/OIEVENT/CREATE/AC_RPT_1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Annual Contracts', Print$ ) else\r\n security_err_msg( 'Annual Contracts', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/AC_SRPT1..json b/LSL2/OIEVENT/CREATE/AC_SRPT1..json new file mode 100644 index 0000000..0a18779 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/AC_SRPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Annual Contracts', Print$ ) else\r\n security_err_msg( 'Annual Contracts', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/ANNUAL_CONTRACTS..json b/LSL2/OIEVENT/CREATE/ANNUAL_CONTRACTS..json new file mode 100644 index 0000000..030f8b4 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/ANNUAL_CONTRACTS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg, sendmessage\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, getwindow, fieldcount\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n\r\nif index( CreateParam, 'Choosing', 1 ) or index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nif index( CreateParam,'Choosing', 1 ) then\r\n PrevWindow = field( CreateParam, '*', 3 )\r\n Void = set_property( @window, '@PrevWindow', PrevWindow )\r\n .ret_ac_button->visible = 1\r\n Ttext = .ret_ac_button->text\r\n Ttext := ' ':PrevWindow\r\n .ret_ac_button->text = Ttext\r\nend \r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 ) \r\n\t .contract_no->text = Keys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .contract_no->text = Keys\r\n Void = send_event( @window:'.CONTRACT_NO', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'Annual Contracts', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Annual Contracts', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Annual Contracts', Edit$ ) else\r\n security_err_msg( 'Annual Contracts', Edit$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/AR_INV_EXP..json b/LSL2/OIEVENT/CREATE/AR_INV_EXP..json new file mode 100644 index 0000000..e15d3f7 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/AR_INV_EXP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "* DEFAULT TO THE FOLLOWING DRIVE AND PATH\r\n.path->text = 'M:\\90W\\MAS90\\INVOICE.M&S'\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/ASSIGN_CAUSE..json b/LSL2/OIEVENT/CREATE/ASSIGN_CAUSE..json new file mode 100644 index 0000000..1ee1ff3 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/ASSIGN_CAUSE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg, sendmessage\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, getwindow, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t sendmessage( HbBar, QbfOccurred$, 0, 0 ) \r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .assign_cause_id->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .assign_cause_id->text = Keys\r\n Void = send_event( @window:'.ASSIGN_CAUSE_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'Assign Cause', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Assign Cause', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Assign Cause', Edit$ ) else\r\n security_err_msg( 'Assign Cause', Edit$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/ATTENDANCE..json b/LSL2/OIEVENT/CREATE/ATTENDANCE..json new file mode 100644 index 0000000..cd59006 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/ATTENDANCE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .absent_id->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .absent_id->text = Keys\r\n Void = send_event( @window:'.ABSENT_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'Attendance', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Attendance', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Attendance', Edit$ ) else\r\n security_err_msg( 'Attendance', Edit$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/ATTENDANCE_QUERY..json b/LSL2/OIEVENT/CREATE/ATTENDANCE_QUERY..json new file mode 100644 index 0000000..5e15e0f --- /dev/null +++ b/LSL2/OIEVENT/CREATE/ATTENDANCE_QUERY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data\r\n\r\nset_list_box_data(@window)\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/ATTENDANCE_SRPT1..json b/LSL2/OIEVENT/CREATE/ATTENDANCE_SRPT1..json new file mode 100644 index 0000000..15c01b3 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/ATTENDANCE_SRPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data, security_err_msg, end_dialog\r\ndeclare function security_check, center_window\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Reactor Log', Print$ ) else\r\n security_err_msg( 'Reactor Log', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\n\r\nset_list_box_data(@window)\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/CALL_VISIT..json b/LSL2/OIEVENT/CREATE/CALL_VISIT..json new file mode 100644 index 0000000..1595e9f --- /dev/null +++ b/LSL2/OIEVENT/CREATE/CALL_VISIT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 ) \r\n\t .call_visit_id->text = Keys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .call_visit_id->text = Keys\r\n Void = send_event( @window:'.CALL_VISIT_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'Call Visit', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Call Visit', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Call Visit', Edit$ ) else\r\n security_err_msg( 'Call Visit', Edit$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/CAR..json b/LSL2/OIEVENT/CREATE/CAR..json new file mode 100644 index 0000000..bc9068c --- /dev/null +++ b/LSL2/OIEVENT/CREATE/CAR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 ) \r\n\t .car_ref_id->text = Keys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .car_ref_id->text = Keys\r\n Void = send_event( @window:'.CAR_REF_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'CAR', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'CAR', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'CAR', Edit$ ) else\r\n security_err_msg( 'CAR', Edit$ )\r\nend\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/CAR2..json b/LSL2/OIEVENT/CREATE/CAR2..json new file mode 100644 index 0000000..96654c5 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/CAR2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data\r\ndeclare function set_property, fieldcount\r\n\r\n* Info will be sent with \"LotInfo\":char(244):\"All other Edit fields\":char(244):\"Prod Ret radio button\"\r\nLotInfo = field( CreateParam, char(244), 1 )\r\nEditControlInfo = field( CreateParam, char(244), 2 )\r\nHoldEditControlInfo = EditControlInfo\r\nProdRet = field( EditControlInfo, @fm, 1, 1)\r\n.prod_ret->value = ProdRet\r\nEditControlInfo = field( EditControlInfo, @fm, 2, 999)\r\n.special_inst->text = field( CreateParam, char(244), 3 )\r\n.eng_comments->text = field( CreateParam, char(244), 4 )\r\n.ret_lot_info->array = LotInfo\r\n* now load the controls\r\nEditControls = 'WAF_REC_DATE/WAF_GIVEN_TO/WAF_GIVEN_DATE/ENG_SIGNATURE'\r\nswap '/' with @rm:@window:'.' in EditControls\r\nEditControls = @window:'.':EditControls\r\nVoid = set_property( @window, '@EditControls', EditControls )\r\n* ok\r\nconvert @fm to @rm in EditControlInfo\r\nVoid = set_property( EditControls, 'TEXT', EditControlInfo )\r\n.eng_signature_name->text = oconv( HoldEditControlInfo<5>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n* above HoldEditControlInfo<5> is the FIFTH value passed which is eng_signature if this\r\n* should change then above code must change\r\nset_list_box_data( @window )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/CAR_QUERY..json b/LSL2/OIEVENT/CREATE/CAR_QUERY..json new file mode 100644 index 0000000..bc09d0a --- /dev/null +++ b/LSL2/OIEVENT/CREATE/CAR_QUERY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data\r\n\r\nset_list_box_data( @window )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/CAR_RPT1..json b/LSL2/OIEVENT/CREATE/CAR_RPT1..json new file mode 100644 index 0000000..bac06a3 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/CAR_RPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'CAR', Print$ ) else\r\n security_err_msg( 'CAR', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/CAR_SRPT1..json b/LSL2/OIEVENT/CREATE/CAR_SRPT1..json new file mode 100644 index 0000000..bac06a3 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/CAR_SRPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'CAR', Print$ ) else\r\n security_err_msg( 'CAR', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/CDM_LOG..json b/LSL2/OIEVENT/CREATE/CDM_LOG..json new file mode 100644 index 0000000..d6b6b3d --- /dev/null +++ b/LSL2/OIEVENT/CREATE/CDM_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .log_no->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .log_no->text = Keys\r\n Void = send_event( @window:'.LOG_NO', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'CDM Log', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'CDM Log', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'CDM Log', Edit$ ) else\r\n security_err_msg( 'CDM Log', Edit$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/CDM_LOG_QUERY..json b/LSL2/OIEVENT/CREATE/CDM_LOG_QUERY..json new file mode 100644 index 0000000..5e15e0f --- /dev/null +++ b/LSL2/OIEVENT/CREATE/CDM_LOG_QUERY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data\r\n\r\nset_list_box_data(@window)\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/COC..json b/LSL2/OIEVENT/CREATE/COC..json new file mode 100644 index 0000000..4170a32 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/COC..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n\t * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys ) \r\n\t Void = set_property( @window, '@NoRead', 1 ) \r\n\t .coc_no->text = Keys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .coc_no->text = keys\r\n Void = send_event( @window:'.COC_NO', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'COC', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'COC', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'COC', Edit$ ) else\r\n security_err_msg( 'COC', Edit$ )\r\nend\r\nVoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/COC_QUERY..json b/LSL2/OIEVENT/CREATE/COC_QUERY..json new file mode 100644 index 0000000..e2259b9 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/COC_QUERY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE SUBROUTINE Btree.Extract,ErrMsg, Set_Property\r\nDECLARE FUNCTION Get_Status, Get_Property\r\n\r\n$INSERT COMPANY_EQUATES\r\n\r\nEQU COL$CUST_NO\t\tTO 1\r\nEQU COL$CUST_NAME\tTO 2\r\n\r\n\t\r\nParent = Get_Property(@WINDOW,'PARENT')\r\n\r\nIF Parent = 'DIALOG_FTP_QUEUE' THEN\r\n\r\n\tSearchString = 'FTP_QUEUE':@VM:'#'\r\n\r\n\tOPEN 'DICT.COMPANY' TO DictVar ELSE\r\n\t\tErrMsg('Unable to open DICT.COMPANY for Btree.Extract')\r\n\t\tRETURN\r\n\tEND\r\n\r\n\tBtree.Extract(SearchString,'COMPANY',DictVar,CustNos,'','')\r\n\r\n\tIF Get_Status(errCode) THEN \r\n\t\tErrMsg(errCode)\r\n\t\tRETURN\r\n\tEND\r\n\r\n\tCustArray = ''\t\t;* Array of customers with the FTP_QUEUE flag set on\r\n\r\n\tCustCnt = COUNT(CustNos,@VM) + (CustNos NE '')\r\n\r\n\tFOR I = 1 TO CustCnt\r\n\t\tCustNo\t\t= CustNos<1,I>\r\n\t\tCustRec\t\t= XLATE('COMPANY',CustNo,'','X')\r\n\t\tCustName\t= CustRec\r\n\t\tIF CustRec NE '' THEN\r\n\t\t\tCustName := ', ':CustRec\r\n\t\tEND\r\n\t\t\r\n\t\tCustArray\t= CustNo\r\n\t\tCustArray\t= CustName\r\n\r\n\tNEXT I\r\n\t\r\n\tLOOP\r\n\r\n\tUNTIL I > 21\r\n\t\tCustArray\t= ''\r\n\t\tCustArray\t= ''\r\n\t\tI+= 1\r\n\tREPEAT\r\n\r\n\tSet_Property(@WINDOW:'.CUSTOMER_INFO','DEFPROP',CustArray)\r\nEND\r\n\r\n\r\n\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/COC_RPT1..json b/LSL2/OIEVENT/CREATE/COC_RPT1..json new file mode 100644 index 0000000..1b826bb --- /dev/null +++ b/LSL2/OIEVENT/CREATE/COC_RPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'COC', Print$ ) else\r\n security_err_msg( 'COC', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/COC_SRPT1..json b/LSL2/OIEVENT/CREATE/COC_SRPT1..json new file mode 100644 index 0000000..1b826bb --- /dev/null +++ b/LSL2/OIEVENT/CREATE/COC_SRPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'COC', Print$ ) else\r\n security_err_msg( 'COC', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/COMPANY..json b/LSL2/OIEVENT/CREATE/COMPANY..json new file mode 100644 index 0000000..93e6153 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/COMPANY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data, security_err_msg, rlist\r\ndeclare function security_check, msg, end_window, company_comm, send_event\r\ndeclare function center_window, fieldcount\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n\t * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys ) \r\n\t Void = set_property( @window, '@NoRead', 1 ) \r\n\t .co_no->text = Keys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .co_no->text = Keys\r\n Void = send_event( @window:'.CO_NO', 'LOSTFOCUS', '' )\r\n end \r\nend \r\nif security_check( 'Company', Read$ ) then\r\n set_list_box_data( CtrlEntId )\r\nend else\r\n security_err_msg( 'Company', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Company', Edit$ ) else\r\n security_err_msg( 'Company', Edit$ )\r\nend\r\nVoid = company_comm( 'SET_FIELDS' )\r\nVoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/COMPANY_QUERY..json b/LSL2/OIEVENT/CREATE/COMPANY_QUERY..json new file mode 100644 index 0000000..e345389 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/COMPANY_QUERY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data\r\n\r\nset_list_box_data( @window )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/CUST_ACTIVITY_RPT1..json b/LSL2/OIEVENT/CREATE/CUST_ACTIVITY_RPT1..json new file mode 100644 index 0000000..4f44170 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/CUST_ACTIVITY_RPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Quote', Print$ ) else\r\n security_err_msg( 'Quote', Print$ )\r\n end_dialog( @window, '' )\r\nend\r\nif security_check( 'Invoice', Print$ ) else\r\n security_err_msg( 'Invoice', Print$ )\r\n end_dialog( @window, '' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/CUST_INQUIRY..json b/LSL2/OIEVENT/CREATE/CUST_INQUIRY..json new file mode 100644 index 0000000..94d72be --- /dev/null +++ b/LSL2/OIEVENT/CREATE/CUST_INQUIRY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 ) \r\n\t .cust_inquiry_id->text = Keys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .cust_inquiry_id->text = Keys\r\n Void = send_event( @window:'.CUST_INQUIRY_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'Cust Inquiry', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Cust Inquiry', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Cust Inquiry', Edit$ ) else\r\n security_err_msg( 'Cust Inquiry', Edit$ )\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/CUST_INQUIRY2..json b/LSL2/OIEVENT/CREATE/CUST_INQUIRY2..json new file mode 100644 index 0000000..079ad60 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/CUST_INQUIRY2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data\r\ndeclare function set_property, fieldcount\r\n$insert quote_spec_equ\r\n\r\nControlInfo = field( CreateParam, char(244), 1 )\r\nTitle = field( CreateParam, char(244), 2 )\r\nVoid = set_property( @window, 'TEXT', Title )\r\n\r\n* now load the controls\r\n* extra S on units and extra E on thickmeasure and resmeasure\r\n* so set_list_box_data does not override choices\r\n* the choices are set in the control itself\r\nControls = 'THICK_MIN/THICK_TAR/THICK_MAX/THICK_UNITSS/THICK_UNIF/THICKMEASUREE/'\r\nControls:= 'RES_MIN/RES_TAR/RES_MAX/RES_UNITSS/RES_UNIF/RESMEASUREE/'\r\nControls:= 'EPIDOPANT/THICK_PROD_WAFER/RES_PROD_WAFER'\r\nswap '/' with @rm:@window:'.' in Controls\r\nControls = @window:'.':Controls\r\nVoid = set_property( @window, '@Controls', Controls )\r\nCcnt = fieldcount( Controls, @rm )\r\n* ok\r\ndebug\r\nControlInfo = field( ControlInfo, @vm, 1, Ccnt ) ;* don't want the last blank value\r\nconvert @vm to @rm in ControlInfo\r\nVoid = set_property( Controls, 'TEXT', ControlInfo )\r\nset_list_box_data( @window )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/DESIG_ERR_GRP..json b/LSL2/OIEVENT/CREATE/DESIG_ERR_GRP..json new file mode 100644 index 0000000..c456004 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/DESIG_ERR_GRP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .desig_id->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .desig_id->text = Keys\r\n Void = send_event( @window:'.DESIG_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'Desig Err Grp', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Desig Err Grp', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Desig Err Grp', Edit$ ) else\r\n security_err_msg( 'Desig Err Grp', Edit$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/DIALOG_SHIP_PRINT_OPTS..json b/LSL2/OIEVENT/CREATE/DIALOG_SHIP_PRINT_OPTS..json new file mode 100644 index 0000000..7376748 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/DIALOG_SHIP_PRINT_OPTS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function center_window, Get_Property\r\nDECLARE SUBROUTINE Set_Property\r\n\r\n$INSERT CUST_EPI_PART_EQUATES\r\n$insert logical\r\n\r\nIF INDEX( CreateParam, 'CENTER', 1 ) THEN\r\n void = Center_Window( @window )\r\nEND ELSE\r\n Set_Property( @window, 'VISIBLE', 1 )\r\nEND\r\n\r\nCustEpiPartKey = CreateParam\r\n\r\nCustEpiPartRec = XLATE('CUST_EPI_PART',CustEpiPartKey,'','X')\r\n\r\n\r\nCustRDS = CustEpiPartRec\r\nCOCFront = CustEpiPartRec\r\nCOCBack = CustEpiPartRec\r\nNCRRej = CustEpiPartRec\r\nCOCFrontCopies = CustEpiPartRec\r\nCOCBackCopies = CustEpiPartRec\r\n\r\nIF CustRDS THEN\r\n\tSet_Property(@WINDOW:'.CUST_RDS','CHECK',TRUE$)\r\nEND\r\n\r\nIF COCBack THEN\r\n\tSet_Property(@WINDOW:'.BACK_PAGE','CHECK',TRUE$)\r\n\tSet_Property(@WINDOW:'.BACK_PAGE_COPY','TEXT',COCBackCopies)\r\nEND ELSE\r\n\tSet_Property(@WINDOW:'.BACK_PAGE','CHECK',FALSE$)\r\n\tSet_Property(@WINDOW:'.BACK_PAGE_COPY','TEXT','')\r\nEND\r\n\r\nIF COCFront THEN\r\n\tSet_Property(@WINDOW:'.FRONT_PAGE','CHECK',TRUE$)\r\n\tSet_Property(@WINDOW:'.FRONT_PAGE_COPY','TEXT',COCFrontCopies)\r\nEND ELSE\r\n\tSet_Property(@WINDOW:'.FRONT_PAGE','CHECK',FALSE$)\r\n\tSet_Property(@WINDOW:'.FRONT_PAGE_COPY','TEXT','')\r\nEND\r\n\r\nSet_Property(@WINDOW:'.NCR_REJ_CNT','TEXT',NCRRej)\r\n\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/ENGINEER_RPT1..json b/LSL2/OIEVENT/CREATE/ENGINEER_RPT1..json new file mode 100644 index 0000000..65e5ac9 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/ENGINEER_RPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function memberof, msg, center_window\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif memberof( @user4, 'MASTER' ) or memberof( @user4, 'ENGINEERING' ) or memberof( @user4, 'SUPERVISOR' ) else\r\n MsgInfo = ''\r\n MsgInfo = 'You do not have proper security to run the engineering report.'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/EXPORT3..json b/LSL2/OIEVENT/CREATE/EXPORT3..json new file mode 100644 index 0000000..6295e60 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/EXPORT3..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, fieldcount, center_window, send_event, post_event\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\nTemplatePassed = field( CreateParam, '*', 1 )\r\nSystemGenerated = false$\r\nif index( CreateParam, 'NOEXCEL', 1 ) then\r\n Void = set_property( @window, '@NoExcel', 1 )\r\nend else\r\n Void = set_property( @window, '@NoExcel', 0 )\r\nend\r\nif index( CreateParam, 'SYSTEM_GENERATED', 1 ) then\r\n\t* DO NOT MAKE THE WINDOW VISIBLE CAUSE WE ARE CALLING BEHIND THE SCENES\r\n\t* TO DO AN EXPORT I FUCKING HOPE\r\n\tSystemGenerated = true$\r\nend else\r\n\tif index( CreateParam, 'CENTER', 1 ) then\r\n\t void = center_window( @window )\r\n\tend else\r\n\t Void = set_property( @window, 'VISIBLE', 1 )\r\n\tend\r\nend\r\nTToVal = xlate( 'LISTBOX_CONFIG', 'EXPORTTABLENAMES', 1, 'X' )\r\nTToValOut = oconv( TToVal, '[TABLENAME_CONV]' )\r\nTcnt = fieldcount( TToVal, @vm )\r\nTList = ''\r\nfor i = 1 to Tcnt\r\n if security_check( TToValOut<1,i>, Read$ ) then\r\n TList<-1> = TToVal<1,i>\r\n end\r\nnext i\r\nif TList then\r\n IF @USER4 = 'BRYCE_M' THEN\r\n TLIST<-1> = 'NOTES'\r\n TLIST<-1> = 'MODS'\r\n END\r\n .exporttablenames->list = TList \r\nend\r\nif SystemGenerated then\r\n\tVoid = set_property( @window, '@SystemGenerated', true$ )\r\n\tVoid = set_property( @window, '@CurCustomer', field( CreateParam, '*', 3 ) )\r\n\tTemplateToUse = field( CreateParam, '*', 2 )\r\n\t* THIS WILL BE THE ID TO THE TABLE, NO ERROR CHECKING CAUSE THE CODE WILL\r\n\t* BE THE ONLY CALLING PIECE\r\n\t.export_name->text = TemplateToUse\r\n\tVoid = send_event( @window:'.EXPORT_NAME', 'LOSTFOCUS' )\r\n\tVoid = send_event( @window:'.BUTTON_1', 'CLICK' )\r\nend\r\nif TemplatePassed then\r\n .export_name->text = TemplatePassed\r\n Void = send_event( @window:'.EXPORT_NAME', 'LOSTFOCUS' )\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/EXPORTS..json b/LSL2/OIEVENT/CREATE/EXPORTS..json new file mode 100644 index 0000000..976ec64 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/EXPORTS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, fieldcount, center_window, send_event, post_event\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\nTemplatePassed = field( CreateParam, '*', 1 )\r\nSystemGenerated = false$\r\nif index( CreateParam, 'NOEXCEL', 1 ) then\r\n Void = set_property( @window, '@NoExcel', 1 )\r\nend else\r\n Void = set_property( @window, '@NoExcel', 0 )\r\nend\r\n\r\nif index( CreateParam, 'SYSTEM_GENERATED', 1 ) then\r\n\tSystemGenerated = true$\r\nend else\r\n\tif index( CreateParam, 'CENTER', 1 ) then\r\n\t void = center_window( @window )\r\n\tend else\r\n\t Void = set_property( @window, 'VISIBLE', 1 )\r\n\tend\r\nend\r\n\r\nTToVal = xlate( 'LISTBOX_CONFIG', 'EXPORTTABLENAMES', 1, 'X' )\r\nTToValOut = oconv( TToVal, '[TABLENAME_CONV]' )\r\nTcnt = fieldcount( TToVal, @vm )\r\nTList = ''\r\nfor i = 1 to Tcnt\r\n if security_check( TToValOut<1,i>, Read$ ) then\r\n TList<-1> = TToVal<1,i>\r\n end\r\nnext i\r\nif TList then\r\n IF @USER4 = 'BRYCE_M' THEN\r\n TLIST<-1> = 'NOTES'\r\n TLIST<-1> = 'MODS'\r\n END\r\n .exporttablenames->list = TList \r\nend\r\nif SystemGenerated then\r\n\tVoid = set_property( @window, '@SystemGenerated', true$ )\r\n\tVoid = set_property( @window, '@CurCustomer', field( CreateParam, '*', 3 ) )\r\n\tTemplateToUse = field( CreateParam, '*', 2 )\r\n\t* THIS WILL BE THE ID TO THE TABLE, NO ERROR CHECKING CAUSE THE CODE WILL\r\n\t* BE THE ONLY CALLING PIECE\r\n\t.export_name->text = TemplateToUse\r\n\tVoid = send_event( @window:'.EXPORT_NAME', 'LOSTFOCUS' )\r\n\tVoid = send_event( @window:'.BUTTON_1', 'CLICK' )\r\nend else\r\n\tif TemplatePassed then\r\n\t .export_name->text = TemplatePassed\r\n\t Void = send_event( @window:'.EXPORT_NAME', 'LOSTFOCUS' )\r\n\tend\r\nEND\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/EXPORTS2..json b/LSL2/OIEVENT/CREATE/EXPORTS2..json new file mode 100644 index 0000000..94a79b6 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/EXPORTS2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "if CreateParam then\r\n Column = field( CreateParam, '*', 1 )\r\n Rest = field( CreateParam, '*', 2 )\r\n .column->text = Column\r\n .operator->text = field( Rest, ' ', 1 )\r\n .compval->text = field( Rest, ' ', 2, 999 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/GAN_PROD_SPEC..json b/LSL2/OIEVENT/CREATE/GAN_PROD_SPEC..json new file mode 100644 index 0000000..b7eff1e --- /dev/null +++ b/LSL2/OIEVENT/CREATE/GAN_PROD_SPEC..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg, sendmessage, utility, obj_AppWindow\r\nDECLARE SUBROUTINE Set_Property, Comm_Prod_Spec, GaN_Prod_Spec\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, getwindow, fieldcount, send_message\r\n\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert logical\r\n$insert PS_Equates\r\n\r\nGAN_PROD_SPEC('Create')\r\n\r\nif index( CreateParam,'Choosing', 1 ) then\r\n PrevWindow = field( CreateParam, '*', 3 )\r\n Void = set_property( @window, '@PrevWindow', PrevWindow )\r\n .ret_psn_button->visible = 1\r\n Ttext = .ret_psn_button->text\r\n Ttext := ' ':PrevWindow\r\n .ret_psn_button->text = Ttext\r\nend\r\n*\r\nCustIdToStamp = field( CreateParam, '*', 4, 1 ) ;* will be set when called from quote\r\n ;* with option goto quote window\r\n ;* this is to stamp the cust id\r\n ;* it will be checked for in the gotfocus of custid\r\nVoid = set_property( @window, '@CustIdToStamp', CustIdToStamp )\r\n*\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 ) \r\n\t .prod_spec_id->text = Keys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .prod_spec_id->text = Keys\r\n Void = send_event( @window:'.PROD_SPEC_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nSurfScanRecipes = XLATE('LISTBOX_CONFIG','SURFSCAN_RECIPES','','X')\r\n\r\nCONVERT @VM TO @FM IN SurfScanRecipes\r\n\r\nCtrls = @WINDOW:'.PRE_SURFSCAN_RECIPE':@RM\t\t; Props = 'LIST':@RM\t\t; Vals = SurfScanRecipes:@RM\r\nCtrls := @WINDOW:'.POST_SURFSCAN_RECIPE':@RM\t; Props := 'LIST':@RM\t\t; Vals := SurfScanRecipes:@RM\r\nCtrls := @WINDOW:'.CLEAN_SURFSCAN_RECIPE'\t\t; Props := 'LIST'\t\t\t; Vals := SurfScanRecipes\r\n\r\nSet_Property(Ctrls,Props,Vals)\r\n\r\n\r\nif security_check( 'Prod Spec', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Prod Spec', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Prod Spec', Edit$ ) else\r\n security_err_msg( 'Prod Spec', Edit$ )\r\nend\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/HOTH2O2_LOG..json b/LSL2/OIEVENT/CREATE/HOTH2O2_LOG..json new file mode 100644 index 0000000..2a5dff1 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/HOTH2O2_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .log_no->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .log_no->text = Keys\r\n Void = send_event( @window:'.LOG_NO', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'Hot H2O2 Log', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Hot H2O2 Log', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Hot H2O2 Log', Edit$ ) else\r\n security_err_msg( 'Hot H2O2 Log', Edit$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/HOTH2O2_LOG_QUERY..json b/LSL2/OIEVENT/CREATE/HOTH2O2_LOG_QUERY..json new file mode 100644 index 0000000..5e15e0f --- /dev/null +++ b/LSL2/OIEVENT/CREATE/HOTH2O2_LOG_QUERY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data\r\n\r\nset_list_box_data(@window)\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/ICAR_NONCONF..json b/LSL2/OIEVENT/CREATE/ICAR_NONCONF..json new file mode 100644 index 0000000..29fac26 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/ICAR_NONCONF..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, send_event, admin_user, center_window, security_check\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert msg_equates\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\n* IF THE USER HAS WRITE WRITES TO THE ICAR TABLE THEN ALLOW THEM TO USE\r\n* THE ICAR NONCONFORMANCE SETUP\r\nif security_check( 'ICAR', Write$ ) then\r\n\topen 'CONFIG' to ConfigTable else\r\n\t Void = msg( '', 'Unable to open CONFIG table' )\r\n\t end_dialog( @window, '' )\r\n\t return 0\r\n\tend\r\n\tlock ConfigTable, 'ICAR_NONCONFORMANCE' else\r\n\t Void = msg( '', 'ICAR_NONCONFORMANCE is in use somewhere else...' )\r\n\t end_dialog( @window, '' )\r\n\t return 0\r\n\tend\r\n\tread NonConfRec from ConfigTable, 'ICAR_NONCONFORMANCE' then\r\n\t .nonconf->array = NonConfRec\r\n\tend\r\nend else\r\n\tsecurity_err_msg( 'ICAR', Write$ )\t\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/INVOICE..json b/LSL2/OIEVENT/CREATE/INVOICE..json new file mode 100644 index 0000000..1cbc74e --- /dev/null +++ b/LSL2/OIEVENT/CREATE/INVOICE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check, rowexists\r\ndeclare function center_window, fieldcount, post_event, msg, next_mesa_invoice_key\r\n$insert logical\r\n$insert company_equ\r\n$insert order_equ\r\n$insert invoice_equ\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n$insert quote_equ\r\n$insert quote_spec_equ\r\n$insert prod_spec_equ\r\nequ CrLf$ to char(13):char(10)\r\nequ PSN$ to 15\r\n\r\nReadOk = true$\r\nVoid = set_property( @window, '@CalledFromOrder', '' )\r\nVoid = set_property( @window, '@AutoCreate', 0 )\r\nif index( CreateParam, 'CENTER', 1 ) or index( CreateParam, 'CREATE', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nVoid = set_property( @window, '@OrigInvoiceDetail', '' )\r\nVoid = set_property( @window, '@RecToUse', '' )\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n\t * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys ) \r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .invoice_no->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .invoice_no->text = Keys\r\n Void = send_event( @window:'.INVOICE_NO', 'LOSTFOCUS', '' )\r\n end\r\n gosub CheckRead\r\n if ReadOk else\r\n Void = end_window( @window, '' )\r\n return 0\r\n end\r\nend else\r\n gosub CheckRead\r\n if ReadOk then\r\n\t if field( CreateParam, '*', 2 ) = 'CREATE' then\r\n\t * called from invoice load the information\r\n\t Void = set_property( @window, '@CalledFromOrder', 1 )\r\n\t OrderKey = field( CreateParam, '*', 3 )\r\n\t LineItems = field( CreateParam, '*', 4 )\r\n\t \tShipNo = field( CreateParam, '*',5)\t\t\t;* Added 2/28/2005 JCH\r\n \r\n Void = send_event( @window:'.INVOICE_NO', 'GOTFOCUS' )\r\n Void = set_property( @window, '@AutoCreate', 1 )\r\n Void = send_event( @window:'.INVOICE_NO', 'LOSTFOCUS' )\r\n Void = set_property( @window, '@AutoCreate', 0 )\r\n\t \t \r\n\t \r\n\t void = post_event( @window:'.SHIP_DATE', 'GOTFOCUS', '' )\r\n\t void = set_property( @window:'.SHIP_DATE', 'FOCUS', 1 )\r\n\t OrderRec = xlate( 'ORDER', OrderKey, '', 'X' )\r\n\t Controls = 'BILL_TO_ADDR/SHIP_TO_ADDR/BILL_TO_COMPANY/SHIP_TO_COMPANY/'\r\n\t Controls:= 'ORDER_NO/PO/CUST_NO/BILL_TO_ATTN/'\r\n\t Controls:= 'BILL_TO_CITY/BILL_TO_STATE/BILL_TO_ZIP/SHIP_TO_ATTN/'\r\n\t Controls:= 'SHIP_TO_CITY/SHIP_TO_STATE/SHIP_TO_ZIP/'\r\n\t Controls:= 'SHIPPERINFO/ACCOUNT_NO/CUST_INVOICE_NOTES/TERMS'\r\n\t swap '/' with @rm:@window:'.' in Controls\r\n\t Controls = @window:'.':Controls\r\n\t BillToAddr = OrderRec\r\n\t ShipToAddr = OrderRec\r\n\t if BillToAddr else\r\n\t BillToAddr = @vm\r\n\t end\r\n\t if ShipToAddr else\r\n\t ShipToAddr = @vm\r\n\t end\r\n\t InvNotes = OrderRec\r\n\t swap @tm with CrLf$ in InvNotes\r\n\t ValsToLoad = BillToAddr:@rm:ShipToAddr:@rm\r\n\t ValsToLoad:= OrderRec:@rm\r\n\t ValsToLoad:= OrderRec:@rm\r\n\t ValsToLoad:= OrderKey:@rm:OrderRec:@rm:OrderRec:@rm\r\n\t ValsToLoad:= OrderRec:@rm\r\n\t ValsToLoad:= OrderRec:@rm:OrderRec:@rm\r\n\t ValsToLoad:= OrderRec:@rm:OrderRec:@rm\r\n\t ValsToLoad:= OrderRec:@rm\r\n\t ValsToLoad:= OrderRec:@rm:OrderRec:@rm\r\n\t ValsToLoad:= OrderRec:@rm:OrderRec:@rm\r\n\t ValsToLoad:= InvNotes:@rm:OrderRec\r\n\t LCnt = fieldcount( LineItems, @vm )\r\n\t ArrayVar = ''\r\n\t for i = 1 to LCnt\r\n\t ThisRowNum = LineItems<1,i>\r\n\t ArrayVar<1,i> = ThisRowNum\r\n\t ArrayVar<2,i> = OrderRec\r\n\t ArrayVar<3,i> = OrderRec \r\n\t ArrayVar<4,i> = OrderRec \r\n\t ArrayVar<5,i> = OrderRec \r\n\t ArrayVar<6,i> = OrderRec \r\n\t ArrayVar<7,i> = '' ;* gl account leave null \r\n\t ArrayVar<8,i> = oconv( OrderRec, 'MD2,$' )\r\n\t ArrayVar<9,i> = oconv( OrderRec, 'MD2,$' ) \r\n\t ArrayVar<10,i> = OrderRec \r\n\t ArrayVar<13,i> = oconv( OrderRec, 'MD2,$' ) \r\n\t ArrayVar<15,i> = OrderRec\r\n\t ArrayVar<16,i> = OrderRec\r\n\t next i\r\n\t RecToUse = ''\r\n\t RecToUse = iconv( ArrayVar<8>, 'MD2,$' )\r\n\t RecToUse = iconv( ArrayVar<9>, 'MD2,$' )\r\n\t RecToUse = ArrayVar<10>\r\n\t RecToUse = iconv( ArrayVar<13>, 'MD2,$' )\r\n\t RecToUse\t\t = ShipNo\t\t\t\t\t\t\t\t;* 2/28/2005 JCH\r\n\t RecToUse = OrderKey\r\n\t RecToUse = ArrayVar<1>\r\n\t Void = set_property( @window, 'RECORD', RecToUse )\r\n\t Void = set_property( Controls, 'ARRAY':@rm:'ARRAY':@rm:'TEXT', ValsToLoad )\r\n\t .invoice_detail->array = ArrayVar\r\n\t Void = set_property( @window, '@OrigInvoiceDetail', ArrayVar )\r\n\t Void = send_event( @window:'.INVOICE_DETAIL', 'CALCULATE', 14 ) \r\n\t Void = send_event( @window:'.INVOICE_DETAIL', 'CALCULATE', 15 ) \t \r\n\t Void = send_event( @window:'.INVOICE_DETAIL', 'CALCULATE', 16 ) \t \r\n\t Void = send_event( @window:'.TOTAL_SHIP_QTY', 'CALCULATE', 1 )\r\n\t Void = send_event( @window:'.TOTAL_SHIP_AMT', 'CALCULATE', 1 )\t \r\n\t Void = send_event( @window:'.INVOICE_AMOUNT', 'CALCULATE', 1 )\t\r\n\t Void = send_event( @window:'.BALANCE', 'CALCULATE', 1 )\t\t \t \r\n\t * now load the symbollics\r\n\t Tcust = .cust_no->text\r\n\t .cust_name->text = xlate( 'COMPANY', Tcust, company_co_name$, 'X' )\r\n\t .cust_division->text = xlate( 'COMPANY', Tcust, company_division$, 'X' )\r\n\t\t\tSubInfo = xlate( 'PROD_SPEC', ArrayVar, prod_spec_spec_substrate$, 'X' )\r\n .waf_size->text = SubInfo<1,QSSubWafersize$>\r\n * NOW DETERMINE IF THE INVOICE CONTAINS SILICON GERMAINE AND IF SO GIVE A MESSAGE\r\n AllProducts = xlate( 'PROD_SPEC', OrderRec, 'SUB_PRODUCT', 'X' )\r\n if index( AllProducts, 'SiGe', 1 ) then\r\n MsgInfo = ''\r\n MsgInfo = 'Silicon Germane is contained in one or more of the invoice lines...Please use the proper GL Codes.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo ) \r\n end\r\n\t end\r\n\tend else\r\n\t Void = end_window( @window, '' )\r\n\t return 0\r\n end\r\nend\r\nif security_check( 'Invoice', Edit$ ) else\r\n security_err_msg( 'Invoice', Edit$ )\r\nend\r\nVoid = set_property( @window, '@NoRead', 0 )\r\nVoid = set_property( @window, '@OrigInvoiceDetail', '' )\r\nRETURN 0\r\n\r\n*===========================================================================*\r\nCheckRead:\r\n\tif security_check( 'Invoice', Read$ ) then\r\n\t set_list_box_data( @window )\r\n\tend else\r\n\t security_err_msg( 'Invoice', Read$ )\r\n\t ReadOk = false$\r\n\tend\r\nreturn\r\n\r\n*===========================================================================*" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/INVOICE_BANK_NOTES..json b/LSL2/OIEVENT/CREATE/INVOICE_BANK_NOTES..json new file mode 100644 index 0000000..1441faf --- /dev/null +++ b/LSL2/OIEVENT/CREATE/INVOICE_BANK_NOTES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function center_window, msg, send_event\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) or index( CreateParam, 'CREATE', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nopen 'CONFIG' to ConfigTable else\r\n msg( '', 'Unable to open config...' )\r\n return 0\r\nend\r\nlock ConfigTable, 'INVOICE_BANK_NOTES' else\r\n MsgInfo = ''\r\n MsgInfo = 'Invoice Banking Notes is already in use elsewhere...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n Void = send_event( @window, 'CLOSE' )\r\n return 0\r\nend\r\n.cust_invoice_notes->text = xlate( 'CONFIG', 'INVOICE_BANK_NOTES', '', 'X' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/INVOICE_KEY_VIEW..json b/LSL2/OIEVENT/CREATE/INVOICE_KEY_VIEW..json new file mode 100644 index 0000000..3461e8a --- /dev/null +++ b/LSL2/OIEVENT/CREATE/INVOICE_KEY_VIEW..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".tempe->text = xlate( 'DICT.INVOICE', '%SK%', 1, 'X' )\r\n.mesa->text = xlate( 'DICT.INVOICE', '%MESASK%', 1, 'X' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/INVOICE_RPT1..json b/LSL2/OIEVENT/CREATE/INVOICE_RPT1..json new file mode 100644 index 0000000..0c5a3d2 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/INVOICE_RPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Invoice', Print$ ) else\r\n security_err_msg( 'Invoice', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/INVOICE_RPT2..json b/LSL2/OIEVENT/CREATE/INVOICE_RPT2..json new file mode 100644 index 0000000..8ecf7e5 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/INVOICE_RPT2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Invoice', Print$ ) else\r\n security_err_msg( 'Invoice', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/INVOICE_RPT3..json b/LSL2/OIEVENT/CREATE/INVOICE_RPT3..json new file mode 100644 index 0000000..8ecf7e5 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/INVOICE_RPT3..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Invoice', Print$ ) else\r\n security_err_msg( 'Invoice', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/INVOICE_RPT4..json b/LSL2/OIEVENT/CREATE/INVOICE_RPT4..json new file mode 100644 index 0000000..8ecf7e5 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/INVOICE_RPT4..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Invoice', Print$ ) else\r\n security_err_msg( 'Invoice', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/INVOICE_RPT5..json b/LSL2/OIEVENT/CREATE/INVOICE_RPT5..json new file mode 100644 index 0000000..8ecf7e5 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/INVOICE_RPT5..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Invoice', Print$ ) else\r\n security_err_msg( 'Invoice', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/INVOICE_RPT6..json b/LSL2/OIEVENT/CREATE/INVOICE_RPT6..json new file mode 100644 index 0000000..5bd92fd --- /dev/null +++ b/LSL2/OIEVENT/CREATE/INVOICE_RPT6..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\n* THIS WINDOW WAS INITIALLY A REPORT FOR THE INVOICE TABLE,\r\n* BUT IT IS NOW A REPORT FOR THE COC TABLE\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Invoice', Print$ ) else\r\n security_err_msg( 'Invoice', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/INVOICE_SRPT1..json b/LSL2/OIEVENT/CREATE/INVOICE_SRPT1..json new file mode 100644 index 0000000..0c5a3d2 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/INVOICE_SRPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Invoice', Print$ ) else\r\n security_err_msg( 'Invoice', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/INVOICE_SRPT2..json b/LSL2/OIEVENT/CREATE/INVOICE_SRPT2..json new file mode 100644 index 0000000..0c5a3d2 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/INVOICE_SRPT2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Invoice', Print$ ) else\r\n security_err_msg( 'Invoice', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/INVOICE_SRPT3..json b/LSL2/OIEVENT/CREATE/INVOICE_SRPT3..json new file mode 100644 index 0000000..0c5a3d2 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/INVOICE_SRPT3..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Invoice', Print$ ) else\r\n security_err_msg( 'Invoice', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/INVOICE_SRPT4..json b/LSL2/OIEVENT/CREATE/INVOICE_SRPT4..json new file mode 100644 index 0000000..0c5a3d2 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/INVOICE_SRPT4..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Invoice', Print$ ) else\r\n security_err_msg( 'Invoice', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/INVOICE_SRPT5..json b/LSL2/OIEVENT/CREATE/INVOICE_SRPT5..json new file mode 100644 index 0000000..8ecf7e5 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/INVOICE_SRPT5..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Invoice', Print$ ) else\r\n security_err_msg( 'Invoice', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/LEAK_LAMP..json b/LSL2/OIEVENT/CREATE/LEAK_LAMP..json new file mode 100644 index 0000000..9f5eb12 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/LEAK_LAMP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function memberof, msg, center_window\r\ndeclare subroutine end_dialog\r\n$insert logical\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\n****wo mast sched equates***\r\nequ Days$ to 1\r\nequ Month$ to 2\r\nequ ReactorCnt$ to 3\r\n\r\nif memberof( @user4, 'MAINTENANCE' ) or @USER4 = 'BRYCE_M' then\r\n\tMastSchedRec = xlate( 'CONFIG', 'WO_MAST_SCHED', '', 'X' )\r\n\tNumReactors = MastSchedRec\r\n\tList = ''\r\n\tfor i = 20 to NumReactors\r\n\t List<-1> = 'Reactor':i\r\n\tnext i\r\n\t.reactors->list = List\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must be a maintenance technician to access this!'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end_dialog( @window, '' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/LISTBOX_CONFIG..json b/LSL2/OIEVENT/CREATE/LISTBOX_CONFIG..json new file mode 100644 index 0000000..0854442 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/LISTBOX_CONFIG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\ndeclare function msg, send_event, admin_user, center_window\r\n$insert msg_equates\r\n$insert listbox_config_equ\r\n$insert quote_sigs_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif admin_user( @user4 ) OR @USERNAME = 'BRYCE_BARB' then\r\n * OK THEY ARE AN ADMINISTRATOR, SO ALSO SHOW THE MANUF_CHECK BOX\r\n .MANUF_CHECK->VISIBLE = 1\r\nend else\r\n ProdMgr = xlate( 'CONFIG', 'QUOTE_SIGS', ProdMgr$, 'X' )\r\n if ( @user4 = ProdMgr ) or ( @user4 = 'PAUL_W' ) or ( @user4 = 'PETER_Z' ) then\r\n * IT IS THE MFG MGR - ON READ NEED TO CHECK TO SEE IF \r\n * THE RECORD IS CHECKED FOR MANUF_CHECK OTHERWISE DISALLOW\r\n .MANUF_CHECK->VISIBLE = 0\r\n end else\r\n\t\tMessage = 'You do not have the proper security to enter ListBox entries...' \r\n\t\tMessage = 'H'\r\n\t\tVoid = msg( '', Message )\r\n\t\tVoid = send_event( @window, 'CLOSE' )\r\n\tend\r\nend\r\n\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/LOG_CHECK_WARN..json b/LSL2/OIEVENT/CREATE/LOG_CHECK_WARN..json new file mode 100644 index 0000000..f1066d0 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/LOG_CHECK_WARN..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function center_window\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/LOSS_CODES..json b/LSL2/OIEVENT/CREATE/LOSS_CODES..json new file mode 100644 index 0000000..e1edf4c --- /dev/null +++ b/LSL2/OIEVENT/CREATE/LOSS_CODES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .loss_code->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .loss_code->text = Keys\r\n Void = send_event( @window:'.LOSS_CODE', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'Loss Codes', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Loss Codes', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Loss Codes', Edit$ ) else\r\n security_err_msg( 'Loss Codes', Edit$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/LSL_MAIN2..json b/LSL2/OIEVENT/CREATE/LSL_MAIN2..json new file mode 100644 index 0000000..c6f4892 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/LSL_MAIN2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION start_window, findwindow, showwindow, Post_Event, Utility, obj_Notes_Sent, FindWindow\r\nDECLARE FUNCTION log_check, send_event, set_printer, obj_Install, Get_Status, Show_Windows_Processes,GetEngineWindow, GetCommandLine\r\nDeclare FUNCTION memberof, Dialog_Box, Environment_Services, Security_Services\r\nDECLARE SUBROUTINE Get_BMP_Info, Set_Property, Msg,\tobj_Tables, ErrMsg, Set_Status, Post_Event, Utility, ErrMsg, obj_Appwindow\r\nDECLARE SUBROUTINE ShowWindow, obj_Calib_List, Set_Env, obj_Login, Send_Message, Send_Event\r\n\r\nDeclare function LSL2_MAIN_SCRIPT_CREATE, SVC_Scheduler\r\n\r\n$insert lsl_common\r\n$insert lsl_users_equ\r\n$INSERT QUOTE_SIGS_EQU\r\n$INSERT NOTIFICATION_EQU\r\n$INSERT ENVIRON_CONSTANTS\r\n$insert LOGICAL\r\n\r\nEQU X_OFF$\tTO 1\r\nEQU Y_OFF$\tTO 2\r\nEQU WIDTH$\tTO 3\r\nEQU HEIGHT$\tTO 4\r\n\r\nServer = Environment_Services('GetServer')\r\nCommand = GetCommandLine()\r\nCommand = Trim(Command)\r\nConvert ' ' to @FM in Command\r\nConvert @Lower_Case to @Upper_Case in Command\r\nNumArguments = Count(Command, @FM) + (Command NE '')\r\nDone = False$\r\nFor ArgCnt = 1 to NumArguments\r\n\tArgument = Command\r\n\tIf Argument[1, 3] EQ '/UN' then\r\n\t\t@USER4 = Argument[-1, 'B=']\r\n\t\tDone = True$\r\n\tend\r\nUntil Done\r\nNext ArgCnt\r\n\r\nIf @USERNAME EQ 'MESFISYSADMIN' OR @USERNAME EQ 'CRISP' OR @USERNAME EQ 'OUELLETTE' OR @USERNAME EQ 'DANIEL_ST' OR @USERNAME EQ 'STIEBERD' then\r\n\tvoid = Start_Window('NDW_MAIN', '', '', '', '')\r\n\tPost_Event(@Window, 'CLOSE')\r\n\tReturn 0\r\nend\r\n\r\n\r\nIF @USER4 = 'INDEXER' THEN\r\n\tvoid = Start_Window( 'IDXSVR', '', '', '', '' )\r\n\tPost_Event(@Window, 'CLOSE')\r\n\tRETURN 0\r\nEND\r\n\r\nIF @USER4 = 'VISION' THEN\r\n\tvoid = Start_Window( 'VISION_COMM', @WINDOW, '', '', '' )\r\n\tRETURN 0\r\nEND\r\n\r\nIF @USER4 = 'ADCSVR' THEN\r\n\t* void = Start_Window( 'ADCSVR', @window, '', '', '' )\r\n\trv = Start_Window('NDW_MESSAGING_PROCESSOR', @Window)\r\n\tvoid = Start_Window( 'SERVICE_MANAGER', '', '', '', '' )\r\n\tPost_Event(@Window, 'CLOSE')\r\n\tRETURN 0\r\nEND\r\n\r\nIF @USER4 = 'SAP' THEN\r\n\tvoid = Start_Window( 'DIALOG_SAP_COMM', '', '', '', '')\r\n\tPost_Event(@Window, 'CLOSE')\r\n\tRETURN 0\r\nEND\r\n\r\nIF @USER4 = 'MESSENGER' THEN\r\n\tvoid = Start_Window('NDW_MESSAGE_LISTENER', '', '', '', '')\r\n\tPost_Event(@Window, 'CLOSE')\r\n\tRETURN 0\r\nEND\r\n\r\nrv = Start_Window('NDW_MESSAGING_PROCESSOR', @Window)\r\n\r\n*IF @USER4 = '' THEN\r\n @USER4 = @USERNAME\r\n*END\r\n\r\n\r\nAccessLevel\t= -1\r\nAccessLevel\t= Dialog_Box('LOGON', @Window)\r\n\r\nIf (AccessLevel EQ -1) OR (AccessLevel EQ '') then\r\n\tSet_Property(@Window, '@CLOSE', 1)\r\nend\r\n\r\n\r\nIF MemberOf(@USER4, 'OI_ADMIN') OR @USER4 = 'MIS' THEN\r\n\tSet_Env(ENV_DEBUGGER_ENABLED$, 1, 1)\r\n\tSet_Env(ENV_DEBUGGER_INTERCEPT_PROC$,'',1)\r\n\t\r\n\t* This section added 9/17/2014 JCH for FTPQueueing for manual batch transmits\r\n\t\r\n\tOPEN 'FTP_QUEUE' TO FTPQueue THEN\r\n\t\tSELECT FTPQueue\r\n\t\t\r\n\t\tRecCnt = 0\r\n\t\tDone = 0\r\n\t\tLOOP\r\n\t\t\tREADNEXT QueueKey ELSE Done = 1\r\n\t\tUNTIL Done\r\n\t\t\tRecCnt += 1\r\n\t\tREPEAT\r\n\t\r\n\t\tSet_Property('LSL_MAIN2.FTP_QUEUE','DEFPROP',RecCnt:' in Ship Data Queue')\r\n\t\tSet_Property('LSL_MAIN2.FTP_QUEUE','VISIBLE',1)\r\n\tEND\r\n\t\r\nEND ELSE\r\n\t\r\n\tSet_Env(ENV_DEBUGGER_ENABLED$, 2, 1)\r\n\tSet_Env(ENV_DEBUGGER_INTERCEPT_PROC$,'EPI_USER_DEBUG',1)\r\n\t\r\n\tSet_Property('LSL_MAIN.FTP_QUEUE','VISIBLE',0)\r\nEND\r\n\r\n\r\nIF MemberOf(@USER4,'EMAIL_PDF_QUEUE') THEN\r\n\r\n\t* This section added 7/31/2015 JCH for Shipment eMail Queueing for manual batch transmits\r\n\t\r\n\tOPEN 'SHIP_EMAIL_QUEUE' TO Ship_eMailQueue THEN\r\n\t\tSELECT Ship_eMailQueue\r\n\t\t\r\n\t\tRecCnt = 0\r\n\t\tDone = 0\r\n\t\tLOOP\r\n\t\t\tREADNEXT QueueKey ELSE Done = 1\r\n\t\tUNTIL Done\r\n\t\t\tRecCnt += 1\r\n\t\tREPEAT\r\n\t\r\n\t\tSet_Property('LSL_MAIN2.SHIP_EMAIL_QUEUE','DEFPROP',RecCnt:' in Ship Doc Queue')\r\n\t\tSet_Property('LSL_MAIN2.SHIP_EMAIL_QUEUE','VISIBLE',1)\r\n\tEND\r\n\r\nEND\r\n\r\n\r\nstat = Set_Property(@WINDOW,'TIMER',1200000:@FM:0)\t;* Start the Keep Alive Timer event and run every 20 Minutes * * * * * * * * * * * *\r\n\r\nstat = Set_Property(@WINDOW,'STATUSLINE',@WINDOW:'.STATUS_LINE')\t\t;* Setup status line \r\n\r\nIf AccessLevel GE 0 then\r\n\tobj_Appwindow('Create')\r\nend else\r\n\tReturn 0\r\nend\r\n\r\n* Added by JCH on 7/18/2004\r\n\r\nGraphicPath = obj_Install('Get_Prop','ColorBMP')\r\n\r\nIF GraphicPath NE '' THEN\r\n\tSet_Property(@WINDOW:'.BITMAP_2','BITMAP',GraphicPath)\r\n\tGet_BMP_Info(GraphicPath,BmSize,BmWidth,BmHeight)\r\n\t\r\n\tBMAspectRatio = BmWidth/BmHeight\r\n\t\r\n\tMainSize = Get_Property(@WINDOW,'SIZE')\r\n\t\r\n\tWinWidth = MainSize\r\n\tWinHeight = MainSize\r\n\t\r\n\tIF BmHeight > INT(WinHeight * .666) THEN\r\n\t\tSet_Property(@WINDOW:'.BITMAP_2','IMAGECLIP',0)\t;* Allow Resize of bitmap\r\n\t\tBmDispHeight = INT(WinHeight * .666)\r\n\t\tBmDispWidth\t = INT(BmDispHeight*(BmWidth/BmHeight))\r\n\tEND ELSE\r\n\t\tSet_Property(@WINDOW:'.BITMAP_2','IMAGECLIP',0)\t;* Allow Resize of bitmap\r\n\t\tBmDispHeight\t= INT(WinHeight * .20)\r\n\t\tBmDispWidth\t\t= INT(BmDispHeight * BMAspectRatio)\r\n\tEND\r\n\t\r\n\tXorg = INT((WinWidth - BmDispWidth) / 2 )\r\n\tYorg = INT((WinHeight - BmDispHeight) / 3)\r\n\t\r\n\r\n\tSet_Property(@WINDOW:'.BITMAP_2','SIZE',Xorg:@FM:Yorg:@FM:BmDispWidth:@FM:BmDispHeight)\r\n\tSet_Property(@WINDOW:'.BITMAP_2','VISIBLE',1)\r\n\t\r\nEND\r\n\r\nCompany = obj_Install('Get_Prop','CompTitle')\r\n\r\nMachine = ''\r\nIf (Server EQ 'MESST6501') or (Server EQ 'MESST6502') or (Server EQ 'MESTST1006') then \r\n\tMachine = 'Server'\r\nend else\r\n\tMachine = 'Client'\r\nend\r\n\r\nWinTitle = Get_Property(@WINDOW,'TEXT')\r\n\r\n\r\nLSL2Version = Xlate('LSL_USERS', @User4, 'LSL2_VERSION', 'X')\r\nOCXVersion = Xlate('LSL_USERS', @User4, 'OCX_VERSION', 'X')\r\n\r\nSet_Property(@WINDOW,'TEXT',Company:' ':WinTitle: ' - ':Machine: ' - v':LSL2Version:' - OCX v':OCXVersion)\r\n\r\n.current_user->text = 'User: ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\nrv = Set_Property(@WINDOW:'.OLE_PIC_CURRENT_USER','OLE.Caption','User: ':OCONV( @USER4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ))\r\n*.current_date->text = 'Date: ':oconv( date(), 'D2/' )\r\n\r\n.group_1->visible = 1\r\n\r\n\r\nIf AccessLevel GE 0 then\r\n\tVoid = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nRecipients\t= XLATE('NOTIFICATION','CONFIG_LIMITED',NOTIFICATION_USER_ID$,'X')\r\n\r\nLOCATE @USER4 IN Recipients USING @VM SETTING Pos THEN\r\n\tobj_Login('LateShip')\r\nEND\r\n\r\nNotesSent = obj_Notes_Sent('GetUserKeys',@USER4)\r\nNewMessages = XLATE('NOTE_PTRS',@USER4,'NEW_MESSAGES','X')\r\n\r\n\r\nIF NotesSent NE '' OR NewMessages > 0 THEN\r\n\tVoid = Start_Window( 'NOTE_PTRS', @WINDOW, '*CENTER', '', '' )\r\nEND\r\n\r\nIF MemberOf(@USER4, 'SPEC_CHANGE') OR MemberOf(@USER4, 'OI_ADMIN') THEN\r\n\tSet_Property(@WINDOW:'.MENU.ENGINEERING.TOOL_CLASS_-_RECIPES__PATTERNS','VISIBLE',1)\r\nEND ELSE\r\n\tSet_Property(@WINDOW:'.MENU.ENGINEERING.TOOL_CLASS_-_RECIPES__PATTERNS','VISIBLE',0)\r\nEND\r\n\r\n\r\nIf ( Memberof(@User4, 'OI_ADMIN') OR Memberof(@User4, 'OI_TEST') ) then\r\n\tSet_Property(@Window:'.MENU.MATERIAL.FQA_MATERIAL_SCAN', 'ENABLED', 1)\r\nend\r\n\r\n\r\n* New Security for LSL_MAIN2 menu options\tdkk 11/27/13\r\n* Set security for LSL_MAIN2 menu options. Adjust Ctrls as needed to add/remove main menu item security properties.\r\n\r\nCtrls = @WINDOW:'.MENU.ADMIN.FABTIME_SUPPORT':@RM ; Props = 'ENABLED':@RM\r\nCtrls := @WINDOW:'.MENU.MAINT.REACTOR_MAINTENANCE':@RM \t\t; Props := 'ENABLED':@RM\r\nCtrls := @WINDOW:'.MENU.ADM.SYSTEM_CONFIG':@RM \t\t\t\t; Props := 'ENABLED':@RM\r\nCtrls := @WINDOW:'.MENU.ADM.TOOLS':@RM \t\t\t\t\t\t; Props := 'ENABLED':@RM\r\nCtrls := @WINDOW:'.MENU.ADM.RAS':@RM \t\t\t\t\t\t; Props := 'ENABLED':@RM\r\nCtrls := @WINDOW:'.MENU.ADM.DEVELOPER':@RM \t\t\t\t\t; Props := 'ENABLED':@RM\r\nCtrls := @WINDOW:'.MENU.ADMIN.DEV.ARCHIVE' ; Props := 'ENABLED' \r\nIF Memberof(@user4, 'OI_ADMIN') THEN\t \r\n\tVals = 1\t\t\t\t\t\t\t\t\r\nEND ELSE\r\n\tVals = 0\t\r\nEND\r\nSet_Property(Ctrls,Props,Vals)\t\t\t\t\t\t\t\t\t\t; * Sets the enabled property ON/OFF for the record mark delimited variables Ctrls,Props, and Vals\r\n\r\n\r\nCtrls := @WINDOW:'.MENU.ADMIN.SAP_INTERFACE':@RM\t\t\t\t\t; Props := 'ENABLED':@RM\r\nCtrls := @WINDOW:'.MENU.ADM.WAREHOUSE':@RM \t\t\t\t\t; Props := 'ENABLED'\r\nIF Memberof(@user4, 'OI_ADMIN') OR Memberof(@user4, 'OI_SUPERUSER') THEN\t \r\n\tVals = 1\t\t\t\t\t\t\t\t\r\nEND ELSE\r\n\tVals = 0\t\r\nEND\r\nSet_Property(Ctrls,Props,Vals)\t\t\t\t\t\t\t\t\t\t; * Sets the enabled property ON/OFF for the record mark delimited variables Ctrls,Props, and Vals\r\n\r\nCtrls = @WINDOW:'.MENU.ADM.THRUPUT_TARGETS':@RM \t \t\t\t; Props = 'ENABLED':@RM\r\nCtrls := @WINDOW:'.MENU.PROD.REACTOR_RUN'\t \t\t\t\t\t; Props := 'ENABLED'\r\nIF Memberof(@user4,'CONFIG_LIMITED') OR @USERNAME = 'BRYCE_BARB' THEN\t \r\n\tVals = 1\t\t\t\t\t\t\t\t\r\nEND ELSE\r\n\tVals = 0\t\r\nEND\r\nSet_Property(Ctrls,Props,Vals)\t\t\t\t\t\t\t\t\t\t; * Sets the enabled property ON/OFF for the record mark delimited variables Ctrls,Props, and Vals\r\n\r\nIf Not(MemberOf(@USER4, 'LEAD')) AND Not(MemberOf(@USER4, 'SUPERVISOR')) then\r\n\tSet_Property(@Window : '.MENU.ADMIN.TOOLS_EVAC', 'VISIBLE', 0)\r\nend\r\n\r\nCalDueRecipients = XLATE('NOTIFICATION','CALIB_DUE_NOTIFY',NOTIFICATION_USER_ID$,'X')\r\n\r\nLOCATE @USER4 IN CalDueRecipients USING @VM SETTING POS THEN\r\n\tobj_Calib_List('SendReminders')\t\t\t\t\t\t\t\t;* New system added 3/18/2010 JCH\r\nEND\r\n\r\nIF @ADMIN < 2 THEN\r\n\thWnd1% = FindWindow(\"RTI_OINSIGHT\":\\00\\, \"\")\r\n\thWnd2% = FindWindow(\"AREV\":\\00\\, \"\")\r\n\thWnd3% = FindWindow(\"PROGMAN\":\\00\\, \"\")\r\n\trv = ShowWindow(hWnd1%, 0)\r\n\trv = ShowWindow(hWnd2%, 0)\r\n\trv = ShowWindow(hWnd3%, 2)\r\nEND\r\n\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/LSL_USERS_RPT1..json b/LSL2/OIEVENT/CREATE/LSL_USERS_RPT1..json new file mode 100644 index 0000000..02c0329 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/LSL_USERS_RPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, send_event, admin_user, center_window\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif Admin_user( @user4 ) else\r\n Message = 'You do not have the proper to run the LSL User Report...' \r\n Message = 'H'\r\n Void = msg( '', Message )\r\n Void = send_event( @window, 'CLOSE' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/MASTER_DISK_LOG..json b/LSL2/OIEVENT/CREATE/MASTER_DISK_LOG..json new file mode 100644 index 0000000..bb0c7e1 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/MASTER_DISK_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .log_no->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .log_no->text = Keys\r\n Void = send_event( @window:'.LOG_NO', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'Master Disk Log', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Master Disk Log', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Master Disk Log', Edit$ ) else\r\n security_err_msg( 'Master Disk Log', Edit$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/MEG_LOG..json b/LSL2/OIEVENT/CREATE/MEG_LOG..json new file mode 100644 index 0000000..26cb2db --- /dev/null +++ b/LSL2/OIEVENT/CREATE/MEG_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .log_no->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .log_no->text = Keys\r\n Void = send_event( @window:'.LOG_NO', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'Meg Log', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Meg Log', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Meg Log', Edit$ ) else\r\n security_err_msg( 'Meg Log', Edit$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/MODS..json b/LSL2/OIEVENT/CREATE/MODS..json new file mode 100644 index 0000000..0b47220 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/MODS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, send_event, admin_user, center_window, mods_load_control, end_window\r\ndeclare function get_status\r\ndeclare subroutine end_dialog, attach_table\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nosopen 'MODS\\MODS.TXT' to Tvar then\r\n * OFFLINE DO NOT ALLOW UPDATES\r\n osclose Tvar\r\n .us_button->enabled = 0\r\n .ua_button->enabled = 0\r\nend else\r\n * ONLINE DO NOT ALLOW NEW PROJECTS OR ADDING REPOSITORY ENTRIES OR PREPARING MODS\r\n .prep_final_button->enabled = 0\r\n .prep_button->enabled = 0\r\n .new_button->enabled = 0\r\n .sr_button->enabled = 0\r\n attach_table(\"C:\\Revsoft\\OFFnSght\\MODS\", \"\", \"\", \"\")\r\n if get_status() then\r\n Void = msg( '', 'Error while attaching offline MODS...' )\r\n Void = end_window(@window) \r\n end\r\nend\r\n* CAUSE SOMETIMES I DON'T LOG INTO THE LSL_MAIN2 AND THEN THIS ERRORS\r\n* MOST OF THE TIME WHEN I GET INTO DEVELOPMENT I GO IMMEDIATELY INTO MODS\r\nif @user4 = '' then\r\n @user4 = @username\r\nend\r\nif Admin_user( @user4 ) then \r\n\topen 'MODS_CFG' to ConfigTable else\r\n\t Void = msg( '', 'Unable to open MODS_CFG table' )\r\n\t end_dialog( @window, '' )\r\n\t return 0\r\n\tend\r\n\tlock ConfigTable, 'MODS' else\r\n\t Void = msg( '', 'MODS is in use somewhere else...' )\r\n\t end_dialog( @window, '' )\r\n\t return 0\r\n\tend\r\n\tread ModsInfo from ConfigTable, 'MODS' then\r\n\t if ModsInfo then\r\n\t .PSD->text = ModsInfo<1>\r\n\t .PN->text = ModsInfo<2>\r\n\t .proj_notes->text = ModsInfo<3>\r\n\t end\r\n\tend\r\nend else\r\n Message = 'You do not have the proper security to DO MODS...' \r\n Message = 'H'\r\n Void = msg( '', Message )\r\n end_dialog( @window, '' )\r\nend\r\nVoid = mods_load_control()\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/MSG_GROUPS..json b/LSL2/OIEVENT/CREATE/MSG_GROUPS..json new file mode 100644 index 0000000..3297287 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/MSG_GROUPS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .group_name->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .group_name->text = Keys\r\n Void = send_event( @window:'.GROUP_NAME', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/NAMES..json b/LSL2/OIEVENT/CREATE/NAMES..json new file mode 100644 index 0000000..6bb273c --- /dev/null +++ b/LSL2/OIEVENT/CREATE/NAMES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function relational_call, msg, security_check, set_property\r\ndeclare function send_event, center_window\r\ndeclare subroutine forward_event, send_event, set_list_box_data, rlist\r\ndeclare subroutine security_err_msg\r\n\r\n$insert company_equ\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\n.co_id->misc = field( CreateParam, '*', 2 )\r\n.description->text = 'Contact Names for: ':xlate( 'COMPANY', .co_id->misc, company_co_name$, 'X' )\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n * need to send to qbf\r\n convert @vm to @fm in Keys\r\n Void = set_property( @window, 'QBFLIST', Keys ) \r\n Void = set_property( @window, '@NoRead', 1 ) \r\n .seq->text = Keys<1>\r\n Void = send_event( @window, 'READ' )\r\n Void = set_property( @window, '@NoRead', 0 )\r\nend \r\nset_list_box_data( CtrlEntId )\r\nif security_check( 'Names', Edit$ ) else\r\n security_err_msg( 'Names', Edit$ )\r\nend\r\nVoid = set_property( @window, '@NoRead', 0 )\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/NCR_CALCULATOR..json b/LSL2/OIEVENT/CREATE/NCR_CALCULATOR..json new file mode 100644 index 0000000..3a5e96f --- /dev/null +++ b/LSL2/OIEVENT/CREATE/NCR_CALCULATOR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function center_window, send_event\r\ndeclare function post_event\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nControls = 'TTHICK_AVG/TTHICK_STDEV/TTHICK_MAX/TTHICK_MIN/TTHICK_UNIF/'\r\nControls:= 'TRES_AVG/TRES_STDEV/TRES_MAX/TRES_MIN/TRES_UNIF'\r\nswap '/' with @rm:@window:'.' in Controls\r\nControls = @window:'.':Controls\r\nVoid = set_property( @window, '@Controls', Controls )\r\n\r\nStatInfo = field( CreateParam, char(245), 1 )\r\nconvert @fm to @rm in StatInfo\r\nThickInfo = field( CreateParam, char(245), 2 )\r\nRHOInfo = field( CreateParam, char(245), 3 )\r\nUnitType = field( CreateParam, char(245), 4 )\r\n\r\nVoid = set_property( Controls, 'TEXT', StatInfo )\r\n.thickness_readings->array = ThickInfo\r\n.sheetrho_readings->array = RHOInfo\r\nif ( UnitType <> '' ) then\r\n .calc_type->value = UnitType\r\nend\r\n\r\n* CODE BELOW IS THE SAME AS CALCULATOR_RESRHO_VALID CONVERSION\r\n* COULD NOT FORCE IT TO BE CALLED VIA A CLICK EVENT ON THE THICKNESS READINGS\r\n\r\nThickness = iconv( get_property( @window:'.THICKNESS_READINGS', 'ARRAY' ), 'MD2' )\r\nSheetRHO = get_property( @window:'.SHEETRHO_READINGS', 'ARRAY' )\r\nOffSet = str( '.001':@vm, 17 )\r\nOffSet[-1,1] = ''\r\nRes = oconv( SheetRHO *** Thickness *** OffSet, 'MD3' )\r\nswap '.000' with '' in Res\r\nVoid = set_property( @window:'.RES_READINGS', 'ARRAY', Res )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/NCR_QUERY..json b/LSL2/OIEVENT/CREATE/NCR_QUERY..json new file mode 100644 index 0000000..5e15e0f --- /dev/null +++ b/LSL2/OIEVENT/CREATE/NCR_QUERY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data\r\n\r\nset_list_box_data(@window)\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/NCR_SURFACE_INFO..json b/LSL2/OIEVENT/CREATE/NCR_SURFACE_INFO..json new file mode 100644 index 0000000..0756a79 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/NCR_SURFACE_INFO..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert prod_spec_equ\r\ndeclare function center_window\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nSurfaceInfo = field( CreateParam, char(245), 1 )\r\n\r\n* THEN LOAD THE CURRENT DATA PASSED FROM THE NCR WINDOW\r\nControls = 'POST_LPD_OUT_R/POST_PITS_R/POST_MOUNDS_R/POST_BL_DEFECTS_R/POST_STACK_FAULTS_R/POST_SPIKES_R/'\r\nControls:= 'POST_SPOTS_R/POST_FOV_R/POST_SCRATCHES_R/POST_SCRATCH_LEN_R/POST_SURFSCAN_DEFECTS_R/POST_SURFSCAN_HAZE_R'\r\n\r\nswap '/' with @rm:@window:'.' in Controls\r\nControls = @window:'.':Controls\r\nconvert @fm to @rm in SurfaceInfo\r\nvoid = set_property( Controls, 'TEXT', SurfaceInfo )\r\nVoid = set_property( @window, '@Controls', Controls )\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/NDA..json b/LSL2/OIEVENT/CREATE/NDA..json new file mode 100644 index 0000000..2381c39 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/NDA..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .nda_id->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .nda_id->text = Keys\r\n Void = send_event( @window:'.NDA_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'NDA', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'NDA', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'NDA', Edit$ ) else\r\n security_err_msg( 'NDA', Edit$ )\r\nend\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/NEW_REPORT..json b/LSL2/OIEVENT/CREATE/NEW_REPORT..json new file mode 100644 index 0000000..d28b7da --- /dev/null +++ b/LSL2/OIEVENT/CREATE/NEW_REPORT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window, admin_user, msg, send_event\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif Admin_user( @user4 ) else\r\n Message = 'You do not have the proper security to enter REPORT_SLIST_CFG...' \r\n Message = 'H'\r\n Void = msg( '', Message )\r\n Void = send_event( @window, 'CLOSE' )\r\nend\r\n\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/NIGHTLY_PROCESS..json b/LSL2/OIEVENT/CREATE/NIGHTLY_PROCESS..json new file mode 100644 index 0000000..eef40c5 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/NIGHTLY_PROCESS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, send_event, admin_user, center_window\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\n\r\nif Admin_user( @user4 ) then \r\n\topen 'CONFIG' to ConfigTable else\r\n\t Void = msg( '', 'Unable to open CONFIG table' )\r\n\t end_dialog( @window, '' )\r\n\t return 0\r\n\tend\r\n\tlock ConfigTable, 'NIGHTLY_PROCESS' else\r\n\t Void = msg( '', 'NIGHTLY_PROCESS is in use somewhere else...' )\r\n\t end_dialog( @window, '' )\r\n\t return 0\r\n\tend\r\n\tread NightlyProcess from ConfigTable, 'NIGHTLY_PROCESS' then\r\n\t if NightlyProcess then\r\n\t *convert @fm to @vm in TableNamesData\r\n\t .night_process_data->array = NightlyProcess\r\n\t end\r\n\tend\r\nend else\r\n Message = 'You do not have the proper security to view/change the nightly process configuration...' \r\n Message = 'H'\r\n Void = msg( '', Message )\r\n end_dialog( @window, '' )\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/NOTES..json b/LSL2/OIEVENT/CREATE/NOTES..json new file mode 100644 index 0000000..3350a4b --- /dev/null +++ b/LSL2/OIEVENT/CREATE/NOTES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, get_property, set_property, center_window\r\nDECLARE Function Notes\r\nDECLARE SUBROUTINE obj_Call_Event\r\n$insert logical\r\n\r\n* ALWAYS CENTER\r\nvoid = center_window( @window )\r\n\r\nVoid = set_property( @window, '@called', 0 )\r\nif CreateParam<1,1> then \r\n * called from note pointers new\r\n Void = set_property( @window, '@called', true$ )\r\nend\r\n\r\nif CreateParam<1,2> then\r\n * protect the prompts \r\n * called from note pointers with an id passed\r\n \r\n IoOptions = get_property( @window, 'IOOPTIONS' )\r\n IoOptions<2> = 2 ;* do not lock\r\n Void = set_property( @window, 'IOOPTIONS', IoOptions )\r\n \r\n DisableFields = 'MESSAGE_TYPE':@rm:'MENU.FILE.SAVE_ROW':@rm:'MENU.FILE.CLEAR_FORM'\r\n swap @rm with @rm:@window:'.' in DisableFields\r\n DisableFields = @window:'.':DisableFields\r\n Void = set_property( DisableFields, 'ENABLED', 0 )\r\n \r\n .seq->text = CreateParam<1,2>\r\n .save_send->enabled = 0\r\n void = send_event( @window, 'READ', '' )\r\nend else\r\n .reply_button->enabled = 0\r\nend\r\n\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/ORDER..json b/LSL2/OIEVENT/CREATE/ORDER..json new file mode 100644 index 0000000..4ffc525 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/ORDER..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert wo_log_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nKeys = field( CreateParam, '*', 1 )\r\nWO = field( CreateParam, '*', 3 )\r\n\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 ) \r\n\t .order_no->text = Keys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .order_no->text = Keys\r\n Void = send_event( @window:'.ORDER_NO', 'LOSTFOCUS', '' )\r\n end\r\n**end\r\n******Block added by JLT 5/2/01***********\r\nend else\r\n If WO Then\r\n WO_Rcd = XLATE('WO_LOG', WO, '','X')\r\n Void = send_event(@window:'.ORDER_NO','GOTFOCUS', '' )\r\n Void = send_event(@window:'.ORDER_NO','LOSTFOCUS', '' )\r\n Void = set_property('SYSTEM', 'FOCUS', @window:'.AC_ID')\r\n .cust_no->text = WO_Rcd\r\n Void = send_event(@window:'.CUST_NO','LOSTFOCUS' )\r\n\r\n\t arrayinfo = ''\r\n arrayinfo<4> = WO\r\n .order_detail->array = arrayinfo\r\n \r\n end\r\nend\r\n******End of Block added by JLT 5/2/01***********\r\n\r\nif security_check( 'Order', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Order', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Order', Edit$ ) else\r\n security_err_msg( 'Order', Edit$ )\r\nend\r\nVoid = set_property( @window, '@NoRead', 0 )\r\nVoid = set_property( @window, '@OrigOrderDetail', '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/ORDER_RPT1..json b/LSL2/OIEVENT/CREATE/ORDER_RPT1..json new file mode 100644 index 0000000..829b0fd --- /dev/null +++ b/LSL2/OIEVENT/CREATE/ORDER_RPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Order', Print$ ) else\r\n security_err_msg( 'Order', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/ORDER_RPT2..json b/LSL2/OIEVENT/CREATE/ORDER_RPT2..json new file mode 100644 index 0000000..829b0fd --- /dev/null +++ b/LSL2/OIEVENT/CREATE/ORDER_RPT2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Order', Print$ ) else\r\n security_err_msg( 'Order', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/ORDER_SRPT1..json b/LSL2/OIEVENT/CREATE/ORDER_SRPT1..json new file mode 100644 index 0000000..829b0fd --- /dev/null +++ b/LSL2/OIEVENT/CREATE/ORDER_SRPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Order', Print$ ) else\r\n security_err_msg( 'Order', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/ORDER_SRPT2..json b/LSL2/OIEVENT/CREATE/ORDER_SRPT2..json new file mode 100644 index 0000000..829b0fd --- /dev/null +++ b/LSL2/OIEVENT/CREATE/ORDER_SRPT2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Order', Print$ ) else\r\n security_err_msg( 'Order', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/PASS_DOWN..json b/LSL2/OIEVENT/CREATE/PASS_DOWN..json new file mode 100644 index 0000000..db08dd4 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/PASS_DOWN..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function memberof, msg, center_window\r\ndeclare subroutine end_dialog\r\n$insert logical\r\n$insert msg_equates\r\n\r\n****wo mast sched equates***\r\nequ Days$ to 1\r\nequ Month$ to 2\r\nequ ReactorCnt$ to 3\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif memberof( @user4, 'DATA_ENTRY' ) or memberof( @user4, 'SUPERVISOR' ) or memberof( @user4, 'OPERATOR') or @USERNAME = 'BRYCE_BARB' then\r\n\tMastSchedRec = xlate( 'CONFIG', 'WO_MAST_SCHED', '', 'X' )\r\n\tNumReactors = MastSchedRec\r\n\tList = ''\r\n\tfor i = 20 to NumReactors\r\n\t\tBEGIN CASE\r\n\t\t\tCASE i = 74\r\n\t\t\t\tList<-1> = 'Eng Log ':i\r\n\t\t\t\t\r\n\t\t\tCASE i = 73\r\n\t\t\t\tList<-1> = 'Cleans ':i\r\n\t\t\t\t\r\n\t\t\tCASE 1\r\n\t\t\t\tList<-1> = 'Reactor ':i\r\n\t\t\r\n\t\tEND CASE\r\n\tnext i\r\n\t\r\n\t.reactors->list = List\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must be a technician or a supervisor to access this...'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end_dialog( @window, '' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/PHOTOFLO_LOG..json b/LSL2/OIEVENT/CREATE/PHOTOFLO_LOG..json new file mode 100644 index 0000000..a182609 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/PHOTOFLO_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .log_no->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .log_no->text = Keys\r\n Void = send_event( @window:'.LOG_NO', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'PhotoFlo Log', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'PhotoFlo Log', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'PhotoFlo Log', Edit$ ) else\r\n security_err_msg( 'PhotoFlo Log', Edit$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/PHOTOFLO_LOG_QUERY..json b/LSL2/OIEVENT/CREATE/PHOTOFLO_LOG_QUERY..json new file mode 100644 index 0000000..5e15e0f --- /dev/null +++ b/LSL2/OIEVENT/CREATE/PHOTOFLO_LOG_QUERY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data\r\n\r\nset_list_box_data(@window)\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/PRINT_HELP_CONFIG..json b/LSL2/OIEVENT/CREATE/PRINT_HELP_CONFIG..json new file mode 100644 index 0000000..b2d999e --- /dev/null +++ b/LSL2/OIEVENT/CREATE/PRINT_HELP_CONFIG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, send_event, admin_user\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\n\r\nif Admin_user( @user4 ) then \r\n\topen 'CONFIG' to ConfigTable else\r\n\t Void = msg( '', 'Unable to open CONFIG table' )\r\n\t end_dialog( @window, '' )\r\n\t return 0\r\n\tend\r\n\tlock ConfigTable, 'PRINT_HELP_CONFIG' else\r\n\t Void = msg( '', 'PRINT_HELP_CONFIG is in use somewhere else...' )\r\n\t end_dialog( @window, '' )\r\n\t return 0\r\n\tend\r\n\tread PrintHelpConfig from ConfigTable, 'PRINT_HELP_CONFIG' then\r\n\t if PrintHelpConfig then\r\n\t .print_help_cfg->array = field( PrintHelpConfig, @fm, 1, 8 )\r\n\t end\r\n\t .bmp_path->text = PrintHelpConfig<9>\r\n\tend\r\nend else\r\n Message = 'You do not have the proper security to modify print help configuration...' \r\n Message = 'H'\r\n Void = msg( '', Message )\r\n Void = send_event( @window, 'CLOSE' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/PRINT_HELP_CONFIG2..json b/LSL2/OIEVENT/CREATE/PRINT_HELP_CONFIG2..json new file mode 100644 index 0000000..23813c3 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/PRINT_HELP_CONFIG2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "Window = field( CreateParam, '*', 1 )\r\nFieldText = field( CreateParam, '*', 2 )\r\nif window then\r\n .window->text = Window\r\nend\r\nif FieldText then\r\n convert '^' to @vm in FieldText\r\n convert '~' to @fm in FieldText\r\n .field_text->array = FieldText\r\nend\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/PROD_SPEC..json b/LSL2/OIEVENT/CREATE/PROD_SPEC..json new file mode 100644 index 0000000..3492b18 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/PROD_SPEC..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg, sendmessage, utility, obj_AppWindow\r\nDECLARE SUBROUTINE Set_Property, Comm_Prod_Spec\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, getwindow, fieldcount, send_message\r\n\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert logical\r\n$insert PS_Equates\r\n\r\n\r\nGaNFormVisible = Get_Property('DBW_PROD_SPEC_GAN', 'VISIBLE')\r\nIf GaNFormVisible then\r\n\tUtility('DESTROY', 'DBW_PROD_SPEC_GAN')\r\nend\r\n\r\nComm_Prod_Spec('Create')\r\n\r\nif index( CreateParam,'Choosing', 1 ) then\r\n PrevWindow = field( CreateParam, '*', 3 )\r\n Void = set_property( @window, '@PrevWindow', PrevWindow )\r\n .ret_psn_button->visible = 1\r\n Ttext = .ret_psn_button->text\r\n Ttext := ' ':PrevWindow\r\n .ret_psn_button->text = Ttext\r\nend\r\n*\r\nCustIdToStamp = field( CreateParam, '*', 4, 1 ) ;* will be set when called from quote\r\n ;* with option goto quote window\r\n ;* this is to stamp the cust id\r\n ;* it will be checked for in the gotfocus of custid\r\nVoid = set_property( @window, '@CustIdToStamp', CustIdToStamp )\r\n*\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 ) \r\n\t .prod_spec_id->text = Keys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .prod_spec_id->text = Keys\r\n Void = send_event( @window:'.PROD_SPEC_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nSurfScanRecipes = XLATE('LISTBOX_CONFIG','SURFSCAN_RECIPES','','X')\r\n\r\nCONVERT @VM TO @FM IN SurfScanRecipes\r\n\r\nCtrls = @WINDOW:'.PRE_SURFSCAN_RECIPE':@RM\t\t; Props = 'LIST':@RM\t\t; Vals = SurfScanRecipes:@RM\r\nCtrls := @WINDOW:'.POST_SURFSCAN_RECIPE':@RM\t; Props := 'LIST':@RM\t\t; Vals := SurfScanRecipes:@RM\r\nCtrls := @WINDOW:'.CLEAN_SURFSCAN_RECIPE'\t\t; Props := 'LIST'\t\t\t; Vals := SurfScanRecipes\r\n\r\nSet_Property(Ctrls,Props,Vals)\r\n\r\n\r\nif security_check( 'Prod Spec', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Prod Spec', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Prod Spec', Edit$ ) else\r\n security_err_msg( 'Prod Spec', Edit$ )\r\nend\r\n\r\nRETURN 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/PROD_SPEC_BACKUP..json b/LSL2/OIEVENT/CREATE/PROD_SPEC_BACKUP..json new file mode 100644 index 0000000..b162bf0 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/PROD_SPEC_BACKUP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg, sendmessage, utility, obj_AppWindow\r\nDECLARE SUBROUTINE Set_Property, Comm_Prod_Spec\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, getwindow, fieldcount, send_message\r\n\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert logical\r\n$insert PS_Equates\r\n\r\nComm_Prod_Spec('Create')\r\n\r\nif index( CreateParam,'Choosing', 1 ) then\r\n PrevWindow = field( CreateParam, '*', 3 )\r\n Void = set_property( @window, '@PrevWindow', PrevWindow )\r\n .ret_psn_button->visible = 1\r\n Ttext = .ret_psn_button->text\r\n Ttext := ' ':PrevWindow\r\n .ret_psn_button->text = Ttext\r\nend\r\n*\r\nCustIdToStamp = field( CreateParam, '*', 4, 1 ) ;* will be set when called from quote\r\n ;* with option goto quote window\r\n ;* this is to stamp the cust id\r\n ;* it will be checked for in the gotfocus of custid\r\nVoid = set_property( @window, '@CustIdToStamp', CustIdToStamp )\r\n*\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 ) \r\n\t .prod_spec_id->text = Keys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .prod_spec_id->text = Keys\r\n Void = send_event( @window:'.PROD_SPEC_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nSurfScanRecipes = XLATE('LISTBOX_CONFIG','SURFSCAN_RECIPES','','X')\r\n\r\nCONVERT @VM TO @FM IN SurfScanRecipes\r\n\r\nCtrls = @WINDOW:'.PRE_SURFSCAN_RECIPE':@RM\t\t; Props = 'LIST':@RM\t\t; Vals = SurfScanRecipes:@RM\r\nCtrls := @WINDOW:'.POST_SURFSCAN_RECIPE':@RM\t; Props := 'LIST':@RM\t\t; Vals := SurfScanRecipes:@RM\r\nCtrls := @WINDOW:'.CLEAN_SURFSCAN_RECIPE'\t\t; Props := 'LIST'\t\t\t; Vals := SurfScanRecipes\r\n\r\nSet_Property(Ctrls,Props,Vals)\r\n\r\n\r\nif security_check( 'Prod Spec', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Prod Spec', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Prod Spec', Edit$ ) else\r\n security_err_msg( 'Prod Spec', Edit$ )\r\nend\r\nRETURN 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/PROD_SPEC_COSTING..json b/LSL2/OIEVENT/CREATE/PROD_SPEC_COSTING..json new file mode 100644 index 0000000..a153326 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/PROD_SPEC_COSTING..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE SUBROUTINE ErrMsg\r\n\r\nIF @USER4 = 'JOE_W' OR @USER4 = 'ADINA_C' OR @USER4 = 'BRYCE_BARB' THEN\r\n\tRETURN 1\r\nEND ELSE\r\n\tErrMsg('You are not authorized to change Costing Information.')\r\n\tRETURN 0\r\nEND" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/PROD_SPEC_JCH..json b/LSL2/OIEVENT/CREATE/PROD_SPEC_JCH..json new file mode 100644 index 0000000..b162bf0 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/PROD_SPEC_JCH..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg, sendmessage, utility, obj_AppWindow\r\nDECLARE SUBROUTINE Set_Property, Comm_Prod_Spec\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, getwindow, fieldcount, send_message\r\n\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert logical\r\n$insert PS_Equates\r\n\r\nComm_Prod_Spec('Create')\r\n\r\nif index( CreateParam,'Choosing', 1 ) then\r\n PrevWindow = field( CreateParam, '*', 3 )\r\n Void = set_property( @window, '@PrevWindow', PrevWindow )\r\n .ret_psn_button->visible = 1\r\n Ttext = .ret_psn_button->text\r\n Ttext := ' ':PrevWindow\r\n .ret_psn_button->text = Ttext\r\nend\r\n*\r\nCustIdToStamp = field( CreateParam, '*', 4, 1 ) ;* will be set when called from quote\r\n ;* with option goto quote window\r\n ;* this is to stamp the cust id\r\n ;* it will be checked for in the gotfocus of custid\r\nVoid = set_property( @window, '@CustIdToStamp', CustIdToStamp )\r\n*\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 ) \r\n\t .prod_spec_id->text = Keys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .prod_spec_id->text = Keys\r\n Void = send_event( @window:'.PROD_SPEC_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nSurfScanRecipes = XLATE('LISTBOX_CONFIG','SURFSCAN_RECIPES','','X')\r\n\r\nCONVERT @VM TO @FM IN SurfScanRecipes\r\n\r\nCtrls = @WINDOW:'.PRE_SURFSCAN_RECIPE':@RM\t\t; Props = 'LIST':@RM\t\t; Vals = SurfScanRecipes:@RM\r\nCtrls := @WINDOW:'.POST_SURFSCAN_RECIPE':@RM\t; Props := 'LIST':@RM\t\t; Vals := SurfScanRecipes:@RM\r\nCtrls := @WINDOW:'.CLEAN_SURFSCAN_RECIPE'\t\t; Props := 'LIST'\t\t\t; Vals := SurfScanRecipes\r\n\r\nSet_Property(Ctrls,Props,Vals)\r\n\r\n\r\nif security_check( 'Prod Spec', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Prod Spec', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Prod Spec', Edit$ ) else\r\n security_err_msg( 'Prod Spec', Edit$ )\r\nend\r\nRETURN 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/PROD_SPEC_JRO..json b/LSL2/OIEVENT/CREATE/PROD_SPEC_JRO..json new file mode 100644 index 0000000..b162bf0 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/PROD_SPEC_JRO..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg, sendmessage, utility, obj_AppWindow\r\nDECLARE SUBROUTINE Set_Property, Comm_Prod_Spec\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, getwindow, fieldcount, send_message\r\n\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert logical\r\n$insert PS_Equates\r\n\r\nComm_Prod_Spec('Create')\r\n\r\nif index( CreateParam,'Choosing', 1 ) then\r\n PrevWindow = field( CreateParam, '*', 3 )\r\n Void = set_property( @window, '@PrevWindow', PrevWindow )\r\n .ret_psn_button->visible = 1\r\n Ttext = .ret_psn_button->text\r\n Ttext := ' ':PrevWindow\r\n .ret_psn_button->text = Ttext\r\nend\r\n*\r\nCustIdToStamp = field( CreateParam, '*', 4, 1 ) ;* will be set when called from quote\r\n ;* with option goto quote window\r\n ;* this is to stamp the cust id\r\n ;* it will be checked for in the gotfocus of custid\r\nVoid = set_property( @window, '@CustIdToStamp', CustIdToStamp )\r\n*\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 ) \r\n\t .prod_spec_id->text = Keys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .prod_spec_id->text = Keys\r\n Void = send_event( @window:'.PROD_SPEC_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nSurfScanRecipes = XLATE('LISTBOX_CONFIG','SURFSCAN_RECIPES','','X')\r\n\r\nCONVERT @VM TO @FM IN SurfScanRecipes\r\n\r\nCtrls = @WINDOW:'.PRE_SURFSCAN_RECIPE':@RM\t\t; Props = 'LIST':@RM\t\t; Vals = SurfScanRecipes:@RM\r\nCtrls := @WINDOW:'.POST_SURFSCAN_RECIPE':@RM\t; Props := 'LIST':@RM\t\t; Vals := SurfScanRecipes:@RM\r\nCtrls := @WINDOW:'.CLEAN_SURFSCAN_RECIPE'\t\t; Props := 'LIST'\t\t\t; Vals := SurfScanRecipes\r\n\r\nSet_Property(Ctrls,Props,Vals)\r\n\r\n\r\nif security_check( 'Prod Spec', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Prod Spec', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Prod Spec', Edit$ ) else\r\n security_err_msg( 'Prod Spec', Edit$ )\r\nend\r\nRETURN 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/PROD_SPEC_QUERY..json b/LSL2/OIEVENT/CREATE/PROD_SPEC_QUERY..json new file mode 100644 index 0000000..17948e7 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/PROD_SPEC_QUERY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "* DEFAULT TO ONLY QUERYING ON ACTIVE\r\n* AS REQUESTED BY RICK ALDRED\r\n.active_check->check = 1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/PROD_SPEC_RPT1..json b/LSL2/OIEVENT/CREATE/PROD_SPEC_RPT1..json new file mode 100644 index 0000000..6f56474 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/PROD_SPEC_RPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Prod Spec', Print$ ) else\r\n security_err_msg( 'Prod Spec', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/PROD_SPEC_SCAN..json b/LSL2/OIEVENT/CREATE/PROD_SPEC_SCAN..json new file mode 100644 index 0000000..a3f623a --- /dev/null +++ b/LSL2/OIEVENT/CREATE/PROD_SPEC_SCAN..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function center_window, utility\r\n\r\nBMP = field( CreateParam, '*', 1 )\r\n.bitmap_1->bitmap = BMP\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 3 ) ;* TO MAXIMIZE\r\nend\r\nStat = utility( 'CURSOR', 'A' )\r\n* THE CALLING CODE WILL SET CURSOR TO HOURGLASS\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/PROD_SPEC_SI..json b/LSL2/OIEVENT/CREATE/PROD_SPEC_SI..json new file mode 100644 index 0000000..97faffd --- /dev/null +++ b/LSL2/OIEVENT/CREATE/PROD_SPEC_SI..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data, utility, obj_Appwindow, Comm_Prod_Spec_SI, Set_Property\r\ndeclare function set_property, fieldcount, center_window, send_event, prod_spec_comm\r\ndeclare function memberof\r\n$insert quote_spec_equ\r\n$insert lsl_common\r\n$insert logical\r\n$insert PS_Equates\r\n\r\n$INSERT MSG_EQUATES\r\n$INSERT SECURITY_RIGHTS_EQU\r\n$INSERT POPUP_EQUATES\r\n$INSERT RDS_EQU\r\n$INSERT REACT_RUN_EQUATES\r\n\r\nEQU CRLF$ TO CHAR(13):CHAR(10)\r\n\r\nEQU SUB_INFO$\tTO 1\r\nEQU EPI_INFO$\tTO 2\r\nEQU ADDL_INFO$\tTO 3\r\nEQU NEW_DEV$\tTO 4\r\nEQU PRE_PROD$\tTO 5\r\n\t\t\t\t\r\nDEBUG\r\nRDSWarnFlag\t\t= FALSE$\r\nSpecInstFlag\t= FALSE$\r\n\r\n\r\nSaveCheckControls = ''\r\n\r\nComm_Prod_Spec_SI('Create',CreateParam)\r\nSet_Property(@WINDOW:'.GROUP_3','ENABLED',0)\r\n\t\r\nSet_Property(@WINDOW, '@HOLDVAR', CreateParam)\r\n\r\nSubstrateInfo = field( CreateParam, char(244), 1 )\r\nEpiInfo = field( CreateParam, char(244), 2 )\r\nAddlInfo = field( CreateParam, char(244), 3 )\r\nNDInfo = field( CreateParam, char(244), 4 )\r\nPPInfo = field( CreateParam, char(244), 5 )\r\n\r\nCONVERT @SVM TO '' IN EpiInfo\r\n\r\n\r\n* WE KNOW THAT WE NO LONGER HAVE SEP LAYERS BUT DO ALLOW SAME LAYERS\r\n* SO COUNT CHAR(248) \r\n\r\nNumLayers = fieldcount(EpiInfo,char(247))\r\nFirstLayer = field( EpiInfo, char(247), 1 )\r\n\r\nButtonText = .same_reactor_button->text\r\n.same_reactor_button->text = fieldcount( FirstLayer, char(248) ):' ':ButtonText\r\n\r\nFirstLayer = field(FirstLayer,char(248),1)\r\n\r\n\r\nVoid = set_property( @window, '@CurSepLayer', 1 )\r\nVoid = set_property( @window, '@EpiInfo', EpiInfo )\r\nVoid = set_property( @window, '@OrigEpiInfo', EpiInfo )\r\n***********************************************************************\r\nControls = 'SUB_ORIENTATION/SUB_TYPE/SUB_WAFERSIZE/SUB_RESISTIVITY/SUB_REST_UNITS/'\r\nControls:= 'SUB_DOPANT/SUB_PRE_CLEAN/SUB_BL1_DOPANT/SUB_BL2_DOPANT/'\r\nControls:= 'SUB_OXIDE/SUB_POST_CLEAN/SUB_BACKSEAL/SUB_WAFERMFG/SUB_SUBSTRATETYPE/'\r\nControls:= 'SUB_INSTRUCTIONS/BLANK_NOT_USED/SUB_WAF_SUP_BY/SPEC_TYPE/SUB_POLISH/SUB_PRODUCTS/'\r\nControls:= 'SUB_BL3_DOPANT/SUB_OXIDE_ANG/PRECLEAN_AKRIONRECIPES/POSTCLEAN_AKRIONRECIPES/SUB_THICKNESS'\r\n\r\n* SUB WAFER MFG HAS BEEN MOVED TO THE PSN MAIN WINDOW TO ALLOW MULTIPLE MFGS FOR DIFFERENT SUB PART NUMS\r\n* 3/6/01 BRYCE MEEK IF ADDING A NEW FIELD TO THIS WINDOW \"SUB_WAFERMFG\" IS AVAIL JUST RENAME\r\n* THE CONTROL \"SUB_WAFERMFG\" ON THE FORM WILL BE SET TO INVISIBLE\r\n\r\nswap '/' with @rm:@window:'.' in Controls\r\nControls = @window:'.':Controls\r\nSaveCheckControls = Controls\r\nVoid = set_property( @window, '@SubControls', Controls )\r\nSubPromptCnt = fieldcount( Controls, @rm )\r\n* so set_property does not propagate\r\nValueCnt = fieldcount( SubstrateInfo, @vm )\r\nif ValueCnt < SubPromptCnt then\r\n SubstrateInfo := str( @vm, SubPromptCnt-ValueCnt - (SubstrateInfo='') )\r\nend\r\n* ok\r\nif SubstrateInfo<1,QSSubProduct$> = '' then\r\n * DEFAULT TO SILICON EPI ON THE PRODUCT\r\n SubstrateInfo<1,QSSubProduct$> = 'SiEpi' \r\nend\r\nif SubstrateInfo<1,QSSubSubstrate$> = '' then\r\n * DEFAULT TO SILICON FOR THE SUBSTRATE\r\n SubstrateInfo<1,QSSubSubstrate$> = 'Silicon'\r\nend\r\nVoid = set_property( @window, '@OrigSubstrateInfo', SubstrateInfo )\r\nconvert @vm to @rm in SubstrateInfo\r\nVoid = set_property( Controls, 'INVALUE', SubstrateInfo )\r\n***********************************************************************\r\n* now load the additional information\r\nControls = 'PROVEIN_INST/STRESS_MEASURE/TRANS_MEASURE/STRESS_MIN/'\r\nControls:= 'STRESS_MAX/TRANS_SPEC/'\r\n\r\nswap '/' with @rm:@window:'.' in Controls\r\nControls = @window:'.':Controls\r\nSaveCheckControls := @rm:@window:'.PROVEIN_INST':@rm:@window:'.STRESS_MEASURE'\r\nSaveCheckControls := @rm:@window:'.TRANS_MEASURE':@rm:@window:'.STRESS_MIN'\r\nSaveCheckControls := @rm:@window:'.STRESS_MAX':@rm:@window:'.TRANS_SPEC'\r\nVoid = set_property( @window, '@AddlControls', Controls )\r\nAddlPromptCnt = fieldcount( Controls, @rm )\r\n* so set_property does not propagate\r\nValueCnt = fieldcount( AddlInfo, @vm )\r\nif ValueCnt < AddlPromptCnt then\r\n AddlInfo := str( @vm, AddlPromptCnt-ValueCnt - (AddlInfo = '') )\r\nend\r\n*\r\nVoid = set_property( @window, '@OrigAddlInfo', AddlInfo )\r\nconvert @vm to @rm in AddlInfo\r\nVoid = set_property( Controls, 'INVALUE', AddlInfo )\r\n\r\n\r\n***********************************************************************\t\t\t\r\n\r\n* now load the EPI specific prompts\r\n\r\nControls = 'EPI_CONC_MIN_THICK/EPI_CONC_MAX_THICK/EPI_CONC_UNITS/'\r\nControls:= 'EPI_RES_MIN_THICK/EPI_RES_MAX_THICK/EPI_RES_UNITS/EPI_MIN_THICK/'\r\nControls:= 'EPI_MAX_THICK/EPI_THICK_UNITS/EPI_DOPANT/EPI_RECIPE/EPI_RECIPE_NAME/'\r\nControls:= 'EPI_THICKMEASURE/EPI_RESMEASURE/EPI_CONMEASURE'\r\n\r\nswap '/' with @rm:@window:'.' in Controls\r\nControls = @window:'.':Controls\r\nSaveCheckControls = Controls:@rm:SaveCheckControls\r\nVoid = set_property( @window, '@EpiControls', Controls )\r\n\r\nEpiPromptCnt = fieldcount( Controls, @rm )\r\nVoid = set_property( @window, '@EpiPromptCnt', EpiPromptCnt )\r\nValueCnt = fieldcount( FirstLayer, @vm )\r\n* so set_property does not propagate\r\nif ValueCnt < EpiPromptCnt then\r\n FirstLayer := str( @vm, EpiPromptCnt-ValueCnt - (FirstLayer = '') )\r\nend\r\n* ok\r\nconvert @vm to @rm in FirstLayer\r\nVoid = set_property( Controls, 'INVALUE':@rm:'INVALUE':@rm:'INVALUE', FirstLayer )\r\nVoid = set_property( @window, '@SaveCheckControls', SaveCheckControls )\r\nVoid = set_property( @window, '@SaveCheckControlData', get_property( SaveCheckControls, 'INVALUE' ) )\r\n*\r\n***********************************************************************\t\t\t\r\n* now load the new development specific prompts\r\nControls = 'ND_INST_OBS/ND_EXP_PLAN/ND_TEST_RESULTS/ND_SPECIAL_INST'\r\nswap '/' with @rm:@window:'.' in Controls\r\nControls = @window:'.':Controls\r\nVoid = set_property( @window, '@NDControls', Controls )\r\nNDPromptCnt = fieldcount( Controls, @rm )\r\nVoid = set_property( @window, '@NDPromptCnt', NDPromptCnt )\r\nValueCnt = fieldcount( NDInfo, @vm )\r\n* so set_property does not propagate\r\nif ValueCnt < NDPromptCnt then\r\n NDInfo := str( @vm, NDPromptCnt-ValueCnt - (NDInfo = '') )\r\nend\r\nVoid = set_property( @window, '@OrigNDInfo', NDInfo )\r\nconvert @vm to @rm in NDInfo\r\nVoid = set_property( Controls, 'INVALUE', NDInfo )\r\n***********************************************************************\r\n* now load the pre production specific prompts\r\nControls = 'PP_INST_OBS/PP_SPECIAL_INST/PP_PROVEIN_INST'\r\nswap '/' with @rm:@window:'.' in Controls\r\nControls = @window:'.':Controls\r\nVoid = set_property( @window, '@PPControls', Controls )\r\nPPPromptCnt = fieldcount( Controls, @rm )\r\nVoid = set_property( @window, '@PPPromptCnt', PPPromptCnt )\r\nValueCnt = fieldcount( PPInfo, @vm )\r\n* so set_property does not propagate\r\nif ValueCnt < PPPromptCnt then\r\n PPInfo := str( @vm, PPPromptCnt-ValueCnt - (PPInfo = '') )\r\nend\r\nVoid = set_property( @window, '@OrigPPInfo', PPInfo )\r\nconvert @vm to @rm in PPInfo\r\nVoid = set_property( Controls, 'INVALUE', PPInfo )\r\n***********************************************************************\r\nset_list_box_data( @window )\r\n\r\nvoid = Set_Property(@WINDOW:'.EPI_CONC_UNITS','LIST','cm-3')\r\nvoid = Set_Property(@WINDOW:'.EPI_RES_UNITS','LIST','ê-cm':@FM:'ê/Ãœ')\r\nvoid = Set_Property(@WINDOW:'.EPI_THICK_UNITS','LIST','æm':@FM:'')\r\n\r\n\r\nif get_property( 'PROD_SPEC', 'QBFLIST' ) <> '' then\r\n .spec_prev_fix->enabled = 1\r\n .spec_next_fix->enabled = 1\r\nend\r\nif .pre_qual_signature->text = '' then\r\n .spec_type->value = ''\r\nend\r\nreturn 0\r\n\r\n*=============================================================================*\r\nTabSetup:\r\n\t* tab controls must start with \"PAGE_\" and end with \"_TAB\" with a number in\r\n\t* between representing the page number associated with the tab\r\n\tequ TAB_PREFIX$ to \"PAGE_\"\r\n\tequ TAB_SUFFIX$ to \"_TAB\"\r\n\r\n\t* any control that should appear on all pages should end with \"_FIX\"\r\n\tequ FIX_SUFFIX$ to \"_FIX\"\r\n\r\n\t* put up hourglass during processing\r\n\tUtility(\"CURSOR\", \"H\")\r\n\r\n\t* build list of properties to set; setting multiple properties at once is\r\n\t* faster than setting them individually\r\n\tCtrls = \"\"\r\n\tProps = \"\"\r\n\tVals = \"\"\r\n\r\n\t* get list of all controls on the window\r\n\tCtrlList = Get_Property(@window, \"CTRLMAP\")\r\n\tcCtrls = count(CtrlList, @fm) + (CtrlList # \"\")\r\n\tTabList = \"\"\r\n\r\n\tfor iCtrl = 1 to cCtrls\r\n\t Ctrl = CtrlList\r\n\r\n\t * is the control \"fixed\"? (ie. should it appear on every page)\r\n\t if Ctrl [neg(len(FIX_SUFFIX$)), len(FIX_SUFFIX$)] = FIX_SUFFIX$ then\r\n\t * by setting the list of pages to \"-1\", the control will appear on each page\r\n\t Ctrls := Ctrl : @rm\r\n\t Props := \"PAGELIST\": @rm\r\n\t Vals := -1 : @rm\r\n\t end\r\n\r\n\t * is the control a tab?\r\n\t if Ctrl [index(Ctrl, \".\", 1) + 1, len(TAB_PREFIX$)] = TAB_PREFIX$ and Ctrl [neg(len(TAB_SUFFIX$)), len(TAB_SUFFIX$)] = TAB_SUFFIX$ then\r\n\t * build a list of tabs (all tab processing is done later)\r\n\t TabList<-1> = Ctrl\r\n\t end\r\n\tnext iCtrl\r\n\r\n\t* get control structures and tab order for each of the tabs\r\n\tconvert @fm to @rm in TabList\r\n\tcTabs = count(TabList, @rm) + (TabList # \"\")\r\n\tList = Get_Property(TabList: @rm: TabList: @rm: TabList, str(\"ORIG_STRUCT\": @rm, cTabs): str(\"PREVIOUS\": @rm, cTabs): str(@rm: \"NEXT\", cTabs) [2,9999])\r\n\tStructList = field(List, @rm, 1, cTabs)\r\n\tPrevList = field(List, @rm, cTabs + 1, cTabs)\r\n\tNextList = field(List, @rm, cTabs * 2 + 1, cTabs)\r\n\tconvert @rm to @fm in TabList\r\n\tconvert @rm to @fm in StructList\r\n\tconvert @rm to @fm in PrevList\r\n\tconvert @rm to @fm in NextList\r\n\r\n\t* page tab processing\r\n\tfor iTab = 1 to cTabs\r\n\t Tab = TabList\r\n\r\n\t * page tabs require two pieces of work to be done:\r\n\t * (1) the tab is placed on the form as a check-box; a check-box has an\r\n\t * \"up\" (off) and a \"down\" (on) state but it is not related to any\r\n\t * other controls (the other tabs); to relate the tabs such that only\r\n\t * one can be \"down\" at a time, each tab must be destroyed and recreated\r\n\t * as a radio button (only one radio button can be selected at a time);\r\n\t * (2) each page has a circular tab order; this means that you tab from the\r\n\t * page tab to the first control on the page through the last control on\r\n\t * the page and back to the page tab; since you can not set up multiple\r\n\t * separate tab orders using the form designer, you must specify the tab\r\n\t * order in the form designer in the following manner: page-tab 1,\r\n\t * controls on page 1, page-tab 2, controls on page 2, etc.; this event\r\n\t * handler will then dynamically rearrange the tabs\r\n\r\n\t * destroy checkbox\r\n\t Utility(\"DESTROY\", Tab)\r\n\r\n\t * change structure to specify radio button\r\n\t StructList = PSCTL_RADIOBMP$\r\n\t StructList = (iTab = 1)\r\n\r\n\t * after the new tab (radio button) is created, set it to clip its image,\r\n\t * draw the tab \"label\", and appear on every page\r\n\t Ctrls := Tab : @rm: Tab : @rm: Tab : @rm\r\n\t Props := \"IMAGECLIP\": @rm: \"DRAWTEXT\": @rm: \"PAGELIST\": @rm\r\n\t Vals := 1 : @rm: 1 : @rm: -1 : @rm\r\n\r\n\t * re-arrange tab order\r\n\t * the first control on page n (where n is the page represented by the tab\r\n\t * control being processed) is the NEXT property of the tab; the last control\r\n\t * on page (n-1) is the PREVIOUS property of the tab except if n=1 then the\r\n\t * PREVIOUS property represents the last control on the last page of the form\r\n\t if iTab = cTabs then\r\n\t NextPage = 1\r\n\t end else\r\n\t NextPage = iTab + 1\r\n\t end\r\n\r\n\t * circularly link the tabs with their pages\r\n\t Ctrls := Tab : @rm: Tab : @rm\r\n\t Props := \"PREVIOUS\" : @rm: \"NEXT\" : @rm\r\n\t Vals := PrevList: @rm: NextList: @rm\r\n\tnext iTab\r\n\r\n\t* create radio buttons to replace checkboxes\r\n\tUtility(\"CREATE\", StructList)\r\n\r\n\t* set min-scroll pos equal to max scroll pos to hide scroll bar\r\n\tVPos = 1: @fm: 1: @fm: 1\r\n\r\n\t* hide the scroll bar, make the window visible, and start on the first page\r\n\tCtrls := @window : @rm: @window : @rm: \"SYSTEM\"\r\n\tProps := \"VPOSITION\": @rm: \"VISIBLE\": @rm: \"FOCUS\"\r\n\tVals := VPos : @rm: TRUE$ : @rm: TabList<1>\r\n\r\n\t* set all properties at once\r\n\tVoid = Set_Property(Ctrls, Props, Vals)\r\n \r\n Void = send_event( @window, 'CLEAR' )\r\n\t* restore cursor\r\n\tUtility(\"CURSOR\", \"A\")\r\nreturn\r\n*=============================================================================*" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/PROD_SPEC_SI2..json b/LSL2/OIEVENT/CREATE/PROD_SPEC_SI2..json new file mode 100644 index 0000000..60f6d38 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/PROD_SPEC_SI2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data\r\ndeclare function set_property, fieldcount\r\n$insert quote_spec_equ\r\n\r\nEpiInfo = field( CreateParam, char(244), 1 )\r\nTitle = field( CreateParam, char(244), 2 )\r\nCurTitle = get_property( @window, 'TEXT' )\r\nCurTitle:= ' ':Title\r\nVoid = set_property( @window, 'TEXT', CurTitle )\r\nconvert @svm to @fm in EpiInfo ;* for the conc mv mess\r\nif EpiInfo = '' then \r\n EpiInfo = @fm:@rm:@fm; * for conc mess\r\nend\r\nNumLayers = fieldcount( EpiInfo, char(248) )\r\n.same_reactor_layer_desc->text = '1 of ':NumLayers\r\nFirstLayer = field( EpiInfo, char(248), 1 )\r\nVoid = set_property( @window, '@CurSameLayer', 1 )\r\nVoid = set_property( @window, '@EpiInfo', EpiInfo )\r\nVoid = set_property( @window, '@OrigEpiInfo', EpiInfo )\r\n\r\n* now load the EPI specific prompts\r\nControls = 'EPI_CONC_MIN_THICK/EPI_CONC_MAX_THICK/EPI_CONC_UNITS/'\r\nControls:= 'EPI_RES_MIN_THICK/EPI_RES_MAX_THICK/EPI_RES_UNITS/'\r\nControls:= 'EPI_MIN_THICK/EPI_MAX_THICK/EPI_THICK_UNITS/EPI_DOPANT/EPI_RECIPE_NO/EPI_RECIPE_NAME/'\r\nControls:= 'EPI_THICKMEASURE/EPI_RESMEASURE/EPI_CONMEASURE'\r\n* EPI_RECIPE_NO AND EPI_RECIPE_NAME ARE NOT USED ON SAME REACTOR LAYERS BUT THEY\r\n* ARE THERE AS TO KEEP THE POSITIONAL EQUATES THE SAME BETWEEN SAME AND SEPERATE REACTOR LAYERS\r\n* THEY ARE INVISIBLE FIELDS ON THIS WINDOW\r\nswap '/' with @rm:@window:'.' in Controls\r\nControls = @window:'.':Controls\r\nVoid = set_property( @window, '@EpiControls', Controls )\r\nEpiPromptCnt = fieldcount( Controls, @rm )\r\nVoid = set_property( @window, '@EpiPromptCnt', EpiPromptCnt )\r\nValueCnt = fieldcount( FirstLayer, @vm )\r\n* so set_property does not propagate\r\nif ValueCnt < EpiPromptCnt then\r\n FirstLayer := str( @vm, EpiPromptCnt-ValueCnt-1 )\r\nend\r\n* ok\r\nconvert @vm to @rm in FirstLayer\r\nVoid = set_property( Controls, 'LIST':@rm:'LIST':@rm:'INVALUE', FirstLayer )\r\n\r\nset_list_box_data( @window )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/PROD_SPEC_SI3..json b/LSL2/OIEVENT/CREATE/PROD_SPEC_SI3..json new file mode 100644 index 0000000..dc1dd6b --- /dev/null +++ b/LSL2/OIEVENT/CREATE/PROD_SPEC_SI3..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert recipe_equ\r\ndeclare subroutine set_list_box_data\r\ndeclare function center_window\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nSurfaceInfo = field( CreateParam, char(245), 1 )\r\nNotes = field( CreateParam, char(245), 2 )\r\n.surface_notes->text = Notes\r\nBL = field( CreateParam, char(245), 3 )\r\n\r\nControls = 'PRE_PITS/PRE_MOUNDS/PRE_BL_DEFECTS/PRE_SPOTS/PRE_FOV/PRE_SCRATCHES/PRE_SCRATCH_LEN/PRE_LPD/'\r\nControls := 'PRE_BRIGHTLIGHT/PRE_SURFSCAN/PRE_SURFSCAN_RECIPE/PRE_MICROSCOPE/PRE_SURFSCAN_DEFECTS/PRE_SURFSCAN_HAZE/POST_PITS/POST_MOUNDS/'\r\nControls := 'POST_BL_DEFECTS/POST_STACK_FAULTS/POST_SPOTS/POST_FOV/POST_SPIKES/POST_SCRATCHES/'\r\nControls := 'POST_SCRATCH_LEN/POST_LPD/POST_BRIGHTLIGHT/POST_SURFSCAN/POST_SURFSCAN_RECIPE/'\r\nControls := 'POST_MICROSCOPE/POST_SURFSCAN_DEFECTS/POST_SURFSCAN_HAZE/CLEAN_BRIGHTLIGHT/CLEAN_SURFSCAN/CLEAN_SURFSCAN_RECIPE/CLEAN_SURFSCAN_DEFECTS/CLEAN_SURFSCAN_HAZE/'\r\nControls := 'FWI_LWI'\r\n\r\nswap '/' with @rm:@window:'.' in Controls\r\n\r\nControls = @window:'.':Controls\r\nconvert @fm to @rm in SurfaceInfo\r\n\r\nvoid = set_property( Controls, 'INVALUE', SurfaceInfo )\r\nVoid = set_property( @window, '@Controls', Controls )\r\n\r\nset_list_box_data(CtrlEntId)\r\n\r\nif BL then\r\n .pre_epi_v->enabled = 0\r\n .post_epi_v->enabled = 0\r\nend else\r\n .pre_epi_bl->enabled = 0\r\n .post_epi_bl->enabled = 0\r\nend \r\n\r\nSurfScanRecipes = xlate( 'LISTBOX_CONFIG', 'SURFSCAN_RECIPES', '', 'X' )\r\nconvert @vm to @fm in SurfScanRecipes\r\n.pre_surfscan_recipe->list = SurfScanRecipes\r\n.post_surfscan_recipe->list = SurfScanRecipes\r\n.clean_surfscan_recipe->list = SurfScanRecipes\r\n\r\nPreSurfscan = .pre_surfscan->check\r\nPostSurfscan = .post_surfscan->check\r\nCleanSurfscan = .clean_surfscan->check\r\n\r\n.pre_surfscan_recipe->enabled = ( PreSurfscan )\r\n.pre_surfscan_defects->enabled = ( PreSurfscan )\r\n.pre_surfscan_haze->enabled = ( PreSurfscan )\r\n.post_surfscan_recipe->enabled = ( PostSurfscan )\r\n.post_surfscan_defects->enabled = ( PostSurfscan )\r\n.post_surfscan_haze->enabled = ( PostSurfscan )\r\n.clean_surfscan_recipe->enabled = ( .clean_surfscan->check )\r\n.clean_surfscan_recipe->enabled = ( CleanSurfscan )\r\n.clean_surfscan_defects->enabled = ( CleanSurfscan )\r\n.clean_surfscan_haze->enabled = ( CleanSurfscan )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/PROD_SPEC_SI4..json b/LSL2/OIEVENT/CREATE/PROD_SPEC_SI4..json new file mode 100644 index 0000000..b031060 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/PROD_SPEC_SI4..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$INSERT RECIPE_EQU\r\n\r\nDECLARE SUBROUTINE Set_List_Box_data, Set_Property\r\nDECLARE FUNCTION Center_Window, Prod_Spec_Comm\r\n\r\nEQU MI$TOOL\t\t\tTO 1\r\nEQU MI$TYPE\t\t\tTO 2\r\nEQU MI$RECIPE\t\tTO 3\r\nEQU MI$FREQ\t\t\tTO 4\r\nEQU MI$PROVE_TYPE\tTO 5\r\nEQU MI$FIRST_CHECK\tTO 6\r\nEQU MI$LAST_CHECK\tTO 7\r\nEQU MI$SPC\t\t\tTO 8\r\nEQU MI$OVERGROW\t\tTO 9\r\nEQU MI$EXP_TW_QTY\tTO 10\r\nEQU MI$PATTERN\t\tTO 11\r\n\r\nIF INDEX( CreateParam, 'CENTER', 1 ) THEN\r\n void = center_window( @window )\r\nEND ELSE\r\n Void = Set_Property( @window, 'VISIBLE', 1 )\r\nEND\r\n\r\nMeasureInfo\t= FIELD( CreateParam, CHAR(245), 1 )\t\t;* 1st passed parameter\r\n\r\nCtrls = @WINDOW:'.TOOL':@RM\t\t\t\t; Props = 'TEXT':@RM\t\t; Vals = FIELD(MeasureInfo,'~',MI$TOOL):@RM\r\nCtrls := @WINDOW:'.TYPE':@RM\t\t\t\t; Props := 'TEXT':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$TYPE):@RM\r\nCtrls := @WINDOW:'.RECIPE':@RM\t\t\t\t; Props := 'TEXT':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$RECIPE):@RM\r\nCtrls := @WINDOW:'.FREQ':@RM\t\t\t\t; Props := 'TEXT':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$FREQ):@RM\r\nCtrls := @WINDOW:'.PROVE_TYPE':@RM\t\t\t; Props := 'TEXT':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$PROVE_TYPE):@RM\r\nCtrls := @WINDOW:'.FIRST_CHECK':@RM\t\t\t; Props := 'CHECK':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$FIRST_CHECK):@RM\r\nCtrls := @WINDOW:'.LAST_CHECK':@RM\t\t\t; Props := 'CHECK':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$LAST_CHECK):@RM\r\nCtrls := @WINDOW:'.SPC':@RM\t\t\t\t\t; Props := 'CHECK':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$SPC):@RM\r\nCtrls := @WINDOW:'.OVERGROW':@RM\t\t\t; Props := 'CHECK':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$OVERGROW):@RM\r\nCtrls := @WINDOW:'.EXPECTED_TW_QTY':@RM\t\t; Props := 'TEXT':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$EXP_TW_QTY):@RM\r\nCtrls := @WINDOW:'.PATTERN'\t\t\t\t\t; Props := 'TEXT'\t\t\t; Vals := FIELD(MeasureInfo,'~',MI$PATTERN)\r\n\r\nSet_Property(Ctrls,Props,Vals)\r\nSet_Property(@WINDOW, '@Controls',Ctrls)\r\nSet_Property(@WINDOW, '@Props',Props)\r\n\r\nType = FIELD(CreateParam,CHAR(245),2)\t\t;* 2nd passed parameter\r\n\r\nIF Type = 'RES' THEN\r\n\tvoid = Set_Property(@WINDOW:'.OVERGROW','VISIBLE',1)\r\nEND ELSE\r\n\tvoid = Set_Property(@WINDOW:'.OVERGROW','VISIBLE',0)\r\nEND\r\n\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN DEBUG\r\n\r\nTypeOut = FIELD(CreateParam,CHAR(245),3)\t\t\t;* 3rd passed parameter\r\n\r\nTitle = Get_Property(@WINDOW,'TEXT')\r\nTitle := TypeOut:' ':Title\r\nSet_Property(@WINDOW,'TEXT',Title)\r\n\r\nSet_List_Box_Data(CtrlEntId)\r\n\r\n\r\nToolList = XLATE('LISTBOX_CONFIG',Type:'MEASURETOOL','','X')\r\nCONVERT @VM TO @FM IN ToolList\r\nSet_Property(@WINDOW:'.TOOL','LIST',ToolList)\r\n\r\nTool = Get_Property(@WINDOW:'.TOOL', 'TEXT' )\r\nCONVERT @LOWER_CASE TO @UPPER_CASE IN Tool\r\n\r\nRecipeList = XLATE( 'LISTBOX_CONFIG', Tool:'_RECIPES', '', 'X' )\r\nCONVERT @VM To @FM IN RecipeList\r\n\r\nIF RecipeList NE '' THEN\r\n\tSet_Property(@WINDOW:'.RECIPE','LIST',RecipeList)\r\nEND\r\n\r\nRETURN 1\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/PROD_SPEC_SI5..json b/LSL2/OIEVENT/CREATE/PROD_SPEC_SI5..json new file mode 100644 index 0000000..b676e04 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/PROD_SPEC_SI5..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert recipe_equ\r\ndeclare subroutine set_list_box_data\r\ndeclare function center_window, prod_spec_comm\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nPreCleanAkrion = field( CreateParam, char(245), 1 )\r\nPostCleanAkrion = field( CreateParam, char(245), 2 )\r\nRecipeInfo = PreCleanAkrion:@rm:PostCleanAkrion\r\nControls = 'PRECLEAN_AKRIONRECIPES/POSTCLEAN_AKRIONRECIPES'\r\nswap '/' with @rm:@window:'.' in Controls\r\nControls = @window:'.':Controls\r\nvoid = set_property( Controls, 'TEXT', RecipeInfo )\r\nVoid = set_property( @window, '@Controls', Controls )\r\nset_list_box_data(CtrlEntId)\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/P_NAMES..json b/LSL2/OIEVENT/CREATE/P_NAMES..json new file mode 100644 index 0000000..cd51a40 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/P_NAMES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data\r\ndeclare function center_window\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nset_list_box_data( @window )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/QUARTZ_TC_LOG..json b/LSL2/OIEVENT/CREATE/QUARTZ_TC_LOG..json new file mode 100644 index 0000000..dc6c178 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/QUARTZ_TC_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .tc_no->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .tc_no->text = Keys\r\n Void = send_event( @window:'.TC_NO', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'Quartz TC Log', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Quartz TC Log', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Quartz TC Log', Edit$ ) else\r\n security_err_msg( 'Quartz TC Log', Edit$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/QUARTZ_WAND_LOG..json b/LSL2/OIEVENT/CREATE/QUARTZ_WAND_LOG..json new file mode 100644 index 0000000..9f030f5 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/QUARTZ_WAND_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n$insert reactor_log_equ\r\n\r\n* JOHN PULL OF 3RD * PARAM SET TO A VARIABLE\r\nReactorLogID = field( CreateParam, '*', 3 )\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\n* IF 3RD PARAM THEN WE KNOW THAT IT WAS CALLED FROM REACTOR LOG SO THERE WILL NOT BE ANY KEYS CAUSE WE WILL NOT CALL\r\n* THIS WINDOW THAT WAY\r\nIF ReactorLogID Then\r\n\t* XLATE THE ROW FROM REACTOR_LOG\r\n\tReactorLogRecord = XLATE(\"REACTOR_LOG\",ReactorLogID,\"\",\"X\")\r\n\t* IF IT IS THERE THEN\r\n\tif ( ReactorLogRecord <> '' ) Then\r\n\t\tVoid = send_event( @window:'.WAND_LOG_NO', 'GOTFOCUS', '' )\t\r\n\t\t* SEND_EVENT TO THE WAND_LOG_NO LOSTFOCUS WHICH WILL FORCE THE READ\r\n\t\tVoid = send_event( @window:'.WAND_LOG_NO', 'LOSTFOCUS', '' )\r\n\t\t* SET THE REACTOR_LOG_ID->TEXT TO THE VAR\r\n\t\t.reactor_log_id->text = ReactorLogID\r\n\t\t* SET THE REACTOR\r\n\t\t.reactor->text = ReactorLogRecord\r\n\t\t* SET THE FOCUS TO THE REPLACEMENT REASON\r\n Void = set_property( \"SYSTEM\", \"FOCUS\", @window:'.WANDREPLACEMENTREASON' )\t \t\t\r\n\tend\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .wand_log_no->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .wand_log_no->text = Keys\r\n Void = send_event( @window:'.WAND_LOG_NO', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'Quartz Wand Log', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Quartz Wand Log', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Quartz Wand Log', Edit$ ) else\r\n security_err_msg( 'Quartz Wand Log', Edit$ )\r\nend\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/QUOTE..json b/LSL2/OIEVENT/CREATE/QUOTE..json new file mode 100644 index 0000000..ef777f7 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/QUOTE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property, security_check, end_window, send_event\r\ndeclare function center_window, getwindow, fieldcount\r\ndeclare subroutine set_list_box_data, security_err_msg, rlist, sendmessage\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n\r\nVoid = set_property( @window, '@ChoosingMultiPSN', false$ )\r\n* FLAG IF SET TO TRUE WILL SET ARRAY PROPERTY OF PREV_PSNS OTHERWISE WILL SET PROD_SPEC_ID\r\n* THIS FLAG IS CHECKED FROM THE PROD_SPEC WINDOW CLICK EVENT FOR RETURN PSN TO QUOTE\r\nif index( CreateParam, 'Choosing', 1 ) or index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nVoid = set_property( @window, '@CUST_NO', '' )\r\nif index( CreateParam,'Choosing', 1 ) then\r\n PrevWindow = field( CreateParam, '*', 3 )\r\n Void = set_property( @window, '@PrevWindow', PrevWindow )\r\n .ret_quote_button->visible = 1\r\n Ttext = .ret_quote_button->text\r\n Ttext := ' ':PrevWindow\r\n .ret_quote_button->text = Ttext\r\nend \r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n\t * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 ) \r\n\t .quote_no->text = Keys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .quote_no->text = Keys\r\n Voic = send_event( @window:'.QUOTE_NO', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'Quote', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Quote', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Quote', Edit$ ) else\r\n security_err_msg( 'Quote', Edit$ )\r\nend\r\nVoid = set_property( @window, '@NoRead', 0 )\r\n.sigs_req_text->text = xlate( 'CONFIG', 'QUOTE_SIGS', 3, 'X' )+0 \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/QUOTE_OLD..json b/LSL2/OIEVENT/CREATE/QUOTE_OLD..json new file mode 100644 index 0000000..16a842b --- /dev/null +++ b/LSL2/OIEVENT/CREATE/QUOTE_OLD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property, security_check, end_window, send_event\r\ndeclare function center_window, getwindow, fieldcount\r\ndeclare subroutine set_list_box_data, security_err_msg, rlist\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n\r\nif index( CreateParam, 'Choosing', 1 ) or index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nVoid = set_property( @window, '@CUST_NO', '' )\r\nif index( CreateParam,'Choosing', 1 ) then\r\n PrevWindow = field( CreateParam, '*', 3 )\r\n Void = set_property( @window, '@PrevWindow', PrevWindow )\r\n .ret_quote_button->visible = 1\r\n Ttext = .ret_quote_button->text\r\n Ttext := ' ':PrevWindow\r\n .ret_quote_button->text = Ttext\r\nend \r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n\t * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 ) \r\n\t .quote_no->text = Keys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .quote_no->text = Keys\r\n Voic = send_event( @window:'.QUOTE_NO', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'Quote', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Quote', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Quote', Edit$ ) else\r\n security_err_msg( 'Quote', Edit$ )\r\nend\r\nVoid = set_property( @window, '@NoRead', 0 )\r\n.sigs_req_text->text = xlate( 'CONFIG', 'QUOTE_SIGS', 3, 'X' )+0 \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/QUOTE_RPT1..json b/LSL2/OIEVENT/CREATE/QUOTE_RPT1..json new file mode 100644 index 0000000..026a253 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/QUOTE_RPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Quote', Print$ ) else\r\n security_err_msg( 'Quote', Print$ )\r\n end_dialog( @window, '' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/QUOTE_SIG_PWD_ENTRY..json b/LSL2/OIEVENT/CREATE/QUOTE_SIG_PWD_ENTRY..json new file mode 100644 index 0000000..be5bd0f --- /dev/null +++ b/LSL2/OIEVENT/CREATE/QUOTE_SIG_PWD_ENTRY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\nDeclare subroutine SRP_Show_Window\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN\r\n\tCreateParam = 'BRYCE_BARB':@VM:''\r\nEND\r\n\r\nVoid = set_property( @window, '@PINFO', CreateParam )\r\nSRP_Show_Window(@Window, '', 'C', 'C', 1, '', 0, 0)\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/QUOTE_SPEC_INFO..json b/LSL2/OIEVENT/CREATE/QUOTE_SPEC_INFO..json new file mode 100644 index 0000000..7eab10e --- /dev/null +++ b/LSL2/OIEVENT/CREATE/QUOTE_SPEC_INFO..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data\r\ndeclare function set_property, fieldcount, center_window\r\n$insert quote_spec_equ\r\n$insert lsl_common\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n Void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nDetailLine = field( CreateParam, char(244), 1 )\r\n.quote_detail_line->array = DetailLine\r\nSubstrateInfo = field( CreateParam, char(244), 2 )\r\nAllEpiInfo = field( CreateParam, char(244), 3 )\r\nEpiInfo = field( AllEpiInfo, char(245), 1 )\r\nOtherEpiInfo = field( AllEpiInfo, char(245), 2 )\r\nconvert @svm to @fm in EpiInfo ;* for the conc mv mess\r\nif EpiInfo = '' then \r\n EpiInfo = @fm:@rm:@fm; * for conc mess\r\nend\r\nNumLayers = fieldcount( EpiInfo, char(247) )\r\nButText = .same_reactor_button->text\r\nButText := ' 1'\r\n.same_reactor_button->text = ButText\r\n.sep_reactor_layer_desc->text = '1 of ':NumLayers\r\nFirstLayer = field( EpiInfo, char(247), 1 )\r\nFirstLayer = field( FirstLayer, char(248), 1 )\r\nVoid = set_property( @window, '@CurSepLayer', 1 )\r\nVoid = set_property( @window, '@EpiInfo', EpiInfo )\r\nVoid = set_property( @window, '@OrigEpiInfo', EpiInfo )\r\n\r\n* first load the substrate specific prompts\r\nControls = 'SUB_ORIENTATION/SUB_TYPE/SUB_WAFERSIZE/SUB_RESISTIVITY/SUB_REST_UNITS/'\r\nControls:= 'SUB_DOPANT/SUB_PRE_CLEAN/SUB_BL1_DOPANT/SUB_BL2_DOPANT/'\r\nControls:= 'SUB_OXIDE/SUB_POST_CLEAN/SUB_RADIAL_GRADIENT_RES/'\r\nControls:= 'SUB_CARBON/SUB_DIS_DENSITY/SUB_INSTRUCTIONS/SUB_OTHER_SPECS/'\r\nswap '/' with @rm:@window:'.' in Controls\r\nControls = @window:'.':Controls\r\nVoid = set_property( @window, '@SubControls', Controls )\r\nSubPromptCnt = fieldcount( Controls, @rm )\r\n* so set_property does not propagate\r\nValueCnt = fieldcount( SubstrateInfo, @vm )\r\nif ValueCnt < SubPromptCnt then\r\n SubstrateInfo := str( @vm, SubPromptCnt-ValueCnt-1 )\r\nend\r\n* ok\r\nVoid = set_property( @window, '@OrigSubstrateInfo', SubstrateInfo )\r\nconvert @vm to @rm in SubstrateInfo\r\nVoid = set_property( Controls, 'INVALUE', SubstrateInfo )\r\n\r\n* now load the EPI specific prompts\r\nControls = 'EPI_CONC_MIN_THICK/EPI_CONC_MAX_THICK/EPI_CONC_UNITS/'\r\nControls:= 'EPI_RES_MIN_THICK/EPI_RES_MAX_THICK/EPI_RES_UNITS/EPI_MIN_THICK/'\r\nControls:= 'EPI_MAX_THICK/EPI_THICK_UNITS/EPI_DOPANT/EPI_RECIPE/EPI_RECIPE_NAME'\r\nswap '/' with @rm:@window:'.' in Controls\r\nControls = @window:'.':Controls\r\nVoid = set_property( @window, '@EpiControls', Controls )\r\nEpiPromptCnt = fieldcount( Controls, @rm )\r\nVoid = set_property( @window, '@EpiPromptCnt', EpiPromptCnt )\r\nValueCnt = fieldcount( FirstLayer, @vm )\r\n* so set_property does not propagate\r\nif ValueCnt < EpiPromptCnt then\r\n FirstLayer := str( @vm, EpiPromptCnt-ValueCnt-1 )\r\nend\r\n* ok\r\nconvert @vm to @rm in FirstLayer\r\nVoid = set_property( Controls, 'LIST':@rm:'LIST':@rm:'INVALUE', FirstLayer )\r\n*\r\n* now load the other EPI specific prompts\r\nControls = 'OEPI_THICKMEASURE/OEPI_RESMEASURE/'\r\nControls:= 'OEPI_THICK_TOL/OEPI_THICK_WWTOL/OEPI_RES_TOL/OEPI_RES_WWTOL/'\r\nControls:= 'OEPI_DOP_TRANS/OEPI_LPDEF/OEPI_SLIP/OEPI_STACK_FAULTS/'\r\nControls:= 'OEPI_STRESS/OEPI_EDGE_CROWN/OEPI_M_CONTAM'\r\nswap '/' with @rm:@window:'.' in Controls\r\nControls = @window:'.':Controls\r\nVoid = set_property( @window, '@OtherEpiControls', Controls )\r\nOEpiPromptCnt = fieldcount( Controls, @rm )\r\nValueCnt = fieldcount( OtherEpiInfo, @vm )\r\n* so set_property does not propagate\r\nif ValueCnt < OEpiPromptCnt then\r\n OtherEpiInfo := str( @vm, OEpiPromptCnt-ValueCnt-1 )\r\nend\r\n* ok\r\nVoid = set_property( @window, '@OrigOtherEpiInfo', OtherEpiInfo )\r\nconvert @vm to @rm in OtherEpiInfo\r\nVoid = set_property( Controls, 'INVALUE', OtherEpiInfo )\r\n\r\nset_list_box_data( @window )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/QUOTE_SRL..json b/LSL2/OIEVENT/CREATE/QUOTE_SRL..json new file mode 100644 index 0000000..45e6cd4 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/QUOTE_SRL..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property, security_check, end_window, send_event\r\ndeclare function center_window, getwindow, fieldcount\r\ndeclare subroutine set_list_box_data, security_err_msg, rlist, sendmessage\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\nequ QbfOccurred$ to 1126\r\n\r\nif Misc@ or index( CreateParam, 'Choosing', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nVoid = set_property( @window, '@CUST_NO', '' )\r\nif index( CreateParam,'Choosing', 1 ) then\r\n PrevWindow = field( CreateParam, '*', 3 )\r\n Void = set_property( @window, '@PrevWindow', PrevWindow )\r\n .ret_quote_button->visible = 1\r\n Ttext = .ret_quote_button->text\r\n Ttext := ' ':PrevWindow\r\n .ret_quote_button->text = Ttext\r\nend \r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n\t * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t WndHnd = get_property( @window, 'HANDLE' )\r\n\t HbBar = getwindow( WndHnd, 5 )\r\n\t sendmessage( HbBar, QbfOccurred$, 0, 0 )\r\n\t Void = set_property( @window, '@NoRead', 1 ) \r\n\t .quote_no->text = Keys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .quote_no->text = Keys\r\n Voic = send_event( @window:'.QUOTE_NO', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'Quote SRL', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Quote SRL', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Quote SRL', Edit$ ) else\r\n security_err_msg( 'Quote SRL', Edit$ )\r\nend\r\nVoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/RDS..json b/LSL2/OIEVENT/CREATE/RDS..json new file mode 100644 index 0000000..9af44ae --- /dev/null +++ b/LSL2/OIEVENT/CREATE/RDS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg, Comm_RDS\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n\r\nVoid = set_property( @window, '@CurQuery', '' )\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif index( CreateParam, 'CALLVERIFICATION', 1 ) then\r\n * USED AS A FLAG ON READ AS TO AUTOMATICALLY CALL THE WORK ORDER VERIFICATION NUMBER\r\n Void = set_property( @window, '@CALLVERIFICATION', 1 )\r\nend else\r\n Void = set_property( @window, '@CALLVERIFICATION', '' )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n\t * need to send to qbf\r\n\t\tconvert @vm to @fm in Keys\r\n\t\tVoid = set_property( @window, 'QBFLIST', Keys ) \r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .rds_no->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\tend else\r\n\t .rds_no->text = Keys\r\n\t Void = send_event( @window:'.RDS_NO', 'LOSTFOCUS', '' )\r\n\tend\r\nend \r\nif security_check( 'RDS', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'RDS', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'RDS', Edit$ ) else\r\n security_err_msg( 'RDS', Edit$ )\r\nend\r\n\r\nVoid = set_property( @window, '@NoRead', 0 )\r\nEpiOvrControls = 'THICK_MIN/THICK_TARGET/THICK_MAX/THICK_UNITS/RES_MIN/'\r\nEpiOvrControls:= 'RES_TARGET/RES_MAX/RES_UNITS/CON_MIN/CON_TARGET/CON_MAX/'\r\nEpiOvrControls:= 'CON_UNITS/STATUS'\r\nswap '/' with @rm:@window:'.' in EpiOvrControls\r\nEpiOvrControls = @window:'.':EpiOvrControls\r\nVoid = set_property( @window, '@EpiOvrControls', EpiOvrControls )\r\n\r\nComm_RDS('FirstRefresh')\t\t;* Added 12/1/2004 JCH\r\n\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/RDS_CLEAN..json b/LSL2/OIEVENT/CREATE/RDS_CLEAN..json new file mode 100644 index 0000000..3252f99 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/RDS_CLEAN..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert prod_spec_equ\r\n$insert quote_spec_equ\r\ndeclare subroutine set_list_box_data\r\ndeclare function center_window\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nPSNId = field( CreateParam, char(245), 1 )\r\nPSNRec = xlate( 'PROD_SPEC', PSNId, '', 'X' )\r\nSubstrateInfo = PSNRec\r\nValsToLoad = ''\r\nValsToLoad<1> = SubstrateInfo<1,QSSubOxide$>\r\nValsToLoad<2> = SubstrateInfo<1,QSSubOxideAngstroms$>\r\nValsToLoad<3> = SubstrateInfo<1,QSSubPreClean$>\r\nValsToLoad<4> = SubstrateInfo<1,QSSubPostClean$>\r\nValsToLoad<5> = SubstrateInfo<1,QSSubPreAkrionRecipe$>\r\nValsToLoad<6> = SubstrateInfo<1,QSSubPostAkrionRecipe$>\r\n\r\nControls = 'OXIDE_STRIP/OXIDE_ANG/PRE_CLEAN/POST_CLEAN/AKRION_PRECLEAN_RECIPE/AKRION_POSTCLEAN_RECIPE'\r\n\r\nswap '/' with @rm:@window:'.' in Controls\r\nControls = @window:'.':Controls\r\nconvert @fm to @rm in ValsToLoad\r\nvoid = set_property( Controls, 'INVALUE', ValsToLoad )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/RDS_HOLD..json b/LSL2/OIEVENT/CREATE/RDS_HOLD..json new file mode 100644 index 0000000..9c3315b --- /dev/null +++ b/LSL2/OIEVENT/CREATE/RDS_HOLD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert rds_equ\r\ndeclare function scroll_enable\r\n\r\nData = field( CreateParam, char(245), 1 )\r\nHoldStat = field( CreateParam, char(245), 2 )\r\nControls = 'HOLD_DESC/HOLD_OPERATOR/HOLD_DATE/HOLD_TIME/UNHOLD_OPERATOR/UNHOLD_DATE/UNHOLD_TIME'\r\nControls:= '/UNHOLD_DESC/HOLD_OPERATOR_NAME/UNHOLD_OPERATOR_NAME'\r\nswap '/' with @rm:@window:'.' in Controls\r\nControls = @window:'.':Controls\r\nif Data = 'READONLY' then\r\n * HOLDSTAT WILL BE THE RDS NUMBER AND IS CALLED FROM THE HOLD BUTTON ON THE\r\n * BOTTOM OF THE RDS\r\n Data = ''\r\n RDSRec = xlate( 'RDS', HoldStat, '', 'X' )\r\n Desc = RDSRec\r\n swap @tm with char(13):char(10) in Desc\r\n Data<1> = Desc\r\n Data<2> = RDSRec\r\n Data<3> = oconv( RDSRec, 'D2/' )\r\n Data<4> = oconv( RDSRec, 'MTH' )\r\n Data<5> = RDSRec\r\n Data<6> = oconv( RDSRec, 'D2/' )\r\n Data<7> = oconv( RDSRec, 'MTH' )\r\n Data<8> = RDSRec\r\n Data<9> = xlate( 'RDS', HoldStat, 'HOLD_OPERATOR_NAME', 'X' )\r\n Data<10> = xlate( 'RDS', HoldStat, 'UNHOLD_OPERATOR_NAME', 'X' )\r\n .hold_desc->enabled = 0\r\n .unhold_desc->enabled = 0\r\n .hold_status->enabled = 0\r\n .save->enabled = 0\r\n Void = scroll_enable() \r\nend else\r\n\tif Data = '' or Data = str( @fm, 7 ) then\r\n\t * NEW ONE\r\n\t Void = set_property( @window, '@Type', 'NEW' )\r\n\t Data<1> = ''\r\n\t Data<2> = @user4\r\n\t Data<3> = oconv( date(), 'D2/' )\r\n\t Data<4> = oconv( time(), 'MTH' )\r\n\t Data<5> = ''\r\n\t Data<6> = ''\r\n\t Data<7> = ''\r\n\t Data<8> = ''\r\n\t Data<9> = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t Data<10> = ''\r\n\t .hold_status->value = 1\r\n\t .hold_status->enabled = 0\r\n\t * PROTECT THE STATUS CAUSE IT HAS NEVER BEEN ON HOLD SO THE ONLY\r\n\t * CHOICE IS TO PUT IT ON HOLD\r\n\tend else\r\n\t Void = set_property( @window, '@Type', 'EDIT' )\r\n\t Data<9> = oconv( Data<2>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t Data<10> = oconv( Data<5>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t .hold_status->value = HoldStat\r\n\tend\r\nend\r\nConvert @fm to @rm in Data\r\nvoid = set_property( Controls, 'TEXT', Data )\r\nVoid = set_property( @window, '@Controls', Controls )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/RDS_LAYERS..json b/LSL2/OIEVENT/CREATE/RDS_LAYERS..json new file mode 100644 index 0000000..202f89f --- /dev/null +++ b/LSL2/OIEVENT/CREATE/RDS_LAYERS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data\r\ndeclare function set_property, fieldcount, center_window, rds_comm\r\n$insert quote_spec_equ\r\n$insert recipe_equ\r\n\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nLayerInfo = field( CreateParam, char(244), 1 )\r\nconvert @vm to @fm in LayerInfo\r\nconvert @svm to @vm in LayerInfo\r\nTitle = field( CreateParam, char(244), 2 )\r\nVoid = set_property( @window, '@RDSNo', Title )\r\nCurTitle = get_property( @window, 'TEXT' )\r\nCurTitle:= ' ':Title\r\nVoid = set_property( @window, 'TEXT', CurTitle )\r\nNumLayers = fieldcount( LayerInfo, char(248) )\r\nif NumLayers = 0 then\r\n NumLayers = 1\r\nend\r\n.layer_desc->text = '2 of ':NumLayers+1\r\nFirstLayer = field( LayerInfo, char(248), 1 )\r\nVoid = set_property( @window, '@CurLayer', 1 )\r\nVoid = set_property( @window, '@LayerInfo', LayerInfo )\r\nVoid = set_property( @window, '@OrigLayerInfo', LayerInfo )\r\n\r\n* now load the LAYER specific prompts\r\nControls = 'CON_MIN/CON_TARGET/CON_MAX/CON_UNITS/'\r\nControls:= 'RECIPE_NO/THICKNESS_READINGS/EPI_TIME/SHEETRHO_READINGS/'\r\nControls:= 'TTHICK_AVG/TTHICK_STDEV/EPI_DOPANT_FLOW/TTHICK_MAX/TTHICK_MIN/'\r\nControls:= 'TTHICK_UNIF///TRES_AVG/TRES_STDEV/TRES_MAX/'\r\nControls:= 'TRES_MIN/TRES_UNIF///'\r\nControls:= 'THICK_MIN/THICK_TARGET/THICK_MAX/THICK_UNITS/RES_MIN/'\r\nControls:= 'RES_TARGET/RES_MAX/RES_UNITS'\r\n\r\nswap '/' with @rm:@window:'.' in Controls\r\nControls = @window:'.':Controls\r\nVoid = set_property( @window, '@LayerControls', Controls )\r\nLayerPromptCnt = fieldcount( Controls, @rm )\r\nVoid = set_property( @window, '@LayerPromptCnt', LayerPromptCnt )\r\nValueCnt = fieldcount( FirstLayer, @fm )\r\n* so set_property does not propagate\r\nif ValueCnt < LayerPromptCnt then\r\n FirstLayer := str( @fm, LayerPromptCnt-ValueCnt-1 )\r\nend\r\n* ok\r\n.recipe_name->text = xlate( 'RECIPE', FirstLayer<5>, recipe_recipe_name$, 'X' )\r\nconvert @fm to @rm in FirstLayer\r\nVoid = set_property( Controls, 'INVALUE', FirstLayer )\r\nVoid = rds_comm( 'CALC_ALL_RES' )\r\nset_list_box_data( CtrlEntId )\r\nVoid = rds_comm( \"SET_ML_LIMITS\" )\r\nif .res_units->text = 'ê/Ü' then\r\n * ohms squared use sheetrho for label and calculations\r\n .thick_resrho_label->text = 'Thickness:SheetRHO:' \r\nend else\r\n .thick_resrho_label->text = 'Thickness:Resistivity:' \r\nend \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/RDS_OVR..json b/LSL2/OIEVENT/CREATE/RDS_OVR..json new file mode 100644 index 0000000..5e1be59 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/RDS_OVR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "Qxj = field( CreateParam, '*', 1 )\r\nCustNo = field( CreateParam, '*', 2 )\r\nQuoteOvr = field( CreateParam, '*', 3 )\r\nif CustNo <> 615 then\r\n * is not philips so disable the qxj\r\n .qxj->enabled = 0\r\nend\r\nif ( CustNo = 615 ) or ( CustNo = 6443 ) or ( CustNo = 639 ) then\r\n * do nothing leave lot number overridable\r\nend else\r\n * is not philips or sgs so don't let them change the lot number\r\n * the idea here is to only let them change the quantity\r\n * usually this is for second layer seperate layer stuff \r\n .lot_num->enabled = 0\r\nend\r\nif QuoteOvr then\r\n .quote_no->visible = 1\r\n .quote_no_grp->visible = 1\r\n .quote_no->value = QuoteOvr\r\nend else\r\n .quote_no->value = ''\r\nend\r\nif Qxj then\r\n .qxj->check = 1\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/RDS_POST_EPI..json b/LSL2/OIEVENT/CREATE/RDS_POST_EPI..json new file mode 100644 index 0000000..285759f --- /dev/null +++ b/LSL2/OIEVENT/CREATE/RDS_POST_EPI..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE SUBROUTINE rlist, set_list_box_data, security_err_msg, Comm_RDS, Set_Property, obj_Appwindow\r\nDECLARE SUBROUTINE Send_Event\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n\r\nVoid = set_property( @window, '@CurQuery', '' )\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nIF Keys THEN\r\n IF fieldcount( Keys, @vm ) > 1 THEN\r\n\t \r\n\t\tconvert @vm to @fm in Keys\r\n\t\tVoid = set_property( @window, 'QBFLIST', Keys ) \r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t \r\n\t RDSNo = Keys<1>\r\n\t \r\n\t Set_Property(@WINDOW:'.RDS_NO','DEFPROP',RDSNo)\r\n\t\tSend_Event( @WINDOW:'.RDS_NO', 'LOSTFOCUS')\t\t;* Triggers form read\r\n\t \r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t \r\n\tEND ELSE\r\n\t\t\r\n\t\tRDSNo = Keys\r\n\t\tSet_Property( @WINDOW:'.RDS_NO','DEFPROP',RDSNo)\r\n\t\tSend_Event( @WINDOW:'.RDS_NO' , 'LOSTFOCUS')\t\t;* Triggers form read\r\n\t\t\r\n\tEND\r\nEND\r\n\r\nIF Security_Check( 'RDS', Read$ ) THEN\r\n Set_List_Box_Data( @window )\r\nEND ELSE\r\n Security_Err_Msg( 'RDS', Read$ )\r\n Void = End_Window( @WINDOW, '' )\r\n RETURN 0\r\nEND\r\n\r\nif security_check( 'RDS', Edit$ ) else\r\n security_err_msg( 'RDS', Edit$ )\r\nend\r\n\r\nVoid = set_property( @window, '@NoRead', 0 )\r\n\r\nComm_RDS('Refresh')\r\n\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/RDS_POST_EPI2..json b/LSL2/OIEVENT/CREATE/RDS_POST_EPI2..json new file mode 100644 index 0000000..46e09ed --- /dev/null +++ b/LSL2/OIEVENT/CREATE/RDS_POST_EPI2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert prod_spec_equ\r\ndeclare function center_window\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nPSNID = field( CreateParam, char(245), 1 )\r\nSurfaceInfo = field( CreateParam, char(245), 2 )\r\n\r\n* LOAD THE PRE EPI SURFACE SPECIFICATION\r\nVoid = set_property( @window, '@Loading', 1 )\r\nPSN = xlate( 'PROD_SPEC', PSNID, '', 'X' )\r\n.clean_surfscan_defects_s->text = PSN\r\n.clean_surfscan_haze_s->text = oconv( PSN, 'MD2' )\r\n* THEN LOAD THE CURRENT DATA PASSED FROM THE RDS_POSTE_EPI WINDOW\r\nControls = 'CLEAN_SURFSCAN_DEFECTS_R/CLEAN_SURFSCAN_HAZE_R'\r\nswap '/' with @rm:@window:'.' in Controls\r\nControls = @window:'.':Controls\r\nconvert @fm to @rm in SurfaceInfo\r\nvoid = set_property( Controls, 'TEXT', SurfaceInfo )\r\nVoid = set_property( @window, '@Controls', Controls )\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/RDS_PRE_EPI..json b/LSL2/OIEVENT/CREATE/RDS_PRE_EPI..json new file mode 100644 index 0000000..8e1fffc --- /dev/null +++ b/LSL2/OIEVENT/CREATE/RDS_PRE_EPI..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\n\r\ndeclare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, rds_comm\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n\r\nVoid = set_property( @window, '@CurQuery', '' )\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\n\r\n\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n\t * need to send to qbf\r\n\t\tconvert @vm to @fm in Keys\r\n\t\tVoid = set_property( @window, 'QBFLIST', Keys ) \r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .rds_no->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\tend else\r\n\t .rds_no->text = Keys\r\n\t Void = send_event( @window:'.RDS_NO', 'LOSTFOCUS', '' )\r\n\tend\r\nend \r\nif security_check( 'RDS', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'RDS', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\n\r\nif security_check( 'RDS', Edit$ ) else\r\n security_err_msg( 'RDS', Edit$ )\r\nend\r\n\r\nVoid = set_property( @window, '@NoRead', 0 )\r\n\r\n\r\n@CtrlEntId->timer = 1:@fm:1\r\n\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/RDS_PRE_EPI2..json b/LSL2/OIEVENT/CREATE/RDS_PRE_EPI2..json new file mode 100644 index 0000000..ff9aef0 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/RDS_PRE_EPI2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Center_Window\r\nDECLARE SUBROUTINE Set_Property\r\n\r\n$insert prod_spec_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nPSNID = FIELD(CreateParam,CHAR(245),1)\r\nSurfaceInfo = FIELD(CreateParam,CHAR(245),2)\r\nBrightLight\t= FIELD(CreateParam,CHAR(245),3)\r\nMicroscope\t= FIELD(CreateParam,CHAR(245),4)\r\n\r\nIF BrightLight = 1 THEN\r\n\tSet_Property(@WINDOW:'.BRIGHTLIGHT','ENABLED',1)\r\nEND ELSE\r\n\tSet_Property(@WINDOW:'.BRIGHTLIGHT','ENABLED',0)\r\nEND\r\n\r\nIF Microscope = 1 THEN\r\n\tSet_Property(@WINDOW:'.MICROSCOPE','ENABLED',1)\r\nEND ELSE\r\n\tSet_Property(@WINDOW:'.MICROSCOPE','ENABLED',0)\r\nEND\r\n\r\n\r\n\r\n* LOAD THE PRE EPI SURFACE SPECIFICATION\r\n\r\nVoid = set_property( @window, '@Loading', 1 )\r\n\r\nPSN = xlate( 'PROD_SPEC', PSNID, '', 'X' )\r\n.pre_lpd_s->text = PSN\r\n.pre_pits_s->text = PSN\r\n.pre_mounds_s->text = PSN\r\n.pre_bl_defects_s->text = PSN\r\n.pre_spots_s->text = PSN\r\n.pre_fov_s->text = PSN\r\n.pre_scratches_s->text = PSN\r\n.pre_scratch_len_s->text = PSN\r\n\r\n* THEN LOAD THE CURRENT DATA PASSED FROM THE RDS_PRE_EPI WINDOW\r\n\r\nControls = 'PRE_LPD_IN_R/PRE_LPD_OUT_R/PRE_PITS_R/PRE_MOUNDS_R/PRE_BL_DEFECTS_R/PRE_SPOTS_R/'\r\nControls:= 'PRE_FOV_R/PRE_SCRATCHES_R/PRE_SCRATCH_LEN_R'\r\n\r\nswap '/' with @rm:@window:'.' in Controls\r\n\r\nControls = @window:'.':Controls\r\n\r\nconvert @fm to @rm in SurfaceInfo\r\n\r\nvoid = set_property( Controls, 'TEXT', SurfaceInfo )\r\nVoid = set_property( @window, '@Controls', Controls )\r\n\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/RDS_PRE_EPI_ORG..json b/LSL2/OIEVENT/CREATE/RDS_PRE_EPI_ORG..json new file mode 100644 index 0000000..df041bc --- /dev/null +++ b/LSL2/OIEVENT/CREATE/RDS_PRE_EPI_ORG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, rds_comm\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n\r\nVoid = set_property( @window, '@CurQuery', '' )\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n\t * need to send to qbf\r\n\t\tconvert @vm to @fm in Keys\r\n\t\tVoid = set_property( @window, 'QBFLIST', Keys ) \r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .rds_no->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\tend else\r\n\t .rds_no->text = Keys\r\n\t Void = send_event( @window:'.RDS_NO', 'LOSTFOCUS', '' )\r\n\tend\r\nend \r\nif security_check( 'RDS', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'RDS', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'RDS', Edit$ ) else\r\n security_err_msg( 'RDS', Edit$ )\r\nend\r\nVoid = rds_comm( \"SET_MOD_INFO_BUTTON\" )\r\nVoid = set_property( @window, '@NoRead', 0 )\r\n@CtrlEntId->timer = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/RDS_PROVEIN..json b/LSL2/OIEVENT/CREATE/RDS_PROVEIN..json new file mode 100644 index 0000000..223380e --- /dev/null +++ b/LSL2/OIEVENT/CREATE/RDS_PROVEIN..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Scroll_Enable, Center_Window\r\nDECLARE SUBROUTINE Set_Property\r\n\r\n$INSERT PROD_SPEC_EQUATES\r\n\r\nEQU CRLF$ TO CHAR(13):CHAR(10)\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nPSNId = field( CreateParam, '*', 1 )\r\n\r\nProveInInst = XLATE( 'PROD_SPEC', PSNId, PROD_SPEC_PROVE_IN_INST$, 'X' )\r\n\r\nSWAP @TM WITH CRLF$ IN ProveInInst\r\n\r\nSet_Property(@WINDOW:'.PROVEIN_INST','TEXT',ProveInInst)\r\n\r\nVoid = Scroll_Enable()\r\n\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/RDS_RECIPE..json b/LSL2/OIEVENT/CREATE/RDS_RECIPE..json new file mode 100644 index 0000000..ab24c92 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/RDS_RECIPE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert recipe_equ\r\ndeclare subroutine set_list_box_data\r\n\r\nInjectors = field( CreateParam, char(245), 2 )\r\nCreateParam = field( CreateParam, char(245), 1 )\r\nRecipeNo = CreateParam<1>\r\nControls = 'RECIPE_NO/EPI_DOPANT/EPI_TIME/EPI_TEMP/EPI_H2_FLOW/EPI_SOURCE/'\r\nControls:= 'EPI_INJECT/EPI_DILUENT/EPI_GASES/EPI_GAS_RATE/EPI_GASUNITS/'\r\nControls:= 'BAKE_TIME/BAKE_TEMP/BAKE_H2/BAKE_SUSC_ROT/ETCH_TIME/ETCH_TEMP/'\r\nControls:= 'ETCH_H2/ETCH_HCL/F_OFFSET/S_OFFSET/R_OFFSET'\r\nswap '/' with @rm:@window:'.' in Controls\r\nControls = @window:'.':Controls\r\nconvert @fm to @rm in CreateParam\r\nvoid = set_property( Controls, 'TEXT', CreateParam )\r\n.recipe_name->text = xlate( 'RECIPE', RecipeNo, recipe_recipe_name$, 'X' )\r\n.injectors->text = Injectors\r\nVoid = set_property( @window, '@Controls', Controls )\r\nset_list_box_data(CtrlEntId)\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/RDS_REJECTS..json b/LSL2/OIEVENT/CREATE/RDS_REJECTS..json new file mode 100644 index 0000000..93edb57 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/RDS_REJECTS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function memberof, send_message\r\n$insert logical\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif memberof( @user4, 'SUPERVISOR' ) then\r\n Void = send_message( @window:'.REJ_INFO', 'COLSTYLE', 4, 385 )\r\nend\r\nNCRPriorWarn = field( CreateParam, char(245), 2 )\r\nCreateParam = field( CreateParam, char(245), 1 )\r\nVoid = set_property( @window, '@NCRPriorWarn', NCRPriorWarn )\r\n* THE ABOVE LINE SIMPLY SETS A FLAG SAYING THAT IF TRUE THEY ARE BACK\r\n* IN HERE DUE TO A PRIOR CHANGE WITHOUT SAVING THE RDS AND RDS IS FORCING\r\n* A SAVE CAUSE AN NCR HAS BEEN AFFECTED\r\nconvert '*' to @fm in CreateParam\r\nRejInfoArray = ''\r\nRejType = field( CreateParam<1>, ' ', 1, 3 )\r\nRejQty = CreateParam<2>\r\nRejects = CreateParam<3>\r\nLossCodes = CreateParam<4>\r\nAssignCauses = CreateParam<5>\r\nNCRIds = CreateParam<6>\r\nRDSId = CreateParam<7>\r\nRejField = CreateParam<8>\r\nTNCRIds = NCRIds\r\nconvert @vm to '' in TNCRIds\r\nif ( TNCRIds <> '' ) then\r\n .ncr_view->visible = true$\r\n .ncr_label->visible = true$\r\n .ncr_box->visible = true$\r\nend\r\nVoid = set_property( @window, '@RDSId', RDSId )\r\nVoid = set_property( @window, '@RejField', RejField )\r\nTRejType = RejType\r\nswap ' ' with CrLf$ in TRejType\r\nTRejType = RejQty:' ':TRejType\r\n.rej_type_label->text = TRejType\r\nRejInfoArray<1> = Rejects\r\nRejInfoArray<2> = LossCodes\r\nRejInfoArray<3> = xlate( 'LOSS_CODES', LossCodes, 'DESC', 'X' )\r\nRejInfoArray<4> = AssignCauses\r\nRejInfoArray<5> = xlate( 'ASSIGN_CAUSE', AssignCauses, 'ASSIGN_CAUSE_DESC', 'X' )\r\nRejInfoArray<6> = NCRIds\r\nVoid = set_property( @window, '@OrigRejInfo', RejInfoArray )\r\nVoid = set_property( @window, '@RejQty', RejQty )\r\nVoid = set_property( @window, '@RejType', RejType )\r\nVoid = set_property( @window, '@NCRsToDelete', '' )\r\nVoid = set_property( @window, '@RejCntToDelete', '' )\r\nVoid = set_property( @window, '@RejLossToDelete', '' )\r\nVoid = set_property( @window, '@RejACToDelete', '' )\r\n* RejQty used to make sure that they account for that many rejects\r\n* no more no less\r\n.rej_info->array = RejInfoArray\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/RDS_RPROFILE..json b/LSL2/OIEVENT/CREATE/RDS_RPROFILE..json new file mode 100644 index 0000000..94d69e9 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/RDS_RPROFILE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function scroll_enable, center_window\r\n\r\n$insert quote_spec_equ\r\n$insert prod_spec_equ\r\n$insert react_items_equ\r\n\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nProfileInfo = field( CreateParam, char(245), 1 )\r\nTubeID = ProfileInfo<2>\r\nSuscID = ProfileInfo<4>\r\n.injectors->text = ProfileInfo<1>\r\n.tube_id->text = TubeID\r\n.tube_grade->text = ProfileInfo<3>\r\n.susceptor_id->text = SuscID\r\n.tube_desc->text = xlate( 'REACT_ITEMS', TubeID, react_items_description$, 'X' )\r\n.susceptor_desc->text = xlate( 'REACT_ITEMS', SuscID, react_items_description$, 'X' )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/RDS_RPT1..json b/LSL2/OIEVENT/CREATE/RDS_RPT1..json new file mode 100644 index 0000000..aa23e21 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/RDS_RPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'RDS', Print$ ) else\r\n security_err_msg( 'RDS', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/RDS_RPT2..json b/LSL2/OIEVENT/CREATE/RDS_RPT2..json new file mode 100644 index 0000000..aa23e21 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/RDS_RPT2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'RDS', Print$ ) else\r\n security_err_msg( 'RDS', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/RDS_RPT3..json b/LSL2/OIEVENT/CREATE/RDS_RPT3..json new file mode 100644 index 0000000..bce535b --- /dev/null +++ b/LSL2/OIEVENT/CREATE/RDS_RPT3..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'RDS', Print$ ) else\r\n security_err_msg( 'RDS', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\n.rpt_type->value = ''\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/RDS_SPEC..json b/LSL2/OIEVENT/CREATE/RDS_SPEC..json new file mode 100644 index 0000000..b4f1e49 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/RDS_SPEC..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property, fieldcount, scroll_enable\r\n$insert quote_equ\r\n$insert prod_spec_equ\r\n$insert quote_spec_equ\r\n\r\nPSNId = CreateParam\r\nPSNRec = xlate( 'PROD_SPEC', PSNId, '', 'X' )\r\nSubInfo = PSNRec\r\nEpiInfo = PSNRec\r\n*\r\nCurRds = get_property( 'RDS.RDS_NO', 'TEXT' )\r\nSepLayerNumber = field( CurRds, '.', 2 )\r\nif SepLayerNumber = '' then\r\n SepLayerNumber = 1\r\nend\r\nThickMeasure = ''\r\nResMeasure = ''\r\nconvert char(247) to @fm in EpiInfo\r\nCurSepLay = EpiInfo\r\nThickMeasure = CurSepLay<1,QSEpiThickMeasure$>\r\nResMeasure = field( CurSepLay<1,QSEpiResMeasure$>, char(248), 1 )\r\n* above line to remove the char(248) in case of same react layers\r\nconvert char(248) to @fm in CurSepLay\r\nTRcnt = fieldcount( CurSepLay, @fm )\r\nfor TR = 2 to TRcnt\r\n CurSameLay = CurSepLay\r\n ThickMeasure := ';':CurSameLay<1,QSEpiThickMeasure$>\r\n ResMeasure := ';':CurSameLay<1,QSEpiResMeasure$>\r\nnext TR\r\n*\r\nDisplayData = ''\r\nDisplayData := SubInfo<1,QSSubOrientation$>:@rm\r\nDisplayData := SubInfo<1,QSSubType$>:@rm\r\nDisplayData := SubInfo<1,QSSubWafersize$>:@rm\r\nDisplayData := SubInfo<1,QSSubResistivity$>:@rm\r\nDisplayData := SubInfo<1,QSSubResUnits$>:@rm\r\nDisplayData := SubInfo<1,QSSubDopant$>:@rm\r\nDisplayData := SubInfo<1,QSSubPreClean$>:@rm\r\nDisplayData := SubInfo<1,QSSubBl1Dopant$>:@rm\r\nDisplayData := SubInfo<1,QSSubBl2Dopant$>:@rm\r\nDisplayData := SubInfo<1,QSSubOxide$>:@rm\r\nDisplayData := SubInfo<1,QSSubOtherSpecs$>:@rm\r\nDisplayData := ThickMeasure:@rm\r\nDisplayData := ResMeasure\r\nFillFields = 'SUB_ORIENTATION/SUB_TYPE/SUB_WAFERSIZE/SUB_RESISTIVITY/'\r\nFillFields:= 'SUB_REST_UNITS/SUB_DOPANT/SUB_PRE_CLEAN/SUB_BL1_DOPANT/'\r\nFillFields:= 'SUB_BL2_DOPANT/SUB_OXIDE/SUB_OTHER_SPECS/'\r\nFillFields:= 'OEPI_THICK_MEASURE/OEPI_RES_MEASURE'\r\nswap '/' with @rm:@window:'.' in FillFields\r\nFillFields = @window:'.':FillFields\r\nVoid = set_property( FillFields, 'INVALUE', DisplayData )\r\nVoid = scroll_enable()\t \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/RDS_SRP..json b/LSL2/OIEVENT/CREATE/RDS_SRP..json new file mode 100644 index 0000000..a3f623a --- /dev/null +++ b/LSL2/OIEVENT/CREATE/RDS_SRP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function center_window, utility\r\n\r\nBMP = field( CreateParam, '*', 1 )\r\n.bitmap_1->bitmap = BMP\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 3 ) ;* TO MAXIMIZE\r\nend\r\nStat = utility( 'CURSOR', 'A' )\r\n* THE CALLING CODE WILL SET CURSOR TO HOURGLASS\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/RDS_SRPT1..json b/LSL2/OIEVENT/CREATE/RDS_SRPT1..json new file mode 100644 index 0000000..74f28c5 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/RDS_SRPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'RDS', Print$ ) else\r\n security_err_msg( 'RDS', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/RDS_SSI_STDS..json b/LSL2/OIEVENT/CREATE/RDS_SSI_STDS..json new file mode 100644 index 0000000..fb48669 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/RDS_SSI_STDS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".standard_t->text = CreateParam<1>\r\n.standard_r->text = CreateParam<2>\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/RDS_SUPPL..json b/LSL2/OIEVENT/CREATE/RDS_SUPPL..json new file mode 100644 index 0000000..a0d9aee --- /dev/null +++ b/LSL2/OIEVENT/CREATE/RDS_SUPPL..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function scroll_enable\r\n$insert rds_equ\r\n\r\nData = field( CreateParam, char(245), 1 )\r\nSuplInst = field( CreateParam, char(245), 2 )\r\n.suppl_inst->text = SuplInst\r\nControls = 'ENTRY_ID/ENTRY_DATE/ENTRY_TIME/OP_SIG/OP_SIG_DATE/OP_SIG_TIME/ENTRY_NAME/OP_SIG_NAME'\r\nswap '/' with @rm:@window:'.' in Controls\r\nControls = @window:'.':Controls\r\n\r\nData<7> = oconv( Data<1>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\nData<8> = oconv( Data<4>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\nConvert @fm to @rm in Data\r\nvoid = set_property( Controls, 'TEXT', Data )\r\nVoid = set_property( @window, '@Controls', Controls )\r\nif .entry_id->text = @user4 then\r\n * LEAVE THE SUPPLEMENT INSTRUCTIONS ENABLED\r\n .save->enabled = 1\r\nend else\r\n Void = scroll_enable( @window:'.SUPPL_INST', '' )\r\n .save->enabled = 0\r\nend\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/RDS_SUPPL_INST..json b/LSL2/OIEVENT/CREATE/RDS_SUPPL_INST..json new file mode 100644 index 0000000..869adc4 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/RDS_SUPPL_INST..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function center_window\r\n\r\nSuplInfo = field( CreateParam, char(245), 1 )\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif CreateParam <> '' then\r\n .suppl_inst->text = SuplInfo\r\n .save->enabled = 1\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/RDS_SURF_ENT..json b/LSL2/OIEVENT/CREATE/RDS_SURF_ENT..json new file mode 100644 index 0000000..de24216 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/RDS_SURF_ENT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert prod_spec_equ\r\n\r\nDECLARE SUBROUTINE Set_Property\r\nDECLARE FUNCTION Center_Window, Set_Property\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nPSNID = FIELD(CreateParam,CHAR(245),1)\r\nSurfaceInfo = FIELD(CreateParam,CHAR(245),2)\r\nTitleText \t= FIELD(CreateParam,CHAR(245),3)\r\nBrightLight\t= FIELD(CreateParam,CHAR(245),4)\r\nMicroscope\t= FIELD(CreateParam,CHAR(245),5)\r\n\r\nIF TitleText NE '' THEN\r\n\tSet_Property(@WINDOW,'TEXT','Post Epi - ':TitleText)\r\nEND ELSE\r\n\tSet_Property(@WINDOW,'TEXT','Post Epi - Surface Inspection')\r\nEND\r\n\r\n\r\n* LOAD THE PRE EPI SURFACE SPECIFICATION\r\n\r\nVoid = set_property( @window, '@Loading', 1 )\r\nPSN = xlate( 'PROD_SPEC', PSNID, '', 'X' )\r\n.post_lpd_s->text = PSN\r\n.post_pits_s->text = PSN\r\n.post_mounds_s->text = PSN\r\n.post_bl_defects_s->text = PSN\r\n.post_spots_s->text = PSN\r\n.post_fov_s->text = PSN\r\n.post_spikes_s->text = PSN\r\n.post_stack_faults_s->text = PSN\r\n.post_scratches_s->text = PSN\r\n.post_scratch_len_s->text = PSN\r\n\r\n* THEN LOAD THE CURRENT DATA PASSED FROM THE RDS FIRST WAFER STEP WINDOW\r\nControls = 'POST_LPD_OUT_R/POST_PITS_R/POST_MOUNDS_R/POST_BL_DEFECTS_R/POST_STACK_FAULTS_R/POST_SPIKES_R/'\r\nControls:= 'POST_SPOTS_R/POST_FOV_R/POST_SCRATCHES_R/POST_SCRATCH_LEN_R'\r\n\r\nswap '/' with @rm:@window:'.' in Controls\r\nControls = @window:'.':Controls\r\nconvert @fm to @rm in SurfaceInfo\r\nvoid = set_property( Controls, 'TEXT', SurfaceInfo )\r\nVoid = set_property( @window, '@Controls', Controls )\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/RDS_SURF_INSP..json b/LSL2/OIEVENT/CREATE/RDS_SURF_INSP..json new file mode 100644 index 0000000..6e55f3d --- /dev/null +++ b/LSL2/OIEVENT/CREATE/RDS_SURF_INSP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert prod_spec_equ\r\ndeclare subroutine set_list_box_data\r\ndeclare function center_window\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nPSNId = field( CreateParam, char(245), 1 )\r\nPSNRec = xlate( 'PROD_SPEC', PSNId, '', 'X' )\r\n\r\nValsToLoad = ''\r\nValsToLoad<1> = PSNRec\r\nValsToLoad<2> = PSNRec\r\nValsToLoad<3> = PSNRec\r\nValsToLoad<4> = PSNRec\r\nValsToLoad<5> = PSNRec\r\nValsToLoad<6> = PSNRec\r\nValsToLoad<7> = PSNRec\r\nValsToLoad<8> = PSNRec\r\nValsToLoad<9> = PSNRec\r\nValsToLoad<10> = PSNRec\r\nValsToLoad<11> = PSNRec\r\n\r\nControls= 'PRE_BRIGHTLIGHT/PRE_SURFSCAN/PRE_SURFSCAN_RECIPE/PRE_MICROSCOPE/'\r\nControls:= 'POST_BRIGHTLIGHT/POST_SURFSCAN/POST_SURFSCAN_RECIPE/POST_MICROSCOPE/'\r\nControls:= 'CLEAN_BRIGHTLIGHT/CLEAN_SURFSCAN/CLEAN_SURFSCAN_RECIPE'\r\n\r\nswap '/' with @rm:@window:'.' in Controls\r\nControls = @window:'.':Controls\r\nconvert @fm to @rm in ValsToLoad\r\nvoid = set_property( Controls, 'INVALUE', ValsToLoad )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/RDS_THICK_AVG..json b/LSL2/OIEVENT/CREATE/RDS_THICK_AVG..json new file mode 100644 index 0000000..7137c62 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/RDS_THICK_AVG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".thick_avg->text = CreateParam\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/RDS_TW..json b/LSL2/OIEVENT/CREATE/RDS_TW..json new file mode 100644 index 0000000..28228b1 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/RDS_TW..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function memberof, send_message, fieldcount, rds_comm\r\n$insert logical\r\n$insert prod_spec_equ\r\n$insert quote_spec_equ\r\n$insert tw_info_array_equ\r\n$insert rds_equ\r\n\r\nequ CrLf$ to char(13):char(10)\r\n\r\nequ NumRows$ to 4\r\n \r\nequ Hidden$ to 32\r\n*\r\nconvert '*' to @fm in CreateParam\r\nRejInfoArray = ''\r\nTWType = field( CreateParam<1>, ' ', 2 )\r\n\r\nswap 'PLUS' with '+' in TWType\r\nswap 'MINUS' with '-' in TWType\r\nTWQty = CreateParam<2>\r\nTWCurQty = CreateParam<3>\r\nTWCodes = CreateParam<4>\r\nTWTool = CreateParam<5>\r\nTWThick = CreateParam<6>\r\nTWRes = CreateParam<7>\r\nTWConc = CreateParam<8>\r\nTWStress = CreateParam<9>\r\nTWTrans = CreateParam<10>\r\nTWRHO = CreateParam<11>\r\nCurLabel = .tw_info->label\r\nCurLabel<1> = TWQty\r\n.tw_info->label = CurLabel\r\nif TWType = 'PROD' then\r\n BegTitle = CrLf$\r\n WafType = ''\r\nend else\r\n BegTitle = ''\r\n WafType = CrLf$:'Test'\r\nend\r\n.tw_type_label->text = BegTitle:' ':TWType:WafType:CrLf$:'Wafer(s)'\r\n\r\nTWInfoArray = ''\r\nTWInfoArray = TWCurQty\r\nTWInfoArray = TWCodes\r\nTWInfoArray = xlate( 'TW_CODES', TWCodes, 'DESC', 'X' )\r\nTWInfoArray = TWTool\r\nTWInfoArray = TWThick\r\nTWInfoArray = TWRes\r\nTWInfoArray = TWConc\r\nTWInfoArray = TWStress\r\nTWInfoArray = TWTrans\r\nTWInfoArray = TWRHO\r\n\r\nVoid = set_property( @window, '@OrigTWInfo', TWInfoArray )\r\nVoid = set_property( @window, '@TWQty', TWQty )\r\nVoid = set_property( @window, '@TWType', TWType )\r\n* TWQty used to make sure that they account for that many test wafers\r\n* no more no less\r\n.tw_info->array = TWInfoArray\r\n\r\n\r\nStyles = send_message( @window:'.TW_INFO', \"COLSTYLE\", 0, '' )\r\nfor i = TWInfoArrayThick$ to TWInfoArrayRHO$\r\n DataFound = false$\r\n for j = 1 to 4\r\n if ( TWInfoArray = '' ) then\r\n * KEEP WINDING THROUGH UNTIL FOUND OR FOUR FIRST\r\n end else\r\n DataFound = true$\r\n end\r\n until DataFound\r\n next j\r\n if DataFound else\r\n Styles = bitor( Styles, Hidden$ ) \r\n end\r\nnext i\r\nStyles = send_message( @window:'.TW_INFO', \"COLSTYLE\", 0, Styles )\r\n*\r\ngosub BuildPSNInfo\r\n*\r\nVoid = set_property( @window:'.TW_INFO', \"AUTOSIZECOL\", 3 ) \r\n.tw_info->visible = 1\r\nVoid = rds_comm( \"TW_ACCT_ROW_VAL\" )\r\nVoid = set_property( @window, '@OrigCol', 1 )\r\nVoid = set_property( @window, '@OrigRow', 1 )\r\nRETURN 1\r\n*===============================================================================================*\r\nBuildPSNInfo:\r\n\tPSNId = get_property( 'RDS_UNLOAD.PSN', 'TEXT' )\r\n\tPSNRec = xlate( 'PROD_SPEC', PSNId, '', 'X' )\r\n\tSpecEpi = PSNRec\r\n\tconvert char(248) to @fm in SpecEpi\r\n\tLayCnt = fieldcount( SpecEpi, @fm )\r\n\t\r\n\tThickTool = '';\tThickType = '';\tThickProve = ''\r\n\tResTool = '';\tResType = '';\tResProve = ''\r\n\tConTool = '';\tConType = '';\tConProve = ''\r\n\tStressTool = '';\tStressType = '';\tStressProve = ''\r\n\tTransTool = '';\tTransType = '';\tTransProve = ''\r\n\tThickMeas = ''; ResMeas = ''; ConMeas = ''\r\n\tStressMeas = ''; TransMeas = ''\r\n\r\n\tThickMeasure = xlate( 'PROD_SPEC', PSNId, 'THICK_MEASURE_ALL', 'X' )\r\n\tResMeasure = xlate( 'PROD_SPEC', PSNId, 'RES_MEASURE_ALL', 'X' )\r\n\tConMeasure = xlate( 'PROD_SPEC', PSNId, 'CON_MEASURE_ALL', 'X' )\r\n\tStressMeasure = xlate( 'PROD_SPEC', PSNId, 'STRESS_MEASURE', 'X' )\r\n\tTransMeasure = xlate( 'PROD_SPEC', PSNId, 'TRANS_MEASURE', 'X' )\r\n\t\r\n\tfor i = 1 to LayCnt\r\n\t ThisThickMeasure = ThickMeasure<1,i>\r\n\t ThisResMeasure = ResMeasure<1,i>\r\n\t ThisConMeasure = ConMeasure<1,i>\r\n\t \r\n\t ThickTool<1,-1> = field( ThisThickMeasure, '~', 1 )\r\n\t ThickType<1,-1> = field( ThisThickMeasure, '~', 2 )\r\n\t ThickProve<1,-1> = field( ThisThickMeasure, '~', 5 )\r\n\t ThickMeas<1,-1> = TWInfoArrayThick$\r\n\r\n\t ResTool<1,-1> = field( ThisResMeasure, '~', 1 )\r\n\t ResType<1,-1> = field( ThisResMeasure, '~', 2 )\r\n\t ResProve<1,-1> = field( ThisResMeasure, '~', 5 )\r\n\t if xlate( 'RDS', get_property( 'RDS_UNLOAD.RDS_NO', 'TEXT' ), rds_res_units$, 'X' ) = 'ê/Ü' then\r\n\t * ohm squared use Sheet RHO\r\n\t ResMeas<1,-1> = TWInfoArrayRHO$\r\n\t end else\r\n\t ResMeas<1,-1> = TWInfoArrayRes$\r\n\t end\r\n\t \r\n\t ConTool<1,-1> = field( ThisConMeasure, '~', 1 )\r\n\t ConType<1,-1> = field( ThisConMeasure, '~', 2 )\r\n\t ConProve<1,-1> = field( ThisConMeasure, '~', 5 )\r\n\t ConMeas<1,-1> = TWInfoArrayConc$\r\n\tnext i\r\n\tStressTool = field( StressMeasure, '~', 1 )\r\n\tStressType = field( StressMeasure, '~', 2 )\r\n\tStressProve = field( StressMeasure, '~', 5 )\r\n\tStressMeas = TWInfoArrayStress$\r\n\r\n\tTransTool = field( TransMeasure, '~', 1 )\r\n\tTransType = field( TransMeasure, '~', 2 )\r\n\tTransProve = field( TransMeasure, '~', 5 )\r\n\tTransMeas = TWInfoArrayTrans$\r\n \r\n AllTools = ThickTool:@vm:ResTool:@vm:ConTool:@vm:StressTool:@vm:TransTool\r\n AllTypes = ThickType:@vm:ResType:@vm:ConType:@vm:StressType:@vm:TransType\r\n AllProves = ThickProve:@vm:ResProve:@vm:ConProve:@vm:StressProve:@vm:TransProve\r\n AllMeas = ThickMeas:@vm:ResMeas:@vm:ConMeas:@vm:StressMeas:@vm:TransMeas\r\n\r\n Void = set_property( @window, '@Tools', AllTools )\r\n Void = set_property( @window, '@Types', AllTypes )\r\n Void = set_property( @window, '@Proves', AllProves )\r\n Void = set_property( @window, '@AllMeas', AllMeas )\r\nreturn\r\n*===============================================================================================*\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/RDS_UNLOAD..json b/LSL2/OIEVENT/CREATE/RDS_UNLOAD..json new file mode 100644 index 0000000..c0cb84e --- /dev/null +++ b/LSL2/OIEVENT/CREATE/RDS_UNLOAD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg, Comm_RDS\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount\r\n\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n\r\nVoid = set_property( @window, '@CurQuery', '' )\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n\t * need to send to qbf\r\n\t\tconvert @vm to @fm in Keys\r\n\t\tVoid = set_property( @window, 'QBFLIST', Keys ) \r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .rds_no->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\tend else\r\n\t .rds_no->text = Keys\r\n\t Void = send_event( @window:'.RDS_NO', 'LOSTFOCUS', '' )\r\n\tend\r\nend \r\nif security_check( 'RDS', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'RDS', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'RDS', Edit$ ) else\r\n security_err_msg( 'RDS', Edit$ )\r\nend\r\n\r\nVoid = set_property( @window, '@NoRead', 0 )\r\nVoid = set_property( @window, '@NCRMustSave', 0 ) \r\n\r\nComm_RDS('Refresh')\t;* Added 01/28/2005 by JCH\r\n\t \t \r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/RDS_UNLOAD_LOAD_EX..json b/LSL2/OIEVENT/CREATE/RDS_UNLOAD_LOAD_EX..json new file mode 100644 index 0000000..dc8ca52 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/RDS_UNLOAD_LOAD_EX..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert rds_equ\r\n\r\nDataSent = CreateParam\r\n\r\nconvert @fm to @rm in DataSent\r\n\r\nControls = 'OO_EX1/OO_EX1_NAME/OO_EX1_DATE/OO_EX1_TIME/'\r\nControls:= 'OI_EX2/OI_EX2_NAME/OI_EX2_DATE/OI_EX2_TIME/'\r\nControls:= 'OO_EX2/OO_EX2_NAME/OO_EX2_DATE/OO_EX2_TIME/'\r\nControls:= 'OI_EX3/OI_EX3_NAME/OI_EX3_DATE/OI_EX3_TIME'\r\nswap '/' with @rm:@window:'.' in Controls\r\n\r\nControls = @window:'.':Controls\r\nVoid = set_property( @window, '@Controls', Controls )\r\nVoid = set_property( Controls, 'INVALUE', DataSent )\r\n\r\n/* WAS ORIGINALLY GOING TO DO THE READING HERE BUT WILL HAVE IT READ AND STORED IN A WINDOW VARIABLE\r\n * IN THE RDS ITSELF AND PASS THE DATA TO THIS WINDOW\r\n.oo_ex1->text = RDSRec\r\n.oo_ex1_name->text = oconv( RDSRec, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.oo_ex1_date->text = oconv( RDSRec, 'D2/' )\r\n.oo_ex1_time->text = oconv( RDSREc, 'MTH' )\r\n**************\r\n.oi_ex2->text = RDSRec\r\n.oi_ex2_name->text = oconv( RDSRec, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.oi_ex2_date->text = oconv( RDSRec, 'D2/' )\r\n.oi_ex2_time->text = oconv( RDSREc, 'MTH' )\r\n**************\r\n.oo_ex2->text = RDSRec\r\n.oo_ex2_name->text = oconv( RDSRec, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.oo_ex2_date->text = oconv( RDSRec, 'D2/' )\r\n.oo_ex2_time->text = oconv( RDSREc, 'MTH' )\r\n**************\r\n.oi_ex3->text = RDSRec\r\n.oi_ex3_name->text = oconv( RDSRec, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.oi_ex3_date->text = oconv( RDSRec, 'D2/' )\r\n.oi_ex3_time->text = oconv( RDSREc, 'MTH' )\r\n**************\r\n*/\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/RDS_VER..json b/LSL2/OIEVENT/CREATE/RDS_VER..json new file mode 100644 index 0000000..2f4d670 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/RDS_VER..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function scroll_enable, center_window\r\nDECLARE SUBROUTINE Set_Property\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\n\r\nInstruction = CreateParam\r\nSet_Property(@WINDOW:'.INST','TEXT',Instruction)\r\n\r\n\r\nVoid = scroll_enable()\t;* Who knows whats going on with this ...\r\n\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/REACTORPM_SRPT1..json b/LSL2/OIEVENT/CREATE/REACTORPM_SRPT1..json new file mode 100644 index 0000000..c681a82 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/REACTORPM_SRPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function center_window\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/REACTOR_LOG_AREV..json b/LSL2/OIEVENT/CREATE/REACTOR_LOG_AREV..json new file mode 100644 index 0000000..0a7e623 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/REACTOR_LOG_AREV..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg, sendmessage\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, getwindow, fieldcount\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\nequ QbfOccurred$ to 1126\r\n\r\nif Misc@ then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t WndHnd = get_property( @window, 'HANDLE' )\r\n\t HbBar = getwindow( WndHnd, 5 )\r\n\t sendmessage( HbBar, QbfOccurred$, 0, 0 ) \r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .reactor_log_no->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .reactor_log_no->text = Keys\r\n Void = send_event( @window:'.REACTOR_LOG_NO', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'Reactor Log', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Reactor Log', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Reactor Log', Edit$ ) else\r\n security_err_msg( 'Reactor Log', Edit$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/REACTOR_LOG_AW..json b/LSL2/OIEVENT/CREATE/REACTOR_LOG_AW..json new file mode 100644 index 0000000..9cdbfd8 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/REACTOR_LOG_AW..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert reactor_log_equ\r\ndeclare function center_window\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nAWData = field( CreateParam, char(245), 1 )\r\n\r\n* LOAD THE ARM AND WAND INFORMATION\r\n\r\n*Void = set_property( @window, '@Loading', 1 )\r\n\r\nControls = ''\r\nControls := 'EXTEND_HOME/'\r\nControls := 'LEFT_EXTEND/'\r\nControls := 'RIGHT_EXTEND/'\r\nControls := 'LONG_EXTEND/'\r\nControls := 'SHORT_EXTEND/'\r\nControls := 'EDGE_EXTEND/'\r\nControls := 'LSTEPS/'\r\nControls := 'ROTATE_EDGE/'\r\nControls := 'GSTEPS/'\r\nControls := 'PICKUP_DELAY/'\r\nControls := 'GAS_ON/'\r\nControls := 'GAS_OFF/'\r\nControls := 'DROPOFF_DELAY/'\r\nControls := 'VELOCITY_EXTEND/'\r\nControls := 'ACCELERATION_EXTEND/'\r\nControls := 'VELOCITY_ROTATE/'\r\nControls := 'ACCELERATION_ROTATE'\r\n\r\nswap '/' with @rm:@window:'.' in Controls\r\nControls = @window:'.':Controls\r\nconvert @fm to @rm in AWData\r\nvoid = set_property( Controls, 'TEXT', AWData )\r\nVoid = set_property( @window, '@Controls', Controls )\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/REACTOR_LOG_LL..json b/LSL2/OIEVENT/CREATE/REACTOR_LOG_LL..json new file mode 100644 index 0000000..b4f1c5f --- /dev/null +++ b/LSL2/OIEVENT/CREATE/REACTOR_LOG_LL..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert prod_spec_equ\r\ndeclare function center_window\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nLLData = field( CreateParam, char(245), 1 )\r\n\r\n* LOAD THE LEAK AND LAMP INFORMATION\r\n\r\n*Void = set_property( @window, '@Loading', 1 )\r\n\r\nControls = 'TUBE_COND/RECIRCULATION/TUBE_LEAK/GRAPHITE_PITS/GOLD_COND/ROTATION/GRAPHITE_ADJ/SHADOW'\r\n\r\nswap '/' with @rm:@window:'.' in Controls\r\nControls = @window:'.':Controls\r\nconvert @fm to @rm in LLData\r\nvoid = set_property( Controls, 'INVALUE', LLData )\r\nVoid = set_property( @window, '@Controls', Controls )\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/REACTOR_LOG_RPT1..json b/LSL2/OIEVENT/CREATE/REACTOR_LOG_RPT1..json new file mode 100644 index 0000000..856f259 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/REACTOR_LOG_RPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data\r\ndeclare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Reactor Log', Print$ ) else\r\n security_err_msg( 'Reactor Log', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nset_list_box_data( CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/REACTOR_LOG_RPT2..json b/LSL2/OIEVENT/CREATE/REACTOR_LOG_RPT2..json new file mode 100644 index 0000000..07ae77f --- /dev/null +++ b/LSL2/OIEVENT/CREATE/REACTOR_LOG_RPT2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Reactor Log', Print$ ) else\r\n security_err_msg( 'Reactor Log', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/REACTOR_LOG_RPT3..json b/LSL2/OIEVENT/CREATE/REACTOR_LOG_RPT3..json new file mode 100644 index 0000000..856f259 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/REACTOR_LOG_RPT3..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data\r\ndeclare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Reactor Log', Print$ ) else\r\n security_err_msg( 'Reactor Log', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nset_list_box_data( CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/REACTOR_LOG_RPT4..json b/LSL2/OIEVENT/CREATE/REACTOR_LOG_RPT4..json new file mode 100644 index 0000000..856f259 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/REACTOR_LOG_RPT4..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data\r\ndeclare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Reactor Log', Print$ ) else\r\n security_err_msg( 'Reactor Log', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nset_list_box_data( CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/REACTOR_LOG_SRPT1..json b/LSL2/OIEVENT/CREATE/REACTOR_LOG_SRPT1..json new file mode 100644 index 0000000..185ea56 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/REACTOR_LOG_SRPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "Declare Subroutine set_list_box_data\r\ndeclare function center_window\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nset_list_box_data( @window )\r\n\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/REACTOR_LOG_SRPT2..json b/LSL2/OIEVENT/CREATE/REACTOR_LOG_SRPT2..json new file mode 100644 index 0000000..c540ff1 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/REACTOR_LOG_SRPT2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Reactor Log', Print$ ) else\r\n security_err_msg( 'Reactor Log', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/REACTOR_LOG_TODO..json b/LSL2/OIEVENT/CREATE/REACTOR_LOG_TODO..json new file mode 100644 index 0000000..1ddd08e --- /dev/null +++ b/LSL2/OIEVENT/CREATE/REACTOR_LOG_TODO..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert reactor_pm_equ\r\n$insert react_servs_equ\r\n\r\nReactor = field( CreateParam, char(245), 2 )\r\nTitle = @@window->text\r\nTitle:= ' ':Reactor\r\n@@window->text = Title\r\nCreateParam = field( CreateParam, char(245), 1 )\r\nconvert @fm to @vm in CreateParam\r\nServIds = xlate( 'REACTOR_PM', CreateParam, reactor_pm_react_serv_id$, 'X' )\r\nNextDone = xlate( 'REACTOR_PM', CreateParam, reactor_pm_next_done$, 'X' )\r\nServDescs = xlate( 'REACT_SERVS', ServIds, react_servs_description$, 'X' )\r\nArray = ''\r\nArray<1> = oconv( NextDone, 'D2/' )\r\nArray<2> = ServIds\r\nArray<3> = ServDescs\r\n.serv_info->array = Array\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/REACTOR_MAINT_TODO..json b/LSL2/OIEVENT/CREATE/REACTOR_MAINT_TODO..json new file mode 100644 index 0000000..b117f2f --- /dev/null +++ b/LSL2/OIEVENT/CREATE/REACTOR_MAINT_TODO..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE SUBROUTINE ErrMsg, RList, Create_Note, Set_Property, Send_Message\r\nDECLARE FUNCTION Send_Message, Center_Window, End_Window, Utility\r\n\r\n$INSERT RLIST_EQUATES\r\n$INSERT REACT_SERVS_EQU\r\n$INSERT REACTOR_PM_EQU\t\r\n$INSERT REACTOR_EQUATES\r\n\r\nVoid = Utility( 'CURSOR', 'H' )\r\nSet_Property(@WINDOW:'.LIST_1','VISIBLE',0)\r\n\r\nOPEN 'REACTOR_PM' TO RPMTable ELSE\r\n\tErrMsg('Unable to open REACTOR_PM table...')\r\n\tRETURN 0\r\nEND\r\n\r\nEndDt = Date() + 60\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN EndDt = Date() + 365\r\n\r\nStatement = 'SELECT REACTOR_PM WITH REACTOR NE \"\" AND WITH COMPLETE_DATE = \"\" AND WITH DUE_DT < ':QUOTE(OConv(EndDt, 'D4/')):' BY REACTOR BY-DSND NEXT_DONE'\r\nRList( Statement, target_activelist$, '', '', '' )\r\n\r\nReactNos = ''\r\nNextDueDts = ''\r\nServiceIDs = ''\r\n\r\nDone = 0\r\nLOOP\r\n\tREADNEXT RPMKey ELSE Done = 1\r\nUNTIL Done\r\n\tREAD RPMRec FROM RPMTable,RPMKey THEN\r\n\t\tReactNo\t\t= RPMRec\r\n\t\tServiceID\t= RPMRec\r\n\t\tNextDueDt\t= RPMRec\r\n\t\t\r\n\t\tLOCATE ReactNo IN ReactNos BY 'AR' USING @FM SETTING RPos ELSE\r\n\t\t\tReactNos = INSERT(ReactNos,RPos,0,0,ReactNo)\r\n\t\tEND\r\n\t\t\r\n\t\tLOCATE NextDueDt IN NextDueDts BY 'AR' USING @VM SETTING DPos ELSE\r\n\t\t\tNextDueDts = INSERT(NextDueDts,RPos,DPos,0,NextDueDt)\r\n\t\t\tServiceIDs = INSERT(ServiceIDs,RPos,DPos,0,ServiceID)\r\n\t\tEND\r\n\tEND\t;* End of RPMRec read\r\nREPEAT\r\n\r\nDisplay = ''\r\n\r\nReactCnt = COUNT(ReactNos,@FM) + (ReactNos NE '')\r\n\r\nPrevReactNo = ''\r\nFOR R = 1 TO ReactCnt\r\n\tReactNo = ReactNos\r\n\t\r\n\tIF ReactNo NE PrevReactNo THEN\r\n\t\tReactRec\t= XLATE('REACTOR',ReactNo,'','X')\r\n\t\tReactType\t= OCONV(ReactRec,'[REACT_TYPE_CONV,OPSREF]')\r\n\r\n\t\tReactDesc\t= ReactRec\r\n\t\tPrevReactNo = ReactNo\r\n\t\tIF Display NE '' THEN\r\n\t\t\tDisplay<-1> = '6-1:':STR('-',100)\r\n\t\tEND\r\n\t\tDisplay<-1> = '1-1: React No ':ReactNo:' ':ReactType:' ':ReactDesc\r\n\tEND\r\n\t\r\n\tndCnt = COUNT(NextDueDts,@VM) + (NextDueDts NE '')\r\n\t\r\n\tFOR I = 1 TO ndCnt\r\n\t\tNextDueDt\t= OCONV(NextDueDts,'D4/')\r\n\t\tServiceID \t= ServiceIDs\r\n\t\tService\t\t= XLATE('REACT_SERVS',ServiceID,REACT_SERVS_DESCRIPTION$,'X' )\r\n\t\t\r\n\t\tDisplay<-1> = '2-2: Due On: ':NextDueDt:' ':ServiceID:' ':Service\r\n\tNEXT I\r\n\r\nNEXT R\r\n\r\nvoid = Center_Window(@WINDOW)\r\n\r\nSet_Property(@WINDOW:'.TITLE_LABEL','DEFPROP',\"Reactor PM's Due Before \":OCONV(EndDt,'D4,HL'))\r\n\r\nSet_Property(@WINDOW,'VISIBLE',1)\r\n\r\nSet_Property(@WINDOW:'.LIST_1','LIST',Display)\r\n\r\nSend_Message(@WINDOW:'.LIST_1', 'EXPAND', 0, 0 )\r\n\r\nSet_Property(@WINDOW:'.LIST_1','VISIBLE',1)\r\n\r\nvoid = Utility( 'CURSOR', 'A' )\r\n\r\nRETURN 1\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/REACTOR_PM..json b/LSL2/OIEVENT/CREATE/REACTOR_PM..json new file mode 100644 index 0000000..4e6eaf3 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/REACTOR_PM..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\n\r\nvoid = center_window( @window )\r\nvoid = set_property( @window, 'VISIBLE', 1 )\r\n\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .pm_id->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .pm_id->text = Keys\r\n Void = send_event( @window:'.PM_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'Reactor PM', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Reactor PM', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Reactor PM', Edit$ ) else\r\n security_err_msg( 'Reactor PM', Edit$ )\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/REACTOR_UTIL_SRPT1..json b/LSL2/OIEVENT/CREATE/REACTOR_UTIL_SRPT1..json new file mode 100644 index 0000000..fea3f46 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/REACTOR_UTIL_SRPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "Declare Subroutine set_list_box_data\r\n\r\nset_list_box_data( @window )\r\n\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/REACTOR_UTIL_SRPT2..json b/LSL2/OIEVENT/CREATE/REACTOR_UTIL_SRPT2..json new file mode 100644 index 0000000..fea3f46 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/REACTOR_UTIL_SRPT2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "Declare Subroutine set_list_box_data\r\n\r\nset_list_box_data( @window )\r\n\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/REACT_HRS..json b/LSL2/OIEVENT/CREATE/REACT_HRS..json new file mode 100644 index 0000000..580a46e --- /dev/null +++ b/LSL2/OIEVENT/CREATE/REACT_HRS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, send_event, admin_user, center_window, xlate, memberof, set_property\r\ndeclare function send_message, post_event\r\ndeclare subroutine end_dialog\r\n\r\n$insert msg_equates\r\n$insert react_hrs_equ\r\n$insert logical\r\n\r\nequ EditTableInsDel$ to 4\r\nequ Protected$ to 8\r\nequ ReadOnly$ to 2048\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif memberof (@user4, 'MAINTENANCE') then \r\n\topen 'CONFIG' to ConfigTable else\r\n\t Void = msg( '', 'Unable to open CONFIG table' )\r\n\t end_dialog( @window, '' )\r\n\t return 0\r\n\tend\r\n lock ConfigTable, 'REACT_HRS' else\r\n Void = msg( '', 'REACT_HRS is in use somewhere else...' )\r\n end_dialog( @window, '' )\r\n return 0\r\n end\r\n\tread ReactHrsInfo from ConfigTable, 'REACT_HRS' then\r\n\t if ReactHrsInfo <> '' then\r\n\t *ReactInfo = ''\r\n\t *ReactInfo<1> = ReactHrsInfo\r\n\t *ReactInfo<2> = ReactHrsInfo\r\n\t *ReactInfo<3> = ReactHrsInfo\r\n\t *.react_info->array = ReactInfo\r\n\t .react_info->array = ReactHrsInfo\r\n\t end\r\n\tend\r\nend else\r\n Message = 'You do not have the proper security to enter reactor hours...' \r\n Message = 'H'\r\n Void = msg( '', Message )\r\n Void = send_event( @window, 'CLOSE' )\r\nend\r\n\r\n.react_info->selpos = 2:@fm:1\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/REACT_ITEMS..json b/LSL2/OIEVENT/CREATE/REACT_ITEMS..json new file mode 100644 index 0000000..254d49a --- /dev/null +++ b/LSL2/OIEVENT/CREATE/REACT_ITEMS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .item_no->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .item_no->text = Keys\r\n Void = send_event( @window:'.ITEM_NO', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'React Items', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'React Items', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'React Items', Edit$ ) else\r\n security_err_msg( 'React Items', Edit$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/REACT_LL_SERV..json b/LSL2/OIEVENT/CREATE/REACT_LL_SERV..json new file mode 100644 index 0000000..dd62ce6 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/REACT_LL_SERV..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, send_event, admin_user, center_window, xlate, memberof, set_property\r\ndeclare function send_message, post_event, fieldcount\r\ndeclare subroutine end_dialog\r\n\r\n$insert msg_equates\r\n$insert react_ll_serv_equ\r\n$insert logical\r\ndeclare subroutine array_sort\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nopen 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\nread ReactLLInfo from ConfigTable, 'REACT_LL_SERV' then\r\n if ReactLLInfo <> '' then\r\n\t Reactors = ReactLLInfo\r\n\t LastDate = ReactLLInfo\r\n\t LastTime = REactLLInfo\r\n\t LogIDs = ReactLLInfo\r\n\t HrsSinceLast = '' ;* IS AN EQUATE IN THE REACT_LL_SERV AS LLHrsSinceLast$ BUT NOT PHYSICALLY STORED\r\n\t \r\n * Loop through each reactor and calculate the hours\r\n \r\n Today = date()\r\n\t Rcnt = fieldcount( Reactors, @vm )\r\n\t for i = 1 to Rcnt\r\n DateDiff = Today - LastDate<1,i>\r\n SecondsToAdd = 0\r\n if DateDiff then\r\n SecondsToAdd = 86400*DateDiff\r\n end\r\n Tans = ( time() + SecondsToAdd ) - LastTime<1,i>\r\n HrsSinceLast<1,i> = ( Tans /3600) * 100\t \r\n\t next i\r\n\t HrsSinceLast = oconv( HrsSinceLast, 'MD2' )\r\n\t LastDate = oconv( LastDate, 'D2/' )\r\n\t LastTime = oconv( LastTime, 'MTH' )\r\n\t \r\n * NEED TO SORT BY DSND HOURS\r\n ArraysToPass = HrsSinceLast:@fm:Reactors:@fm:LastDate:@fm:LastTime:@fm:LogIDs\r\n \r\n array_sort( ArraysToPass, 'D', 'R' )\t\t;* WTFITS???????\r\n \r\n NewArray = ''\r\n HoldHrs = ArraysToPass<1>\r\n NewArray<5> = ArraysToPass<1>\r\n NewArray<4> = ArraysToPass<5>\r\n NewArray<3> = ArraysToPass<4>\r\n NewArray<2> = ArraysToPass<3>\r\n NewArray<1> = ArraysToPass<2>\r\n .ll_info->array = NewArray\r\n end\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/REACT_MODE_CHG..json b/LSL2/OIEVENT/CREATE/REACT_MODE_CHG..json new file mode 100644 index 0000000..4ed452b --- /dev/null +++ b/LSL2/OIEVENT/CREATE/REACT_MODE_CHG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function memberof, msg, post_event, center_window\r\ndeclare subroutine set_list_box_data, rlist, Set_Property\r\n\r\n$insert logical\r\n$insert REACT_MODE_EQUATES\r\n$insert react_mode_equ\t\t\t;* THESE ARE NOT THE SAME jch\r\n$insert msg_equates\r\n$insert rlist_equates\r\n$insert react_prob_cat_equates\r\n$insert reactor_log_equ\r\n\r\n* CreateParam is the reactor number THEN '*' THEN the following\r\n\r\n\r\nReactor\t\t\t\t= CreateParam[1,'*']\r\nWo\t\t\t\t\t= CreateParam[COL2()+1,'*']\r\nForceModeChange \t= CreateParam[COL2()+1,'*']\r\nFourthParm\t\t\t= CreateParam[COL2()+1,'*']\r\n\t\t\t\r\nLeakLampAutoFlag\t= (FourthParm = 1 )\r\n\r\nVoid = Set_Property( @WINDOW, '@LeakLampAutoFlag', LeakLampAutoFlag )\r\n\r\nNotSignedRL = 0\r\n\r\nIF INDEX(CreateParam,'CENTER',1 ) THEN\r\n void = center_window( @WINDOW )\r\nEND ELSE\r\n Void = Set_Property( @WINDOW, 'VISIBLE', 1 )\r\nEND\r\n\r\n* * * * Added 3/27/2004 John C. Henry - J.C. Henry Inc.\t(Added popup with reactor status codes & descriptions)\r\n\r\nPopupData = XLATE('SYSREPOSPOPUPS','LSL2**REACTOR_MODE',8,'X')\r\nStatusDescs = ''\r\nFOR I = 1 TO COUNT(PopupData,@VM) + (@VM NE '')\r\n\tStatusDesc = PopupData<1,I,2>\r\n\tLocate StatusDesc In StatusDescs By 'AL' Using @FM Setting POS ELSE\r\n\t\tStatusDescs = INSERT(StatusDescs,Pos,0,0,StatusDesc)\r\n\tEND\r\nNEXT I\r\n\r\n.MODE->LIST = StatusDescs\r\n\r\n* * * * End of changes on 3 27/2004\r\n\r\n\r\nSet_List_Box_Data( @WINDOW )\r\n\r\nIF memberof( @USER4, 'DATA_ENTRY' ) OR memberof( @USER4, 'SUPERVISOR' ) OR memberof( @USER4, 'MAINTENANCE' ) THEN\r\n\r\n\tIF Reactor NE '' THEN\r\n\t\t* called from status window and createparam is the reactor number\r\n\t\t* so simply READ and lock\r\n \r\n\t\tOPEN 'CONFIG' TO ConfigTable ELSE\r\n\t\t\tVoid = msg( '', 'Unable to open CONFIG table...' )\r\n\t\t\tRETURN 0\r\n\t\tEND\r\n\t \r\n\t\tLOCK ConfigTable, 'REACT_MODE':Reactor THEN\r\n\t\t\r\n\t\t\tIF ForceModeChange THEN\r\n\t\t\t\t.cancel->enabled = FALSE$\r\n\t\t\t\t.apply->enabled = TRUE$\r\n\t\t\tEND\r\n\t\t\t\r\n\t\tEND ELSE\r\n\t\t\t.mode->enabled = FALSE$\r\n\t\t\t.reactmodesvc->enabled = FALSE$\r\n\t\t\t.cancel->text = 'OK'\t \r\n\t\t\tMsgInfo = ''\r\n\t\t\tMsgInfo = 'Reactor ':Reactor:' is currently being set to another mode...'\r\n\t\t\tMsgInfo = '!'\r\n\t\t\tNotSignedRL = 1\r\n\t\t\tVoid = msg( '', MsgInfo )\r\n\t\tEND\r\n\t\t\r\n\t\tGOSUB DoRead\r\n\t\tGOSUB LoadProbCat\r\n\t \r\n\tEND ELSE\r\n\t\t * let them enter the reactor number and get a lock on the onchange event\r\n\t\t.reactor_no->enabled = TRUE$\r\n\t\t\r\n\tEND\t;* End of check for Non-Null Reactor No \r\n\t\r\n\t\r\nEND ELSE\r\n\r\n\t.mode->enabled = FALSE$\r\n\t.reactmodesvc->enabled = FALSE$\r\n\t.cancel->text = 'OK'\r\n\t\r\n\tGOSUB DoRead\r\n\tGOSUB LoadProbCat\r\n\t\r\nEND\t;* End of check for Groups allowed to change\r\n\r\n\r\nIF Reactor ELSE\r\n\t void = post_event( @WINDOW:'.REACTOR_NO', 'GOTFOCUS', '' )\r\n\tvoid = Set_Property( @WINDOW:'.REACTOR_NO', 'FOCUS', 1 ) \r\nEND\r\n\r\nRLID = .rlid->text\r\n\r\nIF ( RLID <> '' ) THEN\r\n\t.rl_button->visible = 1\r\n\tOPEN 'REACTOR_LOG' TO RLTable ELSE\r\n\t\tmsg( '', 'Unable to open REACTOR_LOG...' )\r\n\t\tRETURN 0\r\n\tEND\r\n\t\r\n\tREAD RLRec from RLTable, RLID THEN\r\n\t\r\n\t\tIF RLRec = '' THEN\r\n\t\t\r\n\t\t\t* DO NOT ALLOW A MODE CHANGE CAUSE THE REACTOR LOG IS STILL OPEN\r\n\t\t\t\r\n\t\t\tMsgInfo = ''\r\n\t\t\tMsgInfo = 'You are not allowed to change the mode because the maintenance tech has not signed off on the reactor log entry...'\r\n\t\t\tMsgInfo = '!'\r\n\t\t\t.mode->enabled = 0\r\n\t\t\tNotSignedRL = 1\r\n\t\t\tVoid = msg( '', MsgInfo )\r\n\t\t\t\r\n\t\tEND ELSE\r\n\t\t\r\n\t\t\t* ALLOW A MODE CHANGE CAUSE IT HAS BEEN SIGNED BY A MAINTENANCE TECHNICIAN\r\n\t\t\t\r\n\t\tEND\r\n\t\t\r\n\tEND ELSE\r\n\t\t* DO NOTHING CAUSE SOME MAINT GUY MUST HAVE DELETED THE ENTRY\r\n\tEND\r\n \r\nEND\r\n\r\nIF LeakLampAutoFlag and ( NotSignedRL = 0 ) THEN\r\n\r\n\t.reactor_no->text\t\t= Reactor\r\n\t.mode->text\t\t\t\t= 'Maintenance (Sched)'\r\n\t.reactmodesvc->visible\t= 1\r\n\t.reactmodesvc->text\t\t= ' 43 | Scheduled Service'\r\n\tVoid = Post_Event( @WINDOW:'.APPLY', 'CLICK' )\r\n\t\r\nEND ELSE\r\n\r\n\tIF LeakLampAutoFlag THEN\r\n\t\tVoid = Post_Event( @WINDOW:'.CANCEL', 'CLICK' ) \r\n\tEND\r\n\t\r\nEND\r\n\r\nRETURN 0\r\n\r\n\r\n* * * * * * *\r\nDoRead:\r\n* * * * * * *\r\n\r\nRec = XLATE( 'CONFIG', 'REACT_MODE':Reactor, '', 'X' )\r\n\r\nService\t= Rec\r\nNote\t= Rec\r\n\r\n\r\nSet_Property(@WINDOW:'.REACTOR_NO','TEXT', Reactor)\r\nSet_Property(@WINDOW:'.USERNAME','TEXT', Rec)\r\nSet_Property(@WINDOW:'.DATE','TEXT', Rec)\r\nSet_Property(@WINDOW:'.TIME','TEXT', Rec)\r\nSet_Property(@WINDOW:'.MODE','TEXT', Rec)\r\nSet_Property(@WINDOW, '@Mode', Rec )\r\nSet_Property(@WINDOW:'.RUID','TEXT', Rec)\r\nSet_Property(@WINDOW:'.RLID','TEXT', Rec)\r\nSet_Property(@WINDOW:'.WO','TEXT', Wo)\r\n \r\nIF Service THEN\r\n\tSet_Property(@WINDOW:'.REACTMODESVC','VISIBLE',TRUE$)\r\n\tSet_Property(@WINDOW:'.SERV_LABEL','VISIBLE',TRUE$)\r\n\tSet_Property(@WINDOW:'.REACTMODESVC','TEXT', Service)\r\n\tSet_Property(@WINDOW:'.REACTMODESVC','ENABLED', 0)\t\t\t;* Do not allow them to change the service until they change the mode\r\nEND\r\n\r\nRETURN\r\n\r\n* * * * * * *\r\nLoadProbCat:\r\n* * * * * * *\r\n\r\nOPEN 'REACT_PROB_CAT' TO RPCTable ELSE\r\n\tmsg( '', 'Unable to open REACT_PROB_CAT' )\r\n\tRETURN 0\r\nEND\r\n\r\nStmt = 'SELECT REACT_PROB_CAT BY REACTOR_PROBLEM_CATEGORY'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\n\r\nList = ''\r\nIF @reccount THEN\r\n\tEof = FALSE$\r\n\tNumKeys = @reccount\r\n\tCnt = 0\r\n\t\r\n\tloop\r\n\t\tREADNEXT RId ELSE Eof = TRUE$\r\n\tuntil Eof\r\n\t\r\n\t\tREAD RPRec from RPCTable, RId ELSE\r\n\t\t\tVoid = msg( '', 'Unable to READ REACT_PROB_CAT ':RId )\r\n\t\t\tRETURN 0\r\n\t\t END\r\n\t\t \r\n\t\tTvar = ''\r\n\t\tExtraSpace = ''\r\n\t\tExtraSpace = ( len( RId ) = 1 )\r\n\t\tTvar = fmt( RId, 'C#5')\r\n\t\t\r\n\t\tIF ExtraSpace THEN\r\n\t\t\tTvar:= ' '\r\n\t\tEND\r\n\t\t\r\n\t\tTvar := fmt( ' ', 'L#3' ):'|':fmt( ' ', 'L#3'):RPRec \r\n\t\tList<-1> = Tvar\r\n\t\t\r\n\trepeat\r\nEND\r\n\r\n.reactmodesvc->list = list\r\n\r\nRETURN\r\n*===========================================================================*" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/REACT_PROBS..json b/LSL2/OIEVENT/CREATE/REACT_PROBS..json new file mode 100644 index 0000000..8f8702d --- /dev/null +++ b/LSL2/OIEVENT/CREATE/REACT_PROBS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .problem_id->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .problem_id->text = Keys\r\n Void = send_event( @window:'.PROBLEM_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'React Probs', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'React Probs', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'React Probs', Edit$ ) else\r\n security_err_msg( 'React Probs', Edit$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/REACT_PROB_CAT..json b/LSL2/OIEVENT/CREATE/REACT_PROB_CAT..json new file mode 100644 index 0000000..8bf90aa --- /dev/null +++ b/LSL2/OIEVENT/CREATE/REACT_PROB_CAT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .cat_id->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .cat_id->text = Keys\r\n Void = send_event( @window:'.CAT_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'React Prob Cat', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'React Prob Cat', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'React Prob Cat', Edit$ ) else\r\n security_err_msg( 'React Prob Cat', Edit$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/REACT_STATUS_EVEN..json b/LSL2/OIEVENT/CREATE/REACT_STATUS_EVEN..json new file mode 100644 index 0000000..c02b38a --- /dev/null +++ b/LSL2/OIEVENT/CREATE/REACT_STATUS_EVEN..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm, center_window\r\n\r\nScreenSize = Get_Property('SYSTEM','SIZE')\r\nDialogSize = Get_Property(@WINDOW,'SIZE')\r\n\r\nwScreen = ScreenSize<3>\r\nhScreen = ScreenSize<4>\r\n\r\nxDialog = DialogSize<1>\r\nyDialog = DialogSize<2>\r\nwDialog = DialogSize<3>\r\nhDialog = DialogSize<4>\r\n\r\ncScreen = INT(wScreen/2)\r\n\r\nDialogSize<1> = (cScreen - wDialog - 1)\t;* Center - Width of reactor window - 1\r\nDialogSize<2> = 50\r\n\r\nvoid = Set_Property(@WINDOW,'SIZE',DialogSize)\r\n\r\nVoid = set_property( @window, 'VISIBLE', 1 )\r\n\r\nvoid = Set_Property(@WINDOW,'TIMER',60000:@FM:20000)\t;* 60 second timer for refresh, 20 second offset\r\n\r\nVoid = wo_daily_sched_all_comm( 'FORM_CREATE', '')\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/REACT_STATUS_ODD..json b/LSL2/OIEVENT/CREATE/REACT_STATUS_ODD..json new file mode 100644 index 0000000..780266b --- /dev/null +++ b/LSL2/OIEVENT/CREATE/REACT_STATUS_ODD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm, center_window\r\n\r\nScreenSize = Get_Property('SYSTEM','SIZE')\r\nDialogSize = Get_Property(@WINDOW,'SIZE')\r\n\r\nwScreen = ScreenSize<3>\r\nhScreen = ScreenSize<4>\r\n\r\nxDialog = DialogSize<1>\r\nyDialog = DialogSize<2>\r\nwDialog = DialogSize<3>\r\nhDialog = DialogSize<4>\r\n\r\ncScreen = INT(wScreen/2)\r\n\r\nDialogSize<1> = cScreen + 1\t\t; * Center + 1\r\nDialogSize<2> = 50\r\n\r\nvoid = Set_Property(@WINDOW,'SIZE',DialogSize)\r\n\r\nvoid = Set_Property(@WINDOW,'VISIBLE',1)\r\n\r\nvoid = Set_Property(@WINDOW,'TIMER',60000)\t;* 60 second timer for refresh\r\n\r\nVoid = wo_daily_sched_all_comm( 'FORM_CREATE', '')\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/REACT_TUBE_CHG..json b/LSL2/OIEVENT/CREATE/REACT_TUBE_CHG..json new file mode 100644 index 0000000..10475e6 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/REACT_TUBE_CHG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, send_event, admin_user, center_window, xlate, memberof, set_property\r\ndeclare function send_message, post_event\r\ndeclare subroutine end_dialog\r\n\r\n$insert msg_equates\r\n$insert react_tube_chg_equ\r\n$insert logical\r\ndeclare subroutine array_sort\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nopen 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\nread ReactTubeInfo from ConfigTable, 'REACT_TUBE_CHG' then\r\n if ReactTubeInfo <> '' then\r\n\t Reactors = ReactTubeInfo\r\n\t LastDone = oconv( ReactTubeInfo, 'D2/' )\r\n\t ReactorLogIDs = ReactTubeInfo\r\n ReactElapsedHrs = xlate( 'REACTOR_LOG', ReactorLogIDs, 'REACT_HRS_ELAPSED', 'X' )\r\n \r\n * NEED TO SORT BY DSND HOURS\r\n ArraysToPass = ReactElapsedHrs:@fm:Reactors:@fm:LastDone:@fm:ReactorLogIDs\r\n array_sort( ArraysToPass, 'D', 'R' )\r\n NewArray = ''\r\n HoldHrs = ArraysToPass<1>\r\n NewArray<4> = ArraysToPass<1>\r\n NewArray<3> = ArraysToPass<4>\r\n NewArray<2> = ArraysToPass<3>\r\n NewArray<1> = ArraysToPass<2>\r\n *.tube_chg_info->array = ReactTubeInfo:@fm:ReactElapsedHrs\r\n .tube_chg_info->array = NewArray\r\n end\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/RECIPE..json b/LSL2/OIEVENT/CREATE/RECIPE..json new file mode 100644 index 0000000..a7bcce9 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/RECIPE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg, Comm_Recipe\r\ndeclare subroutine PlaceDialog\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function fieldcount\r\n\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n\r\n\r\nComm_Recipe('Create')\r\n\r\n\r\nif index( CreateParam, 'CENTER', 1 ) or index( CreateParam, 'Choosing', 1 ) then\r\n PlaceDialog(-2, -2)\r\nend else\r\n\tPlaceDialog(-2, -2)\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif index( CreateParam, 'Choosing', 1 ) then\r\n .ret_recipe_num_button->visible = 1\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n\t * need to send to qbf\r\n\t\tconvert @vm to @fm in Keys\r\n\t\tVoid = set_property( @window, 'QBFLIST', Keys ) \r\n\t Void = set_property( @window, '@NoRead', 1 ) \r\n\t .recipe_no->text = Keys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\tend else\r\n\t .recipe_no->text = Keys\r\n\t Void = send_event( @window:'.RECIPE_NO', 'LOSTFOCUS', '' )\r\n\tend\r\nend \r\nif security_check( 'Recipe', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Recipe', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Recipe', Edit$ ) else\r\n security_err_msg( 'Recipe', Edit$ )\r\nend\r\nVoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/RECIPE2..json b/LSL2/OIEVENT/CREATE/RECIPE2..json new file mode 100644 index 0000000..0c0f14c --- /dev/null +++ b/LSL2/OIEVENT/CREATE/RECIPE2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data, PlaceDialog\r\ndeclare function set_property, fieldcount\r\n$insert quote_spec_equ\r\n\r\nPlaceDialog(-2, -2)\r\n\r\nRecipeInfo = field( CreateParam, char(244), 1 )\r\n\r\nTitle = field( CreateParam, char(244), 2 )\r\nCurTitle = get_property( @window, 'TEXT' )\r\nCurTitle:= ' ':Title\r\nVoid = set_property( @window, 'TEXT', CurTitle )\r\nNumLayers = fieldcount( RecipeInfo, char(248) )\r\nif NumLayers = 0 then\r\n NumLayers = 1\r\nend\r\n.layer_desc->text = '1 of ':NumLayers\r\nFirstLayer = field( RecipeInfo, char(248), 1 )\r\nVoid = set_property( @window, '@CurLayer', 1 )\r\nVoid = set_property( @window, '@RecipeInfo', RecipeInfo )\r\nVoid = set_property( @window, '@OrigRecipeInfo', RecipeInfo )\r\n\r\n* now load the RECIPE specific prompts\r\nControls = 'EPI_DOPANT/DEP_TIME_MIN/DEP_TIME_MAX/EPI_DILUENT/DOPANT_FLOW_MIN/DOPANT_FLOW_MAX/EDL_F_OFFSET_MIN/EDL_F_OFFSET_MAX/EDL_S_OFFSET_MIN/EDL_S_OFFSET_MAX/EDL_R_OFFSET_MIN/EDL_R_OFFSET_MAX/EDL_H2_FLOW_MIN/EDL_H2_FLOW_MAX/EDL_TCS_FLOW_MIN/EDL_TCS_FLOW_MAX'\r\nswap '/' with @rm:@window:'.' in Controls\r\nControls = @window:'.':Controls\r\nVoid = set_property( @window, '@RecipeControls', Controls )\r\nRecipePromptCnt = fieldcount( Controls, @rm )\r\nVoid = set_property( @window, '@RecipePromptCnt', RecipePromptCnt )\r\nValueCnt = fieldcount( FirstLayer, @vm )\r\n* so set_property does not propagate\r\nif ValueCnt < RecipePromptCnt then\r\n FirstLayer := str( @vm, RecipePromptCnt-ValueCnt )\r\nend\r\n* ok\r\nconvert @vm to @rm in FirstLayer\r\nVoid = set_property( Controls, 'INVALUE', FirstLayer )\r\n\r\nset_list_box_data( @window )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/RECIPE_BROWSE..json b/LSL2/OIEVENT/CREATE/RECIPE_BROWSE..json new file mode 100644 index 0000000..981b24f --- /dev/null +++ b/LSL2/OIEVENT/CREATE/RECIPE_BROWSE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function memberof, msg, send_event, center_window\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nBEGIN CASE\r\n\t*CASE memberof( @user4, 'DATA_ENTRY' )\t; ClearToUse = 1\r\n\t*CASE memberof( @user4, 'SUPERVISOR' )\t; ClearToUse = 1\r\n\t*CASE memberof( @user4, 'MANAGEMENT' )\t; ClearToUse = 1\r\n\t*CASE memberof( @user4, 'MASTER' )\t\t; ClearToUse = 1\r\n\tCASE memberof(@USER4,'ENGINEERING')\t\t; ClearToUse = 1\r\n\tCASE @USERNAME = 'BRYCE_BARB'\t\t\t; ClearToUse = 1\r\n\tCASE 1\t\t\t\t\t\t\t\t\t; ClearToUse = 0\r\nEND CASE\r\n\r\nif ClearToUse then\r\n\tVoid = set_property( @window, '@WOCnt', '' )\r\n\tVoid = set_property( @window, '@WOCurPos', '' )\r\n\tVoid = set_property( @window, '@WOS', '' )\r\n\tVoid = set_property( @window, '@RDSCnt', '' )\r\n\tVoid = set_property( @window, '@RDSCurPos', '' )\r\n\tVoid = set_property( @window, '@RDSS', '' )\r\n\tVoid = set_property( @window, '@LayCnt', '' )\r\n\tVoid = set_property( @window, '@LayCurPos', '' )\r\n\tVoid = set_property( @window, '@Layers', '' )\r\n Void = set_property( @window, '@TemperatureData', '' )\t\t\r\n\treturn 1\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'H'\r\n MsgInfo = 'You do not have proper security to use the recipe browser...'\r\n Void = msg( '', MsgInfo )\r\n Void = send_event( @window, 'CLOSE' )\r\n return 0\r\nend \r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/RECIPE_BROWSE2..json b/LSL2/OIEVENT/CREATE/RECIPE_BROWSE2..json new file mode 100644 index 0000000..f327c89 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/RECIPE_BROWSE2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function scroll_enable, center_window, recipe_browse_comm\r\n\r\n$insert quote_spec_equ\r\n$insert prod_spec_equates\r\n$insert recipe_equ\r\n\r\nequ CrLf$ to char(13):char(10)\r\n\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nPSNId = field( CreateParam, '*', 1 )\r\nRecipeID = xlate( 'PROC_SPEC', PSNId, 'RECIPE_NO_L1', 'X' )\r\nSpecAddtl = xlate( 'PROD_SPEC', PSNId, prod_spec_spec_addtl$, 'X' )\r\nProveInInst = SpecAddtl<1,QSAddProveInInst$>\r\nswap @tm with CrLf$ in ProveInInst\r\n.provein_inst->text = ProveInInst\r\nSpecialInst = xlate( 'PROD_SPEC', PSNId, 'SPECIAL_INST', 'X' )\r\nswap @tm with CrLF$ in SpecialInst\r\n.special_inst->text = SpecialInst\r\nVoid = scroll_enable()\r\nCurTitle = @@window->text\r\nswap 'PSN' with 'PSN ':PSNId in CurTitle\r\n@@window->text = CurTitle\r\nVoid = recipe_browse_comm( 'SET_ADJUST_PARAMS', PSNId )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/RELOGIN..json b/LSL2/OIEVENT/CREATE/RELOGIN..json new file mode 100644 index 0000000..e487801 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/RELOGIN..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function center_window, fieldcount, send_event\r\n$insert rlist_equates\r\n$insert logical\r\n\r\nIf Get_Property('NDW_MAIN', 'VISIBLE') then\r\n AppMain = 'NDW_MAIN'\r\nend else\r\n AppMain = 'LSL_MAIN2'\r\nend\r\n\r\nWindows = utility( 'OBJECTLIST', 'SYSTEM', 'WINDOW' )\r\nWCnt = fieldcount( Windows, @fm )\r\nfor i = 1 to WCnt\r\n ThisWindow = Windows\r\n if ( ThisWindow <> AppMain ) and ( ThisWindow <> 'RELOGIN' ) then\r\n Void = send_event( ThisWindow, 'CLOSE' )\r\n end\r\nnext i\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nStmt = 'SELECT LSL_USERS BY LAST_FIRST WITH ACTIVE = 1'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nEof = false$\r\nUList1 = ''\r\nUList2 = ''\r\nif @reccount then\r\n loop\r\n readnext @id else Eof = true$\r\n until Eof\r\n UList1<-1> = @id\r\n UList2<-1> = xlate( 'LSL_USERS', @id, 'FIRST_LAST', 'X' )\r\n repeat\r\nend\r\n.users->list = UList2\r\nVoid = set_property( @window, '@UList1', UList1 )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/REPORT_SLIST_CFG..json b/LSL2/OIEVENT/CREATE/REPORT_SLIST_CFG..json new file mode 100644 index 0000000..5b0c68f --- /dev/null +++ b/LSL2/OIEVENT/CREATE/REPORT_SLIST_CFG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, send_event, admin_user, center_window\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n$insert rpt_cfg_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif Admin_user( @user4 ) else\r\n Message = 'You do not have the proper security to enter REPORT_SLIST_CFG...' \r\n Message = 'H'\r\n Void = msg( '', Message )\r\n Void = send_event( @window, 'CLOSE' )\r\nend\r\n\r\nTableNames = xlate( 'CONFIG', 'TABLENAMES', 2, 'X' )\r\nconvert @vm to @fm in TableNames\r\n.table_name->list = TableNames\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/RUN_NIGHTLY_PROCESS..json b/LSL2/OIEVENT/CREATE/RUN_NIGHTLY_PROCESS..json new file mode 100644 index 0000000..1c46729 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/RUN_NIGHTLY_PROCESS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, msg, fieldcount, admin_user, center_window\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif admin_user( @user4 ) then\r\n\tMsgInfo = ''\r\n\tMsgInfo = 'You are about to perform the nightly process. This could take a while. Do you wish to continue?'\r\n\tMsgInfo = '?'\r\n\tMsgInfo = 'BNY'\r\n\tResp = msg( '', MsgInfo )\r\n\tif Resp then\r\n\t NightlyProcessInfo = xlate( 'CONFIG', 'NIGHTLY_PROCESS', '', 'X' )\r\n\t WindowsToCall = NightlyProcessInfo<1>\r\n\t RunFlag = NightlyProcessInfo<2>\r\n\t NpCnt = fieldcount( WindowsToCall, @vm )\r\n\t if NpCnt else\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'There are no processes setup to run...'\r\n\t MsgInfo = '?'\r\n\t Void = msg( '', MsgInfo )\r\n\t end_dialog( @window, '' )\r\n\t return 0\r\n\t end\r\n\t for i = 1 to NpCnt\r\n\t ThisWindow = WindowsToCall<1,i>\r\n\t ThisRunFlag = ( RunFlag<1,i> = 'Yes' )\r\n\t if ThisWindow and ThisRunFlag then\r\n\t .cur_process_text->text = 'Current process ':i:' of ':NpCnt\r\n\t Void = dialog_box( ThisWindow, @window, 'AUTO*CENTER' )\r\n\t end\r\n\t next i\r\n\tend\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You do not have the proper security to run the nightly process.'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend \r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SCHEDULE..json b/LSL2/OIEVENT/CREATE/SCHEDULE..json new file mode 100644 index 0000000..def551c --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SCHEDULE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nVoid = set_property( @window, '@SavedWOs', '' )\r\nVoid = set_property( @window, '@SavedCusts', '' )\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n\t * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys ) \r\n\t Void = set_property( @window, '@NoRead', 1 ) \r\n\t .schedule_no->text = Keys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .schedule_no->text = keys\r\n Void = send_event( @window:'.SCHEDULE_NO', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'Schedule', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Schedule', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Schedule', Edit$ ) else\r\n security_err_msg( 'Schedule', Edit$ )\r\nend\r\nVoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SCHEDULE_SRL..json b/LSL2/OIEVENT/CREATE/SCHEDULE_SRL..json new file mode 100644 index 0000000..e999b6e --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SCHEDULE_SRL..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg, sendmessage\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, getwindow, fieldcount\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\nequ QbfOccurred$ to 1126\r\n\r\nif Misc@ then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n\t * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys ) \r\n\t WndHnd = get_property( @window, 'HANDLE' )\r\n\t HbBar = getwindow( WndHnd, 5 )\r\n\t sendmessage( HbBar, QbfOccurred$, 0, 0 )\r\n\t Void = set_property( @window, '@NoRead', 1 ) \r\n\t .schedule_no->text = Keys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .schedule_no->text = keys\r\n Void = send_event( @window:'.SCHEDULE_NO', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'Schedule SRL', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Schedule SRL', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Schedule SRL', Edit$ ) else\r\n security_err_msg( 'Schedule SRL', Edit$ )\r\nend\r\nVoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SCHED_RPT1..json b/LSL2/OIEVENT/CREATE/SCHED_RPT1..json new file mode 100644 index 0000000..90977a5 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SCHED_RPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Schedule', Print$ ) else\r\n security_err_msg( 'Schedule', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SCHED_RPT2..json b/LSL2/OIEVENT/CREATE/SCHED_RPT2..json new file mode 100644 index 0000000..90977a5 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SCHED_RPT2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Schedule', Print$ ) else\r\n security_err_msg( 'Schedule', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SCHED_RPT3..json b/LSL2/OIEVENT/CREATE/SCHED_RPT3..json new file mode 100644 index 0000000..90977a5 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SCHED_RPT3..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Schedule', Print$ ) else\r\n security_err_msg( 'Schedule', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SCHED_RPT4..json b/LSL2/OIEVENT/CREATE/SCHED_RPT4..json new file mode 100644 index 0000000..90977a5 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SCHED_RPT4..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Schedule', Print$ ) else\r\n security_err_msg( 'Schedule', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SCHED_SRPT1..json b/LSL2/OIEVENT/CREATE/SCHED_SRPT1..json new file mode 100644 index 0000000..90977a5 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SCHED_SRPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Schedule', Print$ ) else\r\n security_err_msg( 'Schedule', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SCHED_SRPT2..json b/LSL2/OIEVENT/CREATE/SCHED_SRPT2..json new file mode 100644 index 0000000..90977a5 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SCHED_SRPT2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Schedule', Print$ ) else\r\n security_err_msg( 'Schedule', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SCHED_SRPT3..json b/LSL2/OIEVENT/CREATE/SCHED_SRPT3..json new file mode 100644 index 0000000..90977a5 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SCHED_SRPT3..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'Schedule', Print$ ) else\r\n security_err_msg( 'Schedule', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SCRUBBER_MAINT_MULT..json b/LSL2/OIEVENT/CREATE/SCRUBBER_MAINT_MULT..json new file mode 100644 index 0000000..38f04e3 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SCRUBBER_MAINT_MULT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function memberof, msg, center_window\r\ndeclare subroutine end_dialog\r\n$insert logical\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\n****wo mast sched equates***\r\nequ Days$ to 1\r\nequ Month$ to 2\r\nequ ReactorCnt$ to 3\r\n\r\nif memberof( @user4, 'MAINTENANCE' ) or @USER4 = 'BRYCE_BARB' then\r\n\tMastSchedRec = xlate( 'CONFIG', 'WO_MAST_SCHED', '', 'X' )\r\n\tNumReactors = MastSchedRec\r\n\tList = ''\r\n\tfor i = 20 to NumReactors\r\n\t List<-1> = 'Reactor':i\r\n\tnext i\r\n\t.reactors->list = List\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must be a maintenance technician to access this!'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end_dialog( @window, '' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SEMI_LOG..json b/LSL2/OIEVENT/CREATE/SEMI_LOG..json new file mode 100644 index 0000000..7ee4e23 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SEMI_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .log_no->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .log_no->text = Keys\r\n Void = send_event( @window:'.LOG_NO', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'Semi Log', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Semi Log', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Semi Log', Edit$ ) else\r\n security_err_msg( 'Semi Log', Edit$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SEMI_LOG_QUERY..json b/LSL2/OIEVENT/CREATE/SEMI_LOG_QUERY..json new file mode 100644 index 0000000..5e15e0f --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SEMI_LOG_QUERY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data\r\n\r\nset_list_box_data(@window)\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SET_AC_REMIND..json b/LSL2/OIEVENT/CREATE/SET_AC_REMIND..json new file mode 100644 index 0000000..4274fb0 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SET_AC_REMIND..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\ndeclare function msg, center_window\r\n$insert msg_equates\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif index( CreateParam, 'AUTO', 1 ) then\r\n return 1\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'This program will send out minimum balance reminders for':CrLf$:'OPEN contracts that are below the minimum balance.':CrLf$:'Do you wish to continue?'\r\n MsgInfo = '?'\r\n MsgInfo = 'BNY'\r\n Ans = msg( '', MsgInfo )\r\n if Ans then\r\n return 1 \r\n end else\r\n end_dialog( @window, '' )\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SET_CAR_REMIND..json b/LSL2/OIEVENT/CREATE/SET_CAR_REMIND..json new file mode 100644 index 0000000..e4ea6fc --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SET_CAR_REMIND..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\ndeclare function msg, center_window\r\n$insert msg_equates\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif index( CreateParam, 'AUTO', 1 ) then\r\n return 1\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'This program will disperse all CARs that should be in place within a week or are overdue':CrLf$:'Do you wish to continue?' \r\n MsgInfo = '?'\r\n MsgInfo = 'BNY'\r\n Ans = msg( '', MsgInfo )\r\n if Ans then\r\n return 1 \r\n end else\r\n end_dialog( @window, '' )\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SET_CLOSE_INVOICES..json b/LSL2/OIEVENT/CREATE/SET_CLOSE_INVOICES..json new file mode 100644 index 0000000..64b442a --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SET_CLOSE_INVOICES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\ndeclare function msg, center_window\r\n$insert msg_equates\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif index( CreateParam, 'AUTO', 1 ) then\r\n return 1\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'This program will close all invoices that are paid':CrLf$:'Do you wish to continue?' \r\n MsgInfo = '?'\r\n MsgInfo = 'BNY'\r\n Ans = msg( '', MsgInfo )\r\n if Ans then\r\n return 1 \r\n end else\r\n end_dialog( @window, '' )\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SET_CLOSE_SCHEDULES..json b/LSL2/OIEVENT/CREATE/SET_CLOSE_SCHEDULES..json new file mode 100644 index 0000000..e294efe --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SET_CLOSE_SCHEDULES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\ndeclare function msg, center_window\r\n$insert msg_equates\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif index( CreateParam, 'AUTO', 1 ) then\r\n return 1\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'This program will check schedules that each order created and close the order if all the schedules are closed.':CrLf$:'Do you wish to continue?' \r\n MsgInfo = '?'\r\n MsgInfo = 'BNY'\r\n Ans = msg( '', MsgInfo )\r\n if Ans then\r\n return 1 \r\n end else\r\n end_dialog( @window, '' )\r\n end\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SET_CLOSE_WO_LOGS..json b/LSL2/OIEVENT/CREATE/SET_CLOSE_WO_LOGS..json new file mode 100644 index 0000000..3cbcc73 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SET_CLOSE_WO_LOGS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\ndeclare function msg, center_window\r\n$insert msg_equates\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif index( CreateParam, 'AUTO', 1 ) then\r\n return 1\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'This program will check Work Order Logs that need closing.':CrLf$:'Do you wish to continue?' \r\n MsgInfo = '?'\r\n MsgInfo = 'BNY'\r\n Ans = msg( '', MsgInfo )\r\n if Ans then\r\n return 1 \r\n end else\r\n end_dialog( @window, '' )\r\n end\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SET_EXPIRED_QUOTES..json b/LSL2/OIEVENT/CREATE/SET_EXPIRED_QUOTES..json new file mode 100644 index 0000000..3d1975a --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SET_EXPIRED_QUOTES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\ndeclare function msg, center_window\r\n$insert msg_equates\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif index( CreateParam, 'AUTO', 1 ) then\r\n return 1\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'This program will set all quotes to \"Expired\" for all outdated quotes':CrLf$:'Do you wish to continue?' \r\n MsgInfo = '?'\r\n MsgInfo = 'BNY'\r\n Ans = msg( '', MsgInfo )\r\n if Ans then\r\n return 1 \r\n end else\r\n end_dialog( @window, '' )\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SET_ICAR_REMIND..json b/LSL2/OIEVENT/CREATE/SET_ICAR_REMIND..json new file mode 100644 index 0000000..a140df8 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SET_ICAR_REMIND..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\ndeclare function msg, center_window\r\n$insert msg_equates\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif index( CreateParam, 'AUTO', 1 ) then\r\n return 1\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'This program will disperse all ICARs that should be completed within a week or are overdue':CrLf$:'Do you wish to continue?' \r\n MsgInfo = '?'\r\n MsgInfo = 'BNY'\r\n Ans = msg( '', MsgInfo )\r\n if Ans then\r\n return 1 \r\n end else\r\n end_dialog( @window, '' )\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SET_INACTIVATE_PSN..json b/LSL2/OIEVENT/CREATE/SET_INACTIVATE_PSN..json new file mode 100644 index 0000000..ffdfeb7 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SET_INACTIVATE_PSN..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\ndeclare function msg, center_window, send_event\r\n$insert msg_equates\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif index( CreateParam, 'AUTO', 1 ) then\r\n return 1\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'This program will inactivate all PSNs that have not had activity for six months ( If this is the first nightly run of the month ).':CrLf$:'Do you wish to continue?' \r\n MsgInfo = '?'\r\n MsgInfo = 'BNY'\r\n Ans = msg( '', MsgInfo )\r\n if Ans then\r\n return 1\r\n end else\r\n end_dialog( @window, '' )\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SET_LINK_RDS_RL..json b/LSL2/OIEVENT/CREATE/SET_LINK_RDS_RL..json new file mode 100644 index 0000000..c7d20b1 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SET_LINK_RDS_RL..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\ndeclare function msg, center_window\r\n$insert msg_equates\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif index( CreateParam, 'AUTO', 1 ) then\r\n return 1\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'This program will link Reactor Logs (without an RDS No. entered) to RDS':CrLf$:'Do you wish to continue?' \r\n MsgInfo = '?'\r\n MsgInfo = 'BNY'\r\n Ans = msg( '', MsgInfo )\r\n if Ans then\r\n return 1 \r\n end else\r\n end_dialog( @window, '' )\r\n end\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SET_PSN_REMIND..json b/LSL2/OIEVENT/CREATE/SET_PSN_REMIND..json new file mode 100644 index 0000000..e243d57 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SET_PSN_REMIND..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\ndeclare function msg, center_window, send_event\r\n$insert msg_equates\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif index( CreateParam, 'AUTO', 1 ) then\r\n return 1\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'This program will send messages for signature reminders on PSNs that have an order entry signature and is not active.':CrLf$:'Do you wish to continue?' \r\n MsgInfo = '?'\r\n MsgInfo = 'BNY'\r\n Ans = msg( '', MsgInfo )\r\n if Ans then\r\n return 1\r\n end else\r\n end_dialog( @window, '' )\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SET_REACTOR_PM_REMIND..json b/LSL2/OIEVENT/CREATE/SET_REACTOR_PM_REMIND..json new file mode 100644 index 0000000..04ba8d7 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SET_REACTOR_PM_REMIND..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\ndeclare function msg, center_window\r\n$insert msg_equates\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif index( CreateParam, 'AUTO', 1 ) then\r\n return 1\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'This program will disperse all Reactor PMs that should be completed within a week or are overdue':CrLf$:'Do you wish to continue?' \r\n MsgInfo = '?'\r\n MsgInfo = 'BNY'\r\n Ans = msg( '', MsgInfo )\r\n if Ans then\r\n return 1 \r\n end else\r\n end_dialog( @window, '' )\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SET_REACT_UTIL_NONPROD_WARN..json b/LSL2/OIEVENT/CREATE/SET_REACT_UTIL_NONPROD_WARN..json new file mode 100644 index 0000000..53dfb95 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SET_REACT_UTIL_NONPROD_WARN..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\ndeclare function msg, center_window\r\n$insert msg_equates\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n Void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif index( CreateParam, 'AUTO', 1 ) then\r\n return 1\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'This program will send messages to sales people and others as to which reactors':CrLf$:'were in non-production mode for 4+ hours in the past 24 Hrs....':CrLf$:'Do you wish to continue?' \r\n MsgInfo = '?'\r\n MsgInfo = 'BNY'\r\n Ans = msg( '', MsgInfo )\r\n if Ans then\r\n return 1 \r\n end else\r\n end_dialog( @window, '' )\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SET_REMIND_CALIB..json b/LSL2/OIEVENT/CREATE/SET_REMIND_CALIB..json new file mode 100644 index 0000000..4333851 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SET_REMIND_CALIB..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine end_dialog\r\ndeclare function msg, center_window, send_event\r\n\r\n$insert msg_equates\r\n\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif index( CreateParam, 'AUTO', 1 ) then\r\n return 1\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'This program will disperse all calibrations that should take place within 2 weeks or are overdue':CrLf$:'Do you wish to continue?' \r\n MsgInfo = '?'\r\n MsgInfo = 'BNY'\r\n Ans = msg( '', MsgInfo )\r\n if Ans then\r\n\t return 1 \r\n end else\r\n end_dialog( @window, '' )\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SL..json b/LSL2/OIEVENT/CREATE/SL..json new file mode 100644 index 0000000..26780fa --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SL..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "Declare Function center_window\r\n\r\nvoid = center_window( @window )\r\n.location_txt->text = Drive()\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_CLEAN_HF..json b/LSL2/OIEVENT/CREATE/SPC_CLEAN_HF..json new file mode 100644 index 0000000..8ca863e --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_CLEAN_HF..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .control_id->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .control_id->text = Keys\r\n Void = send_event( @window:'.CONTROL_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'SPC Clean HF', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'SPC Clean HF', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'SPC Clean HF', Edit$ ) else\r\n security_err_msg( 'SPC Clean HF', Edit$ )\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_CLEAN_HF_AKRION..json b/LSL2/OIEVENT/CREATE/SPC_CLEAN_HF_AKRION..json new file mode 100644 index 0000000..3622f40 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_CLEAN_HF_AKRION..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .control_id->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .control_id->text = Keys\r\n Void = send_event( @window:'.CONTROL_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'SPC Clean HF Akrion', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'SPC Clean HF Akrion', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'SPC Clean HF Akrion', Edit$ ) else\r\n security_err_msg( 'SPC Clean HF Akrion', Edit$ )\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_CLEAN_HF_AKRION_QUERY..json b/LSL2/OIEVENT/CREATE/SPC_CLEAN_HF_AKRION_QUERY..json new file mode 100644 index 0000000..ce6abdf --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_CLEAN_HF_AKRION_QUERY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data\r\n\r\nset_list_box_data(@window)\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_CLEAN_HF_AKRION_RPT1..json b/LSL2/OIEVENT/CREATE/SPC_CLEAN_HF_AKRION_RPT1..json new file mode 100644 index 0000000..79141c1 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_CLEAN_HF_AKRION_RPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data, end_dialog, security_err_msg\r\ndeclare function security_check, center_window\r\n\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nset_list_box_data( @window )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_CLEAN_HF_ETCH..json b/LSL2/OIEVENT/CREATE/SPC_CLEAN_HF_ETCH..json new file mode 100644 index 0000000..38fb708 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_CLEAN_HF_ETCH..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .control_id->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .control_id->text = Keys\r\n Void = send_event( @window:'.CONTROL_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'SPC Clean HF Etch', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'SPC Clean HF Etch', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'SPC Clean HF Etch', Edit$ ) else\r\n security_err_msg( 'SPC Clean HF Etch', Edit$ )\r\nend\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_CLEAN_HF_ETCH_AKRION..json b/LSL2/OIEVENT/CREATE/SPC_CLEAN_HF_ETCH_AKRION..json new file mode 100644 index 0000000..62f5abd --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_CLEAN_HF_ETCH_AKRION..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .control_id->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .control_id->text = Keys\r\n Void = send_event( @window:'.CONTROL_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'SPC Clean HF Etch Akrion', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'SPC Clean HF Etch Akrion', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'SPC Clean HF Etch Akrion', Edit$ ) else\r\n security_err_msg( 'SPC Clean HF Etch Akrion', Edit$ )\r\nend\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_CLEAN_HF_ETCH_AKRION_QUERY..json b/LSL2/OIEVENT/CREATE/SPC_CLEAN_HF_ETCH_AKRION_QUERY..json new file mode 100644 index 0000000..ce6abdf --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_CLEAN_HF_ETCH_AKRION_QUERY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data\r\n\r\nset_list_box_data(@window)\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_CLEAN_HF_ETCH_AKRION_RPT1..json b/LSL2/OIEVENT/CREATE/SPC_CLEAN_HF_ETCH_AKRION_RPT1..json new file mode 100644 index 0000000..79141c1 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_CLEAN_HF_ETCH_AKRION_RPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data, end_dialog, security_err_msg\r\ndeclare function security_check, center_window\r\n\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nset_list_box_data( @window )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_CLEAN_HF_ETCH_QUERY..json b/LSL2/OIEVENT/CREATE/SPC_CLEAN_HF_ETCH_QUERY..json new file mode 100644 index 0000000..ce6abdf --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_CLEAN_HF_ETCH_QUERY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data\r\n\r\nset_list_box_data(@window)\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_CLEAN_HF_ETCH_RPT1..json b/LSL2/OIEVENT/CREATE/SPC_CLEAN_HF_ETCH_RPT1..json new file mode 100644 index 0000000..79141c1 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_CLEAN_HF_ETCH_RPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data, end_dialog, security_err_msg\r\ndeclare function security_check, center_window\r\n\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nset_list_box_data( @window )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_CLEAN_HF_QUERY..json b/LSL2/OIEVENT/CREATE/SPC_CLEAN_HF_QUERY..json new file mode 100644 index 0000000..ce6abdf --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_CLEAN_HF_QUERY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data\r\n\r\nset_list_box_data(@window)\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_CLEAN_HF_RPT1..json b/LSL2/OIEVENT/CREATE/SPC_CLEAN_HF_RPT1..json new file mode 100644 index 0000000..79141c1 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_CLEAN_HF_RPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data, end_dialog, security_err_msg\r\ndeclare function security_check, center_window\r\n\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nset_list_box_data( @window )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_CLEAN_SC1..json b/LSL2/OIEVENT/CREATE/SPC_CLEAN_SC1..json new file mode 100644 index 0000000..33f5dca --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_CLEAN_SC1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .control_id->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .control_id->text = Keys\r\n Void = send_event( @window:'.CONTROL_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'SPC Clean SC1', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'SPC Clean SC1', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'SPC Clean SC1', Edit$ ) else\r\n security_err_msg( 'SPC Clean SC1', Edit$ )\r\nend\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_CLEAN_SC1_QUERY..json b/LSL2/OIEVENT/CREATE/SPC_CLEAN_SC1_QUERY..json new file mode 100644 index 0000000..ce6abdf --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_CLEAN_SC1_QUERY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data\r\n\r\nset_list_box_data(@window)\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_CLEAN_SC1_RPT1..json b/LSL2/OIEVENT/CREATE/SPC_CLEAN_SC1_RPT1..json new file mode 100644 index 0000000..79141c1 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_CLEAN_SC1_RPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data, end_dialog, security_err_msg\r\ndeclare function security_check, center_window\r\n\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nset_list_box_data( @window )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_CLEAN_SRD..json b/LSL2/OIEVENT/CREATE/SPC_CLEAN_SRD..json new file mode 100644 index 0000000..33a12d7 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_CLEAN_SRD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .control_id->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .control_id->text = Keys\r\n Void = send_event( @window:'.CONTROL_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'SPC Clean SRD', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'SPC Clean SRD', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'SPC Clean SRD', Edit$ ) else\r\n security_err_msg( 'SPC Clean SRD', Edit$ )\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_CLEAN_SRD_QUERY..json b/LSL2/OIEVENT/CREATE/SPC_CLEAN_SRD_QUERY..json new file mode 100644 index 0000000..ce6abdf --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_CLEAN_SRD_QUERY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data\r\n\r\nset_list_box_data(@window)\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_CLEAN_SRD_RPT1..json b/LSL2/OIEVENT/CREATE/SPC_CLEAN_SRD_RPT1..json new file mode 100644 index 0000000..79141c1 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_CLEAN_SRD_RPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data, end_dialog, security_err_msg\r\ndeclare function security_check, center_window\r\n\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nset_list_box_data( @window )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_EVAL_4PP..json b/LSL2/OIEVENT/CREATE/SPC_EVAL_4PP..json new file mode 100644 index 0000000..971ad06 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_EVAL_4PP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .control_id->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .control_id->text = Keys\r\n Void = send_event( @window:'.CONTROL_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'SPC Eval 4PP', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'SPC Eval 4PP', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'SPC Eval 4PP', Edit$ ) else\r\n security_err_msg( 'SPC Eval 4PP', Edit$ )\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_EVAL_4PP_QUERY..json b/LSL2/OIEVENT/CREATE/SPC_EVAL_4PP_QUERY..json new file mode 100644 index 0000000..ce6abdf --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_EVAL_4PP_QUERY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data\r\n\r\nset_list_box_data(@window)\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_EVAL_4PP_RPT1..json b/LSL2/OIEVENT/CREATE/SPC_EVAL_4PP_RPT1..json new file mode 100644 index 0000000..79141c1 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_EVAL_4PP_RPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data, end_dialog, security_err_msg\r\ndeclare function security_check, center_window\r\n\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nset_list_box_data( @window )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_EVAL_4PP_RPT2..json b/LSL2/OIEVENT/CREATE/SPC_EVAL_4PP_RPT2..json new file mode 100644 index 0000000..79141c1 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_EVAL_4PP_RPT2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data, end_dialog, security_err_msg\r\ndeclare function security_check, center_window\r\n\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nset_list_box_data( @window )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_EVAL_ADE..json b/LSL2/OIEVENT/CREATE/SPC_EVAL_ADE..json new file mode 100644 index 0000000..4e14401 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_EVAL_ADE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .control_id->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .control_id->text = Keys\r\n Void = send_event( @window:'.CONTROL_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'SPC Eval ADE', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'SPC Eval ADE', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'SPC Eval ADE', Edit$ ) else\r\n security_err_msg( 'SPC Eval ADE', Edit$ )\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_EVAL_ADE_QUERY..json b/LSL2/OIEVENT/CREATE/SPC_EVAL_ADE_QUERY..json new file mode 100644 index 0000000..ce6abdf --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_EVAL_ADE_QUERY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data\r\n\r\nset_list_box_data(@window)\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_EVAL_ADE_RPT1..json b/LSL2/OIEVENT/CREATE/SPC_EVAL_ADE_RPT1..json new file mode 100644 index 0000000..79141c1 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_EVAL_ADE_RPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data, end_dialog, security_err_msg\r\ndeclare function security_check, center_window\r\n\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nset_list_box_data( @window )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_EVAL_ADE_RPT2..json b/LSL2/OIEVENT/CREATE/SPC_EVAL_ADE_RPT2..json new file mode 100644 index 0000000..79141c1 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_EVAL_ADE_RPT2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data, end_dialog, security_err_msg\r\ndeclare function security_check, center_window\r\n\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nset_list_box_data( @window )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_EVAL_FTIR..json b/LSL2/OIEVENT/CREATE/SPC_EVAL_FTIR..json new file mode 100644 index 0000000..ca3e3dd --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_EVAL_FTIR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .control_id->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .control_id->text = Keys\r\n Void = send_event( @window:'.CONTROL_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'SPC Eval FTIR', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'SPC Eval FTIR', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'SPC Eval FTIR', Edit$ ) else\r\n security_err_msg( 'SPC Eval FTIR', Edit$ )\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_EVAL_FTIR_QUERY..json b/LSL2/OIEVENT/CREATE/SPC_EVAL_FTIR_QUERY..json new file mode 100644 index 0000000..ce6abdf --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_EVAL_FTIR_QUERY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data\r\n\r\nset_list_box_data(@window)\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_EVAL_FTIR_RPT1..json b/LSL2/OIEVENT/CREATE/SPC_EVAL_FTIR_RPT1..json new file mode 100644 index 0000000..79141c1 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_EVAL_FTIR_RPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data, end_dialog, security_err_msg\r\ndeclare function security_check, center_window\r\n\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nset_list_box_data( @window )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_EVAL_FTIR_RPT2..json b/LSL2/OIEVENT/CREATE/SPC_EVAL_FTIR_RPT2..json new file mode 100644 index 0000000..79141c1 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_EVAL_FTIR_RPT2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data, end_dialog, security_err_msg\r\ndeclare function security_check, center_window\r\n\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nset_list_box_data( @window )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_LIMITS..json b/LSL2/OIEVENT/CREATE/SPC_LIMITS..json new file mode 100644 index 0000000..9ed61e6 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_LIMITS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, send_event, admin_user, center_window, memberof\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n$insert spc_limits_equ\r\n\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif memberof( @user4, 'ENGINEERING' ) then \r\n\topen 'CONFIG' to ConfigTable else\r\n\t Void = msg( '', 'Unable to open CONFIG table' )\r\n\t end_dialog( @window, '' )\r\n\t return 0\r\n\tend\r\n\tlock ConfigTable, 'SPC_LIMITS' else\r\n\t Void = msg( '', 'SPC_LIMITS is in use somewhere else...' )\r\n\t end_dialog( @window, '' )\r\n\t return 0\r\n\tend\r\n\tread LimitInfo from ConfigTable, 'SPC_LIMITS' then\r\n\t if LimitInfo then\r\n .srd_min->text = LimitInfo\r\n .srd_max->text = LimitInfo\r\n .srd_chg_date->text = oconv( LimitInfo, 'D2/' )\r\n *\r\n .sc1_min->text = LimitInfo\r\n .sc1_max->text = LimitInfo\r\n .sc1_chg_date->text = oconv( LimitInfo, 'D2/' )\r\n *\r\n .hf_min->text = LimitInfo\r\n .hf_max->text = LimitInfo\r\n .hf_chg_date->text = oconv( LimitInfo, 'D2/' )\r\n *\r\n .hf_etch_min->text = LimitInfo\r\n .hf_etch_max->text = LimitInfo\r\n .hf_etch_chg_date->text = oconv( LimitInfo, 'D2/' )\r\n *\r\n .waf_etch_min->text = oconv( LimitInfo, 'MD3' )\r\n .waf_etch_max->text = oconv( LimitInfo, 'MD3' )\r\n .waf_etch_chg_date->text = oconv( LimitInfo, 'D2/' )\r\n *\r\n EvalFTIRInfo = ''\r\n EvalFTIRInfo<1> = LimitInfo\r\n EvalFTIRInfo<2> = oconv( LimitInfo, 'MD3' )\r\n \t\t EvalFTIRInfo<3> = oconv( LimitInfo, 'MD3' )\r\n \t\t EvalFTIRInfo<4> = oconv( LimitInfo, 'D2/' )\r\n \t\t EvalFTIRInfo<5> = LimitInfo\r\n \t\t EvalFTIRInfo<6> = oconv( LimitInfo, 'MD3' )\r\n \t\t EvalFTIRInfo<7> = oconv( LimitInfo, 'MD3' )\r\n \t\t EvalFTIRInfo<8> = oconv( LimitInfo, 'D2/' )\r\n \t\t EvalFTIRInfo<9> = LimitInfo\r\n \t\t EvalFTIRInfo<10> = oconv( LimitInfo, 'MD3' )\r\n \t\t EvalFTIRInfo<11> = oconv( LimitInfo, 'MD3' )\r\n \t\t EvalFTIRInfo<12> = oconv( LimitInfo, 'D2/' )\r\n \t\t .eval_FTIR_info->array = EvalFTIRInfo\r\n *\r\n EvalFTIRStdevInfo = ''\r\n EvalFTIRStdevInfo<1> = LimitInfo\r\n EvalFTIRStdevInfo<2> = oconv( LimitInfo, 'MD3' )\r\n EvalFTIRStdevInfo<3> = oconv( LimitInfo, 'MD3' )\r\n EvalFTIRStdevInfo<4> = oconv( LimitInfo, 'D2/' )\r\n EvalFTIRStdevInfo<5> = LimitInfo\r\n EvalFTIRStdevInfo<6> = oconv( LimitInfo, 'MD3' )\r\n EvalFTIRStdevInfo<7> = oconv( LimitInfo, 'MD3' )\r\n EvalFTIRStdevInfo<8> = oconv( LimitInfo, 'D2/' )\r\n EvalFTIRStdevInfo<9> = LimitInfo\r\n EvalFTIRStdevInfo<10> = oconv( LimitInfo, 'MD3' )\r\n EvalFTIRStdevInfo<11> = oconv( LimitInfo, 'MD3' )\r\n EvalFTIRStdevInfo<12> = oconv( LimitInfo, 'D2/' )\r\n .eval_FTIR_stdev_info->array = EvalFTIRStdevInfo\r\n *\r\n EvalADEInfo = ''\r\n EvalADEInfo<1> = LimitInfo\r\n EvalADEInfo<2> = oconv( LimitInfo, 'MD3' )\r\n \t\t EvalADEInfo<3> = oconv( LimitInfo, 'MD3' )\r\n \t\t EvalADEInfo<4> = oconv( LimitInfo, 'D2/' )\r\n \t\t EvalADEInfo<5> = LimitInfo\r\n \t\t EvalADEInfo<6> = oconv( LimitInfo, 'MD3' )\r\n \t\t EvalADEInfo<7> = oconv( LimitInfo, 'MD3' )\r\n \t\t EvalADEInfo<8> = oconv( LimitInfo, 'D2/' )\r\n \t\t EvalADEInfo<9> = LimitInfo\r\n \t\t EvalADEInfo<10> = oconv( LimitInfo, 'MD3' )\r\n \t\t EvalADEInfo<11> = oconv( LimitInfo, 'MD3' )\r\n \t\t EvalADEInfo<12> = oconv( LimitInfo, 'D2/' )\r\n \t\t .eval_ADE_info->array = EvalADEInfo\r\n *\r\n EvalADEStdevInfo = ''\r\n EvalADEStdevInfo<1> = LimitInfo\r\n EvalADEStdevInfo<2> = oconv( LimitInfo, 'MD3' )\r\n EvalADEStdevInfo<3> = oconv( LimitInfo, 'MD3' )\r\n EvalADEStdevInfo<4> = oconv( LimitInfo, 'D2/' )\r\n EvalADEStdevInfo<5> = LimitInfo\r\n EvalADEStdevInfo<6> = oconv( LimitInfo, 'MD3' )\r\n EvalADEStdevInfo<7> = oconv( LimitInfo, 'MD3' )\r\n EvalADEStdevInfo<8> = oconv( LimitInfo, 'D2/' )\r\n EvalADEStdevInfo<9> = LimitInfo\r\n EvalADEStdevInfo<10> = oconv( LimitInfo, 'MD3' )\r\n EvalADEStdevInfo<11> = oconv( LimitInfo, 'MD3' )\r\n EvalADEStdevInfo<12> = oconv( LimitInfo, 'D2/' )\r\n .eval_ADE_stdev_info->array = EvalADEStdevInfo\r\n *\r\n Eval4PPInfo = ''\r\n Eval4PPInfo<1> = LimitInfo\r\n Eval4PPInfo<2> = LimitInfo\r\n Eval4PPInfo<3> = LimitInfo\r\n Eval4PPInfo<4> = oconv( LimitInfo, 'D2/' )\r\n Eval4PPInfo<5> = LimitInfo\r\n Eval4PPInfo<6> = LimitInfo\r\n Eval4PPInfo<7> = LimitInfo\r\n Eval4PPInfo<8> = oconv( LimitInfo, 'D2/' )\r\n Eval4PPInfo<9> = LimitInfo\r\n Eval4PPInfo<10> = LimitInfo\r\n Eval4PPInfo<11> = LimitInfo\r\n Eval4PPInfo<12> = oconv( LimitInfo, 'D2/' )\r\n .eval_4pp_info->array = Eval4PPInfo\r\n *\r\n Eval4PPStdevInfo = ''\r\n Eval4PPStdevInfo<1> = LimitInfo\r\n Eval4PPStdevInfo<2> = oconv( LimitInfo, 'MD3' )\r\n Eval4PPStdevInfo<3> = oconv( LimitInfo, 'MD3' )\r\n Eval4PPStdevInfo<4> = oconv( LimitInfo, 'D2/' )\r\n Eval4PPStdevInfo<5> = LimitInfo\r\n Eval4PPStdevInfo<6> = oconv( LimitInfo, 'MD3' )\r\n Eval4PPStdevInfo<7> = oconv( LimitInfo, 'MD3' )\r\n Eval4PPStdevInfo<8> = oconv( LimitInfo, 'D2/' )\r\n Eval4PPStdevInfo<9> = LimitInfo\r\n Eval4PPStdevInfo<10> = oconv( LimitInfo, 'MD3' )\r\n Eval4PPStdevInfo<11> = oconv( LimitInfo, 'MD3' )\r\n Eval4PPStdevInfo<12> = oconv( LimitInfo, 'D2/' )\r\n .eval_4pp_stdev_info->array = Eval4PPStdevInfo\r\n *\r\n .react_part_min->text = LimitInfo\r\n .react_part_max->text = LimitInfo\r\n .react_part_date_chg->text = oconv( LimitInfo, 'D2/' )\r\n *\r\n .react_haze_min->text = oconv( LimitInfo, 'MD2' )\r\n .react_haze_max->text = oconv( LimitInfo, 'MD2' )\r\n .react_haze_date_chg->text = oconv( LimitInfo, 'D2/' )\r\n *\r\n .hf_ake_etch_min->text = LimitInfo\r\n .hf_ake_etch_max->text = LimitInfo\r\n .hf_ake_etch_date->text = oconv( LimitInfo, 'D2/' )\r\n .hf_akd_etch_min->text = LimitInfo\r\n .hf_akd_etch_max->text = LimitInfo\r\n .hf_akd_etch_date->text = oconv( LimitInfo, 'D2/' )\r\n *\r\n .hf_akq_min->text = LimitInfo\r\n .hf_akq_max->text = LimitInfo\r\n .hf_akq_date->text = oconv( LimitInfo, 'D2/' )\r\n .hf_akh_min->text = LimitInfo\r\n .hf_akh_max->text = LimitInfo\r\n .hf_akh_date->text = oconv( LimitInfo, 'D2/' ) \r\n\t end\r\n\tend\r\nend else\r\n Message = 'You do not have the proper security to enter SPC Limits...' \r\n Message = 'H'\r\n Void = msg( '', Message )\r\n Void = send_event( @window, 'CLOSE' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_OCAP..json b/LSL2/OIEVENT/CREATE/SPC_OCAP..json new file mode 100644 index 0000000..9c6332d --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_OCAP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function center_window, set_property\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nCreateParam = field( CreateParam, char(245), 1 )\r\nConfigRec = xlate( 'CONFIG', CreateParam, '', 'X' )\r\nMessages = ConfigRec<1>\r\nPointers = ConfigRec<2>\r\nVoid = set_property( @window, '@Messages', Messages )\r\nVoid = set_property( @window, '@Pointers', Pointers )\r\nVoid = set_property( @window, '@CurTier', 1 )\r\n\r\n.question_instruction->text = Messages<1,1>\r\n.prev->enabled = 0\r\n.answer->value = ''\r\nNextYes = field( Pointers, ';', 1 )\r\nif NextYes then\r\n * CAUSE OCAP MAY ONLY HAVE ONE STATEMENT\r\n .answer->visible = 1\r\nend else\r\n .next->text = '&Finish'\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_REACTOR_PARTICLES..json b/LSL2/OIEVENT/CREATE/SPC_REACTOR_PARTICLES..json new file mode 100644 index 0000000..30ffc2a --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_REACTOR_PARTICLES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .control_id->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .control_id->text = Keys\r\n Void = send_event( @window:'.CONTROL_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'SPC Reactor Particles', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'SPC Reactor Particles', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'SPC Reactor Particles', Edit$ ) else\r\n security_err_msg( 'SPC Reactor Particles', Edit$ )\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_REACTOR_PARTICLES_QUERY..json b/LSL2/OIEVENT/CREATE/SPC_REACTOR_PARTICLES_QUERY..json new file mode 100644 index 0000000..ce6abdf --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_REACTOR_PARTICLES_QUERY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data\r\n\r\nset_list_box_data(@window)\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_REACTOR_PARTICLES_RPT1..json b/LSL2/OIEVENT/CREATE/SPC_REACTOR_PARTICLES_RPT1..json new file mode 100644 index 0000000..9fe3cd7 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_REACTOR_PARTICLES_RPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data, end_dialog, security_err_msg\r\ndeclare function security_check, center_window\r\n\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nset_list_box_data( @window )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_REACTOR_PARTICLES_RPT2..json b/LSL2/OIEVENT/CREATE/SPC_REACTOR_PARTICLES_RPT2..json new file mode 100644 index 0000000..9fe3cd7 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_REACTOR_PARTICLES_RPT2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data, end_dialog, security_err_msg\r\ndeclare function security_check, center_window\r\n\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nset_list_box_data( @window )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_WAFER_ETCH..json b/LSL2/OIEVENT/CREATE/SPC_WAFER_ETCH..json new file mode 100644 index 0000000..3f5e952 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_WAFER_ETCH..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .control_id->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .control_id->text = Keys\r\n Void = send_event( @window:'.CONTROL_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'SPC Wafer Etch', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'SPC Wafer Etch', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'SPC Wafer Etch', Edit$ ) else\r\n security_err_msg( 'SPC Wafer Etch', Edit$ )\r\nend\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_WAFER_ETCH_QUERY..json b/LSL2/OIEVENT/CREATE/SPC_WAFER_ETCH_QUERY..json new file mode 100644 index 0000000..ce6abdf --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_WAFER_ETCH_QUERY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data\r\n\r\nset_list_box_data(@window)\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SPC_WAFER_ETCH_RPT1..json b/LSL2/OIEVENT/CREATE/SPC_WAFER_ETCH_RPT1..json new file mode 100644 index 0000000..79141c1 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SPC_WAFER_ETCH_RPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data, end_dialog, security_err_msg\r\ndeclare function security_check, center_window\r\n\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nset_list_box_data( @window )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SRP_COC_RESULTS..json b/LSL2/OIEVENT/CREATE/SRP_COC_RESULTS..json new file mode 100644 index 0000000..0efca97 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SRP_COC_RESULTS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .control_id->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .control_id->text = Keys\r\n Void = send_event( @window:'.CONTROL_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'SRP COC Results', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'SRP COC Results', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'SRP COC Results', Edit$ ) else\r\n security_err_msg( 'SRP COC Results', Edit$ )\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SRP_INCOMING_LOG..json b/LSL2/OIEVENT/CREATE/SRP_INCOMING_LOG..json new file mode 100644 index 0000000..beaca78 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SRP_INCOMING_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .log_no->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .log_no->text = Keys\r\n Void = send_event( @window:'.LOG_NO', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'SRP Incoming Log', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'SRP Incoming Log', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'SRP Incoming Log', Edit$ ) else\r\n security_err_msg( 'SRP Incoming Log', Edit$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SRP_INCOMING_LOG_QUERY..json b/LSL2/OIEVENT/CREATE/SRP_INCOMING_LOG_QUERY..json new file mode 100644 index 0000000..5e15e0f --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SRP_INCOMING_LOG_QUERY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data\r\n\r\nset_list_box_data(@window)\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SUB_REC_LOG..json b/LSL2/OIEVENT/CREATE/SUB_REC_LOG..json new file mode 100644 index 0000000..d36f907 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SUB_REC_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .log_no->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .log_no->text = Keys\r\n Void = send_event( @window:'.LOG_NO', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'Sub Rec Log', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Sub Rec Log', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Sub Rec Log', Edit$ ) else\r\n security_err_msg( 'Sub Rec Log', Edit$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SUB_REC_LOG_QUERY..json b/LSL2/OIEVENT/CREATE/SUB_REC_LOG_QUERY..json new file mode 100644 index 0000000..5e15e0f --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SUB_REC_LOG_QUERY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data\r\n\r\nset_list_box_data(@window)\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/SYSTEM_LOCATION..json b/LSL2/OIEVENT/CREATE/SYSTEM_LOCATION..json new file mode 100644 index 0000000..26780fa --- /dev/null +++ b/LSL2/OIEVENT/CREATE/SYSTEM_LOCATION..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "Declare Function center_window\r\n\r\nvoid = center_window( @window )\r\n.location_txt->text = Drive()\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/TABLENAMES..json b/LSL2/OIEVENT/CREATE/TABLENAMES..json new file mode 100644 index 0000000..91a5129 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/TABLENAMES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, Sent_event, admin_user, center_window, Send_message, fieldcount\r\ndeclare subroutine END_dialog\r\n$insert msg_equates\r\n\r\nIF index( CreateParam, 'CENTER', 1 ) THEN\r\n void = center_window( @window )\r\nEND ELSE\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nEND\r\n\r\nIF Admin_user( @user4 ) THEN \r\n\topen 'CONFIG' TO ConfigTable ELSE\r\n\t Void = msg( '', 'Unable to open CONFIG table' )\r\n\t END_dialog( @window, '' )\r\n\t RETURN 0\r\n\tEND\r\n\t\r\n\tLOCK ConfigTable, 'TABLENAMES' ELSE\r\n\t Void = msg( '', 'TABLENAMES is in use somewhere ELSE...' )\r\n\t END_dialog( @window, '' )\r\n\t RETURN 0\r\n\tEND\r\n\t\r\n\tREAD TableNamesData FROM ConfigTable, 'TABLENAMES' THEN\r\n\t IF TableNamesData THEN\r\n\t \t\r\n\t \ttnCnt = COUNT(TableNamesData<1>,@VM) + (TableNamesData<1> NE '')\r\n\t \t\r\n\t \tSortedArray = ''\r\n\t \t\r\n\t \tFOR I = 1 TO tnCnt\r\n\t \t\r\n\t \t\tTableTitle\t= TableNamesData<1,I>\r\n\t \t\tTableName\t= TableNamesData<2,I>\r\n\t \t\t\r\n\t \t\tLOCATE TableName IN SortedArray<2> BY 'AL' USING @VM SETTING Pos ELSE\r\n\t \t\t\tSortedArray = INSERT(SortedArray,1,Pos,0,TableTitle)\r\n\t \t\t\tSortedArray = INSERT(SortedArray,2,Pos,0,TableName)\r\n\t \t\tEND\r\n\t \t\r\n\t \t\r\n\t \tNEXT I\r\n\t \r\n\t \t\tvoid = Set_Property(@WINDOW:'.TABLENAMES','ARRAY',SortedArray) \r\n\t \r\n\t END\r\n\tEND\r\nEND ELSE\r\n Message = 'You do not have the proper security TO enter TableNames...' \r\n Message = 'H'\r\n Void = msg( '', Message )\r\n End_Dialog( @window, '' )\r\nEND\r\n\r\nallControlsInMyWindow = Utility ('OBJECTLIST', @window, 'EDITTABLE')\r\nallControlsInMyWindow2 = Utility ('OBJECTLIST', @window, 'EDITBOX')\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/TW_CODES..json b/LSL2/OIEVENT/CREATE/TW_CODES..json new file mode 100644 index 0000000..30c2bea --- /dev/null +++ b/LSL2/OIEVENT/CREATE/TW_CODES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .tw_code->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .tw_code->text = Keys\r\n Void = send_event( @window:'.TW_CODE', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'TW Codes', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'TW Codes', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'TW Codes', Edit$ ) else\r\n security_err_msg( 'TW Codes', Edit$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/TW_PRIME_USAGE..json b/LSL2/OIEVENT/CREATE/TW_PRIME_USAGE..json new file mode 100644 index 0000000..6f02c1c --- /dev/null +++ b/LSL2/OIEVENT/CREATE/TW_PRIME_USAGE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, getwindow, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .twu_id->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .twu_id->text = Keys\r\n Void = send_event( @window:'.TWU_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'TW Prime Usage', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'TW Prime Usage', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'TW Prime Usage', Edit$ ) else\r\n security_err_msg( 'TW Prime Usage', Edit$ )\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/TW_USAGE..json b/LSL2/OIEVENT/CREATE/TW_USAGE..json new file mode 100644 index 0000000..ef3ba4b --- /dev/null +++ b/LSL2/OIEVENT/CREATE/TW_USAGE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, getwindow, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .twu_id->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .twu_id->text = Keys\r\n Void = send_event( @window:'.TWU_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'TW Usage', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'TW Usage', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'TW Usage', Edit$ ) else\r\n security_err_msg( 'TW Usage', Edit$ )\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/USERS_SRPT1..json b/LSL2/OIEVENT/CREATE/USERS_SRPT1..json new file mode 100644 index 0000000..5e15e0f --- /dev/null +++ b/LSL2/OIEVENT/CREATE/USERS_SRPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine set_list_box_data\r\n\r\nset_list_box_data(@window)\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/VERIFY_USER..json b/LSL2/OIEVENT/CREATE/VERIFY_USER..json new file mode 100644 index 0000000..17a9c75 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/VERIFY_USER..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\nDeclare subroutine SRP_Show_Window\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN\r\n\tCreateParam = 'BRYCE_BARB':@VM:''\r\nEND\r\n\r\nVoid = set_property( @window, '@PINFO', CreateParam )\r\nVoid = set_property( @window : '.EDL_USERNAME', 'TEXT', @USER4 )\r\nSRP_Show_Window(@Window, '', 'C', 'C', 1, '', 0, 0)\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/WAFER_INV..json b/LSL2/OIEVENT/CREATE/WAFER_INV..json new file mode 100644 index 0000000..0cb1c26 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/WAFER_INV..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount, msg\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif index( CreateParam,'Choosing', 1 ) then\r\n PrevWindow = field( CreateParam, '*', 3 )\r\n Void = set_property( @window, '@PrevWindow', PrevWindow )\r\n .ret_wi_button->visible = 1\r\n Ttext = .ret_wi_button->text\r\n Ttext := ' ':PrevWindow\r\n .ret_wi_button->text = Ttext\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .waf_inv_no->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .waf_inv_no->text = Keys\r\n Void = send_event( @window:'.WAF_INV_NO', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'Wafer Inventory', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'Wafer Inventory', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'Wafer Inventory', Edit$ ) else\r\n security_err_msg( 'Wafer Inventory', Edit$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/WO_DAILY_SCHED..json b/LSL2/OIEVENT/CREATE/WO_DAILY_SCHED..json new file mode 100644 index 0000000..a986893 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/WO_DAILY_SCHED..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function center_window\r\ndeclare subroutine wo_daily_sched_comm, forward_event\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nwo_daily_sched_comm('FORM_CREATE', 1 ) ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/WO_DAILY_SCHED2..json b/LSL2/OIEVENT/CREATE/WO_DAILY_SCHED2..json new file mode 100644 index 0000000..173843f --- /dev/null +++ b/LSL2/OIEVENT/CREATE/WO_DAILY_SCHED2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function center_window\r\ndeclare subroutine wo_daily_sched_comm, forward_event\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nwo_daily_sched_comm('FORM_CREATE', 2 ) ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/WO_DAILY_SCHED3..json b/LSL2/OIEVENT/CREATE/WO_DAILY_SCHED3..json new file mode 100644 index 0000000..a433c41 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/WO_DAILY_SCHED3..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function center_window\r\ndeclare subroutine wo_daily_sched_comm, forward_event\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nwo_daily_sched_comm('FORM_CREATE', 3 ) ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/WO_DAILY_SCHED4..json b/LSL2/OIEVENT/CREATE/WO_DAILY_SCHED4..json new file mode 100644 index 0000000..27d2cf3 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/WO_DAILY_SCHED4..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function center_window\r\ndeclare subroutine wo_daily_sched_comm, forward_event\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nwo_daily_sched_comm('FORM_CREATE', 4 ) ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/WO_DAILY_SCHED5..json b/LSL2/OIEVENT/CREATE/WO_DAILY_SCHED5..json new file mode 100644 index 0000000..4e81816 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/WO_DAILY_SCHED5..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function center_window\r\ndeclare subroutine wo_daily_sched_comm, forward_event\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nwo_daily_sched_comm('FORM_CREATE', 5 ) ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/WO_DAILY_SCHED6..json b/LSL2/OIEVENT/CREATE/WO_DAILY_SCHED6..json new file mode 100644 index 0000000..a790b2e --- /dev/null +++ b/LSL2/OIEVENT/CREATE/WO_DAILY_SCHED6..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function center_window\r\ndeclare subroutine wo_daily_sched_comm, forward_event\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nwo_daily_sched_comm('FORM_CREATE', 6 ) ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/WO_DAILY_SCHED7..json b/LSL2/OIEVENT/CREATE/WO_DAILY_SCHED7..json new file mode 100644 index 0000000..a2dd7dd --- /dev/null +++ b/LSL2/OIEVENT/CREATE/WO_DAILY_SCHED7..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function center_window\r\ndeclare subroutine wo_daily_sched_comm, forward_event\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nwo_daily_sched_comm('FORM_CREATE', 7 ) ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/WO_DAILY_SCHED8..json b/LSL2/OIEVENT/CREATE/WO_DAILY_SCHED8..json new file mode 100644 index 0000000..1fabbb9 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/WO_DAILY_SCHED8..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function center_window\r\ndeclare subroutine wo_daily_sched_comm, forward_event\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nwo_daily_sched_comm('FORM_CREATE', 8 ) ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/WO_DAILY_SCHED9..json b/LSL2/OIEVENT/CREATE/WO_DAILY_SCHED9..json new file mode 100644 index 0000000..3eb6b4b --- /dev/null +++ b/LSL2/OIEVENT/CREATE/WO_DAILY_SCHED9..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function center_window\r\ndeclare subroutine wo_daily_sched_comm, forward_event\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nwo_daily_sched_comm('FORM_CREATE', 9 ) ;* this is the first window\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/WO_DAILY_SCHED_ALL..json b/LSL2/OIEVENT/CREATE/WO_DAILY_SCHED_ALL..json new file mode 100644 index 0000000..fb79896 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/WO_DAILY_SCHED_ALL..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm, center_window\r\n\r\n\r\nIF @USERNAME = 'IMATEST_U' OR @USERNAME = 'BRYCE_BARB' THEN\r\n\tScreenSize = Get_Property('SYSTEM','SIZE')\r\n\tDialogSize = Get_Property(@WINDOW,'SIZE')\r\n\r\n\twScreen = ScreenSize<3>\r\n\thScreen = ScreenSize<4>\r\n\r\n\txDialog = DialogSize<1>\r\n\tyDialog = DialogSize<2>\r\n\twDialog = DialogSize<3>\r\n\thDialog = DialogSize<4>\r\n\r\n\tcScreen = INT(wScreen/2)\r\n\r\n\tDialogSize<1> = cScreen + 1\t\t; * Center + 1\r\n\tDialogSize<2> = 50\r\n\r\n\tvoid = Set_Property(@WINDOW,'SIZE',DialogSize)\r\n\r\nEND\r\n\r\nvoid = Set_Property(@WINDOW,'VISIBLE',1)\r\n\r\nvoid = Set_Property(@WINDOW,'TIMER',60000)\t;* 60 second timer for refresh\r\n\r\nVoid = wo_daily_sched_all_comm( 'FORM_CREATE', '')\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/WO_DAILY_SCHED_ALL2..json b/LSL2/OIEVENT/CREATE/WO_DAILY_SCHED_ALL2..json new file mode 100644 index 0000000..80b8f6e --- /dev/null +++ b/LSL2/OIEVENT/CREATE/WO_DAILY_SCHED_ALL2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function wo_daily_sched_all_comm, center_window\r\n\r\nIF @USERNAME = 'IMATEST_U' OR @USERNAME = 'BRYCE_BARB' THEN\r\n\r\n\tScreenSize = Get_Property('SYSTEM','SIZE')\r\n\tDialogSize = Get_Property(@WINDOW,'SIZE')\r\n\r\n\twScreen = ScreenSize<3>\r\n\thScreen = ScreenSize<4>\r\n\r\n\txDialog = DialogSize<1>\r\n\tyDialog = DialogSize<2>\r\n\twDialog = DialogSize<3>\r\n\thDialog = DialogSize<4>\r\n\r\n\tcScreen = INT(wScreen/2)\r\n\r\n\tDialogSize<1> = (cScreen - wDialog - 1)\t;* Center - Width of reactor window - 1\r\n\tDialogSize<2> = 50\r\n\r\n\tvoid = Set_Property(@WINDOW,'SIZE',DialogSize)\r\nEND\r\n\r\nVoid = set_property( @window, 'VISIBLE', 1 )\r\n\r\nvoid = Set_Property(@WINDOW,'TIMER',60000:@FM:20000)\t;* 60 second timer for refresh, 20 second offset\r\n\r\nVoid = wo_daily_sched_all_comm( 'FORM_CREATE', '')\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/WO_DAILY_SCHED_SINGLE..json b/LSL2/OIEVENT/CREATE/WO_DAILY_SCHED_SINGLE..json new file mode 100644 index 0000000..0e25c79 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/WO_DAILY_SCHED_SINGLE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function center_window\r\ndeclare subroutine wo_daily_sched_comm2\r\n\r\n$INSERT REACTOR_EQUATES\r\n$INSERT REACT_READS_EQUATES\r\n$INSERT REACT_LL_EQUATES\r\n\r\nIF INDEX( CreateParam, 'CENTER', 1 ) THEN\r\n void = Center_Window( @WINDOW )\r\nEND ELSE\r\n Void = Set_Property( @WINDOW, 'VISIBLE', 1 )\r\nEND\r\n\r\nReactor = FIELD( CreateParam, '*CENTER', 1 )\r\n\r\nReactorRec = XLATE('REACTOR',Reactor,'','X')\r\nPickPlace = ReactorRec\r\n\r\n* Added 8/26/2015 JCH for Reactor Load Lock tracking *\r\n\r\nReactLLKey = ReactorRec\r\n\r\nReactLLDisabled = XLATE('REACT_LL',ReactLLKey,REACT_LL_DISABLED$,'X')\r\n\r\n\r\nBEGIN CASE\r\n\t\t\r\n\tCASE ReactLLDisabled = 'R'\r\n\t\tReactLLText = 'Right Load Lock Disabled'\r\n\t\t\r\n\tCASE ReactLLDisabled = 'L'\r\n\t\tReactLLText = 'Left Load Lock Disabled'\r\n\t\t\r\n\tCASE PickPlace = 1\r\n\t\tReactLLText = 'Pick and Place Enabled'\r\n\r\n\tCASE 1\r\n\t\tReactLLText = ''\r\n\r\nEND CASE\r\n\r\nvoid = Set_Property(@WINDOW:'.REACT_LL_STATUS','TEXT',ReactLLText)\r\n\r\n\r\n* End of Reactor LL tracking modification *\r\n\r\n\r\n*LastReadHrsDTM\t= ReactorRec\r\nLastReadWfrsDTM\t= ReactorRec\r\n\r\n*LastReadHrs \t= XLATE('REACT_READS',Reactor:'*':LastReadHrsDTM,REACT_READS_HOURS$,'X')\r\nLastReadWfrs\t= XLATE('REACT_READS',Reactor:'*':LastReadWfrsDTM,REACT_READS_WAFER_CNT$,'X')\r\n\r\n*void = Set_Property(@WINDOW:'.LAST_HRS_READ','TEXT',OCONV(LastReadHrs,'MD0,'))\r\nvoid = Set_Property(@WINDOW:'.LAST_WFRS_READ','TEXT',OCONV(LastReadWfrs,'MD0,'))\r\n\r\n*void = Set_Property(@WINDOW:'.LAST_HRS_READ_DTM','TEXT',OCONV(LastReadHrsDTM,'DT4/^HS'))\r\nvoid = Set_Property(@WINDOW:'.LAST_WFRS_READ_DTM','TEXT',OCONV(LastReadWfrsDTM,'DT4/^HS'))\r\n\r\nTitle = Get_Property( @WINDOW, 'TEXT' )\r\n\r\nSWAP '#' WITH '#':Reactor in Title\r\n\r\nVoid = Set_Property( @WINDOW, 'TEXT', Title )\r\nVoid = Set_Property( @WINDOW, '@Reactor', Reactor )\r\n\r\nVoid = Set_Property(@WINDOW:'.RWL','TEXT','(':Reactor:')')\r\n\r\nWO_Daily_Sched_Comm2('FORM_CREATE')\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/WO_LOG..json b/LSL2/OIEVENT/CREATE/WO_LOG..json new file mode 100644 index 0000000..ec5ea32 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/WO_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg, sendmessage\r\ndeclare function send_event, set_property, end_window, security_check, post_event\r\ndeclare function center_window, getwindow, fieldcount, msg, next_mesa_wo_log_key\r\ndeclare function memberof\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert logical\r\nequ QbfOccurred$ to 1126\r\n\r\nif memberof(@user4,'MASTER_SCHED' ) or ( @user4 = 'RICK_A' ) then\r\n .menu.edit.change_wo->enabled = 1\r\nend else\r\n .menu.edit.change_wo->enabled = 0\r\nend\r\nReadOk = true$\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 ) \r\n\t .wo_no->text = Keys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .wo_no->text = Keys\r\n Void = send_event( @window:'.WO_NO', 'LOSTFOCUS', '' )\r\n end\r\nend\r\n\r\nif security_check( 'WO Log', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'WO Log', Read$ )\r\n Void = end_window( @window, '' )\r\n ReadOk = false$\r\nend\r\nif security_check( 'WO Log', Edit$ ) else\r\n security_err_msg( 'WO Log', Edit$ )\r\n .view_quote->visible = 1\r\nend\r\nVoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0\r\n*===========================================================================*" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/WO_LOG_RPT1..json b/LSL2/OIEVENT/CREATE/WO_LOG_RPT1..json new file mode 100644 index 0000000..5bbc0dd --- /dev/null +++ b/LSL2/OIEVENT/CREATE/WO_LOG_RPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'WO Log', Print$ ) else\r\n security_err_msg( 'WO Log', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/WO_LOG_SEQ_CHG..json b/LSL2/OIEVENT/CREATE/WO_LOG_SEQ_CHG..json new file mode 100644 index 0000000..0e2f4e1 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/WO_LOG_SEQ_CHG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".next_two->text = xlate( 'DICT.WO_LOG', '%SK%', 1, 'X' )\r\n.next_mwo->text = xlate( 'DICT.WO_LOG', '%MESASK%', 1, 'X' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/WO_LOG_SRPT1..json b/LSL2/OIEVENT/CREATE/WO_LOG_SRPT1..json new file mode 100644 index 0000000..5bbc0dd --- /dev/null +++ b/LSL2/OIEVENT/CREATE/WO_LOG_SRPT1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, center_window\r\ndeclare subroutine end_dialog, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif security_check( 'WO Log', Print$ ) else\r\n security_err_msg( 'WO Log', Print$ )\r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/WO_MAINT_SCHED..json b/LSL2/OIEVENT/CREATE/WO_MAINT_SCHED..json new file mode 100644 index 0000000..f245c33 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/WO_MAINT_SCHED..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, send_event, admin_user, center_window, memberof, fieldcount, mast_sched_today_date\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\n$insert prod_spec_equ\r\n$insert quote_spec_equ\r\n$insert wo_log_equ\r\n$INSERT WO_STEP_EQU\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nopen 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\n\r\ngosub DoRead\r\n\r\nCurDate = mast_sched_today_date( '' )\r\nCurLabels = .sched_info->label\r\nlocate CurDate in CurLabels using @fm setting Fpos then\r\n .sched_info->selpos = FPos:@fm:20\r\nend else\r\n .sched_info->selpos = 1:@fm:20\r\nend\r\nRETURN 0\r\n*===========================================================================*\r\nDoRead:\r\nVoid = utility( 'CURSOR', 'H' )\r\nread MastSched from ConfigTable, 'WO_MAST_SCHED' then\r\n if MastSched then\r\n Days = MastSched<1>\r\n convert @vm to @fm in Days\r\n .sched_info->label = Days\r\n .month->text = MastSched<2>\r\n ReactCnt = MastSched<3>\r\n .reactor_cnt->text = ReactCnt\r\n SchedInfo = field( MastSched, @fm, 4, 99999 )\r\n SCnt = fieldcount( SchedInfo, @fm )\r\n for i = 1 to SCnt\r\n SchedInfo = field( SchedInfo, @vm, 1, ReactCnt )\r\n\t for j = 1 to ReactCnt\r\n\t if SchedInfo = '' then\r\n\t SchedInfo = 'Open'\r\n\t end else\r\n\t * NOW TAKE THE LAST WORK ORDER FOR EACH DAY \r\n\t * READ THE PSN PARSE AND LOAD THE INFO INTO EACH CELL\r\n\t if SchedInfo <> '|' then\r\n\t\t WOCell = SchedInfo\r\n\t\t \r\n\t\t WONo\t= ICONV( WOCell, '[WO_VALID,1]' )\t\t;* Changed to WO Step 7/28/2005 JCH\r\n\t\t LastWONo\t= WONo[-1,'B;']\r\n\t\t \r\n\t\t IF INDEX(LastWONo,'.',1) THEN\r\n\t\t \t\tWOStepNo = LastWONo\r\n\t\t \t\tWOStepKey = WOStepNo\r\n\t\t \t\tCONVERT '.' TO '*' IN WOStepKey\r\n\t\t \t\tWONo = WOStepNo\r\n\t\t \tEND ELSE\r\n\t\t \t\tWONo = LastWONo\r\n\t\t \t\tWOStepKey = WONo:'.1'\r\n\t\t \t\tCONVERT '.' TO '*' IN WOStepKey\r\n\t\t \tEND\r\n\t\t \r\n\t\t PSNID = xlate( 'WO_STEP', WOStepKey, wo_step_prod_spec_id$, 'X' )\r\n\t\t \r\n\t\t PSNRec = xlate( 'PROD_SPEC', PSNID, '', 'X' )\r\n\t\t SpecEpi = PSNRec\r\n\t\t convert char(247) to @fm in SpecEpi\r\n\t\t convert char(248) to @fm in SpecEpi\r\n\t\t * JUST PULL OFF THE FIRST LAYER INFO\r\n\t\t Dopant = SpecEpi<1,QSEpiDopant$>\r\n\t RecipeNo = SpecEpi<1,QSEpiRecipe$>\r\n\t RecipeName = SpecEpi<1,QSEpiRecipeName$>\r\n\t TubePressure = PSNRec\r\n*\t\t PinnedSusceptor = PSNRec\r\n*\t\t PinnedSusceptor = oconv( PinnedSusceptor, 'BPS=Yes,PS=No' )\r\n\t\t\t\t\t PinnedSusceptor = PSNRec\r\n\t\t WandRestrictor = PSNRec\r\n\t\t WandRestrictor = oconv( WandRestrictor, 'BWR=Yes,WR=No' )\r\n\t\t WoCell = '(WO=':WONo:') '\r\n\t\t WoCell:= '(PSN=':PSNID:') '\r\n\t\t WoCell:= '(':RecipeNo:' ':Recipename:') ':'(':Dopant:') '\r\n\t\t WoCell:= '(':TubePressure:') ':'(':WandRestrictor:') '\r\n\t\t WoCell:= '(':PinnedSusceptor:')'\r\n\t\t swap '(WO=) (PSN=) ( ) () () () ()' with 'Open' in WOCell\r\n\t\t SchedInfo = WOCell\r\n\t\t end\r\n\t end\r\n\t next j\r\n next i\r\n\t .sched_info->array = SchedInfo\r\n Void = set_property( @window, '@OrigSched', SchedInfo )\t \r\n\t .sched_info->toppos = 1:@fm:20\t \t \r\n\t \r\n end\r\nend\r\n\r\nVoid = utility( 'CURSOR', 'A' )\r\nreturn\r\n*===========================================================================*" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/WO_MAST_SCHED..json b/LSL2/OIEVENT/CREATE/WO_MAST_SCHED..json new file mode 100644 index 0000000..dfb88d4 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/WO_MAST_SCHED..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, send_event, admin_user, center_window, memberof, fieldcount, mast_sched_today_date\r\ndeclare subroutine end_dialog\r\n\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nopen 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\n\r\nif memberof(@user4,'MASTER_SCHED' ) then\r\n\tlock ConfigTable, 'WO_MAST_SCHED' then\r\n\t write @user4 on ConfigTable, 'WO_MAST_SCHED_USER' else\r\n\t Void = msg( '', 'Error writing WO_MAST_SCHED_USER in config file...' )\r\n\t return 0\r\n\t end\r\n\t Void = set_property( @window, '@GotLock', 1 )\r\n\tend else\r\n\t UseBy = oconv( xlate( 'CONFIG', 'WO_MAST_SCHED_USER', '', 'X' ), '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'WO_MAST_SCHED is in use by ':UseBy:' you will be allowed to view only.'\r\n\t MsgInfo = '!'\r\n\t Void = msg( '', MsgInfo )\r\n .save->enabled = 0\r\n .clear_day->enabled = 0\r\n .cfg_date_button->enabled = 0\r\n .qcfg_date_button->enabled = 0 \r\n .new_wo->enabled = 0\r\n .month->enabled = 0\r\n .cancel->text = 'OK'\r\n .reactor_cnt->enabled = 0\r\n\tend\r\n .print->visible = 1\t\r\n\tgosub DoRead\r\nend else\r\n .save->enabled = 0\r\n *.save->enabled = 1\r\n .clear_day->enabled = 0\r\n .cfg_date_button->enabled = 0\r\n .qcfg_date_button->enabled = 0 \r\n .new_wo->enabled = 0\r\n .month->enabled = 0\r\n .cancel->text = 'OK'\r\n .reactor_cnt->enabled = 0\r\n if memberof(@user4,'SUPERVISOR' ) OR MemberOf( @user4, 'LEAD') or memberof( @user4, 'MATERIALS' ) or memberof( @user4, 'DATA_ENTRY' ) then\r\n .print->visible = 1\r\n end\r\n gosub DoRead\r\nend\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN DEBUG\r\n\r\nCurDate = mast_sched_today_date( '' )\r\nCurLabels = .sched_info->label\r\n\r\nlocate CurDate in CurLabels using @fm setting Fpos then\r\n .sched_info->selpos = FPos:@fm:20\r\nend else\r\n .sched_info->selpos = 1:@fm:20\r\nend\r\nRETURN 0\r\n*===========================================================================*\r\nDoRead:\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN DEBUG\r\n\r\nread MastSched from ConfigTable, 'WO_MAST_SCHED' then\r\n if MastSched then\r\n Days = MastSched<1>\r\n convert @vm to @fm in Days\r\n .sched_info->label\t= Days\r\n .month->text\t\t= MastSched<2>\r\n ReactCnt\t\t\t= MastSched<3>\r\n .reactor_cnt->text\t= ReactCnt\r\n \r\n SchedInfo = field( MastSched, @fm, 4, 99999 )\r\n \r\n\r\n SCnt = fieldcount( SchedInfo, @fm )\r\n \r\n for i = 1 to SCnt\r\n SchedInfo = field( SchedInfo, @vm, 1, ReactCnt )\r\n\t for j = 1 to ReactCnt\r\n\t if SchedInfo = '' then\r\n\t SchedInfo = 'Open'\r\n\t end\r\n\t next j\r\n next i\r\n\t .sched_info->array = SchedInfo\r\n Void = set_property( @window, '@OrigSched', SchedInfo )\t \r\n\t .sched_info->toppos = 1:@fm:20\t \r\n end\r\nend\r\nreturn\r\n*===========================================================================*" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/WO_MAST_SCHED_DATE_CFG..json b/LSL2/OIEVENT/CREATE/WO_MAST_SCHED_DATE_CFG..json new file mode 100644 index 0000000..882e9a1 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/WO_MAST_SCHED_DATE_CFG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "convert '*' to @fm in CreateParam\r\n.days->array = CreateParam\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/WO_MAST_SCHED_DATE_CFG2..json b/LSL2/OIEVENT/CREATE/WO_MAST_SCHED_DATE_CFG2..json new file mode 100644 index 0000000..4baa41e --- /dev/null +++ b/LSL2/OIEVENT/CREATE/WO_MAST_SCHED_DATE_CFG2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "convert ' ' to @fm in CreateParam\r\n\r\n.day->text = CreateParam<1>\r\n.month->text = CreateParam<2>\r\n.date->text = CreateParam<3>\r\n.year->text = CreateParam<4>\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/CREATE/WO_VERIFY..json b/LSL2/OIEVENT/CREATE/WO_VERIFY..json new file mode 100644 index 0000000..c73dec6 --- /dev/null +++ b/LSL2/OIEVENT/CREATE/WO_VERIFY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check\r\ndeclare function center_window, fieldcount\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nKeys = field( CreateParam, '*', 1 )\r\n* SHOULD ONLY BE ONE KEY FROM RDS\r\nVoid = set_property( @window, '@WOVerifyID', Keys )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys )\r\n\t Void = set_property( @window, '@NoRead', 1 ) \r\n\t .verify_no->text = Keys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .verify_no->text = Keys\r\n Void = send_event( @window:'.VERIFY_NO', 'LOSTFOCUS', '' )\r\n end\r\nend \r\n\r\nif security_check( 'WO Verify', Read$ ) then\r\n set_list_box_data( @window )\r\nend else\r\n security_err_msg( 'WO Verfiy', Read$ )\r\n Void = end_window( @window, '' )\r\n return 0\r\nend\r\nif security_check( 'WO Verify', Edit$ ) else\r\n security_err_msg( 'WO Verify', Edit$ )\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/QUOTE_OLD.QUOTE_DETAIL.json b/LSL2/OIEVENT/DBLCLK/QUOTE_OLD.QUOTE_DETAIL.json new file mode 100644 index 0000000..78a2ff3 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/QUOTE_OLD.QUOTE_DETAIL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, set_property, msg, security_check\r\ndeclare subroutine security_err_msg\r\n$insert msg_equates\r\n$insert quote_spec_equ\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Spec', Read$ ) then\r\n\tEpiInfo = .spec_epi->text\r\n\tSubstrateInfo = .spec_substrate->text\r\n\tArray = .quote_detail->array\r\n\tQuantity = Array<4,1> ;* first line in quantity \r\n\tPrice = Array<5,1> ;* first line in price\r\n\tRowInfo = .quote_detail->rowdata\r\n\tHoldVar = SubstrateInfo:char(244):EpiInfo \r\n\tReturnVal = dialog_box( 'QUOTE_SPEC_INFO', @window, RowInfo:char(244):SubstrateInfo:char(244):EpiInfo:char(244):'*CENTER' )\r\n\t\tif ( ReturnVal <> '' ) and ( ReturnVal <> 'CANCEL' ) and ( ReturnVal <> HoldVar ) then\r\n \tif security_check( 'Spec', Write$ ) then\r\n\t\t\t\tconvert char(244) to @fm in ReturnVal\r\n\t\t\t\tSubstrateInfo = ReturnVal<1>\r\n\t\t\t\tEpiInfo = ReturnVal<2>\r\n\t\t\t\t.spec_epi->text = EpiInfo\r\n\t\t\t\t.spec_substrate->text = SubstrateInfo\r\n\t\t .wafer_desc->text = SubstrateInfo<1,QSSubWaferSize$>:' ':SubstrateInfo<1,QSSubOrientation$>\r\n\t\t @@window->savewarn = 1\r\n\t\t end else\r\n \t\t security_err_msg( 'Spec', Write$ )\r\n \t\tend\r\n\t\tend\r\nend else\r\n security_err_msg( 'Spec', Read$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/RDS_REJECTS.REJ_INFO.json b/LSL2/OIEVENT/DBLCLK/RDS_REJECTS.REJ_INFO.json new file mode 100644 index 0000000..74a1e8e --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/RDS_REJECTS.REJ_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function start_window\r\n\r\nNcrIDs = .rej_info->array<6>\r\nswap @vm:@vm with '' in NcrIDs\r\nif NcrIDs[-1,1] = @vm then NcrIDs[-1,1] = ''\r\nRetVal = start_window( 'NCR', @window, NcrIDs:'*CENTER', '', '' ) \r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/RDS_UNLOAD.PROFILE_LIST.json b/LSL2/OIEVENT/DBLCLK/RDS_UNLOAD.PROFILE_LIST.json new file mode 100644 index 0000000..6c4189d --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/RDS_UNLOAD.PROFILE_LIST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function start_window, utility, msg\r\n$insert msg_equates\r\n\r\nSelPos = @CtrlEntId->selpos\r\nCurArray = .srp_profiles->array\r\nParam = CurArray<1,SelPos>\r\nif Param <> '' then\r\n Stat = utility( 'CURSOR', 'H' )\r\n Void = start_window( 'RDS_SRP', @window, Param, '', '' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'There are no SRP Profiles for this RDS.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/REACT_LL_SERV.LL_INFO.json b/LSL2/OIEVENT/DBLCLK/REACT_LL_SERV.LL_INFO.json new file mode 100644 index 0000000..4d0ff6c --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/REACT_LL_SERV.LL_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function start_window\r\n\r\nCurArray = .ll_info->array\r\nSelPos = .ll_info->selpos\r\nCol = SelPos<1>\r\nRow = SelPos<2>\r\nRLId = CurArray<4,Row>\r\nVoid = start_window ( 'REACTOR_LOG', 'LSL_MAIN2', RLId:'*CENTER', '', '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/REACT_TUBE_CHG.TUBE_CHG_INFO.json b/LSL2/OIEVENT/DBLCLK/REACT_TUBE_CHG.TUBE_CHG_INFO.json new file mode 100644 index 0000000..05eef72 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/REACT_TUBE_CHG.TUBE_CHG_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function start_window\r\n\r\nIf Get_Property('NDW_MAIN', 'VISIBLE') then\r\n AppMain = 'NDW_MAIN'\r\nend else\r\n AppMain = 'LSL_MAIN2'\r\nend\r\n\r\nCurArray = .tube_chg_info->array\r\nSelPos = .tube_chg_info->selpos\r\nCol = SelPos<1>\r\nRow = SelPos<2>\r\nRLId = CurArray<3,Row>\r\nVoid = start_window ( 'REACTOR_LOG', AppMain, RLId:'*CENTER', '', '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED.R20.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED.R20.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED.R20.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED.R22.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED.R22.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED.R22.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED.R24.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED.R24.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED.R24.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED.R26.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED.R26.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED.R26.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED.R28.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED.R28.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED.R28.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED.R30.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED.R30.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED.R30.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED2.R21.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED2.R21.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED2.R21.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED2.R23.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED2.R23.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED2.R23.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED2.R25.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED2.R25.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED2.R25.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED2.R27.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED2.R27.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED2.R27.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED2.R29.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED2.R29.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED2.R29.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED2.R31.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED2.R31.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED2.R31.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED3.R32.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED3.R32.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED3.R32.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED3.R33.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED3.R33.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED3.R33.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED3.R34.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED3.R34.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED3.R34.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED3.R35.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED3.R35.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED3.R35.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED3.R36.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED3.R36.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED3.R36.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED3.R37.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED3.R37.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED3.R37.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED4.R39.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED4.R39.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED4.R39.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED4.R41.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED4.R41.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED4.R41.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED4.R43.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED4.R43.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED4.R43.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED4.R45.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED4.R45.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED4.R45.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED4.R47.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED4.R47.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED4.R47.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED4.R49.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED4.R49.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED4.R49.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED5.R51.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED5.R51.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED5.R51.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED5.R53.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED5.R53.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED5.R53.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED5.R55.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED5.R55.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED5.R55.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED6.R36.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED6.R36.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED6.R36.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED6.R37.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED6.R37.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED6.R37.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED6.R38.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED6.R38.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED6.R38.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED6.R39.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED6.R39.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED6.R39.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED6.R40.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED6.R40.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED6.R40.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED7.R41.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED7.R41.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED7.R41.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED7.R42.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED7.R42.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED7.R42.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED7.R43.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED7.R43.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED7.R43.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED7.R44.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED7.R44.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED7.R44.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED7.R45.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED7.R45.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED7.R45.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED8.R46.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED8.R46.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED8.R46.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED8.R47.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED8.R47.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED8.R47.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED8.R48.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED8.R48.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED8.R48.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED8.R49.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED8.R49.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED8.R49.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED8.R50.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED8.R50.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED8.R50.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED9.R51.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED9.R51.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED9.R51.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED9.R52.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED9.R52.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED9.R52.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED9.R53.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED9.R53.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED9.R53.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED9.R54.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED9.R54.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED9.R54.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED9.R55.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED9.R55.json new file mode 100644 index 0000000..0fd6173 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED9.R55.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm\r\n\r\nwo_daily_sched_comm( 'OPTIONS', CtrlEntID )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED_SINGLE.ROS.json b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED_SINGLE.ROS.json new file mode 100644 index 0000000..5d3c1fc --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_DAILY_SCHED_SINGLE.ROS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm2\r\n\r\nwo_daily_sched_comm2( 'OPTIONS' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_MAINT_SCHED.SCHED_INFO.json b/LSL2/OIEVENT/DBLCLK/WO_MAINT_SCHED.SCHED_INFO.json new file mode 100644 index 0000000..4a0ad88 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_MAINT_SCHED.SCHED_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\n/*******************************************************************************************\r\n** CURRENTLY DO NOTHING ON THE WO_MAINT_SCHED, MAYBE ADD LATER\r\ndeclare function start_window, msg, entid, repository, fieldcount, relational_call, memberof\r\ndeclare function rds_wo_verify_maint, rds_supplement_maint\r\ndeclare subroutine extract_si_keys\r\n$insert msg_equates\r\n$insert popup_equates\r\n$insert rds_equ\r\n\r\nSelpos = .sched_info->selpos\r\nColumn = SelPos<1>\r\nRow = SelPos<2>\r\nColData = get_property( @window:'.SCHED_INFO', 'COLDATA' )\r\nCurCell = ColData<1,Row>\r\nCurCell = field( CurCell, '|', 1 ) ;* remove comments\r\nswap \"52nd\" with '' in CurCell\r\nConvert ';' to @vm in CurCell\r\nconvert @upper_case to '' in CurCell\r\nconvert @lower_case to '' in CurCell\r\nconvert \" `~!@#$%^&*()_+-=\\][{}|';:/?.>,<\" to '' in CurCell\r\nconvert '\"' to '' in CurCell\r\nPopupId = entid( @appid<1>, 'POPUP', '', 'MAST_SCHED_OPTS' )\r\nOverRide = ''\r\nDisplay = xlate( 'SYSREPOSPOPUPS', 'LSL2**MAST_SCHED_OPTS', pdisplay$, 'X' )\r\nif memberof( @user4, 'SUPERVISOR' ) then\r\n * add option to choose boxes if the save button is enabled meaning they have the lock\r\n *Display ='Recipe':@tm:'RECIPE':@vm:'RunData Sheet':@tm:'RDS':@vm:'Work Order':@tm:'WO'\r\n * WHEN THE POPUP MAST_SCHED_OPTS CHANGES THE ABOVE 2 LINES NEED CHANGING\r\n Display := @vm:'Assign WO Verifications':@tm:'WO_VERIFY'\r\nend\r\nif memberof( @user4, 'ENGINEERING' ) or memberof( @user4, 'SUPERVISOR' ) then\r\n * ADD OPTION TO ASSIGN SUPPLEMENTS\r\n Display := @vm:'Assign Supplements':@tm:'SUPPLEMENTS'\r\nend\r\nOverRide = Display\r\nChoosenOpt = repository( 'EXECUTE', PopupId, @window, OverRide )\r\nbegin case\r\n case ChoosenOpt = 'RECIPE'\r\n CurKeys = ''\r\n RecipeKeys = ''\r\n WoCnt = fieldcount( CurCell, @vm )\r\n for i = 1 to WoCnt\r\n extract_si_keys( 'RDS', 'WO', CurCell<1,i>, CurKeys )\r\n TrecKey = xlate( 'RDS', CurKeys<1,1>, rds_recipe_no$, 'X' ) ;* use first record for work order to get recipe no\r\n if TrecKey then\r\n locate TrecKey in RecipeKeys using @vm setting Dum else\r\n RecipeKeys<1,-1> = TrecKey\r\n end\r\n end\r\n next i\r\n Void = start_window( 'RECIPE', @window, RecipeKeys:'*CENTER', '', '' ) \r\n\tcase ChoosenOpt = 'RDS'\r\n\t *if fieldcount( CurCell, @vm ) > 1 then\r\n\t * * popup allowing view of only one work order at a time\r\n * PopupId = entid( @appid<1>, 'POPUP', '', 'MAST_SCHED_CHOOSE_WO' )\r\n * IF EVER UNREMARKING THIS CODE MUST CREATE MAST_SHCED_CHOOSE_WO POPUP\r\n * OverRide = ''\r\n * OverRide = CurCell\r\n * CurCell = repository( 'EXECUTE', PopupId, @window, OverRide )\r\n * if CurCell else\r\n * return 0\r\n * end\r\n\t *end\r\n\r\n\t Keys = relational_call( 'WO_LOG', 'RDS_KEYS', CurCell, 'RDS_QUERY', 'RDS', 'CUST_NAME':@fm:'WO':@fm:'RUN_ORDER_NUM' )\r\n\t if Keys then\r\n\t swap 'NoKeys' with '' in Keys\r\n\t\t ParamToPass = Keys\r\n\t Void = start_window( 'RDS', @window, Keys:'*CENTER', '', '' )\r\n\t end\r\n\tcase ChoosenOpt = 'WO'\r\n\t RetVal = start_window( 'WO_LOG', @window, CurCell, '', '' ) \r\n\tcase ChoosenOpt = 'WO_VERIFY'\r\n\t CCnt = fieldcount( CurCell, @vm )\r\n\t for i = 1 to CCnt\r\n\t TWo = CurCell<1,i>\r\n\t if TWo <> '' then\r\n\t Void = rds_wo_verify_maint(TWo)\t\r\n\t end\r\n\t next i\r\n\tcase ChoosenOpt = 'SUPPLEMENTS'\r\n\t CCnt = fieldcount( CurCell, @vm )\r\n\t for i = 1 to CCnt\r\n\t TWo = CurCell<1,i>\r\n\t if TWo <> '' then\r\n\t Void = rds_supplement_maint(TWo)\t\r\n\t end\r\n\t next i\r\nend case\r\n********************************************************************/\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DBLCLK/WO_MAST_SCHED.SCHED_INFO.json b/LSL2/OIEVENT/DBLCLK/WO_MAST_SCHED.SCHED_INFO.json new file mode 100644 index 0000000..5591f85 --- /dev/null +++ b/LSL2/OIEVENT/DBLCLK/WO_MAST_SCHED.SCHED_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function start_window, msg, entid, repository, fieldcount, relational_call, memberof\r\ndeclare function rds_wo_verify_maint, rds_supplement_maint, obj_Prod_Spec\r\ndeclare subroutine extract_si_keys, obj_Appwindow\r\n$insert msg_equates\r\n$insert popup_equates\r\n$insert rds_equ\r\n$INSERT PROD_SPEC_EQUATES\r\n$INSERT PRS_LAYER_EQU\r\n$INSERT WO_STEP_EQU\r\n\r\n\r\nSelpos = .sched_info->selpos\r\nColumn = SelPos<1>\r\nRow = SelPos<2>\r\nColData = get_property( @window:'.SCHED_INFO', 'COLDATA' )\r\nCurCell = ColData<1,Row>\r\nCurCell = field( CurCell, '|', 1 ) ;* remove comments\r\nswap \"52nd\" with '' in CurCell\r\nswap \"e2v\" with '' in CurCell\t\t\t\t\t;* Added 5/11/2007 JCH - new company with funny name\r\nConvert ';' to @vm in CurCell\r\nconvert @upper_case to '' in CurCell\r\nconvert @lower_case to '' in CurCell\r\nconvert \" `~!@#$%^&*()_+-=\\][{}|';:/?.>,<\" to '' in CurCell\r\nconvert '\"' to '' in CurCell\r\n\r\n\r\nPopupId = entid( @appid<1>, 'POPUP', '', 'MAST_SCHED_OPTS' )\r\n\r\nTypeOver = ''\r\n\r\nDisplay = XLATE( 'SYSREPOSPOPUPS', 'LSL2**MAST_SCHED_OPTS', pdisplay$, 'X' )\r\n\r\nIF Memberof( @USER4, 'SUPERVISOR' ) THEN\r\n Display := @VM:'Assign WO Verifications':@TM:'WO_VERIFY'\t\t;* Add Option\r\nEND\r\n\r\nIF Memberof( @USER4, 'ENGINEERING' ) OR MemberOf( @USER4, 'SUPERVISOR' ) THEN\r\n Display := @VM:'Assign Supplements':@TM:'SUPPLEMENTS'\t\t;* Add Option\r\nEND\r\n\r\nDisplay<1,-1> = 'Reactor State':@TM:'REACT_STATE'\t\t;* Added 3/\r\n\r\nTypeOver = Display\r\n\r\nOption = Popup(@WINDOW,TypeOver,'MAST_SCHED_OPTS')\r\n\r\nBEGIN CASE\r\n\tCASE Option = 'RECIPE'\r\n\t\tCurKeys = ''\r\n\t\tRecipeKeys = ''\r\n\t\tWoCnt = fieldcount( CurCell, @vm )\r\n\t\tfor i = 1 to WoCnt\r\n\t\t\tWOStepKey = CurCell<1,i>\r\n\t\t\tIF LEN(WOStepKey) = 6 THEN\r\n\t\t\t\tWOStepKey = WOStepKey:'*1'\r\n\t\t\tEND ELSE\r\n\t\t\t\tWOStepKey = WOStepKey[1,6]:'*':WOStepKey[7,1]\r\n\t\t\tEND\r\n\t\t\t\r\n\t\t\tPSN = XLATE('WO_STEP',WOStepKey,1,'X')\r\n\r\n\t\t\tLayerSpecs = obj_Prod_Spec('GetLayerProp',PSN:@RM:@RM:1)\t;* Returns specs for all layers in internal format\r\n\r\n\t\t\tLayerSpec \t= FIELD(LayerSpecs,@RM,1)\t\t\t\t;* Take the first Layer\r\n\t\t\tLayerSet\t= FIELD(LayerSpec,@FM,1)\t\t\t\t;* Not used here but shown for clarity\r\n\t\t\tLayerSpec\t= FIELD(LayerSpec,@FM,2,99)\t\t\t\t;* LayerSpec without the LayerSet \r\n\r\n\t\t\tRecipeNo = LayerSpec\r\n\t\t\t\t\t\r\n\t\t\tIF RecipeNo NE '' THEN\r\n\t\t\t\tLOCATE RecipeNo IN RecipeKeys USING @VM SETTING Dum ELSE\r\n\t\t\t\t\tRecipeKeys<1,-1> = RecipeNo\r\n\t\t\t\tEND\r\n\t\t\tEND\r\n\t\tnext i\r\n\t\tIF RecipeKeys NE '' THEN\r\n\t\t\tVoid = start_window( 'RECIPE', @window, RecipeKeys:'*CENTER', '', '' )\r\n\t\tEND\r\n \r\n\tCASE Option = 'RDS'\r\n\t\t*if fieldcount( CurCell, @vm ) > 1 then\r\n\t\t* * popup allowing view of only one work order at a time\r\n\t\t* PopupId = entid( @appid<1>, 'POPUP', '', 'MAST_SCHED_CHOOSE_WO' )\r\n\t\t* IF EVER UNREMARKING THIS CODE MUST CREATE MAST_SHCED_CHOOSE_WO POPUP\r\n\t\t* OverRide = ''\r\n\t\t* OverRide = CurCell\r\n\t\t* CurCell = repository( 'EXECUTE', PopupId, @window, OverRide )\r\n\t\t* if CurCell else\r\n\t\t* return 0\r\n\t\t* end\r\n\t\t*end\r\n\t\tWOStepKeys = ''\r\n\t\t\r\n\t\t\r\n\t\t\r\n\t\tFOR I = 1 TO COUNT(CurCell,@VM) + (CurCell NE '')\r\n\t\t\r\n\t\t\tWOStepKey = CurCell<1,I>\r\n\t\t\tIF LEN(WOStepKey) = 6 THEN\r\n\t\t\t\tWOStepKey = WOStepKey:'*1'\r\n\t\t\tEND ELSE\r\n\t\t\t\tWOStepKey = WOStepKey[1,6]:'*':WOStepKey[7,1]\r\n\t\t\tEND\r\n\t\t\tWOStepKeys<1,I> = WOSTepKey\r\n\t\tNEXT I\r\n\t\t\r\n\t\tRDSNos = XLATE('WO_STEP',WOStepKeys,WO_STEP_RDS_KEY$,'X')\r\n\t\t\r\n\t\tTypeOver = ''\r\n\t\tTypeOver = 'K'\r\n\t\tTypeOver = RDSNos\r\n\r\n\t\tRDSKeys = Popup(@WINDOW,TypeOver,'RDS_QUERY')\r\n\t\t\r\n\t\tIF RDSKeys NE '' THEN\r\n\t\t\tVoid = start_window( 'RDS', @window, RDSKeys:'*CENTER', '', '' )\r\n\t\tEND\r\n\t\t\r\n\t\t\r\n\t\t\r\n\tCASE Option = 'WO'\r\n\t\tWONos = ''\r\n\t\tFOR I = 1 TO COUNT(CurCell,@VM) + (CurCell NE '')\r\n\t\t\tWONos<1,I> = CurCell<1,I>[1,6]\r\n\t\tNEXT I\r\n\t\r\n\t\r\n\t RetVal = start_window( 'WO_LOG2', @window, WONos, '', '' )\r\n\t \r\n\tCASE Option = 'WO_STATUS'\r\n\t\r\n\t\tWOStepKeys = ''\r\n\t\t\r\n\t\tFOR I = 1 TO COUNT(CurCell,@VM) + (CurCell NE '')\r\n\t\t\r\n\t\t\tWOStepKey = CurCell<1,I>\r\n\t\t\tIF LEN(WOStepKey) = 6 THEN\r\n\t\t\t\tWOStepKey = WOStepKey:'*1'\r\n\t\t\tEND ELSE\r\n\t\t\t\tWOStepKey = WOStepKey[1,6]:'*':WOStepKey[7,1]\r\n\t\t\tEND\r\n\t\t\tWOStepKeys<1,I> = WOSTepKey\r\n\t\tNEXT I\r\n\t\t\r\n\t\tPSN = XLATE('WO_STEP',WOStepKey,1,'X')\r\n\t\tReactorType = XLATE('PROD_SPEC',PSN,PROD_SPEC_REACTOR_TYPE$,'X')\t\t;*****************************************\r\n\t\t\r\n\t\tIF ReactorType = 'P' OR ReactorType = 'EPP' THEN\r\n\t\t\tobj_Appwindow('ViewRelated','WO_PROD_EPI':@RM:WOStepKeys)\r\n\t\tEND ELSE\r\n\t\t\tobj_Appwindow('ViewRelated','WO_PROD':@RM:WOStepKeys)\r\n\t\tEND\r\n\t\t\r\n\t \r\n\tCASE Option = 'WO_VERIFY'\r\n\t CCnt = fieldcount( CurCell, @vm )\r\n\t for i = 1 to CCnt\r\n\t TWo = CurCell<1,i>[1,6]\r\n\t if TWo <> '' then\r\n\t Void = rds_wo_verify_maint(TWo)\t\r\n\t end\r\n\t next i\r\n\t \r\n\tCASE Option = 'SUPPLEMENTS'\r\n\t CCnt = fieldcount( CurCell, @vm )\r\n\t for i = 1 to CCnt\r\n\t TWo = CurCell<1,i>[1,6]\r\n\t if TWo <> '' then\r\n\t Void = rds_supplement_maint(TWo)\t\r\n\t end\r\n\t next i\r\n\t \r\n\tCASE Option = 'REACT_STATE'\r\n\t\tReactNo = Row\r\n\t\tobj_Appwindow('ViewRelated','REACT_STATE':@RM:ReactNo)\r\n\t\t\r\n\t \r\nEND CASE\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/ANNUAL_CONTRACTS..json b/LSL2/OIEVENT/DELETE/ANNUAL_CONTRACTS..json new file mode 100644 index 0000000..fd5b6fe --- /dev/null +++ b/LSL2/OIEVENT/DELETE/ANNUAL_CONTRACTS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Annual Contracts', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'Annual Contracts', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/ANN_CONT..json b/LSL2/OIEVENT/DELETE/ANN_CONT..json new file mode 100644 index 0000000..c3f2fd1 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/ANN_CONT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_Ann_Cont\r\n\r\nRETURN Comm_Ann_Cont('Delete')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/ASM_PART..json b/LSL2/OIEVENT/DELETE/ASM_PART..json new file mode 100644 index 0000000..c6484e0 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/ASM_PART..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_ASM_Part\r\n\r\nRETURN Comm_ASM_Part('Delete')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/ASSIGN_CAUSE..json b/LSL2/OIEVENT/DELETE/ASSIGN_CAUSE..json new file mode 100644 index 0000000..18e60b4 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/ASSIGN_CAUSE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Assign Cause', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'Assign Cause', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/ATTENDANCE..json b/LSL2/OIEVENT/DELETE/ATTENDANCE..json new file mode 100644 index 0000000..659cf08 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/ATTENDANCE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Attendance', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'Attendance', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/CALL_VISIT..json b/LSL2/OIEVENT/DELETE/CALL_VISIT..json new file mode 100644 index 0000000..d86a929 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/CALL_VISIT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Call Visit', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'Call Visit', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/CAR..json b/LSL2/OIEVENT/DELETE/CAR..json new file mode 100644 index 0000000..dd26c85 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/CAR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'CAR', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'CAR', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/CDM_LOG..json b/LSL2/OIEVENT/DELETE/CDM_LOG..json new file mode 100644 index 0000000..f179613 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/CDM_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'CDM Log', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'CDM Log', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/COA..json b/LSL2/OIEVENT/DELETE/COA..json new file mode 100644 index 0000000..bb064e9 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/COA..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_COA\r\nRETURN Comm_COA('Delete')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/COC..json b/LSL2/OIEVENT/DELETE/COC..json new file mode 100644 index 0000000..7ba7270 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/COC..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'COC', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'COC', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/COMPANY..json b/LSL2/OIEVENT/DELETE/COMPANY..json new file mode 100644 index 0000000..87baa7c --- /dev/null +++ b/LSL2/OIEVENT/DELETE/COMPANY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\n*if security_check( 'Company', Delete$ ) then\r\n* forward_event()\r\n* AllControls = utility( 'OBJECTLIST', @window, '' )\r\n* Acnt = fieldcount( AllControls, @fm ) \r\n* for i = 1 to Acnt \r\n* ThisControl = AllControls\r\n* if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n* void = set_property( ThisControl, 'ENABLED', 1 )\r\n* end \r\n* next i \r\n*end else\r\n * DO NOT ALLOW DELETIONS ON THE COMPANY WINDOW DUE TO THE FORECASTING SYSTEM\r\n * AS REQUESTED BY CAROL DULIS\r\n * THIS WILL STOP ANY USER EVEN IF THEY DO HAVE DELETE RIGHTS\r\n security_err_msg( 'Company', Delete$ )\r\n*end\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/CUSTOMER_EPI..json b/LSL2/OIEVENT/DELETE/CUSTOMER_EPI..json new file mode 100644 index 0000000..97af25d --- /dev/null +++ b/LSL2/OIEVENT/DELETE/CUSTOMER_EPI..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE Function Comm_Customer_EPI\r\n\r\nRETURN Comm_Customer_EPI('Delete')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/CUST_INQUIRY..json b/LSL2/OIEVENT/DELETE/CUST_INQUIRY..json new file mode 100644 index 0000000..b57c464 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/CUST_INQUIRY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Cust Inquiry', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'Cust Inquiry', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/DBW_WO_LOG..json b/LSL2/OIEVENT/DELETE/DBW_WO_LOG..json new file mode 100644 index 0000000..21ce43a --- /dev/null +++ b/LSL2/OIEVENT/DELETE/DBW_WO_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE Function Comm_WO_Log\r\n\r\nRETURN Comm_WO_Log('Delete')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/DESIG_ERR_GRP..json b/LSL2/OIEVENT/DELETE/DESIG_ERR_GRP..json new file mode 100644 index 0000000..ee5bcfb --- /dev/null +++ b/LSL2/OIEVENT/DELETE/DESIG_ERR_GRP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Desig Err Grp', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'Desig Err Grp', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/EPI_SUSCEPTOR..json b/LSL2/OIEVENT/DELETE/EPI_SUSCEPTOR..json new file mode 100644 index 0000000..e0ad68b --- /dev/null +++ b/LSL2/OIEVENT/DELETE/EPI_SUSCEPTOR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_Epi_Susceptor\r\nRETURN Comm_Epi_Susceptor('Delete')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/GAN_PROD_SPEC..json b/LSL2/OIEVENT/DELETE/GAN_PROD_SPEC..json new file mode 100644 index 0000000..b0d6a96 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/GAN_PROD_SPEC..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\n*if security_check( 'Prod Spec', Delete$ ) then\r\n* forward_event()\r\n* AllControls = utility( 'OBJECTLIST', @window, '' )\r\n* Acnt = fieldcount( AllControls, @fm ) \r\n* for i = 1 to Acnt \r\n* ThisControl = AllControls\r\n* if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n* void = set_property( ThisControl, 'ENABLED', 1 )\r\n* end \r\n* next i \r\n*end else\r\n * DO NOT ALLOW DELETIONS ON THE PSN DUE TO THE FORECASTING SYSTEM\r\n * AS REQUESTED BY CAROL DULIS\r\n * THIS WILL STOP ANY USER EVEN IF THEY DO HAVE DELETE RIGHTS\r\n security_err_msg( 'Prod Spec', Delete$ )\r\n*end\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/GAS_SRC..json b/LSL2/OIEVENT/DELETE/GAS_SRC..json new file mode 100644 index 0000000..504c90f --- /dev/null +++ b/LSL2/OIEVENT/DELETE/GAS_SRC..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_Gas_Src\r\n\r\nRETURN Comm_Gas_Src('Delete')\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/HOTH2O2_LOG..json b/LSL2/OIEVENT/DELETE/HOTH2O2_LOG..json new file mode 100644 index 0000000..cc1c74a --- /dev/null +++ b/LSL2/OIEVENT/DELETE/HOTH2O2_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Hot H2O2 Log', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'Hot H2O2 Log', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/ICAR..json b/LSL2/OIEVENT/DELETE/ICAR..json new file mode 100644 index 0000000..d68e323 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/ICAR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_ICAR\r\n\r\nRETURN Comm_ICAR('Delete')\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/INVOICE..json b/LSL2/OIEVENT/DELETE/INVOICE..json new file mode 100644 index 0000000..e998efa --- /dev/null +++ b/LSL2/OIEVENT/DELETE/INVOICE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount, Get_Status\r\ndeclare subroutine forward_event, security_err_msg, obj_Schedule,ErrMsg, Set_Status\r\n\r\n$insert security_rights_equ\r\n\r\n* Equates for columns in invoice detail control\r\n\r\nequ Item$ to 1\r\nequ QuoteNo$ to 2\r\nequ SchedNo$ to 3\r\nequ Wo$ to 4\r\nequ PartNo$ to 5\r\nequ LotNo$ to 6\r\nequ GLAcct$ to 7\r\nequ Setup$ to 8\r\nequ Srp$ to 9\r\nequ Qty$ to 10\r\nequ Rejects$ to 11\r\nequ Unprocessed$ to 12\r\nequ Price$ to 13\r\nequ Amount$ to 14\r\nequ PSN$ to 15\r\nequ WafInv$ to 16\r\n\r\n\r\nIF security_check( 'Invoice', Delete$ ) THEN\r\n\r\n\tInvNo\t\t= Get_Property(@WINDOW,'ID')\r\n\tTrackNos\t= Get_Property(@WINDOW:'.TRACKING_NO','ARRAY')\r\n\t\r\n\tSWAP @vm:@vm WITH '' IN TrackNos\r\n\tIF TrackNos[-1,1] = @vm THEN TrackNos[-1,1] = ''\r\n\tSWAP @vm WITH ', ' in TrackNos \r\n\t\r\n\tShipVia\t\t= Get_Property(@WINDOW:'.SHIP_VIA','TEXT')\r\n\tBoxCnt\t\t= Get_Property(@WINDOW:'.BOX_CNT','TEXT')\r\n\tShipDt\t\t= Get_Property(@WINDOW:'.SHIP_DATE','TEXT')\r\n\t\r\n\tInvoiceDetList = Get_Property(@WINDOW:'.INVOICE_DETAIL','LIST')\t;* Returns ARRAY propert\r\n\t\r\n\tDeletedRows = ''\r\n\tFOR I = 1 TO COUNT(InvoiceDetList,@FM) + (InvoiceDetList NE '')\r\n\t\tSchedNo = InvoiceDetList\r\n\t\tIF SchedNo NE '' THEN\r\n\t\t\tobj_Schedule('RemInvoice',InvNo:@RM:SchedNo)\t;* Remove references to this invoice\r\n\t\t\tIF Get_Status(errCode) THEN\r\n\t\t\t\tErrMsg(errCode)\r\n\t\t\t\tSet_Status(0)\r\n\t\t\t\tFOR N = 1 TO COUNT(DeletedRows,@FM) + (DeletedRows NE '')\r\n\t\t\t\t\t\r\n\t\t\t\t\tSchedKey\t\t= DeletedRows\r\n\t\t\t\t\tSetupCharge\t\t= DeletedRows\r\n\t\t\t\t\tSRPCharge\t\t= DeletedRows\r\n\t\t\t\t\tShipQty\t\t\t= DeletedRows\r\n\t\t\t\t\tShipPrice\t\t= DeletedRows\r\n\t\t\t\t\tRejects\t\t\t= DeletedRows\r\n\t\t\t\t\tUnprocessed\t\t= DeletedRows\r\n\r\n\t\t\t\t\tParms = InvNo:@RM:SchedKey:@RM:SetupCharge:@RM:SRPCharge:@RM:ShipQty:@RM:ShipPrice:@RM\r\n\t\t\t\t\tParms := ShipVia:@RM:Rejects:@RM:Unprocessed:@RM:BoxCnt:@RM:TrackNos:ShipDt\r\n\t\t\t\t\t\r\n\t\t\t\t\tobj_Schedule('AddInvoice',Parms)\t;* Restore invoice information on Schedules\r\n\t\t\t\t\t\r\n\t\t\t\t\tRETURN\r\n\t\t\t\t\t\r\n\t\t\t\tNEXT N\r\n\t\t\t\t\r\n\t\t\tEND ELSE\r\n\t\t\t\tDeletedRows<-1> = InvoiceDetList\r\n\t\t\tEND\r\n\t\tEND\t;* End of check for null sched number\r\n\tNEXT I\r\n\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'Invoice', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/LAST_WFR_CI_GROUP..json b/LSL2/OIEVENT/DELETE/LAST_WFR_CI_GROUP..json new file mode 100644 index 0000000..2ca092e --- /dev/null +++ b/LSL2/OIEVENT/DELETE/LAST_WFR_CI_GROUP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount, rds_comm\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif rds_comm( 'CHECK_NCR_SAVE' ) then\r\n * DO NOTHING CAUSE THE USER WAS ASKED TO SAVE AND THEY SAID NO BUT WE MUST\r\n return 0\r\nend\r\nif security_check( 'RDS', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'RDS', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/LOSS_CODES..json b/LSL2/OIEVENT/DELETE/LOSS_CODES..json new file mode 100644 index 0000000..7c67f40 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/LOSS_CODES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Loss Codes', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'Loss Codes', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/MASTER_DISK_LOG..json b/LSL2/OIEVENT/DELETE/MASTER_DISK_LOG..json new file mode 100644 index 0000000..1364710 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/MASTER_DISK_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Masster Disk Log', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'Master Disk Log', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/MEG_LOG..json b/LSL2/OIEVENT/DELETE/MEG_LOG..json new file mode 100644 index 0000000..67f5b3d --- /dev/null +++ b/LSL2/OIEVENT/DELETE/MEG_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Meg Log', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'Meg Log', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/MFC..json b/LSL2/OIEVENT/DELETE/MFC..json new file mode 100644 index 0000000..ee3e545 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/MFC..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_MFC\r\n\r\nRETURN Comm_MFC('Delete')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/MSG_GROUPS..json b/LSL2/OIEVENT/DELETE/MSG_GROUPS..json new file mode 100644 index 0000000..fc3016d --- /dev/null +++ b/LSL2/OIEVENT/DELETE/MSG_GROUPS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount, Get_Property\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n$INSERT MSG_GROUPS_EQU\r\n\r\nGroupName = Get_Property(@WINDOW:'.GROUP_NAME','TEXT')\r\n\r\nif @user4 = xlate( 'MSG_GROUPS', GroupName, msg_groups_entry_id$, '' ) then\r\n *it belongs to them so they can delete it\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'MSG_GROUPS', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/NAMES..json b/LSL2/OIEVENT/DELETE/NAMES..json new file mode 100644 index 0000000..ccecbc9 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/NAMES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, send_event, fieldcount\r\ndeclare subroutine security_err_msg, forward_event\r\n\r\n$insert security_rights_equ\r\nif security_check( 'Names', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm )\r\n for i = 1 to Acnt\r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n Void = set_property( ThisControl, 'ENABLED', 1 )\r\n end\r\n next i\t\r\nend else\r\n security_err_msg( 'Names', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/NCR..json b/LSL2/OIEVENT/DELETE/NCR..json new file mode 100644 index 0000000..f7e51e6 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/NCR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE Function Comm_NCR\r\n\r\nRETURN Comm_NCR('Delete')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/NDA..json b/LSL2/OIEVENT/DELETE/NDA..json new file mode 100644 index 0000000..d9d2339 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/NDA..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'NDA', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'NDA', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/ORDER..json b/LSL2/OIEVENT/DELETE/ORDER..json new file mode 100644 index 0000000..9a4ef20 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/ORDER..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount, Get_Status\r\ndeclare subroutine forward_event, security_err_msg,ErrMsg,Set_Status,obj_Annual_Contracts\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Order', Delete$ ) then\r\n\tACID = .AC_ID->TEXT\r\n\tPONo = .PO->TEXT\r\n\t\r\n\tIF ACID NE '' AND PONo NE '' THEN\r\n\t\tSet_Status(0)\r\n\t\tobj_Annual_Contracts('RemOrder',ACID:@RM:PONo)\r\n\t\tIF Get_Status(errCode) THEN\r\n\t\t\tErrMsg(errCode)\r\n\t\t\tRETURN 0\r\n\t\tEND\r\n\tEND\r\n\tforward_event()\r\n\tAllControls = utility( 'OBJECTLIST', @window, '' )\r\n\tAcnt = fieldcount( AllControls, @fm ) \r\n\tfor i = 1 to Acnt \r\n\t\tThisControl = AllControls\r\n\t\tif ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t\t\tvoid = set_property( ThisControl, 'ENABLED', 1 )\r\n\t\tend \r\n\tnext i \r\nend else\r\n\tsecurity_err_msg( 'Order', Delete$ )\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/ORDER2..json b/LSL2/OIEVENT/DELETE/ORDER2..json new file mode 100644 index 0000000..8c339c7 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/ORDER2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE Function Comm_Order\r\n\r\nRETURN Comm_Order('Delete')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/ORDER_DET..json b/LSL2/OIEVENT/DELETE/ORDER_DET..json new file mode 100644 index 0000000..1401b22 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/ORDER_DET..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_Order_Det\r\n\r\nRETURN Comm_Order_Det('Delete')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/PHOTOFLO_LOG..json b/LSL2/OIEVENT/DELETE/PHOTOFLO_LOG..json new file mode 100644 index 0000000..d696578 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/PHOTOFLO_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'PhotoFlo Log', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'PhotoFlo Log', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/PROD_ORD..json b/LSL2/OIEVENT/DELETE/PROD_ORD..json new file mode 100644 index 0000000..b7e9662 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/PROD_ORD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE Function Comm_Prod_Ord\r\n\r\nRETURN Comm_Prod_Ord('Delete')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/PROD_SPEC..json b/LSL2/OIEVENT/DELETE/PROD_SPEC..json new file mode 100644 index 0000000..b0d6a96 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/PROD_SPEC..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\n*if security_check( 'Prod Spec', Delete$ ) then\r\n* forward_event()\r\n* AllControls = utility( 'OBJECTLIST', @window, '' )\r\n* Acnt = fieldcount( AllControls, @fm ) \r\n* for i = 1 to Acnt \r\n* ThisControl = AllControls\r\n* if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n* void = set_property( ThisControl, 'ENABLED', 1 )\r\n* end \r\n* next i \r\n*end else\r\n * DO NOT ALLOW DELETIONS ON THE PSN DUE TO THE FORECASTING SYSTEM\r\n * AS REQUESTED BY CAROL DULIS\r\n * THIS WILL STOP ANY USER EVEN IF THEY DO HAVE DELETE RIGHTS\r\n security_err_msg( 'Prod Spec', Delete$ )\r\n*end\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/PROD_SPEC_BACKUP..json b/LSL2/OIEVENT/DELETE/PROD_SPEC_BACKUP..json new file mode 100644 index 0000000..b0d6a96 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/PROD_SPEC_BACKUP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\n*if security_check( 'Prod Spec', Delete$ ) then\r\n* forward_event()\r\n* AllControls = utility( 'OBJECTLIST', @window, '' )\r\n* Acnt = fieldcount( AllControls, @fm ) \r\n* for i = 1 to Acnt \r\n* ThisControl = AllControls\r\n* if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n* void = set_property( ThisControl, 'ENABLED', 1 )\r\n* end \r\n* next i \r\n*end else\r\n * DO NOT ALLOW DELETIONS ON THE PSN DUE TO THE FORECASTING SYSTEM\r\n * AS REQUESTED BY CAROL DULIS\r\n * THIS WILL STOP ANY USER EVEN IF THEY DO HAVE DELETE RIGHTS\r\n security_err_msg( 'Prod Spec', Delete$ )\r\n*end\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/PROD_SPEC_COSTING..json b/LSL2/OIEVENT/DELETE/PROD_SPEC_COSTING..json new file mode 100644 index 0000000..489d836 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/PROD_SPEC_COSTING..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE SUBROUTINE ErrMsg\r\n\r\nErrMsg('Deletions Not Permitted')\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/PROD_SPEC_JCH..json b/LSL2/OIEVENT/DELETE/PROD_SPEC_JCH..json new file mode 100644 index 0000000..b0d6a96 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/PROD_SPEC_JCH..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\n*if security_check( 'Prod Spec', Delete$ ) then\r\n* forward_event()\r\n* AllControls = utility( 'OBJECTLIST', @window, '' )\r\n* Acnt = fieldcount( AllControls, @fm ) \r\n* for i = 1 to Acnt \r\n* ThisControl = AllControls\r\n* if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n* void = set_property( ThisControl, 'ENABLED', 1 )\r\n* end \r\n* next i \r\n*end else\r\n * DO NOT ALLOW DELETIONS ON THE PSN DUE TO THE FORECASTING SYSTEM\r\n * AS REQUESTED BY CAROL DULIS\r\n * THIS WILL STOP ANY USER EVEN IF THEY DO HAVE DELETE RIGHTS\r\n security_err_msg( 'Prod Spec', Delete$ )\r\n*end\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/PROD_SPEC_JRO..json b/LSL2/OIEVENT/DELETE/PROD_SPEC_JRO..json new file mode 100644 index 0000000..b0d6a96 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/PROD_SPEC_JRO..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\n*if security_check( 'Prod Spec', Delete$ ) then\r\n* forward_event()\r\n* AllControls = utility( 'OBJECTLIST', @window, '' )\r\n* Acnt = fieldcount( AllControls, @fm ) \r\n* for i = 1 to Acnt \r\n* ThisControl = AllControls\r\n* if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n* void = set_property( ThisControl, 'ENABLED', 1 )\r\n* end \r\n* next i \r\n*end else\r\n * DO NOT ALLOW DELETIONS ON THE PSN DUE TO THE FORECASTING SYSTEM\r\n * AS REQUESTED BY CAROL DULIS\r\n * THIS WILL STOP ANY USER EVEN IF THEY DO HAVE DELETE RIGHTS\r\n security_err_msg( 'Prod Spec', Delete$ )\r\n*end\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/PRS_LAYER..json b/LSL2/OIEVENT/DELETE/PRS_LAYER..json new file mode 100644 index 0000000..020f9f8 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/PRS_LAYER..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_PRS_Layer\r\nRETURN Comm_PRS_Layer(CtrlEntID,'DELETE')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/PRS_PROP..json b/LSL2/OIEVENT/DELETE/PRS_PROP..json new file mode 100644 index 0000000..d4c9d25 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/PRS_PROP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_PRS_Prop\r\n\r\nRETURN Comm_PRS_Prop(CtrlEntID,'DELETE')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/PRS_STAGE..json b/LSL2/OIEVENT/DELETE/PRS_STAGE..json new file mode 100644 index 0000000..2c37490 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/PRS_STAGE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_PRS_Stage\r\n\r\nRETURN Comm_PRS_Stage(CtrlEntID,'DELETE')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/QUARTZ_TC_LOG..json b/LSL2/OIEVENT/DELETE/QUARTZ_TC_LOG..json new file mode 100644 index 0000000..9f3a11c --- /dev/null +++ b/LSL2/OIEVENT/DELETE/QUARTZ_TC_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Quartz TC Log', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'Quartz TC Log', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/QUARTZ_WAND_LOG..json b/LSL2/OIEVENT/DELETE/QUARTZ_WAND_LOG..json new file mode 100644 index 0000000..589004e --- /dev/null +++ b/LSL2/OIEVENT/DELETE/QUARTZ_WAND_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Quartz Wand Log', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'Quartz Wand Log', Delete$ )\r\nend\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/QUOTE..json b/LSL2/OIEVENT/DELETE/QUOTE..json new file mode 100644 index 0000000..ecbeb23 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/QUOTE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Quote', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'Quote', Delete$ )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/QUOTE2..json b/LSL2/OIEVENT/DELETE/QUOTE2..json new file mode 100644 index 0000000..7121ce4 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/QUOTE2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE Function Comm_Quote\r\n\r\n\r\nRETURN Comm_Quote('Delete')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/QUOTE_OLD..json b/LSL2/OIEVENT/DELETE/QUOTE_OLD..json new file mode 100644 index 0000000..dde28e3 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/QUOTE_OLD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\n$insert msg_equates\r\n\r\n* OLD QUOTES DO NOT ALLOW DELETION\r\n\r\nMsgInfo = ''\r\nMsgInfo = 'H'\r\nMsgInfo = 'Deletion is not allowed on \"OLD QUOTES\"'\r\nVoid = msg( '', MsgInfo )\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/QUOTE_SRL..json b/LSL2/OIEVENT/DELETE/QUOTE_SRL..json new file mode 100644 index 0000000..ffcde78 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/QUOTE_SRL..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Quote SRL', Delete$ ) then\r\n forward_event( CtrlEntId, CtrlClassId )\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'Quote SRL', Delete$ )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/RDS..json b/LSL2/OIEVENT/DELETE/RDS..json new file mode 100644 index 0000000..7a92035 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/RDS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount, rds_comm\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'RDS', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'RDS', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/RDS_LAYER..json b/LSL2/OIEVENT/DELETE/RDS_LAYER..json new file mode 100644 index 0000000..25ed85b --- /dev/null +++ b/LSL2/OIEVENT/DELETE/RDS_LAYER..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_RDS_Layer\r\nRETURN Comm_RDS_Layer('Delete')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/RDS_POST_EPI..json b/LSL2/OIEVENT/DELETE/RDS_POST_EPI..json new file mode 100644 index 0000000..7a92035 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/RDS_POST_EPI..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount, rds_comm\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'RDS', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'RDS', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/RDS_PRE_EPI..json b/LSL2/OIEVENT/DELETE/RDS_PRE_EPI..json new file mode 100644 index 0000000..7a92035 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/RDS_PRE_EPI..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount, rds_comm\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'RDS', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'RDS', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/RDS_PRE_EPI_ORG..json b/LSL2/OIEVENT/DELETE/RDS_PRE_EPI_ORG..json new file mode 100644 index 0000000..7a92035 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/RDS_PRE_EPI_ORG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount, rds_comm\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'RDS', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'RDS', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/RDS_TEST..json b/LSL2/OIEVENT/DELETE/RDS_TEST..json new file mode 100644 index 0000000..4c33b86 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/RDS_TEST..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE Function Comm_RDS_Test\r\n\r\nRETURN Comm_RDS_Test('Delete')\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/RDS_UNLOAD..json b/LSL2/OIEVENT/DELETE/RDS_UNLOAD..json new file mode 100644 index 0000000..2ca092e --- /dev/null +++ b/LSL2/OIEVENT/DELETE/RDS_UNLOAD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount, rds_comm\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif rds_comm( 'CHECK_NCR_SAVE' ) then\r\n * DO NOTHING CAUSE THE USER WAS ASKED TO SAVE AND THEY SAID NO BUT WE MUST\r\n return 0\r\nend\r\nif security_check( 'RDS', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'RDS', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/REACTOR..json b/LSL2/OIEVENT/DELETE/REACTOR..json new file mode 100644 index 0000000..fda12c1 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/REACTOR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_Reactor\r\n\r\nRETURN Comm_Reactor('Delete')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/REACTOR_LOG..json b/LSL2/OIEVENT/DELETE/REACTOR_LOG..json new file mode 100644 index 0000000..f38196d --- /dev/null +++ b/LSL2/OIEVENT/DELETE/REACTOR_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_Reactor_Log\r\nRETURN Comm_Reactor_Log(CtrlEntId,'DELETE')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/REACTOR_LOG_AREV..json b/LSL2/OIEVENT/DELETE/REACTOR_LOG_AREV..json new file mode 100644 index 0000000..d895051 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/REACTOR_LOG_AREV..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Reactor Log', Delete$ ) then\r\n forward_event( CtrlEntId, CtrlClassId )\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'Reactor Log', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/REACTOR_PM..json b/LSL2/OIEVENT/DELETE/REACTOR_PM..json new file mode 100644 index 0000000..d2b3d36 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/REACTOR_PM..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Reactor PM', Delete$ ) then\r\n forward_event()\r\n \r\nend else\r\n security_err_msg( 'Reactor PM', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/REACTOR_RO..json b/LSL2/OIEVENT/DELETE/REACTOR_RO..json new file mode 100644 index 0000000..fda12c1 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/REACTOR_RO..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_Reactor\r\n\r\nRETURN Comm_Reactor('Delete')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/REACT_EVENT..json b/LSL2/OIEVENT/DELETE/REACT_EVENT..json new file mode 100644 index 0000000..0b01088 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/REACT_EVENT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE Function Comm_React_Event\r\nRETURN Comm_React_Event('Delete')\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/REACT_ITEMS..json b/LSL2/OIEVENT/DELETE/REACT_ITEMS..json new file mode 100644 index 0000000..44e3f04 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/REACT_ITEMS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'React Items', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'React Items', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/REACT_PROBS..json b/LSL2/OIEVENT/DELETE/REACT_PROBS..json new file mode 100644 index 0000000..d385cc6 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/REACT_PROBS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'React Probs', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'React Probs', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/REACT_PROB_CAT..json b/LSL2/OIEVENT/DELETE/REACT_PROB_CAT..json new file mode 100644 index 0000000..14ac5a1 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/REACT_PROB_CAT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'React Prob Cat', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'React Prob Cat', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/REACT_SERVS..json b/LSL2/OIEVENT/DELETE/REACT_SERVS..json new file mode 100644 index 0000000..fe13422 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/REACT_SERVS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_React_Servs\r\n\r\nRETURN Comm_React_Servs(@WINDOW,'DELETE')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/REACT_TUBE..json b/LSL2/OIEVENT/DELETE/REACT_TUBE..json new file mode 100644 index 0000000..02ed269 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/REACT_TUBE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_React_Tube\r\n\r\nRETURN Comm_React_Tube('Delete')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/RECIPE..json b/LSL2/OIEVENT/DELETE/RECIPE..json new file mode 100644 index 0000000..2f9e175 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/RECIPE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Recipe', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'Recipe', Delete$ )\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/RECIPE_PARMS..json b/LSL2/OIEVENT/DELETE/RECIPE_PARMS..json new file mode 100644 index 0000000..25ed85b --- /dev/null +++ b/LSL2/OIEVENT/DELETE/RECIPE_PARMS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_RDS_Layer\r\nRETURN Comm_RDS_Layer('Delete')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/SAP_SHIPMENT..json b/LSL2/OIEVENT/DELETE/SAP_SHIPMENT..json new file mode 100644 index 0000000..cbe8ce0 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/SAP_SHIPMENT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE Function Comm_SAP_Shipment\r\nRETURN Comm_SAP_Shipment('Delete')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/SCHEDULE..json b/LSL2/OIEVENT/DELETE/SCHEDULE..json new file mode 100644 index 0000000..89c6a4a --- /dev/null +++ b/LSL2/OIEVENT/DELETE/SCHEDULE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Schedule', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'Schedule', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/SCHEDULE_SRL..json b/LSL2/OIEVENT/DELETE/SCHEDULE_SRL..json new file mode 100644 index 0000000..82be06d --- /dev/null +++ b/LSL2/OIEVENT/DELETE/SCHEDULE_SRL..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Schedule SRL', Delete$ ) then\r\n forward_event( CtrlEntId, CtrlClassId )\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'Schedule SRL', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/SEMI_LOG..json b/LSL2/OIEVENT/DELETE/SEMI_LOG..json new file mode 100644 index 0000000..cfb6777 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/SEMI_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Semi Log', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'Semi Log', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/SHIPMENT..json b/LSL2/OIEVENT/DELETE/SHIPMENT..json new file mode 100644 index 0000000..f9fc2b0 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/SHIPMENT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE Function Comm_Shipment\r\nRETURN Comm_Shipment('Delete')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/SPC_CLEAN_HF..json b/LSL2/OIEVENT/DELETE/SPC_CLEAN_HF..json new file mode 100644 index 0000000..b13847a --- /dev/null +++ b/LSL2/OIEVENT/DELETE/SPC_CLEAN_HF..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'SPC Clean HF', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'SPC Clean HF', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/SPC_CLEAN_HF_AKRION..json b/LSL2/OIEVENT/DELETE/SPC_CLEAN_HF_AKRION..json new file mode 100644 index 0000000..ab4c4bf --- /dev/null +++ b/LSL2/OIEVENT/DELETE/SPC_CLEAN_HF_AKRION..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'SPC Clean HF Akrion', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'SPC Clean HF Akrion', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/SPC_CLEAN_HF_ETCH..json b/LSL2/OIEVENT/DELETE/SPC_CLEAN_HF_ETCH..json new file mode 100644 index 0000000..f4c011e --- /dev/null +++ b/LSL2/OIEVENT/DELETE/SPC_CLEAN_HF_ETCH..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'SPC Clean HF Etch', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'SPC Clean HF Etch', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/SPC_CLEAN_HF_ETCH_AKRION..json b/LSL2/OIEVENT/DELETE/SPC_CLEAN_HF_ETCH_AKRION..json new file mode 100644 index 0000000..36ff24d --- /dev/null +++ b/LSL2/OIEVENT/DELETE/SPC_CLEAN_HF_ETCH_AKRION..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'SPC Clean HF Etch Akrion', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'SPC Clean HF Etch Akrion', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/SPC_CLEAN_SC1..json b/LSL2/OIEVENT/DELETE/SPC_CLEAN_SC1..json new file mode 100644 index 0000000..c80a257 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/SPC_CLEAN_SC1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'SPC Clean SC1', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'SPC Clean SC1', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/SPC_CLEAN_SRD..json b/LSL2/OIEVENT/DELETE/SPC_CLEAN_SRD..json new file mode 100644 index 0000000..f05825b --- /dev/null +++ b/LSL2/OIEVENT/DELETE/SPC_CLEAN_SRD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'SPC Clean SRD', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'SPC Clean SRD', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/SPC_EVAL_4PP..json b/LSL2/OIEVENT/DELETE/SPC_EVAL_4PP..json new file mode 100644 index 0000000..00fa52f --- /dev/null +++ b/LSL2/OIEVENT/DELETE/SPC_EVAL_4PP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'SPC Eval 4PP', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'SPC Eval 4PP', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/SPC_EVAL_ADE..json b/LSL2/OIEVENT/DELETE/SPC_EVAL_ADE..json new file mode 100644 index 0000000..308c334 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/SPC_EVAL_ADE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'SPC Eval ADE', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'SPC Eval ADE', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/SPC_EVAL_FTIR..json b/LSL2/OIEVENT/DELETE/SPC_EVAL_FTIR..json new file mode 100644 index 0000000..47266b4 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/SPC_EVAL_FTIR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'SPC Eval FTIR', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'SPC Eval FTIR', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/SPC_REACTOR_PARTICLES..json b/LSL2/OIEVENT/DELETE/SPC_REACTOR_PARTICLES..json new file mode 100644 index 0000000..4828794 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/SPC_REACTOR_PARTICLES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'SPC Reactor Particles', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'SPC Reactor Particles', Delete$ )\r\nend\r\nRETURN" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/SPC_WAFER_ETCH..json b/LSL2/OIEVENT/DELETE/SPC_WAFER_ETCH..json new file mode 100644 index 0000000..4ebf29b --- /dev/null +++ b/LSL2/OIEVENT/DELETE/SPC_WAFER_ETCH..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'SPC Wafer Etch', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'SPC Wafer Etch', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/SRP_COC_RESULTS..json b/LSL2/OIEVENT/DELETE/SRP_COC_RESULTS..json new file mode 100644 index 0000000..73834b2 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/SRP_COC_RESULTS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'SRP COC Results', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'SRP COC Results', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/SRP_INCOMING_LOG..json b/LSL2/OIEVENT/DELETE/SRP_INCOMING_LOG..json new file mode 100644 index 0000000..595c34a --- /dev/null +++ b/LSL2/OIEVENT/DELETE/SRP_INCOMING_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'SRP Incoming Log', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'SRP Incoming Log', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/SUB_REC_LOG..json b/LSL2/OIEVENT/DELETE/SUB_REC_LOG..json new file mode 100644 index 0000000..e8f7de6 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/SUB_REC_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Sub Rec Log', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'Sub Rec Log', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/TW_CODES..json b/LSL2/OIEVENT/DELETE/TW_CODES..json new file mode 100644 index 0000000..60ca9a0 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/TW_CODES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'TW Codes', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'TW Codes', Delete$ )\r\nend\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/TW_PRIME_USAGE..json b/LSL2/OIEVENT/DELETE/TW_PRIME_USAGE..json new file mode 100644 index 0000000..126db6c --- /dev/null +++ b/LSL2/OIEVENT/DELETE/TW_PRIME_USAGE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'TW Prime Usage', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'TW Prime Usage', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/TW_USAGE..json b/LSL2/OIEVENT/DELETE/TW_USAGE..json new file mode 100644 index 0000000..398d4bd --- /dev/null +++ b/LSL2/OIEVENT/DELETE/TW_USAGE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'TW Usage', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'TW Usage', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/TW_USE..json b/LSL2/OIEVENT/DELETE/TW_USE..json new file mode 100644 index 0000000..6dfcf18 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/TW_USE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_TW_Use\r\nRETURN Comm_TW_Use(CtrlEntID,'DELETE')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/WAFER_INV..json b/LSL2/OIEVENT/DELETE/WAFER_INV..json new file mode 100644 index 0000000..1e5cbeb --- /dev/null +++ b/LSL2/OIEVENT/DELETE/WAFER_INV..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'Wafer Inventory', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'Wafer Inventory', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/WM_IN..json b/LSL2/OIEVENT/DELETE/WM_IN..json new file mode 100644 index 0000000..b5cce74 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/WM_IN..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_WM_In\r\n\r\nRETURN Comm_WM_In('Delete')\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/WM_OUT..json b/LSL2/OIEVENT/DELETE/WM_OUT..json new file mode 100644 index 0000000..9e55fc4 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/WM_OUT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_WM_Out\r\nRETURN Comm_WM_Out('Delete')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/WO_LOG..json b/LSL2/OIEVENT/DELETE/WO_LOG..json new file mode 100644 index 0000000..da5a28f --- /dev/null +++ b/LSL2/OIEVENT/DELETE/WO_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n* Dead 1/23/2006 JCH\r\n\r\nRETURN 0\r\n\r\n/*\r\n\r\nif security_check( 'WO Log', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'WO Log', Delete$ )\r\nend\r\nRETURN 0\r\n*/" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/WO_LOG2..json b/LSL2/OIEVENT/DELETE/WO_LOG2..json new file mode 100644 index 0000000..21ce43a --- /dev/null +++ b/LSL2/OIEVENT/DELETE/WO_LOG2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE Function Comm_WO_Log\r\n\r\nRETURN Comm_WO_Log('Delete')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/WO_LOG2_DPC..json b/LSL2/OIEVENT/DELETE/WO_LOG2_DPC..json new file mode 100644 index 0000000..21ce43a --- /dev/null +++ b/LSL2/OIEVENT/DELETE/WO_LOG2_DPC..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE Function Comm_WO_Log\r\n\r\nRETURN Comm_WO_Log('Delete')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/WO_MAT..json b/LSL2/OIEVENT/DELETE/WO_MAT..json new file mode 100644 index 0000000..05babc1 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/WO_MAT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION COMM_WO_MAT\r\nRETURN Comm_WO_Mat('Delete')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/WO_MAT_GAN..json b/LSL2/OIEVENT/DELETE/WO_MAT_GAN..json new file mode 100644 index 0000000..926d2c3 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/WO_MAT_GAN..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION WO_Mat_Gan\r\nRETURN WO_MAT_GAN(@WINDOW,'DELETE')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/WO_MAT_IN..json b/LSL2/OIEVENT/DELETE/WO_MAT_IN..json new file mode 100644 index 0000000..16bdc07 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/WO_MAT_IN..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_WO_Mat_Wfr\r\nRETURN 0\t;*Comm_WO_Mat_Wfr('Delete')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/WO_MAT_OUT..json b/LSL2/OIEVENT/DELETE/WO_MAT_OUT..json new file mode 100644 index 0000000..16bdc07 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/WO_MAT_OUT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_WO_Mat_Wfr\r\nRETURN 0\t;*Comm_WO_Mat_Wfr('Delete')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/WO_MAT_WFR..json b/LSL2/OIEVENT/DELETE/WO_MAT_WFR..json new file mode 100644 index 0000000..22d931a --- /dev/null +++ b/LSL2/OIEVENT/DELETE/WO_MAT_WFR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_WO_Mat_Wfr\r\nRETURN Comm_WO_Mat_Wfr('Delete')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/WO_PROD..json b/LSL2/OIEVENT/DELETE/WO_PROD..json new file mode 100644 index 0000000..54268fa --- /dev/null +++ b/LSL2/OIEVENT/DELETE/WO_PROD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE SUBROUTINE ErrMsg\r\n\r\nErrMsg('This record may not be deleted..')\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/WO_PROD_EPI..json b/LSL2/OIEVENT/DELETE/WO_PROD_EPI..json new file mode 100644 index 0000000..54268fa --- /dev/null +++ b/LSL2/OIEVENT/DELETE/WO_PROD_EPI..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE SUBROUTINE ErrMsg\r\n\r\nErrMsg('This record may not be deleted..')\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETE/WO_VERIFY..json b/LSL2/OIEVENT/DELETE/WO_VERIFY..json new file mode 100644 index 0000000..345ed27 --- /dev/null +++ b/LSL2/OIEVENT/DELETE/WO_VERIFY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function security_check, msg, send_event, fieldcount\r\ndeclare subroutine forward_event, security_err_msg\r\n$insert security_rights_equ\r\n\r\nif security_check( 'WO Verify', Delete$ ) then\r\n forward_event()\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\n next i \r\nend else\r\n security_err_msg( 'WO Verify', Delete$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETEROW/CUST_INQUIRY.SPEC_INFO.json b/LSL2/OIEVENT/DELETEROW/CUST_INQUIRY.SPEC_INFO.json new file mode 100644 index 0000000..ad60d42 --- /dev/null +++ b/LSL2/OIEVENT/DELETEROW/CUST_INQUIRY.SPEC_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_message\r\n\r\nVoid = send_message( @window:'.SPEC_INFO', 'INSERT', RowNum, RowData )\r\nSelPos = .spec_info->selpos\r\nSelPos<2> = SelPos<2> -1\r\n.spec_info->selpos = SelPos\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETEROW/ORDER.ORDER_DETAIL.json b/LSL2/OIEVENT/DELETEROW/ORDER.ORDER_DETAIL.json new file mode 100644 index 0000000..12b3fb1 --- /dev/null +++ b/LSL2/OIEVENT/DELETEROW/ORDER.ORDER_DETAIL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, send_message, fieldcount\r\ndeclare subroutine extract_si_keys\r\n$insert invoice_equ\r\n$insert logical\r\n$insert wafer_inv_equ\r\n$insert msg_equates\r\nequ WIPos$ to 6\r\n\r\nSelPos = .order_detail->selpos\r\nCurCol = SelPos<1>\r\nCurRow = SelPos<2>\r\nOrderLine = CurRow\r\n* IF THIS ORDER LINE ITEM HAS BEEN INVOICED THEN DO NOT ALLOW DELETION OF THE ROW\r\nOrderNo = .order_no->text\r\nInvoiced = false$\r\nextract_si_keys(\"INVOICE\", \"ORDER_NO\", OrderNo, KeyList)\r\nKCnt = fieldcount( KeyList, @vm )\r\nfor i = 1 to KCnt\r\n ThisInv = KeyList<1,i>\r\n OrderLineItems = xlate( 'INVOICE', ThisInv, invoice_order_line_item$, 'X' )\r\n locate OrderLine in OrderLineItems using @vm setting LPos then\r\n Invoiced = true$\r\n end\r\n until Invoiced\r\nnext i\r\nif Invoiced then\r\n Void = send_message( @window:'.ORDER_DETAIL', 'INSERT', RowNum, RowData )\r\n SelPos = .order_detail->selpos\r\n SelPos<2> = SelPos<2> - 1\r\n .order_detail->selpos = SelPos\r\n MsgInfo = ''\r\n MsgInfo = 'This order line item has already been inoviced...deletion is not allowed.'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend \r\nWaferInvId = RowData<1,6>\r\nWIRec = xlate( 'WAFER_INV', WaferInvId, '', 'X' )\r\nOrdNo = .order_no->text\r\nWIOrdNos = WIRec\r\nlocate OrdNo in WIOrdNos using @vm setting FPos then\r\n MsgInfo = ''\r\n MsgInfo = 'You will need to manually adjust wafer inventory# ':WaferInvId\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETEROW/RDS_PRE_EPI.PRE_EPI_SIG_INFO.json b/LSL2/OIEVENT/DELETEROW/RDS_PRE_EPI.PRE_EPI_SIG_INFO.json new file mode 100644 index 0000000..34016ed --- /dev/null +++ b/LSL2/OIEVENT/DELETEROW/RDS_PRE_EPI.PRE_EPI_SIG_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_message, msg\r\n$insert msg_equates\r\n\r\nCurrPos = @CtrlEntId->selpos\r\nCurrCol = CurrPos<1>\r\nCurrRow = CurrPos<2>\r\n\r\nIF RowData<1,4> NE '' THEN\r\n\t* Row is signed\r\n\tVoid = Send_Message( CtrlEntId, 'INSERT', RowNum, RowData )\r\n\tCurrRow = CurrRow - 1\r\n\t@CtrlEntId->selpos = CurrCol:@FM:CurrRow\r\n\tRETURN 0\t\r\nEND\r\n\r\nMsgInfo = ''\r\nMsgInfo = 'Do you wish to delete this cleaning entry?'\r\nMsgInfo = 'BNY'\r\nResp = msg( '', MsgInfo )\r\nif not(Resp) then\r\n Void = send_message( CtrlEntId, 'INSERT', RowNum, RowData )\r\n SelPos = @CtrlEntId->selpos\r\n SelPos<2> = SelPos<2> -1\r\n @CtrlEntId->selpos = SelPos\r\nend\r\nRETURN 0\r\n\r\n\r\n/*\r\ndeclare function send_message, msg\r\n$insert msg_equates\r\n\r\nMsgInfo = ''\r\nMsgInfo = 'Do you wish to delete this cleaning entry?'\r\nMsgInfo = 'BNY'\r\nResp = msg( '', MsgInfo )\r\nif not(Resp) then\r\n Void = send_message( CtrlEntId, 'INSERT', RowNum, RowData )\r\n SelPos = @CtrlEntId->selpos\r\n SelPos<2> = SelPos<2> -1\r\n @CtrlEntId->selpos = SelPos\r\nend\r\nRETURN 0\r\n*/" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETEROW/RDS_PRE_EPI_ORG.PRE_EPI_SIG_INFO.json b/LSL2/OIEVENT/DELETEROW/RDS_PRE_EPI_ORG.PRE_EPI_SIG_INFO.json new file mode 100644 index 0000000..34016ed --- /dev/null +++ b/LSL2/OIEVENT/DELETEROW/RDS_PRE_EPI_ORG.PRE_EPI_SIG_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_message, msg\r\n$insert msg_equates\r\n\r\nCurrPos = @CtrlEntId->selpos\r\nCurrCol = CurrPos<1>\r\nCurrRow = CurrPos<2>\r\n\r\nIF RowData<1,4> NE '' THEN\r\n\t* Row is signed\r\n\tVoid = Send_Message( CtrlEntId, 'INSERT', RowNum, RowData )\r\n\tCurrRow = CurrRow - 1\r\n\t@CtrlEntId->selpos = CurrCol:@FM:CurrRow\r\n\tRETURN 0\t\r\nEND\r\n\r\nMsgInfo = ''\r\nMsgInfo = 'Do you wish to delete this cleaning entry?'\r\nMsgInfo = 'BNY'\r\nResp = msg( '', MsgInfo )\r\nif not(Resp) then\r\n Void = send_message( CtrlEntId, 'INSERT', RowNum, RowData )\r\n SelPos = @CtrlEntId->selpos\r\n SelPos<2> = SelPos<2> -1\r\n @CtrlEntId->selpos = SelPos\r\nend\r\nRETURN 0\r\n\r\n\r\n/*\r\ndeclare function send_message, msg\r\n$insert msg_equates\r\n\r\nMsgInfo = ''\r\nMsgInfo = 'Do you wish to delete this cleaning entry?'\r\nMsgInfo = 'BNY'\r\nResp = msg( '', MsgInfo )\r\nif not(Resp) then\r\n Void = send_message( CtrlEntId, 'INSERT', RowNum, RowData )\r\n SelPos = @CtrlEntId->selpos\r\n SelPos<2> = SelPos<2> -1\r\n @CtrlEntId->selpos = SelPos\r\nend\r\nRETURN 0\r\n*/" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETEROW/RDS_REJECTS.REJ_INFO.json b/LSL2/OIEVENT/DELETEROW/RDS_REJECTS.REJ_INFO.json new file mode 100644 index 0000000..0849b31 --- /dev/null +++ b/LSL2/OIEVENT/DELETEROW/RDS_REJECTS.REJ_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, send_message\r\n$insert ncr_equ\r\n$insert logical\r\n\r\nNCRId = RowData<1,6>\r\nRejCnt = RowData<1,1>\r\nRejLoss = RowData<1,2>\r\nRejAC = RowData<1,4>\r\n*if xlate( 'NCR', NCRId, ncr_status$, 'X' ) = 'O' then\r\n NCRsToDelete = get_property( @window, '@NCRsToDelete' )\r\n RejCntToDelete = get_property( @window, '@RejCntToDelete' )\r\n RejLossToDelete = get_property( @window, '@RejLossToDelete' )\r\n RejACToDelete = get_property( @window, '@RejACToDelete' )\r\n *\r\n NCRsToDelete<-1> = NCRId\r\n RejCntToDelete<-1> = RejCnt\r\n RejLossToDelete<-1> = RejLoss\r\n RejACToDelete<-1> = RejAC\r\n Void = set_property( @window, '@NCRsToDelete', NCRsToDelete )\r\n Void = set_property( @window, '@RejCntToDelete', RejCntToDelete )\r\n Void = set_property( @window, '@RejLossToDelete', RejLossToDelete )\r\n Void = set_property( @window, '@RejACToDelete', RejACToDelete )\r\n *\r\n*end else\r\n * TELL USER THAT THEY CANNOT DELETE\r\n* MsgInfo = ''\r\n* MsgInfo = 'The corresponding NCR ':NCRId:' for this accounted reject has already been signed. You cannot delete this.'\r\n* MsgInfo = 'H'\r\n* Void = msg( '', MsgInfo )\r\n* Void = send_message( CtrlEntId, 'INSERT', RowNum, RowData ) \r\n*end\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETEROW/REACT_HRS.REACT_INFO.json b/LSL2/OIEVENT/DELETEROW/REACT_HRS.REACT_INFO.json new file mode 100644 index 0000000..ff4b008 --- /dev/null +++ b/LSL2/OIEVENT/DELETEROW/REACT_HRS.REACT_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_message\r\n\r\nVoid = send_message( @window:'.REACT_INFO', 'INSERT', RowNum, RowData )\r\nSelPos = .react_info->selpos\r\nSelPos<2> = SelPos<2> -1\r\n.react_info->selpos = SelPos\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETEROW/SCHEDULE_SRL.RDS_DETAIL.json b/LSL2/OIEVENT/DELETEROW/SCHEDULE_SRL.RDS_DETAIL.json new file mode 100644 index 0000000..fcd9193 --- /dev/null +++ b/LSL2/OIEVENT/DELETEROW/SCHEDULE_SRL.RDS_DETAIL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n$insert schedule_equ\r\n\r\nforward_event( CtrlEntId, CtrlClassId, RowNum, RowData )\r\nRecord = get_property( @window, 'RECORD' )\r\nRecord = delete( Record, schedule_wafers_in$, RowNum, 0 )\r\nRecord = delete( Record, schedule_run_order_num$, RowNum, 0 )\r\nRecord = delete( Record, schedule_rds_ids$, RowNum, 0 )\r\nVoid = set_property( @window, 'RECORD', Record )\r\nVoid = send_event( @window:'.TOT_WAF_IN', 'CALCULATE', 1 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETEROW/SCHEDULE_SRL.SHIP_DETAIL.json b/LSL2/OIEVENT/DELETEROW/SCHEDULE_SRL.SHIP_DETAIL.json new file mode 100644 index 0000000..33e6fba --- /dev/null +++ b/LSL2/OIEVENT/DELETEROW/SCHEDULE_SRL.SHIP_DETAIL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n$insert schedule_srl_equ\r\n\r\nforward_event( CtrlEntId, CtrlClassId, RowNum, RowData )\r\nRecord = get_property( @window, 'RECORD' )\r\nRecord = delete( Record, schedule_srl_ship_qty$, RowNum, 0 )\r\nRecord = delete( Record, schedule_srl_ship_date$, RowNum, 0 )\r\nRecord = delete( Record, schedule_srl_invoice_ids$, RowNum, 0 )\r\nRecord = delete( Record, schedule_srl_ship_via$, RowNum, 0 )\r\nRecord = delete( Record, schedule_srl_tracking_no$, RowNum, 0 )\r\nRecord = delete( Record, schedule_srl_ship_setup_charge$, RowNum, 0 )\r\nRecord = delete( Record, schedule_srl_rejects$, RowNum, 0 )\r\nRecord = delete( Record, schedule_srl_unprocessed$, RowNum, 0 )\r\nRecord = delete( Record, schedule_srl_ship_price$, RowNum, 0 )\r\nVoid = set_property( @window, 'RECORD', Record )\r\nVoid = send_event( @window:'.TOTAL_SHIP_QTY', 'CALCULATE', 1 )\r\nVoid = send_event( @window:'.TOTAL_NOT_SHIP_QTY', 'CALCULATE', 1 )\r\nVoid = send_event( @window:'.TOTAL_SHIP_AMOUNT', 'CALCULATE', 1 )\r\nVoid = send_event( @window:'.TOTAL_REJ', 'CALCULATE', 1 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETEROW/SCHEDULE_SRL.WAFER_SCHED_SHIP.json b/LSL2/OIEVENT/DELETEROW/SCHEDULE_SRL.WAFER_SCHED_SHIP.json new file mode 100644 index 0000000..ca08d96 --- /dev/null +++ b/LSL2/OIEVENT/DELETEROW/SCHEDULE_SRL.WAFER_SCHED_SHIP.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n$insert schedule_srl_equ\r\n\r\nforward_event( CtrlEntId, CtrlClassId, RowNum, RowData )\r\nRecord = get_property( @window, 'RECORD' )\r\nRecord = delete( Record, schedule_srl_sched_qty$, RowNum, 0 )\r\nRecord = delete( Record, schedule_srl_sched_date$, RowNum, 0 )\r\nVoid = set_property( @window, 'RECORD', Record )\r\nVoid = send_event( @window:'.TOT_SCHED', 'CALCULATE', 1 )\r\nVoid = send_event( @window:'.TOT_NOT_SCHED', 'CALCULATE', 1 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETEROW/WO_MAINT_SCHED.SCHED_INFO.json b/LSL2/OIEVENT/DELETEROW/WO_MAINT_SCHED.SCHED_INFO.json new file mode 100644 index 0000000..8a6c78f --- /dev/null +++ b/LSL2/OIEVENT/DELETEROW/WO_MAINT_SCHED.SCHED_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_message\r\n\r\nVoid = send_message( @window:'.SCHED_INFO', 'INSERT', RowNum, RowData )\r\nSelPos = .sched_info->selpos\r\nSelPos<2> = SelPos<2> -1\r\n.sched_info->selpos = SelPos\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/DELETEROW/WO_MAST_SCHED.SCHED_INFO.json b/LSL2/OIEVENT/DELETEROW/WO_MAST_SCHED.SCHED_INFO.json new file mode 100644 index 0000000..8a6c78f --- /dev/null +++ b/LSL2/OIEVENT/DELETEROW/WO_MAST_SCHED.SCHED_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_message\r\n\r\nVoid = send_message( @window:'.SCHED_INFO', 'INSERT', RowNum, RowData )\r\nSelPos = .sched_info->selpos\r\nSelPos<2> = SelPos<2> -1\r\n.sched_info->selpos = SelPos\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/CALL_VISIT.CUST_NO.json b/LSL2/OIEVENT/GOTFOCUS/CALL_VISIT.CUST_NO.json new file mode 100644 index 0000000..4d1869c --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/CALL_VISIT.CUST_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/CALL_VISIT.ENTRY_DATE.json b/LSL2/OIEVENT/GOTFOCUS/CALL_VISIT.ENTRY_DATE.json new file mode 100644 index 0000000..cc53e1f --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/CALL_VISIT.ENTRY_DATE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event, set_property\r\nvoid = post_event( @window:'.TITLE', 'GOTFOCUS', '' )\r\nvoid = set_property( @window:'.TITLE', 'FOCUS', 1 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/CALL_VISIT.ENTRY_ID.json b/LSL2/OIEVENT/GOTFOCUS/CALL_VISIT.ENTRY_ID.json new file mode 100644 index 0000000..cc53e1f --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/CALL_VISIT.ENTRY_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event, set_property\r\nvoid = post_event( @window:'.TITLE', 'GOTFOCUS', '' )\r\nvoid = set_property( @window:'.TITLE', 'FOCUS', 1 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/CAR.NAME_NO.json b/LSL2/OIEVENT/GOTFOCUS/CAR.NAME_NO.json new file mode 100644 index 0000000..8caee21 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/CAR.NAME_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "Void = set_property( @window, '@CUST_NO', .cust_no->text )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/COMPANY.OTHER_NOTES.json b/LSL2/OIEVENT/GOTFOCUS/COMPANY.OTHER_NOTES.json new file mode 100644 index 0000000..2b86f3a --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/COMPANY.OTHER_NOTES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\n.intl_phones->selpos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/COMPANY.VACCT_NO.json b/LSL2/OIEVENT/GOTFOCUS/COMPANY.VACCT_NO.json new file mode 100644 index 0000000..2b86f3a --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/COMPANY.VACCT_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\n.intl_phones->selpos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/CUST_INQUIRY.NAME_NO.json b/LSL2/OIEVENT/GOTFOCUS/CUST_INQUIRY.NAME_NO.json new file mode 100644 index 0000000..8caee21 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/CUST_INQUIRY.NAME_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "Void = set_property( @window, '@CUST_NO', .cust_no->text )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/CUST_INQUIRY.STATUS.json b/LSL2/OIEVENT/GOTFOCUS/CUST_INQUIRY.STATUS.json new file mode 100644 index 0000000..9d46f50 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/CUST_INQUIRY.STATUS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "Void = set_property( @window, '@OrigStatus', .STATUS->VALUE ) \r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/EXPORT3.EXPORTTABLENAMES.json b/LSL2/OIEVENT/GOTFOCUS/EXPORT3.EXPORTTABLENAMES.json new file mode 100644 index 0000000..a1707d3 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/EXPORT3.EXPORTTABLENAMES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "Void = set_property( @window, '@Tablename', .exporttablenames->text )\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/EXPORTS.EXPORTTABLENAMES.json b/LSL2/OIEVENT/GOTFOCUS/EXPORTS.EXPORTTABLENAMES.json new file mode 100644 index 0000000..a1707d3 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/EXPORTS.EXPORTTABLENAMES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "Void = set_property( @window, '@Tablename', .exporttablenames->text )\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/NAMES.ENTRY_DATE.json b/LSL2/OIEVENT/GOTFOCUS/NAMES.ENTRY_DATE.json new file mode 100644 index 0000000..cc53e1f --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/NAMES.ENTRY_DATE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event, set_property\r\nvoid = post_event( @window:'.TITLE', 'GOTFOCUS', '' )\r\nvoid = set_property( @window:'.TITLE', 'FOCUS', 1 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/NAMES.ENTRY_ID.json b/LSL2/OIEVENT/GOTFOCUS/NAMES.ENTRY_ID.json new file mode 100644 index 0000000..cc53e1f --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/NAMES.ENTRY_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event, set_property\r\nvoid = post_event( @window:'.TITLE', 'GOTFOCUS', '' )\r\nvoid = set_property( @window:'.TITLE', 'FOCUS', 1 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/NAMES.SEQ.json b/LSL2/OIEVENT/GOTFOCUS/NAMES.SEQ.json new file mode 100644 index 0000000..35c0d7d --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/NAMES.SEQ.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event, post_event, msg, set_property\r\n\r\nforward_event()\r\nvoid = send_event( CtrlEntID, 'LOSTFOCUS', '' )\r\nvoid = post_event( @window:'.TITLE', 'GOTFOCUS', '' )\r\nvoid = set_property( @window:'.TITLE', 'FOCUS', 1 )\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/NCR.DEPARTMENT.json b/LSL2/OIEVENT/GOTFOCUS/NCR.DEPARTMENT.json new file mode 100644 index 0000000..82b696e --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/NCR.DEPARTMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\n\r\nforward_event( PrevFocusID )\r\nif .department->text = '' then\r\n .department->text = 'Production'\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/NDA.CUST_NO.json b/LSL2/OIEVENT/GOTFOCUS/NDA.CUST_NO.json new file mode 100644 index 0000000..4d1869c --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/NDA.CUST_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/NOTES.FROM_INTERNAL.json b/LSL2/OIEVENT/GOTFOCUS/NOTES.FROM_INTERNAL.json new file mode 100644 index 0000000..b9fb965 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/NOTES.FROM_INTERNAL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "if @CtrlEntId->text = '' then\r\n @CtrlEntId->text = @user4\r\n .from_internal_name->text = xlate( 'LSL_USERS', @user4, 'FIRST_LAST', 'X' )\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/NOTES.SEQ.json b/LSL2/OIEVENT/GOTFOCUS/NOTES.SEQ.json new file mode 100644 index 0000000..d5bbfc9 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/NOTES.SEQ.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event, post_event, set_property, msg\r\ndeclare subroutine forward_event, yield\r\nDECLARE FUNCTION Get_Property, NextKey\r\nDECLARE SUBROUTINE Set_Property\r\n\r\n\r\nA = Get_Property('NOTES.SEQ','TEXT')\r\n\r\nIF Get_Property('NOTES.SEQ','TEXT') = '' THEN\r\n\tNextNoteID = NextKey('NOTES')\r\n\tSet_Property('NOTES.SEQ','TEXT',NextNoteID)\r\nEND\r\n\t\r\nVoid = send_event( CtrlEntId, 'LOSTFOCUS', '' )\r\n\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/ORDER.CUST_NO.json b/LSL2/OIEVENT/GOTFOCUS/ORDER.CUST_NO.json new file mode 100644 index 0000000..2dea0ed --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/ORDER.CUST_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\nVoid = set_property( @window, '@OrigCustNo', .cust_no->text )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/ORDER.NAME_NO.json b/LSL2/OIEVENT/GOTFOCUS/ORDER.NAME_NO.json new file mode 100644 index 0000000..d456640 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/ORDER.NAME_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\ndeclare subroutine yield\r\n$insert company_equ\r\n\r\n.terms->text = xlate( 'COMPANY', .cust_no->text, company_terms$, 'X' )\r\nVoid = set_property( @window, '@CUST_NO', .cust_no->text )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/P_NAMES.ENTRY_DATE.json b/LSL2/OIEVENT/GOTFOCUS/P_NAMES.ENTRY_DATE.json new file mode 100644 index 0000000..cc53e1f --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/P_NAMES.ENTRY_DATE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event, set_property\r\nvoid = post_event( @window:'.TITLE', 'GOTFOCUS', '' )\r\nvoid = set_property( @window:'.TITLE', 'FOCUS', 1 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/P_NAMES.ENTRY_ID.json b/LSL2/OIEVENT/GOTFOCUS/P_NAMES.ENTRY_ID.json new file mode 100644 index 0000000..cc53e1f --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/P_NAMES.ENTRY_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event, set_property\r\nvoid = post_event( @window:'.TITLE', 'GOTFOCUS', '' )\r\nvoid = set_property( @window:'.TITLE', 'FOCUS', 1 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/QUOTE.EXP_DATE.json b/LSL2/OIEVENT/GOTFOCUS/QUOTE.EXP_DATE.json new file mode 100644 index 0000000..1a30eb9 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/QUOTE.EXP_DATE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "Void = set_property( @window, '@HoldExpDate', @CtrlEntId->text )\r\n\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/QUOTE2.EXP_DATE.json b/LSL2/OIEVENT/GOTFOCUS/QUOTE2.EXP_DATE.json new file mode 100644 index 0000000..1a30eb9 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/QUOTE2.EXP_DATE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "Void = set_property( @window, '@HoldExpDate', @CtrlEntId->text )\r\n\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/RDS.QXJ_PRE.json b/LSL2/OIEVENT/GOTFOCUS/RDS.QXJ_PRE.json new file mode 100644 index 0000000..db11954 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/RDS.QXJ_PRE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "CurVal = @CtrlEntId->text\r\nCustID = field( .cust_info->text, ' ', 1 )\r\nif ( CurVal = '' ) and ( CustID = '621' ) and ( .run_order_num->text = 1 ) then\r\n * IF IT IS SILICON SYSTEMS AND RUN ORDER NUMBER ONE THEN DEFAULT\r\n @CtrlEntId->text = .tthick_avg->text:'0' ;* TACK ON THE LAST ZERO FOR THREE DECIMAL PRECISION\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/RDS_LAYERS.SHEETRHO_READINGS.json b/LSL2/OIEVENT/GOTFOCUS/RDS_LAYERS.SHEETRHO_READINGS.json new file mode 100644 index 0000000..088d443 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/RDS_LAYERS.SHEETRHO_READINGS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm2\r\ndeclare subroutine forward_event\r\n\r\nforward_event(PrevFocusID)\r\nVoid = set_property( @window, '@CurControlName', 'SHEETRHO_READINGS' )\r\nVoid = rds_comm2( \"WAF_SIZE_SET\" )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/RDS_LAYERS.THICKNESS_READINGS.json b/LSL2/OIEVENT/GOTFOCUS/RDS_LAYERS.THICKNESS_READINGS.json new file mode 100644 index 0000000..27e600c --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/RDS_LAYERS.THICKNESS_READINGS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm2\r\ndeclare subroutine forward_event\r\n\r\nforward_event(PrevFocusID)\r\nVoid = set_property( @window, '@CurControlName', 'THICKNESS_READINGS' )\r\nVoid = rds_comm2( \"WAF_SIZE_SET\" )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/REACT_PROBS.PROB_CAT_ID.json b/LSL2/OIEVENT/GOTFOCUS/REACT_PROBS.PROB_CAT_ID.json new file mode 100644 index 0000000..4d1869c --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/REACT_PROBS.PROB_CAT_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/REACT_SERVS.SERV_CAT_ID.json b/LSL2/OIEVENT/GOTFOCUS/REACT_SERVS.SERV_CAT_ID.json new file mode 100644 index 0000000..4d1869c --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/REACT_SERVS.SERV_CAT_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/REPORT_SLIST_CFG.CANCEL.json b/LSL2/OIEVENT/GOTFOCUS/REPORT_SLIST_CFG.CANCEL.json new file mode 100644 index 0000000..4d1869c --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/REPORT_SLIST_CFG.CANCEL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/REPORT_SLIST_CFG.COLUMN_INFO.json b/LSL2/OIEVENT/GOTFOCUS/REPORT_SLIST_CFG.COLUMN_INFO.json new file mode 100644 index 0000000..30e9012 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/REPORT_SLIST_CFG.COLUMN_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "ReportID = Trim(.report_id->text)\r\nif len( ReportID ) = 0 then\r\n Void = set_property( 'SYSTEM', 'FOCUS', @window:'.REPORT_ID' )\r\n return 0\r\nend else\r\n return 1\r\nend" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/SPC_EVAL_4PP.EVAL4PPWAFERID.json b/LSL2/OIEVENT/GOTFOCUS/SPC_EVAL_4PP.EVAL4PPWAFERID.json new file mode 100644 index 0000000..db20e44 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/SPC_EVAL_4PP.EVAL4PPWAFERID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\ndeclare function load_eval_wafer_id\r\n\r\nVoid = load_eval_wafer_id() \r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/SPC_EVAL_ADE.EVALADEWAFERID.json b/LSL2/OIEVENT/GOTFOCUS/SPC_EVAL_ADE.EVALADEWAFERID.json new file mode 100644 index 0000000..90fd160 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/SPC_EVAL_ADE.EVALADEWAFERID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function load_eval_wafer_id\r\n\r\nVoid = load_eval_wafer_id() \r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/SPC_EVAL_FTIR.EVALFTIRWAFERID.json b/LSL2/OIEVENT/GOTFOCUS/SPC_EVAL_FTIR.EVALFTIRWAFERID.json new file mode 100644 index 0000000..90fd160 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/SPC_EVAL_FTIR.EVALFTIRWAFERID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function load_eval_wafer_id\r\n\r\nVoid = load_eval_wafer_id() \r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/SPC_OCAP_CFG.OCAP_INFO.json b/LSL2/OIEVENT/GOTFOCUS/SPC_OCAP_CFG.OCAP_INFO.json new file mode 100644 index 0000000..ad11267 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/SPC_OCAP_CFG.OCAP_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "OcapID = .ocap_id->text\r\nOcapID = trim( OcapID )\r\nif len( OcapID ) = 0 then\r\n Void = set_property( 'SYSTEM', 'FOCUS', @window:'.OCAP_ID' )\r\n return 0\r\nend else\r\n return 1\r\nend" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/SRP_COC_RESULTS.PROD_SPEC_ID.json b/LSL2/OIEVENT/GOTFOCUS/SRP_COC_RESULTS.PROD_SPEC_ID.json new file mode 100644 index 0000000..022b5a4 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/SRP_COC_RESULTS.PROD_SPEC_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\n\r\nforward_event( PrevFocusID )\r\nVoid = set_property( @window, '@OrigPSN', .prod_spec_id->text )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/TEST.FIRST.json b/LSL2/OIEVENT/GOTFOCUS/TEST.FIRST.json new file mode 100644 index 0000000..92852e6 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/TEST.FIRST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "VAR = .PHONES->INVALUE\r\nVAR2 = .INTL_PHONES->INVALUE\r\nDEBUG\r\n.INTL_PHONES->INVALUE = ''\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/TEST.LAST.json b/LSL2/OIEVENT/GOTFOCUS/TEST.LAST.json new file mode 100644 index 0000000..cacfff3 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/TEST.LAST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "ival = .EPI_CONC_MIN_THICK->invalue\r\ndebug\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED.RW20.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED.RW20.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED.RW20.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED.RW22.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED.RW22.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED.RW22.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED.RW24.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED.RW24.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED.RW24.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED.RW26.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED.RW26.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED.RW26.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED.RW28.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED.RW28.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED.RW28.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED.RW30.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED.RW30.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED.RW30.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED2.RW21.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED2.RW21.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED2.RW21.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED2.RW23.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED2.RW23.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED2.RW23.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED2.RW25.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED2.RW25.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED2.RW25.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED2.RW27.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED2.RW27.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED2.RW27.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED2.RW29.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED2.RW29.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED2.RW29.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED2.RW31.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED2.RW31.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED2.RW31.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED3.RW32.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED3.RW32.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED3.RW32.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED3.RW33.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED3.RW33.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED3.RW33.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED3.RW34.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED3.RW34.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED3.RW34.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED3.RW35.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED3.RW35.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED3.RW35.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED3.RW36.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED3.RW36.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED3.RW36.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED3.RW37.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED3.RW37.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED3.RW37.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED4.RW39.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED4.RW39.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED4.RW39.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED4.RW41.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED4.RW41.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED4.RW41.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED4.RW43.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED4.RW43.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED4.RW43.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED4.RW45.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED4.RW45.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED4.RW45.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED4.RW47.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED4.RW47.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED4.RW47.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED4.RW49.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED4.RW49.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED4.RW49.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED5.RW51.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED5.RW51.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED5.RW51.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED5.RW53.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED5.RW53.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED5.RW53.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED5.RW55.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED5.RW55.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED5.RW55.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED6.RW36.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED6.RW36.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED6.RW36.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED6.RW37.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED6.RW37.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED6.RW37.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED6.RW38.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED6.RW38.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED6.RW38.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED6.RW39.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED6.RW39.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED6.RW39.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED6.RW40.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED6.RW40.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED6.RW40.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED7.RW41.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED7.RW41.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED7.RW41.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED7.RW42.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED7.RW42.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED7.RW42.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED7.RW43.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED7.RW43.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED7.RW43.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED7.RW44.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED7.RW44.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED7.RW44.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED7.RW45.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED7.RW45.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED7.RW45.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED8.RW46.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED8.RW46.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED8.RW46.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED8.RW47.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED8.RW47.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED8.RW47.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED8.RW48.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED8.RW48.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED8.RW48.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED8.RW49.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED8.RW49.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED8.RW49.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED8.RW50.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED8.RW50.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED8.RW50.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED9.RW51.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED9.RW51.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED9.RW51.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED9.RW52.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED9.RW52.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED9.RW52.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED9.RW53.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED9.RW53.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED9.RW53.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED9.RW54.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED9.RW54.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED9.RW54.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED9.RW55.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED9.RW55.json new file mode 100644 index 0000000..16a1de8 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED9.RW55.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm('WO_GOT_FOCUS', CtrlEntId )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED_SINGLE.WOCUST.json b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED_SINGLE.WOCUST.json new file mode 100644 index 0000000..75680de --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_DAILY_SCHED_SINGLE.WOCUST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm2, forward_event\r\n\r\nforward_event()\r\nwo_daily_sched_comm2('WO_GOT_FOCUS')\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_LOG.PROD_SPEC_ID.json b/LSL2/OIEVENT/GOTFOCUS/WO_LOG.PROD_SPEC_ID.json new file mode 100644 index 0000000..022b5a4 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_LOG.PROD_SPEC_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\n\r\nforward_event( PrevFocusID )\r\nVoid = set_property( @window, '@OrigPSN', .prod_spec_id->text )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_LOG.RECEIVED_TIME.json b/LSL2/OIEVENT/GOTFOCUS/WO_LOG.RECEIVED_TIME.json new file mode 100644 index 0000000..f23abb4 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_LOG.RECEIVED_TIME.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "if .received_time->text = '' then\r\n .received_time->text = '10:00AM'\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/GOTFOCUS/WO_MAST_SCHED_FIND.FIND_VAL.json b/LSL2/OIEVENT/GOTFOCUS/WO_MAST_SCHED_FIND.FIND_VAL.json new file mode 100644 index 0000000..5d05996 --- /dev/null +++ b/LSL2/OIEVENT/GOTFOCUS/WO_MAST_SCHED_FIND.FIND_VAL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "Void = set_property( @window, '@OrigFVal', .find_val->text )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/INSERTROW/RDS_PRE_EPI.PRE_EPI_SIG_INFO.json b/LSL2/OIEVENT/INSERTROW/RDS_PRE_EPI.PRE_EPI_SIG_INFO.json new file mode 100644 index 0000000..b5d780f --- /dev/null +++ b/LSL2/OIEVENT/INSERTROW/RDS_PRE_EPI.PRE_EPI_SIG_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_message, msg\r\n$insert msg_equates\r\n\r\nMsgInfo = ''\r\nMsgInfo = 'Do you wish to insert a cleaning?'\r\nMsgInfo = 'BNY'\r\nResp = msg( '', MsgInfo )\r\nif Resp else\r\n Void = send_message( CtrlEntId, \"DELETE\", RowNum )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/INSERTROW/RDS_PRE_EPI_ORG.PRE_EPI_SIG_INFO.json b/LSL2/OIEVENT/INSERTROW/RDS_PRE_EPI_ORG.PRE_EPI_SIG_INFO.json new file mode 100644 index 0000000..b5d780f --- /dev/null +++ b/LSL2/OIEVENT/INSERTROW/RDS_PRE_EPI_ORG.PRE_EPI_SIG_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_message, msg\r\n$insert msg_equates\r\n\r\nMsgInfo = ''\r\nMsgInfo = 'Do you wish to insert a cleaning?'\r\nMsgInfo = 'BNY'\r\nResp = msg( '', MsgInfo )\r\nif Resp else\r\n Void = send_message( CtrlEntId, \"DELETE\", RowNum )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/INSERTROW/REACT_HRS.REACT_INFO.json b/LSL2/OIEVENT/INSERTROW/REACT_HRS.REACT_INFO.json new file mode 100644 index 0000000..da65fd9 --- /dev/null +++ b/LSL2/OIEVENT/INSERTROW/REACT_HRS.REACT_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_message\r\n\r\nVoid = send_message( CtrlEntId, \"DELETE\", RowNum )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/INSERTROW/SCHEDULE_SRL.RDS_DETAIL.json b/LSL2/OIEVENT/INSERTROW/SCHEDULE_SRL.RDS_DETAIL.json new file mode 100644 index 0000000..1e9e477 --- /dev/null +++ b/LSL2/OIEVENT/INSERTROW/SCHEDULE_SRL.RDS_DETAIL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n$insert schedule_equ\r\n\r\nforward_event( CtrlEntId, CtrlClassId, RowNum, RowData )\r\nRecord = get_property( @window, 'RECORD' )\r\nRecord = insert( Record, schedule_wafers_in$, RowNum, 0, '' )\r\nRecord = insert( Record, schedule_run_order_num$, RowNum, 0, '' )\r\nRecord = insert( Record, schedule_rds_ids$, RowNum, 0, '' )\r\nVoid = set_property( @window, 'RECORD', Record )\r\nVoid = send_event( @window:'.TOT_WAF_IN', 'CALCULATE', 1 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/INSERTROW/SCHEDULE_SRL.SHIP_DETAIL.json b/LSL2/OIEVENT/INSERTROW/SCHEDULE_SRL.SHIP_DETAIL.json new file mode 100644 index 0000000..7cd55dc --- /dev/null +++ b/LSL2/OIEVENT/INSERTROW/SCHEDULE_SRL.SHIP_DETAIL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n$insert schedule_srl_equ\r\n\r\nforward_event( CtrlEntId, CtrlClassId, RowNum, RowData )\r\nRecord = get_property( @window, 'RECORD' )\r\nRecord = insert( Record, schedule_srl_ship_qty$, RowNum, 0, '' )\r\nRecord = insert( Record, schedule_srl_ship_date$, RowNum, 0, '' )\r\nRecord = insert( Record, schedule_srl_invoice_ids$, RowNum, 0, '' )\r\nRecord = insert( Record, schedule_srl_ship_via$, RowNum, 0, '' )\r\nRecord = insert( Record, schedule_srl_tracking_no$, RowNum, 0, '' )\r\nRecord = insert( Record, schedule_srl_ship_setup_charge$, RowNum, 0, '' )\r\nRecord = insert( Record, schedule_srl_rejects$, RowNum, 0, '' )\r\nRecord = insert( Record, schedule_srl_unprocessed$, RowNum, 0, '' )\r\nRecord = insert( Record, schedule_srl_ship_price$, RowNum, 0, '' )\r\nVoid = set_property( @window, 'RECORD', Record )\r\nVoid = send_event( @window:'.TOTAL_SHIP_QTY', 'CALCULATE', 1 )\r\nVoid = send_event( @window:'.TOTAL_NOT_SHIP_QTY', 'CALCULATE', 1 )\r\nVoid = send_event( @window:'.TOTAL_SHIP_AMOUNT', 'CALCULATE', 1 )\r\nVoid = send_event( @window:'.TOTAL_REJ', 'CALCULATE', 1 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/INSERTROW/SCHEDULE_SRL.WAFER_SCHED_SHIP.json b/LSL2/OIEVENT/INSERTROW/SCHEDULE_SRL.WAFER_SCHED_SHIP.json new file mode 100644 index 0000000..dfea952 --- /dev/null +++ b/LSL2/OIEVENT/INSERTROW/SCHEDULE_SRL.WAFER_SCHED_SHIP.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n$insert schedule_srl_equ\r\n\r\nforward_event( CtrlEntId, CtrlClassId, RowNum, RowData )\r\nRecord = get_property( @window, 'RECORD' )\r\nRecord = insert( Record, schedule_srl_sched_qty$, RowNum, 0, '' )\r\nRecord = insert( Record, schedule_srl_sched_date$, RowNum, 0, '' )\r\nVoid = set_property( @window, 'RECORD', Record )\r\nVoid = send_event( @window:'.TOT_SCHED', 'CALCULATE', 1 )\r\nVoid = send_event( @window:'.TOT_NOT_SCHED', 'CALCULATE', 1 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/INSERTROW/WO_MAINT_SCHED.SCHED_INFO.json b/LSL2/OIEVENT/INSERTROW/WO_MAINT_SCHED.SCHED_INFO.json new file mode 100644 index 0000000..da65fd9 --- /dev/null +++ b/LSL2/OIEVENT/INSERTROW/WO_MAINT_SCHED.SCHED_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_message\r\n\r\nVoid = send_message( CtrlEntId, \"DELETE\", RowNum )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/INSERTROW/WO_MAST_SCHED.SCHED_INFO.json b/LSL2/OIEVENT/INSERTROW/WO_MAST_SCHED.SCHED_INFO.json new file mode 100644 index 0000000..da65fd9 --- /dev/null +++ b/LSL2/OIEVENT/INSERTROW/WO_MAST_SCHED.SCHED_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_message\r\n\r\nVoid = send_message( CtrlEntId, \"DELETE\", RowNum )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/AC_RPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/AC_RPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/AC_RPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/AC_RPT_1.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/AC_RPT_1.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/AC_RPT_1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/AC_SRPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/AC_SRPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/AC_SRPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/ANNUAL_CONTRACTS.CONTRACT_DETAIL.json b/LSL2/OIEVENT/LOSTFOCUS/ANNUAL_CONTRACTS.CONTRACT_DETAIL.json new file mode 100644 index 0000000..836aed9 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/ANNUAL_CONTRACTS.CONTRACT_DETAIL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".contract_detail->toppos = 1:@fm:1\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/ANNUAL_CONTRACTS.CUST_NO.json b/LSL2/OIEVENT/LOSTFOCUS/ANNUAL_CONTRACTS.CUST_NO.json new file mode 100644 index 0000000..67b0adb --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/ANNUAL_CONTRACTS.CUST_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property\r\ndeclare subroutine forward_event\r\n\r\nforward_event( Flag, FocusId )\r\nVoid = set_property( @window, '@CUST_NO', .cust_no->text )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/ANNUAL_CONTRACTS.REL_DETAIL_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/ANNUAL_CONTRACTS.REL_DETAIL_INFO.json new file mode 100644 index 0000000..db77839 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/ANNUAL_CONTRACTS.REL_DETAIL_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".rel_detail_info->toppos = 1:@fm:1\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/ANNUAL_CONTRACTS_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/ANNUAL_CONTRACTS_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/ANNUAL_CONTRACTS_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/ANNUAL_CONTRACTS_QUERY.ENTRY_IDS.json b/LSL2/OIEVENT/LOSTFOCUS/ANNUAL_CONTRACTS_QUERY.ENTRY_IDS.json new file mode 100644 index 0000000..728f777 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/ANNUAL_CONTRACTS_QUERY.ENTRY_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".entry_ids->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/ATTENDANCE_QUERY.EMPLOYEE_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/ATTENDANCE_QUERY.EMPLOYEE_INFO.json new file mode 100644 index 0000000..d173d68 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/ATTENDANCE_QUERY.EMPLOYEE_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".resp_person_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/ATTENDANCE_QUERY.SUPERVISOR_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/ATTENDANCE_QUERY.SUPERVISOR_INFO.json new file mode 100644 index 0000000..d173d68 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/ATTENDANCE_QUERY.SUPERVISOR_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".resp_person_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/ATTENDANCE_SRPT1.EMPLOYEE_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/ATTENDANCE_SRPT1.EMPLOYEE_INFO.json new file mode 100644 index 0000000..d173d68 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/ATTENDANCE_SRPT1.EMPLOYEE_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".resp_person_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/ATTENDANCE_SRPT1.SUPERVISOR_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/ATTENDANCE_SRPT1.SUPERVISOR_INFO.json new file mode 100644 index 0000000..d173d68 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/ATTENDANCE_SRPT1.SUPERVISOR_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".resp_person_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/CALL_VISIT.ATTENDED_BY.json b/LSL2/OIEVENT/LOSTFOCUS/CALL_VISIT.ATTENDED_BY.json new file mode 100644 index 0000000..9cfa347 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/CALL_VISIT.ATTENDED_BY.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "if get_property( @window, '@NoTopPos' ) else\r\n .attended_by->toppos = 1:@fm:1\r\nend\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/CALL_VISIT.CONTACT_IDS.json b/LSL2/OIEVENT/LOSTFOCUS/CALL_VISIT.CONTACT_IDS.json new file mode 100644 index 0000000..3880773 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/CALL_VISIT.CONTACT_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "if get_property( @window, '@NoTopPos' ) else\r\n .contact_ids->toppos = 1:@fm:1\r\nend\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/CALL_VISIT.CUST_NO.json b/LSL2/OIEVENT/LOSTFOCUS/CALL_VISIT.CUST_NO.json new file mode 100644 index 0000000..aeb662b --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/CALL_VISIT.CUST_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\n\r\nforward_event( Flag, FocusId )\r\nVoid = set_property( @window, '@CUST_NO', .cust_no->text )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/CALL_VISIT_QUERY.ATTEND_BY.json b/LSL2/OIEVENT/LOSTFOCUS/CALL_VISIT_QUERY.ATTEND_BY.json new file mode 100644 index 0000000..3852c08 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/CALL_VISIT_QUERY.ATTEND_BY.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".attend_by->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/CALL_VISIT_QUERY.CONTACT_IDS.json b/LSL2/OIEVENT/LOSTFOCUS/CALL_VISIT_QUERY.CONTACT_IDS.json new file mode 100644 index 0000000..3880773 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/CALL_VISIT_QUERY.CONTACT_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "if get_property( @window, '@NoTopPos' ) else\r\n .contact_ids->toppos = 1:@fm:1\r\nend\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/CALL_VISIT_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/CALL_VISIT_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/CALL_VISIT_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/CAR.CUST_NO.json b/LSL2/OIEVENT/LOSTFOCUS/CAR.CUST_NO.json new file mode 100644 index 0000000..8caee21 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/CAR.CUST_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "Void = set_property( @window, '@CUST_NO', .cust_no->text )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/CAR.PROD_SPEC_ID.json b/LSL2/OIEVENT/LOSTFOCUS/CAR.PROD_SPEC_ID.json new file mode 100644 index 0000000..6b2581c --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/CAR.PROD_SPEC_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nTparts = xlate( 'PROD_SPEC', .prod_spec_id->text, 'PART_NUMS', 'X' )\r\nTarray = .cust_part->array\r\nTarray<2> = Tparts\r\n.cust_part->array = Tarray\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/CAR2.RET_LOT_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/CAR2.RET_LOT_INFO.json new file mode 100644 index 0000000..b742138 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/CAR2.RET_LOT_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".ret_lot_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/CAR_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/CAR_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/CAR_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/CAR_QUERY.RESP_PERSON_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/CAR_QUERY.RESP_PERSON_INFO.json new file mode 100644 index 0000000..d173d68 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/CAR_QUERY.RESP_PERSON_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".resp_person_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/CAR_RPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/CAR_RPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/CAR_RPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/CAR_SRPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/CAR_SRPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/CAR_SRPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/CDM_LOG_QUERY.LOT_NUM.json b/LSL2/OIEVENT/LOSTFOCUS/CDM_LOG_QUERY.LOT_NUM.json new file mode 100644 index 0000000..3b35fdd --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/CDM_LOG_QUERY.LOT_NUM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".lot_num->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/CDM_LOG_QUERY.TECHS.json b/LSL2/OIEVENT/LOSTFOCUS/CDM_LOG_QUERY.TECHS.json new file mode 100644 index 0000000..8a5b373 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/CDM_LOG_QUERY.TECHS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".techs->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/COC_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/COC_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/COC_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/COC_QUERY.ENTRY_IDS.json b/LSL2/OIEVENT/LOSTFOCUS/COC_QUERY.ENTRY_IDS.json new file mode 100644 index 0000000..728f777 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/COC_QUERY.ENTRY_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".entry_ids->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/COC_QUERY.PO.json b/LSL2/OIEVENT/LOSTFOCUS/COC_QUERY.PO.json new file mode 100644 index 0000000..4734cbe --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/COC_QUERY.PO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".po->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/COC_QUERY.WO.json b/LSL2/OIEVENT/LOSTFOCUS/COC_QUERY.WO.json new file mode 100644 index 0000000..99b0712 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/COC_QUERY.WO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".wo->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/COMPANY.ADDRESS.json b/LSL2/OIEVENT/LOSTFOCUS/COMPANY.ADDRESS.json new file mode 100644 index 0000000..6a245a4 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/COMPANY.ADDRESS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".address->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/COMPANY.BILL_TO_ADDRESS.json b/LSL2/OIEVENT/LOSTFOCUS/COMPANY.BILL_TO_ADDRESS.json new file mode 100644 index 0000000..31777ba --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/COMPANY.BILL_TO_ADDRESS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".bill_to_address->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/COMPANY.CREDIT_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/COMPANY.CREDIT_INFO.json new file mode 100644 index 0000000..6950691 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/COMPANY.CREDIT_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".credit_info->toppos = 1:@fm:1\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/COMPANY.INTL_PHONES.json b/LSL2/OIEVENT/LOSTFOCUS/COMPANY.INTL_PHONES.json new file mode 100644 index 0000000..f21976f --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/COMPANY.INTL_PHONES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".intl_phones->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/COMPANY.PHONES.json b/LSL2/OIEVENT/LOSTFOCUS/COMPANY.PHONES.json new file mode 100644 index 0000000..c027b7f --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/COMPANY.PHONES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".phones->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/COMPANY.SHIPPERINFO.json b/LSL2/OIEVENT/LOSTFOCUS/COMPANY.SHIPPERINFO.json new file mode 100644 index 0000000..d9bb57e --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/COMPANY.SHIPPERINFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".shipperinfo->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/COMPANY.SHIP_TO_ADDRESS.json b/LSL2/OIEVENT/LOSTFOCUS/COMPANY.SHIP_TO_ADDRESS.json new file mode 100644 index 0000000..eb258d7 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/COMPANY.SHIP_TO_ADDRESS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".ship_to_address->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/COMPANY.VREMIT_ADDR.json b/LSL2/OIEVENT/LOSTFOCUS/COMPANY.VREMIT_ADDR.json new file mode 100644 index 0000000..65b07e0 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/COMPANY.VREMIT_ADDR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".vremit_addr->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/COMPANY_QUERY.CITIES.json b/LSL2/OIEVENT/LOSTFOCUS/COMPANY_QUERY.CITIES.json new file mode 100644 index 0000000..99b0712 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/COMPANY_QUERY.CITIES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".wo->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/COMPANY_QUERY.COUNTRIES.json b/LSL2/OIEVENT/LOSTFOCUS/COMPANY_QUERY.COUNTRIES.json new file mode 100644 index 0000000..99b0712 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/COMPANY_QUERY.COUNTRIES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".wo->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/CUST_ACTIVITY_RPT1.CUST_NO.json b/LSL2/OIEVENT/LOSTFOCUS/CUST_ACTIVITY_RPT1.CUST_NO.json new file mode 100644 index 0000000..80ce5c3 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/CUST_ACTIVITY_RPT1.CUST_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property, rowexists\r\ndeclare subroutine forward_event\r\n$insert company_equ\r\n\r\nforward_event(Flag,FocusID)\r\n.cust_name->text = xlate( 'COMPANY', .cust_no->text, company_co_name$, 'X' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/CUST_INQUIRY.CUST_NO.json b/LSL2/OIEVENT/LOSTFOCUS/CUST_INQUIRY.CUST_NO.json new file mode 100644 index 0000000..8caee21 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/CUST_INQUIRY.CUST_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "Void = set_property( @window, '@CUST_NO', .cust_no->text )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/CUST_INQUIRY.SPEC_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/CUST_INQUIRY.SPEC_INFO.json new file mode 100644 index 0000000..cb1381c --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/CUST_INQUIRY.SPEC_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".sched_info->toppos = 1:@fm:1\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/CUST_INQUIRY_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/CUST_INQUIRY_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/CUST_INQUIRY_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/CUST_INQUIRY_QUERY.ENTRY_IDS.json b/LSL2/OIEVENT/LOSTFOCUS/CUST_INQUIRY_QUERY.ENTRY_IDS.json new file mode 100644 index 0000000..728f777 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/CUST_INQUIRY_QUERY.ENTRY_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".entry_ids->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/DBW_RDS_OVERVIEW_NEPP.EDL_RDS_NO.json b/LSL2/OIEVENT/LOSTFOCUS/DBW_RDS_OVERVIEW_NEPP.EDL_RDS_NO.json new file mode 100644 index 0000000..11fd874 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/DBW_RDS_OVERVIEW_NEPP.EDL_RDS_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\nDeclare function Get_Property\r\nDeclare subroutine Set_Property\r\n\r\nRDSNo = Get_Property(CtrlEntID, 'TEXT')\r\nIf RDSNo[1,2] EQ '1T' then RDSNo[1,2] = ''\r\nSet_Property(CtrlEntID, 'TEXT', RDSNo)\r\n\r\n\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/DBW_WO_LOG.WO_NO.json b/LSL2/OIEVENT/LOSTFOCUS/DBW_WO_LOG.WO_NO.json new file mode 100644 index 0000000..31a2544 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/DBW_WO_LOG.WO_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION COMM_WO_LOG\r\n\r\nRETURN Comm_WO_Log('WONoLF')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/DBW_WO_MAT_WAFER_SELECT.EDT_SLOTS.json b/LSL2/OIEVENT/LOSTFOCUS/DBW_WO_MAT_WAFER_SELECT.EDT_SLOTS.json new file mode 100644 index 0000000..ad1b949 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/DBW_WO_MAT_WAFER_SELECT.EDT_SLOTS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\n* DON'T REMOVE THIS - THERE IS A BUG IN THE WINDOW LOGIC FROM Revelation! - JCH\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/ENGINEER_RPT1.REACTORS.json b/LSL2/OIEVENT/LOSTFOCUS/ENGINEER_RPT1.REACTORS.json new file mode 100644 index 0000000..fc95e60 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/ENGINEER_RPT1.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".reactors->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/EXPORT3.EXPORTTABLENAMES.json b/LSL2/OIEVENT/LOSTFOCUS/EXPORT3.EXPORTTABLENAMES.json new file mode 100644 index 0000000..86023fc --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/EXPORT3.EXPORTTABLENAMES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, rlist\r\ndeclare function get_eventstatus, msg, fieldcount\r\n$insert logical\r\n$insert msg_equates\r\n$insert rlist_equates\r\n\r\nforward_event( Flag, FocusID )\r\nError = get_eventstatus()\r\nif Error else\r\n\tOrigTablename = get_property( @window, '@Tablename' )\r\n\tTable = .exporttablenames->text\r\n\tif Table <> OrigTablename then\r\n\t ExpInfo = .export_info->array\r\n\t convert @vm:@fm to '' in ExpInfo\r\n\t Continue = true$\r\n\t if ExpInfo then\r\n \t * warning is data in export info or query will be overwritten\r\n \t MsgInfo = ''\r\n \t Ttext = 'You have changed the Tablename from ':OrigTableName:' to ':Table:' and there is currently export fields defined for ':OrigTableName:'. Continuing will clear out and remove all export fields and query information. Do you wish to continue?'\r\n \t MsgInfo = Ttext\r\n \t MsgInfo = '?'\r\n \t MsgInfo = 'BNY'\r\n \t Continue = msg( '', MsgInfo )\r\n \tend\r\n\t if continue then\r\n\t Void = utility( 'CURSOR', 'H' )\r\n\t Array = str( @vm, 9 )\r\n\t .export_info->array = Array\r\n\t DictTable = 'DICT.':Table\r\n\t Cmd = \"SELECT \":DictTable:\" BY @ID WITH F1 = 'F' 'S'\"\r\n\t rlist( Cmd, target_activelist$, '', '', '' )\r\n\t Columns = ''\r\n\t if @reccount then\r\n\t Eof = false$\r\n\t loop\r\n\t readnext DictId else Eof = true$\r\n\t until Eof\r\n\t Columns := DictId:@vm\r\n\t repeat\r\n\t Columns[-1,1] = ''\r\n\t Void = set_property( @window, '@Columns', Columns )\r\n\t end else\r\n\t Void = msg( '', 'Error while selecting columns from ':DictTable )\r\n\t return 0\r\n\t end\r\n \t Cmd = \"SELECT \":DictTable:\" USING EXPORTS BY @ID WITH F6 = 1\"\r\n\t rlist( Cmd, target_activelist$, '', '', '' )\r\n\t BtreeColumns = ''\r\n\t if @reccount then\r\n\t Eof = false$\r\n\t loop\r\n\t readnext DictId else Eof = true$\r\n\t until Eof\r\n\t BtreeColumns := DictId:@vm\r\n\t repeat\r\n\t BtreeColumns[-1,1] = ''\r\n\t Void = set_property( @window, '@BtreeColumns', BtreeColumns )\r\n\t Array = str( @vm, 9 ):@fm:str( @vm, 9 )\r\n\t .query_info->array = Array\r\n\t end else\r\n\t * no btree columns\r\n\t end\r\n\t Void = utility( 'CURSOR', 'A' )\t \r\n end else\r\n .exporttablenames->text = OrigTablename\r\n end\r\n QColumns = Columns\r\n BcCnt = fieldcount( BtreeColumns, @vm )\r\n for i = 1 to BcCnt\r\n locate BtreeColumns<1,i> in QColumns using @vm setting Rpos then\r\n QColumns = delete( QColumns, 1, Rpos, 0 )\r\n end\r\n next i\r\n Void = set_property( @window, '@QColumns', QColumns )\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/EXPORT3.EXPORT_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/EXPORT3.EXPORT_INFO.json new file mode 100644 index 0000000..7d7a219 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/EXPORT3.EXPORT_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".export_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/EXPORT3.NQUERY_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/EXPORT3.NQUERY_INFO.json new file mode 100644 index 0000000..2324e02 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/EXPORT3.NQUERY_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".nquery_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/EXPORT3.QUERY_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/EXPORT3.QUERY_INFO.json new file mode 100644 index 0000000..08529cf --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/EXPORT3.QUERY_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".query_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/EXPORTS.EXPORTTABLENAMES.json b/LSL2/OIEVENT/LOSTFOCUS/EXPORTS.EXPORTTABLENAMES.json new file mode 100644 index 0000000..0c6b887 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/EXPORTS.EXPORTTABLENAMES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, rlist, Send_Event, Set_Property\r\ndeclare function get_eventstatus, msg, fieldcount, obj_ICAR\r\n$insert logical\r\n$insert msg_equates\r\n$insert rlist_equates\r\n\r\nforward_event( Flag, FocusID )\r\nError = get_eventstatus()\r\nif Error else\r\n\tOrigTablename = get_property( @window, '@Tablename' )\r\n\tTable = .exporttablenames->text\r\n\t\r\n\tIF Table = 'ICAR' THEN\r\n\t\tIF NOT(obj_ICAR('RespSup')) THEN\r\n\t\t\tSet_Property(@WINDOW,'SAVEWARN',0)\r\n\t\t\tSend_Event(@WINDOW,'CLEAR')\r\n\t\t\tRETURN 0\r\n\t\tEND\r\n\tEND\r\n\t\r\n\tif Table <> OrigTablename then\r\n\t ExpInfo = .export_info->array\r\n\t convert @vm:@fm to '' in ExpInfo\r\n\t Continue = true$\r\n\t if ExpInfo then\r\n \t * warning is data in export info or query will be overwritten\r\n \t MsgInfo = ''\r\n \t Ttext = 'You have changed the Tablename from ':OrigTableName:' to ':Table:' and there is currently export fields defined for ':OrigTableName:'. Continuing will clear out and remove all export fields and query information. Do you wish to continue?'\r\n \t MsgInfo = Ttext\r\n \t MsgInfo = '?'\r\n \t MsgInfo = 'BNY'\r\n \t Continue = msg( '', MsgInfo )\r\n \tend\r\n\t if continue then\r\n\t Void = utility( 'CURSOR', 'H' )\r\n\t Array = str( @vm, 9 )\r\n\t .export_info->array = Array\r\n\t DictTable = 'DICT.':Table\r\n\t Cmd = \"SELECT \":DictTable:\" BY @ID WITH F1 = 'F' 'S'\"\r\n\t rlist( Cmd, target_activelist$, '', '', '' )\r\n\t Columns = ''\r\n\t if @reccount then\r\n\t Eof = false$\r\n\t loop\r\n\t readnext DictId else Eof = true$\r\n\t until Eof\r\n\t Columns := DictId:@vm\r\n\t repeat\r\n\t Columns[-1,1] = ''\r\n\t Void = set_property( @window, '@Columns', Columns )\r\n\t end else\r\n\t Void = msg( '', 'Error while selecting columns from ':DictTable )\r\n\t return 0\r\n\t end\r\n \t Cmd = \"SELECT \":DictTable:\" USING EXPORTS BY @ID WITH F6 = 1\"\r\n\t rlist( Cmd, target_activelist$, '', '', '' )\r\n\t BtreeColumns = ''\r\n\t if @reccount then\r\n\t Eof = false$\r\n\t loop\r\n\t readnext DictId else Eof = true$\r\n\t until Eof\r\n\t BtreeColumns := DictId:@vm\r\n\t repeat\r\n\t BtreeColumns[-1,1] = ''\r\n\t Void = set_property( @window, '@BtreeColumns', BtreeColumns )\r\n\t Array = str( @vm, 9 ):@fm:str( @vm, 9 )\r\n\t .query_info->array = Array\r\n\t end else\r\n\t * no btree columns\r\n\t end\r\n\t Void = utility( 'CURSOR', 'A' )\t \r\n end else\r\n .exporttablenames->text = OrigTablename\r\n end\r\n QColumns = Columns\r\n BcCnt = fieldcount( BtreeColumns, @vm )\r\n for i = 1 to BcCnt\r\n locate BtreeColumns<1,i> in QColumns using @vm setting Rpos then\r\n QColumns = delete( QColumns, 1, Rpos, 0 )\r\n end\r\n next i\r\n Void = set_property( @window, '@QColumns', QColumns )\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/EXPORTS.EXPORT_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/EXPORTS.EXPORT_INFO.json new file mode 100644 index 0000000..7d7a219 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/EXPORTS.EXPORT_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".export_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/EXPORTS.NQUERY_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/EXPORTS.NQUERY_INFO.json new file mode 100644 index 0000000..2324e02 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/EXPORTS.NQUERY_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".nquery_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/EXPORTS.QUERY_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/EXPORTS.QUERY_INFO.json new file mode 100644 index 0000000..08529cf --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/EXPORTS.QUERY_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".query_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/HOTH2O2_LOG_QUERY.TECHS.json b/LSL2/OIEVENT/LOSTFOCUS/HOTH2O2_LOG_QUERY.TECHS.json new file mode 100644 index 0000000..8a5b373 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/HOTH2O2_LOG_QUERY.TECHS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".techs->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/INVOICE.BILL_TO_ADDR.json b/LSL2/OIEVENT/LOSTFOCUS/INVOICE.BILL_TO_ADDR.json new file mode 100644 index 0000000..2f8aa00 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/INVOICE.BILL_TO_ADDR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".bill_to_addr->toppos=1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/INVOICE.CHECK_DETAIL.json b/LSL2/OIEVENT/LOSTFOCUS/INVOICE.CHECK_DETAIL.json new file mode 100644 index 0000000..c5998d9 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/INVOICE.CHECK_DETAIL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".check_detail->toppos = 1:@fm:1\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/INVOICE.INVOICE_DETAIL.json b/LSL2/OIEVENT/LOSTFOCUS/INVOICE.INVOICE_DETAIL.json new file mode 100644 index 0000000..f8488fc --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/INVOICE.INVOICE_DETAIL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".invoice_detail->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/INVOICE.SHIP_TO_ADDR.json b/LSL2/OIEVENT/LOSTFOCUS/INVOICE.SHIP_TO_ADDR.json new file mode 100644 index 0000000..37fe9f0 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/INVOICE.SHIP_TO_ADDR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".ship_to_addr->toppos=1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/INVOICE.TRACKING_NO.json b/LSL2/OIEVENT/LOSTFOCUS/INVOICE.TRACKING_NO.json new file mode 100644 index 0000000..63898c5 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/INVOICE.TRACKING_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".tracking_no->toppos = 1:@fm:1\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/INVOICE_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/INVOICE_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/INVOICE_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/INVOICE_QUERY.LOT_NUM.json b/LSL2/OIEVENT/LOSTFOCUS/INVOICE_QUERY.LOT_NUM.json new file mode 100644 index 0000000..3b35fdd --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/INVOICE_QUERY.LOT_NUM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".lot_num->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/INVOICE_QUERY.PART_NUM.json b/LSL2/OIEVENT/LOSTFOCUS/INVOICE_QUERY.PART_NUM.json new file mode 100644 index 0000000..51a7cfc --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/INVOICE_QUERY.PART_NUM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".part_num->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/INVOICE_QUERY.PO.json b/LSL2/OIEVENT/LOSTFOCUS/INVOICE_QUERY.PO.json new file mode 100644 index 0000000..4734cbe --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/INVOICE_QUERY.PO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".po->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/INVOICE_QUERY.WO.json b/LSL2/OIEVENT/LOSTFOCUS/INVOICE_QUERY.WO.json new file mode 100644 index 0000000..99b0712 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/INVOICE_QUERY.WO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".wo->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/INVOICE_RPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/INVOICE_RPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/INVOICE_RPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/INVOICE_RPT3.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/INVOICE_RPT3.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/INVOICE_RPT3.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/INVOICE_RPT4.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/INVOICE_RPT4.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/INVOICE_RPT4.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/INVOICE_RPT5.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/INVOICE_RPT5.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/INVOICE_RPT5.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/INVOICE_RPT6.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/INVOICE_RPT6.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/INVOICE_RPT6.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/INVOICE_SRL_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/INVOICE_SRL_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/INVOICE_SRL_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/INVOICE_SRL_QUERY.PO.json b/LSL2/OIEVENT/LOSTFOCUS/INVOICE_SRL_QUERY.PO.json new file mode 100644 index 0000000..4734cbe --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/INVOICE_SRL_QUERY.PO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".po->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/INVOICE_SRL_QUERY.WO.json b/LSL2/OIEVENT/LOSTFOCUS/INVOICE_SRL_QUERY.WO.json new file mode 100644 index 0000000..99b0712 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/INVOICE_SRL_QUERY.WO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".wo->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/INVOICE_SRPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/INVOICE_SRPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/INVOICE_SRPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/INVOICE_SRPT3.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/INVOICE_SRPT3.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/INVOICE_SRPT3.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/INVOICE_SRPT4.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/INVOICE_SRPT4.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/INVOICE_SRPT4.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/INVOICE_SRPT5.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/INVOICE_SRPT5.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/INVOICE_SRPT5.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/LSL_USERS.TABLESECURITY.json b/LSL2/OIEVENT/LOSTFOCUS/LSL_USERS.TABLESECURITY.json new file mode 100644 index 0000000..addf133 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/LSL_USERS.TABLESECURITY.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".tablesecurity->toppos = 1:@fm:1\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/LSL_USERS_RPT1.USERS.json b/LSL2/OIEVENT/LOSTFOCUS/LSL_USERS_RPT1.USERS.json new file mode 100644 index 0000000..7d71485 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/LSL_USERS_RPT1.USERS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".users->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/MASTER_DISK_LOG_QUERY.DISK_NUM.json b/LSL2/OIEVENT/LOSTFOCUS/MASTER_DISK_LOG_QUERY.DISK_NUM.json new file mode 100644 index 0000000..0a681b8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/MASTER_DISK_LOG_QUERY.DISK_NUM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".disk_num->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/MASTER_DISK_LOG_QUERY.REACTOR_NUM.json b/LSL2/OIEVENT/LOSTFOCUS/MASTER_DISK_LOG_QUERY.REACTOR_NUM.json new file mode 100644 index 0000000..48a4962 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/MASTER_DISK_LOG_QUERY.REACTOR_NUM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".reactor_num->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/MASTER_DISK_LOG_QUERY.TECHS.json b/LSL2/OIEVENT/LOSTFOCUS/MASTER_DISK_LOG_QUERY.TECHS.json new file mode 100644 index 0000000..8a5b373 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/MASTER_DISK_LOG_QUERY.TECHS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".techs->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/MEG_LOG_QUERY.ALOT_NUM.json b/LSL2/OIEVENT/LOSTFOCUS/MEG_LOG_QUERY.ALOT_NUM.json new file mode 100644 index 0000000..d5b046c --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/MEG_LOG_QUERY.ALOT_NUM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".alot_num->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/MEG_LOG_QUERY.PLOT_NUM.json b/LSL2/OIEVENT/LOSTFOCUS/MEG_LOG_QUERY.PLOT_NUM.json new file mode 100644 index 0000000..3a21845 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/MEG_LOG_QUERY.PLOT_NUM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".plot_num->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/MEG_LOG_QUERY.TECHS.json b/LSL2/OIEVENT/LOSTFOCUS/MEG_LOG_QUERY.TECHS.json new file mode 100644 index 0000000..8a5b373 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/MEG_LOG_QUERY.TECHS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".techs->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/MSG_GROUPS.USER_IDS.json b/LSL2/OIEVENT/LOSTFOCUS/MSG_GROUPS.USER_IDS.json new file mode 100644 index 0000000..1845081 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/MSG_GROUPS.USER_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".user_ids->toppos = 1:@fm:1\r\n\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/NAMES.INTL_PHONES.json b/LSL2/OIEVENT/LOSTFOCUS/NAMES.INTL_PHONES.json new file mode 100644 index 0000000..1230d9b --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/NAMES.INTL_PHONES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".intl_phones->toppos = 1:@fm:1\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/NAMES.PHONES.json b/LSL2/OIEVENT/LOSTFOCUS/NAMES.PHONES.json new file mode 100644 index 0000000..37abed4 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/NAMES.PHONES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".phones->toppos = 1:@fm:1\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/NDA.CONTACT_IDS.json b/LSL2/OIEVENT/LOSTFOCUS/NDA.CONTACT_IDS.json new file mode 100644 index 0000000..3880773 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/NDA.CONTACT_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "if get_property( @window, '@NoTopPos' ) else\r\n .contact_ids->toppos = 1:@fm:1\r\nend\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/NDA.CUST_NO.json b/LSL2/OIEVENT/LOSTFOCUS/NDA.CUST_NO.json new file mode 100644 index 0000000..aeb662b --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/NDA.CUST_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\n\r\nforward_event( Flag, FocusId )\r\nVoid = set_property( @window, '@CUST_NO', .cust_no->text )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/NDA_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/NDA_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/NDA_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/NDW_RDS_PROC_STAT_NEPP.EDL_RDS_NO.json b/LSL2/OIEVENT/LOSTFOCUS/NDW_RDS_PROC_STAT_NEPP.EDL_RDS_NO.json new file mode 100644 index 0000000..5ff092d --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/NDW_RDS_PROC_STAT_NEPP.EDL_RDS_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\nDeclare function Get_Property\r\nDeclare subroutine Set_Property\r\nIf @User4 EQ 'DANIEL_ST' then debug\r\nRDSNo = Get_Property(CtrlEntID, 'TEXT')\r\nIf RDSNo[1,2] EQ '1T' then RDSNo[1,2] = ''\r\nSet_Property(CtrlEntID, 'TEXT', RDSNo)\r\n\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/NOTES.SEND_TO_GROUP_INT.json b/LSL2/OIEVENT/LOSTFOCUS/NOTES.SEND_TO_GROUP_INT.json new file mode 100644 index 0000000..47857b5 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/NOTES.SEND_TO_GROUP_INT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".send_to_group_int->toppos = 1:@fm:1\r\n\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/NOTES.SEND_TO_INTERNAL.json b/LSL2/OIEVENT/LOSTFOCUS/NOTES.SEND_TO_INTERNAL.json new file mode 100644 index 0000000..27fd0ef --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/NOTES.SEND_TO_INTERNAL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".send_to_internal->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/NOTES_ATTACH.SEND_TO_GROUP_INT.json b/LSL2/OIEVENT/LOSTFOCUS/NOTES_ATTACH.SEND_TO_GROUP_INT.json new file mode 100644 index 0000000..47857b5 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/NOTES_ATTACH.SEND_TO_GROUP_INT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".send_to_group_int->toppos = 1:@fm:1\r\n\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/NOTES_ATTACH.SEND_TO_INTERNAL.json b/LSL2/OIEVENT/LOSTFOCUS/NOTES_ATTACH.SEND_TO_INTERNAL.json new file mode 100644 index 0000000..22a0991 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/NOTES_ATTACH.SEND_TO_INTERNAL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".send_to_internal->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/ORDER.BILL_TO_ADDR.json b/LSL2/OIEVENT/LOSTFOCUS/ORDER.BILL_TO_ADDR.json new file mode 100644 index 0000000..043c165 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/ORDER.BILL_TO_ADDR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".bill_to_addr->toppos=1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/ORDER.CUST_NO.json b/LSL2/OIEVENT/LOSTFOCUS/ORDER.CUST_NO.json new file mode 100644 index 0000000..fcf80ba --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/ORDER.CUST_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property, rowexists, fieldcount, entid, repository\r\ndeclare subroutine yield, forward_event\r\n$insert company_equ\r\n$insert popup_equates\r\n\r\nforward_event( Flag, FocusId )\r\nif rowexists( 'ORDER', .order_no->text ) else\r\n CustNo = .cust_no->text\r\n OrigCustNo = get_property( @window, '@OrigCustNo' )\r\n CustRec = xlate( 'COMPANY', CustNo, '', 'X' )\r\n if CustNo <> OrigCustNo then\r\n\t .terms->text = xlate( 'COMPANY', CustNo, company_terms$, 'X' )\r\n\t BillShipInfo = ''\r\n\t BillShipInfo<1> = CustRec\r\n\t BillShipInfo<2> = CustRec\r\n\t if BillShipInfo<1> else\r\n\t BillShipInfo<1> = @vm\r\n\t end\r\n\t if BillShipInfo<2> else\r\n\t BillShipInfo<2> = @vm \r\n\t end\r\n\t BillShipInfo<3> = CustRec\r\n\t BillShipInfo<4> = CustRec\r\n\t BillShipInfo<5> = CustRec\r\n\t BillShipInfo<6> = CustRec\r\n\t BillShipInfo<7> = CustRec\r\n\t BillShipInfo<8> = CustRec\r\n\t BillShipInfo<9> = CustRec\r\n\t BillShipInfo<10> = CustRec\r\n\t BillShipInfo<11> = CustRec\r\n\t BillShipInfo<12> = CustRec\r\n\t BillShipInfo<13> = CustRec\r\n\t BillShipInfo<14> = CustRec\r\n\t convert @fm to @rm in BillShipInfo\r\n\t Controls = 'BILL_TO_ADDR/SHIP_TO_ADDR/BILL_TO_COMPANY/SHIP_TO_COMPANY/'\r\n\t Controls:= 'BILL_TO_ATTN/BILL_TO_CITY/'\r\n\t Controls:= 'BILL_TO_STATE/BILL_TO_ZIP/'\r\n\t Controls:= 'SHIP_TO_ATTN/SHIP_TO_CITY/SHIP_TO_STATE/SHIP_TO_ZIP/TERMS/'\r\n\t Controls:= 'INVOICE_NOTES'\r\n\t swap '/' with @rm:@window:'.' in Controls\r\n\t Controls = @window:'.':Controls\r\n\t Void = set_property( Controls, 'ARRAY':@rm:'ARRAY':@rm:'TEXT', BillShipInfo )\r\n\tend\r\n if .shipperinfo->text or .account_no->text else\r\n\t ShipVia = CustRec\r\n\t AcctNos = CustRec\r\n\t if ( fieldcount( ShipVia, @vm ) > 1 ) or ( fieldcount( AcctNos, @vm ) > 1 ) then\r\n\t * more than one show popup\r\n\t PopRec = entid( @appid<1>, 'POPUP', '', 'ORDER_SHIPPER_INFO' )\r\n\t ExpData = ''\r\n\t SvCnt = fieldcount( ShipVia, @vm )\r\n\t for i = 1 to SvCnt\r\n\t ExpData<1,-1> = ShipVia<1,i>:@svm:AcctNos<1,i>\r\n\t next i\r\n\t OverRide = ''\r\n\t OverRide = ExpData\r\n\t RetVal = repository( 'EXECUTE', PopRec, @window, OverRide )\r\n\t if RetVal then\r\n\t .shipperinfo->text = RetVal<1,1>\r\n\t .account_no->text = RetVal<1,2>\r\n\t end\r\n\t end else\r\n\t .shipperinfo->text = ShipVia\r\n\t .account_no->text = AcctNos \r\n\t end\r\n\tend\r\nend\r\nVoid = set_property( @window, '@CUST_NO', .cust_no->text )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/ORDER.ORDER_DETAIL.json b/LSL2/OIEVENT/LOSTFOCUS/ORDER.ORDER_DETAIL.json new file mode 100644 index 0000000..57cc878 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/ORDER.ORDER_DETAIL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".order_detail->toppos = 1:@fm:1\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/ORDER.SHIP_TO_ADDR.json b/LSL2/OIEVENT/LOSTFOCUS/ORDER.SHIP_TO_ADDR.json new file mode 100644 index 0000000..2bfcfb6 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/ORDER.SHIP_TO_ADDR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".ship_to_addr->toppos=1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/ORDER_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/ORDER_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/ORDER_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/ORDER_QUERY.LOT_NUM.json b/LSL2/OIEVENT/LOSTFOCUS/ORDER_QUERY.LOT_NUM.json new file mode 100644 index 0000000..3b35fdd --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/ORDER_QUERY.LOT_NUM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".lot_num->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/ORDER_QUERY.PART_NUM.json b/LSL2/OIEVENT/LOSTFOCUS/ORDER_QUERY.PART_NUM.json new file mode 100644 index 0000000..51a7cfc --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/ORDER_QUERY.PART_NUM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".part_num->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/ORDER_QUERY.PO.json b/LSL2/OIEVENT/LOSTFOCUS/ORDER_QUERY.PO.json new file mode 100644 index 0000000..4734cbe --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/ORDER_QUERY.PO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".po->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/ORDER_QUERY.QUOTE_NOS.json b/LSL2/OIEVENT/LOSTFOCUS/ORDER_QUERY.QUOTE_NOS.json new file mode 100644 index 0000000..8f82dca --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/ORDER_QUERY.QUOTE_NOS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".quote_nos->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/ORDER_QUERY.WO.json b/LSL2/OIEVENT/LOSTFOCUS/ORDER_QUERY.WO.json new file mode 100644 index 0000000..99b0712 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/ORDER_QUERY.WO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".wo->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/ORDER_RPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/ORDER_RPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/ORDER_RPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/ORDER_RPT2.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/ORDER_RPT2.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/ORDER_RPT2.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/ORDER_SRL_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/ORDER_SRL_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/ORDER_SRL_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/ORDER_SRL_QUERY.PO.json b/LSL2/OIEVENT/LOSTFOCUS/ORDER_SRL_QUERY.PO.json new file mode 100644 index 0000000..4734cbe --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/ORDER_SRL_QUERY.PO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".po->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/ORDER_SRL_QUERY.QUOTE_NOS.json b/LSL2/OIEVENT/LOSTFOCUS/ORDER_SRL_QUERY.QUOTE_NOS.json new file mode 100644 index 0000000..8f82dca --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/ORDER_SRL_QUERY.QUOTE_NOS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".quote_nos->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/ORDER_SRL_QUERY.WO.json b/LSL2/OIEVENT/LOSTFOCUS/ORDER_SRL_QUERY.WO.json new file mode 100644 index 0000000..99b0712 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/ORDER_SRL_QUERY.WO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".wo->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/ORDER_SRPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/ORDER_SRPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/ORDER_SRPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/ORDER_SRPT2.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/ORDER_SRPT2.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/ORDER_SRPT2.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/PHOTOFLO_LOG_QUERY.AMOUNT.json b/LSL2/OIEVENT/LOSTFOCUS/PHOTOFLO_LOG_QUERY.AMOUNT.json new file mode 100644 index 0000000..fd8b463 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/PHOTOFLO_LOG_QUERY.AMOUNT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".amount->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/PHOTOFLO_LOG_QUERY.TECHS.json b/LSL2/OIEVENT/LOSTFOCUS/PHOTOFLO_LOG_QUERY.TECHS.json new file mode 100644 index 0000000..8a5b373 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/PHOTOFLO_LOG_QUERY.TECHS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".techs->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/PROD_SPEC_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/PROD_SPEC_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/PROD_SPEC_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/PROD_SPEC_QUERY.PART_NUMS.json b/LSL2/OIEVENT/LOSTFOCUS/PROD_SPEC_QUERY.PART_NUMS.json new file mode 100644 index 0000000..51a7cfc --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/PROD_SPEC_QUERY.PART_NUMS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".part_num->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/PROD_SPEC_RPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/PROD_SPEC_RPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/PROD_SPEC_RPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/PROD_SPEC_SI2.EPI_CONC_MAX_THICK.json b/LSL2/OIEVENT/LOSTFOCUS/PROD_SPEC_SI2.EPI_CONC_MAX_THICK.json new file mode 100644 index 0000000..bbc0326 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/PROD_SPEC_SI2.EPI_CONC_MAX_THICK.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".epi_conc_max_thick->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/PROD_SPEC_SI2.EPI_CONC_MIN_THICK.json b/LSL2/OIEVENT/LOSTFOCUS/PROD_SPEC_SI2.EPI_CONC_MIN_THICK.json new file mode 100644 index 0000000..11eacdb --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/PROD_SPEC_SI2.EPI_CONC_MIN_THICK.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".epi_conc_min_thick->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/P_NAMES.INTL_PHONES.json b/LSL2/OIEVENT/LOSTFOCUS/P_NAMES.INTL_PHONES.json new file mode 100644 index 0000000..1230d9b --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/P_NAMES.INTL_PHONES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".intl_phones->toppos = 1:@fm:1\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/P_NAMES.PHONES.json b/LSL2/OIEVENT/LOSTFOCUS/P_NAMES.PHONES.json new file mode 100644 index 0000000..37abed4 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/P_NAMES.PHONES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".phones->toppos = 1:@fm:1\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/QUARTZ_TC_LOG_QUERY.REACTORS.json b/LSL2/OIEVENT/LOSTFOCUS/QUARTZ_TC_LOG_QUERY.REACTORS.json new file mode 100644 index 0000000..fc95e60 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/QUARTZ_TC_LOG_QUERY.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".reactors->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/QUARTZ_WAND_LOG_QUERY.REACTORS.json b/LSL2/OIEVENT/LOSTFOCUS/QUARTZ_WAND_LOG_QUERY.REACTORS.json new file mode 100644 index 0000000..fc95e60 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/QUARTZ_WAND_LOG_QUERY.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".reactors->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/QUARTZ_WAND_LOG_QUERY.REACT_ITEMS.json b/LSL2/OIEVENT/LOSTFOCUS/QUARTZ_WAND_LOG_QUERY.REACT_ITEMS.json new file mode 100644 index 0000000..552f892 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/QUARTZ_WAND_LOG_QUERY.REACT_ITEMS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "if get_property( @window, '@NoTopPos' ) else\r\n .react_items->toppos = 1:@fm:1\r\nend\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/QUOTE.CUST_NO.json b/LSL2/OIEVENT/LOSTFOCUS/QUOTE.CUST_NO.json new file mode 100644 index 0000000..5da84e7 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/QUOTE.CUST_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property, rowexists\r\ndeclare subroutine forward_event\r\n$insert company_equ\r\n\r\nforward_event( CtrlEntId, CtrlClassId, Flag, FocusId )\r\nCustNo = .cust_no->text\r\nif rowexists( 'QUOTE', CustNo ) else\r\n Terms = xlate( 'COMPANY', CustNo, company_terms$, 'X' )\r\n if Terms then\r\n .terms->text = Terms\r\n end\r\nend\r\nVoid = set_property( @window, '@CUST_NO', CustNo )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/QUOTE.EXP_DATE.json b/LSL2/OIEVENT/LOSTFOCUS/QUOTE.EXP_DATE.json new file mode 100644 index 0000000..1cb5c63 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/QUOTE.EXP_DATE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount\r\ndeclare subroutine forward_event\r\n$insert logical\r\n\r\nif .status->value = 'C' else\r\n\tif .exp_date->invalue < date() then\r\n\t .status->value = 'E'\r\n\tend else\r\n\t NumSigsRequired = xlate( 'CONFIG', 'QUOTE_SIGS', 3, 'X' )+0\r\n\t Sigs = .signatures->array<1>\r\n\t Scnt = fieldcount( Sigs, @vm )\r\n\t SigCnt = 0\r\n\t for i = 1 to Scnt\r\n\t if Sigs<1,i> <> '' then\r\n\t SigCnt += 1\r\n\t end\r\n\t next i\r\n\t if SigCnt >= NumSigsRequired then\r\n\t .status->value = 'O'\r\n .inquiry_status->value = 'C'\t \r\n\t end else\r\n\t .status->value = 'U'\r\n\t end\r\n\tend\r\nend\r\nforward_event(Flag,FocusID)\r\nHoldExpDate = get_property( @window, '@HoldExpDate' )\r\nCurExpDate = @CtrlEntId->text\r\nif ( CurExpDate <> HoldExpDate ) then\r\n .exp_date_warn->text = 'No'\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/QUOTE.PROD_SPEC_ID.json b/LSL2/OIEVENT/LOSTFOCUS/QUOTE.PROD_SPEC_ID.json new file mode 100644 index 0000000..b708e63 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/QUOTE.PROD_SPEC_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nTparts = xlate( 'PROD_SPEC', .prod_spec_id->text, 'PART_NUMS', 'X' )\r\nTarray = .cust_part_nums->array\r\nTarray<2> = Tparts\r\n.cust_part_nums->array = Tarray\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/QUOTE.QUOTE_DETAIL.json b/LSL2/OIEVENT/LOSTFOCUS/QUOTE.QUOTE_DETAIL.json new file mode 100644 index 0000000..000a710 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/QUOTE.QUOTE_DETAIL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".quote_detail->toppos = 1:@fm:1\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/QUOTE2.EXP_DATE.json b/LSL2/OIEVENT/LOSTFOCUS/QUOTE2.EXP_DATE.json new file mode 100644 index 0000000..1cb5c63 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/QUOTE2.EXP_DATE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount\r\ndeclare subroutine forward_event\r\n$insert logical\r\n\r\nif .status->value = 'C' else\r\n\tif .exp_date->invalue < date() then\r\n\t .status->value = 'E'\r\n\tend else\r\n\t NumSigsRequired = xlate( 'CONFIG', 'QUOTE_SIGS', 3, 'X' )+0\r\n\t Sigs = .signatures->array<1>\r\n\t Scnt = fieldcount( Sigs, @vm )\r\n\t SigCnt = 0\r\n\t for i = 1 to Scnt\r\n\t if Sigs<1,i> <> '' then\r\n\t SigCnt += 1\r\n\t end\r\n\t next i\r\n\t if SigCnt >= NumSigsRequired then\r\n\t .status->value = 'O'\r\n .inquiry_status->value = 'C'\t \r\n\t end else\r\n\t .status->value = 'U'\r\n\t end\r\n\tend\r\nend\r\nforward_event(Flag,FocusID)\r\nHoldExpDate = get_property( @window, '@HoldExpDate' )\r\nCurExpDate = @CtrlEntId->text\r\nif ( CurExpDate <> HoldExpDate ) then\r\n .exp_date_warn->text = 'No'\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/QUOTE_OLD.CUST_NO.json b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_OLD.CUST_NO.json new file mode 100644 index 0000000..4c85e95 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_OLD.CUST_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property, rowexists\r\ndeclare subroutine forward_event\r\n$insert company_equ\r\n\r\nforward_event( Flag, FocusId )\r\nCustNo = .cust_no->text\r\nif rowexists( 'QUOTE', CustNo ) else\r\n Terms = xlate( 'COMPANY', CustNo, company_terms$, 'X' )\r\n if Terms then\r\n .terms->text = Terms\r\n end\r\nend\r\nVoid = set_property( @window, '@CUST_NO', CustNo )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/QUOTE_OLD.EXP_DATE.json b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_OLD.EXP_DATE.json new file mode 100644 index 0000000..f2436fb --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_OLD.EXP_DATE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount\r\n$insert logical\r\n\r\nif .exp_date->invalue < date() then\r\n .status->value = 'E'\r\nend else\r\n NumSigsRequired = xlate( 'CONFIG', 'QUOTE_SIGS', 3, 'X' )+0\r\n Sigs = .signatures->array<1>\r\n Scnt = fieldcount( Sigs, @vm )\r\n SigCnt = 0\r\n for i = 1 to Scnt\r\n if Sigs<1,i> <> '' then\r\n SigCnt += 1\r\n end\r\n next i\r\n if SigCnt >= NumSigsRequired then\r\n .status->value = 'O'\r\n end else\r\n .status->value = 'U'\r\n end\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/QUOTE_OLD.QUOTE_DETAIL.json b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_OLD.QUOTE_DETAIL.json new file mode 100644 index 0000000..000a710 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_OLD.QUOTE_DETAIL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".quote_detail->toppos = 1:@fm:1\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/QUOTE_OLD_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_OLD_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_OLD_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/QUOTE_OLD_QUERY.ENTRY_IDS.json b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_OLD_QUERY.ENTRY_IDS.json new file mode 100644 index 0000000..728f777 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_OLD_QUERY.ENTRY_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".entry_ids->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/QUOTE_OLD_QUERY.EXP_DATE_FROM.json b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_OLD_QUERY.EXP_DATE_FROM.json new file mode 100644 index 0000000..eac4f42 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_OLD_QUERY.EXP_DATE_FROM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount\r\n$insert logical\r\n\r\nif .exp_date->invalue < date() then\r\n .status->value = 'E'\r\nend else\r\n NumSigsRequired = xlate( 'CONFIG', 'QUOTE_SIGS', 3, 'X' )+0\r\n Sigs = .signatures->list\r\n Scnt = fieldcount( Sigs, @fm )\r\n SigCnt = 0\r\n for i = 1 to Scnt\r\n if Sigs <> '' then\r\n SigCnt += 1\r\n end\r\n next i\r\n if SigCnt = NumSigsRequired then\r\n .status->value = 'O'\r\n end else\r\n .status->value = 'U'\r\n end\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/QUOTE_OLD_QUERY.EXP_DATE_THRU.json b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_OLD_QUERY.EXP_DATE_THRU.json new file mode 100644 index 0000000..eac4f42 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_OLD_QUERY.EXP_DATE_THRU.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount\r\n$insert logical\r\n\r\nif .exp_date->invalue < date() then\r\n .status->value = 'E'\r\nend else\r\n NumSigsRequired = xlate( 'CONFIG', 'QUOTE_SIGS', 3, 'X' )+0\r\n Sigs = .signatures->list\r\n Scnt = fieldcount( Sigs, @fm )\r\n SigCnt = 0\r\n for i = 1 to Scnt\r\n if Sigs <> '' then\r\n SigCnt += 1\r\n end\r\n next i\r\n if SigCnt = NumSigsRequired then\r\n .status->value = 'O'\r\n end else\r\n .status->value = 'U'\r\n end\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/QUOTE_OLD_QUERY.PART_NUMS.json b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_OLD_QUERY.PART_NUMS.json new file mode 100644 index 0000000..51a7cfc --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_OLD_QUERY.PART_NUMS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".part_num->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/QUOTE_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/QUOTE_QUERY.ENTRY_IDS.json b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_QUERY.ENTRY_IDS.json new file mode 100644 index 0000000..728f777 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_QUERY.ENTRY_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".entry_ids->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/QUOTE_QUERY.EXP_DATE_FROM.json b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_QUERY.EXP_DATE_FROM.json new file mode 100644 index 0000000..eac4f42 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_QUERY.EXP_DATE_FROM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount\r\n$insert logical\r\n\r\nif .exp_date->invalue < date() then\r\n .status->value = 'E'\r\nend else\r\n NumSigsRequired = xlate( 'CONFIG', 'QUOTE_SIGS', 3, 'X' )+0\r\n Sigs = .signatures->list\r\n Scnt = fieldcount( Sigs, @fm )\r\n SigCnt = 0\r\n for i = 1 to Scnt\r\n if Sigs <> '' then\r\n SigCnt += 1\r\n end\r\n next i\r\n if SigCnt = NumSigsRequired then\r\n .status->value = 'O'\r\n end else\r\n .status->value = 'U'\r\n end\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/QUOTE_QUERY.EXP_DATE_THRU.json b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_QUERY.EXP_DATE_THRU.json new file mode 100644 index 0000000..eac4f42 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_QUERY.EXP_DATE_THRU.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount\r\n$insert logical\r\n\r\nif .exp_date->invalue < date() then\r\n .status->value = 'E'\r\nend else\r\n NumSigsRequired = xlate( 'CONFIG', 'QUOTE_SIGS', 3, 'X' )+0\r\n Sigs = .signatures->list\r\n Scnt = fieldcount( Sigs, @fm )\r\n SigCnt = 0\r\n for i = 1 to Scnt\r\n if Sigs <> '' then\r\n SigCnt += 1\r\n end\r\n next i\r\n if SigCnt = NumSigsRequired then\r\n .status->value = 'O'\r\n end else\r\n .status->value = 'U'\r\n end\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/QUOTE_QUERY.PSN_NOS.json b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_QUERY.PSN_NOS.json new file mode 100644 index 0000000..2b1a6fc --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_QUERY.PSN_NOS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".psn_nos->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/QUOTE_RPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_RPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_RPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/QUOTE_RPT1.ENTRY_IDS.json b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_RPT1.ENTRY_IDS.json new file mode 100644 index 0000000..728f777 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_RPT1.ENTRY_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".entry_ids->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/QUOTE_RPT1.EXP_DATE_FROM.json b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_RPT1.EXP_DATE_FROM.json new file mode 100644 index 0000000..eac4f42 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_RPT1.EXP_DATE_FROM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount\r\n$insert logical\r\n\r\nif .exp_date->invalue < date() then\r\n .status->value = 'E'\r\nend else\r\n NumSigsRequired = xlate( 'CONFIG', 'QUOTE_SIGS', 3, 'X' )+0\r\n Sigs = .signatures->list\r\n Scnt = fieldcount( Sigs, @fm )\r\n SigCnt = 0\r\n for i = 1 to Scnt\r\n if Sigs <> '' then\r\n SigCnt += 1\r\n end\r\n next i\r\n if SigCnt = NumSigsRequired then\r\n .status->value = 'O'\r\n end else\r\n .status->value = 'U'\r\n end\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/QUOTE_RPT1.EXP_DATE_THRU.json b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_RPT1.EXP_DATE_THRU.json new file mode 100644 index 0000000..eac4f42 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_RPT1.EXP_DATE_THRU.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount\r\n$insert logical\r\n\r\nif .exp_date->invalue < date() then\r\n .status->value = 'E'\r\nend else\r\n NumSigsRequired = xlate( 'CONFIG', 'QUOTE_SIGS', 3, 'X' )+0\r\n Sigs = .signatures->list\r\n Scnt = fieldcount( Sigs, @fm )\r\n SigCnt = 0\r\n for i = 1 to Scnt\r\n if Sigs <> '' then\r\n SigCnt += 1\r\n end\r\n next i\r\n if SigCnt = NumSigsRequired then\r\n .status->value = 'O'\r\n end else\r\n .status->value = 'U'\r\n end\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/QUOTE_SPEC_INFO.EPI_CONC_MAX_THICK.json b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_SPEC_INFO.EPI_CONC_MAX_THICK.json new file mode 100644 index 0000000..bbc0326 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_SPEC_INFO.EPI_CONC_MAX_THICK.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".epi_conc_max_thick->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/QUOTE_SPEC_INFO.EPI_CONC_MIN_THICK.json b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_SPEC_INFO.EPI_CONC_MIN_THICK.json new file mode 100644 index 0000000..11eacdb --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_SPEC_INFO.EPI_CONC_MIN_THICK.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".epi_conc_min_thick->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/QUOTE_SPEC_INFO.EPI_RECIPE.json b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_SPEC_INFO.EPI_RECIPE.json new file mode 100644 index 0000000..b132251 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_SPEC_INFO.EPI_RECIPE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert recipe_equ\r\ndeclare subroutine forward_event\r\n\r\nforward_event( Flag, FocusId )\r\nRecipeId = .epi_recipe->text\r\nif RecipeId then\r\n .epi_recipe_name->text = xlate( 'RECIPE', RecipeId, recipe_recipe_name$, 'X' )\r\nend else\r\n .epi_recipe_name->text = ''\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/QUOTE_SRL.CUST_NO.json b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_SRL.CUST_NO.json new file mode 100644 index 0000000..eb08874 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_SRL.CUST_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function set_property, rowexists\r\ndeclare subroutine forward_event\r\n$insert company_equ\r\n\r\nforward_event( CtrlEntId, CtrlClassId, Flag, FocusId )\r\nCustNo = .cust_no->text\r\nif rowexists( 'QUOTE', CustNo ) else\r\n Terms = xlate( 'COMPANY', CustNo, company_terms$, 'X' )\r\n if Terms then\r\n .terms->text = Terms\r\n end\r\nend\r\nVoid = set_property( @window, '@CUST_NO', CustNo )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/QUOTE_SRL.EXP_DATE.json b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_SRL.EXP_DATE.json new file mode 100644 index 0000000..915f498 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_SRL.EXP_DATE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount\r\n$insert logical\r\n\r\nif .exp_date->invalue < date() then\r\n .status->value = 'E'\r\nend else\r\n .status->value = 'O'\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/QUOTE_SRL_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_SRL_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_SRL_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/QUOTE_SRL_QUERY.ENTRY_IDS.json b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_SRL_QUERY.ENTRY_IDS.json new file mode 100644 index 0000000..728f777 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_SRL_QUERY.ENTRY_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".entry_ids->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/QUOTE_SRL_QUERY.EXP_DATE_FROM.json b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_SRL_QUERY.EXP_DATE_FROM.json new file mode 100644 index 0000000..eac4f42 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_SRL_QUERY.EXP_DATE_FROM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount\r\n$insert logical\r\n\r\nif .exp_date->invalue < date() then\r\n .status->value = 'E'\r\nend else\r\n NumSigsRequired = xlate( 'CONFIG', 'QUOTE_SIGS', 3, 'X' )+0\r\n Sigs = .signatures->list\r\n Scnt = fieldcount( Sigs, @fm )\r\n SigCnt = 0\r\n for i = 1 to Scnt\r\n if Sigs <> '' then\r\n SigCnt += 1\r\n end\r\n next i\r\n if SigCnt = NumSigsRequired then\r\n .status->value = 'O'\r\n end else\r\n .status->value = 'U'\r\n end\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/QUOTE_SRL_QUERY.EXP_DATE_THRU.json b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_SRL_QUERY.EXP_DATE_THRU.json new file mode 100644 index 0000000..eac4f42 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/QUOTE_SRL_QUERY.EXP_DATE_THRU.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount\r\n$insert logical\r\n\r\nif .exp_date->invalue < date() then\r\n .status->value = 'E'\r\nend else\r\n NumSigsRequired = xlate( 'CONFIG', 'QUOTE_SIGS', 3, 'X' )+0\r\n Sigs = .signatures->list\r\n Scnt = fieldcount( Sigs, @fm )\r\n SigCnt = 0\r\n for i = 1 to Scnt\r\n if Sigs <> '' then\r\n SigCnt += 1\r\n end\r\n next i\r\n if SigCnt = NumSigsRequired then\r\n .status->value = 'O'\r\n end else\r\n .status->value = 'U'\r\n end\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_LAYERS.CON_MAX.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_LAYERS.CON_MAX.json new file mode 100644 index 0000000..6a8a35c --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_LAYERS.CON_MAX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".con_max->selpos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_LAYERS.CON_MIN.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_LAYERS.CON_MIN.json new file mode 100644 index 0000000..85cdf4f --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_LAYERS.CON_MIN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".con_min->selpos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_LAYERS.CON_TARGET.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_LAYERS.CON_TARGET.json new file mode 100644 index 0000000..03075d3 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_LAYERS.CON_TARGET.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".con_target->selpos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_POST_EPI2.CLEAN_SURFSCAN_DEFECTS_R.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_POST_EPI2.CLEAN_SURFSCAN_DEFECTS_R.json new file mode 100644 index 0000000..b34c3f5 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_POST_EPI2.CLEAN_SURFSCAN_DEFECTS_R.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@CurControl', CtrlEntId )\r\nVoid = rds_comm( \"SURFACE_VALID\" )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_POST_EPI2.CLEAN_SURFSCAN_HAZE_R.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_POST_EPI2.CLEAN_SURFSCAN_HAZE_R.json new file mode 100644 index 0000000..31714ba --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_POST_EPI2.CLEAN_SURFSCAN_HAZE_R.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = set_property( @window, '@CurControl', CtrlEntId )\r\nVoid = rds_comm( \"SURFACE_VALID\" )\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI.PRE_EPI_SIG_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI.PRE_EPI_SIG_INFO.json new file mode 100644 index 0000000..9a36c0a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI.PRE_EPI_SIG_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".pre_epi_sig_info->toppos = 1:@fm:1\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI2.PRE_BL_DEFECTS_R.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI2.PRE_BL_DEFECTS_R.json new file mode 100644 index 0000000..b34c3f5 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI2.PRE_BL_DEFECTS_R.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@CurControl', CtrlEntId )\r\nVoid = rds_comm( \"SURFACE_VALID\" )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI2.PRE_FOV_R.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI2.PRE_FOV_R.json new file mode 100644 index 0000000..b34c3f5 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI2.PRE_FOV_R.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@CurControl', CtrlEntId )\r\nVoid = rds_comm( \"SURFACE_VALID\" )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI2.PRE_LPD_IN_R.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI2.PRE_LPD_IN_R.json new file mode 100644 index 0000000..b34c3f5 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI2.PRE_LPD_IN_R.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@CurControl', CtrlEntId )\r\nVoid = rds_comm( \"SURFACE_VALID\" )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI2.PRE_LPD_OUT_R.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI2.PRE_LPD_OUT_R.json new file mode 100644 index 0000000..888e4c3 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI2.PRE_LPD_OUT_R.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@CurControl', CtrlEntId )\r\nVoid = rds_comm( \"SURFACE_VALID\" )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI2.PRE_MOUNDS_R.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI2.PRE_MOUNDS_R.json new file mode 100644 index 0000000..b34c3f5 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI2.PRE_MOUNDS_R.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@CurControl', CtrlEntId )\r\nVoid = rds_comm( \"SURFACE_VALID\" )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI2.PRE_PITS_R.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI2.PRE_PITS_R.json new file mode 100644 index 0000000..b34c3f5 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI2.PRE_PITS_R.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@CurControl', CtrlEntId )\r\nVoid = rds_comm( \"SURFACE_VALID\" )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI2.PRE_SCRATCHES_R.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI2.PRE_SCRATCHES_R.json new file mode 100644 index 0000000..b34c3f5 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI2.PRE_SCRATCHES_R.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@CurControl', CtrlEntId )\r\nVoid = rds_comm( \"SURFACE_VALID\" )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI2.PRE_SCRATCH_LEN_R.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI2.PRE_SCRATCH_LEN_R.json new file mode 100644 index 0000000..b34c3f5 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI2.PRE_SCRATCH_LEN_R.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@CurControl', CtrlEntId )\r\nVoid = rds_comm( \"SURFACE_VALID\" )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI2.PRE_SPOTS_R.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI2.PRE_SPOTS_R.json new file mode 100644 index 0000000..b34c3f5 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI2.PRE_SPOTS_R.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@CurControl', CtrlEntId )\r\nVoid = rds_comm( \"SURFACE_VALID\" )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI2.PRE_SURFSCAN_DEFECTS_R.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI2.PRE_SURFSCAN_DEFECTS_R.json new file mode 100644 index 0000000..b34c3f5 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI2.PRE_SURFSCAN_DEFECTS_R.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@CurControl', CtrlEntId )\r\nVoid = rds_comm( \"SURFACE_VALID\" )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI2.PRE_SURFSCAN_HAZE_R.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI2.PRE_SURFSCAN_HAZE_R.json new file mode 100644 index 0000000..31714ba --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI2.PRE_SURFSCAN_HAZE_R.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = set_property( @window, '@CurControl', CtrlEntId )\r\nVoid = rds_comm( \"SURFACE_VALID\" )\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI_ORG.PRE_EPI_SIG_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI_ORG.PRE_EPI_SIG_INFO.json new file mode 100644 index 0000000..9a36c0a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_PRE_EPI_ORG.PRE_EPI_SIG_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".pre_epi_sig_info->toppos = 1:@fm:1\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_QUERY.LOT_NUM.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_QUERY.LOT_NUM.json new file mode 100644 index 0000000..3b35fdd --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_QUERY.LOT_NUM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".lot_num->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_QUERY.PART_NUM.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_QUERY.PART_NUM.json new file mode 100644 index 0000000..51a7cfc --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_QUERY.PART_NUM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".part_num->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_QUERY.PO.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_QUERY.PO.json new file mode 100644 index 0000000..4734cbe --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_QUERY.PO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".po->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_QUERY.PSN_NOS.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_QUERY.PSN_NOS.json new file mode 100644 index 0000000..2b1a6fc --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_QUERY.PSN_NOS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".psn_nos->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_QUERY.QUOTE_NOS.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_QUERY.QUOTE_NOS.json new file mode 100644 index 0000000..8f82dca --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_QUERY.QUOTE_NOS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".quote_nos->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_QUERY.REACTORS.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_QUERY.REACTORS.json new file mode 100644 index 0000000..fc95e60 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_QUERY.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".reactors->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_QUERY.WO.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_QUERY.WO.json new file mode 100644 index 0000000..99b0712 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_QUERY.WO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".wo->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_REJECTS.REJ_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_REJECTS.REJ_INFO.json new file mode 100644 index 0000000..55c97b5 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_REJECTS.REJ_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".rej_info->toppos = 1:@fm:1\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_RPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_RPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_RPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_RPT1.REACTORS.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_RPT1.REACTORS.json new file mode 100644 index 0000000..fc95e60 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_RPT1.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".reactors->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_RPT2.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_RPT2.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_RPT2.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_SRPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_SRPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_SRPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_SRPT1.REACTORS.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_SRPT1.REACTORS.json new file mode 100644 index 0000000..fc95e60 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_SRPT1.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".reactors->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_SURF_ENT.POST_BL_DEFECTS_R.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_SURF_ENT.POST_BL_DEFECTS_R.json new file mode 100644 index 0000000..b34c3f5 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_SURF_ENT.POST_BL_DEFECTS_R.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@CurControl', CtrlEntId )\r\nVoid = rds_comm( \"SURFACE_VALID\" )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_SURF_ENT.POST_FOV_R.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_SURF_ENT.POST_FOV_R.json new file mode 100644 index 0000000..b34c3f5 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_SURF_ENT.POST_FOV_R.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@CurControl', CtrlEntId )\r\nVoid = rds_comm( \"SURFACE_VALID\" )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_SURF_ENT.POST_LPD_OUT_R.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_SURF_ENT.POST_LPD_OUT_R.json new file mode 100644 index 0000000..888e4c3 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_SURF_ENT.POST_LPD_OUT_R.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@CurControl', CtrlEntId )\r\nVoid = rds_comm( \"SURFACE_VALID\" )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_SURF_ENT.POST_MOUNDS_R.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_SURF_ENT.POST_MOUNDS_R.json new file mode 100644 index 0000000..b34c3f5 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_SURF_ENT.POST_MOUNDS_R.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@CurControl', CtrlEntId )\r\nVoid = rds_comm( \"SURFACE_VALID\" )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_SURF_ENT.POST_PITS_R.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_SURF_ENT.POST_PITS_R.json new file mode 100644 index 0000000..b34c3f5 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_SURF_ENT.POST_PITS_R.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@CurControl', CtrlEntId )\r\nVoid = rds_comm( \"SURFACE_VALID\" )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_SURF_ENT.POST_SCRATCHES_R.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_SURF_ENT.POST_SCRATCHES_R.json new file mode 100644 index 0000000..b34c3f5 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_SURF_ENT.POST_SCRATCHES_R.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@CurControl', CtrlEntId )\r\nVoid = rds_comm( \"SURFACE_VALID\" )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_SURF_ENT.POST_SCRATCH_LEN_R.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_SURF_ENT.POST_SCRATCH_LEN_R.json new file mode 100644 index 0000000..b34c3f5 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_SURF_ENT.POST_SCRATCH_LEN_R.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@CurControl', CtrlEntId )\r\nVoid = rds_comm( \"SURFACE_VALID\" )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_SURF_ENT.POST_SPIKES_R.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_SURF_ENT.POST_SPIKES_R.json new file mode 100644 index 0000000..888e4c3 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_SURF_ENT.POST_SPIKES_R.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@CurControl', CtrlEntId )\r\nVoid = rds_comm( \"SURFACE_VALID\" )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_SURF_ENT.POST_SPOTS_R.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_SURF_ENT.POST_SPOTS_R.json new file mode 100644 index 0000000..b34c3f5 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_SURF_ENT.POST_SPOTS_R.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@CurControl', CtrlEntId )\r\nVoid = rds_comm( \"SURFACE_VALID\" )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_SURF_ENT.POST_STACK_FAULTS_R.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_SURF_ENT.POST_STACK_FAULTS_R.json new file mode 100644 index 0000000..888e4c3 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_SURF_ENT.POST_STACK_FAULTS_R.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@CurControl', CtrlEntId )\r\nVoid = rds_comm( \"SURFACE_VALID\" )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_SURF_ENT.POST_SURFSCAN_DEFECTS_R.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_SURF_ENT.POST_SURFSCAN_DEFECTS_R.json new file mode 100644 index 0000000..b34c3f5 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_SURF_ENT.POST_SURFSCAN_DEFECTS_R.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@CurControl', CtrlEntId )\r\nVoid = rds_comm( \"SURFACE_VALID\" )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_SURF_ENT.POST_SURFSCAN_HAZE_R.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_SURF_ENT.POST_SURFSCAN_HAZE_R.json new file mode 100644 index 0000000..31714ba --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_SURF_ENT.POST_SURFSCAN_HAZE_R.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = set_property( @window, '@CurControl', CtrlEntId )\r\nVoid = rds_comm( \"SURFACE_VALID\" )\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RDS_TW.TW_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/RDS_TW.TW_INFO.json new file mode 100644 index 0000000..dbe6afc --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RDS_TW.TW_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\n\r\nforward_event( Flag, FocusID )\r\n.tw_info->toppos = 1:@fm:1\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REACTORPM_SRPT1.REACTORS.json b/LSL2/OIEVENT/LOSTFOCUS/REACTORPM_SRPT1.REACTORS.json new file mode 100644 index 0000000..fc95e60 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REACTORPM_SRPT1.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".reactors->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REACTORPM_SRPT1.REACT_SERVS.json b/LSL2/OIEVENT/LOSTFOCUS/REACTORPM_SRPT1.REACT_SERVS.json new file mode 100644 index 0000000..9855369 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REACTORPM_SRPT1.REACT_SERVS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "if get_property( @window, '@NoTopPos' ) else\r\n .react_servs->toppos = 1:@fm:1\r\nend\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_QUERY.ENTRY_IDS.json b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_QUERY.ENTRY_IDS.json new file mode 100644 index 0000000..728f777 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_QUERY.ENTRY_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".entry_ids->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_QUERY.REACTORS.json b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_QUERY.REACTORS.json new file mode 100644 index 0000000..fc95e60 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_QUERY.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".reactors->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_QUERY.REACT_ITEMS.json b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_QUERY.REACT_ITEMS.json new file mode 100644 index 0000000..552f892 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_QUERY.REACT_ITEMS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "if get_property( @window, '@NoTopPos' ) else\r\n .react_items->toppos = 1:@fm:1\r\nend\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_QUERY.REACT_PROBS_CAT.json b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_QUERY.REACT_PROBS_CAT.json new file mode 100644 index 0000000..c47375b --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_QUERY.REACT_PROBS_CAT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "if get_property( @window, '@NoTopPos' ) else\r\n .react_probs_cat->toppos = 1:@fm:1\r\nend\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_QUERY.REACT_SERVS.json b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_QUERY.REACT_SERVS.json new file mode 100644 index 0000000..9855369 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_QUERY.REACT_SERVS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "if get_property( @window, '@NoTopPos' ) else\r\n .react_servs->toppos = 1:@fm:1\r\nend\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_QUERY.REACT_SERVS_CAT.json b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_QUERY.REACT_SERVS_CAT.json new file mode 100644 index 0000000..ead497a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_QUERY.REACT_SERVS_CAT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "if get_property( @window, '@NoTopPos' ) else\r\n .react_servs_cat->toppos = 1:@fm:1\r\nend\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_RPT1.REACTORS.json b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_RPT1.REACTORS.json new file mode 100644 index 0000000..fc95e60 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_RPT1.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".reactors->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_RPT2.REACTORS.json b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_RPT2.REACTORS.json new file mode 100644 index 0000000..fc95e60 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_RPT2.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".reactors->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_RPT3.REACTORS.json b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_RPT3.REACTORS.json new file mode 100644 index 0000000..fc95e60 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_RPT3.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".reactors->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_RPT3.REACT_ITEMS.json b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_RPT3.REACT_ITEMS.json new file mode 100644 index 0000000..552f892 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_RPT3.REACT_ITEMS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "if get_property( @window, '@NoTopPos' ) else\r\n .react_items->toppos = 1:@fm:1\r\nend\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_RPT3.REACT_PROBS.json b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_RPT3.REACT_PROBS.json new file mode 100644 index 0000000..0fd8543 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_RPT3.REACT_PROBS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "if get_property( @window, '@NoTopPos' ) else\r\n .react_probs->toppos = 1:@fm:1\r\nend\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_RPT3.REACT_SERVS.json b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_RPT3.REACT_SERVS.json new file mode 100644 index 0000000..9855369 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_RPT3.REACT_SERVS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "if get_property( @window, '@NoTopPos' ) else\r\n .react_servs->toppos = 1:@fm:1\r\nend\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_RPT4.REACTORS.json b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_RPT4.REACTORS.json new file mode 100644 index 0000000..fc95e60 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_RPT4.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".reactors->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_RPT4.REACT_PROBS.json b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_RPT4.REACT_PROBS.json new file mode 100644 index 0000000..0fd8543 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_RPT4.REACT_PROBS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "if get_property( @window, '@NoTopPos' ) else\r\n .react_probs->toppos = 1:@fm:1\r\nend\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_RPT4.REACT_SERVS.json b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_RPT4.REACT_SERVS.json new file mode 100644 index 0000000..9855369 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_RPT4.REACT_SERVS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "if get_property( @window, '@NoTopPos' ) else\r\n .react_servs->toppos = 1:@fm:1\r\nend\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_SRPT1.REACTORS.json b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_SRPT1.REACTORS.json new file mode 100644 index 0000000..fc95e60 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_SRPT1.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".reactors->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_SRPT1.REACT_PROBS_CAT.json b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_SRPT1.REACT_PROBS_CAT.json new file mode 100644 index 0000000..c47375b --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_SRPT1.REACT_PROBS_CAT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "if get_property( @window, '@NoTopPos' ) else\r\n .react_probs_cat->toppos = 1:@fm:1\r\nend\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_SRPT1.REACT_SERVS.json b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_SRPT1.REACT_SERVS.json new file mode 100644 index 0000000..9855369 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_SRPT1.REACT_SERVS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "if get_property( @window, '@NoTopPos' ) else\r\n .react_servs->toppos = 1:@fm:1\r\nend\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_SRPT2.REACTORS.json b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_SRPT2.REACTORS.json new file mode 100644 index 0000000..fc95e60 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_LOG_SRPT2.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".reactors->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REACTOR_PM_QUERY.REACT_SERVS.json b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_PM_QUERY.REACT_SERVS.json new file mode 100644 index 0000000..9855369 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_PM_QUERY.REACT_SERVS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "if get_property( @window, '@NoTopPos' ) else\r\n .react_servs->toppos = 1:@fm:1\r\nend\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REACTOR_UTIL_SRPT1.REACTORS.json b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_UTIL_SRPT1.REACTORS.json new file mode 100644 index 0000000..fc95e60 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REACTOR_UTIL_SRPT1.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".reactors->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REACT_MODE_CHG.REACTOR_NO.json b/LSL2/OIEVENT/LOSTFOCUS/REACT_MODE_CHG.REACTOR_NO.json new file mode 100644 index 0000000..49129d2 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REACT_MODE_CHG.REACTOR_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, send_event, post_event, get_status\r\ndeclare subroutine forward_event, end_dialog\r\n\r\nforward_event( Flag, FocusId )\r\nReactEntered = .reactor_no->text\r\n* following xlate will xlate position 3 in wo_mast_sched in config which is the number of reactors\r\nMaxReactors = xlate( 'CONFIG', 'WO_MAST_SCHED', 3, 'X' )\r\nif ReactEntered >= 20 and ReactEntered <= MaxReactors then\r\n Void = send_event( @window, 'CREATE', .reactor_no->text )\r\n Void = post_event( @window:'.MODE', 'GOTFOCUS', '' )\r\n Void = set_property( @window:'.MODE', 'FOCUS', 1 ) \r\n .reactor_no->enabled = 0 ;* passed validation\r\nend else\r\n if ReactEntered = '' then\r\n end_dialog( @window, '' )\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REACT_RUN_CUTOVER.RDS_NO.json b/LSL2/OIEVENT/LOSTFOCUS/REACT_RUN_CUTOVER.RDS_NO.json new file mode 100644 index 0000000..91e76e5 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REACT_RUN_CUTOVER.RDS_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE SUBROUTINE Comm_React_Run\r\nComm_React_Run('RDSNoLF')\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REACT_RUN_DISP.RDS_NO.json b/LSL2/OIEVENT/LOSTFOCUS/REACT_RUN_DISP.RDS_NO.json new file mode 100644 index 0000000..91e76e5 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REACT_RUN_DISP.RDS_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE SUBROUTINE Comm_React_Run\r\nComm_React_Run('RDSNoLF')\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REACT_RUN_GAN.RDS_NO.json b/LSL2/OIEVENT/LOSTFOCUS/REACT_RUN_GAN.RDS_NO.json new file mode 100644 index 0000000..91e76e5 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REACT_RUN_GAN.RDS_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE SUBROUTINE Comm_React_Run\r\nComm_React_Run('RDSNoLF')\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RECIPE_BROWSE.RECIPE_NO.json b/LSL2/OIEVENT/LOSTFOCUS/RECIPE_BROWSE.RECIPE_NO.json new file mode 100644 index 0000000..0579128 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RECIPE_BROWSE.RECIPE_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\n$insert recipe_equ\r\n\r\nforward_event( Flag, FocusID )\r\n.recipe_name->text = xlate( 'RECIPE', .recipe_no->text, recipe_recipe_name$, 'X' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/RELOGIN.PASSWORD.json b/LSL2/OIEVENT/LOSTFOCUS/RELOGIN.PASSWORD.json new file mode 100644 index 0000000..c39265f --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/RELOGIN.PASSWORD.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, send_event, security_check, post_event\r\ndeclare subroutine forward_event, record_lock\r\n\r\n$insert msg_equates\r\n$insert security_rights_equ\r\n$insert lsl_users_equ\r\n$insert lsl_common\r\n\r\nforward_event( Flag, FocusID )\r\nUList1 = get_property( @window, '@UList1', UList1 )\r\nUList2 = .users->list\r\n\r\nIf Get_Property('NDW_MAIN', 'VISIBLE') then\r\n AppMain = 'NDW_MAIN'\r\nend else\r\n AppMain = 'LSL_MAIN2'\r\nend\r\n\r\nChoosenUser = .users->text\r\n\r\nlocate ChoosenUser in UList2 using @fm setting UPos then\r\n TUser = UList1\r\n Password = xlate( 'LSL_USERS', TUser, lsl_users_password$, 'X' )\r\n PwdEntered = @CtrlEntId->text\r\n if ( PwdEntered = Password ) then\r\n \r\n * THIS EXACT CODE IS IN THE CLOSE EVENT OF THE LSL_MAIN2 WINDOW\r\n * COULD NOT CALL THE CLOSE EVENT CAUSE THAT KILLS THE ENTIRE SYSTEM\r\n * will write out the x and y coords for the user, so the menu comes up at the last used\r\n * location\r\n \r\n WinSize = get_property( AppMain, 'SIZE' )\r\n X = WinSize<1>\r\n Y = WinSize<2>\r\n Xsize = WinSize<3>\r\n Ysize = WinSize<4>\r\n \r\n open 'LSL_USERS' to LSLUsersTableVar else\r\n MsgInfo = ''\r\n MsgInfo = 'Unable to open LSL_USERS...'\r\n MsgInfo = -2\r\n MsgInfo = -2\r\n Void = msg( '', MsgInfo )\r\n end\r\n \r\n record_lock( LSLUsersTableVar, 'LSL_USERS', @user4 )\r\n read UserRec from LSLUsersTableVar, @user4 else\r\n MsgInfo = ''\r\n MsgInfo = 'Unable to READ ':@user4:' IN LSL_USERS...'\r\n MsgInfo = -2\r\n MsgInfo = -2\r\n Void = msg( '', MsgInfo )\r\n end\r\n \r\n UserRec = X\r\n UserRec = Y\r\n UserRec = Xsize\r\n UserRec = Ysize\r\n \r\n write UserRec on LSLUsersTableVar, @user4 else\r\n MsgInfo = ''\r\n MsgInfo = 'Unable to write LSL_USERS, ':@user4\r\n MsgInfo = -2\r\n MsgInfo = -2\r\n Void = msg( '', MsgInfo )\r\n end\r\n \r\n unlock LSLUsersTableVar, @user4 else\r\n MsgInfo = ''\r\n MsgInfo = 'Unable to open unlock LSL_USERS, ':@user4\r\n MsgInfo = -2\r\n MsgInfo = -2\r\n Void = msg( '', MsgInfo )\r\n end\r\n \r\n * END OF CLOSE CODE FROM LSL_MAIN2\r\n \r\n SecTables@ = ''\r\n SecRights@ = ''\r\n \r\n * JUST USE RDS CAUSE EVERYONE HAS RIGHTS TO THE RDS AND BY SETTING THE\r\n * ABOVE TWO VARIABLE TO NULL THIS WILL FORCE A REBUILD FOR @USER4\r\n \r\n @user4 = TUser\r\n Tvar = security_check( 'RDS', Read$ )\r\n Void = send_event( @window, 'CLOSE')\r\n Void = post_event( AppMain, 'CREATE','RELOGIN' )\r\n \r\n end else\r\n \r\n MsgInfo = ''\r\n MsgInfo = 'Invalid password...'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\n end\r\n \r\nend else\r\n\r\n MsgInfo = ''\r\n MsgInfo = 'Invalid user...'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\n \r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REPORT_SLIST_CFG.COL_HED_FONT_TYPE.json b/LSL2/OIEVENT/LOSTFOCUS/REPORT_SLIST_CFG.COL_HED_FONT_TYPE.json new file mode 100644 index 0000000..4d1869c --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REPORT_SLIST_CFG.COL_HED_FONT_TYPE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REPORT_SLIST_CFG.DEF_FONT_TYPE.json b/LSL2/OIEVENT/LOSTFOCUS/REPORT_SLIST_CFG.DEF_FONT_TYPE.json new file mode 100644 index 0000000..4d1869c --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REPORT_SLIST_CFG.DEF_FONT_TYPE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REPORT_SLIST_CFG.FOOTER.json b/LSL2/OIEVENT/LOSTFOCUS/REPORT_SLIST_CFG.FOOTER.json new file mode 100644 index 0000000..4d1869c --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REPORT_SLIST_CFG.FOOTER.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REPORT_SLIST_CFG.REPORT_ID.json b/LSL2/OIEVENT/LOSTFOCUS/REPORT_SLIST_CFG.REPORT_ID.json new file mode 100644 index 0000000..a01f129 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REPORT_SLIST_CFG.REPORT_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, send_event, admin_user, center_window, post_event\r\ndeclare function rowexists, fieldcount\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n$insert rpt_cfg_equ\r\n$insert rlist_equates\r\n$insert logical\r\n$insert exports_equ\r\n\r\nReportID = .report_id->Text\r\n\r\nif ReportID = '' then\r\n Void = post_event( @window:'.REPORT_ID', 'GOTFOCUS' )\r\n Return 0\r\nend\r\n\r\n*Get the last report ID so can restore if new selection fails.\r\nReportIDLast = .report_id_last->text\r\n\r\nLockSwt = 1\r\n*If this one has already been loaded then do not try to lock it again!\r\nif ReportID = ReportIDLast Then LockSwt = 0\r\n\r\narrayinfo = ''\r\n\r\nif Admin_user( @user4 ) then \r\n open 'CONFIG' to ConfigTable else\r\n\t Void = msg( '', 'Unable to open CONFIG table' )\r\n\t end_dialog( @window, '' )\r\n\t return 0\r\n end\r\n LockErr = 0\r\n LockID = ReportID\r\n If LockSwt Then GoSub LockRecord\r\n If LockErr Then\r\n Ans = msg('', 'CAN NOT LOCK CONFIG RECORD ':ReportID:'... ABORTING!' )\r\n return 0\r\n end\r\n\r\n *At this point the record should be locked. \r\n *Now read it in for loading to the form.\r\n read ReportRecord from ConfigTable,ReportID Then\r\n GoSub LoadRecord\r\n *OK, Record has been loaded to screen. \r\n * Now take care to Unlock the last Report ID (if there was one).\r\n if ReportIDLast Then\r\n *Had edited a previous report ID. Must Unlock it.\r\n LockErr = 0\r\n LockId = ReportIDLast\r\n If LockSwt Then GoSub UnlockRecord\r\n If LockErr Then\r\n *Bad Bongos!\r\n Ans = msg('', 'CAN NOT UNLOCK PREVIOUS ID ':ReportIDLast:'.|WILL IGNORE IT!' )\r\n return 0\r\n End\r\n End\r\n *SO, the last report ID is done so the current ReportID will also be the last reportID\r\n .report_id_last->text = ReportID\r\n *Now, send the focus to the table name field.\r\n Void = send_event( @window:'.TABLE_NAME', 'LOSTFOCUS' )\r\n end else\r\n ReportRecord = ''\r\n *Report Record for the ID could not be read or was empty. Reset...\r\n GoSub ReturnAns\r\n end\r\nend else\r\n .report_id->Text = ''\r\n Message = 'You do not have the proper security to enter...' \r\n Message = 'H'\r\n Void = msg( '', Message )\r\n Void = send_event( @window, 'CLOSE' )\r\nend\r\n\r\nRETURN 0\r\n\r\n*===========================================\r\nLockRecord:\r\n*===========================================\r\nLockErr = 1\r\nLock ConfigTable, LockID Then LockErr = 0\r\nReturn\r\n\r\n*===========================================\r\nUnlockRecord:\r\n*===========================================\r\nLockErr = 1\r\nunlock ConfigTable, LockID Then LockErr = 0\r\nReturn\r\n\r\n*===========================================\r\nLoadRecord:\r\n*===========================================\r\n*Report Record for the ID has been read and can now be loaded into the screen.\r\n.Table_Name->text = ReportRecord\r\n.Width->text = ReportRecord\r\n.Title->text = ReportRecord\r\n.Title_2->Text = ReportRecord\r\n.Title_3->Text = ReportRecord\r\n.Title_4->Text = ReportRecord\t\t \r\n.Title_Font_Type->text = ReportRecord\r\n.Title_Font_Size->text = ReportRecord\r\n.Title_Font_Bold->check = ReportRecord\r\n.Title_Font_Italic->check = ReportRecord\r\n.Title_Font_Underline->check = ReportRecord\r\n.Col_Hed_Font_Type->text = ReportRecord\r\n.Col_Hed_Font_Size->text = ReportRecord\r\n.Col_Hed_Font_Bold->check = ReportRecord\r\n.Col_Hed_Font_Italic->check = ReportRecord\r\n.Col_Hed_Font_Underline->check = ReportRecord\r\n.Def_Col_Font_Type->text = ReportRecord\r\n.Def_Col_Font_Size->text = ReportRecord\r\n.Def_Col_Font_Bold->check = ReportRecord\r\n.Def_Col_Font_Italic->check = ReportRecord\r\n.Def_Col_Font_Underline->check = ReportRecord\r\n\r\n.Def_Font_Type->Text = ReportRecord\r\n.Def_Font_Size->text = ReportRecord\r\n.Def_Font_Bold->check = ReportRecord\r\n.Def_Font_Italic->check = ReportRecord\r\n.Def_Font_Underline->check = ReportRecord\r\n\r\n\r\n.OrderBy->text = ReportRecord\r\n.Landscape_Chk->Check = ReportRecord\r\n.Grid_Chk->Check = ReportRecord\r\n.No_Page_Chk->Check = ReportRecord\r\n.Dbl_Spc_Chk->Check = ReportRecord\r\n.Id_Supp_Chk->Check = ReportRecord\r\n.Det_Supp_Chk->Check = ReportRecord\r\n.Col_Hdr_Supp->Check = ReportRecord\r\n.Hdr_Supp->Check = ReportRecord\r\n.Slist_Script->text = ReportRecord\r\n.With_Statement->text = ReportRecord\r\n.Footer->text = ReportRecord\r\n.PageNumber->Check = ReportRecord\r\n.Report_Procedure->text = ReportRecord\r\n\r\narrayinfo< 1> = ReportRecord\r\narrayinfo< 2> = ReportRecord\r\narrayinfo< 3> = ReportRecord\r\narrayinfo< 4> = ReportRecord\r\narrayinfo< 5> = ReportRecord\r\narrayinfo< 6> = ReportRecord\r\narrayinfo< 7> = ReportRecord\r\narrayinfo< 8> = ReportRecord\r\narrayinfo< 9> = ReportRecord\r\narrayinfo<10> = ReportRecord\r\narrayinfo<11> = ReportRecord\r\narrayinfo<12> = ReportRecord\r\n.COLUMN_INFO->array = arrayinfo\r\n\r\nReturn\r\n\r\n*===========================================\r\nReturnAns:\r\n*===========================================\r\nTmpStructure = ''\r\nMsg001 = 'REPORT ID ':ReportID:' IS NOT FOUND IN TABLE CONFIG!|'\r\nMsg001 = 'DO YOU WANT TO CREATE IT?'\r\nTmpStructure = Msg001\r\nTmpStructure = 'BNYC'\r\nTmpStructure = 'A'\r\nTmpStructure = '!'\r\nTmpStructure = ReportID:' NOT FOUND IN CONFIG'\r\nAns = msg('', TmpStructure )\r\nIf Ans = 0 Or Ans = Char(27) Then\r\n Ans = msg('', \"RECORD EDIT CANCELED!\" )\r\n LockErr = 0\r\n LockID = ReportID\r\n GoSub UnlockRecord\r\n If LockErr Then\r\n Ans = msg('', 'CAN NOT UNLOCK NEW ':ReportID:'!|WILL IGNORE.' )\r\n End \r\n .report_id->text = ReportIDLast\r\n Void = post_event( @window:'.REPORT_ID', 'GOTFOCUS' )\r\n \r\nEnd Else\r\n *OK, want to create new one. If got last ID, Unlock it.\r\n If ReportIDLast Then\r\n LockId = ReportIDLast\r\n GoSub UnlockRecord\r\n If LockErr Then\r\n *OK, got error when trying to unlocked the last one. \r\n Ans = msg('', 'CAN NOT UNLOCK LAST REPORT ID: ':ReportIDLast:'!' )\r\n End\r\n Msg001 = 'DO YOU WANT TO START WITH AN EMPTY FORM?'\r\n TmpStructure = Msg001\r\n TmpStructure = 'BNYC'\r\n TmpStructure = 'A'\r\n TmpStructure = '!'\r\n TmpStructure = ReportID:'NEW CONFIG RECORD'\r\n Ans = msg('', TmpStructure )\r\n If Ans = 1 Then\r\n GoSub ClearRecord \r\n End\r\n End\r\nEnd\r\nReturn\r\n\r\n*=======================================\r\nClearRecord: \r\n*=======================================\r\n.Table_Name->text = ''\r\n.Width->text = ''\r\n.Title->text = ''\r\n.Title_2->Text = ''\r\n.Title_3->Text = ''\r\n.Title_4->Text = ''\t \r\n.Title_Font_Type->text = '' \r\n.Title_Font_Size->text = ''\r\n.Title_Font_Bold->check = ''\r\n.Title_Font_Italic->check = ''\r\n.Title_Font_Underline->check = ''\r\n.Col_Hed_Font_Type->text = ''\r\n.Col_Hed_Font_Size->text = ''\r\n.Col_Hed_Font_Bold->check = ''\r\n.Col_Hed_Font_Italic->check = ''\r\n.Col_Hed_Font_Underline->check = ''\r\n.Def_Col_Font_Type->text = ''\r\n.Def_Col_Font_Size->text = ''\r\n.Def_Col_Font_Bold->check = ''\r\n.Def_Col_Font_Italic->check = ''\r\n.Def_Col_Font_Underline->check = ''\r\n.OrderBy->text = ''\r\n.Landscape_Chk->Check = ''\r\n.Grid_Chk->Check = ''\r\n.No_Page_Chk->Check = ''\r\n.Dbl_Spc_Chk->Check = ''\r\n.Id_Supp_Chk->Check = ''\r\n.Det_Supp_Chk->Check = ''\r\n.Col_Hdr_Supp->Check = ''\r\n.Hdr_Supp->Check = ''\r\n.Slist_Script->text = ''\r\n.With_Statement->text = ''\r\n.Footer->text = ''\r\n.PageNumber->Check = ''\r\n.Report_Procedure->text = ''\r\n\r\narrayinfo< 1> = ''\r\narrayinfo< 2> = ''\r\narrayinfo< 3> = ''\r\narrayinfo< 4> = ''\r\narrayinfo< 5> = ''\r\narrayinfo< 6> = ''\r\narrayinfo< 7> = ''\r\narrayinfo< 8> = ''\r\narrayinfo< 9> = ''\r\narrayinfo<10> = ''\r\narrayinfo<11> = ''\r\narrayinfo<12> = ''\r\n.COLUMN_INFO->array = arrayinfo\r\n\r\nReturn\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REPORT_SLIST_CFG.TABLE_NAME.json b/LSL2/OIEVENT/LOSTFOCUS/REPORT_SLIST_CFG.TABLE_NAME.json new file mode 100644 index 0000000..e62f81f --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REPORT_SLIST_CFG.TABLE_NAME.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, post_event, get_eventstatus, msg, fieldcount\r\ndeclare subroutine forward_event, rlist\r\n\r\n$insert logical\r\n$insert msg_equates\r\n$insert rlist_equates\r\n\r\nTtable = Trim(.table_name->text)\r\nIf Ttable Then\r\n Open Ttable To DataTable Else\r\n Void = msg( '', Ttable: ' is in use somewhere else...' )\r\n Void = post_event( @window:'.TABLENAME', 'GOTFOCUS' )\t \r\n End\r\n Columns = ''\r\n DictTable = 'DICT.':Ttable\r\n Cmd = \"SELECT \":DictTable:\" BY @ID WITH F1 = 'F' 'S'\"\r\n rlist( Cmd, target_activelist$, '', '', '' )\r\n if @reccount then\r\n Eof = false$\r\n loop\r\n readnext DictId else Eof = true$\r\n until Eof\r\n Columns := DictId:@vm\r\n repeat\r\n Columns[-1,1] = ''\r\n Void = set_property( @window, '@Columns', Columns )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'Error while selecting from ':DictTable\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend\r\n\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REPORT_SLIST_CFG.TITLE.json b/LSL2/OIEVENT/LOSTFOCUS/REPORT_SLIST_CFG.TITLE.json new file mode 100644 index 0000000..4d1869c --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REPORT_SLIST_CFG.TITLE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REPORT_SLIST_CFG.TITLE_2.json b/LSL2/OIEVENT/LOSTFOCUS/REPORT_SLIST_CFG.TITLE_2.json new file mode 100644 index 0000000..4d1869c --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REPORT_SLIST_CFG.TITLE_2.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REPORT_SLIST_CFG.TITLE_3.json b/LSL2/OIEVENT/LOSTFOCUS/REPORT_SLIST_CFG.TITLE_3.json new file mode 100644 index 0000000..4d1869c --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REPORT_SLIST_CFG.TITLE_3.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REPORT_SLIST_CFG.TITLE_4.json b/LSL2/OIEVENT/LOSTFOCUS/REPORT_SLIST_CFG.TITLE_4.json new file mode 100644 index 0000000..4d1869c --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REPORT_SLIST_CFG.TITLE_4.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/REPORT_SLIST_CFG.TITLE_FONT_TYPE.json b/LSL2/OIEVENT/LOSTFOCUS/REPORT_SLIST_CFG.TITLE_FONT_TYPE.json new file mode 100644 index 0000000..4d1869c --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/REPORT_SLIST_CFG.TITLE_FONT_TYPE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE.RDS_DETAIL.json b/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE.RDS_DETAIL.json new file mode 100644 index 0000000..50af9eb --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE.RDS_DETAIL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".rds_detail->toppos = 1:@fm:1\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE.SHIP_DETAIL.json b/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE.SHIP_DETAIL.json new file mode 100644 index 0000000..030d060 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE.SHIP_DETAIL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".ship_detail->toppos = 1:@fm:1\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE.WAFER_SCHED_SHIP.json b/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE.WAFER_SCHED_SHIP.json new file mode 100644 index 0000000..d9071f6 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE.WAFER_SCHED_SHIP.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".wafer_sched_ship->toppos = 1:@fm:1\r\n.wafer_sched_ship->selpos = 1:@fm:1\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE_QUERY.LOT_NUM.json b/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE_QUERY.LOT_NUM.json new file mode 100644 index 0000000..3b35fdd --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE_QUERY.LOT_NUM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".lot_num->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE_QUERY.PART_NUM.json b/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE_QUERY.PART_NUM.json new file mode 100644 index 0000000..51a7cfc --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE_QUERY.PART_NUM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".part_num->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE_QUERY.PO.json b/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE_QUERY.PO.json new file mode 100644 index 0000000..4734cbe --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE_QUERY.PO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".po->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE_QUERY.WO.json b/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE_QUERY.WO.json new file mode 100644 index 0000000..99b0712 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE_QUERY.WO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".wo->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE_SRL.RDS_DETAIL.json b/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE_SRL.RDS_DETAIL.json new file mode 100644 index 0000000..50af9eb --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE_SRL.RDS_DETAIL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".rds_detail->toppos = 1:@fm:1\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE_SRL.SHIP_DETAIL.json b/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE_SRL.SHIP_DETAIL.json new file mode 100644 index 0000000..030d060 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE_SRL.SHIP_DETAIL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".ship_detail->toppos = 1:@fm:1\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE_SRL.WAFER_SCHED_SHIP.json b/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE_SRL.WAFER_SCHED_SHIP.json new file mode 100644 index 0000000..fa801a1 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE_SRL.WAFER_SCHED_SHIP.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".wafer_sched_ship->toppos = 1:@fm:1\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE_SRL_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE_SRL_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE_SRL_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE_SRL_QUERY.PO.json b/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE_SRL_QUERY.PO.json new file mode 100644 index 0000000..4734cbe --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE_SRL_QUERY.PO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".po->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE_SRL_QUERY.WO.json b/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE_SRL_QUERY.WO.json new file mode 100644 index 0000000..99b0712 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SCHEDULE_SRL_QUERY.WO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".wo->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SCHED_RPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/SCHED_RPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SCHED_RPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SCHED_RPT2.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/SCHED_RPT2.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SCHED_RPT2.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SCHED_RPT3.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/SCHED_RPT3.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SCHED_RPT3.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SCHED_RPT4.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/SCHED_RPT4.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SCHED_RPT4.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SCHED_RPT4.LOT_NUM.json b/LSL2/OIEVENT/LOSTFOCUS/SCHED_RPT4.LOT_NUM.json new file mode 100644 index 0000000..3b35fdd --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SCHED_RPT4.LOT_NUM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".lot_num->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SCHED_RPT4.PART_NUM.json b/LSL2/OIEVENT/LOSTFOCUS/SCHED_RPT4.PART_NUM.json new file mode 100644 index 0000000..51a7cfc --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SCHED_RPT4.PART_NUM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".part_num->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SCHED_RPT4.PO.json b/LSL2/OIEVENT/LOSTFOCUS/SCHED_RPT4.PO.json new file mode 100644 index 0000000..4734cbe --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SCHED_RPT4.PO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".po->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SCHED_RPT4.WO.json b/LSL2/OIEVENT/LOSTFOCUS/SCHED_RPT4.WO.json new file mode 100644 index 0000000..99b0712 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SCHED_RPT4.WO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".wo->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SCHED_SRPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/SCHED_SRPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SCHED_SRPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SCHED_SRPT2.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/SCHED_SRPT2.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SCHED_SRPT2.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SCHED_SRPT3.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/SCHED_SRPT3.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SCHED_SRPT3.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SEC_GROUPS.TABLESECURITY.json b/LSL2/OIEVENT/LOSTFOCUS/SEC_GROUPS.TABLESECURITY.json new file mode 100644 index 0000000..addf133 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SEC_GROUPS.TABLESECURITY.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".tablesecurity->toppos = 1:@fm:1\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SEMI_LOG_QUERY.TECHS.json b/LSL2/OIEVENT/LOSTFOCUS/SEMI_LOG_QUERY.TECHS.json new file mode 100644 index 0000000..8a5b373 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SEMI_LOG_QUERY.TECHS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".techs->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SPC_LIMITS.EVAL_4PP_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/SPC_LIMITS.EVAL_4PP_INFO.json new file mode 100644 index 0000000..75f6597 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SPC_LIMITS.EVAL_4PP_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\n@CtrlEntId->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SPC_LIMITS.EVAL_4PP_STDEV_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/SPC_LIMITS.EVAL_4PP_STDEV_INFO.json new file mode 100644 index 0000000..75f6597 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SPC_LIMITS.EVAL_4PP_STDEV_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\n@CtrlEntId->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SPC_LIMITS.EVAL_ADE_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/SPC_LIMITS.EVAL_ADE_INFO.json new file mode 100644 index 0000000..75f6597 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SPC_LIMITS.EVAL_ADE_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\n@CtrlEntId->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SPC_LIMITS.EVAL_ADE_STDEV_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/SPC_LIMITS.EVAL_ADE_STDEV_INFO.json new file mode 100644 index 0000000..c8bd955 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SPC_LIMITS.EVAL_ADE_STDEV_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\n@CtrlEntId->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SPC_LIMITS.EVAL_FTIR_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/SPC_LIMITS.EVAL_FTIR_INFO.json new file mode 100644 index 0000000..75f6597 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SPC_LIMITS.EVAL_FTIR_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\n@CtrlEntId->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SPC_LIMITS.EVAL_FTIR_STDEV_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/SPC_LIMITS.EVAL_FTIR_STDEV_INFO.json new file mode 100644 index 0000000..c8bd955 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SPC_LIMITS.EVAL_FTIR_STDEV_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\n@CtrlEntId->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SPC_OCAP_CFG.OCAP_ID.json b/LSL2/OIEVENT/LOSTFOCUS/SPC_OCAP_CFG.OCAP_ID.json new file mode 100644 index 0000000..14d1d46 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SPC_OCAP_CFG.OCAP_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\ndeclare subroutine end_dialog\r\n\r\nOcapID = @CtrlEntId->text\r\nif len( trim( OcapID ) ) then\r\n\topen 'CONFIG' to ConfigTable else\r\n\t Void = msg( '', 'Unable to open CONFIG table' )\r\n\t end_dialog( @window, '' )\r\n\t return 0\r\n\tend\r\n\tlock ConfigTable, OcapID else\r\n\t *Void = msg( '', OcapID:' is in use somewhere else...' )\r\n\t *end_dialog( @window, '' )\r\n\t *return 0\r\n\tend\r\n\tread OcapInfo from ConfigTable, OCapID then\r\n\t .ocap_info->array = OcapInfo \r\n\tend\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SRP_COC_RESULTS.PROD_SPEC_ID.json b/LSL2/OIEVENT/LOSTFOCUS/SRP_COC_RESULTS.PROD_SPEC_ID.json new file mode 100644 index 0000000..07001e5 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SRP_COC_RESULTS.PROD_SPEC_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\n$insert prod_spec_equ\r\n\r\nforward_event( Flag, FocusID )\r\nOrigPSN = get_property( @window, '@OrigPSN', .prod_spec_id->text )\r\nCurPSN = .prod_spec_id->text\r\nif CurPSN <> OrigPSN then\r\n\tPSNId = .prod_spec_id->text\r\n\t.dopant->text = xlate( 'PROD_SPEC', PSNId, 'DOPANT_L1', 'X' )\r\n\t.rest->text = oconv( xlate( 'PROD_SPEC', PSNId, 'RES_TARGET_L1', 'X' ), 'MD3' )\r\n\t.rest_units->text = xlate( 'PROD_SPEC', PSNId, 'RES_UNITS_L1', 'X' )\r\n\t.thick->text = oconv( xlate( 'PROD_SPEC', PSNId, 'THICK_TARGET_L1', 'X' ), 'MD2' )\r\n\t.thick_units->text = xlate( 'PROD_SPEC', PSNId, 'THICK_UNITS_L1', 'X' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SRP_COC_RESULTS_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/SRP_COC_RESULTS_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SRP_COC_RESULTS_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SRP_COC_RESULTS_QUERY.REACTORS.json b/LSL2/OIEVENT/LOSTFOCUS/SRP_COC_RESULTS_QUERY.REACTORS.json new file mode 100644 index 0000000..fc95e60 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SRP_COC_RESULTS_QUERY.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".reactors->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SRP_INCOMING_LOG.CUST_ID.json b/LSL2/OIEVENT/LOSTFOCUS/SRP_INCOMING_LOG.CUST_ID.json new file mode 100644 index 0000000..9dcb2b6 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SRP_INCOMING_LOG.CUST_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "Void = set_property( @window, '@CUST_ID', .cust_id->text )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SRP_INCOMING_LOG_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/SRP_INCOMING_LOG_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SRP_INCOMING_LOG_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SRP_INCOMING_LOG_QUERY.ENGINEERS.json b/LSL2/OIEVENT/LOSTFOCUS/SRP_INCOMING_LOG_QUERY.ENGINEERS.json new file mode 100644 index 0000000..3772910 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SRP_INCOMING_LOG_QUERY.ENGINEERS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".engineers->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SUB_REC_LOG.CUST_ID.json b/LSL2/OIEVENT/LOSTFOCUS/SUB_REC_LOG.CUST_ID.json new file mode 100644 index 0000000..9dcb2b6 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SUB_REC_LOG.CUST_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "Void = set_property( @window, '@CUST_ID', .cust_id->text )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SUB_REC_LOG_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/SUB_REC_LOG_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SUB_REC_LOG_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/SUB_REC_LOG_QUERY.RECEIVERS.json b/LSL2/OIEVENT/LOSTFOCUS/SUB_REC_LOG_QUERY.RECEIVERS.json new file mode 100644 index 0000000..980974f --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/SUB_REC_LOG_QUERY.RECEIVERS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".receivers->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/TEST.EPI_CONC_MIN_THICK.json b/LSL2/OIEVENT/LOSTFOCUS/TEST.EPI_CONC_MIN_THICK.json new file mode 100644 index 0000000..11eacdb --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/TEST.EPI_CONC_MIN_THICK.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".epi_conc_min_thick->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/TW_PRIME_USAGE.TW_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/TW_PRIME_USAGE.TW_INFO.json new file mode 100644 index 0000000..376179e --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/TW_PRIME_USAGE.TW_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".tw_info->toppos = 1:@fm:1\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/TW_PRIME_USAGE_QUERY.REACTORS.json b/LSL2/OIEVENT/LOSTFOCUS/TW_PRIME_USAGE_QUERY.REACTORS.json new file mode 100644 index 0000000..fc95e60 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/TW_PRIME_USAGE_QUERY.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".reactors->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/TW_USAGE.TW_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/TW_USAGE.TW_INFO.json new file mode 100644 index 0000000..376179e --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/TW_USAGE.TW_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".tw_info->toppos = 1:@fm:1\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/TW_USAGE_QUERY.REACTORS.json b/LSL2/OIEVENT/LOSTFOCUS/TW_USAGE_QUERY.REACTORS.json new file mode 100644 index 0000000..fc95e60 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/TW_USAGE_QUERY.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".reactors->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/USERS_SRPT1.EMPLOYEE_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/USERS_SRPT1.EMPLOYEE_INFO.json new file mode 100644 index 0000000..d173d68 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/USERS_SRPT1.EMPLOYEE_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".resp_person_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/USERS_SRPT1.SUPERVISOR_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/USERS_SRPT1.SUPERVISOR_INFO.json new file mode 100644 index 0000000..d173d68 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/USERS_SRPT1.SUPERVISOR_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".resp_person_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WAFER_INV.INV_DETAIL.json b/LSL2/OIEVENT/LOSTFOCUS/WAFER_INV.INV_DETAIL.json new file mode 100644 index 0000000..0a0bcc7 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WAFER_INV.INV_DETAIL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".inv_detail->toppos = 1:@fm:1\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WAFER_INV_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/WAFER_INV_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WAFER_INV_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WAFER_INV_QUERY.LSL_INV_NO.json b/LSL2/OIEVENT/LOSTFOCUS/WAFER_INV_QUERY.LSL_INV_NO.json new file mode 100644 index 0000000..d9fbf5b --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WAFER_INV_QUERY.LSL_INV_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".pack_list_nos->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WAFER_INV_QUERY.LSL_WO.json b/LSL2/OIEVENT/LOSTFOCUS/WAFER_INV_QUERY.LSL_WO.json new file mode 100644 index 0000000..d9fbf5b --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WAFER_INV_QUERY.LSL_WO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".pack_list_nos->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WAFER_INV_QUERY.MFG_LOT_NO.json b/LSL2/OIEVENT/LOSTFOCUS/WAFER_INV_QUERY.MFG_LOT_NO.json new file mode 100644 index 0000000..d9fbf5b --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WAFER_INV_QUERY.MFG_LOT_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".pack_list_nos->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WAFER_INV_QUERY.MFG_SALES_ORD.json b/LSL2/OIEVENT/LOSTFOCUS/WAFER_INV_QUERY.MFG_SALES_ORD.json new file mode 100644 index 0000000..d9fbf5b --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WAFER_INV_QUERY.MFG_SALES_ORD.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".pack_list_nos->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WAFER_INV_QUERY.PACK_LIST_NOS.json b/LSL2/OIEVENT/LOSTFOCUS/WAFER_INV_QUERY.PACK_LIST_NOS.json new file mode 100644 index 0000000..d9fbf5b --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WAFER_INV_QUERY.PACK_LIST_NOS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".pack_list_nos->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WAFER_SHIPMENT_OPTS.WO.json b/LSL2/OIEVENT/LOSTFOCUS/WAFER_SHIPMENT_OPTS.WO.json new file mode 100644 index 0000000..e006ec3 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WAFER_SHIPMENT_OPTS.WO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".wo->toppos = 1:@fm:1\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED.RW20.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED.RW20.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED.RW20.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED.RW22.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED.RW22.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED.RW22.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED.RW24.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED.RW24.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED.RW24.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED.RW26.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED.RW26.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED.RW26.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED.RW28.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED.RW28.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED.RW28.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED.RW30.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED.RW30.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED.RW30.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED2.RW21.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED2.RW21.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED2.RW21.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED2.RW23.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED2.RW23.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED2.RW23.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED2.RW25.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED2.RW25.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED2.RW25.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED2.RW27.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED2.RW27.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED2.RW27.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED2.RW29.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED2.RW29.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED2.RW29.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED2.RW31.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED2.RW31.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED2.RW31.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED3.RW32.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED3.RW32.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED3.RW32.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED3.RW33.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED3.RW33.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED3.RW33.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED3.RW34.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED3.RW34.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED3.RW34.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED3.RW35.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED3.RW35.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED3.RW35.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED3.RW36.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED3.RW36.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED3.RW36.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED3.RW37.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED3.RW37.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED3.RW37.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED4.RW39.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED4.RW39.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED4.RW39.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED4.RW41.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED4.RW41.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED4.RW41.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED4.RW43.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED4.RW43.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED4.RW43.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED4.RW45.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED4.RW45.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED4.RW45.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED4.RW47.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED4.RW47.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED4.RW47.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED4.RW49.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED4.RW49.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED4.RW49.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED5.RW51.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED5.RW51.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED5.RW51.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED5.RW53.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED5.RW53.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED5.RW53.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED5.RW55.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED5.RW55.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED5.RW55.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED6.RW36.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED6.RW36.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED6.RW36.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED6.RW37.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED6.RW37.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED6.RW37.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED6.RW38.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED6.RW38.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED6.RW38.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED6.RW39.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED6.RW39.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED6.RW39.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED6.RW40.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED6.RW40.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED6.RW40.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED7.RW41.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED7.RW41.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED7.RW41.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED7.RW42.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED7.RW42.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED7.RW42.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED7.RW43.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED7.RW43.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED7.RW43.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED7.RW44.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED7.RW44.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED7.RW44.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED7.RW45.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED7.RW45.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED7.RW45.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED8.RW46.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED8.RW46.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED8.RW46.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED8.RW47.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED8.RW47.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED8.RW47.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED8.RW48.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED8.RW48.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED8.RW48.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED8.RW49.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED8.RW49.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED8.RW49.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED8.RW50.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED8.RW50.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED8.RW50.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED9.RW51.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED9.RW51.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED9.RW51.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED9.RW52.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED9.RW52.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED9.RW52.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED9.RW53.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED9.RW53.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED9.RW53.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED9.RW54.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED9.RW54.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED9.RW54.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED9.RW55.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED9.RW55.json new file mode 100644 index 0000000..4c90fb8 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED9.RW55.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm('WO_LOST_FOCUS', CtrlEntId )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED_SINGLE.WOCUST.json b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED_SINGLE.WOCUST.json new file mode 100644 index 0000000..27e8693 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_DAILY_SCHED_SINGLE.WOCUST.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_daily_sched_comm2, forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nif status() else\r\n wo_daily_sched_comm2('WO_LOST_FOCUS')\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_LOG.PROD_SPEC_ID.json b/LSL2/OIEVENT/LOSTFOCUS/WO_LOG.PROD_SPEC_ID.json new file mode 100644 index 0000000..74e7ee2 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_LOG.PROD_SPEC_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\n$insert prod_spec_equ\r\n\r\nforward_event( Flag, FocusID )\r\nOrigPSN = get_property( @window, '@OrigPSN', .prod_spec_id->text )\r\nCurPSN = .prod_spec_id->text\r\nif CurPSN <> OrigPSN then\r\n\tPSNId = .prod_spec_id->text\r\n\t.dopant->text = xlate( 'PROD_SPEC', PSNId, 'DOPANT_L1', 'X' )\r\n\t.rest->text = oconv( xlate( 'PROD_SPEC', PSNId, 'RES_TARGET_L1', 'X' ), 'MD3' )\r\n\t.rest_units->text = xlate( 'PROD_SPEC', PSNId, 'RES_UNITS_L1', 'X' )\r\n\t.thick->text = oconv( xlate( 'PROD_SPEC', PSNId, 'THICK_TARGET_L1', 'X' ), 'MD2' )\r\n\t.thick_units->text = xlate( 'PROD_SPEC', PSNId, 'THICK_UNITS_L1', 'X' )\r\n\tQualReactors = xlate( 'PROD_SPEC', PSNId, prod_spec_qual_reacts$, 'X' )\r\n\tif QualReactors <> '' then\r\n .reactors->array = QualReactors\r\n end else\r\n .reactors->array = @vm:@vm\r\n end\r\n *\r\n Tparts = xlate( 'PROD_SPEC', PSNId, 'PART_NUMS', 'X' )\r\n Tarray = .cust_part_nums->array\r\n Tarray<2> = Tparts\r\n .cust_part_nums->array = Tarray\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_LOG2.WO_NO.json b/LSL2/OIEVENT/LOSTFOCUS/WO_LOG2.WO_NO.json new file mode 100644 index 0000000..31a2544 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_LOG2.WO_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION COMM_WO_LOG\r\n\r\nRETURN Comm_WO_Log('WONoLF')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_LOG2_DPC.WO_NO.json b/LSL2/OIEVENT/LOSTFOCUS/WO_LOG2_DPC.WO_NO.json new file mode 100644 index 0000000..31a2544 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_LOG2_DPC.WO_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION COMM_WO_LOG\r\n\r\nRETURN Comm_WO_Log('WONoLF')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_LOG_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/WO_LOG_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_LOG_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_LOG_QUERY.PSNS.json b/LSL2/OIEVENT/LOSTFOCUS/WO_LOG_QUERY.PSNS.json new file mode 100644 index 0000000..8f82dca --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_LOG_QUERY.PSNS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".quote_nos->toppos = 1:@fm:1\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_LOG_RPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/LOSTFOCUS/WO_LOG_RPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..ecba64a --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_LOG_RPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_MAST_SCHED_FIND.FIND_VAL.json b/LSL2/OIEVENT/LOSTFOCUS/WO_MAST_SCHED_FIND.FIND_VAL.json new file mode 100644 index 0000000..e3ea094 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_MAST_SCHED_FIND.FIND_VAL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine wo_mast_sched_comm\r\n\r\nOrigFVal = get_property( @window, '@OrigFVal' )\r\nCurFVal = .find_val->text\r\nif CurFVal <> OrigFVal then\r\n wo_mast_sched_comm( 'CLEARPOS', '', '' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_MAT_BATCH.WO_NO.json b/LSL2/OIEVENT/LOSTFOCUS/WO_MAT_BATCH.WO_NO.json new file mode 100644 index 0000000..31a2544 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_MAT_BATCH.WO_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION COMM_WO_LOG\r\n\r\nRETURN Comm_WO_Log('WONoLF')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_MAT_IN.SLOT_NO.json b/LSL2/OIEVENT/LOSTFOCUS/WO_MAT_IN.SLOT_NO.json new file mode 100644 index 0000000..ad1b949 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_MAT_IN.SLOT_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\n* DON'T REMOVE THIS - THERE IS A BUG IN THE WINDOW LOGIC FROM Revelation! - JCH\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_MAT_INV.WO_NO.json b/LSL2/OIEVENT/LOSTFOCUS/WO_MAT_INV.WO_NO.json new file mode 100644 index 0000000..31a2544 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_MAT_INV.WO_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION COMM_WO_LOG\r\n\r\nRETURN Comm_WO_Log('WONoLF')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_MAT_OUT.SLOT_NO.json b/LSL2/OIEVENT/LOSTFOCUS/WO_MAT_OUT.SLOT_NO.json new file mode 100644 index 0000000..ad1b949 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_MAT_OUT.SLOT_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\n* DON'T REMOVE THIS - THERE IS A BUG IN THE WINDOW LOGIC FROM Revelation! - JCH\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/LOSTFOCUS/WO_MAT_WFR.SLOT_NO.json b/LSL2/OIEVENT/LOSTFOCUS/WO_MAT_WFR.SLOT_NO.json new file mode 100644 index 0000000..ad1b949 --- /dev/null +++ b/LSL2/OIEVENT/LOSTFOCUS/WO_MAT_WFR.SLOT_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\n* DON'T REMOVE THIS - THERE IS A BUG IN THE WINDOW LOGIC FROM Revelation! - JCH\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/ANNUAL_CONTRACTS.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/ANNUAL_CONTRACTS.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..ddfe8ae --- /dev/null +++ b/LSL2/OIEVENT/MENU/ANNUAL_CONTRACTS.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nContractNo = .contract_no->text\r\nif ContractNo then\r\n if rowexists( 'ANNUAL_CONTRACTS', ContractNo ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'ANNUAL_CONTRACTS*':ContractNo:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this annual contract first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have an annual contract present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/ATTENDANCE.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/ATTENDANCE.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..553c8a9 --- /dev/null +++ b/LSL2/OIEVENT/MENU/ATTENDANCE.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nAttendance = .absent_id->text\r\nif Attendance then\r\n if rowexists( 'ATTENDANCE', Attendance ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'ATTENDANCE*':Attendance:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this record first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a record present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/CALL_VISIT.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/CALL_VISIT.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..6d10747 --- /dev/null +++ b/LSL2/OIEVENT/MENU/CALL_VISIT.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nCVId = .call_visit_id->text\r\nif CVId then\r\n if rowexists( 'CALL_VISIT', CVId ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'CALL_VISIT*':CVId:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this call/visit entry first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a call/visit entry present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/CAR.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/CAR.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..b94c71e --- /dev/null +++ b/LSL2/OIEVENT/MENU/CAR.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nCARId = .car_ref_id->text\r\nif CARId then\r\n if rowexists( 'CAR', CARId ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'CAR*':CARId:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this CAR inquriy first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a CAR present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/COC.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/COC.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..4b38446 --- /dev/null +++ b/LSL2/OIEVENT/MENU/COC.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nCOCNo = .coc_no->text\r\nif COCNo then\r\n if rowexists( 'COC', COCNo ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'COC*':COCNo:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this COC first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a COC record present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/COMPANY.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/COMPANY.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..9a8bc69 --- /dev/null +++ b/LSL2/OIEVENT/MENU/COMPANY.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nCoNo = .co_no->text\r\nif CoNo then\r\n if rowexists( 'COMPANY', CoNo ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'COMPANY*':CoNo:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this company first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a company present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/CUST_INQUIRY.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/CUST_INQUIRY.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..07ec987 --- /dev/null +++ b/LSL2/OIEVENT/MENU/CUST_INQUIRY.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nInquiryID = .cust_inquiry_id->text\r\nif InquiryID then\r\n if rowexists( 'CUST_INQUIRY', InquiryID ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'CUST_INQUIRY*':InquiryID:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this customer inquriy first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a customer inquiry present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/DBW_PROD_SPEC_GAN.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/DBW_PROD_SPEC_GAN.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..0370d56 --- /dev/null +++ b/LSL2/OIEVENT/MENU/DBW_PROD_SPEC_GAN.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nPSN = .prod_spec_id->text\r\nif PSN then\r\n if rowexists( 'PROD_SPEC', PSN ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'PROD_SPEC*':PSN:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this PSN first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a PSN present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/GAN_PROD_SPEC.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/GAN_PROD_SPEC.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..0370d56 --- /dev/null +++ b/LSL2/OIEVENT/MENU/GAN_PROD_SPEC.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nPSN = .prod_spec_id->text\r\nif PSN then\r\n if rowexists( 'PROD_SPEC', PSN ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'PROD_SPEC*':PSN:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this PSN first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a PSN present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/ICAR.MENU.SEND_MESSAGE.MWA.json b/LSL2/OIEVENT/MENU/ICAR.MENU.SEND_MESSAGE.MWA.json new file mode 100644 index 0000000..1d71cf9 --- /dev/null +++ b/LSL2/OIEVENT/MENU/ICAR.MENU.SEND_MESSAGE.MWA.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box, NextKey\r\nDECLARE SUBROUTINE obj_AppWindow\r\n$insert msg_equates\r\n\r\nICARId = .icar_ref_id->text\r\nif ICARId then\r\n if rowexists( 'ICAR', ICARId ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n\t\t\tconvert @fm to @vm in Qbf\r\n end else\r\n\t\t\tQbf = ''\r\n\t\tend\r\n \r\n NoteID = NextKey('NOTES')\r\n obj_AppWindow('ViewRelated','NOTE_MESSAGE':@RM:NoteID:@RM:'ICAR':@FM:ICARId)\r\n \r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this ICAR first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a ICAR present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/INVOICE.MENU.EDIT.CREATE_CREDIT%002FDEBIT_MEMO.json b/LSL2/OIEVENT/MENU/INVOICE.MENU.EDIT.CREATE_CREDIT%002FDEBIT_MEMO.json new file mode 100644 index 0000000..a6e9e2e --- /dev/null +++ b/LSL2/OIEVENT/MENU/INVOICE.MENU.EDIT.CREATE_CREDIT%002FDEBIT_MEMO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function next_key, send_event, msg, security_check, admin_user\r\ndeclare function entid, repository\r\ndeclare subroutine security_err_msg, delete_row\r\n$insert security_rights_equ\r\n$insert invoice_equ\r\n$insert logical\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\nContinue = false$\r\nif admin_user( @user4 ) then\r\n Continue = true$\r\nend else\r\n SecGroups = xlate( 'LSL_USERS', @user4, lsl_users_groups$, 'X' )\r\n locate 'SCHEDULING' in SecGroups using @vm setting Fpos then\r\n Continue = true$\r\n end\r\nend\r\nif Continue then\r\n\tif security_check( 'Invoice', Write$ ) then\r\n\t * save off all data\r\n \tPopupId = entid( @appid<1>, 'POPUP', '', 'INVOICE_MEMO_OPTS' )\r\n\t\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n if ChoosenRow then\r\n if ChoosenRow = 1 then\r\n Prefix = 'CM'\r\n end else\r\n Prefix = 'DM'\r\n end\r\n\t\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t\t convert @fm to @rm in AllControls\r\n\t\t AllData = get_property( Allcontrols, 'TEXT' )\r\n\t\t InvoiceDetail = .invoice_detail->array\r\n\t\t RecToUse = ''\r\n\t\t RecToUse = InvoiceDetail<1>\r\n\t\t RecToUse = InvoiceDetail<2>\r\n\t\t RecToUse = InvoiceDetail<3>\r\n\t\t RecToUse = InvoiceDetail<4>\r\n\t\t RecToUse = InvoiceDetail<5>\r\n\t\t RecToUse = InvoiceDetail<6>\r\n\t\t RecToUse = InvoiceDetail<7>\r\n\t\t RecToUse = iconv( InvoiceDetail<8>, 'MD2,$' )\r\n\t\t RecToUse = iconv( InvoiceDetail<9>, 'MD2,$' )\r\n\t\t RecToUse = InvoiceDetail<10>\r\n\t\t RecToUse = InvoiceDetail<11>\r\n\t\t RecToUse = InvoiceDetail<12>\r\n\t\t RecToUse = iconv( InvoiceDetail<13>, 'MD2,$' )\r\n\t\t RecToUse = ''\r\n\t\t RecToUse = ''\r\n\t\t RecToUse = ''\r\n\t\t OrigInvNo = .invoice_no->text\r\n\t\t HoldBillToAddr = .bill_to_addr->array\r\n\t\t HoldShipToAddr = .ship_to_addr->array\r\n\t\t HoldTrackNo = .tracking_no->array\r\n\t\t\tChoice = send_event( @window, 'CLEAR' )\r\n\t\t\tif Choice = '' then\r\n\t\t\t * if choice has a value then the user has canceled \r\n\t\t Void = set_property( @window, '@AutoCreate', 1 ) ;* to enable the creation of a new record\r\n\t\t NewInvoiceKey = Prefix:OrigInvNo\r\n\t\t\t\t.invoice_no->text = NewInvoiceKey\r\n\t\t Void = send_event( @window:'.INVOICE_NO', 'GOTFOCUS' )\r\n\t\t\t\tVoid = send_event( @window:'.INVOICE_NO', 'LOSTFOCUS' )\r\n\t\t Void = send_event( @window, 'READ' )\t\t\r\n\t\t Void = set_property( AllControls, 'TEXT', AllData )\r\n\t\t\t\t.invoice_no->text = NewInvoiceKey\r\n\t\t\t\t.entry_date->text = oconv( date(), 'D2/' )\r\n\t\t\t\t.entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t\t\t.status->value = 'O'\r\n\t\t\t\tVoid = set_property( @window, 'RECORD', RecToUse )\r\n\t\t\t\tInvoiceDetail<14> = str( @vm, 3 )\r\n\t\t \t.invoice_detail->array = InvoiceDetail\r\n\t\t \t.check_detail->array = @vm:@vm:@vm:@fm:@vm:@vm:@vm:@fm:@vm:@vm:@vm\r\n\t\t\t\tVoid = send_event( @window:'.INVOICE_DETAIL', 'CALCULATE', 14 ) \t\t\r\n\t\t\t\tVoid = send_event( @window:'.TOT_SHIP_QTY', 'CALCULATE', 1 )\r\n\t\t\t Void = send_event( @window:'.TOT_SHIP_AMT', 'CALCULATE', 1 )\r\n\t\t \tVoid = send_event( @window:'.INVOICE_AMT', 'CALCULATE', 1 )\r\n\t\t\t\tVoid = send_event( @window:'.BALANCE', 'CALCULATE', 1 )\r\n\t\t .bill_to_addr->array = HoldBillToAddr\r\n\t\t .ship_to_addr->array = HoldShipToAddr\r\n\t\t .tracking_no->array = HoldTrackNo \r\n\t\t\t\t@@window->savewarn = 1\r\n\t\t end\r\n\t\tend\r\n\tend else\r\n\t security_err_msg( 'Invoice', Write$ )\r\n\tend\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You do not have proper security to create a Credit Memo.' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/INVOICE.MENU.EDIT.INVOICE_BANKING_NOTES.json b/LSL2/OIEVENT/MENU/INVOICE.MENU.EDIT.INVOICE_BANKING_NOTES.json new file mode 100644 index 0000000..2d978e6 --- /dev/null +++ b/LSL2/OIEVENT/MENU/INVOICE.MENU.EDIT.INVOICE_BANKING_NOTES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box\r\n\r\nVoid = dialog_box( 'INVOICE_BANK_NOTES', @window, '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/INVOICE.MENU.EDIT.UNPROTECT_FIELDS.json b/LSL2/OIEVENT/MENU/INVOICE.MENU.EDIT.UNPROTECT_FIELDS.json new file mode 100644 index 0000000..1082dc1 --- /dev/null +++ b/LSL2/OIEVENT/MENU/INVOICE.MENU.EDIT.UNPROTECT_FIELDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_message, admin_user, msg\r\ndeclare subroutine send_message\r\n$insert lsl_users_equ\r\n$insert logical\r\n$insert msg_equates\r\nequ LockStyle$ to 8192\r\n\r\nContinue = false$\r\nif admin_user( @user4 ) then\r\n Continue = true$\r\nend else\r\n SecGroups = xlate( 'LSL_USERS', @user4, lsl_users_groups$, 'X' )\r\n locate 'SCHEDULING' in SecGroups using @vm setting Fpos then\r\n Continue = true$\r\n end\r\nend\r\nif Continue then\r\n\tInvDetail = @window:'.INVOICE_DETAIL'\r\n\t*Styles = send_message( InvDetail, 'COLSTYLE', 0, '' )\r\n\t*debug\r\n\tVoid = send_message( InvDetail, 'COLSTYLE', 2, 385 ) ;* 385 is non \r\n\tVoid = send_message( InvDetail, 'COLSTYLE', 3, 385 ) ;* protect right just\r\n\t.entry_date->enabled = 1\r\n\t.po->enabled = 1\r\n\t.order_no->enabled = 1\r\n\t.cust_no->enabled = 1\r\n\t*Styles<1> = bitor( Styles<1>, LockStyle$ )\r\n\t*Styles<1> = bitand( Styles<1>, bitnot(LockStyle$))\r\n\t*Styles<2> = bitand( Styles<2>, bitnot(LockStyle$))\r\n\t*Styles<3> = bitand( Styles<3>, bitnot(LockStyle$))\r\n\t*send_message( InvDetail, 'COLSTYLE', 0, Styles \r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You do not have proper security to unprotect quote and schedule nos.' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/INVOICE.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/INVOICE.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..9a14512 --- /dev/null +++ b/LSL2/OIEVENT/MENU/INVOICE.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nInvoiceNo = .invoice_no->text\r\nif InvoiceNo then\r\n if rowexists( 'INVOICE', InvoiceNo ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'INVOICE*':InvoiceNo:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this invoice first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have an invoice present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/INVOICE.MENU.VIEW.NEXT_INVOICE_NUMBERS.json b/LSL2/OIEVENT/MENU/INVOICE.MENU.VIEW.NEXT_INVOICE_NUMBERS.json new file mode 100644 index 0000000..66832e9 --- /dev/null +++ b/LSL2/OIEVENT/MENU/INVOICE.MENU.VIEW.NEXT_INVOICE_NUMBERS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box\r\n\r\nCurFocus = get_property( @window, 'FOCUS' )\r\nCurRecord = get_property( @window, 'RECORD' )\r\nif ( CurFocus = 'INVOICE.INVOICE_NO' ) and ( CurRecord = '' ) then\r\n .invoice_no->text = ''\r\nend\r\nVoid = dialog_box( 'INVOICE_KEY_VIEW', @window, '')\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/LAST_WFR_CI_GROUP.MENU.EDIT.REJECT_ACCOUNTABILITY.json b/LSL2/OIEVENT/MENU/LAST_WFR_CI_GROUP.MENU.EDIT.REJECT_ACCOUNTABILITY.json new file mode 100644 index 0000000..64a36e1 --- /dev/null +++ b/LSL2/OIEVENT/MENU/LAST_WFR_CI_GROUP.MENU.EDIT.REJECT_ACCOUNTABILITY.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, function, msg, repository, dialog_box\r\n$insert msg_equates\r\n$insert popup_equates\r\n$insert logical\r\n\r\nRdsNo = .rds_no->text\r\nRejCols = 'LSL_PRE_EPI_REJ/LSL_POST_EPI_REJ/CUST_PRE_EPI_REJ/CUST_POST_EPI_REJ'\r\nRejAcctPos = '1,5,9,13/2,6,10,14/3,7,11,15/4,8,12,16'\r\nRejFields = 'L_PRE_REJ_CNT/L_POST_REJ_CNT/C_PRE_REJ_CNT/C_POST_REJ_CNT'\r\nconvert '/' to @fm in RejCols\r\nconvert '/' to @fm in RejAcctPos\r\nconvert ',' to @vm in RejAcctPos\r\nconvert '/' to @fm in RejFields\r\nPopId = entid( @appid<1>, 'POPUP', '', 'RDS_REJ_ACCT_OPTS' )\r\nOverRide = ''\r\nDisplay = ''\r\nif .lsl_pre_epi_rej->text then\r\n Display<1,-1> = 'Epitronics Pre Epi Rejects':@tm:'LSL_PRE_EPI_REJ'\r\nend\r\nif .lsl_post_epi_rej->text then\r\n Display<1,-1> = 'Epitronics Post Epi Rejects':@tm:'LSL_POST_EPI_REJ'\r\nend\r\nif .cust_pre_epi_rej->text then\r\n Display<1,-1> = 'Epitronics Pre Epi Rejects':@tm:'CUST_PRE_EPI_REJ'\r\nend\r\nif .cust_post_epi_rej->text then\r\n Display<1,-1> = 'Epitronics Post Epi Rejects':@tm:'CUST_POST_EPI_REJ'\r\nend\r\nif Display then\r\n\tOverRide = Display\r\n\tRejCol = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif RejCol then\r\n\t locate RejCol in RejCols using @fm setting Fpos then\r\n\t RejField = RejFields\r\n \tCurRej = get_property( @window:'.':RejCols, 'TEXT' )+0\r\n\t\t RejectInfo = .reject_info->array\r\n\t\t ParamToPass = RejCol\r\n\t\t convert '_' to ' ' in ParamToPass\r\n\t HoldRej = RejectInfo>\r\n\t HoldLoss = RejectInfo>\r\n\t HoldAc = RejectInfo>\r\n\t HoldNCR = RejectInfo>\t \r\n\t HoldAll = HoldRej:HoldLoss:HoldAc:HoldNCR\r\n\t\t ParamToPass := '*':CurRej\r\n\t\t ParamToPass := '*':HoldRej\r\n\t\t ParamToPass := '*':HoldLoss\r\n\t\t ParamToPass := '*':HoldAc\r\n\t\t ParamToPass := '*':HoldNCR\r\n \t ParamToPass := '*':RdsNo\r\n\t\t ParamToPass := '*':RejField\r\n NCRMustSave = get_property( @window, '@NCRMustSave' ) \r\n\t\t RetVal = dialog_box( 'RDS_REJECTS', @window, ParamToPass:char(245):NCRMustSave )\r\n\t\t if RetVal <> 'CANCEL' then\r\n\t\t NCRChg = field( RetVal, char(245), 2 )\r\n * NEED NCRCHG HERE CAUSE THE USER MAY TRY TO LEAVE THIS RDS WITHOUT SAVING\r\n * THE PURPOSE OF THIS FLAG IS TO FORCE A SAVE IF AN NCR WAS AFFECTED\r\n\t RetVal = field( RetVal, char(245), 1 )\r\n\t\t\t RetRej = RetVal<1>\r\n\t\t\t RetLoss = RetVal<2>\r\n\t\t\t RetAC = RetVal<4>\r\n\t\t\t RetNCR = RetVal<6>\r\n\t\t\t All = RetRej:RetLoss:RetAC:RetNCR\r\n\t\t\t if All <> HoldAll then\r\n\t\t\t\t RejectInfo> = RetRej\r\n\t\t\t\t RejectInfo> = RetLoss\r\n\t\t\t\t RejectInfo> = RetAC\r\n\t\t\t\t RejectInfo> = RetNCR\r\n\t\t\t\t .reject_info->array = RejectInfo\r\n\t\t\t\t @@window->savewarn = true$\r\n\t\t\t\t if NCRChg = true$ then\r\n\t\t\t\t Void = set_property( @window, '@NCRMustSave', true$ )\r\n\t\t\t\t end\r\n\t\t\t end\r\n\t\t\tend\r\n\t\tend\r\n\tend \r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'There are no rejects!'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/LAST_WFR_CI_GROUP.MENU.EDIT.TWA.json b/LSL2/OIEVENT/MENU/LAST_WFR_CI_GROUP.MENU.EDIT.TWA.json new file mode 100644 index 0000000..a8c3247 --- /dev/null +++ b/LSL2/OIEVENT/MENU/LAST_WFR_CI_GROUP.MENU.EDIT.TWA.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, function, msg, repository, dialog_box\r\n$insert msg_equates\r\n$insert popup_equates\r\n$insert logical\r\n\r\n\r\n\r\nTWCols = 'TW_PPLUS/TW_PMINUS/TW_NPLUS/TW_NMINUS/TW_PROD/TW_RECLAIM'\r\nTWAcctPos = '1,7,13,19,25,31,37,43,49/2,8,14,20,26,32,38,44,50/3,9,15,21,27,33,39,45,51/4,10,16,22,28,34,40,46,52/5,11,17,23,29,35,41,47,53/6,12,18,24,30,36,42,48,54'\r\nconvert '/' to @fm in TWCols\r\nconvert '/' to @fm in TWAcctPos\r\nconvert ',' to @vm in TWAcctPos\r\nPopId = entid( @appid<1>, 'POPUP', '', 'RDS_TW_ACCT_OPTS' )\r\nOverRide = ''\r\nDisplay = ''\r\nif .tw_pplus->text then\r\n Display<1,-1> = 'P Plus':@tm:'TW_PPLUS'\r\nend\r\nif .tw_pminus->text then\r\n Display<1,-1> = 'P Minus':@tm:'TW_PMINUS'\r\nend\r\nif .tw_nplus->text then\r\n Display<1,-1> = 'N Plus':@tm:'TW_NPLUS'\r\nend\r\nif .tw_nminus->text then\r\n Display<1,-1> = 'N Minus':@tm:'TW_NMINUS'\r\nend\r\nif .tw_prod->text then\r\n Display<1,-1> = 'Product':@tm:'TW_PROD'\r\nend\r\nif .tw_reclaim->text then\r\n Display<1,-1> = 'Reclaim':@tm:'TW_RECLAIM'\r\nend\r\nif Display then\r\n\tOverRide = Display\r\n\tTWCol = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif TWCol then\r\n\t locate TWCol in TWCols using @fm setting Fpos then\r\n \tCurTW = get_property( @window:'.':TWCols, 'TEXT' )+0\r\n\t\t TWInfo = .tw_info->array\r\n\t\t ParamToPass = TWCol\r\n\t\t convert '_' to ' ' in ParamToPass\r\n\t HoldTW = TWInfo>\r\n\t HoldCode = TWInfo>\r\n HoldTool = TWInfo>\r\n\t HoldThick = TWInfo>\r\n\t HoldRes = TWInfo>\r\n\t HoldConc = TWInfo>\r\n\t HoldStress = TWInfo>\r\n\t HoldTrans = TWInfo>\r\n\t HoldRHO = TWInfo>\r\n\t HoldAll = HoldTW:HoldCode:HoldTool:HoldThick:HoldRes:HoldConc:HoldStress:HoldTrans:HoldRHO\r\n\t ParamToPass := '*':CurTW\r\n\t ParamToPass := '*':HoldTW\r\n\t\t ParamToPass := '*':HoldCode\r\n\t\t ParamToPass := '*':HoldTool\r\n\t\t ParamToPass := '*':HoldThick\r\n\t\t ParamToPass := '*':HoldRes\r\n\t\t ParamToPass := '*':HoldConc\r\n\t\t ParamToPass := '*':HoldStress\r\n\t\t ParamToPass := '*':HoldTrans\t\t \r\n\t\t ParamToPass := '*':HoldRHO\r\n\t\t RetVal = dialog_box( 'RDS_TW', @window, ParamToPass )\r\n\t\t if RetVal <> 'CANCEL' then\r\n\t\t RetCnt = RetVal<1>\r\n\t\t RetCode = RetVal<2>\r\n\t\t RetTool = RetVal<3>\r\n\t\t RetThick = RetVal<4>\r\n\t\t RetRes = RetVal<5>\r\n\t\t RetConc = RetVal<6>\r\n\t\t RetStress = RetVal<7>\r\n\t\t RetTrans = RetVal<8>\r\n\t\t RetRHO = RetVal<9>\r\n\t\t All = RetCnt:RetCode:RetTool:RetThick:RetRes:RetConc:RetStress:RetTrans:RetRHO\r\n\t\t if All <> HoldAll then\r\n\t\t\t TWInfo> = RetCnt\r\n\t\t\t TWInfo> = RetCode\r\n\t\t\t TWInfo> = RetTool\r\n\t\t\t TWInfo> = RetThick\r\n\t\t\t TWInfo> = RetRes\r\n\t\t\t TWInfo> = RetConc\r\n\t\t\t TWInfo> = RetStress\r\n\t\t\t TWInfo> = RetTrans\r\n\t\t\t TWInfo> = RetRHO\r\n\t\t\t .tw_info->array = TWInfo\r\n \t\t\t @@window->savewarn = true$\r\n\t\t\t end\r\n\t\t\tend\r\n\t\tend\r\n\tend \r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'There are no test wafers!'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/LAST_WFR_CI_GROUP.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/LAST_WFR_CI_GROUP.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..60da417 --- /dev/null +++ b/LSL2/OIEVENT/MENU/LAST_WFR_CI_GROUP.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = rds_comm( 'SEND_MESSAGE' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/LSL_MAIN2.MENU.ADMINISTRATION.EXPORTS.json b/LSL2/OIEVENT/MENU/LSL_MAIN2.MENU.ADMINISTRATION.EXPORTS.json new file mode 100644 index 0000000..2414b34 --- /dev/null +++ b/LSL2/OIEVENT/MENU/LSL_MAIN2.MENU.ADMINISTRATION.EXPORTS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function start_window, send_event\r\n\r\nVoid = send_event( 'EXPORT3', 'CLOSE' ) ;* INCASE IT IS STILL OPEN FROM A SYSTEM EXPORT\r\nVoid = start_window( 'EXPORT3', 'LSL_MAIN2', '*CENTER', '', '' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/LSL_MAIN2.MENU.REACT_STAT.json b/LSL2/OIEVENT/MENU/LSL_MAIN2.MENU.REACT_STAT.json new file mode 100644 index 0000000..2606291 --- /dev/null +++ b/LSL2/OIEVENT/MENU/LSL_MAIN2.MENU.REACT_STAT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Start_Window\r\n\r\nvoid = Start_Window('REACT_STATUS_EVEN',@WINDOW,'')\r\nvoid = Start_Window('REACT_STATUS_ODD',@WINDOW,'')\r\n\r\nvoid = Start_Window('TOOL_STATUS',@WINDOW,'')\r\n\r\n\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/LSL_MAIN2.MENU.WINDOWS.PRODUCTION.EMPLOYEE_BADGE.json b/LSL2/OIEVENT/MENU/LSL_MAIN2.MENU.WINDOWS.PRODUCTION.EMPLOYEE_BADGE.json new file mode 100644 index 0000000..5c0e3ff --- /dev/null +++ b/LSL2/OIEVENT/MENU/LSL_MAIN2.MENU.WINDOWS.PRODUCTION.EMPLOYEE_BADGE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE subroutine Print_Barcode_Label, ErrMsg\r\nDECLARE function Popup\r\n\r\nUserIDs = Popup(@WINDOW,TypeOver,'USER_ID')\t;* Popup uses active select list created with MAKE.LIST\r\n\r\nIF UserIDs = '' THEN\r\n\tErrMsg('No users selected...')\r\n\tRETURN\r\nEND\r\n\r\nUserCnt = COUNT(UserIDs,@VM) + (UserIDs NE '')\r\n\r\n\r\nIDList = ''\r\nFOR I = 1 TO UserCnt\r\n\tUserID = UserIDs<1,I>\r\nNEXT I\r\n\r\nPrint_Barcode_Label ('EmployeeBadge', UserIDs)\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/LSL_MAIN2.MENU.WINDOWS.PRODUCTION.RSCHED.json b/LSL2/OIEVENT/MENU/LSL_MAIN2.MENU.WINDOWS.PRODUCTION.RSCHED.json new file mode 100644 index 0000000..978d2c5 --- /dev/null +++ b/LSL2/OIEVENT/MENU/LSL_MAIN2.MENU.WINDOWS.PRODUCTION.RSCHED.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, start_window\r\n$insert msg_equates\r\n\r\nVoid = start_window( 'WO_MAST_SCHED', @window, '*CENTER', '', '' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/NCR.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/NCR.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..f1e87df --- /dev/null +++ b/LSL2/OIEVENT/MENU/NCR.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE Function Get_Property, RowExists, Msg, Dialog_Box, NextKey\r\nDECLARE SUBROUTINE Start_Window, obj_AppWindow\r\n\r\n$INSERT Msg_Equates\r\n\r\nNCRNo = Get_Property(@WINDOW:'.NCR_NO','DEFPROP')\r\n\r\nIF NCRNo NE '' THEN\r\n\tIF RowExists( 'NCR', NCRNo ) THEN\r\n\t\tQbf = Get_Property( @WINDOW, 'QBFLIST' )\r\n\t\tIF Qbf THEN\r\n\t\t\tCONVERT @FM TO @VM IN Qbf\r\n\t\tEND ELSE\r\n\t\t\tQbf = ''\r\n\t\tEND\r\n\t\t\r\n NoteID = NextKey('NOTES')\r\n obj_AppWindow('ViewRelated','NOTE_MESSAGE':@RM:NoteID:@RM:'NCR':@FM:NCRNo)\r\n \r\n\tEND ELSE\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo = 'You must save this NCR first...' \r\n\t\tMsgInfo = 'H'\r\n\t\tVoid = msg( '', MsgInfo )\r\n\tEND\r\nEND ELSE\r\n\tMsgInfo = ''\r\n\tMsgInfo = 'You must have an NCR present...' \r\n\tMsgInfo = 'H'\r\n\tVoid = msg( '', MsgInfo )\r\nEND\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/NDA.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/NDA.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..a0e3963 --- /dev/null +++ b/LSL2/OIEVENT/MENU/NDA.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nNDAID = .nda_id->text\r\nif NDAID then\r\n if rowexists( 'NDA', NDAID ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'NDA*':NDAID:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this NDA first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a NDA present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/NDW_MAIN.MENU.WINDOWS.PRODUCTION.EMPLOYEE_BADGE.json b/LSL2/OIEVENT/MENU/NDW_MAIN.MENU.WINDOWS.PRODUCTION.EMPLOYEE_BADGE.json new file mode 100644 index 0000000..5c0e3ff --- /dev/null +++ b/LSL2/OIEVENT/MENU/NDW_MAIN.MENU.WINDOWS.PRODUCTION.EMPLOYEE_BADGE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE subroutine Print_Barcode_Label, ErrMsg\r\nDECLARE function Popup\r\n\r\nUserIDs = Popup(@WINDOW,TypeOver,'USER_ID')\t;* Popup uses active select list created with MAKE.LIST\r\n\r\nIF UserIDs = '' THEN\r\n\tErrMsg('No users selected...')\r\n\tRETURN\r\nEND\r\n\r\nUserCnt = COUNT(UserIDs,@VM) + (UserIDs NE '')\r\n\r\n\r\nIDList = ''\r\nFOR I = 1 TO UserCnt\r\n\tUserID = UserIDs<1,I>\r\nNEXT I\r\n\r\nPrint_Barcode_Label ('EmployeeBadge', UserIDs)\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/NDW_MAIN_BACKUP.MENU.WINDOWS.PRODUCTION.EMPLOYEE_BADGE.json b/LSL2/OIEVENT/MENU/NDW_MAIN_BACKUP.MENU.WINDOWS.PRODUCTION.EMPLOYEE_BADGE.json new file mode 100644 index 0000000..5c0e3ff --- /dev/null +++ b/LSL2/OIEVENT/MENU/NDW_MAIN_BACKUP.MENU.WINDOWS.PRODUCTION.EMPLOYEE_BADGE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE subroutine Print_Barcode_Label, ErrMsg\r\nDECLARE function Popup\r\n\r\nUserIDs = Popup(@WINDOW,TypeOver,'USER_ID')\t;* Popup uses active select list created with MAKE.LIST\r\n\r\nIF UserIDs = '' THEN\r\n\tErrMsg('No users selected...')\r\n\tRETURN\r\nEND\r\n\r\nUserCnt = COUNT(UserIDs,@VM) + (UserIDs NE '')\r\n\r\n\r\nIDList = ''\r\nFOR I = 1 TO UserCnt\r\n\tUserID = UserIDs<1,I>\r\nNEXT I\r\n\r\nPrint_Barcode_Label ('EmployeeBadge', UserIDs)\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/NDW_MAIN_BACKUP_2.MENU.WINDOWS.PRODUCTION.EMPLOYEE_BADGE.json b/LSL2/OIEVENT/MENU/NDW_MAIN_BACKUP_2.MENU.WINDOWS.PRODUCTION.EMPLOYEE_BADGE.json new file mode 100644 index 0000000..5c0e3ff --- /dev/null +++ b/LSL2/OIEVENT/MENU/NDW_MAIN_BACKUP_2.MENU.WINDOWS.PRODUCTION.EMPLOYEE_BADGE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE subroutine Print_Barcode_Label, ErrMsg\r\nDECLARE function Popup\r\n\r\nUserIDs = Popup(@WINDOW,TypeOver,'USER_ID')\t;* Popup uses active select list created with MAKE.LIST\r\n\r\nIF UserIDs = '' THEN\r\n\tErrMsg('No users selected...')\r\n\tRETURN\r\nEND\r\n\r\nUserCnt = COUNT(UserIDs,@VM) + (UserIDs NE '')\r\n\r\n\r\nIDList = ''\r\nFOR I = 1 TO UserCnt\r\n\tUserID = UserIDs<1,I>\r\nNEXT I\r\n\r\nPrint_Barcode_Label ('EmployeeBadge', UserIDs)\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/NDW_MAIN_TEST.MENU.WINDOWS.PRODUCTION.EMPLOYEE_BADGE.json b/LSL2/OIEVENT/MENU/NDW_MAIN_TEST.MENU.WINDOWS.PRODUCTION.EMPLOYEE_BADGE.json new file mode 100644 index 0000000..5c0e3ff --- /dev/null +++ b/LSL2/OIEVENT/MENU/NDW_MAIN_TEST.MENU.WINDOWS.PRODUCTION.EMPLOYEE_BADGE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE subroutine Print_Barcode_Label, ErrMsg\r\nDECLARE function Popup\r\n\r\nUserIDs = Popup(@WINDOW,TypeOver,'USER_ID')\t;* Popup uses active select list created with MAKE.LIST\r\n\r\nIF UserIDs = '' THEN\r\n\tErrMsg('No users selected...')\r\n\tRETURN\r\nEND\r\n\r\nUserCnt = COUNT(UserIDs,@VM) + (UserIDs NE '')\r\n\r\n\r\nIDList = ''\r\nFOR I = 1 TO UserCnt\r\n\tUserID = UserIDs<1,I>\r\nNEXT I\r\n\r\nPrint_Barcode_Label ('EmployeeBadge', UserIDs)\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/NOTES.MENU.FILE.EXIT.json b/LSL2/OIEVENT/MENU/NOTES.MENU.FILE.EXIT.json new file mode 100644 index 0000000..e4e0ae9 --- /dev/null +++ b/LSL2/OIEVENT/MENU/NOTES.MENU.FILE.EXIT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, send_event\r\n\r\nif rowexists( 'NOTES', .seq->text ) then\r\n Void = send_event( @window, 'CLEAR', 0, 1, 1, '' )\r\n void = send_event( @window, 'CLOSE' )\r\n return 0\r\nend else\r\n return 1\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/ORDER.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/ORDER.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..7117e58 --- /dev/null +++ b/LSL2/OIEVENT/MENU/ORDER.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nOrderNo = .order_no->text\r\nif OrderNo then\r\n if rowexists( 'ORDER', OrderNo ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'ORDER*':OrderNo:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this order first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have an order present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/PROD_SPEC.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/PROD_SPEC.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..0370d56 --- /dev/null +++ b/LSL2/OIEVENT/MENU/PROD_SPEC.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nPSN = .prod_spec_id->text\r\nif PSN then\r\n if rowexists( 'PROD_SPEC', PSN ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'PROD_SPEC*':PSN:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this PSN first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a PSN present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/PROD_SPEC_BACKUP.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/PROD_SPEC_BACKUP.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..0370d56 --- /dev/null +++ b/LSL2/OIEVENT/MENU/PROD_SPEC_BACKUP.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nPSN = .prod_spec_id->text\r\nif PSN then\r\n if rowexists( 'PROD_SPEC', PSN ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'PROD_SPEC*':PSN:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this PSN first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a PSN present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/PROD_SPEC_JCH.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/PROD_SPEC_JCH.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..0370d56 --- /dev/null +++ b/LSL2/OIEVENT/MENU/PROD_SPEC_JCH.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nPSN = .prod_spec_id->text\r\nif PSN then\r\n if rowexists( 'PROD_SPEC', PSN ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'PROD_SPEC*':PSN:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this PSN first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a PSN present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/PROD_SPEC_JRO.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/PROD_SPEC_JRO.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..0370d56 --- /dev/null +++ b/LSL2/OIEVENT/MENU/PROD_SPEC_JRO.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nPSN = .prod_spec_id->text\r\nif PSN then\r\n if rowexists( 'PROD_SPEC', PSN ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'PROD_SPEC*':PSN:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this PSN first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a PSN present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/PROD_SPEC_SCAN.MENU.PRINT.PRINT_SCANNED_IMAGE.json b/LSL2/OIEVENT/MENU/PROD_SPEC_SCAN.MENU.PRINT.PRINT_SCANNED_IMAGE.json new file mode 100644 index 0000000..557be11 --- /dev/null +++ b/LSL2/OIEVENT/MENU/PROD_SPEC_SCAN.MENU.PRINT.PRINT_SCANNED_IMAGE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function print_scanned_image\r\n\r\nBMP = .bitmap_1->bitmap\r\nVoid = print_scanned_image( BMP )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/QUARTZ_TC_LOG.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/QUARTZ_TC_LOG.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..433af95 --- /dev/null +++ b/LSL2/OIEVENT/MENU/QUARTZ_TC_LOG.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nTCNO = .tc_no->text\r\nif TCNO then\r\n if rowexists( 'QUARTZ_TC_LOG', TCNO ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'QUARTZ_TC_LOG*':TCNO:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this record first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a record present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/QUARTZ_WAND_LOG.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/QUARTZ_WAND_LOG.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..35ab5c1 --- /dev/null +++ b/LSL2/OIEVENT/MENU/QUARTZ_WAND_LOG.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nWandLogNO = .wand_log_no->text\r\nif WandLogNO then\r\n if rowexists( 'QUARTZ_WAND_LOG', WandLogNO ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'QUARTZ_WAND_LOG*':WandLogNO:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this record first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a record present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/QUOTE.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/QUOTE.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..49dd7b5 --- /dev/null +++ b/LSL2/OIEVENT/MENU/QUOTE.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nQuoteNo = .quote_no->text\r\nif QuoteNo then\r\n if rowexists( 'QUOTE', QuoteNo ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'QUOTE*':QuoteNo:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this quote first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a quote present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/QUOTE_OLD.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/QUOTE_OLD.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..49dd7b5 --- /dev/null +++ b/LSL2/OIEVENT/MENU/QUOTE_OLD.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nQuoteNo = .quote_no->text\r\nif QuoteNo then\r\n if rowexists( 'QUOTE', QuoteNo ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'QUOTE*':QuoteNo:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this quote first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a quote present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/QUOTE_SRL.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/QUOTE_SRL.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..61316d0 --- /dev/null +++ b/LSL2/OIEVENT/MENU/QUOTE_SRL.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nQuoteNo = .quote_no->text\r\nif QuoteNo then\r\n if rowexists( 'QUOTE_SRL', QuoteNo ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'QUOTE_SRL*':QuoteNo:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this quote first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a quote present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/RDS.MENU.PRINT.CUSTOMER_RDS.json b/LSL2/OIEVENT/MENU/RDS.MENU.PRINT.CUSTOMER_RDS.json new file mode 100644 index 0000000..6e54d21 --- /dev/null +++ b/LSL2/OIEVENT/MENU/RDS.MENU.PRINT.CUSTOMER_RDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, msg, security_check, test\r\ndeclare function set_printer\r\ndeclare subroutine security_err_msg, print_cust_rds\r\n\r\n$insert msg_equates\r\n$insert security_rights_equ\r\n\r\nif security_check( 'RDS', Print$ ) then\r\n\r\n\tCurId = .rds_no->text\r\n\tIds = CurId\r\n\r\n\tif Ids <> '' then\r\n\t \r\n\t print_cust_rds( Ids, '', '' )\r\n\tend else\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'You must have a Run Data Sheet present.'\r\n\t MsgInfo = '!'\r\n\t Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n security_err_msg( 'RDS', Print$ )\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/RDS.MENU.PRINT.FACTORY_LABELS.json b/LSL2/OIEVENT/MENU/RDS.MENU.PRINT.FACTORY_LABELS.json new file mode 100644 index 0000000..ee9bc8b --- /dev/null +++ b/LSL2/OIEVENT/MENU/RDS.MENU.PRINT.FACTORY_LABELS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function fieldcount, msg, print_cleanroom_labels_thermal, security_check, test\r\ndeclare function set_printer\r\ndeclare subroutine security_err_msg\r\n$insert msg_equates\r\n$insert security_rights_equ\r\n\r\nif security_check( 'RDS', Print$ ) then\r\n\tQbfList = get_property( @window, 'QBFLIST' )\r\n\tCurId = .rds_no->text\r\n\tif QbfList then\r\n\t Ids = QbfList\r\n\tend else\r\n\t Ids = CurId\r\n\tend\r\n\t\r\n\tif Ids <> '' then\r\n\t Void = print_cleanroom_labels_thermal( Ids )\r\n\tend else\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'You must have a Run Data Sheet present.'\r\n\t MsgInfo = '!'\r\n\t Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n security_err_msg( 'RDS', Print$ )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/RDS.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/RDS.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..39325cd --- /dev/null +++ b/LSL2/OIEVENT/MENU/RDS.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box, NextKey\r\nDECLARE SUBROUTINE obj_AppWindow\r\n\r\n$insert msg_equates\r\n\r\nRdsNo = .rds_no->text\r\nif RdsNo then\r\n if rowexists( 'RDS', RdsNo ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n \r\n NoteID = NextKey('NOTES')\r\n obj_AppWindow('ViewRelated','NOTE_MESSAGE':@RM:NoteID:@RM:'RDS':@FM:RdsNo)\r\n \r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this run data sheet first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a run data sheet present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/RDS.MENU.UNLOAD%002FLOAD_EXTRA.SIGNATURE_INFO.json b/LSL2/OIEVENT/MENU/RDS.MENU.UNLOAD%002FLOAD_EXTRA.SIGNATURE_INFO.json new file mode 100644 index 0000000..8467b47 --- /dev/null +++ b/LSL2/OIEVENT/MENU/RDS.MENU.UNLOAD%002FLOAD_EXTRA.SIGNATURE_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box\r\n\r\nVoid = set_property( @window, '@ExSigWrite', 0 )\r\nOrigExSigInfo = get_property( @window, '@ExSigInfo' )\r\nReturnVal = dialog_box( 'RDS_UNLOAD_LOAD_EX', @window, OrigExSigInfo )\r\nif ReturnVal <> 'CANCEL' and ( ReturnVal <> OrigExSigInfo ) then\r\n Void = set_property( @window, '@ExSigInfo', ReturnVal )\r\n Void = set_property( @window, '@ExSigWrite', 1 )\r\n @@window->savewarn = 1\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/RDS_POST_EPI.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/RDS_POST_EPI.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..6ffebd1 --- /dev/null +++ b/LSL2/OIEVENT/MENU/RDS_POST_EPI.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = rds_comm( 'SEND_MESSAGE' )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/RDS_PRE_EPI.MENU.EDIT.SSI_STANDARDS.json b/LSL2/OIEVENT/MENU/RDS_PRE_EPI.MENU.EDIT.SSI_STANDARDS.json new file mode 100644 index 0000000..1eaf26b --- /dev/null +++ b/LSL2/OIEVENT/MENU/RDS_PRE_EPI.MENU.EDIT.SSI_STANDARDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box\r\n\r\nValsToSend = .ssi_standards->array\r\nRetVal = dialog_box( 'RDS_SSI_STDS', @window, ValsToSend )\r\nif RetVal <> 'CANCEL' then\r\n .ssi_standards->array = RetVal\r\n @@window->savewarn = 1\r\nend\t\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/RDS_PRE_EPI.MENU.EDIT.THICKNESS_OVERGROWTH_AVG.json b/LSL2/OIEVENT/MENU/RDS_PRE_EPI.MENU.EDIT.THICKNESS_OVERGROWTH_AVG.json new file mode 100644 index 0000000..7d1f318 --- /dev/null +++ b/LSL2/OIEVENT/MENU/RDS_PRE_EPI.MENU.EDIT.THICKNESS_OVERGROWTH_AVG.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box\r\n\r\nValToSend = .thick_ovr_avg->text\r\nRetVal = dialog_box( 'RDS_THICK_AVG', @window, ValToSend )\r\nif RetVal <> 'CANCEL' then\r\n .thick_ovr_avg->text = RetVal\r\n @@window->savewarn = 1\r\nend\t\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/RDS_PRE_EPI.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/RDS_PRE_EPI.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..60da417 --- /dev/null +++ b/LSL2/OIEVENT/MENU/RDS_PRE_EPI.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = rds_comm( 'SEND_MESSAGE' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/RDS_PRE_EPI_ORG.MENU.EDIT.SSI_STANDARDS.json b/LSL2/OIEVENT/MENU/RDS_PRE_EPI_ORG.MENU.EDIT.SSI_STANDARDS.json new file mode 100644 index 0000000..1eaf26b --- /dev/null +++ b/LSL2/OIEVENT/MENU/RDS_PRE_EPI_ORG.MENU.EDIT.SSI_STANDARDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box\r\n\r\nValsToSend = .ssi_standards->array\r\nRetVal = dialog_box( 'RDS_SSI_STDS', @window, ValsToSend )\r\nif RetVal <> 'CANCEL' then\r\n .ssi_standards->array = RetVal\r\n @@window->savewarn = 1\r\nend\t\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/RDS_PRE_EPI_ORG.MENU.EDIT.THICKNESS_OVERGROWTH_AVG.json b/LSL2/OIEVENT/MENU/RDS_PRE_EPI_ORG.MENU.EDIT.THICKNESS_OVERGROWTH_AVG.json new file mode 100644 index 0000000..7d1f318 --- /dev/null +++ b/LSL2/OIEVENT/MENU/RDS_PRE_EPI_ORG.MENU.EDIT.THICKNESS_OVERGROWTH_AVG.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box\r\n\r\nValToSend = .thick_ovr_avg->text\r\nRetVal = dialog_box( 'RDS_THICK_AVG', @window, ValToSend )\r\nif RetVal <> 'CANCEL' then\r\n .thick_ovr_avg->text = RetVal\r\n @@window->savewarn = 1\r\nend\t\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/RDS_PRE_EPI_ORG.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/RDS_PRE_EPI_ORG.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..60da417 --- /dev/null +++ b/LSL2/OIEVENT/MENU/RDS_PRE_EPI_ORG.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = rds_comm( 'SEND_MESSAGE' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/RDS_SRP.MENU.PRINT.PRINT_SRP.json b/LSL2/OIEVENT/MENU/RDS_SRP.MENU.PRINT.PRINT_SRP.json new file mode 100644 index 0000000..9baf8af --- /dev/null +++ b/LSL2/OIEVENT/MENU/RDS_SRP.MENU.PRINT.PRINT_SRP.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function print_srp\r\n\r\nVoid = set_property( @window, '@ProfileNum', ProfileNum )\r\nRDSId = get_property( @window, '@RDSID' )\r\nBMP = .bitmap_1->bitmap\r\nVoid = print_srp( BMP )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/RDS_UNLOAD.MENU.EDIT.REJECT_ACCOUNTABILITY.json b/LSL2/OIEVENT/MENU/RDS_UNLOAD.MENU.EDIT.REJECT_ACCOUNTABILITY.json new file mode 100644 index 0000000..64a36e1 --- /dev/null +++ b/LSL2/OIEVENT/MENU/RDS_UNLOAD.MENU.EDIT.REJECT_ACCOUNTABILITY.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, function, msg, repository, dialog_box\r\n$insert msg_equates\r\n$insert popup_equates\r\n$insert logical\r\n\r\nRdsNo = .rds_no->text\r\nRejCols = 'LSL_PRE_EPI_REJ/LSL_POST_EPI_REJ/CUST_PRE_EPI_REJ/CUST_POST_EPI_REJ'\r\nRejAcctPos = '1,5,9,13/2,6,10,14/3,7,11,15/4,8,12,16'\r\nRejFields = 'L_PRE_REJ_CNT/L_POST_REJ_CNT/C_PRE_REJ_CNT/C_POST_REJ_CNT'\r\nconvert '/' to @fm in RejCols\r\nconvert '/' to @fm in RejAcctPos\r\nconvert ',' to @vm in RejAcctPos\r\nconvert '/' to @fm in RejFields\r\nPopId = entid( @appid<1>, 'POPUP', '', 'RDS_REJ_ACCT_OPTS' )\r\nOverRide = ''\r\nDisplay = ''\r\nif .lsl_pre_epi_rej->text then\r\n Display<1,-1> = 'Epitronics Pre Epi Rejects':@tm:'LSL_PRE_EPI_REJ'\r\nend\r\nif .lsl_post_epi_rej->text then\r\n Display<1,-1> = 'Epitronics Post Epi Rejects':@tm:'LSL_POST_EPI_REJ'\r\nend\r\nif .cust_pre_epi_rej->text then\r\n Display<1,-1> = 'Epitronics Pre Epi Rejects':@tm:'CUST_PRE_EPI_REJ'\r\nend\r\nif .cust_post_epi_rej->text then\r\n Display<1,-1> = 'Epitronics Post Epi Rejects':@tm:'CUST_POST_EPI_REJ'\r\nend\r\nif Display then\r\n\tOverRide = Display\r\n\tRejCol = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif RejCol then\r\n\t locate RejCol in RejCols using @fm setting Fpos then\r\n\t RejField = RejFields\r\n \tCurRej = get_property( @window:'.':RejCols, 'TEXT' )+0\r\n\t\t RejectInfo = .reject_info->array\r\n\t\t ParamToPass = RejCol\r\n\t\t convert '_' to ' ' in ParamToPass\r\n\t HoldRej = RejectInfo>\r\n\t HoldLoss = RejectInfo>\r\n\t HoldAc = RejectInfo>\r\n\t HoldNCR = RejectInfo>\t \r\n\t HoldAll = HoldRej:HoldLoss:HoldAc:HoldNCR\r\n\t\t ParamToPass := '*':CurRej\r\n\t\t ParamToPass := '*':HoldRej\r\n\t\t ParamToPass := '*':HoldLoss\r\n\t\t ParamToPass := '*':HoldAc\r\n\t\t ParamToPass := '*':HoldNCR\r\n \t ParamToPass := '*':RdsNo\r\n\t\t ParamToPass := '*':RejField\r\n NCRMustSave = get_property( @window, '@NCRMustSave' ) \r\n\t\t RetVal = dialog_box( 'RDS_REJECTS', @window, ParamToPass:char(245):NCRMustSave )\r\n\t\t if RetVal <> 'CANCEL' then\r\n\t\t NCRChg = field( RetVal, char(245), 2 )\r\n * NEED NCRCHG HERE CAUSE THE USER MAY TRY TO LEAVE THIS RDS WITHOUT SAVING\r\n * THE PURPOSE OF THIS FLAG IS TO FORCE A SAVE IF AN NCR WAS AFFECTED\r\n\t RetVal = field( RetVal, char(245), 1 )\r\n\t\t\t RetRej = RetVal<1>\r\n\t\t\t RetLoss = RetVal<2>\r\n\t\t\t RetAC = RetVal<4>\r\n\t\t\t RetNCR = RetVal<6>\r\n\t\t\t All = RetRej:RetLoss:RetAC:RetNCR\r\n\t\t\t if All <> HoldAll then\r\n\t\t\t\t RejectInfo> = RetRej\r\n\t\t\t\t RejectInfo> = RetLoss\r\n\t\t\t\t RejectInfo> = RetAC\r\n\t\t\t\t RejectInfo> = RetNCR\r\n\t\t\t\t .reject_info->array = RejectInfo\r\n\t\t\t\t @@window->savewarn = true$\r\n\t\t\t\t if NCRChg = true$ then\r\n\t\t\t\t Void = set_property( @window, '@NCRMustSave', true$ )\r\n\t\t\t\t end\r\n\t\t\t end\r\n\t\t\tend\r\n\t\tend\r\n\tend \r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'There are no rejects!'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/RDS_UNLOAD.MENU.EDIT.TWA.json b/LSL2/OIEVENT/MENU/RDS_UNLOAD.MENU.EDIT.TWA.json new file mode 100644 index 0000000..a8c3247 --- /dev/null +++ b/LSL2/OIEVENT/MENU/RDS_UNLOAD.MENU.EDIT.TWA.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, function, msg, repository, dialog_box\r\n$insert msg_equates\r\n$insert popup_equates\r\n$insert logical\r\n\r\n\r\n\r\nTWCols = 'TW_PPLUS/TW_PMINUS/TW_NPLUS/TW_NMINUS/TW_PROD/TW_RECLAIM'\r\nTWAcctPos = '1,7,13,19,25,31,37,43,49/2,8,14,20,26,32,38,44,50/3,9,15,21,27,33,39,45,51/4,10,16,22,28,34,40,46,52/5,11,17,23,29,35,41,47,53/6,12,18,24,30,36,42,48,54'\r\nconvert '/' to @fm in TWCols\r\nconvert '/' to @fm in TWAcctPos\r\nconvert ',' to @vm in TWAcctPos\r\nPopId = entid( @appid<1>, 'POPUP', '', 'RDS_TW_ACCT_OPTS' )\r\nOverRide = ''\r\nDisplay = ''\r\nif .tw_pplus->text then\r\n Display<1,-1> = 'P Plus':@tm:'TW_PPLUS'\r\nend\r\nif .tw_pminus->text then\r\n Display<1,-1> = 'P Minus':@tm:'TW_PMINUS'\r\nend\r\nif .tw_nplus->text then\r\n Display<1,-1> = 'N Plus':@tm:'TW_NPLUS'\r\nend\r\nif .tw_nminus->text then\r\n Display<1,-1> = 'N Minus':@tm:'TW_NMINUS'\r\nend\r\nif .tw_prod->text then\r\n Display<1,-1> = 'Product':@tm:'TW_PROD'\r\nend\r\nif .tw_reclaim->text then\r\n Display<1,-1> = 'Reclaim':@tm:'TW_RECLAIM'\r\nend\r\nif Display then\r\n\tOverRide = Display\r\n\tTWCol = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif TWCol then\r\n\t locate TWCol in TWCols using @fm setting Fpos then\r\n \tCurTW = get_property( @window:'.':TWCols, 'TEXT' )+0\r\n\t\t TWInfo = .tw_info->array\r\n\t\t ParamToPass = TWCol\r\n\t\t convert '_' to ' ' in ParamToPass\r\n\t HoldTW = TWInfo>\r\n\t HoldCode = TWInfo>\r\n HoldTool = TWInfo>\r\n\t HoldThick = TWInfo>\r\n\t HoldRes = TWInfo>\r\n\t HoldConc = TWInfo>\r\n\t HoldStress = TWInfo>\r\n\t HoldTrans = TWInfo>\r\n\t HoldRHO = TWInfo>\r\n\t HoldAll = HoldTW:HoldCode:HoldTool:HoldThick:HoldRes:HoldConc:HoldStress:HoldTrans:HoldRHO\r\n\t ParamToPass := '*':CurTW\r\n\t ParamToPass := '*':HoldTW\r\n\t\t ParamToPass := '*':HoldCode\r\n\t\t ParamToPass := '*':HoldTool\r\n\t\t ParamToPass := '*':HoldThick\r\n\t\t ParamToPass := '*':HoldRes\r\n\t\t ParamToPass := '*':HoldConc\r\n\t\t ParamToPass := '*':HoldStress\r\n\t\t ParamToPass := '*':HoldTrans\t\t \r\n\t\t ParamToPass := '*':HoldRHO\r\n\t\t RetVal = dialog_box( 'RDS_TW', @window, ParamToPass )\r\n\t\t if RetVal <> 'CANCEL' then\r\n\t\t RetCnt = RetVal<1>\r\n\t\t RetCode = RetVal<2>\r\n\t\t RetTool = RetVal<3>\r\n\t\t RetThick = RetVal<4>\r\n\t\t RetRes = RetVal<5>\r\n\t\t RetConc = RetVal<6>\r\n\t\t RetStress = RetVal<7>\r\n\t\t RetTrans = RetVal<8>\r\n\t\t RetRHO = RetVal<9>\r\n\t\t All = RetCnt:RetCode:RetTool:RetThick:RetRes:RetConc:RetStress:RetTrans:RetRHO\r\n\t\t if All <> HoldAll then\r\n\t\t\t TWInfo> = RetCnt\r\n\t\t\t TWInfo> = RetCode\r\n\t\t\t TWInfo> = RetTool\r\n\t\t\t TWInfo> = RetThick\r\n\t\t\t TWInfo> = RetRes\r\n\t\t\t TWInfo> = RetConc\r\n\t\t\t TWInfo> = RetStress\r\n\t\t\t TWInfo> = RetTrans\r\n\t\t\t TWInfo> = RetRHO\r\n\t\t\t .tw_info->array = TWInfo\r\n \t\t\t @@window->savewarn = true$\r\n\t\t\t end\r\n\t\t\tend\r\n\t\tend\r\n\tend \r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'There are no test wafers!'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/RDS_UNLOAD.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/RDS_UNLOAD.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..60da417 --- /dev/null +++ b/LSL2/OIEVENT/MENU/RDS_UNLOAD.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = rds_comm( 'SEND_MESSAGE' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/REACTOR_LOG.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/REACTOR_LOG.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..480bddc --- /dev/null +++ b/LSL2/OIEVENT/MENU/REACTOR_LOG.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nRLNo = .reactor_log_no->text\r\nif RLNo then\r\n if rowexists( 'REACTOR_LOG', RLNo ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'REACTOR_LOG*':RLNo:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this Reactor Log record first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a Reactor Log record present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/REACTOR_LOG_AREV.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/REACTOR_LOG_AREV.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..480bddc --- /dev/null +++ b/LSL2/OIEVENT/MENU/REACTOR_LOG_AREV.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nRLNo = .reactor_log_no->text\r\nif RLNo then\r\n if rowexists( 'REACTOR_LOG', RLNo ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'REACTOR_LOG*':RLNo:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this Reactor Log record first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a Reactor Log record present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/SCHEDULE.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/SCHEDULE.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..b1a7573 --- /dev/null +++ b/LSL2/OIEVENT/MENU/SCHEDULE.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nScheduleNo = .schedule_no->text\r\nif ScheduleNo then\r\n if rowexists( 'SCHEDULE', ScheduleNo ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'SCHEDULE*':ScheduleNo:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this schedule first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a schedule present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/SCHEDULE_SRL.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/SCHEDULE_SRL.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..260cdfc --- /dev/null +++ b/LSL2/OIEVENT/MENU/SCHEDULE_SRL.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nScheduleNo = .schedule_no->text\r\nif ScheduleNo then\r\n if rowexists( 'SCHEDULE_SRL', ScheduleNo ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'SCHEDULE_SRL*':ScheduleNo:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this schedule first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a schedule present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/SPC_CLEAN_HF.MENU.MESSAGE.MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/SPC_CLEAN_HF.MENU.MESSAGE.MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..8caa54b --- /dev/null +++ b/LSL2/OIEVENT/MENU/SPC_CLEAN_HF.MENU.MESSAGE.MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nControlID = .control_id->text\r\nif ControlID then\r\n if rowexists( 'SPC_CLEAN_HF', ControlID ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'SPC_CLEAN_HF*':ControlID:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this HF SPC Control entry first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a HF Control entry present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/SPC_CLEAN_HF_AKRION.MENU.MESSAGE.MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/SPC_CLEAN_HF_AKRION.MENU.MESSAGE.MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..b01211b --- /dev/null +++ b/LSL2/OIEVENT/MENU/SPC_CLEAN_HF_AKRION.MENU.MESSAGE.MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nControlID = .control_id->text\r\nif ControlID then\r\n if rowexists( 'SPC_CLEAN_HF_AKRION', ControlID ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'SPC_CLEAN_HF_AKRION*':ControlID:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this Akrion HF SPC Control entry first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a Akrion HF Control entry present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/SPC_CLEAN_HF_ETCH.MENU.MESSAGE.MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/SPC_CLEAN_HF_ETCH.MENU.MESSAGE.MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..49a5b5b --- /dev/null +++ b/LSL2/OIEVENT/MENU/SPC_CLEAN_HF_ETCH.MENU.MESSAGE.MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nControlID = .control_id->text\r\nif ControlID then\r\n if rowexists( 'SPC_CLEAN_HF_ETCH', ControlID ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'SPC_CLEAN_HF_ETCH*':ControlID:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this HF Etch SPC Control entry first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a HF Etch Control entry present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/SPC_CLEAN_HF_ETCH_AKRION.MENU.MESSAGE.MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/SPC_CLEAN_HF_ETCH_AKRION.MENU.MESSAGE.MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..67fad5b --- /dev/null +++ b/LSL2/OIEVENT/MENU/SPC_CLEAN_HF_ETCH_AKRION.MENU.MESSAGE.MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nControlID = .control_id->text\r\nif ControlID then\r\n if rowexists( 'SPC_CLEAN_HF_ETCH_AKRION', ControlID ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'SPC_CLEAN_HF_ETCH_AKRION*':ControlID:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this Akrion HF Etch SPC Control entry first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have an Akrion HF Etch Control entry present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/SPC_CLEAN_SC1.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/SPC_CLEAN_SC1.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..390f3fb --- /dev/null +++ b/LSL2/OIEVENT/MENU/SPC_CLEAN_SC1.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nControlID = .control_id->text\r\nif ControlID then\r\n if rowexists( 'SPC_CLEAN_SC1', ControlID ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'SPC_CLEAN_SC1*':ControlID:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this SC1 SPC Control entry first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a SC1 Control entry present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/SPC_CLEAN_SRD.MENU.SEND_MESSAGE.MESSAMESSAGE_W%002FATTACHMEN.json b/LSL2/OIEVENT/MENU/SPC_CLEAN_SRD.MENU.SEND_MESSAGE.MESSAMESSAGE_W%002FATTACHMEN.json new file mode 100644 index 0000000..8fd80da --- /dev/null +++ b/LSL2/OIEVENT/MENU/SPC_CLEAN_SRD.MENU.SEND_MESSAGE.MESSAMESSAGE_W%002FATTACHMEN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nControlID = .control_id->text\r\nif ControlID then\r\n if rowexists( 'SPC_CLEAN_SRD', ControlID ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'SPC_CLEAN_SRD*':ControlID:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this SRD SPC Control entry first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a SRD SPC Control entry present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/SPC_EVAL_4PP.MENU.MESSAGE.MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/SPC_EVAL_4PP.MENU.MESSAGE.MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..e2fb44f --- /dev/null +++ b/LSL2/OIEVENT/MENU/SPC_EVAL_4PP.MENU.MESSAGE.MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nControlID = .control_id->text\r\nif ControlID then\r\n if rowexists( 'SPC_EVAL_4PP', ControlID ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'SPC_EVAL_4PP*':ControlID:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this 4PP Control entry first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a 4PP Control entry present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/SPC_EVAL_ADE.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/SPC_EVAL_ADE.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..127c3d6 --- /dev/null +++ b/LSL2/OIEVENT/MENU/SPC_EVAL_ADE.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nControlID = .control_id->text\r\nif ControlID then\r\n if rowexists( 'SPC_EVAL_FTIR', ControlID ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'SPC_EVAL_FTIR*':ControlID:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this FTIR Control entry first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a FTIR Control entry present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/SPC_EVAL_FTIR.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/SPC_EVAL_FTIR.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..127c3d6 --- /dev/null +++ b/LSL2/OIEVENT/MENU/SPC_EVAL_FTIR.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nControlID = .control_id->text\r\nif ControlID then\r\n if rowexists( 'SPC_EVAL_FTIR', ControlID ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'SPC_EVAL_FTIR*':ControlID:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this FTIR Control entry first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a FTIR Control entry present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/SPC_REACTOR_PARTICLES.MENU.SEND_MESSAGE.MESSAGE_WA.json b/LSL2/OIEVENT/MENU/SPC_REACTOR_PARTICLES.MENU.SEND_MESSAGE.MESSAGE_WA.json new file mode 100644 index 0000000..64ccb91 --- /dev/null +++ b/LSL2/OIEVENT/MENU/SPC_REACTOR_PARTICLES.MENU.SEND_MESSAGE.MESSAGE_WA.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nControlID = .control_id->text\r\nif ControlID then\r\n if rowexists( 'SPC_REACTOR_PARTICLES', ControlID ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'SPC_REACTOR_PARTICLES*':ControlID:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this Reactor Particle SPC Control entry first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a Reactor Particle SPC Control entry present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/SPC_WAFER_ETCH.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/SPC_WAFER_ETCH.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..e3e548d --- /dev/null +++ b/LSL2/OIEVENT/MENU/SPC_WAFER_ETCH.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nControlID = .control_id->text\r\nif ControlID then\r\n if rowexists( 'SPC_WAFER_ETCH', ControlID ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'SPC_WAFER_ETCH*':ControlID:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this Wafer Etch SPC Control entry first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a Wafer Etch Control entry present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/SRP_COC_RESULTS.MENU.MESSAGE.MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/SRP_COC_RESULTS.MENU.MESSAGE.MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..baa6fba --- /dev/null +++ b/LSL2/OIEVENT/MENU/SRP_COC_RESULTS.MENU.MESSAGE.MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nControlID = .control_id->text\r\nif ControlID then\r\n if rowexists( 'SRP_COC_RESULTS', ControlID ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'SRP_COC_RESULTS*':ControlID:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this SRP COC entry first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a SRP COC entry present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/MENU/WAFER_INV.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json b/LSL2/OIEVENT/MENU/WAFER_INV.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json new file mode 100644 index 0000000..bde7a98 --- /dev/null +++ b/LSL2/OIEVENT/MENU/WAFER_INV.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nWafInvNo = .waf_inv_no->text\r\nif WafInvNo then\r\n if rowexists( 'WAFER_INV', WafInvNo ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'WAFER_INV*':WafInvNo:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must save this wafer inventory first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'You must have a wafer inventory record present...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OMNIEVENT/ANNUAL_CONTRACTS.QUOTE_NUM.json b/LSL2/OIEVENT/OMNIEVENT/ANNUAL_CONTRACTS.QUOTE_NUM.json new file mode 100644 index 0000000..ab1a5d2 --- /dev/null +++ b/LSL2/OIEVENT/OMNIEVENT/ANNUAL_CONTRACTS.QUOTE_NUM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine record_lock\r\ndeclare function msg\r\n$insert logical\r\n$insert quote_equ\r\n$insert msg_equates\r\n\r\nListId = 'QUOTE_ID*':@station\r\nQuoteKey = xlate( 'SYSLISTS', ListId, 1, 'X' )\r\nif QuoteKey then\r\n * check to see if open for this customer\r\n QuoteRec = xlate( 'QUOTE', QuoteKey, '', 'X' )\r\n CustNo = .cust_no->text\r\n WrongCust = false$\r\n ErrMsg = ''\r\n if QuoteRec <> CustNo then\r\n ErrMsg:= 'Quote ':QuoteKey:' is a quote for ':oconv( QuoteRec, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n ErrMsg:= ' not ':oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n WrongCust = true$\r\n end\r\n WrongStat = false$\r\n if QuoteRec <> 'O' then\r\n if ErrMsg then\r\n ErrMsg:= ' and is not OPEN'\r\n end else\r\n ErrMsg:= 'Quote ':QuoteKey:' is not OPEN'\r\n end\r\n WrongStat = true$\r\n end\r\n if ( WrongCust = false$ ) and ( WrongStat = false$ ) then\r\n .quote_num->text = QuoteKey\r\n\t open 'SYSLISTS' to SysListsTable else\r\n\t Void = msg( '', 'Unable to open SYSLISTS...' )\r\n\t return 0\r\n\t end\r\n\t record_lock( SysListsTable, 'SysLists', ListId )\r\n\t delete SysListsTable, ListId else\r\n\t Void = msg( '', 'Unable to delete ':ListId:' from SYSLISTS...' )\r\n\t return 0\r\n\t end\r\n\t unlock SysListsTable, ListId else\r\n\t Void = msg( '', 'Unable to unlock SYSLISTS ':ListId )\r\n\t return 0\r\n\t end\r\n\tend else\r\n\t MsgInfo = ''\r\n\t MsgInfo = ErrMsg\r\n\t MsgInfo = '!'\r\n\t Void = msg( '', MsgInfo )\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OMNIEVENT/CAR.PROD_SPEC_ID.json b/LSL2/OIEVENT/OMNIEVENT/CAR.PROD_SPEC_ID.json new file mode 100644 index 0000000..03b8336 --- /dev/null +++ b/LSL2/OIEVENT/OMNIEVENT/CAR.PROD_SPEC_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine record_lock\r\ndeclare function msg\r\n$insert logical\r\n$insert prod_spec_equ\r\n$insert msg_equates\r\n\r\nListId = 'PROD_SPEC*':@station\r\nProdSpecKey = xlate( 'SYSLISTS', ListId, 1, 'X' )\r\nif ProdSpecKey then\r\n * check to see if released for this customer\r\n ProdSpecRec = xlate( 'PROD_SPEC', ProdSpecKey, '', 'X' )\r\n CustNo = .cust_no->text\r\n WrongCust = false$\r\n ErrMsg = ''\r\n if ProdSpecRec <> CustNo then\r\n ErrMsg:= 'Product Specification ':ProdSpecKey:' is for ':oconv( ProdSpecRec, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n ErrMsg:= ' not ':oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n WrongCust = true$\r\n end\r\n WrongStat = false$\r\n if ProdSpecRec <> 'A' then\r\n if ErrMsg then\r\n ErrMsg:= ' and is not Active'\r\n end else\r\n ErrMsg:= 'Product Specification ':ProdSpecKey:' is not active'\r\n end\r\n WrongStat = true$\r\n end\r\n if ( WrongCust = false$ ) and ( WrongStat = false$ ) then\r\n .prod_spec_id->text = ProdSpecKey\r\n\t open 'SYSLISTS' to SysListsTable else\r\n\t Void = msg( '', 'Unable to open SYSLISTS...' )\r\n\t return 0\r\n\t end\r\n\t record_lock( SysListsTable, 'SysLists', ListId )\r\n\t delete SysListsTable, ListId else\r\n\t Void = msg( '', 'Unable to delete ':ListId:' from SYSLISTS...' )\r\n\t return 0\r\n\t end\r\n\t unlock SysListsTable, ListId else\r\n\t Void = msg( '', 'Unable to unlock SYSLISTS ':ListId )\r\n\t return 0\r\n\t end\r\n\tend else\r\n\t MsgInfo = ''\r\n\t MsgInfo = ErrMsg\r\n\t MsgInfo = '!'\r\n\t Void = msg( '', MsgInfo )\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OMNIEVENT/CAR.QUOTE_NUM.json b/LSL2/OIEVENT/OMNIEVENT/CAR.QUOTE_NUM.json new file mode 100644 index 0000000..233ebd9 --- /dev/null +++ b/LSL2/OIEVENT/OMNIEVENT/CAR.QUOTE_NUM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine record_lock\r\ndeclare function msg\r\n$insert logical\r\n$insert quote_equ\r\n$insert msg_equates\r\n\r\nListId = 'QUOTE_ID*':@station\r\nQuoteKey = xlate( 'SYSLISTS', ListId, 1, 'X' )\r\nif QuoteKey then\r\n * check to see if open for this customer\r\n QuoteRec = xlate( 'QUOTE', QuoteKey, '', 'X' )\r\n CustNo = .cust_no->text\r\n WrongCust = false$\r\n ErrMsg = ''\r\n if QuoteRec <> CustNo then\r\n ErrMsg:= 'Quote ':QuoteKey:' is a quote for ':oconv( QuoteRec, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n ErrMsg:= ' not ':oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n WrongCust = true$\r\n end\r\n WrongStat = false$\r\n *if QuoteRec <> 'O' then\r\n * if ErrMsg then\r\n * ErrMsg:= ' and is not OPEN'\r\n * end else\r\n * ErrMsg:= 'Quote ':QuoteKey:' is not OPEN'\r\n * end\r\n * WrongStat = true$\r\n *end\r\n if ( WrongCust = false$ ) and ( WrongStat = false$ ) then\r\n .quote_num->text = QuoteKey\r\n\t open 'SYSLISTS' to SysListsTable else\r\n\t Void = msg( '', 'Unable to open SYSLISTS...' )\r\n\t return 0\r\n\t end\r\n\t record_lock( SysListsTable, 'SysLists', ListId )\r\n\t delete SysListsTable, ListId else\r\n\t Void = msg( '', 'Unable to delete ':ListId:' from SYSLISTS...' )\r\n\t return 0\r\n\t end\r\n\t unlock SysListsTable, ListId else\r\n\t Void = msg( '', 'Unable to unlock SYSLISTS ':ListId )\r\n\t return 0\r\n\t end\r\n\tend else\r\n\t MsgInfo = ''\r\n\t MsgInfo = ErrMsg\r\n\t MsgInfo = '!'\r\n\t Void = msg( '', MsgInfo )\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OMNIEVENT/ORDER.AC_ID.json b/LSL2/OIEVENT/OMNIEVENT/ORDER.AC_ID.json new file mode 100644 index 0000000..97f4461 --- /dev/null +++ b/LSL2/OIEVENT/OMNIEVENT/ORDER.AC_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine record_lock\r\ndeclare function msg\r\n$insert logical\r\n$insert annual_contracts_equ\r\n$insert msg_equates\r\n\r\nListId = 'AC_ID*':@station\r\nACKey = xlate( 'SYSLISTS', ListId, 1, 'X' )\r\nif ACKey then\r\n * check to see if open for this customer\r\n ACRec = xlate( 'ANNUAL_CONTRACTS', ACKey, '', 'X' )\r\n CustNo = .cust_no->text\r\n WrongCust = false$\r\n ErrMsg = ''\r\n if ACRec <> CustNo then\r\n ErrMsg:= 'Annual Contract ':ACKey:' is an Annual Contract for ':oconv( ACRRec, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n ErrMsg:= ' not ':oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n WrongCust = true$\r\n end\r\n WrongStat = false$\r\n if ACRec <> 'O' then\r\n if ErrMsg then\r\n ErrMsg:= ' and is not OPEN'\r\n end else\r\n ErrMsg:= 'Annual Contract ':ACKey:' is not OPEN'\r\n end\r\n WrongStat = true$\r\n end\r\n if ( WrongCust = false$ ) and ( WrongStat = false$ ) then\r\n .ac_id->text = ACKey\r\n\t open 'SYSLISTS' to SysListsTable else\r\n\t Void = msg( '', 'Unable to open SYSLISTS...' )\r\n\t return 0\r\n\t end\r\n\t record_lock( SysListsTable, 'SysLists', ListId )\r\n\t delete SysListsTable, ListId else\r\n\t Void = msg( '', 'Unable to delete ':ListId:' from SYSLISTS...' )\r\n\t return 0\r\n\t end\r\n\t unlock SysListsTable, ListId else\r\n\t Void = msg( '', 'Unable to unlock SYSLISTS ':ListId )\r\n\t return 0\r\n\t end\r\n\tend else\r\n\t MsgInfo = ''\r\n\t MsgInfo = ErrMsg\r\n\t MsgInfo = '!'\r\n\t Void = msg( '', MsgInfo )\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OMNIEVENT/ORDER.ORDER_DETAIL.json b/LSL2/OIEVENT/OMNIEVENT/ORDER.ORDER_DETAIL.json new file mode 100644 index 0000000..923bd97 --- /dev/null +++ b/LSL2/OIEVENT/OMNIEVENT/ORDER.ORDER_DETAIL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine record_lock\r\ndeclare function msg\r\n$insert logical\r\n$insert quote_equ\r\n$insert prod_spec_equ\r\n$insert wafer_inv_equ\r\n$insert msg_equates\r\nIF @USERNAME = 'BRYCE_BARB' THEN DEBUG\r\nbegin case\r\n case Message = 'PSN'\r\n\tListId = 'PROD_SPEC*':@station\r\n\tProdSpecKey = xlate( 'SYSLISTS', ListId, 1, 'X' )\r\n\tif ProdSpecKey then\r\n\t * check to see if released for this customer\r\n\t ProdSpecRec = xlate( 'PROD_SPEC', ProdSpecKey, '', 'X' )\r\n\t CustNo = .cust_no->text\r\n\t WrongCust = false$\r\n\t ErrMsg = ''\r\n\t if ProdSpecRec <> CustNo then\r\n\t ErrMsg:= 'Product Specification ':ProdSpecKey:' is for ':oconv( ProdSpecRec, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n\t ErrMsg:= ' not ':oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n\t WrongCust = true$\r\n\t end\r\n\t if ( WrongCust = false$ ) then\r\n\t \tSelPos = .order_detail->selpos\r\n\t \tCol = SelPos<1>\r\n\t \tRow = SelPos<2>\r\n\t ColData = get_property( @window:'.ORDER_DETAIL', 'COLDATA' )\r\n\t ColData<1,Row> = ProdSpecKey\r\n\t Void = set_property( @window:'.ORDER_DETAIL', 'COLDATA', ColData )\r\n\t\t open 'SYSLISTS' to SysListsTable else\r\n\t\t Void = msg( '', 'Unable to open SYSLISTS...' )\r\n\t\t return 0\r\n\t\t end\r\n\t\t record_lock( SysListsTable, 'SysLists', ListId )\r\n\t\t delete SysListsTable, ListId else\r\n\t\t Void = msg( '', 'Unable to delete ':ListId:' from SYSLISTS...' )\r\n\t\t return 0\r\n\t\t end\r\n\t\t unlock SysListsTable, ListId else\r\n\t\t Void = msg( '', 'Unable to unlock SYSLISTS ':ListId )\r\n\t\t return 0\r\n\t\t end\r\n\t\tend else\r\n\t\t MsgInfo = ''\r\n\t\t MsgInfo = ErrMsg\r\n\t\t MsgInfo = '!'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t\tend\r\n\tend\r\n case Message = 'WAFER_INV'\r\n\tListId = 'WAFER_INV*':@station\r\n\tWafInvKey = xlate( 'SYSLISTS', ListId, 1, 'X' )\r\n\tif WafInvKey then\r\n\t * check to see if released for this customer\r\n\t WafInvRec = xlate( 'WAFER_INV', WafInvKey, '', 'X' )\r\n\t CustNo = .cust_no->text\r\n\t WrongCust = false$\r\n\t ErrMsg = ''\r\n\t if WafInvRec <> CustNo then\r\n\t ErrMsg:= 'Wafer Inventory ':WafInvKey:' is for ':oconv( WafInvRec, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n\t ErrMsg:= ' not ':oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n\t WrongCust = true$\r\n\t end\r\n\t if ( WrongCust = false$ ) then\r\n\t \tSelPos = .order_detail->selpos\r\n\t \tCol = SelPos<1>\r\n\t \tRow = SelPos<2>\r\n\t ColData = get_property( @window:'.ORDER_DETAIL', 'COLDATA' )\r\n\t ColData<1,Row> = WafInvKey\r\n\t Void = set_property( @window:'.ORDER_DETAIL', 'COLDATA', ColData )\r\n\t\t open 'SYSLISTS' to SysListsTable else\r\n\t\t Void = msg( '', 'Unable to open SYSLISTS...' )\r\n\t\t return 0\r\n\t\t end\r\n\t\t record_lock( SysListsTable, 'SysLists', ListId )\r\n\t\t delete SysListsTable, ListId else\r\n\t\t Void = msg( '', 'Unable to delete ':ListId:' from SYSLISTS...' )\r\n\t\t return 0\r\n\t\t end\r\n\t\t unlock SysListsTable, ListId else\r\n\t\t Void = msg( '', 'Unable to unlock SYSLISTS ':ListId )\r\n\t\t return 0\r\n\t\t end\r\n\t\tend else\r\n\t\t MsgInfo = ''\r\n\t\t MsgInfo = ErrMsg\r\n\t\t MsgInfo = '!'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t\tend\r\n\tend\r\n case otherwise$\r\n\tListId = 'QUOTE_ID*':@station\r\n\tQuoteKey = xlate( 'SYSLISTS', ListId, 1, 'X' )\r\n\tif QuoteKey then\r\n\t * check to see if open for this customer\r\n\t QuoteRec = xlate( 'QUOTE', QuoteKey, '', 'X' )\r\n\t CustNo = .cust_no->text\r\n\t WrongCust = false$\r\n\t ErrMsg = ''\r\n\t if QuoteRec <> CustNo then\r\n\t ErrMsg:= 'Quote ':QuoteKey:' is a quote for ':oconv( QuoteRec, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n\t ErrMsg:= ' not ':oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n\t WrongCust = true$\r\n\t end\r\n\t WrongStat = false$\r\n\t if QuoteRec <> 'O' then\r\n\t if ErrMsg then\r\n\t ErrMsg:= ' and is not OPEN'\r\n\t end else\r\n\t ErrMsg:= 'Quote ':QuoteKey:' is not OPEN'\r\n\t end\r\n\t WrongStat = true$\r\n\t end\r\n\t if ( WrongCust = false$ ) and ( WrongStat = false$ ) then\r\n\t\t Selpos = .order_detail->selpos\r\n\t\t Column = SelPos<1>\r\n\t\t Row = SelPos<2>\r\n\t\t ColData = get_property( @window:'.ORDER_DETAIL', 'COLDATA' )\r\n\t\t ColData<1,Row> = QuoteKey\r\n\t\t Void = set_property( @window:'.ORDER_DETAIL', 'COLDATA', ColData )\r\n\t\t open 'SYSLISTS' to SysListsTable else\r\n\t\t Void = msg( '', 'Unable to open SYSLISTS...' )\r\n\t\t return 0\r\n\t\t end\r\n\t\t record_lock( SysListsTable, 'SysLists', ListId )\r\n\t\t delete SysListsTable, ListId else\r\n\t\t Void = msg( '', 'Unable to delete ':ListId:' from SYSLISTS...' )\r\n\t\t return 0\r\n\t\t end\r\n\t\t unlock SysListsTable, ListId else\r\n\t\t Void = msg( '', 'Unable to unlock SYSLISTS ':ListId )\r\n\t\t return 0\r\n\t\t end\r\n\t\tend else\r\n\t\t MsgInfo = ''\r\n\t\t MsgInfo = ErrMsg\r\n\t\t MsgInfo = '!'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t\tend\r\n\tend\r\nend case\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OMNIEVENT/QUOTE.PREV_PSNS.json b/LSL2/OIEVENT/OMNIEVENT/QUOTE.PREV_PSNS.json new file mode 100644 index 0000000..2e4b59e --- /dev/null +++ b/LSL2/OIEVENT/OMNIEVENT/QUOTE.PREV_PSNS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine record_lock\r\ndeclare function msg\r\n$insert logical\r\n$insert prod_spec_equ\r\n$insert msg_equates\r\n\r\nListId = 'PROD_SPEC*':@station\r\nProdSpecKey = xlate( 'SYSLISTS', ListId, 1, 'X' )\r\nif ProdSpecKey then\r\n * check to see if released for this customer\r\n ProdSpecRec = xlate( 'PROD_SPEC', ProdSpecKey, '', 'X' )\r\n CustNo = .cust_no->text\r\n WrongCust = false$\r\n ErrMsg = ''\r\n if ProdSpecRec <> CustNo then\r\n ErrMsg:= 'Product Specification ':ProdSpecKey:' is for ':oconv( ProdSpecRec, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n ErrMsg:= ' not ':oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n WrongCust = true$\r\n end\r\n if ( WrongCust = false$ ) then\r\n \tSelPos = .prev_psns->selpos\r\n \tCol = SelPos<1>\r\n \tRow = SelPos<2>\r\n ColData = get_property( @window:'.PREV_PSNS', 'COLDATA' )\r\n ColData<1,Row> = ProdSpecKey\r\n Void = set_property( @window:'.PREV_PSNS', 'COLDATA', ColData )\r\n\t open 'SYSLISTS' to SysListsTable else\r\n\t Void = msg( '', 'Unable to open SYSLISTS...' )\r\n\t return 0\r\n\t end\r\n\t record_lock( SysListsTable, 'SysLists', ListId )\r\n\t delete SysListsTable, ListId else\r\n\t Void = msg( '', 'Unable to delete ':ListId:' from SYSLISTS...' )\r\n\t return 0\r\n\t end\r\n\t unlock SysListsTable, ListId else\r\n\t Void = msg( '', 'Unable to unlock SYSLISTS ':ListId )\r\n\t return 0\r\n\t end\r\n\tend else\r\n\t MsgInfo = ''\r\n\t MsgInfo = ErrMsg\r\n\t MsgInfo = '!'\r\n\t Void = msg( '', MsgInfo )\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OMNIEVENT/QUOTE.PROD_SPEC_ID.json b/LSL2/OIEVENT/OMNIEVENT/QUOTE.PROD_SPEC_ID.json new file mode 100644 index 0000000..5e5c5a9 --- /dev/null +++ b/LSL2/OIEVENT/OMNIEVENT/QUOTE.PROD_SPEC_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine record_lock\r\ndeclare function msg\r\n$insert logical\r\n$insert prod_spec_equ\r\n$insert msg_equates\r\n\r\nListId = 'PROD_SPEC*':@station\r\nProdSpecKey = xlate( 'SYSLISTS', ListId, 1, 'X' )\r\nif ProdSpecKey then\r\n * check to see if released for this customer\r\n ProdSpecRec = xlate( 'PROD_SPEC', ProdSpecKey, '', 'X' )\r\n CustNo = .cust_no->text\r\n WrongCust = false$\r\n ErrMsg = ''\r\n if ProdSpecRec <> CustNo then\r\n ErrMsg:= 'Product Specification ':ProdSpecKey:' is for ':oconv( ProdSpecRec, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n ErrMsg:= ' not ':oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n WrongCust = true$\r\n end\r\n if ( WrongCust = false$ ) then\r\n .prod_spec_id->text = ProdSpecKey\r\n\t open 'SYSLISTS' to SysListsTable else\r\n\t Void = msg( '', 'Unable to open SYSLISTS...' )\r\n\t return 0\r\n\t end\r\n\t record_lock( SysListsTable, 'SysLists', ListId )\r\n\t delete SysListsTable, ListId else\r\n\t Void = msg( '', 'Unable to delete ':ListId:' from SYSLISTS...' )\r\n\t return 0\r\n\t end\r\n\t unlock SysListsTable, ListId else\r\n\t Void = msg( '', 'Unable to unlock SYSLISTS ':ListId )\r\n\t return 0\r\n\t end\r\n\tend else\r\n\t MsgInfo = ''\r\n\t MsgInfo = ErrMsg\r\n\t MsgInfo = '!'\r\n\t Void = msg( '', MsgInfo )\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OMNIEVENT/QUOTE_SPEC_INFO.EPI_RECIPE.json b/LSL2/OIEVENT/OMNIEVENT/QUOTE_SPEC_INFO.EPI_RECIPE.json new file mode 100644 index 0000000..5d83e81 --- /dev/null +++ b/LSL2/OIEVENT/OMNIEVENT/QUOTE_SPEC_INFO.EPI_RECIPE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine record_lock\r\ndeclare function msg\r\n$insert recipe_equ\r\n\r\nListId = 'RECIPE_ID*':@station\r\nRecipeKey = xlate( 'SYSLISTS', ListId, 1, 'X' )\r\nif RecipeKey then\r\n .epi_recipe->text = RecipeKey\r\n RecipeName = xlate( 'RECIPE', RecipeKey, recipe_recipe_name$, 'X' )\r\n .epi_recipe_name->text = RecipeName\r\n open 'SYSLISTS' to SysListsTable else\r\n Void = msg( '', 'Unable to open SYSLISTS...' )\r\n return 0\r\n end\r\n record_lock( SysListsTable, 'SysLists', ListId )\r\n delete SysListsTable, ListId else\r\n Void = msg( '', 'Unable to delete ':ListId:' from SYSLISTS...' )\r\n return 0\r\n end\r\n unlock SysListsTable, ListId else\r\n Void = msg( '', 'Unable to unlock SYSLISTS ':ListId )\r\n return 0\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OMNIEVENT/RDS.WO_VERIFY_VIEW.json b/LSL2/OIEVENT/OMNIEVENT/RDS.WO_VERIFY_VIEW.json new file mode 100644 index 0000000..ec68524 --- /dev/null +++ b/LSL2/OIEVENT/OMNIEVENT/RDS.WO_VERIFY_VIEW.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = set_property( @window, '@VerifyViewOmni', 1 )\r\nVoid = rds_comm( 'WO_VERIFY_CHK' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OMNIEVENT/SRP_COC_RESULTS.PROD_SPEC_ID.json b/LSL2/OIEVENT/OMNIEVENT/SRP_COC_RESULTS.PROD_SPEC_ID.json new file mode 100644 index 0000000..b5c4005 --- /dev/null +++ b/LSL2/OIEVENT/OMNIEVENT/SRP_COC_RESULTS.PROD_SPEC_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine record_lock\r\ndeclare function msg, send_event\r\n$insert logical\r\n$insert prod_spec_equ\r\n$insert msg_equates\r\n\r\nListId = 'PROD_SPEC*':@station\r\nProdSpecKey = xlate( 'SYSLISTS', ListId, 1, 'X' )\r\nif ProdSpecKey then\r\n * check to see if released for this customer\r\n ProdSpecRec = xlate( 'PROD_SPEC', ProdSpecKey, '', 'X' )\r\n CustNo = .cust_no->text\r\n WrongCust = false$\r\n ErrMsg = ''\r\n if ProdSpecRec <> CustNo then\r\n ErrMsg:= 'Product Specification ':ProdSpecKey:' is for ':oconv( ProdSpecRec, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n ErrMsg:= ' not ':oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n WrongCust = true$\r\n end\r\n if ( WrongCust = false$ ) then\r\n .prod_spec_id->text = ProdSpecKey\r\n\t open 'SYSLISTS' to SysListsTable else\r\n\t Void = msg( '', 'Unable to open SYSLISTS...' )\r\n\t return 0\r\n\t end\r\n\t record_lock( SysListsTable, 'SysLists', ListId )\r\n\t delete SysListsTable, ListId else\r\n\t Void = msg( '', 'Unable to delete ':ListId:' from SYSLISTS...' )\r\n\t return 0\r\n\t end\r\n\t unlock SysListsTable, ListId else\r\n\t Void = msg( '', 'Unable to unlock SYSLISTS ':ListId )\r\n\t return 0\r\n\t end\r\n\tend else\r\n\t MsgInfo = ''\r\n\t MsgInfo = ErrMsg\r\n\t MsgInfo = '!'\r\n\t Void = msg( '', MsgInfo )\r\n\tend\r\n\tVoid = send_event( @window:'.PROD_SPEC_ID', 'LOSTFOCUS' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OMNIEVENT/WO_LOG.PROD_SPEC_ID.json b/LSL2/OIEVENT/OMNIEVENT/WO_LOG.PROD_SPEC_ID.json new file mode 100644 index 0000000..b5c4005 --- /dev/null +++ b/LSL2/OIEVENT/OMNIEVENT/WO_LOG.PROD_SPEC_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine record_lock\r\ndeclare function msg, send_event\r\n$insert logical\r\n$insert prod_spec_equ\r\n$insert msg_equates\r\n\r\nListId = 'PROD_SPEC*':@station\r\nProdSpecKey = xlate( 'SYSLISTS', ListId, 1, 'X' )\r\nif ProdSpecKey then\r\n * check to see if released for this customer\r\n ProdSpecRec = xlate( 'PROD_SPEC', ProdSpecKey, '', 'X' )\r\n CustNo = .cust_no->text\r\n WrongCust = false$\r\n ErrMsg = ''\r\n if ProdSpecRec <> CustNo then\r\n ErrMsg:= 'Product Specification ':ProdSpecKey:' is for ':oconv( ProdSpecRec, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n ErrMsg:= ' not ':oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n WrongCust = true$\r\n end\r\n if ( WrongCust = false$ ) then\r\n .prod_spec_id->text = ProdSpecKey\r\n\t open 'SYSLISTS' to SysListsTable else\r\n\t Void = msg( '', 'Unable to open SYSLISTS...' )\r\n\t return 0\r\n\t end\r\n\t record_lock( SysListsTable, 'SysLists', ListId )\r\n\t delete SysListsTable, ListId else\r\n\t Void = msg( '', 'Unable to delete ':ListId:' from SYSLISTS...' )\r\n\t return 0\r\n\t end\r\n\t unlock SysListsTable, ListId else\r\n\t Void = msg( '', 'Unable to unlock SYSLISTS ':ListId )\r\n\t return 0\r\n\t end\r\n\tend else\r\n\t MsgInfo = ''\r\n\t MsgInfo = ErrMsg\r\n\t MsgInfo = '!'\r\n\t Void = msg( '', MsgInfo )\r\n\tend\r\n\tVoid = send_event( @window:'.PROD_SPEC_ID', 'LOSTFOCUS' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OMNIEVENT/WO_MAST_SCHED.SCHED_INFO.json b/LSL2/OIEVENT/OMNIEVENT/WO_MAST_SCHED.SCHED_INFO.json new file mode 100644 index 0000000..df12675 --- /dev/null +++ b/LSL2/OIEVENT/OMNIEVENT/WO_MAST_SCHED.SCHED_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine record_lock\r\ndeclare function msg\r\n$insert logical\r\n$insert quote_equ\r\n$insert msg_equates\r\n$insert wo_log_equ\r\n$insert company_equ\r\n\r\nListId = 'WO_LOG_ID*':@station\r\nWoLogKey = xlate( 'SYSLISTS', ListId, 1, 'X' )\r\nif WoLogKey then\r\n Selpos = .sched_info->selpos\r\n Column = SelPos<1>\r\n Row = SelPos<2>\r\n ColData = get_property( @window:'.SCHED_INFO', 'COLDATA' )\r\n CustNo = xlate( 'WO_LOG', WoLogKey, wo_log_cust_no$, 'X' )\r\n ValToRet = WoLogKey:' ':xlate( 'COMPANY', CustNo, 'ABBREV_OR_CO_NAME', 'X' ) \r\n ColData<1,Row> = ValToRet\r\n Void = set_property( @window:'.SCHED_INFO', 'COLDATA', ColData )\r\n open 'SYSLISTS' to SysListsTable else\r\n Void = msg( '', 'Unable to open SYSLISTS...' )\r\n return 0\r\n end\r\n record_lock( SysListsTable, 'SysLists', ListId )\r\n delete SysListsTable, ListId else\r\n Void = msg( '', 'Unable to delete ':ListId:' from SYSLISTS...' )\r\n return 0\r\n end\r\n unlock SysListsTable, ListId else\r\n Void = msg( '', 'Unable to unlock SYSLISTS ':ListId )\r\n return 0\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/AC_RPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/AC_RPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..2f84057 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/AC_RPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/AC_RPT1.ENTRY_DATE_FROM.json b/LSL2/OIEVENT/OPTIONS/AC_RPT1.ENTRY_DATE_FROM.json new file mode 100644 index 0000000..7dfbe89 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/AC_RPT1.ENTRY_DATE_FROM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function popup_month\r\n\r\nVoid = popup_month(1)\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/AC_RPT1.ENTRY_DATE_THRU.json b/LSL2/OIEVENT/OPTIONS/AC_RPT1.ENTRY_DATE_THRU.json new file mode 100644 index 0000000..8010111 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/AC_RPT1.ENTRY_DATE_THRU.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function popup_year\r\n\r\nVoid = popup_year('')\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/AC_SRPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/AC_SRPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..2f84057 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/AC_SRPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/AC_SRPT1.ENTRY_DATE_FROM.json b/LSL2/OIEVENT/OPTIONS/AC_SRPT1.ENTRY_DATE_FROM.json new file mode 100644 index 0000000..7dfbe89 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/AC_SRPT1.ENTRY_DATE_FROM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function popup_month\r\n\r\nVoid = popup_month(1)\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/AC_SRPT1.ENTRY_DATE_THRU.json b/LSL2/OIEVENT/OPTIONS/AC_SRPT1.ENTRY_DATE_THRU.json new file mode 100644 index 0000000..8010111 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/AC_SRPT1.ENTRY_DATE_THRU.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function popup_year\r\n\r\nVoid = popup_year('')\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/ANNUAL_CONTRACTS.CONTRACT_NO.json b/LSL2/OIEVENT/OPTIONS/ANNUAL_CONTRACTS.CONTRACT_NO.json new file mode 100644 index 0000000..7a06143 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/ANNUAL_CONTRACTS.CONTRACT_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function getwindow, fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n\r\nAcKeys = dialog_box( 'ANNUAL_CONTRACTS_QUERY', @window, '' )\r\nif AcKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'ANNUAL_CONTRACTS_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, AcKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .contract_no->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .contract_no->text = ChoosenKeys\r\n\t Void = send_event( @window:'.CONTRACT_NO', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/ANNUAL_CONTRACTS.CUST_NO.json b/LSL2/OIEVENT/OPTIONS/ANNUAL_CONTRACTS.CUST_NO.json new file mode 100644 index 0000000..28b33fc --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/ANNUAL_CONTRACTS.CUST_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function send_event\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nforward_event()\r\nVoid = send_event( CtrlEntId, 'LOSTFOCUS' )\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/ANNUAL_CONTRACTS.NAME_NO.json b/LSL2/OIEVENT/OPTIONS/ANNUAL_CONTRACTS.NAME_NO.json new file mode 100644 index 0000000..649de6c --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/ANNUAL_CONTRACTS.NAME_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert msg_equates\r\ndeclare function msg, key_sort\r\ndeclare subroutine make.list\r\n\r\nCustNo = .cust_no->text\r\nNameKeys = xlate( 'COMPANY', CustNo, 'NAME_KEYS', 'X' )\r\nif NameKeys then\r\n convert @vm to @fm in NameKeys\r\n NameKeys = key_sort( NameKeys, 'NAMES', 'LAST_FIRST', 1, '', '' )\r\n make.list( 0, NameKeys, '', '' )\r\n return 1\r\nend else\r\n MsgText = ''\r\n MsgText = 'There are no names defined for ':oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' ) \r\n MsgText = '!'\t\r\n Void = msg( '', MsgText ) \r\n return 0\r\nend\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/ANNUAL_CONTRACTS.QUOTE_NUM.json b/LSL2/OIEVENT/OPTIONS/ANNUAL_CONTRACTS.QUOTE_NUM.json new file mode 100644 index 0000000..5277346 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/ANNUAL_CONTRACTS.QUOTE_NUM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, start_window, msg, key_sort, rowexists\r\ndeclare subroutine make.list\r\n$insert msg_equates\r\n\r\nCustNo = .cust_no->text\r\nif CustNo then\r\n * row one = call window with current key\r\n\t* row two = call window with no keys\r\n\t* row three = call window with all active keys for customer\r\n\t* row four = call popup allowing choice\r\n\tCurQuote = .quote_num->text\r\n\tif CurQuote then\r\n\t if rowexists( 'ANNUAL_CONTRACTS', .contract_no->text ) else\r\n\t Tvar = iconv( CurQuote, '[WIN_QUOTE_NUM_VALID]' )\r\n\t if status() then\r\n\t .quote_num->text = ''\r\n\t end\r\n\t end\r\n\tend\r\n\tPopupId = entid( @appid<1>, 'POPUP', '', 'QUOTE_LOOKUP_OPTS' )\r\n\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\tif ChoosenRow = 1 then\r\n\t ;* go view current quote\r\n\t if CurQuote then\r\n\t RetVal = start_window( 'QUOTE', @window, CurQuote:'*CENTER', '', '' ) \r\n\t\tend else\r\n\t\t MsgInfo = ''\r\n\t\t Text = 'You have not entered a quote number...' \r\n\t\t MsgInfo = Text\r\n\t\t MsgInfo = 'H'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t\t return 0\r\n end\r\n end else\r\n if ChoosenRow = 2 then\r\n\t * call quote window\r\n\t\t\tRetVal = start_window( 'QUOTE', @window, '*Choosing*Annual Contracts', '', '' )\r\n\t\tend else\r\n\t\t if ChoosenRow = 3 then\r\n\t\t * call quote window with all active\r\n\t\t\t\tOpenKeys = xlate( 'COMPANY', CustNo, 'OPEN_QUOTE_KEYS', 'X' )\r\n\t\t\t\tif OpenKeys then\r\n\t\t RetVal = start_window( 'QUOTE', @window, OpenKeys:'*Choosing*Annual Contracts', '', '' )\r\n\t\t\t\tend else\r\n\t\t\t\t gosub CustErr\r\n\t\t\t\t return 0\r\n\t\t\t\tend\r\n\t\t\tend else\r\n\t\t\t if ChoosenRow = 4 then\r\n\t\t\t ;* show all open in popup allowing choice\r\n\t\t \t\t\tOpenKeys = xlate( 'COMPANY', CustNo, 'OPEN_QUOTE_KEYS', 'X' )\r\n\t\t\t\t\tif OpenKeys then\r\n\t\t\t\t\t convert @vm to @fm in OpenKeys\r\n\t\t\t \tOpenKeys = key_sort( OpenKeys, 'QUOTE', '#ENTRY_DATE', 1, '', '' )\r\n\t\t\t \tmake.list( 0, OpenKeys, '', '' )\r\n\t\t \t\tPopupId = entid( @appid<1>, 'POPUP', '', 'SHOW_QUOTES' )\r\n\t\t \t \t\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\t\t \t \t\tif ChoosenRow then\r\n\t\t \t \t\t .quote_num->text = ChoosenRow\r\n\t\t end\r\n\t\t \tend else\r\n\t\t\t\t\t gosub CustErr\r\n\t\t\t\t\t return 0\r\n\t\t\t\t\tend\r\n\t\t\t end ;* user canceled\r\n\t\t end\r\n\t end\r\n end \r\nend else\r\n MsgRec = ''\r\n MsgRec = 'You must enter a customer first...' \r\n MsgRec = 'H'\r\n Void = msg( '', MsgRec ) \r\nend\r\nRETURN 0\r\n*===========================================================================*\r\nCustErr:\r\n Text = 'There are currently no OPEN quotes for '\t\t \r\n Text:= oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' ) \r\n MsgInfo = ''\r\n MsgInfo = Text\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nreturn 0\r\n*===========================================================================*" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/ANNUAL_CONTRACTS_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/ANNUAL_CONTRACTS_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/ANNUAL_CONTRACTS_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/ANNUAL_CONTRACTS_QUERY.ENTRY_IDS.json b/LSL2/OIEVENT/OPTIONS/ANNUAL_CONTRACTS_QUERY.ENTRY_IDS.json new file mode 100644 index 0000000..d9b0e4b --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/ANNUAL_CONTRACTS_QUERY.ENTRY_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .entry_ids->array\r\n CurRow = .entry_ids->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .entry_ids->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/ASSIGN_CAUSE.ASSIGN_CAUSE_ID.json b/LSL2/OIEVENT/OPTIONS/ASSIGN_CAUSE.ASSIGN_CAUSE_ID.json new file mode 100644 index 0000000..a0d4d5c --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/ASSIGN_CAUSE.ASSIGN_CAUSE_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, repository, set_property, get_property, fieldcount\r\ndeclare function send_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nStmt = 'SELECT ASSIGN_CAUSE BY DESIG_ERR_GRP_DESC BY ASSIGN_CAUSE_DESC'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_ASSIGN_CAUSE' )\r\n OverRide = ''\r\n OverRide = 2\r\n RetVals = repository( 'EXECUTE', PopupRec, @window, OverRide )\r\n if RetVals then\r\n convert @vm to @fm in RetVals\r\n if fieldcount( RetVals, @fm ) > 1 then\r\n Void = set_property( @window, 'QBFLIST', RetVals )\r\n Void = set_property( @window, '@NoRead', 1 ) \r\n .assign_cause_id->text = RetVals<1> \r\n Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .assign_cause_id->text = RetVals\r\n Void = send_event( @window:'.ASSIGN_CAUSE_ID', 'LOSTFOCUS', '' )\r\n end\r\n end\r\nend \r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/ASSIGN_CAUSE.DESIG_ERR_GRP.json b/LSL2/OIEVENT/OPTIONS/ASSIGN_CAUSE.DESIG_ERR_GRP.json new file mode 100644 index 0000000..34cef7b --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/ASSIGN_CAUSE.DESIG_ERR_GRP.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function send_event\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT DESIG_ERR_GRP BY DESIG_DESC', target_activelist$, '', '', '' )\r\nforward_event()\r\nVoid = send_event( CtrlEntId, 'LOSTFOCUS' )\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/ATTENDANCE.ABSENT_ID.json b/LSL2/OIEVENT/OPTIONS/ATTENDANCE.ABSENT_ID.json new file mode 100644 index 0000000..4d58d0e --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/ATTENDANCE.ABSENT_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n\r\nATTENDANCEKeys = dialog_box( 'ATTENDANCE_QUERY', @window, '' )\r\nif ATTENDANCEKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'ATTENDANCE_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, ATTENDANCEKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .absent_id->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .absent_id->text = ChoosenKeys\r\n\t Void = send_event( @window:'.ABSENT_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/ATTENDANCE.EMPLOYEE.json b/LSL2/OIEVENT/OPTIONS/ATTENDANCE.EMPLOYEE.json new file mode 100644 index 0000000..992861a --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/ATTENDANCE.EMPLOYEE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT LSL_USERS WITH ACTIVE BY LAST_FIRST', target_activelist$, '', '', '' )\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/ATTENDANCE.SUPERVISOR.json b/LSL2/OIEVENT/OPTIONS/ATTENDANCE.SUPERVISOR.json new file mode 100644 index 0000000..2a9f0dc --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/ATTENDANCE.SUPERVISOR.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT LSL_USERS WITH ACTIVE AND WITH GROUPS CONTAINING \"SUPERVISOR\" BY LAST_FIRST', target_activelist$, '', '', '' )\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/ATTENDANCE_QUERY.EMPLOYEE_INFO.json b/LSL2/OIEVENT/OPTIONS/ATTENDANCE_QUERY.EMPLOYEE_INFO.json new file mode 100644 index 0000000..55261e0 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/ATTENDANCE_QUERY.EMPLOYEE_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .employee_info->array\r\n CurRow = .employee_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .employee_info->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/ATTENDANCE_QUERY.SUPERVISOR_INFO.json b/LSL2/OIEVENT/OPTIONS/ATTENDANCE_QUERY.SUPERVISOR_INFO.json new file mode 100644 index 0000000..0b99670 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/ATTENDANCE_QUERY.SUPERVISOR_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .supervisor_info->array\r\n CurRow = .supervisor_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .supervisor_info->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/ATTENDANCE_SRPT1.EMPLOYEE_INFO.json b/LSL2/OIEVENT/OPTIONS/ATTENDANCE_SRPT1.EMPLOYEE_INFO.json new file mode 100644 index 0000000..55261e0 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/ATTENDANCE_SRPT1.EMPLOYEE_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .employee_info->array\r\n CurRow = .employee_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .employee_info->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/ATTENDANCE_SRPT1.SUPERVISOR_INFO.json b/LSL2/OIEVENT/OPTIONS/ATTENDANCE_SRPT1.SUPERVISOR_INFO.json new file mode 100644 index 0000000..0b99670 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/ATTENDANCE_SRPT1.SUPERVISOR_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .supervisor_info->array\r\n CurRow = .supervisor_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .supervisor_info->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/CALL_VISIT.ATTENDED_BY.json b/LSL2/OIEVENT/OPTIONS/CALL_VISIT.ATTENDED_BY.json new file mode 100644 index 0000000..a8a2263 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/CALL_VISIT.ATTENDED_BY.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, send_event\r\ndeclare subroutine rlist\r\n$insert popup_equates\r\n$insert rlist_equates\r\n\r\nCustNo = .cust_no->text\r\nSelPos = .attended_by->selpos\r\nCurRow = SelPos<2>\r\nPopRec = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\nOverRide = ''\r\nOverRide = 2\r\nStmt = 'SELECT LSL_USERS WITH ACTIVE = 1 BY LAST_FIRST'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\nif Choosen then\r\n convert @fm to @vm in Choosen\r\n\tCurArray = .attended_by->array\r\n\tCurArray = delete( CurArray, 1, CurRow, 0 )\r\n\tCurArray = delete( CurArray, 2, CurRow, 0 )\r\n\tCurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n\t.attended_by->array = CurArray\r\n\tVoid = set_property( @window, '@NoTopPos', 1 )\r\n Void = send_event( @window:'.ATTENDED_BY', 'LOSTFOCUS' )\t\r\n\tVoid = set_property( @window, '@NoTopPos', '' ) \r\nend\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/CALL_VISIT.CALL_VISIT_ID.json b/LSL2/OIEVENT/OPTIONS/CALL_VISIT.CALL_VISIT_ID.json new file mode 100644 index 0000000..031c9c5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/CALL_VISIT.CALL_VISIT_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n\r\nCVKeys = dialog_box( 'CALL_VISIT_QUERY', @window, '' )\r\nif CVKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'CALL_VISIT_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, CVKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .call_visit_id->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .call_visit_id->text = ChoosenKeys\r\n\t Void = send_event( @window:'.CALL_VISIT_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/CALL_VISIT.CONTACT_IDS.json b/LSL2/OIEVENT/OPTIONS/CALL_VISIT.CONTACT_IDS.json new file mode 100644 index 0000000..d980db5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/CALL_VISIT.CONTACT_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, send_event\r\ndeclare subroutine rlist\r\n$insert popup_equates\r\n$insert rlist_equates\r\n\r\nCustNo = .cust_no->text\r\nSelPos = .contact_ids->selpos\r\nCurRow = SelPos<2>\r\nPopRec = entid( @appid<1>, 'POPUP', '', 'CHOOSE_NAME' )\r\nOverRide = ''\r\nOverRide = 2\r\nStmt = 'SELECT NAMES WITH CO_ID = ':CustNo:' BY LAST_FIRST'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\nif Choosen then\r\n convert @fm to @vm in Choosen\r\n\tCurArray = .contact_ids->array\r\n\tCurArray = delete( CurArray, 1, CurRow, 0 )\r\n\tCurArray = delete( CurArray, 2, CurRow, 0 )\r\n\tCurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n\t.contact_ids->array = CurArray\r\n\tVoid = set_property( @window, '@NoTopPos', 1 )\r\n Void = send_event( @window:'.CONTACT_IDS', 'LOSTFOCUS' )\t\r\n\tVoid = set_property( @window, '@NoTopPos', '' ) \r\nend\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/CALL_VISIT.CUST_NO.json b/LSL2/OIEVENT/OPTIONS/CALL_VISIT.CUST_NO.json new file mode 100644 index 0000000..28b33fc --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/CALL_VISIT.CUST_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function send_event\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nforward_event()\r\nVoid = send_event( CtrlEntId, 'LOSTFOCUS' )\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/CALL_VISIT_QUERY.ATTEND_BY.json b/LSL2/OIEVENT/OPTIONS/CALL_VISIT_QUERY.ATTEND_BY.json new file mode 100644 index 0000000..259854d --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/CALL_VISIT_QUERY.ATTEND_BY.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .attend_by->array\r\n CurRow = .attend_by->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .attend_by->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/CALL_VISIT_QUERY.CONTACT_IDS.json b/LSL2/OIEVENT/OPTIONS/CALL_VISIT_QUERY.CONTACT_IDS.json new file mode 100644 index 0000000..bd2de60 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/CALL_VISIT_QUERY.CONTACT_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, send_event, msg\r\ndeclare subroutine rlist\r\n$insert popup_equates\r\n$insert rlist_equates\r\n$insert msg_equates\r\n\r\nCustIds = .customer_info->array<1>\r\nswap @vm:@vm with '' in CustIds\r\nif CustIds[-1,1] = @vm then CustIds[-1,1] = ''\r\nif CustIds then\r\n convert @vm to ' ' in CustIds\r\n\tSelPos = .contact_ids->selpos\r\n\tCurRow = SelPos<2>\r\n\tPopRec = entid( @appid<1>, 'POPUP', '', 'CHOOSE_NAME' )\r\n\tOverRide = ''\r\n\tOverRide = 2\r\n\tStmt = 'SELECT NAMES WITH CO_ID = ':CustIds:' BY CO_NAME BY LAST_FIRST'\r\n\trlist( Stmt, target_activelist$, '', '', '' )\r\n\tChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\n\tif Choosen then\r\n\t convert @fm to @vm in Choosen\r\n\t\tCurArray = .contact_ids->array\r\n\t\tCurArray = delete( CurArray, 1, CurRow, 0 )\r\n\t\tCurArray = delete( CurArray, 2, CurRow, 0 )\r\n\t\tCurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,NAMES*LAST_FIRST]') )\r\n\t\t.contact_ids->array = CurArray\r\n\t\tVoid = set_property( @window, '@NoTopPos', 1 )\r\n\t Void = send_event( @window:'.CONTACT_IDS', 'LOSTFOCUS' )\t\r\n\t\tVoid = set_property( @window, '@NoTopPos', '' ) \r\n\tend\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = '!'\r\n MsgInfo = 'You must select at least one customer above...'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/CALL_VISIT_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/CALL_VISIT_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/CALL_VISIT_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/CAR.CAR_REF_ID.json b/LSL2/OIEVENT/OPTIONS/CAR.CAR_REF_ID.json new file mode 100644 index 0000000..136959f --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/CAR.CAR_REF_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n\r\nCarKeys = dialog_box( 'CAR_QUERY', @window, '' )\r\nif CarKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'CAR_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, CarKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .car_ref_id->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .car_ref_id->text = ChoosenKeys\r\n\t Void = send_event( @window:'.CAR_REF_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/CAR.CUST_NO.json b/LSL2/OIEVENT/OPTIONS/CAR.CUST_NO.json new file mode 100644 index 0000000..28b33fc --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/CAR.CUST_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function send_event\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nforward_event()\r\nVoid = send_event( CtrlEntId, 'LOSTFOCUS' )\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/CAR.FAX.json b/LSL2/OIEVENT/OPTIONS/CAR.FAX.json new file mode 100644 index 0000000..91e45c3 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/CAR.FAX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert company_equ\r\n$insert names_equ\r\n$insert msg_equates\r\n$insert popup_equates\r\ndeclare function fieldcount, msg, entid, repository\r\n\r\nCustomerRec = xlate( 'COMPANY', .cust_no->text, '', 'X' )\r\nNameRec = xlate( 'NAMES', .name_no->text, '', 'X' )\r\n\r\n* get the fax numbers for this customer\r\nCustPhones = CustomerRec\r\nCustPhoneTypes = CustomerRec\r\nCpCnt = fieldcount( CustPhones, @vm )\r\nExpInfo = ''\r\nfor i = 1 to CpCnt\r\n ThisPhoneType = CustPhoneTypes<1,i>\r\n ThisPhoneNum = CustPhones<1,i>\r\n convert @lower.case to @upper.case in ThisPhoneType\r\n if ThisPhoneType = 'FAX' then\r\n ExpInfo := oconv( .cust_no->text, '[XLATE_CONV,COMPANY*CO_NAME]' ):@svm:ThisPhoneNum:@vm\r\n end\r\nnext i\r\n\r\n* now get all fax numbers for this contact name\r\nNamePhones = NameRec\r\nNamePhoneTypes = NameRec\r\nNpCnt = fieldcount( NamePhones, @vm )\r\nfor i = 1 to NpCnt\r\n ThisPhoneType = NamePhoneTypes<1,i>\r\n ThisPhoneNum = NamePhones<1,i>\r\n convert @lower.case to @upper.case in ThisPhoneType\r\n if ThisPhoneType = 'FAX' then\r\n ExpInfo := oconv( .name_no->text, '[XLATE_CONV,NAMES*FIRST_LAST]' ):@svm:ThisPhoneNum:@vm\r\n end\r\nnext i\r\nif ExpInfo then\r\n ExpInfo[-1,1] = ''\r\n PopId = entid( @appid<1>, 'POPUP', '', 'FAX_NUMBERS' )\r\n OverRide = ''\r\n OverRide = ExpInfo\r\n Tresp = repository( 'EXECUTE', PopId, @window, OverRide )\r\n if Tresp <> '' then\r\n .fax->text = Tresp\r\n end\r\nend else\r\n MsgText = ''\r\n MsgText = 'There are no fax numbers defined for ':oconv( .cust_no->text, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n MsgText = MsgText:' or for ':oconv( .name_no->text, '[XLATE_CONV,NAMES*FIRST_LAST]' ):'.'\r\n MsgText = '!'\r\n Void = msg( '', MsgText )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/CAR.INTL_FAX.json b/LSL2/OIEVENT/OPTIONS/CAR.INTL_FAX.json new file mode 100644 index 0000000..f8640c1 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/CAR.INTL_FAX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert company_equ\r\n$insert names_equ\r\n$insert msg_equates\r\n$insert popup_equates\r\ndeclare function fieldcount, msg, entid, repository\r\n\r\nCustomerRec = xlate( 'COMPANY', .cust_no->text, '', 'X' )\r\nNameRec = xlate( 'NAMES', .name_no->text, '', 'X' )\r\n\r\n* get the fax numbers for this customer\r\nICustPhones = CustomerRec\r\nICustPhoneTypes = CustomerRec\r\nCpCnt = fieldcount( ICustPhones, @vm )\r\nExpInfo = ''\r\nfor i = 1 to CpCnt\r\n ThisPhoneType = ICustPhoneTypes<1,i>\r\n ThisPhoneNum = ICustPhones<1,i>\r\n convert @lower.case to @upper.case in ThisPhoneType\r\n if ThisPhoneType = 'FAX' then\r\n ExpInfo := oconv( .cust_no->text, '[XLATE_CONV,COMPANY*CO_NAME]' ):@svm:ThisPhoneNum:@vm\r\n end\r\nnext i\r\n\r\n* now get all fax numbers for this contact name\r\nINamePhones = NameRec\r\nINamePhoneTypes = NameRec\r\nNpCnt = fieldcount( INamePhones, @vm )\r\nfor i = 1 to NpCnt\r\n ThisPhoneType = INamePhoneTypes<1,i>\r\n ThisPhoneNum = INamePhones<1,i>\r\n convert @lower.case to @upper.case in ThisPhoneType\r\n if ThisPhoneType = 'FAX' then\r\n ExpInfo := oconv( .name_no->text, '[XLATE_CONV,NAMES*FIRST_LAST]' ):@svm:ThisPhoneNum:@vm\r\n end\r\nnext i\r\nif ExpInfo then\r\n ExpInfo[-1,1] = ''\r\n PopId = entid( @appid<1>, 'POPUP', '', 'INTL_FAX_NUMBERS' )\r\n OverRide = ''\r\n OverRide = ExpInfo\r\n Tresp = repository( 'EXECUTE', PopId, @window, OverRide )\r\n if Tresp <> '' then\r\n .intl_fax->text = Tresp\r\n end\r\nend else\r\n MsgText = ''\r\n MsgText = 'There are no international fax numbers defined for ':oconv( .cust_no->text, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n MsgText = MsgText:' or for ':oconv( .name_no->text, '[XLATE_CONV,NAMES*FIRST_LAST]' ):'.'\r\n MsgText = '!'\r\n Void = msg( '', MsgText )\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/CAR.ISSUE_DATE.json b/LSL2/OIEVENT/OPTIONS/CAR.ISSUE_DATE.json new file mode 100644 index 0000000..0acfab5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/CAR.ISSUE_DATE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function getwindow, fieldcount, send_event\r\ndeclare subroutine sendmessage, make.list\r\n$insert popup_equates\r\nequ QbfOccurred$ to 1126\r\n\r\nCIKeys = dialog_box( 'CUST_INQUIRY_QUERY', @window, '' )\r\nif CIKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'CUST_INQUIRY_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, CIKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n\t\t WndHnd = get_property( @window, 'HANDLE' )\r\n\t\t HbBar = getwindow( WndHnd, 5 )\r\n\t\t sendmessage( HbBar, QbfOccurred$, 0, 0 )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .cust_inquiry_id->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .cust_inquiry_id->text = ChoosenKeys\r\n\t Void = send_event( @window:'.CUST_INQUIRY_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/CAR.NAME_NO.json b/LSL2/OIEVENT/OPTIONS/CAR.NAME_NO.json new file mode 100644 index 0000000..649de6c --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/CAR.NAME_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert msg_equates\r\ndeclare function msg, key_sort\r\ndeclare subroutine make.list\r\n\r\nCustNo = .cust_no->text\r\nNameKeys = xlate( 'COMPANY', CustNo, 'NAME_KEYS', 'X' )\r\nif NameKeys then\r\n convert @vm to @fm in NameKeys\r\n NameKeys = key_sort( NameKeys, 'NAMES', 'LAST_FIRST', 1, '', '' )\r\n make.list( 0, NameKeys, '', '' )\r\n return 1\r\nend else\r\n MsgText = ''\r\n MsgText = 'There are no names defined for ':oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' ) \r\n MsgText = '!'\t\r\n Void = msg( '', MsgText ) \r\n return 0\r\nend\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/CAR.PROD_SPEC_ID.json b/LSL2/OIEVENT/OPTIONS/CAR.PROD_SPEC_ID.json new file mode 100644 index 0000000..b32085a --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/CAR.PROD_SPEC_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, start_window, msg, key_sort, rowexists\r\ndeclare subroutine make.list\r\n$insert msg_equates\r\n\r\nCustNo = .cust_no->text\r\nif CustNo then\r\n * row one = call window with current key\r\n\t* row two = call window with no keys\r\n\t* row three = call window with all keys for customer\r\n\t* row four = call popup allowing choice\r\n\tCurProdSpecID = .prod_spec_id->text\r\n\tif CurProdSpecID then\r\n\t if rowexists( 'CAR', .car_ref_id->text ) else\r\n\t Tvar = iconv( CurProdSpecID, '[WIN_PROD_SPEC_NUM_VALID]' )\r\n\t if status() then\r\n\t .prod_spec_id->text = ''\r\n\t end\r\n\t end\r\n\tend\r\n\tPopupId = entid( @appid<1>, 'POPUP', '', 'PROD_SPEC_LOOKUP_OPTS' )\r\n\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\tif ChoosenRow = 1 then\r\n\t ;* go view current prod spec\r\n\t if CurProdSpecID then\r\n\t RetVal = start_window( 'PROD_SPEC', @window, CurProdSpecID:'*Choosing*CAR*CENTER', '', '' ) \r\n\t\tend else\r\n\t\t MsgInfo = ''\r\n\t\t Text = 'You have not entered a product specification number...' \r\n\t\t MsgInfo = Text\r\n\t\t MsgInfo = 'H'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t\t return 0\r\n end\r\n end else\r\n if ChoosenRow = 2 then\r\n\t * call customer prod spec window\r\n\t\t\tRetVal = start_window( 'PROD_SPEC', @window, '*Choosing*CAR', '', '' )\r\n\t\tend else\r\n\t\t if ChoosenRow = 3 then\r\n\t\t * call product specification window with all\r\n\t\t\t\tOpenKeys = xlate( 'COMPANY', CustNo, 'PROD_SPEC_KEYS', 'X' )\r\n\t\t\t\tconvert @vm to @fm in OpenKeys\r\n\t\t OpenKeys = key_sort( OpenKeys, 'PROD_SPEC', '#ENTRY_DATE', 1 )\t\t\t\t\t\r\n\t\t convert @fm to @vm in OpenKeys\r\n\t\t\t\tif OpenKeys then\r\n\t\t RetVal = start_window( 'PROD_SPEC', @window, OpenKeys:'*Choosing*CAR*CENTER', '', '' )\r\n\t\t\t\tend else\r\n\t\t\t\t gosub CustErr\r\n\t\t\t\t return 0\r\n\t\t\t\tend\r\n\t\t\tend else\r\n\t\t\t if ChoosenRow = 4 then\r\n\t\t\t ;* show all open in popup allowing choice\r\n\t\t \t\t\tOpenKeys = xlate( 'COMPANY', CustNo, 'PROD_SPEC_KEYS', 'X' )\r\n\t\t\t\t\tif OpenKeys then\r\n\t\t\t\t\t convert @vm to @fm in OpenKeys\r\n\t\t\t\t OpenKeys = key_sort( OpenKeys, 'PROD_SPEC', '#ENTRY_DATE', 1 )\t\t\t\r\n\t\t\t \tmake.list( 0, OpenKeys, '', '' )\r\n\t\t \t\tPopupId = entid( @appid<1>, 'POPUP', '', 'PROD_SPEC_SINGLE' )\r\n\t\t \t \t\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\t\t \t \t\tif ChoosenRow then\r\n\t\t \t \t\t .prod_spec_id->text = ChoosenRow\r\n\t\t end\r\n\t\t \tend else\r\n\t\t\t\t\t gosub CustErr\r\n\t\t\t\t\t return 0\r\n\t\t\t\t\tend\r\n\t\t\t end ;* user canceled\r\n\t\t end\r\n\t end\r\n end \r\nend else\r\n MsgRec = ''\r\n MsgRec = 'You must enter a customer first...' \r\n MsgRec = 'H'\r\n Void = msg( '', MsgRec ) \r\nend\r\nRETURN 0\r\n*===========================================================================*\r\nCustErr:\r\n Text = 'There are currently no Product Specifications for '\t\t \r\n Text:= oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' ) \r\n MsgInfo = ''\r\n MsgInfo = Text\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nreturn 0\r\n*===========================================================================*" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/CAR.QUOTE_NUM.json b/LSL2/OIEVENT/OPTIONS/CAR.QUOTE_NUM.json new file mode 100644 index 0000000..d9b3319 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/CAR.QUOTE_NUM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, start_window, msg, key_sort, rowexists\r\ndeclare subroutine make.list\r\n$insert msg_equates\r\n\r\nCustNo = .cust_no->text\r\nif CustNo then\r\n * row one = call window with current key\r\n\t* row two = call window with no keys\r\n\t* row three = call window with all active keys for customer\r\n\t* row four = call popup allowing choice\r\n\tCurQuote = .quote_num->text\r\n\tif CurQuote then\r\n\t if rowexists( 'CAR', .car_ref_id->text ) else\r\n\t Tvar = iconv( CurQuote, '[WIN_QUOTE_NUM_VALID]' )\r\n\t if status() then\r\n\t .quote_num->text = ''\r\n\t end\r\n\t end\r\n\tend\r\n\tPopupId = entid( @appid<1>, 'POPUP', '', 'QUOTE_LOOKUP_OPTS2' )\r\n\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\tif ChoosenRow = 1 then\r\n\t ;* go view current quote\r\n\t if CurQuote then\r\n\t RetVal = start_window( 'QUOTE', @window, CurQuote:'*CENTER', '', '' ) \r\n\t\tend else\r\n\t\t MsgInfo = ''\r\n\t\t Text = 'You have not entered a quote number...' \r\n\t\t MsgInfo = Text\r\n\t\t MsgInfo = 'H'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t\t return 0\r\n end\r\n end else\r\n if ChoosenRow = 2 then\r\n\t * call quote window\r\n\t\t\tRetVal = start_window( 'QUOTE', @window, '*Choosing*CAR', '', '' )\r\n\t\tend else\r\n\t\t if ChoosenRow = 3 then\r\n\t\t * call quote window with all active\r\n\t\t\t\tOpenKeys = xlate( 'COMPANY', CustNo, 'QUOTE_KEYS', 'X' )\r\n\t\t\t\tif OpenKeys then\r\n\t\t RetVal = start_window( 'QUOTE', @window, OpenKeys:'*Choosing*CAR', '', '' )\r\n\t\t\t\tend else\r\n\t\t\t\t gosub CustErr\r\n\t\t\t\t return 0\r\n\t\t\t\tend\r\n\t\t\tend else\r\n\t\t\t if ChoosenRow = 4 then\r\n\t\t\t ;* show all open in popup allowing choice\r\n\t\t \t\t\tOpenKeys = xlate( 'COMPANY', CustNo, 'QUOTE_KEYS', 'X' )\r\n\t\t\t\t\tif OpenKeys then\r\n\t\t\t\t\t convert @vm to @fm in OpenKeys\r\n\t\t\t \tOpenKeys = key_sort( OpenKeys, 'QUOTE', '#ENTRY_DATE', 1, '', '' )\r\n\t\t\t \tmake.list( 0, OpenKeys, '', '' )\r\n\t\t \t\tPopupId = entid( @appid<1>, 'POPUP', '', 'QUOTES_SINGLE' )\r\n\t\t \t \t\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\t\t \t \t\tif ChoosenRow then\r\n\t\t \t \t\t .quote_num->text = ChoosenRow\r\n\t\t end\r\n\t\t \tend else\r\n\t\t\t\t\t gosub CustErr\r\n\t\t\t\t\t return 0\r\n\t\t\t\t\tend\r\n\t\t\t end ;* user canceled\r\n\t\t end\r\n\t end\r\n end \r\nend else\r\n MsgRec = ''\r\n MsgRec = 'You must enter a customer first...' \r\n MsgRec = 'H'\r\n Void = msg( '', MsgRec ) \r\nend\r\nRETURN 0\r\n*===========================================================================*\r\nCustErr:\r\n Text = 'There are currently no OPEN quotes for '\t\t \r\n Text:= oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' ) \r\n MsgInfo = ''\r\n MsgInfo = Text\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nreturn 0\r\n*===========================================================================*" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/CAR.RESP_USER_ID.json b/LSL2/OIEVENT/OPTIONS/CAR.RESP_USER_ID.json new file mode 100644 index 0000000..3cb19bb --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/CAR.RESP_USER_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, popup, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS BY LAST_FIRST WITH ACTIVE', target_activelist$, '', '', '' ) \r\nPopRec = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\nOverRide = ''\r\nOverRide = 1\r\nChoice = repository( 'EXECUTE', PopRec, @window, OverRide ) \r\nif Choice then\r\n .resp_user_id->text = Choice\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/CAR2.WAF_GIVEN_TO.json b/LSL2/OIEVENT/OPTIONS/CAR2.WAF_GIVEN_TO.json new file mode 100644 index 0000000..eb148f9 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/CAR2.WAF_GIVEN_TO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, popup, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS BY LAST_FIRST WITH ACTIVE', target_activelist$, '', '', '' ) \r\nPopRec = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\nOverRide = ''\r\nOverRide = 1\r\nChoice = repository( 'EXECUTE', PopRec, @window, OverRide ) \r\nif Choice then\r\n .waf_given_to->text = Choice\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/CAR_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/CAR_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/CAR_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/CAR_QUERY.RESP_PERSON_INFO.json b/LSL2/OIEVENT/OPTIONS/CAR_QUERY.RESP_PERSON_INFO.json new file mode 100644 index 0000000..11fef30 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/CAR_QUERY.RESP_PERSON_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .resp_person_info->array\r\n CurRow = .resp_person_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .resp_person_info->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/CAR_RPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/CAR_RPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/CAR_RPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/CAR_SRPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/CAR_SRPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/CAR_SRPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/CDM_LOG.LOG_NO.json b/LSL2/OIEVENT/OPTIONS/CDM_LOG.LOG_NO.json new file mode 100644 index 0000000..b9221bb --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/CDM_LOG.LOG_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n\r\nCDMLogKeys = dialog_box( 'CDM_LOG_QUERY', @window, '' )\r\nif CDMLogKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'CDM_LOG_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, CDMLogKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .log_no->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .log_no->text = ChoosenKeys\r\n\t Void = send_event( @window:'.LOG_NO', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/CDM_LOG_QUERY.TECHS.json b/LSL2/OIEVENT/OPTIONS/CDM_LOG_QUERY.TECHS.json new file mode 100644 index 0000000..7fa4e0c --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/CDM_LOG_QUERY.TECHS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS WITH ACTIVE AND WITH GROUPS CONTAINING \"SUPERVISOR\" \"DATA_ENTRY\" BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .techs->array\r\n CurRow = .techs->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .techs->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/COC.COC_NO.json b/LSL2/OIEVENT/OPTIONS/COC.COC_NO.json new file mode 100644 index 0000000..ad88f95 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/COC.COC_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n\r\nCOCKeys = dialog_box( 'COC_QUERY', @window, '' )\r\nif COCKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'COC_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, COCKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 ) \r\n .coc_no->text = ChoosenKeys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .coc_no->text = ChoosenKeys\r\n\t Void = send_event( @window:'.COC_NO', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/COC_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/COC_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/COC_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/COC_QUERY.ENTRY_IDS.json b/LSL2/OIEVENT/OPTIONS/COC_QUERY.ENTRY_IDS.json new file mode 100644 index 0000000..d9b0e4b --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/COC_QUERY.ENTRY_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .entry_ids->array\r\n CurRow = .entry_ids->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .entry_ids->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/COMPANY.CO_NO.json b/LSL2/OIEVENT/OPTIONS/COMPANY.CO_NO.json new file mode 100644 index 0000000..d2fd637 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/COMPANY.CO_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n\r\nCompanyKeys = dialog_box( 'COMPANY_QUERY', @window, '' )\r\nif CompanyKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'COMPANY_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, CompanyKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .co_no->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .co_no->text = ChoosenKeys\r\n\t Void = send_event( @window:'.CO_NO', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n/*\r\ndeclare subroutine rlist, make.list,forward_event, update_index\r\ndeclare function company_comm, rowexists, send_event, entid\r\ndeclare function repository, fieldcount\r\n$insert rlist_equates\r\n$insert popup_equates\r\n*\r\nrlist( 'SELECT COMPANY BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopRec = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopRec, '', OverRide )\r\n if Choosen then\r\n\t convert @vm to @fm in Choosen\r\n\t if fieldcount( Choosen, @fm ) > 1 then\r\n\t Void = set_property( @window, 'QBFLIST', Choosen )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .co_no->text = Choosen<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .co_no->text = Choosen\r\n\t Void = send_event( @window:'.CO_NO', 'LOSTFOCUS' )\r\n\t end\r\n\tend\r\nend\r\n*/\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/COMPANY.CREDIT_INFO.json b/LSL2/OIEVENT/OPTIONS/COMPANY.CREDIT_INFO.json new file mode 100644 index 0000000..003a6b6 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/COMPANY.CREDIT_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, update_index\r\n$insert rlist_equates\r\n\r\nif .credit_info->selpos<1> = 2 then\r\n rlist( 'SELECT LSL_USERS WITH ACTIVE BY LAST_FIRST', target_activelist$, '', '', '' )\r\n return 1\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/COMPANY.INTL_PHONES.json b/LSL2/OIEVENT/OPTIONS/COMPANY.INTL_PHONES.json new file mode 100644 index 0000000..aabed78 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/COMPANY.INTL_PHONES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "if .intl_phones->selpos<1> = 2 then\r\n return 1\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/COMPANY.PHONES.json b/LSL2/OIEVENT/OPTIONS/COMPANY.PHONES.json new file mode 100644 index 0000000..12f8807 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/COMPANY.PHONES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "if .phones->selpos<1> = 2 then\r\n return 1\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/COMPANY.SHIPPERINFO.json b/LSL2/OIEVENT/OPTIONS/COMPANY.SHIPPERINFO.json new file mode 100644 index 0000000..9f531a4 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/COMPANY.SHIPPERINFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "Selpos = .shipperinfo->selpos\r\nif SelPos<1> = 1 then\r\n * show popup\r\n return 1 \r\nend else\r\n RETURN 0\r\nend" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/CUST_ACTIVITY_RPT1.CUST_NO.json b/LSL2/OIEVENT/OPTIONS/CUST_ACTIVITY_RPT1.CUST_NO.json new file mode 100644 index 0000000..28b33fc --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/CUST_ACTIVITY_RPT1.CUST_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function send_event\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nforward_event()\r\nVoid = send_event( CtrlEntId, 'LOSTFOCUS' )\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/CUST_INQUIRY.CUST_INQUIRY_ID.json b/LSL2/OIEVENT/OPTIONS/CUST_INQUIRY.CUST_INQUIRY_ID.json new file mode 100644 index 0000000..e66d1af --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/CUST_INQUIRY.CUST_INQUIRY_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n\r\nCIKeys = dialog_box( 'CUST_INQUIRY_QUERY', @window, '' )\r\nif CIKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'CUST_INQUIRY_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, CIKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .cust_inquiry_id->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .cust_inquiry_id->text = ChoosenKeys\r\n\t Void = send_event( @window:'.CUST_INQUIRY_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/CUST_INQUIRY.CUST_NO.json b/LSL2/OIEVENT/OPTIONS/CUST_INQUIRY.CUST_NO.json new file mode 100644 index 0000000..28b33fc --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/CUST_INQUIRY.CUST_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function send_event\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nforward_event()\r\nVoid = send_event( CtrlEntId, 'LOSTFOCUS' )\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/CUST_INQUIRY.FAX.json b/LSL2/OIEVENT/OPTIONS/CUST_INQUIRY.FAX.json new file mode 100644 index 0000000..91e45c3 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/CUST_INQUIRY.FAX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert company_equ\r\n$insert names_equ\r\n$insert msg_equates\r\n$insert popup_equates\r\ndeclare function fieldcount, msg, entid, repository\r\n\r\nCustomerRec = xlate( 'COMPANY', .cust_no->text, '', 'X' )\r\nNameRec = xlate( 'NAMES', .name_no->text, '', 'X' )\r\n\r\n* get the fax numbers for this customer\r\nCustPhones = CustomerRec\r\nCustPhoneTypes = CustomerRec\r\nCpCnt = fieldcount( CustPhones, @vm )\r\nExpInfo = ''\r\nfor i = 1 to CpCnt\r\n ThisPhoneType = CustPhoneTypes<1,i>\r\n ThisPhoneNum = CustPhones<1,i>\r\n convert @lower.case to @upper.case in ThisPhoneType\r\n if ThisPhoneType = 'FAX' then\r\n ExpInfo := oconv( .cust_no->text, '[XLATE_CONV,COMPANY*CO_NAME]' ):@svm:ThisPhoneNum:@vm\r\n end\r\nnext i\r\n\r\n* now get all fax numbers for this contact name\r\nNamePhones = NameRec\r\nNamePhoneTypes = NameRec\r\nNpCnt = fieldcount( NamePhones, @vm )\r\nfor i = 1 to NpCnt\r\n ThisPhoneType = NamePhoneTypes<1,i>\r\n ThisPhoneNum = NamePhones<1,i>\r\n convert @lower.case to @upper.case in ThisPhoneType\r\n if ThisPhoneType = 'FAX' then\r\n ExpInfo := oconv( .name_no->text, '[XLATE_CONV,NAMES*FIRST_LAST]' ):@svm:ThisPhoneNum:@vm\r\n end\r\nnext i\r\nif ExpInfo then\r\n ExpInfo[-1,1] = ''\r\n PopId = entid( @appid<1>, 'POPUP', '', 'FAX_NUMBERS' )\r\n OverRide = ''\r\n OverRide = ExpInfo\r\n Tresp = repository( 'EXECUTE', PopId, @window, OverRide )\r\n if Tresp <> '' then\r\n .fax->text = Tresp\r\n end\r\nend else\r\n MsgText = ''\r\n MsgText = 'There are no fax numbers defined for ':oconv( .cust_no->text, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n MsgText = MsgText:' or for ':oconv( .name_no->text, '[XLATE_CONV,NAMES*FIRST_LAST]' ):'.'\r\n MsgText = '!'\r\n Void = msg( '', MsgText )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/CUST_INQUIRY.INTL_FAX.json b/LSL2/OIEVENT/OPTIONS/CUST_INQUIRY.INTL_FAX.json new file mode 100644 index 0000000..f8640c1 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/CUST_INQUIRY.INTL_FAX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert company_equ\r\n$insert names_equ\r\n$insert msg_equates\r\n$insert popup_equates\r\ndeclare function fieldcount, msg, entid, repository\r\n\r\nCustomerRec = xlate( 'COMPANY', .cust_no->text, '', 'X' )\r\nNameRec = xlate( 'NAMES', .name_no->text, '', 'X' )\r\n\r\n* get the fax numbers for this customer\r\nICustPhones = CustomerRec\r\nICustPhoneTypes = CustomerRec\r\nCpCnt = fieldcount( ICustPhones, @vm )\r\nExpInfo = ''\r\nfor i = 1 to CpCnt\r\n ThisPhoneType = ICustPhoneTypes<1,i>\r\n ThisPhoneNum = ICustPhones<1,i>\r\n convert @lower.case to @upper.case in ThisPhoneType\r\n if ThisPhoneType = 'FAX' then\r\n ExpInfo := oconv( .cust_no->text, '[XLATE_CONV,COMPANY*CO_NAME]' ):@svm:ThisPhoneNum:@vm\r\n end\r\nnext i\r\n\r\n* now get all fax numbers for this contact name\r\nINamePhones = NameRec\r\nINamePhoneTypes = NameRec\r\nNpCnt = fieldcount( INamePhones, @vm )\r\nfor i = 1 to NpCnt\r\n ThisPhoneType = INamePhoneTypes<1,i>\r\n ThisPhoneNum = INamePhones<1,i>\r\n convert @lower.case to @upper.case in ThisPhoneType\r\n if ThisPhoneType = 'FAX' then\r\n ExpInfo := oconv( .name_no->text, '[XLATE_CONV,NAMES*FIRST_LAST]' ):@svm:ThisPhoneNum:@vm\r\n end\r\nnext i\r\nif ExpInfo then\r\n ExpInfo[-1,1] = ''\r\n PopId = entid( @appid<1>, 'POPUP', '', 'INTL_FAX_NUMBERS' )\r\n OverRide = ''\r\n OverRide = ExpInfo\r\n Tresp = repository( 'EXECUTE', PopId, @window, OverRide )\r\n if Tresp <> '' then\r\n .intl_fax->text = Tresp\r\n end\r\nend else\r\n MsgText = ''\r\n MsgText = 'There are no international fax numbers defined for ':oconv( .cust_no->text, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n MsgText = MsgText:' or for ':oconv( .name_no->text, '[XLATE_CONV,NAMES*FIRST_LAST]' ):'.'\r\n MsgText = '!'\r\n Void = msg( '', MsgText )\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/CUST_INQUIRY.NAME_NO.json b/LSL2/OIEVENT/OPTIONS/CUST_INQUIRY.NAME_NO.json new file mode 100644 index 0000000..649de6c --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/CUST_INQUIRY.NAME_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert msg_equates\r\ndeclare function msg, key_sort\r\ndeclare subroutine make.list\r\n\r\nCustNo = .cust_no->text\r\nNameKeys = xlate( 'COMPANY', CustNo, 'NAME_KEYS', 'X' )\r\nif NameKeys then\r\n convert @vm to @fm in NameKeys\r\n NameKeys = key_sort( NameKeys, 'NAMES', 'LAST_FIRST', 1, '', '' )\r\n make.list( 0, NameKeys, '', '' )\r\n return 1\r\nend else\r\n MsgText = ''\r\n MsgText = 'There are no names defined for ':oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' ) \r\n MsgText = '!'\t\r\n Void = msg( '', MsgText ) \r\n return 0\r\nend\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/CUST_INQUIRY.PROD_SPEC_ID.json b/LSL2/OIEVENT/OPTIONS/CUST_INQUIRY.PROD_SPEC_ID.json new file mode 100644 index 0000000..90ad0e1 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/CUST_INQUIRY.PROD_SPEC_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function key_sort, entid, repository, msg, post_event\r\ndeclare subroutine make.list\r\n$insert msg_equates\r\n\r\nCustNo = .cust_no->text\r\nOpenKeys = xlate( 'COMPANY', CustNo, 'ACTIVE_PROD_SPEC_KEYS', 'X' )\r\nif OpenKeys then\r\n\tconvert @vm to @fm in OpenKeys\r\n\tOpenKeys = key_sort( OpenKeys, 'PROD_SPEC', 'CUST_NAME':@fm:'#REV_DATE', 1, '', '' )\r\n\tmake.list( 0, OpenKeys, '', '' )\r\n\tPopupId = entid( @appid<1>, 'POPUP', '', 'PROD_SPEC_SINGLE' )\r\n\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\tif ChoosenRow then\r\n\t\t.prod_spec_id->text = ChoosenRow\r\n\t\t*Void = post_event( @window:'.PROD_SPEC_ID', 'LOSTFOCUS' )\r\n\tend\r\nend else\r\n Text = 'There are no product specifications for '\t\t \r\n Text:= oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n MsgInfo = ''\r\n MsgInfo = Text\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/CUST_INQUIRY_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/CUST_INQUIRY_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/CUST_INQUIRY_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/CUST_INQUIRY_QUERY.ENTRY_IDS.json b/LSL2/OIEVENT/OPTIONS/CUST_INQUIRY_QUERY.ENTRY_IDS.json new file mode 100644 index 0000000..d9b0e4b --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/CUST_INQUIRY_QUERY.ENTRY_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .entry_ids->array\r\n CurRow = .entry_ids->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .entry_ids->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/DBW_PROD_SPEC_GAN.EDL_PART_NO.json b/LSL2/OIEVENT/OPTIONS/DBW_PROD_SPEC_GAN.EDL_PART_NO.json new file mode 100644 index 0000000..54ad62b --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/DBW_PROD_SPEC_GAN.EDL_PART_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function getwindow, fieldcount, send_event\r\ndeclare subroutine sendmessage, make.list\r\n\r\n$insert popup_equates\r\n\r\nequ QbfOccurred$ to 1126\r\n\r\nCPSKeys = dialog_box( 'PROD_SPEC_QUERY', @window, '' )\r\n\r\nif CPSKeys then\r\n\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'PROD_SPEC_QUERY' )\r\n\t\r\n\tOverRide = ''\r\n\tmake.list( 0, CPSKeys, '', '' )\r\n\tChosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\t\r\n\tif ChosenKeys then\r\n\t convert @vm to @fm in ChosenKeys\r\n\t \r\n\t if fieldcount( ChosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChosenKeys )\r\n\t\t WndHnd = get_property( @window, 'HANDLE' )\r\n\t\t \r\n\t\t HbBar = getwindow( WndHnd, 5 )\r\n\t\t sendmessage( HbBar, QbfOccurred$, 0, 0 )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .prod_spec_id->text = ChosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .prod_spec_id->text = ChosenKeys\r\n\t Void = send_event( @window:'.PROD_SPEC_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/DBW_PROD_SPEC_GAN.PROD_SPEC_ID.json b/LSL2/OIEVENT/OPTIONS/DBW_PROD_SPEC_GAN.PROD_SPEC_ID.json new file mode 100644 index 0000000..54ad62b --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/DBW_PROD_SPEC_GAN.PROD_SPEC_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function getwindow, fieldcount, send_event\r\ndeclare subroutine sendmessage, make.list\r\n\r\n$insert popup_equates\r\n\r\nequ QbfOccurred$ to 1126\r\n\r\nCPSKeys = dialog_box( 'PROD_SPEC_QUERY', @window, '' )\r\n\r\nif CPSKeys then\r\n\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'PROD_SPEC_QUERY' )\r\n\t\r\n\tOverRide = ''\r\n\tmake.list( 0, CPSKeys, '', '' )\r\n\tChosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\t\r\n\tif ChosenKeys then\r\n\t convert @vm to @fm in ChosenKeys\r\n\t \r\n\t if fieldcount( ChosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChosenKeys )\r\n\t\t WndHnd = get_property( @window, 'HANDLE' )\r\n\t\t \r\n\t\t HbBar = getwindow( WndHnd, 5 )\r\n\t\t sendmessage( HbBar, QbfOccurred$, 0, 0 )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .prod_spec_id->text = ChosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .prod_spec_id->text = ChosenKeys\r\n\t Void = send_event( @window:'.PROD_SPEC_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/DESIG_ERR_GRP.DESIG_ID.json b/LSL2/OIEVENT/OPTIONS/DESIG_ERR_GRP.DESIG_ID.json new file mode 100644 index 0000000..ff7452d --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/DESIG_ERR_GRP.DESIG_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, repository, set_property, get_property, fieldcount\r\ndeclare function send_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nStmt = 'SELECT DESIG_ERR_GRP BY DESIG_DESC'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_DESIG_ERR_GRP' )\r\n OverRide = ''\r\n OverRide = 2\r\n RetVals = repository( 'EXECUTE', PopupRec, @window, OverRide )\r\n if RetVals then\r\n convert @vm to @fm in RetVals\r\n if fieldcount( RetVals, @fm ) > 1 then\r\n Void = set_property( @window, 'QBFLIST', RetVals )\r\n Void = set_property( @window, '@NoRead', 1 ) \r\n .desig_id->text = RetVals<1> \r\n Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .desig_id->text = RetVals\r\n Void = send_event( @window:'.DESIG_ID', 'LOSTFOCUS', '' )\r\n end\r\n end\r\nend \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/EXPORT3.EXPORT_INFO.json b/LSL2/OIEVENT/OPTIONS/EXPORT3.EXPORT_INFO.json new file mode 100644 index 0000000..8d972eb --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/EXPORT3.EXPORT_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository\r\n$insert popup_equates\r\n\r\nSelPos = .export_info->selpos\r\nCurRow = SelPos<2>\r\nPopRec = entid( @appid<1>, 'POPUP', '', 'EXPORT_COLUMN' )\r\nExpData = get_property( @window, '@Columns' )\r\nOverRide = ''\r\nOverRide = ExpData\r\nChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\nif Choosen then\r\n convert @fm to @vm in Choosen\r\n\tCurArray = .export_info->array\r\n\tCurArray = delete( CurArray, 1, CurRow, 0 )\r\n\tCurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n\t.export_info->Array = CurArray\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/EXPORT3.EXPORT_NAME.json b/LSL2/OIEVENT/OPTIONS/EXPORT3.EXPORT_NAME.json new file mode 100644 index 0000000..ace2b33 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/EXPORT3.EXPORT_NAME.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, update_index\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT EXPORTS BY NAME WITH ENTRY_ID = ':quote(@user4), target_activelist$, '', '', '' )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/EXPORT3.NQUERY_INFO.json b/LSL2/OIEVENT/OPTIONS/EXPORT3.NQUERY_INFO.json new file mode 100644 index 0000000..5df35cf --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/EXPORT3.NQUERY_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, dialog_box\r\n$insert popup_equates\r\n\r\nSelPos = .nquery_info->selpos\r\nCurColumn = SelPos<1>\r\nCurRow = SelPos<2>\r\nif CurColumn = 1 then\r\n\tPopRec = entid( @appid<1>, 'POPUP', '', 'EXPORT_COLUMN' )\r\n\tExpData = get_property( @window, '@QColumns' )\r\n\tOverRide = ''\r\n\tOverRide = ExpData\r\n\tChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\n\tif Choosen then\r\n\t\tconvert @fm to @vm in Choosen\r\n\t CurArray = .nquery_info->array\r\n\t CurArray = delete( CurArray, 1, CurRow, 0 )\r\n\t CurArray = delete( CurArray, 2, CurRow, 0 )\r\n\t CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n\t CurArray = insert( CurArray, 2, CurRow, 0, '' )\r\n\t .nquery_info->Array = CurArray\r\n\tend\r\nend else\r\n CurArray = .nquery_info->array\r\n Column = CurArray<1,CurRow>\r\n Filter = CurArray<2,CurRow>\r\n DatToPass = Column:'*':Filter\r\n RetVal = dialog_box( 'EXPORTS2', @window, DatToPass )\r\n if RetVal <> Filter and RetVal <> 'CANCEL' then\r\n CurArray<2,CurRow> = RetVal\r\n .nquery_info->array = CurArray\r\n end\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/EXPORT3.QUERY_INFO.json b/LSL2/OIEVENT/OPTIONS/EXPORT3.QUERY_INFO.json new file mode 100644 index 0000000..a7099c1 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/EXPORT3.QUERY_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, dialog_box\r\n$insert popup_equates\r\n\r\nSelPos = .query_info->selpos\r\nCurColumn = SelPos<1>\r\nCurRow = SelPos<2>\r\nif CurColumn = 1 then\r\n\tPopRec = entid( @appid<1>, 'POPUP', '', 'EXPORT_COLUMN' )\r\n\tExpData = get_property( @window, '@BtreeColumns' )\r\n\tOverRide = ''\r\n\tOverRide = ExpData\r\n\tChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\n\tif Choosen then\r\n\t\tconvert @fm to @vm in Choosen\r\n\t CurArray = .query_info->array\r\n\t CurArray = delete( CurArray, 1, CurRow, 0 )\r\n\t CurArray = delete( CurArray, 2, CurRow, 0 )\r\n\t CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n\t CurArray = insert( CurArray, 2, CurRow, 0, '' )\r\n\t .query_info->Array = CurArray\r\n\tend\r\nend else\r\n CurArray = .query_info->array\r\n Column = CurArray<1,CurRow>\r\n Filter = CurArray<2,CurRow>\r\n DatToPass = Column:'*':Filter\r\n RetVal = dialog_box( 'EXPORTS2', @window, DatToPass )\r\n if RetVal <> Filter and RetVal <> 'CANCEL' then\r\n CurArray<2,CurRow> = RetVal\r\n .query_info->array = CurArray\r\n end\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/EXPORTS.EXPORT_INFO.json b/LSL2/OIEVENT/OPTIONS/EXPORTS.EXPORT_INFO.json new file mode 100644 index 0000000..8d972eb --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/EXPORTS.EXPORT_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository\r\n$insert popup_equates\r\n\r\nSelPos = .export_info->selpos\r\nCurRow = SelPos<2>\r\nPopRec = entid( @appid<1>, 'POPUP', '', 'EXPORT_COLUMN' )\r\nExpData = get_property( @window, '@Columns' )\r\nOverRide = ''\r\nOverRide = ExpData\r\nChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\nif Choosen then\r\n convert @fm to @vm in Choosen\r\n\tCurArray = .export_info->array\r\n\tCurArray = delete( CurArray, 1, CurRow, 0 )\r\n\tCurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n\t.export_info->Array = CurArray\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/EXPORTS.EXPORT_NAME.json b/LSL2/OIEVENT/OPTIONS/EXPORTS.EXPORT_NAME.json new file mode 100644 index 0000000..03e5cc4 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/EXPORTS.EXPORT_NAME.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, update_index\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT EXPORTS BY NAME WITH SHARABLE = 1 OR WITH ENTRY_ID = ':quote(@user4), target_activelist$, '', '', '' )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/EXPORTS.NQUERY_INFO.json b/LSL2/OIEVENT/OPTIONS/EXPORTS.NQUERY_INFO.json new file mode 100644 index 0000000..5df35cf --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/EXPORTS.NQUERY_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, dialog_box\r\n$insert popup_equates\r\n\r\nSelPos = .nquery_info->selpos\r\nCurColumn = SelPos<1>\r\nCurRow = SelPos<2>\r\nif CurColumn = 1 then\r\n\tPopRec = entid( @appid<1>, 'POPUP', '', 'EXPORT_COLUMN' )\r\n\tExpData = get_property( @window, '@QColumns' )\r\n\tOverRide = ''\r\n\tOverRide = ExpData\r\n\tChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\n\tif Choosen then\r\n\t\tconvert @fm to @vm in Choosen\r\n\t CurArray = .nquery_info->array\r\n\t CurArray = delete( CurArray, 1, CurRow, 0 )\r\n\t CurArray = delete( CurArray, 2, CurRow, 0 )\r\n\t CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n\t CurArray = insert( CurArray, 2, CurRow, 0, '' )\r\n\t .nquery_info->Array = CurArray\r\n\tend\r\nend else\r\n CurArray = .nquery_info->array\r\n Column = CurArray<1,CurRow>\r\n Filter = CurArray<2,CurRow>\r\n DatToPass = Column:'*':Filter\r\n RetVal = dialog_box( 'EXPORTS2', @window, DatToPass )\r\n if RetVal <> Filter and RetVal <> 'CANCEL' then\r\n CurArray<2,CurRow> = RetVal\r\n .nquery_info->array = CurArray\r\n end\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/EXPORTS.QUERY_INFO.json b/LSL2/OIEVENT/OPTIONS/EXPORTS.QUERY_INFO.json new file mode 100644 index 0000000..a7099c1 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/EXPORTS.QUERY_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, dialog_box\r\n$insert popup_equates\r\n\r\nSelPos = .query_info->selpos\r\nCurColumn = SelPos<1>\r\nCurRow = SelPos<2>\r\nif CurColumn = 1 then\r\n\tPopRec = entid( @appid<1>, 'POPUP', '', 'EXPORT_COLUMN' )\r\n\tExpData = get_property( @window, '@BtreeColumns' )\r\n\tOverRide = ''\r\n\tOverRide = ExpData\r\n\tChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\n\tif Choosen then\r\n\t\tconvert @fm to @vm in Choosen\r\n\t CurArray = .query_info->array\r\n\t CurArray = delete( CurArray, 1, CurRow, 0 )\r\n\t CurArray = delete( CurArray, 2, CurRow, 0 )\r\n\t CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n\t CurArray = insert( CurArray, 2, CurRow, 0, '' )\r\n\t .query_info->Array = CurArray\r\n\tend\r\nend else\r\n CurArray = .query_info->array\r\n Column = CurArray<1,CurRow>\r\n Filter = CurArray<2,CurRow>\r\n DatToPass = Column:'*':Filter\r\n RetVal = dialog_box( 'EXPORTS2', @window, DatToPass )\r\n if RetVal <> Filter and RetVal <> 'CANCEL' then\r\n CurArray<2,CurRow> = RetVal\r\n .query_info->array = CurArray\r\n end\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/GAN_PROD_SPEC.PROD_SPEC_ID.json b/LSL2/OIEVENT/OPTIONS/GAN_PROD_SPEC.PROD_SPEC_ID.json new file mode 100644 index 0000000..54ad62b --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/GAN_PROD_SPEC.PROD_SPEC_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function getwindow, fieldcount, send_event\r\ndeclare subroutine sendmessage, make.list\r\n\r\n$insert popup_equates\r\n\r\nequ QbfOccurred$ to 1126\r\n\r\nCPSKeys = dialog_box( 'PROD_SPEC_QUERY', @window, '' )\r\n\r\nif CPSKeys then\r\n\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'PROD_SPEC_QUERY' )\r\n\t\r\n\tOverRide = ''\r\n\tmake.list( 0, CPSKeys, '', '' )\r\n\tChosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\t\r\n\tif ChosenKeys then\r\n\t convert @vm to @fm in ChosenKeys\r\n\t \r\n\t if fieldcount( ChosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChosenKeys )\r\n\t\t WndHnd = get_property( @window, 'HANDLE' )\r\n\t\t \r\n\t\t HbBar = getwindow( WndHnd, 5 )\r\n\t\t sendmessage( HbBar, QbfOccurred$, 0, 0 )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .prod_spec_id->text = ChosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .prod_spec_id->text = ChosenKeys\r\n\t Void = send_event( @window:'.PROD_SPEC_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/HOTH2O2_LOG.LOG_NO.json b/LSL2/OIEVENT/OPTIONS/HOTH2O2_LOG.LOG_NO.json new file mode 100644 index 0000000..31392b8 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/HOTH2O2_LOG.LOG_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n\r\nHotH2O2LogKeys = dialog_box( 'HOTH2O2_LOG_QUERY', @window, '' )\r\nif HotH2O2LogKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'HOTH2O2_LOG_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, HotH2O2LogKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .log_no->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .log_no->text = ChoosenKeys\r\n\t Void = send_event( @window:'.LOG_NO', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/HOTH2O2_LOG_QUERY.TECHS.json b/LSL2/OIEVENT/OPTIONS/HOTH2O2_LOG_QUERY.TECHS.json new file mode 100644 index 0000000..7fa4e0c --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/HOTH2O2_LOG_QUERY.TECHS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS WITH ACTIVE AND WITH GROUPS CONTAINING \"SUPERVISOR\" \"DATA_ENTRY\" BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .techs->array\r\n CurRow = .techs->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .techs->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/INVOICE.CUST_NO.json b/LSL2/OIEVENT/OPTIONS/INVOICE.CUST_NO.json new file mode 100644 index 0000000..4885fd5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/INVOICE.CUST_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function send_event\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nforward_event()\r\nVoid = send_event( CtrlEntId, 'LOSTFOCUS' )\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/INVOICE.INVOICE_DETAIL.json b/LSL2/OIEVENT/OPTIONS/INVOICE.INVOICE_DETAIL.json new file mode 100644 index 0000000..cb178a2 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/INVOICE.INVOICE_DETAIL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function relational_call, start_window, msg, entid, repository\r\ndeclare function key_sort, send_event, rowexists\r\ndeclare subroutine make.list\r\n$insert logical\r\n$insert msg_equates\r\n$insert quote_equ\r\n\r\nSelpos = .invoice_detail->selpos\r\nColumn = SelPos<1>\r\nRow = SelPos<2>\r\nSelpos = .order_detail->selpos\r\nColData = get_property( @window:'.INVOICE_DETAIL', 'COLDATA' )\r\nbegin case\r\n case Column = 2 ;* quote\r\n Quotes = .invoice_detail->array<2>\r\n \tPopupId = entid( @appid<1>, 'POPUP', '', 'INVOICE_GOTO_QUOTE' )\r\n\t\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\t\tif ChoosenRow then\r\n\t\t\tif ChoosenRow = 1 then ;* view current\r\n\t\t\t Keys = Quotes<1,Row>\r\n\t end else\r\n\t if ChoosenRow = 2 then ;* all\r\n\t Keys = Quotes\r\n\t end\r\n\t end\r\n\t Void = start_window( 'QUOTE', @window, Keys, '', '' )\r\n end\r\n case Column = 3 ;* schedule\r\n Schedules = .invoice_detail->array<3>\r\n \tPopupId = entid( @appid<1>, 'POPUP', '', 'INVOICE_GOTO_SCHED' )\r\n\t\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\t\tif ChoosenRow then\r\n\t\t\tif ChoosenRow = 1 then ;* view current\r\n\t\t\t Keys = Schedules<1,Row>\r\n\t end else\r\n\t if ChoosenRow = 2 then ;* all\r\n\t Keys = Schedules\r\n\t end\r\n\t end\r\n\t Void = start_window( 'SCHEDULE', @window, Keys, '', '' )\r\n end\r\n case Column = 7 ;* GL Account\r\n PopupId = entid( @appid<1>, 'POPUP', '', 'GL_ACCTS_MESA' ) \r\n\t ChoosenAcct = repository( 'EXECUTE', PopupId, @window, '' )\r\n\t\tif ChoosenAcct then\r\n\t\t ColData<1,Row> = ChoosenAcct\r\n\t\t .invoice_detail->coldata = ColData\r\n end\r\n case Otherwise$\r\nend case\r\nRETURN 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/INVOICE.INVOICE_NO.json b/LSL2/OIEVENT/OPTIONS/INVOICE.INVOICE_NO.json new file mode 100644 index 0000000..ae05b43 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/INVOICE.INVOICE_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n\r\nInvoiceKeys = dialog_box( 'INVOICE_QUERY', @window, '' )\r\nif InvoiceKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'INVOICE_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, InvoiceKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .invoice_no->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .invoice_no->text = ChoosenKeys\r\n\t Void = send_event( @window:'.INVOICE_NO', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/INVOICE_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/INVOICE_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..bd29296 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/INVOICE_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/INVOICE_RPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/INVOICE_RPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/INVOICE_RPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/INVOICE_RPT3.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/INVOICE_RPT3.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/INVOICE_RPT3.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/INVOICE_RPT4.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/INVOICE_RPT4.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/INVOICE_RPT4.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/INVOICE_RPT5.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/INVOICE_RPT5.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/INVOICE_RPT5.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/INVOICE_RPT6.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/INVOICE_RPT6.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/INVOICE_RPT6.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/INVOICE_SRL_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/INVOICE_SRL_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/INVOICE_SRL_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/INVOICE_SRPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/INVOICE_SRPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/INVOICE_SRPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/INVOICE_SRPT3.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/INVOICE_SRPT3.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/INVOICE_SRPT3.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/INVOICE_SRPT4.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/INVOICE_SRPT4.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/INVOICE_SRPT4.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/INVOICE_SRPT5.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/INVOICE_SRPT5.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/INVOICE_SRPT5.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/LISTBOX_CONFIG.ITEM.json b/LSL2/OIEVENT/OPTIONS/LISTBOX_CONFIG.ITEM.json new file mode 100644 index 0000000..3342022 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/LISTBOX_CONFIG.ITEM.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n$insert rlist_equates\r\n\r\nPopId = entid( @appid<1>, 'POPUP', '', 'LISTBOX_CONFIG' )\r\nOverRide = ''\r\nrlist( 'SELECT LISTBOX_CONFIG BY ITEM', target_activelist$, '', '', '' )\r\nChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\nif ChoosenKeys then\r\n convert @vm to @fm in ChoosenKeys\r\n if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .item->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .item->text = ChoosenKeys\r\n\t Void = send_event( @window:'.ITEM', 'LOSTFOCUS', '' )\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/LOSS_CODES.LOSS_CODE.json b/LSL2/OIEVENT/OPTIONS/LOSS_CODES.LOSS_CODE.json new file mode 100644 index 0000000..c62072f --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/LOSS_CODES.LOSS_CODE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, repository, set_property, get_property, fieldcount\r\ndeclare function send_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nStmt = 'SELECT LOSS_CODES BY CODE'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_LOSS_CODES' )\r\n OverRide = ''\r\n OverRide = 2\r\n RetVals = repository( 'EXECUTE', PopupRec, @window, OverRide )\r\n if RetVals then\r\n convert @vm to @fm in RetVals\r\n if fieldcount( RetVals, @fm ) > 1 then\r\n Void = set_property( @window, 'QBFLIST', RetVals )\r\n Void = set_property( @window, '@NoRead', 1 ) \r\n .loss_code->text = RetVals<1> \r\n Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .loss_code->text = RetVals\r\n Void = send_event( @window:'.LOSS_CODE', 'LOSTFOCUS', '' )\r\n end\r\n end\r\nend \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/LSL_USERS.TABLESECURITY.json b/LSL2/OIEVENT/OPTIONS/LSL_USERS.TABLESECURITY.json new file mode 100644 index 0000000..a05a4ba --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/LSL_USERS.TABLESECURITY.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository\r\n\r\nif .tablesecurity->selpos<1> = 1 then\r\n return 1\r\nend else\r\n CurRow = .tablesecurity->rowdata\r\n PopupId = entid( @appid<1>, 'POPUP', '', 'SECURITY_RIGHTS' )\r\n RetVal = repository( 'EXECUTE', PopupId, @window, '' )\r\n if RetVal then\r\n convert @vm to '' in RetVal\r\n CurRow<2> = RetVal\r\n .tablesecurity->rowdata = CurRow\r\n end\r\n return 0\r\nend" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/LSL_USERS_RPT1.USERS.json b/LSL2/OIEVENT/OPTIONS/LSL_USERS_RPT1.USERS.json new file mode 100644 index 0000000..b48ddab --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/LSL_USERS_RPT1.USERS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, popup, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS WITH ACTIVE BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .users->array\r\n CurRow = .users->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .users->Array = CurArray\r\n Void = send_event( CtrlEntId, 'LOSTFOCUS', '' )\r\n Void = post_event( @window:'.EXPAND', 'GOTFOCUS', '' )\r\n Void = set_property( @window:'.EXPAND', 'FOCUS', 1 )\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/MASTER_DISK_LOG.LOG_NO.json b/LSL2/OIEVENT/OPTIONS/MASTER_DISK_LOG.LOG_NO.json new file mode 100644 index 0000000..0d5bd89 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/MASTER_DISK_LOG.LOG_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n\r\nMasDiskLogKeys = dialog_box( 'MASTER_DISK_LOG_QUERY', @window, '' )\r\nif MasDiskLogKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'MASTER_DISK_LOG_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, MasDiskLogKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .log_no->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .log_no->text = ChoosenKeys\r\n\t Void = send_event( @window:'.LOG_NO', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/MASTER_DISK_LOG_QUERY.TECHS.json b/LSL2/OIEVENT/OPTIONS/MASTER_DISK_LOG_QUERY.TECHS.json new file mode 100644 index 0000000..684af1c --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/MASTER_DISK_LOG_QUERY.TECHS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS WITH ACTIVE AND WITH GROUPS CONTAINING \"SUPERVISOR\" \"ENGINEERING\" BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .techs->array\r\n CurRow = .techs->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .techs->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/MEG_LOG.LOG_NO.json b/LSL2/OIEVENT/OPTIONS/MEG_LOG.LOG_NO.json new file mode 100644 index 0000000..31d3e14 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/MEG_LOG.LOG_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n\r\nMegLogKeys = dialog_box( 'MEG_LOG_QUERY', @window, '' )\r\nif MegLogKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'MEG_LOG_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, MegLogKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .log_no->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .log_no->text = ChoosenKeys\r\n\t Void = send_event( @window:'.LOG_NO', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/MEG_LOG_QUERY.TECHS.json b/LSL2/OIEVENT/OPTIONS/MEG_LOG_QUERY.TECHS.json new file mode 100644 index 0000000..7fa4e0c --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/MEG_LOG_QUERY.TECHS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS WITH ACTIVE AND WITH GROUPS CONTAINING \"SUPERVISOR\" \"DATA_ENTRY\" BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .techs->array\r\n CurRow = .techs->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .techs->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/MSG_GROUPS.GROUP_NAME.json b/LSL2/OIEVENT/OPTIONS/MSG_GROUPS.GROUP_NAME.json new file mode 100644 index 0000000..562106b --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/MSG_GROUPS.GROUP_NAME.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist \r\ndeclare function entid, repository, set_property, get_property, fieldcount\r\ndeclare function send_event, msg\r\n$insert rlist_equates\r\n$insert popup_equates\r\n$insert msg_equates\r\n\r\n*Stmt selects from MSG_Groups table the group_names & restricts viewing to the username that matches the entry_id\r\nStmt = 'SELECT MSG_GROUPS WITH ENTRY_ID = ':quote( @user4 ):' BY GROUP_NAME'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\n\r\nif @reccount then\r\n PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_GROUP_NAMES' )\r\n RetVals = repository( 'EXECUTE', PopupRec, @window, '' )\r\n if RetVals then\r\n convert @vm to @fm in RetVals\r\n if fieldcount( RetVals, @fm ) > 1 then\r\n Void = set_property( @window, 'QBFLIST', RetVals )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .group_name->text = RetVals<1>\r\n Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .group_name->text = RetVals\r\n Void = send_event( @window:'.GROUP_NAME', 'LOSTFOCUS', '' )\r\n end\r\n end\r\nend else\r\n MsgRec = ''\r\n MsgRec = 'You do not have any group names...'\r\n MsgRec = '!' \r\n Void = msg( '', MsgRec )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/MSG_GROUPS.USER_IDS.json b/LSL2/OIEVENT/OPTIONS/MSG_GROUPS.USER_IDS.json new file mode 100644 index 0000000..21f118d --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/MSG_GROUPS.USER_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS WITH ACTIVE = 1 BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .user_ids->array\r\n CurRow = .user_ids->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .user_ids->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/NAMES.INTL_PHONES.json b/LSL2/OIEVENT/OPTIONS/NAMES.INTL_PHONES.json new file mode 100644 index 0000000..9d9f785 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/NAMES.INTL_PHONES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "if .intl_phones->selpos<1> = 2 then\r\n return 1\r\nend else\r\n RETURN 0\r\nend" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/NAMES.PHONES.json b/LSL2/OIEVENT/OPTIONS/NAMES.PHONES.json new file mode 100644 index 0000000..f688277 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/NAMES.PHONES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "if .phones->selpos<1> = 2 then\r\n return 1\r\nend else\r\n RETURN 0\r\nend" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/NCR.NCR_ID.json b/LSL2/OIEVENT/OPTIONS/NCR.NCR_ID.json new file mode 100644 index 0000000..55ed8c0 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/NCR.NCR_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n\r\nNCRKeys = dialog_box( 'NCR_QUERY', @window, '' )\r\nif NCRKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'NCR_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, NCRKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .ncr_id->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .ncr_id->text = ChoosenKeys\r\n\t Void = send_event( @window:'.NCR_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/NCR.NCR_NO.json b/LSL2/OIEVENT/OPTIONS/NCR.NCR_NO.json new file mode 100644 index 0000000..55ed8c0 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/NCR.NCR_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n\r\nNCRKeys = dialog_box( 'NCR_QUERY', @window, '' )\r\nif NCRKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'NCR_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, NCRKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .ncr_id->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .ncr_id->text = ChoosenKeys\r\n\t Void = send_event( @window:'.NCR_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/NDA.CONTACT_IDS.json b/LSL2/OIEVENT/OPTIONS/NDA.CONTACT_IDS.json new file mode 100644 index 0000000..d980db5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/NDA.CONTACT_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, send_event\r\ndeclare subroutine rlist\r\n$insert popup_equates\r\n$insert rlist_equates\r\n\r\nCustNo = .cust_no->text\r\nSelPos = .contact_ids->selpos\r\nCurRow = SelPos<2>\r\nPopRec = entid( @appid<1>, 'POPUP', '', 'CHOOSE_NAME' )\r\nOverRide = ''\r\nOverRide = 2\r\nStmt = 'SELECT NAMES WITH CO_ID = ':CustNo:' BY LAST_FIRST'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\nif Choosen then\r\n convert @fm to @vm in Choosen\r\n\tCurArray = .contact_ids->array\r\n\tCurArray = delete( CurArray, 1, CurRow, 0 )\r\n\tCurArray = delete( CurArray, 2, CurRow, 0 )\r\n\tCurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n\t.contact_ids->array = CurArray\r\n\tVoid = set_property( @window, '@NoTopPos', 1 )\r\n Void = send_event( @window:'.CONTACT_IDS', 'LOSTFOCUS' )\t\r\n\tVoid = set_property( @window, '@NoTopPos', '' ) \r\nend\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/NDA.CUST_NO.json b/LSL2/OIEVENT/OPTIONS/NDA.CUST_NO.json new file mode 100644 index 0000000..28b33fc --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/NDA.CUST_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function send_event\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nforward_event()\r\nVoid = send_event( CtrlEntId, 'LOSTFOCUS' )\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/NDA.NDA_ID.json b/LSL2/OIEVENT/OPTIONS/NDA.NDA_ID.json new file mode 100644 index 0000000..96fc6fa --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/NDA.NDA_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function getwindow, fieldcount, send_event\r\ndeclare subroutine sendmessage, make.list\r\n$insert popup_equates\r\n\r\nRLKeys = dialog_box( 'NDA_QUERY', @window, '' )\r\nif RLKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'NDA_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, RLKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .nda_id->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .nda_id->text = ChoosenKeys\r\n\t Void = send_event( @window:'.NDA_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/NDA_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/NDA_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/NDA_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/NDW_GAN_PARAM_MANAGER.EDL_PART_NO.json b/LSL2/OIEVENT/OPTIONS/NDW_GAN_PARAM_MANAGER.EDL_PART_NO.json new file mode 100644 index 0000000..54ad62b --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/NDW_GAN_PARAM_MANAGER.EDL_PART_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function getwindow, fieldcount, send_event\r\ndeclare subroutine sendmessage, make.list\r\n\r\n$insert popup_equates\r\n\r\nequ QbfOccurred$ to 1126\r\n\r\nCPSKeys = dialog_box( 'PROD_SPEC_QUERY', @window, '' )\r\n\r\nif CPSKeys then\r\n\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'PROD_SPEC_QUERY' )\r\n\t\r\n\tOverRide = ''\r\n\tmake.list( 0, CPSKeys, '', '' )\r\n\tChosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\t\r\n\tif ChosenKeys then\r\n\t convert @vm to @fm in ChosenKeys\r\n\t \r\n\t if fieldcount( ChosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChosenKeys )\r\n\t\t WndHnd = get_property( @window, 'HANDLE' )\r\n\t\t \r\n\t\t HbBar = getwindow( WndHnd, 5 )\r\n\t\t sendmessage( HbBar, QbfOccurred$, 0, 0 )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .prod_spec_id->text = ChosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .prod_spec_id->text = ChosenKeys\r\n\t Void = send_event( @window:'.PROD_SPEC_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/NDW_GAN_PARAM_MANAGER.EDL_PSN.json b/LSL2/OIEVENT/OPTIONS/NDW_GAN_PARAM_MANAGER.EDL_PSN.json new file mode 100644 index 0000000..54ad62b --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/NDW_GAN_PARAM_MANAGER.EDL_PSN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function getwindow, fieldcount, send_event\r\ndeclare subroutine sendmessage, make.list\r\n\r\n$insert popup_equates\r\n\r\nequ QbfOccurred$ to 1126\r\n\r\nCPSKeys = dialog_box( 'PROD_SPEC_QUERY', @window, '' )\r\n\r\nif CPSKeys then\r\n\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'PROD_SPEC_QUERY' )\r\n\t\r\n\tOverRide = ''\r\n\tmake.list( 0, CPSKeys, '', '' )\r\n\tChosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\t\r\n\tif ChosenKeys then\r\n\t convert @vm to @fm in ChosenKeys\r\n\t \r\n\t if fieldcount( ChosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChosenKeys )\r\n\t\t WndHnd = get_property( @window, 'HANDLE' )\r\n\t\t \r\n\t\t HbBar = getwindow( WndHnd, 5 )\r\n\t\t sendmessage( HbBar, QbfOccurred$, 0, 0 )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .prod_spec_id->text = ChosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .prod_spec_id->text = ChosenKeys\r\n\t Void = send_event( @window:'.PROD_SPEC_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/NEW_REPORT.NEW_ID.json b/LSL2/OIEVENT/OPTIONS/NEW_REPORT.NEW_ID.json new file mode 100644 index 0000000..230236b --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/NEW_REPORT.NEW_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function send_event\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT CONFIG WITH ID \"[_SRPTCFG\" BY ID', target_activelist$, '', '', '' )\r\nforward_event()\r\nVoid = send_event( CtrlEntId, 'LOSTFOCUS' )\r\n\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/NOTES.FROM_INTERNAL.json b/LSL2/OIEVENT/OPTIONS/NOTES.FROM_INTERNAL.json new file mode 100644 index 0000000..81fa2a4 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/NOTES.FROM_INTERNAL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, popup, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nPopRec = xlate( 'SYSREPOSPOPUPS', @appid<1>:'**':'SHOW_USERS', '', 'X' )\r\nPopRec = 1\r\nChoice = popup( @window, PopRec ) \r\nif Choice then\r\n .from_internal->text = Choice\r\n .from_internal->misc = Choice\r\n Void = send_event( CtrlEntId, 'LOSTFOCUS', '' )\r\n Void = post_event( @window:'.SUBJECT', 'GOTFOCUS', '' )\r\n Void = set_property( @window:'.SUBJECT', 'FOCUS', 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/NOTES.SEND_TO_GROUP_INT.json b/LSL2/OIEVENT/OPTIONS/NOTES.SEND_TO_GROUP_INT.json new file mode 100644 index 0000000..5f7de3b --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/NOTES.SEND_TO_GROUP_INT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist \r\ndeclare function entid, repository, set_property, get_property, fieldcount\r\ndeclare function send_event, msg, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n$insert msg_equates\r\n\r\n*Stmt selects from MSG_Groups table the group_names & restricts viewing to the username that matches the entry_id\r\nStmt = 'SELECT MSG_GROUPS WITH ENTRY_ID = ':quote( @user4):' OR WITH GROUP_NAME = \"ALL_ACTIVE_USERS\" BY GROUP_NAME'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\n\r\nif @reccount then\r\n PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_GROUP_NAMES' )\r\n RetVals = repository( 'EXECUTE', PopupRec, @window, '' )\r\n if RetVals then\r\n CurArray = .send_to_group_int->array\r\n CurRow = .send_to_group_int->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, RetVals )\r\n .send_to_group_int->array = CurArray\r\n Void = send_event( CtrlEntId, 'LOSTFOCUS', '' )\r\n Void = post_event( @window:'.FROM_INTERNAL', 'GOTFOCUS', '' )\r\n Void = set_property( @window:'.FROM_INTERNAL', 'FOCUS', 1 )\r\n end\r\nend else\r\n MsgRec = ''\r\n MsgRec = 'You do not have any group names...'\r\n MsgRec = '!' \r\n Void = msg( '', MsgRec )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/NOTES.SEND_TO_INTERNAL.json b/LSL2/OIEVENT/OPTIONS/NOTES.SEND_TO_INTERNAL.json new file mode 100644 index 0000000..04487b6 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/NOTES.SEND_TO_INTERNAL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, popup, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\n*rlist( 'SELECT LSL_USERS BY LAST_FIRST', target_activelist$, '', '', '' ) \r\n*PopRec = xlate( 'SYSREPOSPOPUPS', @appid<1>:'**':'SHOW_USERS', '', 'X' )\r\n*PopRec = 2 ;* allow multiple\r\n*Choice = popup( @window, PopRec ) \r\n*declare subroutine rlist\r\n*declare function entid, repository, msg, send_event, post_event\r\n*$insert rlist_equates\r\n*$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS WITH ACTIVE BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .send_to_internal->array\r\n CurRow = .send_to_internal->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .send_to_internal->Array = CurArray\r\n Void = send_event( CtrlEntId, 'LOSTFOCUS', '' )\r\n Void = post_event( @window:'.FROM_INTERNAL', 'GOTFOCUS', '' )\r\n Void = set_property( @window:'.FROM_INTERNAL', 'FOCUS', 1 )\r\n\tend\r\nend\r\n*if Choice then\r\n* convert @vm to @fm in Choice\r\n *.send_to_internal->text = Choice\r\n* .send_to_internal->list = oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n* .send_to_internal->misc = Choice\r\n\r\n*end\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/NOTES_ATTACH.SEND_TO_GROUP_INT.json b/LSL2/OIEVENT/OPTIONS/NOTES_ATTACH.SEND_TO_GROUP_INT.json new file mode 100644 index 0000000..2ad2ad9 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/NOTES_ATTACH.SEND_TO_GROUP_INT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist \r\ndeclare function entid, repository, set_property, get_property, fieldcount\r\ndeclare function send_event, msg, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n$insert msg_equates\r\n\r\n*Stmt selects from MSG_Groups table the group_names & restricts viewing to the username that matches the entry_id\r\nStmt = 'SELECT MSG_GROUPS WITH ENTRY_ID = ':quote( @user4 ):' BY GROUP_NAME'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\n\r\nif @reccount then\r\n PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_GROUP_NAMES' )\r\n RetVals = repository( 'EXECUTE', PopupRec, @window, '' )\r\n if RetVals then\r\n CurArray = .send_to_group_int->array\r\n CurRow = .send_to_group_int->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, RetVals )\r\n .send_to_group_int->array = CurArray\r\n Void = send_event( CtrlEntId, 'LOSTFOCUS', '' )\r\n Void = post_event( @window:'.FROM_INTERNAL', 'GOTFOCUS', '' )\r\n Void = set_property( @window:'.FROM_INTERNAL', 'FOCUS', 1 )\r\n end\r\nend else\r\n MsgRec = ''\r\n MsgRec = 'You do not have any group names...'\r\n MsgRec = '!' \r\n Void = msg( '', MsgRec )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/NOTES_ATTACH.SEND_TO_INTERNAL.json b/LSL2/OIEVENT/OPTIONS/NOTES_ATTACH.SEND_TO_INTERNAL.json new file mode 100644 index 0000000..43ca435 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/NOTES_ATTACH.SEND_TO_INTERNAL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, popup, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS WITH ACTIVE BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .send_to_internal->array\r\n CurRow = .send_to_internal->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .send_to_internal->Array = CurArray\r\n Void = send_event( CtrlEntId, 'LOSTFOCUS', '' )\r\n Void = post_event( @window:'.FROM_INTERNAL', 'GOTFOCUS', '' )\r\n Void = set_property( @window:'.FROM_INTERNAL', 'FOCUS', 1 )\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/ORDER.AC_ID.json b/LSL2/OIEVENT/OPTIONS/ORDER.AC_ID.json new file mode 100644 index 0000000..18d6c85 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/ORDER.AC_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, start_window, msg, key_sort, rowexists\r\ndeclare subroutine make.list, obj_Appwindow\r\n$insert msg_equates\r\n\r\nCustNo = .cust_no->text\r\nif CustNo then\r\n * row one = call window with current key\r\n\t* row two = call window with no keys\r\n\t* row three = call window with all active keys for customer\r\n\t* row four = call popup allowing choice\r\n\tCurACID = .ac_id->text\r\n\tif CurACID then\r\n\t if rowexists( 'ORDER', .order_no->text ) else\r\n\t Tvar = iconv( CurACID, '[WIN_AC_NUM_VALID]' )\r\n\t if status() then\r\n\t .ac_id->text = ''\r\n\t end\r\n\t end\r\n\tend\r\n\tPopupId = entid( @appid<1>, 'POPUP', '', 'AC_LOOKUP_OPTS' )\r\n\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\tif ChoosenRow = 1 then\r\n\t ;* go view current AC\r\n\t if CurACID then\r\n\t *RetVal = start_window( 'ANNUAL_CONTRACTS', @window, CurACID:'*CENTER', '', '' ) \r\n\t obj_Appwindow('ViewRelated','ANN_CONT':@RM:CurACID)\r\n\t\tend else\r\n\t\t MsgInfo = ''\r\n\t\t Text = 'You have not entered an annual contract number...' \r\n\t\t MsgInfo = Text\r\n\t\t MsgInfo = 'H'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t\t return 0\r\n end\r\n end else\r\n if ChoosenRow = 2 then\r\n\t * call ANNUAL CONTRACT window\r\n\t\t\tRetVal = start_window( 'ANNUAL_CONTRACTS', @window, '*Choosing*Order*CENTER', '', '' )\r\n\t\tend else\r\n\t\t if ChoosenRow = 3 then\r\n\t\t * call AC window with all active\r\n\t\t\t\tOpenKeys = xlate( 'COMPANY', CustNo, 'OPEN_ANNUAL_CONTRACT_KEYS', 'X' )\r\n\t\t\t\tif OpenKeys then\r\n\t\t RetVal = start_window( 'ANNUAL_CONTRACTS', @window, OpenKeys:'*Choosing*Order*CENTER', '', '' )\r\n\t\t\t\tend else\r\n\t\t\t\t gosub CustErr\r\n\t\t\t\t return 0\r\n\t\t\t\tend\r\n\t\t\tend else\r\n\t\t\t if ChoosenRow = 4 then\r\n\t\t\t ;* show all open in popup allowing choice\r\n\t\t \t\t\tOpenKeys = xlate( 'COMPANY', CustNo, 'OPEN_ANNUAL_CONTRACT_KEYS', 'X' )\r\n\t\t\t\t\tif OpenKeys then\r\n\t\t\t\t\t convert @vm to @fm in OpenKeys\r\n\t\t\t \tOpenKeys = key_sort( OpenKeys, 'ANNUAL_CONTRACTS', '#ENTRY_DATE', 1, '', '' )\r\n\t\t\t \tmake.list( 0, OpenKeys, '', '' )\r\n\t\t \t\tPopupId = entid( @appid<1>, 'POPUP', '', 'SHOW_ANNUAL_CONTRACTS' )\r\n\t\t \t \t\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\t\t \t \t\tif ChoosenRow <> '' then\r\n\t\t \t \t\t .ac_id->text = ChoosenRow\r\n\t\t end\r\n\t\t \tend else\r\n\t\t\t\t\t gosub CustErr\r\n\t\t\t\t\t return 0\r\n\t\t\t\t\tend\r\n\t\t\t end ;* user canceled\r\n\t\t end\r\n\t end\r\n end \r\nend else\r\n MsgRec = ''\r\n MsgRec = 'You must enter a customer first...' \r\n MsgRec = 'H'\r\n Void = msg( '', MsgRec ) \r\nend\r\nRETURN 0\r\n*===========================================================================*\r\nCustErr:\r\n Text = 'There are currently no OPEN Annual Contracts for '\t\t \r\n Text:= oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' ) \r\n MsgInfo = ''\r\n MsgInfo = Text\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nreturn 0\r\n*===========================================================================*" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/ORDER.CUST_NO.json b/LSL2/OIEVENT/OPTIONS/ORDER.CUST_NO.json new file mode 100644 index 0000000..28b33fc --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/ORDER.CUST_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function send_event\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nforward_event()\r\nVoid = send_event( CtrlEntId, 'LOSTFOCUS' )\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/ORDER.NAME_NO.json b/LSL2/OIEVENT/OPTIONS/ORDER.NAME_NO.json new file mode 100644 index 0000000..649de6c --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/ORDER.NAME_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert msg_equates\r\ndeclare function msg, key_sort\r\ndeclare subroutine make.list\r\n\r\nCustNo = .cust_no->text\r\nNameKeys = xlate( 'COMPANY', CustNo, 'NAME_KEYS', 'X' )\r\nif NameKeys then\r\n convert @vm to @fm in NameKeys\r\n NameKeys = key_sort( NameKeys, 'NAMES', 'LAST_FIRST', 1, '', '' )\r\n make.list( 0, NameKeys, '', '' )\r\n return 1\r\nend else\r\n MsgText = ''\r\n MsgText = 'There are no names defined for ':oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' ) \r\n MsgText = '!'\t\r\n Void = msg( '', MsgText ) \r\n return 0\r\nend\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/ORDER.ORDER_DETAIL.json b/LSL2/OIEVENT/OPTIONS/ORDER.ORDER_DETAIL.json new file mode 100644 index 0000000..187dc67 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/ORDER.ORDER_DETAIL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function relational_call, start_window, msg, entid, repository\r\ndeclare function key_sort, send_event, rowexists, Get_Status\r\ndeclare subroutine make.list,obj_Appwindow, Btree.Extract, ErrMsg\r\n\r\n$insert logical\r\n$insert msg_equates\r\n$insert quote_equ\r\n$insert popup_equates\r\n\r\nSelpos = .order_detail->selpos\r\nColumn = SelPos<1>\r\nRow = SelPos<2>\r\nbegin case\r\n\tcase Column = 1 ;* quote\r\n\t\tCustNo = .cust_no->text\r\n \r\n\t\tif CustNo NE '' THEN\r\n\t\t\tColData = get_property( @window:'.ORDER_DETAIL', 'COLDATA' )\r\n\t\t\tCurQuote = ColData<1,Row>\r\n\t\t\tOrderNo = .order_no->text\r\n\t \r\n\t\t\t* * * * * * New code 12/8/04 JCH\r\n\t\t\t\tIF OrderNo NE '' THEN\r\n\t\t\t\t\tIF CurQuote = '' THEN\r\n\t\t\t \r\n\t\t\t\t\t\tOPEN 'DICT.QUOTE' TO DictVar THEN\r\n\t\t\t\t\t\t\tSearchString = 'CUST_NO':@VM:CustNo:@VM:@FM\r\n\t\t\t\t\t\t\tSearchString := 'STATUS':@VM:'=O':@FM\r\n\t\t\t\t\t\t\t\r\n\t\t\t\t\t\t\tBtree.Extract(SearchString, 'QUOTE', DictVar, QuoteKeys, '', Flag)\r\n\t\t\t\t\t\t\tIF Get_Status(errCode) THEN\r\n\t\t\t\t\t\t\t\tMsg(@window, MsgUp)\r\n\t\t\t\t\t\t\t\tErrMsg(errCode)\r\n\t\t\t\t\t\t\t\tRETURN 0\r\n\t\t\t\t\t\t\tEND\r\n\t\t\t\t\t\t\t\t\r\n\t\t\t\t\t\t\tIF QuoteKeys = '' THEN\r\n\t\t\t\t\t\t\t\tErrMsg('No Quotes on file for customer ':CustNo)\r\n\t\t\t\t\t\t\t\tRETURN 0\r\n\t\t\t\t\t\t\tEND\r\n\t\t\t\t\t\t\t\r\n\t\t\t\t\t\t\tIF INDEX(QuoteKeys,@VM,1) THEN\r\n\t\t\t\t\t\t\t\t\r\n\t\t\t\t\t\t\t\tQuoteKeys := @VM\r\n\t\t\t\t\t\t\t\tCONVERT @VM TO @RM IN QuoteKeys\r\n\t\t\t\t\t\t\t\tCALL V119('S','','D','R',QuoteKeys,'')\r\n\t\t\t\t\t\t\t\tIF Get_Status(errCode) THEN DEBUG\r\n\t\t\t\t\t\t\t\tCONVERT @RM TO @VM IN QuoteKeys\r\n\t\t\t\t\t\t\t\tQuoteKeys[-1,1] = ''\t\t\t\t\t;* Strip trailing delimiter\t\r\n\t\t\t\t\t\t\t\t\r\n\t\t\t\t\t\t\t\tTypeOver = ''\r\n\t\t\t\t\t\t\t\tTypeOver = QuoteKeys\r\n\t\t\t\t\t\t\t\tTypeOver\t= 1\t\t\t\t;* Single value select\r\n\t\t\t\t\t\t\t\tTypeOver\t= 'Open Quotes for ':OCONV(CustNo,'[XLATE_CONV,COMPANY*CO_NAME]')\r\n\r\n\t\t\t\t\t\t\t\tQuoteKey = Popup(@WINDOW,TypeOver,'QUOTE')\r\n\t\t\t\t\t\t\t\t\r\n\t\t\t\t\t\t\tEND ELSE\r\n\t\t\t\t\t\t\t\tQuoteKey = QuoteKeys\r\n\t\t\t\t\t\t\tEND\r\n\t\t\t\t\t\t\t\r\n\t\t\t\t\t\t\tIF QuoteKey NE '' THEN\r\n\t\t\t\t\t\t\t\tobj_Appwindow('LUValReturn',QuoteKey:@RM:@window:'.ORDER_DETAIL':@RM:SelPos)\r\n\t\t\t\t\t\t\tEND\r\n\t\t\t \tEND\t;* end of dict open\r\n\t\t\t \tEND ELSE\r\n\t\t\t \t\tobj_Appwindow('ViewRelated','QUOTE2':@RM:CurQuote)\r\n\t\t\t \tEND\r\n\t\t\t \tRETURN 0\r\n\t\t\t\tEND\t;*End of check for Order No and Cust No filled in\r\n\r\n\t \t* * * * * * End of New code 12/8/04 JCH\r\n\t \t* * * * * * * * * * Following code is dead\r\n\t /*\r\n\t if rowexists( 'ORDER', OrderNo ) else\r\n\t * order doesn't exists check to see if cur quote num is valid\r\n Tvar = iconv( CurQuote, '[WIN_QUOTE_NUM_VALID]' )\r\n\t if status() then\r\n\t return 0\r\n\t end\r\n\t end\r\n\t * row one = call window with current key\r\n\t\t\t* row two = call window with no keys\r\n\t\t\t* row three = call window with all active keys for customer\r\n\t\t\t* row four = call popup allowing choice\r\n\t\t\tPopupId = entid( @appid<1>, 'POPUP', '', 'QUOTE_LOOKUP_OPTS' )\r\n\t\t\t*DispOverride = xlate( 'SYSREPOSPOPUPS', 'LSL2**QUOTE_LOOKUP_OPTS', pdisplay$, 'X' )\r\n *DispOverride<1,-1> = 'View PSN'\r\n\t\t\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\t\t\tif ChoosenRow = 1 then\r\n\t\t\t ;* go view current quote\r\n\t\t\t if CurQuote then\r\n\t\t\t RetVal = start_window( 'QUOTE', @window, CurQuote:'*CENTER', '', '' ) \r\n\t\t\t end else\r\n\t\t\t MsgInfo = ''\r\n\t\t\t Text = 'You have not entered a quote number...' \r\n\t\t\t MsgInfo = Text\r\n\t\t\t MsgInfo = 'H'\r\n\t\t\t Void = msg( '', MsgInfo )\r\n\t\t\t return 0\r\n\t\t\t end\r\n\t\t\tend else\r\n\t\t\t if ChoosenRow = 2 then\r\n\t\t\t * call quote window\r\n\t\t\t RetVal = start_window( 'QUOTE', @window, '*Choosing*Order', '', '' )\r\n\t\t\t end else\r\n\t\t\t\t if ChoosenRow = 3 then\r\n\t\t\t\t * call quote window with all active\r\n\t\t\t\t OpenKeys = xlate( 'COMPANY', CustNo, 'OPEN_QUOTE_KEYS', 'X' )\r\n\t\t\t\t if OpenKeys then\r\n\t\t \t\t RetVal = start_window( 'QUOTE', @window, OpenKeys:'*Choosing*Order', '', '' )\r\n\t\t\t\t end else\r\n\t\t\t\t gosub CustErr\r\n\t\t\t\t return 0\r\n\t\t\t\t end\r\n\t\t\t\t end else\r\n\t\t\t\t if ChoosenRow = 4 then\r\n\t\t\t\t ;* show all open in popup allowing choice\r\n\t\t \t\t\t OpenKeys = xlate( 'COMPANY', CustNo, 'OPEN_QUOTE_KEYS', 'X' )\r\n\t\t\t\t\t if OpenKeys then\r\n\t\t\t\t\t convert @vm to @fm in OpenKeys\r\n\t\t\t \t\t OpenKeys = key_sort( OpenKeys, 'QUOTE', '#ENTRY_DATE', 1, '', '' )\r\n\t\t\t \t\t make.list( 0, OpenKeys, '', '' )\r\n\t\t \t\t PopupId = entid( @appid<1>, 'POPUP', '', 'SHOW_QUOTES' )\r\n\t\t\t\t\t Override = ''\r\n\t\t\t\t\t Override = 1\r\n\t\t \t \t\t ChoosenRow = repository( 'EXECUTE', PopupId, @window, Override )\r\n\t\t \t \t\t if ChoosenRow then\r\n\t\t ColData<1,Row> = ChoosenRow\r\n\t\t Void = set_property( @window:'.ORDER_DETAIL', 'COLDATA', ColData )\r\n\t\t end\r\n\t\t \t end else\r\n\t\t\t\t\t gosub CustErr\r\n\t\t\t\t\t return 0\r\n\t\t\t\t\t end\r\n\t\t\t\t\t end;* user canceled\r\n\t\t\t\t\t \r\n\t\t\t\t end\r\n\t\t\t\tend\r\n\t\t\tend \r\n\t\t\t*/\r\n\t\t\t* * * * * * * * * * Preceding code is dead\r\n\t\t\t \r\n end else\r\n MsgRec = ''\r\n MsgRec = 'You must enter a customer first...' \r\n MsgRec = 'H'\r\n Void = msg( '', MsgRec ) \r\n end\r\n case Column = 2\r\n\t\tCustNo = .cust_no->text\r\n\t\tif CustNo then\r\n\t\t * row one = call window with current key\r\n\t\t\t* row two = call window with no keys\r\n\t\t\t* row three = call window with all keys for customer\r\n\t\t\t* row four = call popup allowing choice\r\n\t\t\tColData = get_property( @window:'.ORDER_DETAIL', 'COLDATA' )\r\n\t\t\tCurProdSpecID = ColData<1,Row>\r\n\t\t\tif CurProdSpecID then\r\n\t\t\t if rowexists( 'ORDER', .order_no->text ) else\r\n\t\t\t Tvar = iconv( CurProdSpecID, '[WIN_PROD_SPEC_NUM_VALID]' )\r\n\t\t\t if status() then\r\n\t\t\t return 0\r\n\t\t\t end\r\n\t\t\t end\r\n\t\t\tend\r\n\t\t\tPopupId = entid( @appid<1>, 'POPUP', '', 'PROD_SPEC_LOOKUP_OPTS' )\r\n\t\t\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\t\t\tif ChoosenRow = 1 then\r\n\t\t\t ;* go view current prod spec\r\n\t\t\t if CurProdSpecID then\r\n\t\t\t RetVal = start_window( 'PROD_SPEC', @window, CurProdSpecID:'*Choosing*Order**CENTER', '', '' ) \r\n\t\t\t\tend else\r\n\t\t\t\t MsgInfo = ''\r\n\t\t\t\t Text = 'You have not entered a product specification number...' \r\n\t\t\t\t MsgInfo = Text\r\n\t\t\t\t MsgInfo = 'H'\r\n\t\t\t\t Void = msg( '', MsgInfo )\r\n\t\t\t\t return 0\r\n\t\t end\r\n\t\t end else\r\n\t\t if ChoosenRow = 2 then\r\n\t\t\t * call customer prod spec window\r\n\t\t\t\t\tRetVal = start_window( 'PROD_SPEC', @window, '*Choosing*Order*':CustNo:'*CENTER', '', '' )\r\n\t\t\t\tend else\r\n\t\t\t\t if ChoosenRow = 3 then\r\n\t\t\t\t * call product specification window with all\r\n\t\t\t\t\t\tOpenKeys = xlate( 'COMPANY', CustNo, 'PROD_SPEC_KEYS', 'X' )\r\n\t\t\t\t\t\tif OpenKeys then\r\n\t\t\t\t\t\t\tconvert @vm to @fm in OpenKeys\r\n\t\t\t\t\t OpenKeys = key_sort( OpenKeys, 'PROD_SPEC', '#ENTRY_DATE', 1 )\t\t\t\t\t\r\n\t\t\t\t\t convert @fm to @vm in OpenKeys\r\n\t\t\t\t RetVal = start_window( 'PROD_SPEC', @window, OpenKeys:'*Choosing*Order**CENTER', '', '' )\r\n\t\t\t\t\t\tend else\r\n\t\t\t\t\t\t gosub CustErr2\r\n\t\t\t\t\t\t return 0\r\n\t\t\t\t\t\tend\r\n\t\t\t\t\tend else\r\n\t\t\t\t\t if ChoosenRow = 4 then\r\n\t\t\t\t\t ;* show all open in popup allowing choice\r\n\t\t\t\t \t\t\tOpenKeys = xlate( 'COMPANY', CustNo, 'PROD_SPEC_KEYS', 'X' )\r\n\t\t\t\t\t\t\tif OpenKeys then\r\n\t\t\t\t\t\t\t convert @vm to @fm in OpenKeys\r\n\t\t\t\t\t\t OpenKeys = key_sort( OpenKeys, 'PROD_SPEC', '#ENTRY_DATE', 1 )\t\t\t\r\n\t\t\t\t\t \tmake.list( 0, OpenKeys, '', '' )\r\n\t\t\t\t \t\tPopupId = entid( @appid<1>, 'POPUP', '', 'PROD_SPEC_SINGLE' )\r\n\t\t\t\t \t \t\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\t\t\t\t \t \t\tif ChoosenRow then\r\n\t\t\t\t\t\t\t\t\tColData<1,Row> = ChoosenRow\r\n\t\t\t\t\t\t\t\t\tVoid = set_property( @window:'.ORDER_DETAIL', 'COLDATA', ColData )\r\n\t\t\t\t end\r\n\t\t\t\t \tend else\r\n\t\t\t\t\t\t\t gosub CustErr2\r\n\t\t\t\t\t\t\t return 0\r\n\t\t\t\t\t\t\tend\r\n\t\t\t\t\t end ;* user canceled\r\n\t\t\t\t end\r\n\t\t\t end\r\n\t\t end \r\n\t\tend else\r\n\t\t MsgRec = ''\r\n\t\t MsgRec = 'You must enter a customer first...' \r\n\t\t MsgRec = 'H'\r\n\t\t Void = msg( '', MsgRec ) \r\n\t\tend\r\n\r\n case Column = 3\r\n Schedules = .order_detail->array<3>\r\n swap @vm:@vm with '' in Schedules\r\n if Schedules[-1,1] = @vm then Schedules[-1,1] = ''\r\n \tPopupId = entid( @appid<1>, 'POPUP', '', 'ORDER_GOTO_SCHED' )\r\n\t\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\t\tif ChoosenRow then\r\n\t\t\tif ChoosenRow = 1 then ;* view current\r\n\t\t\t Keys = Schedules<1,Row>\r\n\t end else\r\n\t if ChoosenRow = 2 then ;* all\r\n\t Keys = Schedules\r\n\t end\r\n\t end\r\n\t Void = start_window( 'SCHEDULE', @window, Keys, '', '' )\r\n end\r\n case Column = 6\r\n * WAFER INVENTORY\r\n CustNo = .cust_no->text\r\n if CustNo then\r\n ColData = get_property( @window:'.ORDER_DETAIL', 'COLDATA' )\r\n\t CurWafInv = ColData<1,Row>\r\n\t OrderNo = .order_no->text\r\n\t if rowexists( 'ORDER', OrderNo ) else\r\n\t * order doesn't exists check to see if cur wafer inventory num is valid\r\n Tvar = iconv( CurWafInv, '[WIN_WAF_INV_NUM_VALID]' )\r\n\t if status() then\r\n\t return 0\r\n\t end\r\n\t end\r\n\t * row one = call window with current key\r\n\t\t\t* row two = call window with no keys\r\n\t\t\t* row three = call window with all active keys for customer\r\n\t\t\t* row four = call popup allowing choice\r\n\t\t\tPopupId = entid( @appid<1>, 'POPUP', '', 'WAF_INV_LOOKUP_OPTS' )\r\n\t\t\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\t\t\tif ChoosenRow = 1 then\r\n\t\t\t ;* go view current wafer inventory\r\n\t\t\t if CurWafInv then\r\n\t\t\t RetVal = start_window( 'WAFER_INV', @window, CurWafInv:'*CENTER', '', '' ) \r\n\t\t\t end else\r\n\t\t\t MsgInfo = ''\r\n\t\t\t Text = 'You have not entered a wafer inventory number...' \r\n\t\t\t MsgInfo = Text\r\n\t\t\t MsgInfo = 'H'\r\n\t\t\t Void = msg( '', MsgInfo )\r\n\t\t\t return 0\r\n\t\t\t end\r\n\t\t\tend else\r\n\t\t\t if ChoosenRow = 2 then\r\n\t\t\t * call wafer inventory window\r\n\t\t\t RetVal = start_window( 'WAFER_INV', @window, '*Choosing*Order', '', '' )\r\n\t\t\t end else\r\n\t\t\t\t if ChoosenRow = 3 then\r\n\t\t\t\t * call wafer inventory window with all active\r\n\t\t\t\t OpenKeys = xlate( 'COMPANY', CustNo, 'OPEN_WAF_INV_KEYS', 'X' )\r\n\t\t\t\t if OpenKeys then\r\n\t\t \t\t RetVal = start_window( 'WAFER_INV', @window, OpenKeys:'*Choosing*Order', '', '' )\r\n\t\t\t\t end else\r\n\t\t\t\t gosub CustErr3\r\n\t\t\t\t return 0\r\n\t\t\t\t end\r\n\t\t\t\t end else\r\n\t\t\t\t if ChoosenRow = 4 then\r\n\t\t\t\t ;* show all open in popup allowing choice\r\n\t\t \t\t\t OpenKeys = xlate( 'COMPANY', CustNo, 'OPEN_WAF_INV_KEYS', 'X' )\r\n\t\t\t\t\t if OpenKeys then\r\n\t\t\t\t\t convert @vm to @fm in OpenKeys\r\n\t\t\t \t\t OpenKeys = key_sort( OpenKeys, 'WAFER_INV', '#ENTRY_DATE', 1, '', '' )\r\n\t\t\t \t\t make.list( 0, OpenKeys, '', '' )\r\n\t\t \t\t PopupId = entid( @appid<1>, 'POPUP', '', 'SHOW_WAF_INV' )\r\n\t\t\t\t\t Override = ''\r\n\t\t\t\t\t Override = 1\r\n\t\t \t \t\t ChoosenRow = repository( 'EXECUTE', PopupId, @window, Override )\r\n\t\t \t \t\t if ChoosenRow then\r\n\t\t ColData<1,Row> = ChoosenRow\r\n\t\t Void = set_property( @window:'.ORDER_DETAIL', 'COLDATA', ColData )\r\n\t\t end\r\n\t\t \t end else\r\n\t\t\t\t\t gosub CustErr3\r\n\t\t\t\t\t return 0\r\n\t\t\t\t\t end\r\n\t\t\t\t\t end;* user canceled\r\n\t\t\t\t\t \r\n\t\t\t\t end\r\n\t\t\t\tend\r\n\t\t\tend \r\n end else\r\n MsgRec = ''\r\n MsgRec = 'You must enter a customer first...' \r\n MsgRec = 'H'\r\n Void = msg( '', MsgRec ) \r\n end\r\n \r\n \r\n \r\n case Otherwise$\r\nend case\r\nRETURN 0\r\n*===========================================================================*\r\nCustErr:\r\n Text = 'There are currently no OPEN quotes for '\t\t \r\n Text:= oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' ) \r\n MsgInfo = ''\r\n MsgInfo = Text\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nreturn 0\r\n*===========================================================================*\r\nCustErr2:\r\n Text = 'There are no PSNs for '\t\t \r\n Text:= oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' ) \r\n MsgInfo = ''\r\n MsgInfo = Text\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nreturn 0\r\n*===========================================================================*\r\nCustErr3:\r\n Text = 'There are no Wafer Inventory records for '\t\t \r\n Text:= oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' ) \r\n MsgInfo = ''\r\n MsgInfo = Text\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nreturn 0\r\n*===========================================================================*\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/ORDER.ORDER_NO.json b/LSL2/OIEVENT/OPTIONS/ORDER.ORDER_NO.json new file mode 100644 index 0000000..9986fe8 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/ORDER.ORDER_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n\r\nOrderKeys = dialog_box( 'ORDER_QUERY', @window, '' )\r\nif OrderKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'ORDER_QUERY' )\r\n\tOverRide = ''\r\n make.list( 0, OrderKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .order_no->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .order_no->text = ChoosenKeys\r\n\t Void = send_event( @window:'.ORDER_NO', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/ORDER_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/ORDER_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/ORDER_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/ORDER_RPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/ORDER_RPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/ORDER_RPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/ORDER_RPT2.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/ORDER_RPT2.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/ORDER_RPT2.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/ORDER_SRL_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/ORDER_SRL_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/ORDER_SRL_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/ORDER_SRPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/ORDER_SRPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/ORDER_SRPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/ORDER_SRPT2.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/ORDER_SRPT2.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/ORDER_SRPT2.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/PHOTOFLO_LOG.LOG_NO.json b/LSL2/OIEVENT/OPTIONS/PHOTOFLO_LOG.LOG_NO.json new file mode 100644 index 0000000..768de1e --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/PHOTOFLO_LOG.LOG_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n\r\nPhotoFloLogKeys = dialog_box( 'PHOTOFLO_LOG_QUERY', @window, '' )\r\nif PhotoFloLogKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'PHOTOFLO_LOG_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, PhotoFloLogKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .log_no->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .log_no->text = ChoosenKeys\r\n\t Void = send_event( @window:'.LOG_NO', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/PHOTOFLO_LOG_QUERY.TECHS.json b/LSL2/OIEVENT/OPTIONS/PHOTOFLO_LOG_QUERY.TECHS.json new file mode 100644 index 0000000..7fa4e0c --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/PHOTOFLO_LOG_QUERY.TECHS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS WITH ACTIVE AND WITH GROUPS CONTAINING \"SUPERVISOR\" \"DATA_ENTRY\" BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .techs->array\r\n CurRow = .techs->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .techs->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/PRINT_HELP_CONFIG2.FIELD_TEXT.json b/LSL2/OIEVENT/OPTIONS/PRINT_HELP_CONFIG2.FIELD_TEXT.json new file mode 100644 index 0000000..7ddec24 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/PRINT_HELP_CONFIG2.FIELD_TEXT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box\r\nArray = .print_help_cfg->array\r\nSelPos = .print_help_cfg->selpos\r\nRow = SelPos<2>\r\nDataToSend = Array<2,Row>\r\nif Row = 2 then\r\n ReturnVal = dialog_box( 'PRINT_HELP_CONFIG2', @window, DataToSend )\r\n debug\r\n if ReturnVal <> DataToSend then\r\n Array<2,Row> = ReturnVal\r\n .print_help_cfg->array = Array\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/PROD_SPEC.PROD_SPEC_ID.json b/LSL2/OIEVENT/OPTIONS/PROD_SPEC.PROD_SPEC_ID.json new file mode 100644 index 0000000..54ad62b --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/PROD_SPEC.PROD_SPEC_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function getwindow, fieldcount, send_event\r\ndeclare subroutine sendmessage, make.list\r\n\r\n$insert popup_equates\r\n\r\nequ QbfOccurred$ to 1126\r\n\r\nCPSKeys = dialog_box( 'PROD_SPEC_QUERY', @window, '' )\r\n\r\nif CPSKeys then\r\n\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'PROD_SPEC_QUERY' )\r\n\t\r\n\tOverRide = ''\r\n\tmake.list( 0, CPSKeys, '', '' )\r\n\tChosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\t\r\n\tif ChosenKeys then\r\n\t convert @vm to @fm in ChosenKeys\r\n\t \r\n\t if fieldcount( ChosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChosenKeys )\r\n\t\t WndHnd = get_property( @window, 'HANDLE' )\r\n\t\t \r\n\t\t HbBar = getwindow( WndHnd, 5 )\r\n\t\t sendmessage( HbBar, QbfOccurred$, 0, 0 )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .prod_spec_id->text = ChosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .prod_spec_id->text = ChosenKeys\r\n\t Void = send_event( @window:'.PROD_SPEC_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/PROD_SPEC_BACKUP.PROD_SPEC_ID.json b/LSL2/OIEVENT/OPTIONS/PROD_SPEC_BACKUP.PROD_SPEC_ID.json new file mode 100644 index 0000000..54ad62b --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/PROD_SPEC_BACKUP.PROD_SPEC_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function getwindow, fieldcount, send_event\r\ndeclare subroutine sendmessage, make.list\r\n\r\n$insert popup_equates\r\n\r\nequ QbfOccurred$ to 1126\r\n\r\nCPSKeys = dialog_box( 'PROD_SPEC_QUERY', @window, '' )\r\n\r\nif CPSKeys then\r\n\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'PROD_SPEC_QUERY' )\r\n\t\r\n\tOverRide = ''\r\n\tmake.list( 0, CPSKeys, '', '' )\r\n\tChosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\t\r\n\tif ChosenKeys then\r\n\t convert @vm to @fm in ChosenKeys\r\n\t \r\n\t if fieldcount( ChosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChosenKeys )\r\n\t\t WndHnd = get_property( @window, 'HANDLE' )\r\n\t\t \r\n\t\t HbBar = getwindow( WndHnd, 5 )\r\n\t\t sendmessage( HbBar, QbfOccurred$, 0, 0 )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .prod_spec_id->text = ChosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .prod_spec_id->text = ChosenKeys\r\n\t Void = send_event( @window:'.PROD_SPEC_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/PROD_SPEC_JCH.PROD_SPEC_ID.json b/LSL2/OIEVENT/OPTIONS/PROD_SPEC_JCH.PROD_SPEC_ID.json new file mode 100644 index 0000000..54ad62b --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/PROD_SPEC_JCH.PROD_SPEC_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function getwindow, fieldcount, send_event\r\ndeclare subroutine sendmessage, make.list\r\n\r\n$insert popup_equates\r\n\r\nequ QbfOccurred$ to 1126\r\n\r\nCPSKeys = dialog_box( 'PROD_SPEC_QUERY', @window, '' )\r\n\r\nif CPSKeys then\r\n\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'PROD_SPEC_QUERY' )\r\n\t\r\n\tOverRide = ''\r\n\tmake.list( 0, CPSKeys, '', '' )\r\n\tChosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\t\r\n\tif ChosenKeys then\r\n\t convert @vm to @fm in ChosenKeys\r\n\t \r\n\t if fieldcount( ChosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChosenKeys )\r\n\t\t WndHnd = get_property( @window, 'HANDLE' )\r\n\t\t \r\n\t\t HbBar = getwindow( WndHnd, 5 )\r\n\t\t sendmessage( HbBar, QbfOccurred$, 0, 0 )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .prod_spec_id->text = ChosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .prod_spec_id->text = ChosenKeys\r\n\t Void = send_event( @window:'.PROD_SPEC_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/PROD_SPEC_JRO.PROD_SPEC_ID.json b/LSL2/OIEVENT/OPTIONS/PROD_SPEC_JRO.PROD_SPEC_ID.json new file mode 100644 index 0000000..54ad62b --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/PROD_SPEC_JRO.PROD_SPEC_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function getwindow, fieldcount, send_event\r\ndeclare subroutine sendmessage, make.list\r\n\r\n$insert popup_equates\r\n\r\nequ QbfOccurred$ to 1126\r\n\r\nCPSKeys = dialog_box( 'PROD_SPEC_QUERY', @window, '' )\r\n\r\nif CPSKeys then\r\n\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'PROD_SPEC_QUERY' )\r\n\t\r\n\tOverRide = ''\r\n\tmake.list( 0, CPSKeys, '', '' )\r\n\tChosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\t\r\n\tif ChosenKeys then\r\n\t convert @vm to @fm in ChosenKeys\r\n\t \r\n\t if fieldcount( ChosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChosenKeys )\r\n\t\t WndHnd = get_property( @window, 'HANDLE' )\r\n\t\t \r\n\t\t HbBar = getwindow( WndHnd, 5 )\r\n\t\t sendmessage( HbBar, QbfOccurred$, 0, 0 )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .prod_spec_id->text = ChosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .prod_spec_id->text = ChosenKeys\r\n\t Void = send_event( @window:'.PROD_SPEC_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/PROD_SPEC_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/PROD_SPEC_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/PROD_SPEC_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/PROD_SPEC_RPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/PROD_SPEC_RPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/PROD_SPEC_RPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/P_NAMES.INTL_PHONES.json b/LSL2/OIEVENT/OPTIONS/P_NAMES.INTL_PHONES.json new file mode 100644 index 0000000..3100733 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/P_NAMES.INTL_PHONES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "if .intl_phones->selpos<1> = 2 then\r\n return 1\r\nend else\r\n return 0\r\nend\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/P_NAMES.PHONES.json b/LSL2/OIEVENT/OPTIONS/P_NAMES.PHONES.json new file mode 100644 index 0000000..b7e92c9 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/P_NAMES.PHONES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "if .phones->selpos<1> = 2 then\r\n return 1\r\nend else\r\n return 0\r\nend" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/P_NAMES.SEQ.json b/LSL2/OIEVENT/OPTIONS/P_NAMES.SEQ.json new file mode 100644 index 0000000..3058945 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/P_NAMES.SEQ.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist \r\ndeclare function entid, repository, set_property, get_property, fieldcount\r\ndeclare function send_event, msg\r\n$insert rlist_equates\r\n$insert popup_equates\r\n$insert msg_equates\r\n\r\n\r\nrlist( 'SELECT P_NAMES BY LAST_FIRST WITH ENTRY_ID = ':quote( @user4 ), target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_P_NAMES' )\r\n OverRide = ''\r\n OverRide = 2\r\n RetVals = repository( 'EXECUTE', PopupRec, @window, OverRide )\r\n if RetVals then\r\n convert @vm to @fm in RetVals\r\n if fieldcount( RetVals, @fm ) > 1 then\r\n Void = set_property( @window, 'QBFLIST', RetVals )\r\n Void = set_property( @window, '@NoRead', 1 ) \r\n Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .seq->text = RetVals\r\n Void = send_event( @window:'.SEQ', 'LOSTFOCUS', '' )\r\n end\r\n end\r\nend else\r\n MsgRec = ''\r\n MsgRec = 'You do not have any personal names...'\r\n MsgRec = '!' \r\n Void = msg( '', MsgRec )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/QUARTZ_TC_LOG.TC_NO.json b/LSL2/OIEVENT/OPTIONS/QUARTZ_TC_LOG.TC_NO.json new file mode 100644 index 0000000..7e2e746 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/QUARTZ_TC_LOG.TC_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function getwindow, fieldcount, send_event\r\ndeclare subroutine sendmessage, make.list\r\n$insert popup_equates\r\n\r\nRLKeys = dialog_box( 'QUARTZ_TC_LOG_QUERY', @window, '' )\r\nif RLKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'QUARTZ_TC_LOG_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, RLKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .tc_no->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .tc_no->text = ChoosenKeys\r\n\t Void = send_event( @window:'.REACTOR_LOG_NO', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/QUARTZ_WAND_LOG.REACT_ITEM_ID.json b/LSL2/OIEVENT/OPTIONS/QUARTZ_WAND_LOG.REACT_ITEM_ID.json new file mode 100644 index 0000000..02af11c --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/QUARTZ_WAND_LOG.REACT_ITEM_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, update_index\r\ndeclare function entid, repository, set_property, get_property, fieldcount\r\ndeclare function send_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nStmt = 'SELECT REACT_ITEMS BY DESCRIPTION'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_ITEMS' )\r\n OverRide = ''\r\n RetVal = repository( 'EXECUTE', PopupRec, @window, OverRide )\r\n if ( RetVal <> '' ) then\r\n .react_item_id->text = RetVal\r\n Void = send_event( @window:'.REACT_ITEM_ID', 'LOSTFOCUS', '' )\r\n end\r\nend \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/QUARTZ_WAND_LOG.WAND_LOG_NO.json b/LSL2/OIEVENT/OPTIONS/QUARTZ_WAND_LOG.WAND_LOG_NO.json new file mode 100644 index 0000000..25872ed --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/QUARTZ_WAND_LOG.WAND_LOG_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function getwindow, fieldcount, send_event\r\ndeclare subroutine sendmessage, make.list\r\n$insert popup_equates\r\n\r\n\r\nRLKeys = dialog_box( 'QUARTZ_WAND_LOG_QUERY', @window, '' )\r\n\r\nif RLKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'QUARTZ_WAND_LOG_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, RLKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .wand_log_no->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .wand_log_no->text = ChoosenKeys\r\n\t Void = send_event( @window:'.WAND_LOG_NO', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/QUARTZ_WAND_LOG_QUERY.REACTORS.json b/LSL2/OIEVENT/OPTIONS/QUARTZ_WAND_LOG_QUERY.REACTORS.json new file mode 100644 index 0000000..bf7527d --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/QUARTZ_WAND_LOG_QUERY.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, send_event\r\ndeclare subroutine rlist\r\n$insert popup_equates\r\n$insert rlist_equates\r\n\r\nSelPos = .reactors->selpos\r\nCurRow = SelPos<2>\r\nPopRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACTORS' )\r\nOverRide = ''\r\nOverRide = 2\r\nStmt = 'SELECT REACTORS BY DESCRIPTION'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\nif Choosen then\r\n convert @fm to @vm in Choosen\r\n\tCurArray = .react_items->array\r\n\tCurArray = delete( CurArray, 1, CurRow, 0 )\r\n\tCurArray = delete( CurArray, 2, CurRow, 0 )\r\n\tCurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n\tCurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,REACT_ITEMS*DESCRIPTION]' ) )\r\n\t.react_items->Array = CurArray\r\n\tVoid = set_property( @window, '@NoTopPos', 1 )\r\n Void = send_event( @window:'.REACT_ITEMS', 'LOSTFOCUS' )\t\r\n\tVoid = set_property( @window, '@NoTopPos', '' ) \r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/QUARTZ_WAND_LOG_QUERY.REACT_ITEMS.json b/LSL2/OIEVENT/OPTIONS/QUARTZ_WAND_LOG_QUERY.REACT_ITEMS.json new file mode 100644 index 0000000..d5821f1 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/QUARTZ_WAND_LOG_QUERY.REACT_ITEMS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, send_event\r\ndeclare subroutine rlist\r\n$insert popup_equates\r\n$insert rlist_equates\r\n\r\nSelPos = .react_items->selpos\r\nCurRow = SelPos<2>\r\nPopRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_ITEMS' )\r\nOverRide = ''\r\nOverRide = 2\r\nStmt = 'SELECT REACT_ITEMS BY DESCRIPTION'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\nif Choosen then\r\n convert @fm to @vm in Choosen\r\n\tCurArray = .react_items->array\r\n\tCurArray = delete( CurArray, 1, CurRow, 0 )\r\n\tCurArray = delete( CurArray, 2, CurRow, 0 )\r\n\tCurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n\tCurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,REACT_ITEMS*DESCRIPTION]' ) )\r\n\t.react_items->Array = CurArray\r\n\tVoid = set_property( @window, '@NoTopPos', 1 )\r\n Void = send_event( @window:'.REACT_ITEMS', 'LOSTFOCUS' )\t\r\n\tVoid = set_property( @window, '@NoTopPos', '' ) \r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/QUOTE.CUST_NO.json b/LSL2/OIEVENT/OPTIONS/QUOTE.CUST_NO.json new file mode 100644 index 0000000..28b33fc --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/QUOTE.CUST_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function send_event\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nforward_event()\r\nVoid = send_event( CtrlEntId, 'LOSTFOCUS' )\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/QUOTE.FAX.json b/LSL2/OIEVENT/OPTIONS/QUOTE.FAX.json new file mode 100644 index 0000000..91e45c3 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/QUOTE.FAX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert company_equ\r\n$insert names_equ\r\n$insert msg_equates\r\n$insert popup_equates\r\ndeclare function fieldcount, msg, entid, repository\r\n\r\nCustomerRec = xlate( 'COMPANY', .cust_no->text, '', 'X' )\r\nNameRec = xlate( 'NAMES', .name_no->text, '', 'X' )\r\n\r\n* get the fax numbers for this customer\r\nCustPhones = CustomerRec\r\nCustPhoneTypes = CustomerRec\r\nCpCnt = fieldcount( CustPhones, @vm )\r\nExpInfo = ''\r\nfor i = 1 to CpCnt\r\n ThisPhoneType = CustPhoneTypes<1,i>\r\n ThisPhoneNum = CustPhones<1,i>\r\n convert @lower.case to @upper.case in ThisPhoneType\r\n if ThisPhoneType = 'FAX' then\r\n ExpInfo := oconv( .cust_no->text, '[XLATE_CONV,COMPANY*CO_NAME]' ):@svm:ThisPhoneNum:@vm\r\n end\r\nnext i\r\n\r\n* now get all fax numbers for this contact name\r\nNamePhones = NameRec\r\nNamePhoneTypes = NameRec\r\nNpCnt = fieldcount( NamePhones, @vm )\r\nfor i = 1 to NpCnt\r\n ThisPhoneType = NamePhoneTypes<1,i>\r\n ThisPhoneNum = NamePhones<1,i>\r\n convert @lower.case to @upper.case in ThisPhoneType\r\n if ThisPhoneType = 'FAX' then\r\n ExpInfo := oconv( .name_no->text, '[XLATE_CONV,NAMES*FIRST_LAST]' ):@svm:ThisPhoneNum:@vm\r\n end\r\nnext i\r\nif ExpInfo then\r\n ExpInfo[-1,1] = ''\r\n PopId = entid( @appid<1>, 'POPUP', '', 'FAX_NUMBERS' )\r\n OverRide = ''\r\n OverRide = ExpInfo\r\n Tresp = repository( 'EXECUTE', PopId, @window, OverRide )\r\n if Tresp <> '' then\r\n .fax->text = Tresp\r\n end\r\nend else\r\n MsgText = ''\r\n MsgText = 'There are no fax numbers defined for ':oconv( .cust_no->text, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n MsgText = MsgText:' or for ':oconv( .name_no->text, '[XLATE_CONV,NAMES*FIRST_LAST]' ):'.'\r\n MsgText = '!'\r\n Void = msg( '', MsgText )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/QUOTE.INTL_FAX.json b/LSL2/OIEVENT/OPTIONS/QUOTE.INTL_FAX.json new file mode 100644 index 0000000..f8640c1 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/QUOTE.INTL_FAX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert company_equ\r\n$insert names_equ\r\n$insert msg_equates\r\n$insert popup_equates\r\ndeclare function fieldcount, msg, entid, repository\r\n\r\nCustomerRec = xlate( 'COMPANY', .cust_no->text, '', 'X' )\r\nNameRec = xlate( 'NAMES', .name_no->text, '', 'X' )\r\n\r\n* get the fax numbers for this customer\r\nICustPhones = CustomerRec\r\nICustPhoneTypes = CustomerRec\r\nCpCnt = fieldcount( ICustPhones, @vm )\r\nExpInfo = ''\r\nfor i = 1 to CpCnt\r\n ThisPhoneType = ICustPhoneTypes<1,i>\r\n ThisPhoneNum = ICustPhones<1,i>\r\n convert @lower.case to @upper.case in ThisPhoneType\r\n if ThisPhoneType = 'FAX' then\r\n ExpInfo := oconv( .cust_no->text, '[XLATE_CONV,COMPANY*CO_NAME]' ):@svm:ThisPhoneNum:@vm\r\n end\r\nnext i\r\n\r\n* now get all fax numbers for this contact name\r\nINamePhones = NameRec\r\nINamePhoneTypes = NameRec\r\nNpCnt = fieldcount( INamePhones, @vm )\r\nfor i = 1 to NpCnt\r\n ThisPhoneType = INamePhoneTypes<1,i>\r\n ThisPhoneNum = INamePhones<1,i>\r\n convert @lower.case to @upper.case in ThisPhoneType\r\n if ThisPhoneType = 'FAX' then\r\n ExpInfo := oconv( .name_no->text, '[XLATE_CONV,NAMES*FIRST_LAST]' ):@svm:ThisPhoneNum:@vm\r\n end\r\nnext i\r\nif ExpInfo then\r\n ExpInfo[-1,1] = ''\r\n PopId = entid( @appid<1>, 'POPUP', '', 'INTL_FAX_NUMBERS' )\r\n OverRide = ''\r\n OverRide = ExpInfo\r\n Tresp = repository( 'EXECUTE', PopId, @window, OverRide )\r\n if Tresp <> '' then\r\n .intl_fax->text = Tresp\r\n end\r\nend else\r\n MsgText = ''\r\n MsgText = 'There are no international fax numbers defined for ':oconv( .cust_no->text, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n MsgText = MsgText:' or for ':oconv( .name_no->text, '[XLATE_CONV,NAMES*FIRST_LAST]' ):'.'\r\n MsgText = '!'\r\n Void = msg( '', MsgText )\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/QUOTE.NAME_NO.json b/LSL2/OIEVENT/OPTIONS/QUOTE.NAME_NO.json new file mode 100644 index 0000000..649de6c --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/QUOTE.NAME_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert msg_equates\r\ndeclare function msg, key_sort\r\ndeclare subroutine make.list\r\n\r\nCustNo = .cust_no->text\r\nNameKeys = xlate( 'COMPANY', CustNo, 'NAME_KEYS', 'X' )\r\nif NameKeys then\r\n convert @vm to @fm in NameKeys\r\n NameKeys = key_sort( NameKeys, 'NAMES', 'LAST_FIRST', 1, '', '' )\r\n make.list( 0, NameKeys, '', '' )\r\n return 1\r\nend else\r\n MsgText = ''\r\n MsgText = 'There are no names defined for ':oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' ) \r\n MsgText = '!'\t\r\n Void = msg( '', MsgText ) \r\n return 0\r\nend\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/QUOTE.PREV_PSNS.json b/LSL2/OIEVENT/OPTIONS/QUOTE.PREV_PSNS.json new file mode 100644 index 0000000..d95e227 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/QUOTE.PREV_PSNS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, start_window, msg, key_sort, rowexists\r\ndeclare subroutine make.list\r\n$insert msg_equates\r\n$insert logical\r\n\r\nVoid = set_property( @window, '@ChoosingMultiPSN', true$ )\r\nSelPos = .prev_psns->selpos\r\nCustNo = .cust_no->text\r\nCol = SelPos<1>\r\nRow = SelPos<2>\r\nif CustNo then\r\n * row one = call window with current key\r\n\t* row two = call window with no keys\r\n\t* row three = call window with all keys for customer\r\n\t* row four = call popup allowing choice\r\n\tColData = get_property( @window:'.PREV_PSNS', 'COLDATA' )\r\n\tCurProdSpecID = ColData<1,Row>\r\n\tif CurProdSpecID then\r\n\t if rowexists( 'QUOTE', .quote_no->text ) else\r\n\t Tvar = iconv( CurProdSpecID, '[WIN_PROD_SPEC_NUM_VALID]' )\r\n\t if status() then\r\n\t return 0\r\n\t end\r\n\t end\r\n\tend\r\n\tPopupId = entid( @appid<1>, 'POPUP', '', 'PROD_SPEC_LOOKUP_OPTS' )\r\n\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\tif ChoosenRow = 1 then\r\n\t ;* go view current prod spec\r\n\t if CurProdSpecID then\r\n\t RetVal = start_window( 'PROD_SPEC', @window, CurProdSpecID:'*Choosing*Quote**CENTER', '', '' ) \r\n\t\tend else\r\n\t\t MsgInfo = ''\r\n\t\t Text = 'You have not entered a product specification number...' \r\n\t\t MsgInfo = Text\r\n\t\t MsgInfo = 'H'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t\t return 0\r\n end\r\n end else\r\n if ChoosenRow = 2 then\r\n\t * call customer prod spec window\r\n\t\t\tRetVal = start_window( 'PROD_SPEC', @window, '*Choosing*Quote*':CustNo:'*CENTER', '', '' )\r\n\t\tend else\r\n\t\t if ChoosenRow = 3 then\r\n\t\t * call product specification window with all\r\n\t\t\t\tOpenKeys = xlate( 'COMPANY', CustNo, 'PROD_SPEC_KEYS', 'X' )\r\n\t\t\t\tif OpenKeys then\r\n\t\t\t\t\tconvert @vm to @fm in OpenKeys\r\n\t\t\t OpenKeys = key_sort( OpenKeys, 'PROD_SPEC', '#ENTRY_DATE', 1 )\t\t\t\t\t\r\n\t\t\t convert @fm to @vm in OpenKeys\r\n\t\t RetVal = start_window( 'PROD_SPEC', @window, OpenKeys:'*Choosing*Quote**CENTER', '', '' )\r\n\t\t\t\tend else\r\n\t\t\t\t gosub CustErr\r\n\t\t\t\t return 0\r\n\t\t\t\tend\r\n\t\t\tend else\r\n\t\t\t if ChoosenRow = 4 then\r\n\t\t\t ;* show all open in popup allowing choice\r\n\t\t \t\t\tOpenKeys = xlate( 'COMPANY', CustNo, 'PROD_SPEC_KEYS', 'X' )\r\n\t\t\t\t\tif OpenKeys then\r\n\t\t\t\t\t convert @vm to @fm in OpenKeys\r\n\t\t\t\t OpenKeys = key_sort( OpenKeys, 'PROD_SPEC', '#ENTRY_DATE', 1 )\t\t\t\r\n\t\t\t \tmake.list( 0, OpenKeys, '', '' )\r\n\t\t \t\tPopupId = entid( @appid<1>, 'POPUP', '', 'PROD_SPEC_SINGLE' )\r\n\t\t \t \t\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\t\t \t \t\tif ChoosenRow then\r\n\t\t\t\t\t\t\tColData<1,Row> = ChoosenRow\r\n\t\t\t\t\t\t\tVoid = set_property( @window:'.PREV_PSNS', 'COLDATA', ColData )\r\n\t\t end\r\n\t\t \tend else\r\n\t\t\t\t\t gosub CustErr\r\n\t\t\t\t\t return 0\r\n\t\t\t\t\tend\r\n\t\t\t end ;* user canceled\r\n\t\t end\r\n\t end\r\n end \r\nend else\r\n MsgRec = ''\r\n MsgRec = 'You must enter a customer first...' \r\n MsgRec = 'H'\r\n Void = msg( '', MsgRec ) \r\nend\r\nRETURN 0\r\n*===========================================================================*\r\nCustErr:\r\n Text = 'There are currently no Product Specifications for '\t\t \r\n Text:= oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' ) \r\n MsgInfo = ''\r\n MsgInfo = Text\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nreturn 0\r\n*===========================================================================*\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/QUOTE.PROD_SPEC_ID.json b/LSL2/OIEVENT/OPTIONS/QUOTE.PROD_SPEC_ID.json new file mode 100644 index 0000000..c6803b9 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/QUOTE.PROD_SPEC_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, start_window, msg, key_sort, rowexists\r\ndeclare subroutine make.list\r\n$insert logical\r\n$insert msg_equates\r\n\r\nCustNo = .cust_no->text\r\nVoid = set_property( @window, '@ChoosingMultiPSN', false$ )\r\nif CustNo then\r\n * row one = call window with current key\r\n\t* row two = call window with no keys\r\n\t* row three = call window with all keys for customer\r\n\t* row four = call popup allowing choice\r\n\tCurProdSpecID = .prod_spec_id->text\r\n\tif CurProdSpecID then\r\n\t if rowexists( 'QUOTE', .quote_no->text ) else\r\n\t Tvar = iconv( CurProdSpecID, '[WIN_PROD_SPEC_NUM_VALID]' )\r\n\t if status() then\r\n\t .prod_spec_id->text = ''\r\n\t end\r\n\t end\r\n\tend\r\n\tPopupId = entid( @appid<1>, 'POPUP', '', 'PROD_SPEC_LOOKUP_OPTS' )\r\n\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\tif ChoosenRow = 1 then\r\n\t ;* go view current prod spec\r\n\t if CurProdSpecID then\r\n\t RetVal = start_window( 'PROD_SPEC', @window, CurProdSpecID:'*Choosing*Quote**CENTER', '', '' ) \r\n\t\tend else\r\n\t\t MsgInfo = ''\r\n\t\t Text = 'You have not entered a product specification number...' \r\n\t\t MsgInfo = Text\r\n\t\t MsgInfo = 'H'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t\t return 0\r\n end\r\n end else\r\n if ChoosenRow = 2 then\r\n\t * call customer prod spec window\r\n\t\t\tRetVal = start_window( 'PROD_SPEC', @window, '*Choosing*Quote*':CustNo:'*CENTER', '', '' )\r\n\t\tend else\r\n\t\t if ChoosenRow = 3 then\r\n\t\t * call product specification window with all\r\n\t\t\t\tOpenKeys = xlate( 'COMPANY', CustNo, 'PROD_SPEC_KEYS', 'X' )\r\n\t\t\t\tif OpenKeys then\r\n\t\t\t\t\tconvert @vm to @fm in OpenKeys\r\n\t\t\t OpenKeys = key_sort( OpenKeys, 'PROD_SPEC', '#ENTRY_DATE', 1 )\t\t\t\t\t\r\n\t\t\t convert @fm to @vm in OpenKeys\r\n\t\t RetVal = start_window( 'PROD_SPEC', @window, OpenKeys:'*Choosing*Quote**CENTER', '', '' )\r\n\t\t\t\tend else\r\n\t\t\t\t gosub CustErr\r\n\t\t\t\t return 0\r\n\t\t\t\tend\r\n\t\t\tend else\r\n\t\t\t if ChoosenRow = 4 then\r\n\t\t\t ;* show all open in popup allowing choice\r\n\t\t \t\t\tOpenKeys = xlate( 'COMPANY', CustNo, 'PROD_SPEC_KEYS', 'X' )\r\n\t\t\t\t\tif OpenKeys then\r\n\t\t\t\t\t convert @vm to @fm in OpenKeys\r\n\t\t\t\t OpenKeys = key_sort( OpenKeys, 'PROD_SPEC', '#ENTRY_DATE', 1 )\t\t\t\r\n\t\t\t \tmake.list( 0, OpenKeys, '', '' )\r\n\t\t \t\tPopupId = entid( @appid<1>, 'POPUP', '', 'PROD_SPEC_SINGLE' )\r\n\t\t \t \t\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\t\t \t \t\tif ChoosenRow then\r\n\t\t \t \t\t .prod_spec_id->text = ChoosenRow\r\n\t\t end\r\n\t\t \tend else\r\n\t\t\t\t\t gosub CustErr\r\n\t\t\t\t\t return 0\r\n\t\t\t\t\tend\r\n\t\t\t end ;* user canceled\r\n\t\t end\r\n\t end\r\n end \r\nend else\r\n MsgRec = ''\r\n MsgRec = 'You must enter a customer first...' \r\n MsgRec = 'H'\r\n Void = msg( '', MsgRec ) \r\nend\r\nRETURN 0\r\n*===========================================================================*\r\nCustErr:\r\n Text = 'There are currently no Product Specifications for '\t\t \r\n Text:= oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' ) \r\n MsgInfo = ''\r\n MsgInfo = Text\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nreturn 0\r\n*===========================================================================*" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/QUOTE.QUOTE_NO.json b/LSL2/OIEVENT/OPTIONS/QUOTE.QUOTE_NO.json new file mode 100644 index 0000000..0fd09f0 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/QUOTE.QUOTE_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, getwindow\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine sendmessage, make.list\r\n$insert popup_equates\r\n\r\nQuoteKeys = dialog_box( 'QUOTE_QUERY', @window, '' )\r\nif QuoteKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'QUOTES_QUERY' )\r\n\tOverRide = ''\r\n make.list( 0, QuoteKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n\t Void = set_property( @window, '@NoRead', 1 ) \r\n\t .quote_no->text = ChoosenKeys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .quote_no->text = ChoosenKeys\r\n Void = send_event( @window:'.QUOTE_NO', 'LOSTFOCUS', '' )\r\n end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/QUOTE.QUOTE_OLD_ID.json b/LSL2/OIEVENT/OPTIONS/QUOTE.QUOTE_OLD_ID.json new file mode 100644 index 0000000..9eb2c8d --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/QUOTE.QUOTE_OLD_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, start_window, msg, key_sort, rowexists\r\ndeclare subroutine make.list\r\n$insert msg_equates\r\n\r\nCustNo = .cust_no->text\r\nif CustNo then\r\n * row one = call window with current key\r\n\t* row two = call window with no keys\r\n\tPopupId = entid( @appid<1>, 'POPUP', '', 'QUOTE_LOOKUP_OPTS3' )\r\n\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\tCurOldQuote = .quote_old_id->text\r\n\tif ChoosenRow = 1 then\r\n\t ;* go view current quote\r\n\t if CurOldQuote then\r\n\t RetVal = start_window( 'QUOTE_OLD', @window, CurOldQuote:'*CENTER', '', '' ) \r\n\t\tend else\r\n\t\t MsgInfo = ''\r\n\t\t Text = 'You have not entered an old quote number...' \r\n\t\t MsgInfo = Text\r\n\t\t MsgInfo = 'H'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t\t return 0\r\n end\r\n end else\r\n if ChoosenRow = 2 then\r\n\t * call quote window\r\n\t\t\tRetVal = start_window( 'QUOTE_OLD', @window, '*Choosing*QUOTE', '', '' )\r\n\t\tend\r\n end \r\nend else\r\n MsgRec = ''\r\n MsgRec = 'You must enter a customer first...' \r\n MsgRec = 'H'\r\n Void = msg( '', MsgRec ) \r\nend\r\nRETURN 0\r\n*===========================================================================*" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/QUOTE_OLD.CUST_NO.json b/LSL2/OIEVENT/OPTIONS/QUOTE_OLD.CUST_NO.json new file mode 100644 index 0000000..28b33fc --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/QUOTE_OLD.CUST_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function send_event\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nforward_event()\r\nVoid = send_event( CtrlEntId, 'LOSTFOCUS' )\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/QUOTE_OLD.FAX.json b/LSL2/OIEVENT/OPTIONS/QUOTE_OLD.FAX.json new file mode 100644 index 0000000..91e45c3 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/QUOTE_OLD.FAX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert company_equ\r\n$insert names_equ\r\n$insert msg_equates\r\n$insert popup_equates\r\ndeclare function fieldcount, msg, entid, repository\r\n\r\nCustomerRec = xlate( 'COMPANY', .cust_no->text, '', 'X' )\r\nNameRec = xlate( 'NAMES', .name_no->text, '', 'X' )\r\n\r\n* get the fax numbers for this customer\r\nCustPhones = CustomerRec\r\nCustPhoneTypes = CustomerRec\r\nCpCnt = fieldcount( CustPhones, @vm )\r\nExpInfo = ''\r\nfor i = 1 to CpCnt\r\n ThisPhoneType = CustPhoneTypes<1,i>\r\n ThisPhoneNum = CustPhones<1,i>\r\n convert @lower.case to @upper.case in ThisPhoneType\r\n if ThisPhoneType = 'FAX' then\r\n ExpInfo := oconv( .cust_no->text, '[XLATE_CONV,COMPANY*CO_NAME]' ):@svm:ThisPhoneNum:@vm\r\n end\r\nnext i\r\n\r\n* now get all fax numbers for this contact name\r\nNamePhones = NameRec\r\nNamePhoneTypes = NameRec\r\nNpCnt = fieldcount( NamePhones, @vm )\r\nfor i = 1 to NpCnt\r\n ThisPhoneType = NamePhoneTypes<1,i>\r\n ThisPhoneNum = NamePhones<1,i>\r\n convert @lower.case to @upper.case in ThisPhoneType\r\n if ThisPhoneType = 'FAX' then\r\n ExpInfo := oconv( .name_no->text, '[XLATE_CONV,NAMES*FIRST_LAST]' ):@svm:ThisPhoneNum:@vm\r\n end\r\nnext i\r\nif ExpInfo then\r\n ExpInfo[-1,1] = ''\r\n PopId = entid( @appid<1>, 'POPUP', '', 'FAX_NUMBERS' )\r\n OverRide = ''\r\n OverRide = ExpInfo\r\n Tresp = repository( 'EXECUTE', PopId, @window, OverRide )\r\n if Tresp <> '' then\r\n .fax->text = Tresp\r\n end\r\nend else\r\n MsgText = ''\r\n MsgText = 'There are no fax numbers defined for ':oconv( .cust_no->text, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n MsgText = MsgText:' or for ':oconv( .name_no->text, '[XLATE_CONV,NAMES*FIRST_LAST]' ):'.'\r\n MsgText = '!'\r\n Void = msg( '', MsgText )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/QUOTE_OLD.INTL_FAX.json b/LSL2/OIEVENT/OPTIONS/QUOTE_OLD.INTL_FAX.json new file mode 100644 index 0000000..f8640c1 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/QUOTE_OLD.INTL_FAX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert company_equ\r\n$insert names_equ\r\n$insert msg_equates\r\n$insert popup_equates\r\ndeclare function fieldcount, msg, entid, repository\r\n\r\nCustomerRec = xlate( 'COMPANY', .cust_no->text, '', 'X' )\r\nNameRec = xlate( 'NAMES', .name_no->text, '', 'X' )\r\n\r\n* get the fax numbers for this customer\r\nICustPhones = CustomerRec\r\nICustPhoneTypes = CustomerRec\r\nCpCnt = fieldcount( ICustPhones, @vm )\r\nExpInfo = ''\r\nfor i = 1 to CpCnt\r\n ThisPhoneType = ICustPhoneTypes<1,i>\r\n ThisPhoneNum = ICustPhones<1,i>\r\n convert @lower.case to @upper.case in ThisPhoneType\r\n if ThisPhoneType = 'FAX' then\r\n ExpInfo := oconv( .cust_no->text, '[XLATE_CONV,COMPANY*CO_NAME]' ):@svm:ThisPhoneNum:@vm\r\n end\r\nnext i\r\n\r\n* now get all fax numbers for this contact name\r\nINamePhones = NameRec\r\nINamePhoneTypes = NameRec\r\nNpCnt = fieldcount( INamePhones, @vm )\r\nfor i = 1 to NpCnt\r\n ThisPhoneType = INamePhoneTypes<1,i>\r\n ThisPhoneNum = INamePhones<1,i>\r\n convert @lower.case to @upper.case in ThisPhoneType\r\n if ThisPhoneType = 'FAX' then\r\n ExpInfo := oconv( .name_no->text, '[XLATE_CONV,NAMES*FIRST_LAST]' ):@svm:ThisPhoneNum:@vm\r\n end\r\nnext i\r\nif ExpInfo then\r\n ExpInfo[-1,1] = ''\r\n PopId = entid( @appid<1>, 'POPUP', '', 'INTL_FAX_NUMBERS' )\r\n OverRide = ''\r\n OverRide = ExpInfo\r\n Tresp = repository( 'EXECUTE', PopId, @window, OverRide )\r\n if Tresp <> '' then\r\n .intl_fax->text = Tresp\r\n end\r\nend else\r\n MsgText = ''\r\n MsgText = 'There are no international fax numbers defined for ':oconv( .cust_no->text, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n MsgText = MsgText:' or for ':oconv( .name_no->text, '[XLATE_CONV,NAMES*FIRST_LAST]' ):'.'\r\n MsgText = '!'\r\n Void = msg( '', MsgText )\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/QUOTE_OLD.NAME_NO.json b/LSL2/OIEVENT/OPTIONS/QUOTE_OLD.NAME_NO.json new file mode 100644 index 0000000..649de6c --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/QUOTE_OLD.NAME_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert msg_equates\r\ndeclare function msg, key_sort\r\ndeclare subroutine make.list\r\n\r\nCustNo = .cust_no->text\r\nNameKeys = xlate( 'COMPANY', CustNo, 'NAME_KEYS', 'X' )\r\nif NameKeys then\r\n convert @vm to @fm in NameKeys\r\n NameKeys = key_sort( NameKeys, 'NAMES', 'LAST_FIRST', 1, '', '' )\r\n make.list( 0, NameKeys, '', '' )\r\n return 1\r\nend else\r\n MsgText = ''\r\n MsgText = 'There are no names defined for ':oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' ) \r\n MsgText = '!'\t\r\n Void = msg( '', MsgText ) \r\n return 0\r\nend\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/QUOTE_OLD.QUOTE_NO.json b/LSL2/OIEVENT/OPTIONS/QUOTE_OLD.QUOTE_NO.json new file mode 100644 index 0000000..bdbe22c --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/QUOTE_OLD.QUOTE_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n\r\nQuoteKeys = dialog_box( 'QUOTE_OLD_QUERY', @window, '' )\r\nif QuoteKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'QUOTES_OLD_QUERY' )\r\n\tOverRide = ''\r\n make.list( 0, QuoteKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n\t Void = set_property( @window, '@NoRead', 1 ) \r\n\t .quote_no->text = ChoosenKeys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .quote_no->text = ChoosenKeys\r\n Void = send_event( @window:'.QUOTE_NO', 'LOSTFOCUS', '' )\r\n end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/QUOTE_OLD_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/QUOTE_OLD_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/QUOTE_OLD_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/QUOTE_OLD_QUERY.ENTRY_IDS.json b/LSL2/OIEVENT/OPTIONS/QUOTE_OLD_QUERY.ENTRY_IDS.json new file mode 100644 index 0000000..d9b0e4b --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/QUOTE_OLD_QUERY.ENTRY_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .entry_ids->array\r\n CurRow = .entry_ids->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .entry_ids->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/QUOTE_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/QUOTE_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/QUOTE_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/QUOTE_QUERY.ENTRY_IDS.json b/LSL2/OIEVENT/OPTIONS/QUOTE_QUERY.ENTRY_IDS.json new file mode 100644 index 0000000..d9b0e4b --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/QUOTE_QUERY.ENTRY_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .entry_ids->array\r\n CurRow = .entry_ids->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .entry_ids->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/QUOTE_RPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/QUOTE_RPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/QUOTE_RPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/QUOTE_RPT1.ENTRY_IDS.json b/LSL2/OIEVENT/OPTIONS/QUOTE_RPT1.ENTRY_IDS.json new file mode 100644 index 0000000..d9b0e4b --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/QUOTE_RPT1.ENTRY_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .entry_ids->array\r\n CurRow = .entry_ids->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .entry_ids->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/QUOTE_SIGS.SHIFT2_QTL.json b/LSL2/OIEVENT/OPTIONS/QUOTE_SIGS.SHIFT2_QTL.json new file mode 100644 index 0000000..d60b0c6 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/QUOTE_SIGS.SHIFT2_QTL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT LSL_USERS WITH ACTIVE BY LAST_FIRST', target_activelist$, '', '', '' )\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/QUOTE_SPEC_INFO.EPI_RECIPE.json b/LSL2/OIEVENT/OPTIONS/QUOTE_SPEC_INFO.EPI_RECIPE.json new file mode 100644 index 0000000..4188572 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/QUOTE_SPEC_INFO.EPI_RECIPE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, start_window, msg\r\ndeclare subroutine record_lock, rlist\r\n$insert msg_equates\r\n$insert rlist_equates\r\n$insert recipe_equ\r\n* row one = call window\r\n* row two = call popup\r\nPopupId = entid( @appid<1>, 'POPUP', '', 'RECIPE_LOOKUP_OPTS' )\r\nChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\nif ChoosenRow = 1 then\r\n * call recipe window\r\n RetVal = start_window( 'RECIPE', @window, '*Choosing', '', '' )\r\nend else\r\n if ChoosenRow = 2 then\r\n\t *\r\n\t Stmt = 'SELECT RECIPE BY RECIPE_NAME'\r\n rlist( Stmt, target_activelist$, '', '', '' )\r\n if @reccount then\r\n\t PopupId = entid( @appid<1>, 'POPUP', '', 'CHOOSE_RECIPE' )\r\n\t ChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\t if ChoosenRow then\r\n \t .epi_recipe->text = ChoosenRow\r\n RecipeName = xlate( 'RECIPE', ChoosenRow, recipe_recipe_name$, 'X' )\r\n .epi_recipe_name->text = RecipeName\r\n\t end\r\n\t end else\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'Error no recipies returned.' \r\n\t MsgInfo = '!'\r\n\t Void = msg( '', MsgInfo )\r\n\t end\r\n\tend\r\nend \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/QUOTE_SRL.CUST_NO.json b/LSL2/OIEVENT/OPTIONS/QUOTE_SRL.CUST_NO.json new file mode 100644 index 0000000..4ef8e41 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/QUOTE_SRL.CUST_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function send_event\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nforward_event( CtrlEntId, CtrlClassId )\r\nVoid = send_event( CtrlEntId, 'LOSTFOCUS' )\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/QUOTE_SRL.FAX.json b/LSL2/OIEVENT/OPTIONS/QUOTE_SRL.FAX.json new file mode 100644 index 0000000..19d4094 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/QUOTE_SRL.FAX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert company_equ\r\n$insert names_equ\r\n$insert msg_equates\r\n$insert popup_equates\r\ndeclare function fieldcount, msg, entid, repository\r\n\r\nCustomerRec = xlate( 'COMPANY', .cust_no->text, '', 'X' )\r\nNameRec = xlate( 'NAMES', .name_no->text, '', 'X' )\r\n\r\n* get the fax numbers for this customer\r\nCustPhones = CustomerRec\r\nCustPhoneTypes = CustomerRec\r\nCpCnt = fieldcount( CustPhones, @vm )\r\nExpInfo = ''\r\nfor i = 1 to CpCnt\r\n ThisPhoneType = CustPhoneTypes<1,i>\r\n ThisPhoneNum = CustPhones<1,i>\r\n convert @lower.case to @upper.case in ThisPhoneType\r\n if ThisPhoneType = 'FAX' then\r\n ExpInfo := oconv( .cust_no->text, '[XLATE_CONV,COMPANY*CO_NAME]' ):@svm:ThisPhoneNum:@vm\r\n end\r\nnext i\r\n\r\n* now get all fax numbers for this contact name\r\nNamePhones = NameRec\r\nNamePhoneTypes = NameRec\r\nNpCnt = fieldcount( NamePhones, @vm )\r\nfor i = 1 to NpCnt\r\n ThisPhoneType = NamePhoneTypes<1,i>\r\n ThisPhoneNum = NamePhones<1,i>\r\n convert @lower.case to @upper.case in ThisPhoneType\r\n if ThisPhoneType = 'FAX' then\r\n ExpInfo := oconv( .name_no->text, '[XLATE_CONV,NAMES*FIRST_LAST]' ):@svm:ThisPhoneNum:@vm\r\n end\r\nnext i\r\nif ExpInfo then\r\n ExpInfo[-1,1] = ''\r\n PopId = entid( @appid<1>, 'POPUP', '', 'FAX_NUMBERS' )\r\n OverRide = ''\r\n OverRide = ExpInfo\r\n .fax->text = repository( 'EXECUTE', PopId, @window, OverRide )\r\nend else\r\n MsgText = ''\r\n MsgText = 'There are no fax numbers defined for ':oconv( .cust_no->text, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n MsgText = MsgText:' or for ':oconv( .name_no->text, '[XLATE_CONV,NAMES*FIRST_LAST]' ):'.'\r\n MsgText = '!'\r\n Void = msg( '', MsgText )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/QUOTE_SRL.INTL_FAX.json b/LSL2/OIEVENT/OPTIONS/QUOTE_SRL.INTL_FAX.json new file mode 100644 index 0000000..0faa10e --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/QUOTE_SRL.INTL_FAX.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert company_equ\r\n$insert names_equ\r\n$insert msg_equates\r\n$insert popup_equates\r\ndeclare function fieldcount, msg, entid, repository\r\n\r\nCustomerRec = xlate( 'COMPANY', .cust_no->text, '', 'X' )\r\nNameRec = xlate( 'NAMES', .name_no->text, '', 'X' )\r\n\r\n* get the fax numbers for this customer\r\nICustPhones = CustomerRec\r\nICustPhoneTypes = CustomerRec\r\nCpCnt = fieldcount( ICustPhones, @vm )\r\nExpInfo = ''\r\nfor i = 1 to CpCnt\r\n ThisPhoneType = ICustPhoneTypes<1,i>\r\n ThisPhoneNum = ICustPhones<1,i>\r\n convert @lower.case to @upper.case in ThisPhoneType\r\n if ThisPhoneType = 'FAX' then\r\n ExpInfo := oconv( .cust_no->text, '[XLATE_CONV,COMPANY*CO_NAME]' ):@svm:ThisPhoneNum:@vm\r\n end\r\nnext i\r\n\r\n* now get all fax numbers for this contact name\r\nINamePhones = NameRec\r\nINamePhoneTypes = NameRec\r\nNpCnt = fieldcount( INamePhones, @vm )\r\nfor i = 1 to NpCnt\r\n ThisPhoneType = INamePhoneTypes<1,i>\r\n ThisPhoneNum = INamePhones<1,i>\r\n convert @lower.case to @upper.case in ThisPhoneType\r\n if ThisPhoneType = 'FAX' then\r\n ExpInfo := oconv( .name_no->text, '[XLATE_CONV,NAMES*FIRST_LAST]' ):@svm:ThisPhoneNum:@vm\r\n end\r\nnext i\r\nif ExpInfo then\r\n ExpInfo[-1,1] = ''\r\n PopId = entid( @appid<1>, 'POPUP', '', 'INTL_FAX_NUMBERS' )\r\n OverRide = ''\r\n OverRide = ExpInfo\r\n .intl_fax->text = repository( 'EXECUTE', PopId, @window, OverRide )\r\nend else\r\n MsgText = ''\r\n MsgText = 'There are no international fax numbers defined for ':oconv( .cust_no->text, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n MsgText = MsgText:' or for ':oconv( .name_no->text, '[XLATE_CONV,NAMES*FIRST_LAST]' ):'.'\r\n MsgText = '!'\r\n Void = msg( '', MsgText )\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/QUOTE_SRL.NAME_NO.json b/LSL2/OIEVENT/OPTIONS/QUOTE_SRL.NAME_NO.json new file mode 100644 index 0000000..649de6c --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/QUOTE_SRL.NAME_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$insert msg_equates\r\ndeclare function msg, key_sort\r\ndeclare subroutine make.list\r\n\r\nCustNo = .cust_no->text\r\nNameKeys = xlate( 'COMPANY', CustNo, 'NAME_KEYS', 'X' )\r\nif NameKeys then\r\n convert @vm to @fm in NameKeys\r\n NameKeys = key_sort( NameKeys, 'NAMES', 'LAST_FIRST', 1, '', '' )\r\n make.list( 0, NameKeys, '', '' )\r\n return 1\r\nend else\r\n MsgText = ''\r\n MsgText = 'There are no names defined for ':oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' ) \r\n MsgText = '!'\t\r\n Void = msg( '', MsgText ) \r\n return 0\r\nend\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/QUOTE_SRL.QUOTE_NO.json b/LSL2/OIEVENT/OPTIONS/QUOTE_SRL.QUOTE_NO.json new file mode 100644 index 0000000..7360e81 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/QUOTE_SRL.QUOTE_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, getwindow\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine sendmessage, make.list\r\n$insert popup_equates\r\nequ QbfOccurred$ to 1126\r\n\r\nQuoteKeys = dialog_box( 'QUOTE_SRL_QUERY', @window, '' )\r\nif QuoteKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'QUOTES_SRL_QUERY' )\r\n\tOverRide = ''\r\n make.list( 0, QuoteKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n WndHnd = get_property( @window, 'HANDLE' )\r\n HbBar = getwindow( WndHnd, 5 )\r\n sendmessage( HbBar, QbfOccurred$, 0, 0 )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .quote_no->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .quote_no->text = ChoosenKeys\r\n Void = send_event( @window:'.QUOTE_NO', 'LOSTFOCUS', '' )\r\n end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/QUOTE_SRL_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/QUOTE_SRL_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/QUOTE_SRL_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/QUOTE_SRL_QUERY.ENTRY_IDS.json b/LSL2/OIEVENT/OPTIONS/QUOTE_SRL_QUERY.ENTRY_IDS.json new file mode 100644 index 0000000..d9b0e4b --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/QUOTE_SRL_QUERY.ENTRY_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .entry_ids->array\r\n CurRow = .entry_ids->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .entry_ids->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/RDS.RDS_NO.json b/LSL2/OIEVENT/OPTIONS/RDS.RDS_NO.json new file mode 100644 index 0000000..7ab6398 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/RDS.RDS_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = rds_comm( 'RDS_NO_OPTIONS' )\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/RDS_POST_EPI.RDS_NO.json b/LSL2/OIEVENT/OPTIONS/RDS_POST_EPI.RDS_NO.json new file mode 100644 index 0000000..7ab6398 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/RDS_POST_EPI.RDS_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = rds_comm( 'RDS_NO_OPTIONS' )\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/RDS_PRE_EPI.PRE_EPI_SIG_INFO.json b/LSL2/OIEVENT/OPTIONS/RDS_PRE_EPI.PRE_EPI_SIG_INFO.json new file mode 100644 index 0000000..4af489c --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/RDS_PRE_EPI.PRE_EPI_SIG_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function relational_call, start_window, msg, entid, repository\r\ndeclare function key_sort, send_event, rowexists, popup\r\ndeclare subroutine make.list, rlist\r\n\r\n$insert logical\r\n$insert msg_equates\r\n$insert quote_equ\r\n$insert popup_equates\r\n$insert rlist_equates\r\n$INSERT TOOL_CLASS_EQUATES\r\n\r\nSelpos = .pre_epi_sig_info->selpos\r\nCurArray = .pre_epi_sig_info->array\r\n\r\nColumn = SelPos<1>\r\nRow = SelPos<2>\r\n\r\nBEGIN CASE\r\n\tCASE Column = 1 \r\n \r\n\t\tToolKeys\t\t= XLATE('TOOL_CLASS','AKRION',TOOL_CLASS_TOOL$,'X')\r\n\t\tToolKeys<1,-1>\t= XLATE('TOOL_CLASS','WET BENCH',TOOL_CLASS_TOOL$,'X')\r\n\r\n\t\tTypeOver = ''\r\n\t\tTypeOver = 'K'\r\n\t\tTypeOver = ToolKeys\r\n\r\n\t\tToolID = Popup(@WINDOW,TypeOver,'TOOLS') \r\n\t\t \r\n\t\tReturnValue = ToolID \r\n\t\t \r\n CASE Column = 2\r\n\t\tReturnValue = Popup(@WINDOW,'','PRECLEANCASSID')\r\n\t\t\r\n CASE Column = 3\r\n\t\tReturnValue = Popup(@WINDOW,'','PRECLEANSRD')\r\n\t\t\r\n\tCASE Column = 4\r\n\t * SHOW USERS POPUP AND RETURN \r\n rlist( 'SELECT LSL_USERS WITH ACTIVE BY LAST_FIRST', target_activelist$, '', '', '' ) \r\n PopRec = xlate( 'SYSREPOSPOPUPS', @appid<1>:'**':'SHOW_USERS', '', 'X' )\r\n PopRec = 1\r\n Choice = popup( @window, PopRec ) \r\n if Choice then\r\n CurArray = Choice\r\n CurArray = xlate( 'LSL_USERS', Choice, 'FIRST_LAST', 'X' )\r\n .pre_epi_sig_info->array = CurArray\r\n end\r\n return 0\r\n case otherwise$\r\n return 1\r\n \r\nEND CASE\r\n\r\nIF ReturnValue <> '' THEN\r\n CurArray = ReturnValue\r\n .pre_epi_sig_info->array = CurArray\r\nEND\r\n\r\nreturn 0\r\n*===========================================================================*" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/RDS_PRE_EPI.RDS_NO.json b/LSL2/OIEVENT/OPTIONS/RDS_PRE_EPI.RDS_NO.json new file mode 100644 index 0000000..7ab6398 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/RDS_PRE_EPI.RDS_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = rds_comm( 'RDS_NO_OPTIONS' )\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/RDS_PRE_EPI_ORG.PRE_EPI_SIG_INFO.json b/LSL2/OIEVENT/OPTIONS/RDS_PRE_EPI_ORG.PRE_EPI_SIG_INFO.json new file mode 100644 index 0000000..4af489c --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/RDS_PRE_EPI_ORG.PRE_EPI_SIG_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function relational_call, start_window, msg, entid, repository\r\ndeclare function key_sort, send_event, rowexists, popup\r\ndeclare subroutine make.list, rlist\r\n\r\n$insert logical\r\n$insert msg_equates\r\n$insert quote_equ\r\n$insert popup_equates\r\n$insert rlist_equates\r\n$INSERT TOOL_CLASS_EQUATES\r\n\r\nSelpos = .pre_epi_sig_info->selpos\r\nCurArray = .pre_epi_sig_info->array\r\n\r\nColumn = SelPos<1>\r\nRow = SelPos<2>\r\n\r\nBEGIN CASE\r\n\tCASE Column = 1 \r\n \r\n\t\tToolKeys\t\t= XLATE('TOOL_CLASS','AKRION',TOOL_CLASS_TOOL$,'X')\r\n\t\tToolKeys<1,-1>\t= XLATE('TOOL_CLASS','WET BENCH',TOOL_CLASS_TOOL$,'X')\r\n\r\n\t\tTypeOver = ''\r\n\t\tTypeOver = 'K'\r\n\t\tTypeOver = ToolKeys\r\n\r\n\t\tToolID = Popup(@WINDOW,TypeOver,'TOOLS') \r\n\t\t \r\n\t\tReturnValue = ToolID \r\n\t\t \r\n CASE Column = 2\r\n\t\tReturnValue = Popup(@WINDOW,'','PRECLEANCASSID')\r\n\t\t\r\n CASE Column = 3\r\n\t\tReturnValue = Popup(@WINDOW,'','PRECLEANSRD')\r\n\t\t\r\n\tCASE Column = 4\r\n\t * SHOW USERS POPUP AND RETURN \r\n rlist( 'SELECT LSL_USERS WITH ACTIVE BY LAST_FIRST', target_activelist$, '', '', '' ) \r\n PopRec = xlate( 'SYSREPOSPOPUPS', @appid<1>:'**':'SHOW_USERS', '', 'X' )\r\n PopRec = 1\r\n Choice = popup( @window, PopRec ) \r\n if Choice then\r\n CurArray = Choice\r\n CurArray = xlate( 'LSL_USERS', Choice, 'FIRST_LAST', 'X' )\r\n .pre_epi_sig_info->array = CurArray\r\n end\r\n return 0\r\n case otherwise$\r\n return 1\r\n \r\nEND CASE\r\n\r\nIF ReturnValue <> '' THEN\r\n CurArray = ReturnValue\r\n .pre_epi_sig_info->array = CurArray\r\nEND\r\n\r\nreturn 0\r\n*===========================================================================*" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/RDS_PRE_EPI_ORG.RDS_NO.json b/LSL2/OIEVENT/OPTIONS/RDS_PRE_EPI_ORG.RDS_NO.json new file mode 100644 index 0000000..7ab6398 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/RDS_PRE_EPI_ORG.RDS_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = rds_comm( 'RDS_NO_OPTIONS' )\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/RDS_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/RDS_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/RDS_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/RDS_REJECTS.REJ_INFO.json b/LSL2/OIEVENT/OPTIONS/RDS_REJECTS.REJ_INFO.json new file mode 100644 index 0000000..3829b3e --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/RDS_REJECTS.REJ_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, memberof\r\ndeclare subroutine rlist\r\n$insert rlist_equates\r\n\r\nSelpos = .rej_info->selpos\r\nColumn = SelPos<1>\r\nRow = SelPos<2>\r\nColData = get_property( @window:'.REJ_INFO', 'COLDATA' )\r\nbegin case\r\n case Column = 2 ;* loss codes\r\n PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_LOSS_CODES' )\r\n RetCode = repository( 'EXECUTE', PopupRec, @window, '' )\r\n if RetCode <> '' then\r\n ColData<1,Row> = RetCode\r\n Void = set_property( @window:'.REJ_INFO', 'COLDATA', ColData )\r\n end\r\n case Column = 4 ;* assignable cause\r\n if memberof( @user4, 'SUPERVISOR' ) then\r\n Stmt = 'SELECT ASSIGN_CAUSE WITH STATUS = \"A\" BY DESIG_ERR_GRP_DESC BY ASSIGN_CAUSE_DESC'\r\n rlist( Stmt, target_activelist$, '', '', '' )\r\n PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_ASSIGN_CAUSE' )\r\n RetCause = repository( 'EXECUTE', PopupRec, @window, OverRide )\r\n if RetCause <> '' then\r\n ColData<1,Row> = RetCause\r\n Void = set_property( @window:'.REJ_INFO', 'COLDATA', ColData )\r\n end\r\n end\r\n case Otherwise$\r\nend case\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/RDS_RPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/RDS_RPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/RDS_RPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/RDS_RPT2.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/RDS_RPT2.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/RDS_RPT2.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/RDS_SRPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/RDS_SRPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/RDS_SRPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/RDS_TW.TW_INFO.json b/LSL2/OIEVENT/OPTIONS/RDS_TW.TW_INFO.json new file mode 100644 index 0000000..acf899e --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/RDS_TW.TW_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, memberof, rds_comm\r\ndeclare subroutine rlist\r\n$insert rlist_equates\r\n\r\nSelpos = .tw_info->selpos\r\nColumn = SelPos<1>\r\nRow = SelPos<2>\r\nbegin case\r\n case Column = 2\r\n\t\tColData = get_property( @window:'.TW_INFO', 'COLDATA' )\r\n\t\tPopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_TW_CODES' )\r\n\t rlist( 'SELECT TW_CODES WITH NON_PROD = 0 BY DESC', target_activelist$, '', '', '' )\t\r\n\t\tRetCode = repository( 'EXECUTE', PopupRec, @window, '' )\r\n\t\tif RetCode <> '' then\r\n\t\t ColData<1,Row> = RetCode\r\n\t\t Void = set_property( @window:'.TW_INFO', 'COLDATA', ColData )\r\n\t\tend\r\n case Column = 4\r\n\t\tColData = get_property( @window:'.TW_INFO', 'COLDATA' )\r\n\t\tPopupRec = entid( @appid<1>, 'POPUP', '', 'CHOOSE_TOOL' )\r\n\t\tRetCode = repository( 'EXECUTE', PopupRec, @window, '' )\r\n\t\tif RetCode <> '' then\r\n\t\t ColData<1,Row> = RetCode\r\n\t\t Void = set_property( @window:'.TW_INFO', 'COLDATA', ColData )\r\n\t\tend\r\n Void = rds_comm( \"TW_ACCT_ROW_VAL\" )\t\t\r\nend case\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/RDS_UNLOAD.RDS_NO.json b/LSL2/OIEVENT/OPTIONS/RDS_UNLOAD.RDS_NO.json new file mode 100644 index 0000000..7ab6398 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/RDS_UNLOAD.RDS_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm\r\n\r\nVoid = rds_comm( 'RDS_NO_OPTIONS' )\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/REACTORPM_SRPT1.REACT_SERVS.json b/LSL2/OIEVENT/OPTIONS/REACTORPM_SRPT1.REACT_SERVS.json new file mode 100644 index 0000000..a01c042 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/REACTORPM_SRPT1.REACT_SERVS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, send_event\r\ndeclare subroutine rlist\r\n$insert popup_equates\r\n$insert rlist_equates\r\n\r\nSelPos = .react_servs->selpos\r\nCurRow = SelPos<2>\r\nPopRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_SERVS' )\r\nOverRide = ''\r\nOverRide = 2\r\nStmt = 'SELECT REACT_SERVS BY DESCRIPTION'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\nif Choosen then\r\n convert @fm to @vm in Choosen\r\n\tCurArray = .react_servs->array\r\n\tCurArray = delete( CurArray, 1, CurRow, 0 )\r\n\tCurArray = delete( CurArray, 2, CurRow, 0 )\r\n\tCurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n\tCurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,REACT_SERVS*DESCRIPTION]' ) )\r\n\t.react_servs->Array = CurArray\r\n\tVoid = set_property( @window, '@NoTopPos', 1 )\r\n Void = send_event( @window:'.REACT_SERVS', 'LOSTFOCUS' )\t\r\n\tVoid = set_property( @window, '@NoTopPos', '' ) \r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/REACTOR_LOG.SERV_INFO.json b/LSL2/OIEVENT/OPTIONS/REACTOR_LOG.SERV_INFO.json new file mode 100644 index 0000000..69128bf --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/REACTOR_LOG.SERV_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, send_event\r\ndeclare subroutine rlist\r\n$insert popup_equates\r\n$insert rlist_equates\r\n$insert react_servs_equ\r\n$insert reactor_log_equates\r\n$insert react_serv_cat_equates\r\n\r\n\r\nRETURN 1\r\n\r\nSelPos = .serv_info->selpos\r\nCurCol = SelPos<1>\r\nCurRow = SelPos<2>\r\nbegin case\r\n case CurCol = 1 \r\n\t\tStmt = 'SELECT REACT_PROB_CAT BY REACTOR_PROBLEM_CATEGORY'\r\n\t\trlist( Stmt, target_activelist$, '', '', '' )\r\n\t\tif @reccount then\r\n\t\t PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_PROB_CAT' )\r\n\t\t OverRide = ''\r\n\t\t OverRide = 2\r\n\t\t Chosen = repository( 'EXECUTE', PopupRec, @window, OverRide )\r\n\t\t *DEBUG\r\n \t\t convert @fm to @vm in Chosen\r\n\t\t\tCurArray = .serv_info->array\r\n\t\t\tCurArray = delete( CurArray, 1, CurRow, 0 )\t\t\t\t\t\r\n\t\t\tCurArray = insert( CurArray, 1, CurRow, 0, Chosen )\r\n\t\t\t.serv_info->array = CurArray\r\n\t\t\tVoid = set_property( @window, 'RECORD', Record )\r\n\t\t\tVoid = send_event( @window, '.SERV_INFO', 'CALCULATE', 2 )\r\n\t\t\tVoid = send_event( @window, '.SERV_INFO', 'CALCULATE', 4 )\t\r\n\t\t\tVoid = set_property( @window, '@NoTopPosServs', 1 )\r\n\t\t Void = send_event( @window:'.SERV_INFO', 'LOSTFOCUS' )\t\r\n\t\t\tVoid = set_property( @window, '@NoTopPosServs', '' ) \t\t \r\n\t\tend \r\n\r\n case CurCol = 3\r\n \r\n \r\n\t\tStmt = 'SELECT REACT_SERVS BY DESCRIPTION'\r\n\t\trlist( Stmt, target_activelist$, '', '', '' )\r\n\t\tif @reccount then\r\n\t\t PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_SERVS' )\r\n\t\t OverRide = ''\r\n\t\t OverRide = 2\r\n\t\t OverRide = 2\r\n\t\t Choosen = repository( 'EXECUTE', PopupRec, @window, OverRide )\r\n\t\t \r\n\t\t IF @USERNAME = 'BRYCE_BARB' THEN DEBUG\r\n\t\t \r\n\t\t convert @fm to @vm in Choosen\r\n\t\t\tCurArray = .serv_info->array\r\n\t\t\tCurArray = delete( CurArray, 3, CurRow, 0 )\r\n\t\t\tCurArray = delete( CurArray, 4, CurRow, 0 )\r\n\t\t\tCurArray = delete( CurArray, 5, CurRow, 0 )\r\n\t\t\tCurArray = delete( CurArray, 6, CurRow, 0 )\r\n\t\t\tCurArray = insert( CurArray, 3, CurRow, 0, Choosen )\r\n\t\t\tCatIds = xlate( 'REACT_SERVS', Choosen, react_servs_react_serv_cat_id$, 'X' )\r\n\t\t\tCatDescs = xlate( 'REACT_SERV_CAT', CatIds, react_serv_cat_reactor_service_category$, 'X' )\t\r\n\t\t\tCurArray = insert( CurArray, 5, CurRow, 0, CatIds )\r\n\t\t\tCurArray = insert( CurArray, 6, CurRow, 0, CatDescs )\r\n\t\t\tRecord = get_property( @window, 'RECORD' )\r\n\t\t\tRecord = insert( Record, reactor_log_react_serv_cat_id$, CurRow, 0, CatIds )\r\n\t\t\t.serv_info->array = CurArray\r\n\t\t\tVoid = set_property( @window, 'RECORD', Record )\r\n\t\t\tVoid = send_event( @window, '.SERV_INFO', 'CALCULATE', 2 )\t\t\t\r\n\t\t\tVoid = send_event( @window, '.SERV_INFO', 'CALCULATE', 4 )\t\r\n\t\t\tVoid = set_property( @window, '@NoTopPosServs', 1 )\r\n\t\t Void = send_event( @window:'.SERV_INFO', 'LOSTFOCUS' )\t\r\n\t\t\tVoid = set_property( @window, '@NoTopPosServs', '' ) \r\n\t\tend \r\n\tcase CurCol = 9\r\n\t\tStmt = 'SELECT REACT_ITEMS WITH STATUS = \"A\" BY DESCRIPTION'\r\n\t\trlist( Stmt, target_activelist$, '', '', '' )\r\n\t\tif @reccount then\r\n\t\t PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_ITEMS' )\r\n\t\t OverRide = ''\r\n\t\t Choosen = repository( 'EXECUTE', PopupRec, @window, OverRide )\r\n\t\t convert @fm to @vm in Choosen\r\n\t\t\tCurArray = .serv_info->array\r\n\t\t\tCurArray = delete( CurArray, 9, CurRow, 0 )\t\t\t\t\t\r\n\t\t\tCurArray = insert( CurArray, 9, CurRow, 0, Choosen )\r\n\t\t\t*CatIds = xlate( 'REACT_SERVS', Choosen, react_servs_react_serv_cat_id$, 'X' )\r\n\t\t\t*CatDescs = xlate( 'REACT_SERV_CAT', CatIds, react_serv_cat_reactor_service_category$, 'X' )\t\r\n\t\t\t*Record = get_property( @window, 'RECORD' )\r\n\t\t\t*Record = insert( Record, reactor_log_react_serv_cat_id$, CurRow, 0, CatIds )\r\n\t\t\t.serv_info->array = CurArray\r\n\t\t\tVoid = set_property( @window, 'RECORD', Record )\r\n\t\t\tVoid = send_event( @window, '.SERV_INFO', 'CALCULATE', 2 )\t\t\t\r\n\t\t\tVoid = send_event( @window, '.SERV_INFO', 'CALCULATE', 4 )\t\r\n\t\t\tVoid = set_property( @window, '@NoTopPosServs', 1 )\r\n\t\t Void = send_event( @window:'.SERV_INFO', 'LOSTFOCUS' )\t\r\n\t\t\tVoid = set_property( @window, '@NoTopPosServs', '' ) \r\n\t\tend\t\r\n\tend case\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_AREV.CUST_NO.json b/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_AREV.CUST_NO.json new file mode 100644 index 0000000..443b0ff --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_AREV.CUST_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, forward_event\r\ndeclare function send_event\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nforward_event( CtrlEntId, CtrlClassId )\r\nVoid = send_event( CtrlEntId, 'LOSTFOCUS' )\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_AREV.REACTOR_LOG_NO.json b/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_AREV.REACTOR_LOG_NO.json new file mode 100644 index 0000000..1cbe851 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_AREV.REACTOR_LOG_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function getwindow, fieldcount, send_event\r\ndeclare subroutine sendmessage, make.list\r\n$insert popup_equates\r\nequ QbfOccurred$ to 1126\r\n\r\nRLKeys = dialog_box( 'REACTOR_LOG_QUERY', @window, '' )\r\nif RLKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'REACTOR_LOG_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, RLKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n\t\t WndHnd = get_property( @window, 'HANDLE' )\r\n\t\t HbBar = getwindow( WndHnd, 5 )\r\n\t\t sendmessage( HbBar, QbfOccurred$, 0, 0 )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .reactor_log_no->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .reactor_log_no->text = ChoosenKeys\r\n\t Void = send_event( @window:'.REACTOR_LOG_NO', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_QUERY.ENTRY_IDS.json b/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_QUERY.ENTRY_IDS.json new file mode 100644 index 0000000..d9b0e4b --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_QUERY.ENTRY_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .entry_ids->array\r\n CurRow = .entry_ids->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .entry_ids->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_QUERY.REACT_ITEMS.json b/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_QUERY.REACT_ITEMS.json new file mode 100644 index 0000000..d5821f1 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_QUERY.REACT_ITEMS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, send_event\r\ndeclare subroutine rlist\r\n$insert popup_equates\r\n$insert rlist_equates\r\n\r\nSelPos = .react_items->selpos\r\nCurRow = SelPos<2>\r\nPopRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_ITEMS' )\r\nOverRide = ''\r\nOverRide = 2\r\nStmt = 'SELECT REACT_ITEMS BY DESCRIPTION'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\nif Choosen then\r\n convert @fm to @vm in Choosen\r\n\tCurArray = .react_items->array\r\n\tCurArray = delete( CurArray, 1, CurRow, 0 )\r\n\tCurArray = delete( CurArray, 2, CurRow, 0 )\r\n\tCurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n\tCurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,REACT_ITEMS*DESCRIPTION]' ) )\r\n\t.react_items->Array = CurArray\r\n\tVoid = set_property( @window, '@NoTopPos', 1 )\r\n Void = send_event( @window:'.REACT_ITEMS', 'LOSTFOCUS' )\t\r\n\tVoid = set_property( @window, '@NoTopPos', '' ) \r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_QUERY.REACT_PROBS_CAT.json b/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_QUERY.REACT_PROBS_CAT.json new file mode 100644 index 0000000..0b8b362 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_QUERY.REACT_PROBS_CAT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, send_event\r\ndeclare subroutine rlist\r\n$insert popup_equates\r\n$insert rlist_equates\r\n\r\nSelPos = .react_probs_cat->selpos\r\nCurRow = SelPos<2>\r\nPopRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_PROB_CAT' )\r\nOverRide = ''\r\nOverRide = 2\r\nStmt = 'SELECT REACT_PROB_CAT BY REACTOR_PROBLEM_CATEGORY'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\nif Choosen then\r\n convert @fm to @vm in Choosen\r\n\tCurArray = .react_probs_cat->array\r\n\tCurArray = delete( CurArray, 1, CurRow, 0 )\r\n\tCurArray = delete( CurArray, 2, CurRow, 0 )\r\n\tCurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n\tCurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,REACT_PROB_CAT*REACTOR_PROBLEM_CATEGORY]' ) )\r\n\t.react_probs_cat->Array = CurArray\r\n\tVoid = set_property( @window, '@NoTopPos', 1 )\r\n Void = send_event( @window:'.REACT_PROBS_CAT', 'LOSTFOCUS' )\t\r\n\tVoid = set_property( @window, '@NoTopPos', '' ) \r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_QUERY.REACT_SERVS.json b/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_QUERY.REACT_SERVS.json new file mode 100644 index 0000000..a01c042 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_QUERY.REACT_SERVS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, send_event\r\ndeclare subroutine rlist\r\n$insert popup_equates\r\n$insert rlist_equates\r\n\r\nSelPos = .react_servs->selpos\r\nCurRow = SelPos<2>\r\nPopRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_SERVS' )\r\nOverRide = ''\r\nOverRide = 2\r\nStmt = 'SELECT REACT_SERVS BY DESCRIPTION'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\nif Choosen then\r\n convert @fm to @vm in Choosen\r\n\tCurArray = .react_servs->array\r\n\tCurArray = delete( CurArray, 1, CurRow, 0 )\r\n\tCurArray = delete( CurArray, 2, CurRow, 0 )\r\n\tCurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n\tCurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,REACT_SERVS*DESCRIPTION]' ) )\r\n\t.react_servs->Array = CurArray\r\n\tVoid = set_property( @window, '@NoTopPos', 1 )\r\n Void = send_event( @window:'.REACT_SERVS', 'LOSTFOCUS' )\t\r\n\tVoid = set_property( @window, '@NoTopPos', '' ) \r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_QUERY.REACT_SERVS_CAT.json b/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_QUERY.REACT_SERVS_CAT.json new file mode 100644 index 0000000..b582b69 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_QUERY.REACT_SERVS_CAT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, send_event\r\ndeclare subroutine rlist\r\n$insert popup_equates\r\n$insert rlist_equates\r\n\r\nSelPos = .react_servs_cat->selpos\r\nCurRow = SelPos<2>\r\nPopRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_SERV_CAT' )\r\nOverRide = ''\r\nOverRide = 2\r\nStmt = 'SELECT REACT_SERV_CAT BY REACTOR_SERVICE_CATEGORY'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\nif Choosen then\r\n convert @fm to @vm in Choosen\r\n\tCurArray = .react_servs_cat->array\r\n\tCurArray = delete( CurArray, 1, CurRow, 0 )\r\n\tCurArray = delete( CurArray, 2, CurRow, 0 )\r\n\tCurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n\tCurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,REACT_SERV_CAT*REACTOR_SERVICE_CATEGORY]' ) )\r\n\t.react_servs_cat->Array = CurArray\r\n\tVoid = set_property( @window, '@NoTopPos', 1 )\r\n Void = send_event( @window:'.REACT_SERVS_CAT', 'LOSTFOCUS' )\t\r\n\tVoid = set_property( @window, '@NoTopPos', '' ) \r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_RPT3.REACT_ITEMS.json b/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_RPT3.REACT_ITEMS.json new file mode 100644 index 0000000..d5821f1 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_RPT3.REACT_ITEMS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, send_event\r\ndeclare subroutine rlist\r\n$insert popup_equates\r\n$insert rlist_equates\r\n\r\nSelPos = .react_items->selpos\r\nCurRow = SelPos<2>\r\nPopRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_ITEMS' )\r\nOverRide = ''\r\nOverRide = 2\r\nStmt = 'SELECT REACT_ITEMS BY DESCRIPTION'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\nif Choosen then\r\n convert @fm to @vm in Choosen\r\n\tCurArray = .react_items->array\r\n\tCurArray = delete( CurArray, 1, CurRow, 0 )\r\n\tCurArray = delete( CurArray, 2, CurRow, 0 )\r\n\tCurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n\tCurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,REACT_ITEMS*DESCRIPTION]' ) )\r\n\t.react_items->Array = CurArray\r\n\tVoid = set_property( @window, '@NoTopPos', 1 )\r\n Void = send_event( @window:'.REACT_ITEMS', 'LOSTFOCUS' )\t\r\n\tVoid = set_property( @window, '@NoTopPos', '' ) \r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_RPT3.REACT_PROBS.json b/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_RPT3.REACT_PROBS.json new file mode 100644 index 0000000..916e612 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_RPT3.REACT_PROBS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, send_event\r\ndeclare subroutine rlist\r\n$insert popup_equates\r\n$insert rlist_equates\r\n\r\nSelPos = .react_probs->selpos\r\nCurRow = SelPos<2>\r\nPopRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_PROBS' )\r\nOverRide = ''\r\nOverRide = 2\r\nStmt = 'SELECT REACT_PROBS BY DESCRIPTION'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\nif Choosen then\r\n convert @fm to @vm in Choosen\r\n\tCurArray = .react_probs->array\r\n\tCurArray = delete( CurArray, 1, CurRow, 0 )\r\n\tCurArray = delete( CurArray, 2, CurRow, 0 )\r\n\tCurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n\tCurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,REACT_PROBS*DESCRIPTION]' ) )\r\n\t.react_probs->Array = CurArray\r\n\tVoid = set_property( @window, '@NoTopPos', 1 )\r\n Void = send_event( @window:'.REACT_PROBS', 'LOSTFOCUS' )\t\r\n\tVoid = set_property( @window, '@NoTopPos', '' ) \r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_RPT3.REACT_SERVS.json b/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_RPT3.REACT_SERVS.json new file mode 100644 index 0000000..a01c042 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_RPT3.REACT_SERVS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, send_event\r\ndeclare subroutine rlist\r\n$insert popup_equates\r\n$insert rlist_equates\r\n\r\nSelPos = .react_servs->selpos\r\nCurRow = SelPos<2>\r\nPopRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_SERVS' )\r\nOverRide = ''\r\nOverRide = 2\r\nStmt = 'SELECT REACT_SERVS BY DESCRIPTION'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\nif Choosen then\r\n convert @fm to @vm in Choosen\r\n\tCurArray = .react_servs->array\r\n\tCurArray = delete( CurArray, 1, CurRow, 0 )\r\n\tCurArray = delete( CurArray, 2, CurRow, 0 )\r\n\tCurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n\tCurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,REACT_SERVS*DESCRIPTION]' ) )\r\n\t.react_servs->Array = CurArray\r\n\tVoid = set_property( @window, '@NoTopPos', 1 )\r\n Void = send_event( @window:'.REACT_SERVS', 'LOSTFOCUS' )\t\r\n\tVoid = set_property( @window, '@NoTopPos', '' ) \r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_RPT4.REACT_PROBS.json b/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_RPT4.REACT_PROBS.json new file mode 100644 index 0000000..916e612 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_RPT4.REACT_PROBS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, send_event\r\ndeclare subroutine rlist\r\n$insert popup_equates\r\n$insert rlist_equates\r\n\r\nSelPos = .react_probs->selpos\r\nCurRow = SelPos<2>\r\nPopRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_PROBS' )\r\nOverRide = ''\r\nOverRide = 2\r\nStmt = 'SELECT REACT_PROBS BY DESCRIPTION'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\nif Choosen then\r\n convert @fm to @vm in Choosen\r\n\tCurArray = .react_probs->array\r\n\tCurArray = delete( CurArray, 1, CurRow, 0 )\r\n\tCurArray = delete( CurArray, 2, CurRow, 0 )\r\n\tCurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n\tCurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,REACT_PROBS*DESCRIPTION]' ) )\r\n\t.react_probs->Array = CurArray\r\n\tVoid = set_property( @window, '@NoTopPos', 1 )\r\n Void = send_event( @window:'.REACT_PROBS', 'LOSTFOCUS' )\t\r\n\tVoid = set_property( @window, '@NoTopPos', '' ) \r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_RPT4.REACT_SERVS.json b/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_RPT4.REACT_SERVS.json new file mode 100644 index 0000000..a01c042 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_RPT4.REACT_SERVS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, send_event\r\ndeclare subroutine rlist\r\n$insert popup_equates\r\n$insert rlist_equates\r\n\r\nSelPos = .react_servs->selpos\r\nCurRow = SelPos<2>\r\nPopRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_SERVS' )\r\nOverRide = ''\r\nOverRide = 2\r\nStmt = 'SELECT REACT_SERVS BY DESCRIPTION'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\nif Choosen then\r\n convert @fm to @vm in Choosen\r\n\tCurArray = .react_servs->array\r\n\tCurArray = delete( CurArray, 1, CurRow, 0 )\r\n\tCurArray = delete( CurArray, 2, CurRow, 0 )\r\n\tCurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n\tCurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,REACT_SERVS*DESCRIPTION]' ) )\r\n\t.react_servs->Array = CurArray\r\n\tVoid = set_property( @window, '@NoTopPos', 1 )\r\n Void = send_event( @window:'.REACT_SERVS', 'LOSTFOCUS' )\t\r\n\tVoid = set_property( @window, '@NoTopPos', '' ) \r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_SRPT1.REACTORS.json b/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_SRPT1.REACTORS.json new file mode 100644 index 0000000..bf7527d --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_SRPT1.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, send_event\r\ndeclare subroutine rlist\r\n$insert popup_equates\r\n$insert rlist_equates\r\n\r\nSelPos = .reactors->selpos\r\nCurRow = SelPos<2>\r\nPopRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACTORS' )\r\nOverRide = ''\r\nOverRide = 2\r\nStmt = 'SELECT REACTORS BY DESCRIPTION'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\nif Choosen then\r\n convert @fm to @vm in Choosen\r\n\tCurArray = .react_items->array\r\n\tCurArray = delete( CurArray, 1, CurRow, 0 )\r\n\tCurArray = delete( CurArray, 2, CurRow, 0 )\r\n\tCurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n\tCurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,REACT_ITEMS*DESCRIPTION]' ) )\r\n\t.react_items->Array = CurArray\r\n\tVoid = set_property( @window, '@NoTopPos', 1 )\r\n Void = send_event( @window:'.REACT_ITEMS', 'LOSTFOCUS' )\t\r\n\tVoid = set_property( @window, '@NoTopPos', '' ) \r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_SRPT1.REACT_PROBS_CAT.json b/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_SRPT1.REACT_PROBS_CAT.json new file mode 100644 index 0000000..0b8b362 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_SRPT1.REACT_PROBS_CAT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, send_event\r\ndeclare subroutine rlist\r\n$insert popup_equates\r\n$insert rlist_equates\r\n\r\nSelPos = .react_probs_cat->selpos\r\nCurRow = SelPos<2>\r\nPopRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_PROB_CAT' )\r\nOverRide = ''\r\nOverRide = 2\r\nStmt = 'SELECT REACT_PROB_CAT BY REACTOR_PROBLEM_CATEGORY'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\nif Choosen then\r\n convert @fm to @vm in Choosen\r\n\tCurArray = .react_probs_cat->array\r\n\tCurArray = delete( CurArray, 1, CurRow, 0 )\r\n\tCurArray = delete( CurArray, 2, CurRow, 0 )\r\n\tCurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n\tCurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,REACT_PROB_CAT*REACTOR_PROBLEM_CATEGORY]' ) )\r\n\t.react_probs_cat->Array = CurArray\r\n\tVoid = set_property( @window, '@NoTopPos', 1 )\r\n Void = send_event( @window:'.REACT_PROBS_CAT', 'LOSTFOCUS' )\t\r\n\tVoid = set_property( @window, '@NoTopPos', '' ) \r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_SRPT1.REACT_SERVS.json b/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_SRPT1.REACT_SERVS.json new file mode 100644 index 0000000..a01c042 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/REACTOR_LOG_SRPT1.REACT_SERVS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, send_event\r\ndeclare subroutine rlist\r\n$insert popup_equates\r\n$insert rlist_equates\r\n\r\nSelPos = .react_servs->selpos\r\nCurRow = SelPos<2>\r\nPopRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_SERVS' )\r\nOverRide = ''\r\nOverRide = 2\r\nStmt = 'SELECT REACT_SERVS BY DESCRIPTION'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\nif Choosen then\r\n convert @fm to @vm in Choosen\r\n\tCurArray = .react_servs->array\r\n\tCurArray = delete( CurArray, 1, CurRow, 0 )\r\n\tCurArray = delete( CurArray, 2, CurRow, 0 )\r\n\tCurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n\tCurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,REACT_SERVS*DESCRIPTION]' ) )\r\n\t.react_servs->Array = CurArray\r\n\tVoid = set_property( @window, '@NoTopPos', 1 )\r\n Void = send_event( @window:'.REACT_SERVS', 'LOSTFOCUS' )\t\r\n\tVoid = set_property( @window, '@NoTopPos', '' ) \r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/REACTOR_PM.REACT_SERV_ID.json b/LSL2/OIEVENT/OPTIONS/REACTOR_PM.REACT_SERV_ID.json new file mode 100644 index 0000000..69f4937 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/REACTOR_PM.REACT_SERV_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, sendmessage, update_index\r\ndeclare function entid, repository, set_property, get_property, fieldcount\r\ndeclare function getwindow, send_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\nequ QbfOccurred$ to 1126\r\n\r\n\r\nStmt = 'SELECT REACT_SERVS BY DESCRIPTION'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_SERVS' )\r\n OverRide = ''\r\n RetVal = repository( 'EXECUTE', PopupRec, @window, OverRide )\r\n if RetVal then\r\n .react_serv_id->text = RetVal\r\n end\r\nend \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/REACTOR_PM_QUERY.REACT_SERVS.json b/LSL2/OIEVENT/OPTIONS/REACTOR_PM_QUERY.REACT_SERVS.json new file mode 100644 index 0000000..a01c042 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/REACTOR_PM_QUERY.REACT_SERVS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, send_event\r\ndeclare subroutine rlist\r\n$insert popup_equates\r\n$insert rlist_equates\r\n\r\nSelPos = .react_servs->selpos\r\nCurRow = SelPos<2>\r\nPopRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_SERVS' )\r\nOverRide = ''\r\nOverRide = 2\r\nStmt = 'SELECT REACT_SERVS BY DESCRIPTION'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\nif Choosen then\r\n convert @fm to @vm in Choosen\r\n\tCurArray = .react_servs->array\r\n\tCurArray = delete( CurArray, 1, CurRow, 0 )\r\n\tCurArray = delete( CurArray, 2, CurRow, 0 )\r\n\tCurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n\tCurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,REACT_SERVS*DESCRIPTION]' ) )\r\n\t.react_servs->Array = CurArray\r\n\tVoid = set_property( @window, '@NoTopPos', 1 )\r\n Void = send_event( @window:'.REACT_SERVS', 'LOSTFOCUS' )\t\r\n\tVoid = set_property( @window, '@NoTopPos', '' ) \r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/REACTOR_UTIL_SRPT1.REACTORS.json b/LSL2/OIEVENT/OPTIONS/REACTOR_UTIL_SRPT1.REACTORS.json new file mode 100644 index 0000000..bf7527d --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/REACTOR_UTIL_SRPT1.REACTORS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, send_event\r\ndeclare subroutine rlist\r\n$insert popup_equates\r\n$insert rlist_equates\r\n\r\nSelPos = .reactors->selpos\r\nCurRow = SelPos<2>\r\nPopRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACTORS' )\r\nOverRide = ''\r\nOverRide = 2\r\nStmt = 'SELECT REACTORS BY DESCRIPTION'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\nif Choosen then\r\n convert @fm to @vm in Choosen\r\n\tCurArray = .react_items->array\r\n\tCurArray = delete( CurArray, 1, CurRow, 0 )\r\n\tCurArray = delete( CurArray, 2, CurRow, 0 )\r\n\tCurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n\tCurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,REACT_ITEMS*DESCRIPTION]' ) )\r\n\t.react_items->Array = CurArray\r\n\tVoid = set_property( @window, '@NoTopPos', 1 )\r\n Void = send_event( @window:'.REACT_ITEMS', 'LOSTFOCUS' )\t\r\n\tVoid = set_property( @window, '@NoTopPos', '' ) \r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/REACT_ITEMS.ITEM_NO.json b/LSL2/OIEVENT/OPTIONS/REACT_ITEMS.ITEM_NO.json new file mode 100644 index 0000000..bcd0112 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/REACT_ITEMS.ITEM_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, update_index\r\ndeclare function entid, repository, set_property, get_property, fieldcount\r\ndeclare function send_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nStmt = 'SELECT REACT_ITEMS BY DESCRIPTION'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_ITEMS' )\r\n OverRide = ''\r\n OverRide = 2\r\n RetVals = repository( 'EXECUTE', PopupRec, @window, OverRide )\r\n if RetVals then\r\n convert @vm to @fm in RetVals\r\n if fieldcount( RetVals, @fm ) > 1 then\r\n Void = set_property( @window, 'QBFLIST', RetVals )\r\n Void = set_property( @window, '@NoRead', 1 ) \r\n .item_no->text = RetVals<1> \r\n Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .item_no->text = RetVals\r\n Void = send_event( @window:'.ITEM_NO', 'LOSTFOCUS', '' )\r\n end\r\n end\r\nend \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/REACT_PROBS.PROBLEM_ID.json b/LSL2/OIEVENT/OPTIONS/REACT_PROBS.PROBLEM_ID.json new file mode 100644 index 0000000..47caef0 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/REACT_PROBS.PROBLEM_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, update_index\r\ndeclare function entid, repository, set_property, get_property, fieldcount\r\ndeclare function send_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nStmt = 'SELECT REACT_PROBS BY DESCRIPTION'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_PROBS' )\r\n OverRide = ''\r\n OverRide = 2\r\n RetVals = repository( 'EXECUTE', PopupRec, @window, OverRide )\r\n if RetVals then\r\n convert @vm to @fm in RetVals\r\n if fieldcount( RetVals, @fm ) > 1 then\r\n Void = set_property( @window, 'QBFLIST', RetVals )\r\n Void = set_property( @window, '@NoRead', 1 ) \r\n .problem_id->text = RetVals<1> \r\n Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .problem_id->text = RetVals\r\n Void = send_event( @window:'.PROBLEM_ID', 'LOSTFOCUS', '' )\r\n end\r\n end\r\nend \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/REACT_PROBS.PROB_CAT_ID.json b/LSL2/OIEVENT/OPTIONS/REACT_PROBS.PROB_CAT_ID.json new file mode 100644 index 0000000..6e7d9a8 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/REACT_PROBS.PROB_CAT_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, sendmessage, update_index\r\ndeclare function entid, repository, set_property, get_property, fieldcount\r\ndeclare function getwindow, send_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\nequ QbfOccurred$ to 1126\r\n\r\nStmt = 'SELECT REACT_PROB_CAT REACTOR_PROBLEM_CATEGORY'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_PROB_CAT' )\r\n OverRide = ''\r\n *OverRide = 2\r\n RetVal = repository( 'EXECUTE', PopupRec, @window, OverRide )\r\n if RetVal then\r\n .prob_cat_id->text = RetVal\r\n end\r\nend \r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/REACT_PROB_CAT.CAT_ID.json b/LSL2/OIEVENT/OPTIONS/REACT_PROB_CAT.CAT_ID.json new file mode 100644 index 0000000..f193f4d --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/REACT_PROB_CAT.CAT_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, repository, set_property, get_property, fieldcount\r\ndeclare function send_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nStmt = 'SELECT REACT_PROB_CAT BY REACTOR_PROBLEM_CATEGORY'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_PROB_CAT' )\r\n OverRide = ''\r\n OverRide = 2\r\n RetVals = repository( 'EXECUTE', PopupRec, @window, OverRide )\r\n if RetVals then\r\n convert @vm to @fm in RetVals\r\n if fieldcount( RetVals, @fm ) > 1 then\r\n Void = set_property( @window, 'QBFLIST', RetVals )\r\n Void = set_property( @window, '@NoRead', 1 ) \r\n .cat_id->text = RetVals<1> \r\n Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .cat_id->text = RetVals\r\n Void = send_event( @window:'.CAT_ID', 'LOSTFOCUS', '' )\r\n end\r\n end\r\nend \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/REACT_SERVS.SERV_CAT_ID.json b/LSL2/OIEVENT/OPTIONS/REACT_SERVS.SERV_CAT_ID.json new file mode 100644 index 0000000..615c02d --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/REACT_SERVS.SERV_CAT_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, sendmessage, update_index\r\ndeclare function entid, repository, set_property, get_property, fieldcount\r\ndeclare function getwindow, send_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\nequ QbfOccurred$ to 1126\r\n\r\nStmt = 'SELECT REACT_SERV_CAT REACTOR_SERVICE_CATEGORY'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_SERV_CAT' )\r\n OverRide = ''\r\n *OverRide = 2\r\n RetVal = repository( 'EXECUTE', PopupRec, @window, OverRide )\r\n if RetVal then\r\n .serv_cat_id->text = RetVal\r\n end\r\nend \r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/REACT_SERVS.SERV_ID.json b/LSL2/OIEVENT/OPTIONS/REACT_SERVS.SERV_ID.json new file mode 100644 index 0000000..9812197 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/REACT_SERVS.SERV_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, repository, set_property, get_property, fieldcount\r\ndeclare function send_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nStmt = 'SELECT REACT_SERVS BY DESCRIPTION'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_SERVS' )\r\n OverRide = ''\r\n OverRide = 2\r\n RetVals = repository( 'EXECUTE', PopupRec, @window, OverRide )\r\n if RetVals then\r\n convert @vm to @fm in RetVals\r\n if fieldcount( RetVals, @fm ) > 1 then\r\n Void = set_property( @window, 'QBFLIST', RetVals )\r\n Void = set_property( @window, '@NoRead', 1 ) \r\n .serv_id->text = RetVals<1> \r\n Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .serv_id->text = RetVals\r\n Void = send_event( @window:'.SERV_ID', 'LOSTFOCUS', '' )\r\n end\r\n end\r\nend \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/RECIPE.DISK_INFO.json b/LSL2/OIEVENT/OPTIONS/RECIPE.DISK_INFO.json new file mode 100644 index 0000000..9f53733 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/RECIPE.DISK_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, memberof\r\ndeclare subroutine rlist\r\n\r\n$insert rlist_equates\r\n\r\nSelpos = @CtrlEntId->selpos\r\nColumn = SelPos<1>\r\nRow = SelPos<2>\r\nbegin case\r\n case Column = 1\r\n\t\tColData = @CtrlEntId->coldata\r\n\t\tPopupRec = entid( @appid<1>, 'POPUP', '', 'REACTOR_TYPE' )\r\n\t\tRetCode = repository( 'EXECUTE', PopupRec, @window, '' )\r\n\t\t\r\n\t\tif RetCode <> '' then\r\n\t\t ColData<1,Row> = RetCode\r\n\t\t @CtrlEntId->coldata = ColData\r\n\t\t \r\n\t\tend\r\nend case\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/RECIPE.LIMIT_INFO.json b/LSL2/OIEVENT/OPTIONS/RECIPE.LIMIT_INFO.json new file mode 100644 index 0000000..6bd37c8 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/RECIPE.LIMIT_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, memberof, set_status, start_window, msg\r\ndeclare subroutine rlist\r\n$insert rlist_equates\r\n$insert msg_equates\r\n\r\nSelpos = @CtrlEntId->selpos\r\nColumn = SelPos<1>\r\nRow = SelPos<2>\r\nColData = @CtrlEntId->coldata\r\n\r\nTVAR = @CtrlEntId->text\r\n\r\nCurProdSpecID = ColData<1,Row>\r\nCurProdSpecID = iconv( CurProdSpecID, '[RECIPE_PSN_VALID]' )\r\nif status() then\r\n * THE VALUE IN THE CELL IS NOT A VALID PSN\r\n return 0\r\nend\r\nbegin case\r\n * ONLY ALLOW OPTIONS FOR THE PSN FIELD\r\n case Column = 1\r\n\tPopupId = entid( @appid<1>, 'POPUP', '', 'PROD_SPEC_LOOKUP_OPTS2' )\r\n\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\tif ChoosenRow = 1 then\r\n\t ;* GO VIEW CURRENT PROD SPEC\r\n\t if CurProdSpecID then\r\n\t RetVal = start_window( 'PROD_SPEC', @window, CurProdSpecID:'****CENTER', '', '' ) \r\n\t\tend else\r\n\t\t MsgInfo = ''\r\n\t\t Text = 'You have not entered a product specification number...' \r\n\t\t MsgInfo = Text\r\n\t\t MsgInfo = 'H'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t\t return 0\r\n end\r\n end else\r\n if ChoosenRow = 2 then\r\n\t * POPUP ALL PSNs WITH \r\n\t\t\tStmt = 'SELECT PROD_SPEC WITH RECIPE_NO = ':.recipe_no->text\r\n\t\t\tVoid = set_status(0)\t\t\t\t\r\n\t rlist( Stmt, target_activelist$, '', '', '' )\t\t\r\n\t\t\tPopupId = entid( @appid<1>, 'POPUP', '', 'PROD_SPEC_SINGLE' )\r\n\t\t\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\t\t\tif ChoosenRow then\r\n\t\t\t ColData<1,Row> = ChoosenRow\r\n\t\t\t @CtrlEntId->coldata = ColData\r\n\t end\r\n\t end\r\n end\r\nend case\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/RECIPE.RECIPE_NO.json b/LSL2/OIEVENT/OPTIONS/RECIPE.RECIPE_NO.json new file mode 100644 index 0000000..ea2f343 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/RECIPE.RECIPE_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, repository, set_property, get_property, fieldcount\r\ndeclare function send_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nStmt = 'SELECT RECIPE BY RECIPE_NAME'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_RECIPES' )\r\n OverRide = ''\r\n OverRide = 2\r\n RetVals = repository( 'EXECUTE', PopupRec, @window, OverRide )\r\n if RetVals then\r\n convert @vm to @fm in RetVals\r\n if fieldcount( RetVals, @fm ) > 1 then\r\n Void = set_property( @window, 'QBFLIST', RetVals )\r\n Void = set_property( @window, '@NoRead', 1 ) \r\n .recipe_no->text = RetVals<1> \r\n Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .recipe_no->text = RetVals\r\n Void = send_event( @window:'.RECIPE_NO', 'LOSTFOCUS', '' )\r\n end\r\n end\r\nend \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/RECIPE_BROWSE.RECIPE_NO.json b/LSL2/OIEVENT/OPTIONS/RECIPE_BROWSE.RECIPE_NO.json new file mode 100644 index 0000000..d17968f --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/RECIPE_BROWSE.RECIPE_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist, sendmessage, update_index\r\ndeclare function entid, repository, set_property, get_property, fieldcount\r\ndeclare function getwindow, send_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\nequ QbfOccurred$ to 1126\r\n\r\nStmt = 'SELECT RECIPE BY RECIPE_NAME'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_RECIPES' )\r\n OverRide = ''\r\n RetVals = repository( 'EXECUTE', PopupRec, @window, OverRide )\r\n if RetVals then\r\n convert @vm to @fm in RetVals\r\n if fieldcount( RetVals, @fm ) > 1 then\r\n Void = set_property( @window, 'QBFLIST', RetVals )\r\n WndHnd = get_property( @window, 'HANDLE' )\r\n HbBar = getwindow( WndHnd, 5 )\r\n sendmessage( HbBar, QbfOccurred$, 0, 0 )\r\n Void = set_property( @window, '@NoRead', 1 ) \r\n .recipe_no->text = RetVals<1> \r\n Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .recipe_no->text = RetVals\r\n Void = send_event( @window:'.RECIPE_NO', 'LOSTFOCUS', '' )\r\n end\r\n end\r\nend \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/REPORT_SLIST_CFG.COLUMN_INFO.json b/LSL2/OIEVENT/OPTIONS/REPORT_SLIST_CFG.COLUMN_INFO.json new file mode 100644 index 0000000..16a28a2 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/REPORT_SLIST_CFG.COLUMN_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist\r\ndeclare function send_event,post_event,msg, entid, repository, fieldcount\r\n$insert rlist_equates\r\n$insert dict_equates\r\n$insert popup_equates\r\n\r\nSelPos = .column_info->selpos\r\nCol = SelPos<1>\r\nRow = SelPos<2>\r\nif Col # 1 Then\r\n Return 0\r\nEnd\r\nPopRec = entid( @appid<1>, 'POPUP', '', 'SRPT_DICTS' )\r\nExpData = get_property( @window, '@Columns' )\r\nOverRide = ''\r\nOverRide = ExpData\r\nChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\nif Choosen then\r\n convert @fm to @vm in Choosen\r\n\tCurArray = .column_info->array\r\n\tCurArray = delete( CurArray, 1, Row, 0 )\r\n\tCurArray = insert( CurArray, 1, Row, 0, Choosen )\r\n\tCCnt = fieldcount( Choosen, @vm )\r\n\tfor i = 1 to CCnt\r\n\t Choosen<1,i> = ''\r\n\tnext i\r\n\tfor i = 2 to 11 ;* THERE ARE A TOTAL OF ELEVEN COLUMNS IN THE GRID\r\n\t CurArray = insert( CurArray, i, Row, 0, Choosen )\r\n\tnext i\r\n\t.column_info->Array = CurArray\r\nend\r\nreturn 0\r\n/*\r\nIf Ttable then\r\n DictTable = 'DICT.':Ttable\r\n Open DictTable To DTable Else\r\n\t Void = msg( '', DictTable: ' is in use somewhere else...' )\r\n Void = post_event( @window:'.REPORT_ID', 'GOTFOCUS' )\t \r\n\t return 0\r\n End\r\n Void = utility( 'CURSOR', 'H' )\r\n Cmd = \"SELECT \":DictTable:\" BY @ID WITH F1 = 'F' 'S'\"\r\n rlist( Cmd, target_activelist$, '', '', '' )\r\n \r\n if @reccount then\r\n Eof = 0\r\n ColArray = ''\r\n Columns = ''\r\n loop\r\n readnext DictId else Eof = 1\r\n until Eof\r\n ColArray<1> = DictId\r\n Read DictRecord From DTable, DictId Else\r\n Void = msg( '', 'ID ':DictId:' In Dictionary ':DictTable: ' can not be read...' )\r\n Void = post_event( @window:'.TABLENAME', 'GOTFOCUS' )\r\n return 0\r\n End\r\n ColArray<2> = DictRecord\r\n ColArray<3> = DictRecord\r\n repeat\r\n Void = set_property( @window, '@Columns', ColArray )\r\n end\r\n Void = utility( 'CURSOR', 'A' )\r\nEnd Else\r\n Void = msg( '', 'No table name has been selected...' )\r\n Void = post_event( @window:'.REPORT_ID', 'GOTFOCUS' )\t \r\nEnd\r\n*/\r\n\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/REPORT_SLIST_CFG.REPORT_ID.json b/LSL2/OIEVENT/OPTIONS/REPORT_SLIST_CFG.REPORT_ID.json new file mode 100644 index 0000000..230236b --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/REPORT_SLIST_CFG.REPORT_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function send_event\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT CONFIG WITH ID \"[_SRPTCFG\" BY ID', target_activelist$, '', '', '' )\r\nforward_event()\r\nVoid = send_event( CtrlEntId, 'LOSTFOCUS' )\r\n\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SCHEDULE.RDS_DETAIL.json b/LSL2/OIEVENT/OPTIONS/SCHEDULE.RDS_DETAIL.json new file mode 100644 index 0000000..2876eee --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SCHEDULE.RDS_DETAIL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function relational_call, start_window, msg, entid, repository\r\ndeclare function key_sort, send_event, rowexists\r\ndeclare subroutine make.list\r\n$insert logical\r\n$insert msg_equates\r\n\r\nSelpos = .rds_detail->selpos\r\nColumn = SelPos<1>\r\nRow = SelPos<2>\r\nbegin case\r\n case Column = 2 ;* rds\r\n ColData = get_property( @window:'.RDS_DETAIL', 'COLDATA' )\r\n CurRds = ColData<1,Row>\r\n\t * row one = call window with current key\r\n\t * row two = call window with all keys\r\n\t\tPopupId = entid( @appid<1>, 'POPUP', '', 'SCHED_GOTO_RDS' )\r\n\t\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\t\tif ChoosenRow = 1 then\r\n\t\t ;* go view current rds\r\n\t\t if CurRds then\r\n\t\t RetVal = start_window( 'RDS', @window, CurRds, '', '' ) \r\n\t\t end else\r\n\t\t MsgInfo = ''\r\n\t\t Text = 'You must be on a line with an RDS number...' \r\n\t\t MsgInfo = Text\r\n\t\t MsgInfo = 'H'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t\t return 0\r\n\t\t end\r\n\t\tend else\r\n\t\t if ChoosenRow = 2 then\r\n\t\t * call recipe window\r\n swap @vm:@vm with '' in ColData\r\n if ColData[-1,1] = @vm then ColData[-1,1] = ''\r\n\t\t RetVal = start_window( 'RDS', @window, ColData, '', '' )\r\n\t\t end\r\n\t\tend \r\n case Otherwise$\r\nend case\r\nRETURN 0\r\n*===========================================================================*\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SCHEDULE.SCHEDULE_NO.json b/LSL2/OIEVENT/OPTIONS/SCHEDULE.SCHEDULE_NO.json new file mode 100644 index 0000000..85a8040 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SCHEDULE.SCHEDULE_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n\r\nScheduleKeys = dialog_box( 'SCHEDULE_QUERY', @window, '' )\r\nif ScheduleKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SCHEDULE_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, ScheduleKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 ) \r\n .schedule_no->text = ChoosenKeys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .schedule_no->text = ChoosenKeys\r\n\t Void = send_event( @window:'.SCHEDULE_NO', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SCHEDULE_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/SCHEDULE_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SCHEDULE_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SCHEDULE_SRL.RDS_DETAIL.json b/LSL2/OIEVENT/OPTIONS/SCHEDULE_SRL.RDS_DETAIL.json new file mode 100644 index 0000000..2876eee --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SCHEDULE_SRL.RDS_DETAIL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function relational_call, start_window, msg, entid, repository\r\ndeclare function key_sort, send_event, rowexists\r\ndeclare subroutine make.list\r\n$insert logical\r\n$insert msg_equates\r\n\r\nSelpos = .rds_detail->selpos\r\nColumn = SelPos<1>\r\nRow = SelPos<2>\r\nbegin case\r\n case Column = 2 ;* rds\r\n ColData = get_property( @window:'.RDS_DETAIL', 'COLDATA' )\r\n CurRds = ColData<1,Row>\r\n\t * row one = call window with current key\r\n\t * row two = call window with all keys\r\n\t\tPopupId = entid( @appid<1>, 'POPUP', '', 'SCHED_GOTO_RDS' )\r\n\t\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\t\tif ChoosenRow = 1 then\r\n\t\t ;* go view current rds\r\n\t\t if CurRds then\r\n\t\t RetVal = start_window( 'RDS', @window, CurRds, '', '' ) \r\n\t\t end else\r\n\t\t MsgInfo = ''\r\n\t\t Text = 'You must be on a line with an RDS number...' \r\n\t\t MsgInfo = Text\r\n\t\t MsgInfo = 'H'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t\t return 0\r\n\t\t end\r\n\t\tend else\r\n\t\t if ChoosenRow = 2 then\r\n\t\t * call recipe window\r\n swap @vm:@vm with '' in ColData\r\n if ColData[-1,1] = @vm then ColData[-1,1] = ''\r\n\t\t RetVal = start_window( 'RDS', @window, ColData, '', '' )\r\n\t\t end\r\n\t\tend \r\n case Otherwise$\r\nend case\r\nRETURN 0\r\n*===========================================================================*\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SCHEDULE_SRL.SCHEDULE_NO.json b/LSL2/OIEVENT/OPTIONS/SCHEDULE_SRL.SCHEDULE_NO.json new file mode 100644 index 0000000..a61d1fa --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SCHEDULE_SRL.SCHEDULE_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function getwindow, fieldcount, send_event\r\ndeclare subroutine sendmessage, make.list\r\n$insert popup_equates\r\nequ QbfOccurred$ to 1126\r\n\r\nScheduleKeys = dialog_box( 'SCHEDULE_SRL_QUERY', @window, '' )\r\nif ScheduleKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SCHEDULE_SRL_QUERY' )\r\n\tOverRide = ''\r\n make.list( 0, ScheduleKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n\t\t WndHnd = get_property( @window, 'HANDLE' )\r\n\t\t HbBar = getwindow( WndHnd, 5 )\r\n\t\t sendmessage( HbBar, QbfOccurred$, 0, 0 )\r\n Void = set_property( @window, '@NoRead', 1 ) \r\n .schedule_no->text = ChoosenKeys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .schedule_no->text = ChoosenKeys\r\n\t Void = send_event( @window:'.SCHEDULE_NO', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SCHEDULE_SRL_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/SCHEDULE_SRL_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SCHEDULE_SRL_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SCHED_RPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/SCHED_RPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SCHED_RPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SCHED_RPT2.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/SCHED_RPT2.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SCHED_RPT2.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SCHED_RPT3.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/SCHED_RPT3.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SCHED_RPT3.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SCHED_RPT4.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/SCHED_RPT4.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SCHED_RPT4.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SCHED_SRPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/SCHED_SRPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SCHED_SRPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SCHED_SRPT2.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/SCHED_SRPT2.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SCHED_SRPT2.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SCHED_SRPT3.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/SCHED_SRPT3.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SCHED_SRPT3.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SEC_GROUPS.GROUP.json b/LSL2/OIEVENT/OPTIONS/SEC_GROUPS.GROUP.json new file mode 100644 index 0000000..b3d6286 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SEC_GROUPS.GROUP.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\n$insert logical\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT SEC_GROUPS BY GROUP_NAME', target_activelist$, '', '', '' )\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SEC_GROUPS.TABLESECURITY.json b/LSL2/OIEVENT/OPTIONS/SEC_GROUPS.TABLESECURITY.json new file mode 100644 index 0000000..a05a4ba --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SEC_GROUPS.TABLESECURITY.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository\r\n\r\nif .tablesecurity->selpos<1> = 1 then\r\n return 1\r\nend else\r\n CurRow = .tablesecurity->rowdata\r\n PopupId = entid( @appid<1>, 'POPUP', '', 'SECURITY_RIGHTS' )\r\n RetVal = repository( 'EXECUTE', PopupId, @window, '' )\r\n if RetVal then\r\n convert @vm to '' in RetVal\r\n CurRow<2> = RetVal\r\n .tablesecurity->rowdata = CurRow\r\n end\r\n return 0\r\nend" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SEMI_LOG.LOG_NO.json b/LSL2/OIEVENT/OPTIONS/SEMI_LOG.LOG_NO.json new file mode 100644 index 0000000..ee16327 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SEMI_LOG.LOG_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n\r\nSemiLogKeys = dialog_box( 'SEMI_LOG_QUERY', @window, '' )\r\nif SemiLogKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SEMI_LOG_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, SemiLogKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .log_no->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .log_no->text = ChoosenKeys\r\n\t Void = send_event( @window:'.LOG_NO', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SEMI_LOG_QUERY.TECHS.json b/LSL2/OIEVENT/OPTIONS/SEMI_LOG_QUERY.TECHS.json new file mode 100644 index 0000000..7fa4e0c --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SEMI_LOG_QUERY.TECHS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS WITH ACTIVE AND WITH GROUPS CONTAINING \"SUPERVISOR\" \"DATA_ENTRY\" BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .techs->array\r\n CurRow = .techs->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .techs->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SPC_CLEAN_HF.CONTROL_ID.json b/LSL2/OIEVENT/OPTIONS/SPC_CLEAN_HF.CONTROL_ID.json new file mode 100644 index 0000000..c0646d7 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SPC_CLEAN_HF.CONTROL_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function getwindow, fieldcount, send_event\r\ndeclare subroutine sendmessage, make.list\r\n$insert popup_equates\r\n\r\nRLKeys = dialog_box( 'SPC_CLEAN_HF_QUERY', @window, '' )\r\nif RLKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SPC_CLEAN_HF_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, RLKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .control_id->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .control_id->text = ChoosenKeys\r\n\t Void = send_event( @window:'.CONTROL_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SPC_CLEAN_HF_AKRION.CONTROL_ID.json b/LSL2/OIEVENT/OPTIONS/SPC_CLEAN_HF_AKRION.CONTROL_ID.json new file mode 100644 index 0000000..f92a789 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SPC_CLEAN_HF_AKRION.CONTROL_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function getwindow, fieldcount, send_event\r\ndeclare subroutine sendmessage, make.list\r\n$insert popup_equates\r\n\r\nRLKeys = dialog_box( 'SPC_CLEAN_HF_AKRION_QUERY', @window, '' )\r\n\r\nif RLKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SPC_CLEAN_HF_AKRION_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, RLKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .control_id->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .control_id->text = ChoosenKeys\r\n\t Void = send_event( @window:'.CONTROL_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SPC_CLEAN_HF_ETCH.CONTROL_ID.json b/LSL2/OIEVENT/OPTIONS/SPC_CLEAN_HF_ETCH.CONTROL_ID.json new file mode 100644 index 0000000..faac402 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SPC_CLEAN_HF_ETCH.CONTROL_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function getwindow, fieldcount, send_event\r\ndeclare subroutine sendmessage, make.list\r\n$insert popup_equates\r\n\r\nRLKeys = dialog_box( 'SPC_CLEAN_HF_ETCH_QUERY', @window, '' )\r\nif RLKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SPC_CLEAN_HF_ETCH_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, RLKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .control_id->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .control_id->text = ChoosenKeys\r\n\t Void = send_event( @window:'.CONTROL_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SPC_CLEAN_HF_ETCH_AKRION.CONTROL_ID.json b/LSL2/OIEVENT/OPTIONS/SPC_CLEAN_HF_ETCH_AKRION.CONTROL_ID.json new file mode 100644 index 0000000..a9b055c --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SPC_CLEAN_HF_ETCH_AKRION.CONTROL_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function getwindow, fieldcount, send_event\r\ndeclare subroutine sendmessage, make.list\r\n$insert popup_equates\r\n\r\nRLKeys = dialog_box( 'SPC_CLEAN_HF_ETCH_AKRION_QUERY', @window, '' )\r\nif RLKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SPC_CLEAN_HF_ETCH_AKRION_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, RLKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .control_id->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .control_id->text = ChoosenKeys\r\n\t Void = send_event( @window:'.CONTROL_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SPC_CLEAN_SC1.CONTROL_ID.json b/LSL2/OIEVENT/OPTIONS/SPC_CLEAN_SC1.CONTROL_ID.json new file mode 100644 index 0000000..565329d --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SPC_CLEAN_SC1.CONTROL_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function getwindow, fieldcount, send_event\r\ndeclare subroutine sendmessage, make.list\r\n$insert popup_equates\r\n\r\nRLKeys = dialog_box( 'SPC_CLEAN_SC1_QUERY', @window, '' )\r\nif RLKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SPC_CLEAN_SC1_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, RLKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .control_id->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .control_id->text = ChoosenKeys\r\n\t Void = send_event( @window:'.CONTROL_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SPC_CLEAN_SRD.CONTROL_ID.json b/LSL2/OIEVENT/OPTIONS/SPC_CLEAN_SRD.CONTROL_ID.json new file mode 100644 index 0000000..4db4c6d --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SPC_CLEAN_SRD.CONTROL_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function getwindow, fieldcount, send_event\r\ndeclare subroutine sendmessage, make.list\r\n$insert popup_equates\r\n\r\nRLKeys = dialog_box( 'SPC_CLEAN_SRD_QUERY', @window, '' )\r\nif RLKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SPC_CLEAN_SRD_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, RLKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .control_id->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .control_id->text = ChoosenKeys\r\n\t Void = send_event( @window:'.CONTROL_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SPC_EVAL_4PP.CONTROL_ID.json b/LSL2/OIEVENT/OPTIONS/SPC_EVAL_4PP.CONTROL_ID.json new file mode 100644 index 0000000..d9e793e --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SPC_EVAL_4PP.CONTROL_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function getwindow, fieldcount, send_event\r\ndeclare subroutine sendmessage, make.list\r\n$insert popup_equates\r\n\r\nRLKeys = dialog_box( 'SPC_EVAL_4PP_QUERY', @window, '' )\r\nif RLKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SPC_EVAL_4PP_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, RLKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .control_id->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .control_id->text = ChoosenKeys\r\n\t Void = send_event( @window:'.CONTROL_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SPC_EVAL_ADE.CONTROL_ID.json b/LSL2/OIEVENT/OPTIONS/SPC_EVAL_ADE.CONTROL_ID.json new file mode 100644 index 0000000..45f2975 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SPC_EVAL_ADE.CONTROL_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function getwindow, fieldcount, send_event\r\ndeclare subroutine sendmessage, make.list\r\n$insert popup_equates\r\n\r\nRLKeys = dialog_box( 'SPC_EVAL_ADE_QUERY', @window, '' )\r\nif RLKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SPC_EVAL_FTIR_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, RLKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .control_id->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .control_id->text = ChoosenKeys\r\n\t Void = send_event( @window:'.CONTROL_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SPC_EVAL_FTIR.CONTROL_ID.json b/LSL2/OIEVENT/OPTIONS/SPC_EVAL_FTIR.CONTROL_ID.json new file mode 100644 index 0000000..b266462 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SPC_EVAL_FTIR.CONTROL_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function getwindow, fieldcount, send_event\r\ndeclare subroutine sendmessage, make.list\r\n$insert popup_equates\r\n\r\nRLKeys = dialog_box( 'SPC_EVAL_FTIR_QUERY', @window, '' )\r\nif RLKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SPC_EVAL_FTIR_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, RLKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .control_id->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .control_id->text = ChoosenKeys\r\n\t Void = send_event( @window:'.CONTROL_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SPC_LIMITS.EVAL_4PP_INFO.json b/LSL2/OIEVENT/OPTIONS/SPC_LIMITS.EVAL_4PP_INFO.json new file mode 100644 index 0000000..344ab95 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SPC_LIMITS.EVAL_4PP_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository\r\n\r\n\r\nSelPos = .eval_4pp_info->selpos\r\nCol = SelPos<1>\r\nRow = SelPos<2>\r\nColData = get_property( @window:'.EVAL_4PP_INFO', 'COLDATA' )\r\nif ( Col = 1 ) or ( Col = 5 ) or (Col = 9 ) then\r\n\tPopupId = entid( @appid<1>, 'POPUP', '', 'EVAL_4PP_WAF_ID' ) \r\n\tChoosenWaferID = repository( 'EXECUTE', PopupId, @window, '' )\r\n\tif ChoosenWaferID then\r\n\t ColData<1,Row> = ChoosenWaferID\r\n\t .eval_4pp_info->coldata = ColData\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SPC_LIMITS.EVAL_4PP_STDEV_INFO.json b/LSL2/OIEVENT/OPTIONS/SPC_LIMITS.EVAL_4PP_STDEV_INFO.json new file mode 100644 index 0000000..3234472 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SPC_LIMITS.EVAL_4PP_STDEV_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository\r\n\r\n\r\nSelPos = .eval_4pp_stdev_info->selpos\r\nCol = SelPos<1>\r\nRow = SelPos<2>\r\nColData = get_property( @window:'.EVAL_4PP_STDEV_INFO', 'COLDATA' )\r\nif ( Col = 1 ) or ( Col = 5 ) or (Col = 9 ) then\r\n\tPopupId = entid( @appid<1>, 'POPUP', '', 'EVAL_4PP_WAF_ID' ) \r\n\tChoosenWaferID = repository( 'EXECUTE', PopupId, @window, '' )\r\n\tif ChoosenWaferID then\r\n\t ColData<1,Row> = ChoosenWaferID\r\n\t .eval_4pp_stdev_info->coldata = ColData\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SPC_LIMITS.EVAL_ADE_INFO.json b/LSL2/OIEVENT/OPTIONS/SPC_LIMITS.EVAL_ADE_INFO.json new file mode 100644 index 0000000..9807169 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SPC_LIMITS.EVAL_ADE_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository\r\n\r\n*debug\r\nSelPos = .eval_ade_info->selpos\r\nCol = SelPos<1>\r\nRow = SelPos<2>\r\nColData = get_property( @window:'.EVAL_ADE_INFO', 'COLDATA' )\r\nif ( Col = 1 ) or ( Col = 5 ) or (Col = 9 ) then\r\n\tPopupId = entid( @appid<1>, 'POPUP', '', 'EVAL_ADE_WAF_ID' ) \r\n\tChoosenWaferID = repository( 'EXECUTE', PopupId, @window, '' )\r\n\tif ChoosenWaferID then\r\n\t ColData<1,Row> = ChoosenWaferID\r\n\t .eval_ftir_info->coldata = ColData\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SPC_LIMITS.EVAL_ADE_STDEV_INFO.json b/LSL2/OIEVENT/OPTIONS/SPC_LIMITS.EVAL_ADE_STDEV_INFO.json new file mode 100644 index 0000000..fbca810 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SPC_LIMITS.EVAL_ADE_STDEV_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository\r\n\r\n\r\nSelPos = .eval_ade_stdev_info->selpos\r\nCol = SelPos<1>\r\nRow = SelPos<2>\r\nColData = get_property( @window:'.EVAL_ADE_STDEV_INFO', 'COLDATA' )\r\nif ( Col = 1 ) or ( Col = 5 ) or (Col = 9 ) then\r\n\tPopupId = entid( @appid<1>, 'POPUP', '', 'EVAL_ADE_WAF_ID' ) \r\n\tChoosenWaferID = repository( 'EXECUTE', PopupId, @window, '' )\r\n\tif ChoosenWaferID then\r\n\t ColData<1,Row> = ChoosenWaferID\r\n\t .eval_ftir_stdev_info->coldata = ColData\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SPC_LIMITS.EVAL_FTIR_INFO.json b/LSL2/OIEVENT/OPTIONS/SPC_LIMITS.EVAL_FTIR_INFO.json new file mode 100644 index 0000000..565addf --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SPC_LIMITS.EVAL_FTIR_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository\r\n\r\n*debug\r\nSelPos = .eval_ftir_info->selpos\r\nCol = SelPos<1>\r\nRow = SelPos<2>\r\nColData = get_property( @window:'.EVAL_FTIR_INFO', 'COLDATA' )\r\nif ( Col = 1 ) or ( Col = 5 ) or (Col = 9 ) then\r\n\tPopupId = entid( @appid<1>, 'POPUP', '', 'EVAL_FTIR_WAF_ID' ) \r\n\tChoosenWaferID = repository( 'EXECUTE', PopupId, @window, '' )\r\n\tif ChoosenWaferID then\r\n\t ColData<1,Row> = ChoosenWaferID\r\n\t .eval_ftir_info->coldata = ColData\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SPC_LIMITS.EVAL_FTIR_STDEV_INFO.json b/LSL2/OIEVENT/OPTIONS/SPC_LIMITS.EVAL_FTIR_STDEV_INFO.json new file mode 100644 index 0000000..15c029c --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SPC_LIMITS.EVAL_FTIR_STDEV_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository\r\n\r\n\r\nSelPos = .eval_ftir_stdev_info->selpos\r\nCol = SelPos<1>\r\nRow = SelPos<2>\r\nColData = get_property( @window:'.EVAL_FTIR_STDEV_INFO', 'COLDATA' )\r\nif ( Col = 1 ) or ( Col = 5 ) or (Col = 9 ) then\r\n\tPopupId = entid( @appid<1>, 'POPUP', '', 'EVAL_FTIR_WAF_ID' ) \r\n\tChoosenWaferID = repository( 'EXECUTE', PopupId, @window, '' )\r\n\tif ChoosenWaferID then\r\n\t ColData<1,Row> = ChoosenWaferID\r\n\t .eval_ftir_stdev_info->coldata = ColData\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SPC_OCAP_CFG.OCAP_ID.json b/LSL2/OIEVENT/OPTIONS/SPC_OCAP_CFG.OCAP_ID.json new file mode 100644 index 0000000..75b69a8 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SPC_OCAP_CFG.OCAP_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function send_event\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT CONFIG WITH ID \"SPC]\" AND WITH ID \"[OCAP\" BY ID', target_activelist$, '', '', '' )\r\nforward_event()\r\nVoid = send_event( CtrlEntId, 'LOSTFOCUS' )\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SPC_REACTOR_PARTICLES.CONTROL_ID.json b/LSL2/OIEVENT/OPTIONS/SPC_REACTOR_PARTICLES.CONTROL_ID.json new file mode 100644 index 0000000..510d8e5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SPC_REACTOR_PARTICLES.CONTROL_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function getwindow, fieldcount, send_event\r\ndeclare subroutine sendmessage, make.list\r\n$insert popup_equates\r\n\r\nRLKeys = dialog_box( 'SPC_REACTOR_PARTICLES_QUERY', @window, '' )\r\nif RLKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SPC_REACTOR_PARTICLES_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, RLKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .control_id->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .control_id->text = ChoosenKeys\r\n\t Void = send_event( @window:'.CONTROL_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SPC_WAFER_ETCH.CONTROL_ID.json b/LSL2/OIEVENT/OPTIONS/SPC_WAFER_ETCH.CONTROL_ID.json new file mode 100644 index 0000000..4fb6b24 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SPC_WAFER_ETCH.CONTROL_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function getwindow, fieldcount, send_event\r\ndeclare subroutine sendmessage, make.list\r\n$insert popup_equates\r\n\r\nRLKeys = dialog_box( 'SPC_WAFER_ETCH_QUERY', @window, '' )\r\nif RLKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SPC_WAFER_ETCH_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, RLKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .control_id->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .control_id->text = ChoosenKeys\r\n\t Void = send_event( @window:'.CONTROL_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SRP_COC_RESULTS.CONTROL_ID.json b/LSL2/OIEVENT/OPTIONS/SRP_COC_RESULTS.CONTROL_ID.json new file mode 100644 index 0000000..19c7af9 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SRP_COC_RESULTS.CONTROL_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function getwindow, fieldcount, send_event\r\ndeclare subroutine sendmessage, make.list\r\n$insert popup_equates\r\n\r\nRLKeys = dialog_box( 'SRP_COC_RESULTS_QUERY', @window, '' )\r\nif RLKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SRP_COC_RESULTS_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, RLKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .control_id->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .control_id->text = ChoosenKeys\r\n\t Void = send_event( @window:'.CONTROL_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SRP_COC_RESULTS.CUST_NO.json b/LSL2/OIEVENT/OPTIONS/SRP_COC_RESULTS.CUST_NO.json new file mode 100644 index 0000000..28b33fc --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SRP_COC_RESULTS.CUST_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function send_event\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nforward_event()\r\nVoid = send_event( CtrlEntId, 'LOSTFOCUS' )\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SRP_COC_RESULTS.PROD_SPEC_ID.json b/LSL2/OIEVENT/OPTIONS/SRP_COC_RESULTS.PROD_SPEC_ID.json new file mode 100644 index 0000000..3fcabcf --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SRP_COC_RESULTS.PROD_SPEC_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, start_window, msg, key_sort, rowexists, send_event\r\ndeclare subroutine make.list\r\n$insert msg_equates\r\n\r\nCustNo = .cust_no->text\r\nif CustNo then\r\n * row one = call window with current key\r\n\t* row two = call window with no keys\r\n\t* row three = call window with all keys for customer\r\n\t* row four = call popup allowing choice\r\n\tCurProdSpecID = .prod_spec_id->text\r\n\tif CurProdSpecID then\r\n\t if rowexists( 'SRP_COC_RESULTS', .control_id->text ) else\r\n\t Tvar = iconv( CurProdSpecID, '[WIN_PROD_SPEC_NUM_VALID]' )\r\n\t if status() then\r\n\t .prod_spec_id->text = ''\r\n\t end\r\n\t end\r\n\tend\r\n\tPopupId = entid( @appid<1>, 'POPUP', '', 'PROD_SPEC_LOOKUP_OPTS' )\r\n\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\tif ChoosenRow = 1 then\r\n\t ;* go view current prod spec\r\n\t if CurProdSpecID then\r\n\t RetVal = start_window( 'PROD_SPEC', @window, CurProdSpecID:'*Choosing*SRP**CENTER', '', '' ) \r\n\t\tend else\r\n\t\t MsgInfo = ''\r\n\t\t Text = 'You have not entered a product specification number...' \r\n\t\t MsgInfo = Text\r\n\t\t MsgInfo = 'H'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t\t return 0\r\n end\r\n end else\r\n if ChoosenRow = 2 then\r\n\t * call customer prod spec window\r\n\t\t\tRetVal = start_window( 'PROD_SPEC', @window, '*Choosing*SRP*':CustNo:'*CENTER', '', '' )\r\n\t\tend else\r\n\t\t if ChoosenRow = 3 then\r\n\t\t * call product specification window with all\r\n\t\t\t\tOpenKeys = xlate( 'COMPANY', CustNo, 'PROD_SPEC_KEYS', 'X' )\r\n\t\t\t\tif OpenKeys then\r\n\t\t\t\t\tconvert @vm to @fm in OpenKeys\r\n\t\t\t OpenKeys = key_sort( OpenKeys, 'PROD_SPEC', '#ENTRY_DATE', 1 )\t\t\t\t\t\r\n\t\t\t convert @fm to @vm in OpenKeys\r\n\t\t RetVal = start_window( 'PROD_SPEC', @window, OpenKeys:'*Choosing*SRP**CENTER', '', '' )\r\n\t\t\t\tend else\r\n\t\t\t\t gosub CustErr\r\n\t\t\t\t return 0\r\n\t\t\t\tend\r\n\t\t\tend else\r\n\t\t\t if ChoosenRow = 4 then\r\n\t\t\t ;* show all open in popup allowing choice\r\n\t\t \t\t\tOpenKeys = xlate( 'COMPANY', CustNo, 'PROD_SPEC_KEYS', 'X' )\r\n\t\t\t\t\tif OpenKeys then\r\n\t\t\t\t\t convert @vm to @fm in OpenKeys\r\n\t\t\t\t OpenKeys = key_sort( OpenKeys, 'PROD_SPEC', '#ENTRY_DATE', 1 )\t\t\t\r\n\t\t\t \tmake.list( 0, OpenKeys, '', '' )\r\n\t\t \t\tPopupId = entid( @appid<1>, 'POPUP', '', 'PROD_SPEC_SINGLE' )\r\n\t\t \t \t\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\t\t \t \t\tif ChoosenRow then\r\n\t\t \t \t\t .prod_spec_id->text = ChoosenRow\r\n\t\t end\r\n\t\t \tend else\r\n\t\t\t\t\t gosub CustErr\r\n\t\t\t\t\t return 0\r\n\t\t\t\t\tend\r\n\t\t\t end ;* user canceled\r\n\t\t end\r\n\t end\r\n end \r\nend else\r\n MsgRec = ''\r\n MsgRec = 'You must enter a customer first...' \r\n MsgRec = 'H'\r\n Void = msg( '', MsgRec ) \r\nend\r\nVoid = send_event( @window:'.PROD_SPEC_ID', 'LOSTFOCUS' )\r\nRETURN 0\r\n*===========================================================================*\r\nCustErr:\r\n Text = 'There are currently no Product Specifications for '\t\t \r\n Text:= oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' ) \r\n MsgInfo = ''\r\n MsgInfo = Text\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nreturn 0\r\n*===========================================================================*" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SRP_COC_RESULTS_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/SRP_COC_RESULTS_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SRP_COC_RESULTS_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SRP_INCOMING_LOG.CUST_ID.json b/LSL2/OIEVENT/OPTIONS/SRP_INCOMING_LOG.CUST_ID.json new file mode 100644 index 0000000..28b33fc --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SRP_INCOMING_LOG.CUST_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function send_event\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nforward_event()\r\nVoid = send_event( CtrlEntId, 'LOSTFOCUS' )\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SRP_INCOMING_LOG.LOG_NO.json b/LSL2/OIEVENT/OPTIONS/SRP_INCOMING_LOG.LOG_NO.json new file mode 100644 index 0000000..7fc0b39 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SRP_INCOMING_LOG.LOG_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n\r\nSRPIncomingLogKeys = dialog_box( 'SRP_INCOMING_LOG_QUERY', @window, '' )\r\nif SRPIncomingLogKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SRP_INCOMING_LOG_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, SRPIncomingLogKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .log_no->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .log_no->text = ChoosenKeys\r\n\t Void = send_event( @window:'.LOG_NO', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SRP_INCOMING_LOG_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/SRP_INCOMING_LOG_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SRP_INCOMING_LOG_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SRP_INCOMING_LOG_QUERY.ENGINEERS.json b/LSL2/OIEVENT/OPTIONS/SRP_INCOMING_LOG_QUERY.ENGINEERS.json new file mode 100644 index 0000000..0fb45cd --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SRP_INCOMING_LOG_QUERY.ENGINEERS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS WITH ACTIVE BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .engineers->array\r\n CurRow = .engineers->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .engineers->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SUB_REC_LOG.CUST_ID.json b/LSL2/OIEVENT/OPTIONS/SUB_REC_LOG.CUST_ID.json new file mode 100644 index 0000000..28b33fc --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SUB_REC_LOG.CUST_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function send_event\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nforward_event()\r\nVoid = send_event( CtrlEntId, 'LOSTFOCUS' )\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SUB_REC_LOG.LOG_NO.json b/LSL2/OIEVENT/OPTIONS/SUB_REC_LOG.LOG_NO.json new file mode 100644 index 0000000..6a33567 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SUB_REC_LOG.LOG_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n\r\nSubRecLogKeys = dialog_box( 'SUB_REC_LOG_QUERY', @window, '' )\r\nif SubRecLogKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SUB_REC_LOG_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, SubRecLogKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .log_no->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .log_no->text = ChoosenKeys\r\n\t Void = send_event( @window:'.LOG_NO', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SUB_REC_LOG_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/SUB_REC_LOG_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SUB_REC_LOG_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/SUB_REC_LOG_QUERY.RECEIVERS.json b/LSL2/OIEVENT/OPTIONS/SUB_REC_LOG_QUERY.RECEIVERS.json new file mode 100644 index 0000000..cc44f18 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/SUB_REC_LOG_QUERY.RECEIVERS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS WITH ACTIVE BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .receivers->array\r\n CurRow = .receivers->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .receivers->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/TEST.EDITLINE_7.json b/LSL2/OIEVENT/OPTIONS/TEST.EDITLINE_7.json new file mode 100644 index 0000000..209b403 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/TEST.EDITLINE_7.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function repository\r\ndeclare subroutine make.list\r\n\r\nmake.list( 0, '5438':@fm:'5465', '', '' )\r\nVoid = REPOSITORY( 'EXECUTE', 'LSL2*OIWINEXE**ORMAIN', 'COMPANY' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/TEST.NOTES.json b/LSL2/OIEVENT/OPTIONS/TEST.NOTES.json new file mode 100644 index 0000000..415f021 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/TEST.NOTES.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function utility\r\n\r\nVar = utility( 'CHOOSEFONT', '', '' )\r\n.NOTES->TEXT = VAR\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/TEST.OPERATOR_IN.json b/LSL2/OIEVENT/OPTIONS/TEST.OPERATOR_IN.json new file mode 100644 index 0000000..814df2c --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/TEST.OPERATOR_IN.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, popup, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS BY LAST_FIRST WITH PROCESS_TECH = \"1\"', target_activelist$, '', '', '' ) \r\nPopRec = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\nOverRide = ''\r\nOverRide = 1\r\nChoice = repository( 'EXECUTE', PopRec, @window, OverRide ) \r\nif Choice then\r\n .operator_in->text = Choice\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/TEST.TITLE.json b/LSL2/OIEVENT/OPTIONS/TEST.TITLE.json new file mode 100644 index 0000000..c31268b --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/TEST.TITLE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function billing_collector\r\nVoid = billing_collector()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/TW_CODES.TW_CODE.json b/LSL2/OIEVENT/OPTIONS/TW_CODES.TW_CODE.json new file mode 100644 index 0000000..5d7307c --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/TW_CODES.TW_CODE.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, repository, set_property, get_property, fieldcount\r\ndeclare function send_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nStmt = 'SELECT TW_CODES BY DESC'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_TW_CODES' )\r\n OverRide = ''\r\n OverRide = 2\r\n RetVals = repository( 'EXECUTE', PopupRec, @window, OverRide )\r\n if RetVals then\r\n convert @vm to @fm in RetVals\r\n if fieldcount( RetVals, @fm ) > 1 then\r\n Void = set_property( @window, 'QBFLIST', RetVals )\r\n Void = set_property( @window, '@NoRead', 1 ) \r\n .tw_code->text = RetVals<1> \r\n Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .tw_code->text = RetVals\r\n Void = send_event( @window:'.TW_CODE', 'LOSTFOCUS', '' )\r\n end\r\n end\r\nend \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/TW_PRIME_USAGE.TWU_ID.json b/LSL2/OIEVENT/OPTIONS/TW_PRIME_USAGE.TWU_ID.json new file mode 100644 index 0000000..3fbffef --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/TW_PRIME_USAGE.TWU_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n\r\nRLKeys = dialog_box( 'TW_PRIME_USAGE_QUERY', @window, '' )\r\nif RLKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'TW_PRIME_USAGE_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, RLKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .twu_id->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .twu_id->text = ChoosenKeys\r\n\t Void = send_event( @window:'.TWU_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/TW_PRIME_USAGE.TW_INFO.json b/LSL2/OIEVENT/OPTIONS/TW_PRIME_USAGE.TW_INFO.json new file mode 100644 index 0000000..c29af58 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/TW_PRIME_USAGE.TW_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, memberof\r\ndeclare subroutine rlist\r\n$insert rlist_equates\r\n\r\nSelpos = .tw_info->selpos\r\nColumn = SelPos<1>\r\nRow = SelPos<2>\r\nif Column = 2 then\r\n\tColData = get_property( @window:'.TW_INFO', 'COLDATA' )\r\n\tPopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_TW_CODES' )\r\n rlist( 'SELECT TW_CODES WITH NON_PROD = 0 BY DESC', target_activelist$, '', '', '' )\t\r\n\tRetCode = repository( 'EXECUTE', PopupRec, @window, '' )\r\n\tif RetCode <> '' then\r\n\t ColData<1,Row> = RetCode\r\n\t Void = set_property( @window:'.TW_INFO', 'COLDATA', ColData )\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/TW_USAGE.TWU_ID.json b/LSL2/OIEVENT/OPTIONS/TW_USAGE.TWU_ID.json new file mode 100644 index 0000000..3f8b83b --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/TW_USAGE.TWU_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n\r\nRLKeys = dialog_box( 'TW_USAGE_QUERY', @window, '' )\r\nif RLKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'TW_USAGE_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, RLKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .twu_id->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .twu_id->text = ChoosenKeys\r\n\t Void = send_event( @window:'.TWU_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/TW_USAGE.TW_INFO.json b/LSL2/OIEVENT/OPTIONS/TW_USAGE.TW_INFO.json new file mode 100644 index 0000000..5d35328 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/TW_USAGE.TW_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, memberof\r\ndeclare subroutine rlist\r\n$insert rlist_equates\r\n\r\nSelpos = .tw_info->selpos\r\nColumn = SelPos<1>\r\nRow = SelPos<2>\r\nif Column = 2 then\r\n\tColData = get_property( @window:'.TW_INFO', 'COLDATA' )\r\n\tPopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_TW_CODES' )\r\n rlist( 'SELECT TW_CODES WITH NON_PROD = 1 BY DESC', target_activelist$, '', '', '' )\t\r\n\tRetCode = repository( 'EXECUTE', PopupRec, @window, '' )\r\n\tif RetCode <> '' then\r\n\t ColData<1,Row> = RetCode\r\n\t Void = set_property( @window:'.TW_INFO', 'COLDATA', ColData )\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/USERS_SRPT1.EMPLOYEE_INFO.json b/LSL2/OIEVENT/OPTIONS/USERS_SRPT1.EMPLOYEE_INFO.json new file mode 100644 index 0000000..55261e0 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/USERS_SRPT1.EMPLOYEE_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .employee_info->array\r\n CurRow = .employee_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .employee_info->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/USERS_SRPT1.SUPERVISOR_INFO.json b/LSL2/OIEVENT/OPTIONS/USERS_SRPT1.SUPERVISOR_INFO.json new file mode 100644 index 0000000..0b99670 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/USERS_SRPT1.SUPERVISOR_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .supervisor_info->array\r\n CurRow = .supervisor_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .supervisor_info->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/WAFER_INV.CUST_NO.json b/LSL2/OIEVENT/OPTIONS/WAFER_INV.CUST_NO.json new file mode 100644 index 0000000..28b33fc --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/WAFER_INV.CUST_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function send_event\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nforward_event()\r\nVoid = send_event( CtrlEntId, 'LOSTFOCUS' )\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/WAFER_INV.WAF_INV_NO.json b/LSL2/OIEVENT/OPTIONS/WAFER_INV.WAF_INV_NO.json new file mode 100644 index 0000000..e0cc8c0 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/WAFER_INV.WAF_INV_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n\r\nWiKeys = dialog_box( 'WAFER_INV_QUERY', @window, '' )\r\nif WiKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'WAF_INV_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, WiKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 ) \r\n .waf_inv_no->text = ChoosenKeys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .waf_inv_no->text = ChoosenKeys\r\n\t Void = send_event( @window:'.WAF_INV_NO', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/WAFER_INV_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/WAFER_INV_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/WAFER_INV_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/WO_LOG.CUST_NO.json b/LSL2/OIEVENT/OPTIONS/WO_LOG.CUST_NO.json new file mode 100644 index 0000000..28b33fc --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/WO_LOG.CUST_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function send_event\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nforward_event()\r\nVoid = send_event( CtrlEntId, 'LOSTFOCUS' )\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/WO_LOG.PROD_SPEC_ID.json b/LSL2/OIEVENT/OPTIONS/WO_LOG.PROD_SPEC_ID.json new file mode 100644 index 0000000..6c9fd9a --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/WO_LOG.PROD_SPEC_ID.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function entid, repository, start_window, msg, key_sort, rowexists, send_event\r\ndeclare subroutine make.list\r\n$insert msg_equates\r\n\r\nCustNo = .cust_no->text\r\nif CustNo then\r\n * row one = call window with current key\r\n\t* row two = call window with no keys\r\n\t* row three = call window with all keys for customer\r\n\t* row four = call popup allowing choice\r\n\tCurProdSpecID = .prod_spec_id->text\r\n\tif CurProdSpecID then\r\n\t if rowexists( 'WO_LOG', .wo_no->text ) else\r\n\t Tvar = iconv( CurProdSpecID, '[WIN_PROD_SPEC_NUM_VALID]' )\r\n\t if status() then\r\n\t .prod_spec_id->text = ''\r\n\t end\r\n\t end\r\n\tend\r\n\tPopupId = entid( @appid<1>, 'POPUP', '', 'PROD_SPEC_LOOKUP_OPTS' )\r\n\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\tif ChoosenRow = 1 then\r\n\t ;* go view current prod spec\r\n\t if CurProdSpecID then\r\n\t RetVal = start_window( 'PROD_SPEC', @window, CurProdSpecID:'*Choosing*WO-Log**CENTER', '', '' ) \r\n\t\tend else\r\n\t\t MsgInfo = ''\r\n\t\t Text = 'You have not entered a product specification number...' \r\n\t\t MsgInfo = Text\r\n\t\t MsgInfo = 'H'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t\t return 0\r\n end\r\n end else\r\n if ChoosenRow = 2 then\r\n\t * call customer prod spec window\r\n\t\t\tRetVal = start_window( 'PROD_SPEC', @window, '*Choosing*WO-Log*':CustNo:'*CENTER', '', '' )\r\n\t\tend else\r\n\t\t if ChoosenRow = 3 then\r\n\t\t * call product specification window with all\r\n\t\t\t\tOpenKeys = xlate( 'COMPANY', CustNo, 'PROD_SPEC_KEYS', 'X' )\r\n\t\t\t\tif OpenKeys then\r\n\t\t\t\t\tconvert @vm to @fm in OpenKeys\r\n\t\t\t OpenKeys = key_sort( OpenKeys, 'PROD_SPEC', '#ENTRY_DATE', 1 )\t\t\t\t\t\r\n\t\t\t convert @fm to @vm in OpenKeys\r\n\t\t RetVal = start_window( 'PROD_SPEC', @window, OpenKeys:'*Choosing*WO-Log**CENTER', '', '' )\r\n\t\t\t\tend else\r\n\t\t\t\t gosub CustErr\r\n\t\t\t\t return 0\r\n\t\t\t\tend\r\n\t\t\tend else\r\n\t\t\t if ChoosenRow = 4 then\r\n\t\t\t ;* show all open in popup allowing choice\r\n\t\t \t\t\tOpenKeys = xlate( 'COMPANY', CustNo, 'PROD_SPEC_KEYS', 'X' )\r\n\t\t\t\t\tif OpenKeys then\r\n\t\t\t\t\t convert @vm to @fm in OpenKeys\r\n\t\t\t\t OpenKeys = key_sort( OpenKeys, 'PROD_SPEC', '#ENTRY_DATE', 1 )\t\t\t\r\n\t\t\t \tmake.list( 0, OpenKeys, '', '' )\r\n\t\t \t\tPopupId = entid( @appid<1>, 'POPUP', '', 'PROD_SPEC_SINGLE' )\r\n\t\t \t \t\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\t\t \t \t\tif ChoosenRow then\r\n\t\t \t \t\t .prod_spec_id->text = ChoosenRow\r\n\t\t end\r\n\t\t \tend else\r\n\t\t\t\t\t gosub CustErr\r\n\t\t\t\t\t return 0\r\n\t\t\t\t\tend\r\n\t\t\t end ;* user canceled\r\n\t\t end\r\n\t end\r\n end \r\nend else\r\n MsgRec = ''\r\n MsgRec = 'You must enter a customer first...' \r\n MsgRec = 'H'\r\n Void = msg( '', MsgRec ) \r\nend\r\nVoid = send_event( @window:'.PROD_SPEC_ID', 'LOSTFOCUS' )\r\nRETURN 0\r\n*===========================================================================*\r\nCustErr:\r\n Text = 'There are currently no Product Specifications for '\t\t \r\n Text:= oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' ) \r\n MsgInfo = ''\r\n MsgInfo = Text\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\nreturn 0\r\n*===========================================================================*" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/WO_LOG.WO_NO.json b/LSL2/OIEVENT/OPTIONS/WO_LOG.WO_NO.json new file mode 100644 index 0000000..cea5aea --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/WO_LOG.WO_NO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function getwindow, fieldcount, send_event\r\ndeclare subroutine sendmessage, make.list\r\n$insert popup_equates\r\nequ QbfOccurred$ to 1126\r\n\r\nWOKeys = dialog_box( 'WO_LOG_QUERY', @window, '' )\r\nif WOKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'WO_LOG_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, WOKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n\t\t WndHnd = get_property( @window, 'HANDLE' )\r\n\t\t HbBar = getwindow( WndHnd, 5 )\r\n\t\t sendmessage( HbBar, QbfOccurred$, 0, 0 )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .contract_no->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .wo_no->text = ChoosenKeys\r\n\t Void = send_event( @window:'.WO_NO', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/WO_LOG_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/WO_LOG_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/WO_LOG_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/OPTIONS/WO_LOG_RPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/OPTIONS/WO_LOG_RPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..1ec68f5 --- /dev/null +++ b/LSL2/OIEVENT/OPTIONS/WO_LOG_RPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/PAGE/NDW_GAN_PROD_SPEC..json b/LSL2/OIEVENT/PAGE/NDW_GAN_PROD_SPEC..json new file mode 100644 index 0000000..b96d884 --- /dev/null +++ b/LSL2/OIEVENT/PAGE/NDW_GAN_PROD_SPEC..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine Forward_Event, Set_Property\r\n\r\nequ TRUE$ to 1\r\nequ FALSE$ to 0\r\n\r\n* tab controls must start with \"PAGE_\" and end with \"_TAB\" with a number in\r\n* between representing the page number associated with the tab\r\nequ TAB_PREFIX$ to \"PAGE_\"\r\nequ TAB_SUFFIX$ to \"_TAB\"\r\n\r\n\r\n* handle the page event\r\nForward_Event(PageAction)\r\n\r\n* radio buttons do not auto-check on gotfocus so explicitly set the check\r\nSet_Property(@window: \".\": TAB_PREFIX$ : Get_Property(@window, \"VPOSITION\") <1>: TAB_SUFFIX$, \"CHECK\", TRUE$)\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/PAGE/PROD_SPEC_SI..json b/LSL2/OIEVENT/PAGE/PROD_SPEC_SI..json new file mode 100644 index 0000000..b96d884 --- /dev/null +++ b/LSL2/OIEVENT/PAGE/PROD_SPEC_SI..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine Forward_Event, Set_Property\r\n\r\nequ TRUE$ to 1\r\nequ FALSE$ to 0\r\n\r\n* tab controls must start with \"PAGE_\" and end with \"_TAB\" with a number in\r\n* between representing the page number associated with the tab\r\nequ TAB_PREFIX$ to \"PAGE_\"\r\nequ TAB_SUFFIX$ to \"_TAB\"\r\n\r\n\r\n* handle the page event\r\nForward_Event(PageAction)\r\n\r\n* radio buttons do not auto-check on gotfocus so explicitly set the check\r\nSet_Property(@window: \".\": TAB_PREFIX$ : Get_Property(@window, \"VPOSITION\") <1>: TAB_SUFFIX$, \"CHECK\", TRUE$)\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/AC_RPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/AC_RPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..93ce13c --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/AC_RPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked', 0 )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/AC_RPT_1.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/AC_RPT_1.CUSTOMER_INFO.json new file mode 100644 index 0000000..25458a5 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/AC_RPT_1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\nforward_event( CtrlEntId, CtrlClassId, NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked', 0 )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/AC_SRPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/AC_SRPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..93ce13c --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/AC_SRPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked', 0 )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/ANNUAL_CONTRACTS_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/ANNUAL_CONTRACTS_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..93ce13c --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/ANNUAL_CONTRACTS_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked', 0 )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/ANNUAL_CONTRACTS_QUERY.ENTRY_IDS.json b/LSL2/OIEVENT/POSCHANGED/ANNUAL_CONTRACTS_QUERY.ENTRY_IDS.json new file mode 100644 index 0000000..2e79db4 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/ANNUAL_CONTRACTS_QUERY.ENTRY_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .entry_ids->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.entry_ids->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .entry_ids->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked', 0 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/ATTENDANCE_QUERY.EMPLOYEE_INFO.json b/LSL2/OIEVENT/POSCHANGED/ATTENDANCE_QUERY.EMPLOYEE_INFO.json new file mode 100644 index 0000000..6a234fa --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/ATTENDANCE_QUERY.EMPLOYEE_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .employee_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.employee_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .employee_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/ATTENDANCE_QUERY.SUPERVISOR_INFO.json b/LSL2/OIEVENT/POSCHANGED/ATTENDANCE_QUERY.SUPERVISOR_INFO.json new file mode 100644 index 0000000..2efc46c --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/ATTENDANCE_QUERY.SUPERVISOR_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .supervisor_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.supervisor_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .supervisor_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/ATTENDANCE_SRPT1.EMPLOYEE_INFO.json b/LSL2/OIEVENT/POSCHANGED/ATTENDANCE_SRPT1.EMPLOYEE_INFO.json new file mode 100644 index 0000000..6a234fa --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/ATTENDANCE_SRPT1.EMPLOYEE_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .employee_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.employee_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .employee_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/ATTENDANCE_SRPT1.SUPERVISOR_INFO.json b/LSL2/OIEVENT/POSCHANGED/ATTENDANCE_SRPT1.SUPERVISOR_INFO.json new file mode 100644 index 0000000..2efc46c --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/ATTENDANCE_SRPT1.SUPERVISOR_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .supervisor_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.supervisor_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .supervisor_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/CALL_VISIT.ATTENDED_BY.json b/LSL2/OIEVENT/POSCHANGED/CALL_VISIT.ATTENDED_BY.json new file mode 100644 index 0000000..b25749a --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/CALL_VISIT.ATTENDED_BY.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .attended_by->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/CALL_VISIT.CONTACT_IDS.json b/LSL2/OIEVENT/POSCHANGED/CALL_VISIT.CONTACT_IDS.json new file mode 100644 index 0000000..59f119a --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/CALL_VISIT.CONTACT_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .contact_ids->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/CALL_VISIT_QUERY.ATTEND_BY.json b/LSL2/OIEVENT/POSCHANGED/CALL_VISIT_QUERY.ATTEND_BY.json new file mode 100644 index 0000000..8ff6f99 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/CALL_VISIT_QUERY.ATTEND_BY.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .attend_by->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.attend_by->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .attend_by->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/CALL_VISIT_QUERY.CONTACT_IDS.json b/LSL2/OIEVENT/POSCHANGED/CALL_VISIT_QUERY.CONTACT_IDS.json new file mode 100644 index 0000000..b5c2d53 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/CALL_VISIT_QUERY.CONTACT_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .contact_ids->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,NAMES*FIRST_LAST]' )\r\n.contact_ids->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .contact_ids->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/CALL_VISIT_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/CALL_VISIT_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..6e0ee09 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/CALL_VISIT_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/CAR_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/CAR_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..9b143c3 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/CAR_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/CAR_QUERY.RESP_PERSON_INFO.json b/LSL2/OIEVENT/POSCHANGED/CAR_QUERY.RESP_PERSON_INFO.json new file mode 100644 index 0000000..92bff08 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/CAR_QUERY.RESP_PERSON_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .resp_person_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.resp_person_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .resp_person_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/CAR_RPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/CAR_RPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..9b143c3 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/CAR_RPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/CAR_SRPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/CAR_SRPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..9b143c3 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/CAR_SRPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/CDM_LOG_QUERY.TECHS.json b/LSL2/OIEVENT/POSCHANGED/CDM_LOG_QUERY.TECHS.json new file mode 100644 index 0000000..79e4b83 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/CDM_LOG_QUERY.TECHS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .techs->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.techs->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .techs->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/COC_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/COC_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..11a2af4 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/COC_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked', 0 )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/COC_QUERY.ENTRY_IDS.json b/LSL2/OIEVENT/POSCHANGED/COC_QUERY.ENTRY_IDS.json new file mode 100644 index 0000000..2e79db4 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/COC_QUERY.ENTRY_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .entry_ids->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.entry_ids->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .entry_ids->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked', 0 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/CUST_INQUIRY_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/CUST_INQUIRY_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..9b143c3 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/CUST_INQUIRY_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/CUST_INQUIRY_QUERY.ENTRY_IDS.json b/LSL2/OIEVENT/POSCHANGED/CUST_INQUIRY_QUERY.ENTRY_IDS.json new file mode 100644 index 0000000..f9ccc9d --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/CUST_INQUIRY_QUERY.ENTRY_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .entry_ids->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.entry_ids->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .entry_ids->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/HOTH2O2_LOG_QUERY.TECHS.json b/LSL2/OIEVENT/POSCHANGED/HOTH2O2_LOG_QUERY.TECHS.json new file mode 100644 index 0000000..79e4b83 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/HOTH2O2_LOG_QUERY.TECHS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .techs->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.techs->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .techs->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/INVOICE_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/INVOICE_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..9b143c3 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/INVOICE_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/INVOICE_RPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/INVOICE_RPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..9b143c3 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/INVOICE_RPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/INVOICE_RPT3.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/INVOICE_RPT3.CUSTOMER_INFO.json new file mode 100644 index 0000000..9b143c3 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/INVOICE_RPT3.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/INVOICE_RPT4.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/INVOICE_RPT4.CUSTOMER_INFO.json new file mode 100644 index 0000000..9b143c3 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/INVOICE_RPT4.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/INVOICE_RPT5.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/INVOICE_RPT5.CUSTOMER_INFO.json new file mode 100644 index 0000000..9b143c3 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/INVOICE_RPT5.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/INVOICE_RPT6.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/INVOICE_RPT6.CUSTOMER_INFO.json new file mode 100644 index 0000000..9b143c3 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/INVOICE_RPT6.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/INVOICE_SRL_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/INVOICE_SRL_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..1b02e92 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/INVOICE_SRL_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\nforward_event( CtrlEntId, CtrlClassId, NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/INVOICE_SRPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/INVOICE_SRPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..9b143c3 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/INVOICE_SRPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/INVOICE_SRPT3.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/INVOICE_SRPT3.CUSTOMER_INFO.json new file mode 100644 index 0000000..9b143c3 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/INVOICE_SRPT3.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/INVOICE_SRPT4.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/INVOICE_SRPT4.CUSTOMER_INFO.json new file mode 100644 index 0000000..9b143c3 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/INVOICE_SRPT4.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/INVOICE_SRPT5.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/INVOICE_SRPT5.CUSTOMER_INFO.json new file mode 100644 index 0000000..9b143c3 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/INVOICE_SRPT5.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/LEAK_LAMP.LL_INFO.json b/LSL2/OIEVENT/POSCHANGED/LEAK_LAMP.LL_INFO.json new file mode 100644 index 0000000..d881c9f --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/LEAK_LAMP.LL_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function msg\r\n\r\nforward_event()\r\nCurTime = time()\r\nSelPos = .ll_info->selpos\r\nCurCol = SelPos<1>\r\nCurRow = SelPos<2>\r\nLastSelPos = set_property( @window, '@LastSelPos', SelPos )\r\nCurArray = .ll_info->array\r\nCol = LastSelPos<1>\r\nRow = LastSelPos<2>\r\nLastVal = set_property( @window, '@LastVal', CurArray )\r\n\r\nif Col = 3 or Col = 5 then\r\n TCurVal = CurArray\r\n if TCurVal <> LastVal then\r\n * only set dates if they have changed the time cause they may with to override the \r\n * default date\r\n\t CurVal = iconv( CurArray, 'MT' )\r\n\t if CurVal > CurTime then \r\n\t CurArray<2,Row> = oconv( date()-1, 'D2/' )\r\n\t CurArray<4,Row> = oconv( date()-1, 'D2/' ) \r\n\t CurArray<5,Row> = CurArray ;* set end time to start time \r\n\t ;* cause a lot of times they dont charge any\r\n\t ;* time if reactor is down\r\n\t \r\n\t \r\n\t end else\r\n\t if CurVal <> '' then\r\n\t\t CurArray<2,Row> = oconv( date(), 'D2/' )\r\n\t\t CurArray<4,Row> = oconv( date(), 'D2/' )\r\n\t\t CurArray<5,Row> = CurArray ;* set end time to start time \r\n\t\t ;* cause a lot of times they dont charge any\r\n\t\t ;* time if reactor is down\r\n\t end \r\n\t end \r\n end\r\n .ll_info->array = CurArray\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/LSL_USERS_RPT1.USERS.json b/LSL2/OIEVENT/POSCHANGED/LSL_USERS_RPT1.USERS.json new file mode 100644 index 0000000..25f088d --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/LSL_USERS_RPT1.USERS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .users->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.users->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .users->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/MASTER_DISK_LOG_QUERY.TECHS.json b/LSL2/OIEVENT/POSCHANGED/MASTER_DISK_LOG_QUERY.TECHS.json new file mode 100644 index 0000000..79e4b83 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/MASTER_DISK_LOG_QUERY.TECHS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .techs->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.techs->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .techs->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/MEG_LOG_QUERY.TECHS.json b/LSL2/OIEVENT/POSCHANGED/MEG_LOG_QUERY.TECHS.json new file mode 100644 index 0000000..79e4b83 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/MEG_LOG_QUERY.TECHS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .techs->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.techs->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .techs->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/MSG_GROUPS.USER_IDS.json b/LSL2/OIEVENT/POSCHANGED/MSG_GROUPS.USER_IDS.json new file mode 100644 index 0000000..b158309 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/MSG_GROUPS.USER_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .user_ids->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/NDA.CONTACT_IDS.json b/LSL2/OIEVENT/POSCHANGED/NDA.CONTACT_IDS.json new file mode 100644 index 0000000..59f119a --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/NDA.CONTACT_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .contact_ids->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/NDA_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/NDA_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..93ce13c --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/NDA_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked', 0 )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/NOTES.SEND_TO_INTERNAL.json b/LSL2/OIEVENT/POSCHANGED/NOTES.SEND_TO_INTERNAL.json new file mode 100644 index 0000000..27ec6b2 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/NOTES.SEND_TO_INTERNAL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .send_to_internal->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.send_to_internal->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .send_to_internal->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/NOTES_ATTACH.SEND_TO_INTERNAL.json b/LSL2/OIEVENT/POSCHANGED/NOTES_ATTACH.SEND_TO_INTERNAL.json new file mode 100644 index 0000000..0c4ac90 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/NOTES_ATTACH.SEND_TO_INTERNAL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .send_to_internal->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.send_to_internal->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .send_to_internal->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/ORDER.ORDER_DETAIL.json b/LSL2/OIEVENT/POSCHANGED/ORDER.ORDER_DETAIL.json new file mode 100644 index 0000000..7d3606e --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/ORDER.ORDER_DETAIL.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function set_eventstatus, get_eventstatus\r\n$insert quote_equ\r\n\r\nVoid = set_eventstatus(0)\r\nforward_event( NextColumn, NextRow )\r\nStat= get_eventstatus()\r\nif Stat = 0 then\r\n\tarrayinfo = .order_detail->array\r\n\tQuotes_Id = arrayinfo<1,1> \r\n\tIf .Name_No->text = '' Then\r\n\t * XLATE THE NAME_NO OUT OF THE QUOTE TABLE AND PUT IN .NAME_NO\r\n\t .Name_No->text = xlate( 'QUOTE', Quotes_Id, quote_name_no$, 'X' )\r\n\t .contact_name->text = xlate( 'QUOTE', Quotes_Id, 'CONTACT_NAME', 'X' )\r\n\tEnd\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/ORDER_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/ORDER_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..9b143c3 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/ORDER_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/ORDER_RPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/ORDER_RPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..ef4f294 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/ORDER_RPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked', 0 )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/ORDER_RPT2.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/ORDER_RPT2.CUSTOMER_INFO.json new file mode 100644 index 0000000..ef4f294 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/ORDER_RPT2.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked', 0 )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/ORDER_SRL_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/ORDER_SRL_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..1b02e92 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/ORDER_SRL_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\nforward_event( CtrlEntId, CtrlClassId, NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/ORDER_SRPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/ORDER_SRPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..ef4f294 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/ORDER_SRPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked', 0 )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/ORDER_SRPT2.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/ORDER_SRPT2.CUSTOMER_INFO.json new file mode 100644 index 0000000..ef4f294 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/ORDER_SRPT2.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked', 0 )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/PHOTOFLO_LOG_QUERY.TECHS.json b/LSL2/OIEVENT/POSCHANGED/PHOTOFLO_LOG_QUERY.TECHS.json new file mode 100644 index 0000000..79e4b83 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/PHOTOFLO_LOG_QUERY.TECHS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .techs->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.techs->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .techs->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/PROD_SPEC_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/PROD_SPEC_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..9b143c3 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/PROD_SPEC_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/PROD_SPEC_RPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/PROD_SPEC_RPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..9b143c3 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/PROD_SPEC_RPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/QUARTZ_WAND_LOG_QUERY.REACT_ITEMS.json b/LSL2/OIEVENT/POSCHANGED/QUARTZ_WAND_LOG_QUERY.REACT_ITEMS.json new file mode 100644 index 0000000..1a20ab4 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/QUARTZ_WAND_LOG_QUERY.REACT_ITEMS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .react_items->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,REACT_ITEMS*DESCRIPTION]' )\r\n.react_items->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .react_items->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/QUOTE_OLD_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/QUOTE_OLD_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..9b143c3 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/QUOTE_OLD_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/QUOTE_OLD_QUERY.ENTRY_IDS.json b/LSL2/OIEVENT/POSCHANGED/QUOTE_OLD_QUERY.ENTRY_IDS.json new file mode 100644 index 0000000..f9ccc9d --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/QUOTE_OLD_QUERY.ENTRY_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .entry_ids->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.entry_ids->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .entry_ids->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/QUOTE_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/QUOTE_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..9b143c3 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/QUOTE_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/QUOTE_QUERY.ENTRY_IDS.json b/LSL2/OIEVENT/POSCHANGED/QUOTE_QUERY.ENTRY_IDS.json new file mode 100644 index 0000000..f9ccc9d --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/QUOTE_QUERY.ENTRY_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .entry_ids->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.entry_ids->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .entry_ids->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/QUOTE_RPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/QUOTE_RPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..9b143c3 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/QUOTE_RPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/QUOTE_RPT1.ENTRY_IDS.json b/LSL2/OIEVENT/POSCHANGED/QUOTE_RPT1.ENTRY_IDS.json new file mode 100644 index 0000000..f9ccc9d --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/QUOTE_RPT1.ENTRY_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .entry_ids->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.entry_ids->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .entry_ids->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/QUOTE_SRL_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/QUOTE_SRL_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..1b02e92 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/QUOTE_SRL_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\nforward_event( CtrlEntId, CtrlClassId, NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/QUOTE_SRL_QUERY.ENTRY_IDS.json b/LSL2/OIEVENT/POSCHANGED/QUOTE_SRL_QUERY.ENTRY_IDS.json new file mode 100644 index 0000000..999a63a --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/QUOTE_SRL_QUERY.ENTRY_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( CtrlEntId, CtrlClassId, NextColumn, NextRow )\r\nCurRow = .entry_ids->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.entry_ids->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .entry_ids->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/RDS_LAYERS.SHEETRHO_READINGS.json b/LSL2/OIEVENT/POSCHANGED/RDS_LAYERS.SHEETRHO_READINGS.json new file mode 100644 index 0000000..40f134f --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/RDS_LAYERS.SHEETRHO_READINGS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function rds_comm2\r\n\r\nforward_event( NextColumn, NextRow )\r\nVoid = set_property( @window, '@CurControlName', 'SHEETRHO_READINGS' )\r\nVoid = rds_comm2( \"WAF_SIZE_SET\" )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/RDS_LAYERS.THICKNESS_READINGS.json b/LSL2/OIEVENT/POSCHANGED/RDS_LAYERS.THICKNESS_READINGS.json new file mode 100644 index 0000000..b476499 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/RDS_LAYERS.THICKNESS_READINGS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function rds_comm2\r\n\r\nforward_event(NextColumn,NextRow)\r\nVoid = set_property( @window, '@CurControlName', 'THICKNESS_READINGS' )\r\nVoid = rds_comm2( \"WAF_SIZE_SET\" )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/RDS_PRE_EPI.PRE_EPI_SIG_INFO.json b/LSL2/OIEVENT/POSCHANGED/RDS_PRE_EPI.PRE_EPI_SIG_INFO.json new file mode 100644 index 0000000..bd4d591 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/RDS_PRE_EPI.PRE_EPI_SIG_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, Set_Property\r\ndeclare function set_eventstatus, get_eventstatus, Get_Property\r\n\r\nPrevSelPos\t= Get_Property(CtrlEntId,\"PREVSELPOS\")\r\nPrevCol \t= PrevSelPos<1>\r\nPrevRow \t= PrevSelPos<2>\r\n\r\nCurrPos = Get_Property(CtrlEntId,'SELPOS')\r\nCurrCol = CurrPos<1>\r\nCurrRow = CurrPos<2>\r\n\r\nListData= Get_Property(CtrlEntId,'LIST')\r\n\r\nRowData = ListData\r\n\r\nIF RowData<1,4> NE '' THEN\r\n\tSet_Property(CtrlEntId,\"SELPOS\",1:@FM:CurrRow + 1)\r\nEND\r\n\r\nIF CurrCol = 5 THEN\r\n\tSet_Property(CtrlEntId,\"SELPOS\",6:@FM:CurrRow)\r\nEND\r\n\r\nreturn 1\r\n\r\n/*\r\n\r\ndeclare subroutine forward_event\r\ndeclare function set_eventstatus, get_eventstatus\r\n\r\nVoid = set_eventstatus(0)\r\nforward_event( NextColumn, NextRow )\r\nErr = get_eventstatus(Err)\r\nif Err then\r\n return 0\r\nend\r\nif NextColumn = 5 then\r\n NextColumn = 6\r\nend\r\n.pre_epi_sig_info->selpos = NextColumn:@fm:NextRow\r\nreturn 0\r\n*/" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/RDS_PRE_EPI_ORG.PRE_EPI_SIG_INFO.json b/LSL2/OIEVENT/POSCHANGED/RDS_PRE_EPI_ORG.PRE_EPI_SIG_INFO.json new file mode 100644 index 0000000..bd4d591 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/RDS_PRE_EPI_ORG.PRE_EPI_SIG_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, Set_Property\r\ndeclare function set_eventstatus, get_eventstatus, Get_Property\r\n\r\nPrevSelPos\t= Get_Property(CtrlEntId,\"PREVSELPOS\")\r\nPrevCol \t= PrevSelPos<1>\r\nPrevRow \t= PrevSelPos<2>\r\n\r\nCurrPos = Get_Property(CtrlEntId,'SELPOS')\r\nCurrCol = CurrPos<1>\r\nCurrRow = CurrPos<2>\r\n\r\nListData= Get_Property(CtrlEntId,'LIST')\r\n\r\nRowData = ListData\r\n\r\nIF RowData<1,4> NE '' THEN\r\n\tSet_Property(CtrlEntId,\"SELPOS\",1:@FM:CurrRow + 1)\r\nEND\r\n\r\nIF CurrCol = 5 THEN\r\n\tSet_Property(CtrlEntId,\"SELPOS\",6:@FM:CurrRow)\r\nEND\r\n\r\nreturn 1\r\n\r\n/*\r\n\r\ndeclare subroutine forward_event\r\ndeclare function set_eventstatus, get_eventstatus\r\n\r\nVoid = set_eventstatus(0)\r\nforward_event( NextColumn, NextRow )\r\nErr = get_eventstatus(Err)\r\nif Err then\r\n return 0\r\nend\r\nif NextColumn = 5 then\r\n NextColumn = 6\r\nend\r\n.pre_epi_sig_info->selpos = NextColumn:@fm:NextRow\r\nreturn 0\r\n*/" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/RDS_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/RDS_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..9b143c3 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/RDS_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/RDS_REJECTS.REJ_INFO.json b/LSL2/OIEVENT/POSCHANGED/RDS_REJECTS.REJ_INFO.json new file mode 100644 index 0000000..35045ec --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/RDS_REJECTS.REJ_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .rej_info->rowdata\r\nCurRow<3,1> = oconv( CurRow<2,1>, '[XLATE_CONV,LOSS_CODES*DESC]' )\r\nCurRow<5,1> = oconv( CurRow<4,1>, '[XLATE_CONV,ASSIGN_CAUSE*ASSIGN_CAUSE_DESC]' )\r\n.rej_info->rowdata = CurRow\r\nif NextColumn = 3 then\r\n NextColumn = 4\r\n .rej_info->selpos = NextColumn:@fm:NextRow\r\nend else\r\n if NextColumn = 5 then\r\n NextColumn = 1\r\n NextRow += 1\r\n .rej_info->selpos = NextColumn:@fm:NextRow\r\n end\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/RDS_RPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/RDS_RPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..ef4f294 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/RDS_RPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked', 0 )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/RDS_RPT2.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/RDS_RPT2.CUSTOMER_INFO.json new file mode 100644 index 0000000..ef4f294 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/RDS_RPT2.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked', 0 )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/RDS_SRPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/RDS_SRPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..ef4f294 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/RDS_SRPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked', 0 )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/RDS_TW.TW_INFO.json b/LSL2/OIEVENT/POSCHANGED/RDS_TW.TW_INFO.json new file mode 100644 index 0000000..43235a0 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/RDS_TW.TW_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell, rds_comm, msg\r\n\r\nVoid = rds_comm( \"TW_ACCT_ROW_VAL\" )\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .tw_info->rowdata\r\nCurRow<3,1> = oconv( CurRow<2,1>, '[XLATE_CONV,TW_CODES*DESC]' )\r\n.tw_info->rowdata = CurRow\r\nif NextColumn = 3 then\r\n NextColumn = 4\r\n .tw_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/REACTORPM_SRPT1.REACT_SERVS.json b/LSL2/OIEVENT/POSCHANGED/REACTORPM_SRPT1.REACT_SERVS.json new file mode 100644 index 0000000..30cea38 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/REACTORPM_SRPT1.REACT_SERVS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .react_servs->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,REACT_SERVS*DESCRIPTION]' )\r\n.react_servs->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .react_servs->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG.SERV_INFO.json b/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG.SERV_INFO.json new file mode 100644 index 0000000..0a5cb99 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG.SERV_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell, reactor_log_comm, get_eventstatus, fieldcount\r\n$insert react_servs_equ\r\n$insert react_serv_cat_equates\r\n$insert reactor_log_equates\r\n$insert react_prob_cat_equates\r\n\r\nequ TubeChangeService$ to 240 ;* HARD CODED MUST NOT CHANGE SERVICE 240 TO ANYTHING OR INACTIVATE\r\nequ LeakLampService$ to 188 ;* HARD CODED MUST NOT CHANGE SERVICE 188 TO ANYTHING OR INACTIVATE\r\n\r\n\r\n\r\nEQU COL$PROB_CAT\t\t\tTO 1\r\nEQU COL$PROB_CAT_DESC\t\tTO 2\r\nEQU COL$SERV_ID\t\t\t\tTO 3\r\nEQU COL$SERV_ID_DESC\t\tTO 4\r\nEQU COL$SCHED\t\t\t\tTO 5\r\nEQU COL$SN_REQ\t\t\t\tTO 6\r\nEQU COL$ITEM_ID\t\t\t\tTO 7\r\n\r\n\r\n\r\n\r\n\r\nforward_event( NextColumn, NextRow )\r\nisError = Get_EventStatus(eventcode)\r\nif isError then\r\n return 0\r\nend else\r\n\r\n CurServices = .serv_info->array\r\n \r\n **************** JLT 06/12/2001 *******************VVVVVVVVVVVV\r\n TempVar = XLATE(\"REACT_SERVS\",CurServices,react_servs_req_arm_wand_data$,\"X\")\r\n TempVar = Sum(TempVar)\r\n If TempVar Then\r\n .aw_button->visible = 1\r\n end\telse\r\n .aw_button->visible = 0\r\n end\r\n**************** JLT 06/12/2001 *********************^^^^^^^^^^ \r\n\r\n\tCurArray = .serv_info->array \r\n \r\n\t\r\n\t*Void = reactor_log_comm('ITEM_SN_CHECK')\t\t11/21/2013 JCH & DKK\r\n\t\r\n\tVoid = reactor_log_comm( \"CHECK_SERVICES\" )\r\nend\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG_QUERY.ENTRY_IDS.json b/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG_QUERY.ENTRY_IDS.json new file mode 100644 index 0000000..f9ccc9d --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG_QUERY.ENTRY_IDS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .entry_ids->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.entry_ids->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .entry_ids->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG_QUERY.REACT_ITEMS.json b/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG_QUERY.REACT_ITEMS.json new file mode 100644 index 0000000..1a20ab4 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG_QUERY.REACT_ITEMS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .react_items->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,REACT_ITEMS*DESCRIPTION]' )\r\n.react_items->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .react_items->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG_QUERY.REACT_PROBS_CAT.json b/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG_QUERY.REACT_PROBS_CAT.json new file mode 100644 index 0000000..b583e69 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG_QUERY.REACT_PROBS_CAT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .react_probs_cat->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,REACT_PROB_CAT*REACTOR_PROBLEM_CATEGORY]' )\r\n.react_probs_cat->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .react_probs_cat->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG_QUERY.REACT_SERVS.json b/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG_QUERY.REACT_SERVS.json new file mode 100644 index 0000000..30cea38 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG_QUERY.REACT_SERVS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .react_servs->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,REACT_SERVS*DESCRIPTION]' )\r\n.react_servs->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .react_servs->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG_QUERY.REACT_SERVS_CAT.json b/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG_QUERY.REACT_SERVS_CAT.json new file mode 100644 index 0000000..0f729b0 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG_QUERY.REACT_SERVS_CAT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .react_servs_cat->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,REACT_SERV_CAT*REACTOR_SERVICE_CATEGORY]' )\r\n.react_servs_cat->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .react_servs_cat->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG_RPT3.REACT_ITEMS.json b/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG_RPT3.REACT_ITEMS.json new file mode 100644 index 0000000..1a20ab4 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG_RPT3.REACT_ITEMS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .react_items->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,REACT_ITEMS*DESCRIPTION]' )\r\n.react_items->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .react_items->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG_RPT3.REACT_PROBS.json b/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG_RPT3.REACT_PROBS.json new file mode 100644 index 0000000..fd1eba9 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG_RPT3.REACT_PROBS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .react_probs->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,REACT_PROBS*DESCRIPTION]' )\r\n.react_probs->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .react_probs->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG_RPT3.REACT_SERVS.json b/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG_RPT3.REACT_SERVS.json new file mode 100644 index 0000000..30cea38 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG_RPT3.REACT_SERVS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .react_servs->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,REACT_SERVS*DESCRIPTION]' )\r\n.react_servs->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .react_servs->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG_RPT4.REACT_PROBS.json b/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG_RPT4.REACT_PROBS.json new file mode 100644 index 0000000..fd1eba9 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG_RPT4.REACT_PROBS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .react_probs->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,REACT_PROBS*DESCRIPTION]' )\r\n.react_probs->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .react_probs->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG_RPT4.REACT_SERVS.json b/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG_RPT4.REACT_SERVS.json new file mode 100644 index 0000000..30cea38 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG_RPT4.REACT_SERVS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .react_servs->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,REACT_SERVS*DESCRIPTION]' )\r\n.react_servs->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .react_servs->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG_SRPT1.REACT_PROBS_CAT.json b/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG_SRPT1.REACT_PROBS_CAT.json new file mode 100644 index 0000000..b583e69 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG_SRPT1.REACT_PROBS_CAT.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .react_probs_cat->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,REACT_PROB_CAT*REACTOR_PROBLEM_CATEGORY]' )\r\n.react_probs_cat->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .react_probs_cat->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG_SRPT1.REACT_SERVS.json b/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG_SRPT1.REACT_SERVS.json new file mode 100644 index 0000000..30cea38 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/REACTOR_LOG_SRPT1.REACT_SERVS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .react_servs->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,REACT_SERVS*DESCRIPTION]' )\r\n.react_servs->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .react_servs->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/REACTOR_PM_QUERY.REACT_SERVS.json b/LSL2/OIEVENT/POSCHANGED/REACTOR_PM_QUERY.REACT_SERVS.json new file mode 100644 index 0000000..30cea38 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/REACTOR_PM_QUERY.REACT_SERVS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .react_servs->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,REACT_SERVS*DESCRIPTION]' )\r\n.react_servs->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .react_servs->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/REACT_HRS.REACT_INFO.json b/LSL2/OIEVENT/POSCHANGED/REACT_HRS.REACT_INFO.json new file mode 100644 index 0000000..138958f --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/REACT_HRS.REACT_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nif NextColumn = 1 then\r\n NextColumn = 2\r\n .react_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked', 0 )\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/RECIPE_BROWSE2.RECIPE_LAYER_LIMITS.json b/LSL2/OIEVENT/POSCHANGED/RECIPE_BROWSE2.RECIPE_LAYER_LIMITS.json new file mode 100644 index 0000000..8e3b4df --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/RECIPE_BROWSE2.RECIPE_LAYER_LIMITS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_status\r\ndeclare subroutine forward_event\r\n\r\nSelPos = .recipe_info->selpos\r\nCol = SelPos<1>\r\nRow = SelPos<2>\r\nif Row > 1 then\r\n .recipe_info->selpos = SelPos<1>:@fm:1\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/RECIPE_BROWSE2.RECIPE_LIMITS.json b/LSL2/OIEVENT/POSCHANGED/RECIPE_BROWSE2.RECIPE_LIMITS.json new file mode 100644 index 0000000..8e3b4df --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/RECIPE_BROWSE2.RECIPE_LIMITS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function get_status\r\ndeclare subroutine forward_event\r\n\r\nSelPos = .recipe_info->selpos\r\nCol = SelPos<1>\r\nRow = SelPos<2>\r\nif Row > 1 then\r\n .recipe_info->selpos = SelPos<1>:@fm:1\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/SCHEDULE_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/SCHEDULE_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..9b143c3 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/SCHEDULE_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/SCHEDULE_SRL_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/SCHEDULE_SRL_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..29ec271 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/SCHEDULE_SRL_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( CtrlEntId, CtrlClassId, NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/SCHED_RPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/SCHED_RPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..9b143c3 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/SCHED_RPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/SCHED_RPT2.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/SCHED_RPT2.CUSTOMER_INFO.json new file mode 100644 index 0000000..9b143c3 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/SCHED_RPT2.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/SCHED_RPT3.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/SCHED_RPT3.CUSTOMER_INFO.json new file mode 100644 index 0000000..9b143c3 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/SCHED_RPT3.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/SCHED_RPT4.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/SCHED_RPT4.CUSTOMER_INFO.json new file mode 100644 index 0000000..9b143c3 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/SCHED_RPT4.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/SCHED_SRPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/SCHED_SRPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..9b143c3 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/SCHED_SRPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/SCHED_SRPT2.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/SCHED_SRPT2.CUSTOMER_INFO.json new file mode 100644 index 0000000..9b143c3 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/SCHED_SRPT2.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/SCHED_SRPT3.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/SCHED_SRPT3.CUSTOMER_INFO.json new file mode 100644 index 0000000..9b143c3 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/SCHED_SRPT3.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/SCRUBBER_MAINT_MULT.LL_INFO.json b/LSL2/OIEVENT/POSCHANGED/SCRUBBER_MAINT_MULT.LL_INFO.json new file mode 100644 index 0000000..d881c9f --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/SCRUBBER_MAINT_MULT.LL_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function msg\r\n\r\nforward_event()\r\nCurTime = time()\r\nSelPos = .ll_info->selpos\r\nCurCol = SelPos<1>\r\nCurRow = SelPos<2>\r\nLastSelPos = set_property( @window, '@LastSelPos', SelPos )\r\nCurArray = .ll_info->array\r\nCol = LastSelPos<1>\r\nRow = LastSelPos<2>\r\nLastVal = set_property( @window, '@LastVal', CurArray )\r\n\r\nif Col = 3 or Col = 5 then\r\n TCurVal = CurArray\r\n if TCurVal <> LastVal then\r\n * only set dates if they have changed the time cause they may with to override the \r\n * default date\r\n\t CurVal = iconv( CurArray, 'MT' )\r\n\t if CurVal > CurTime then \r\n\t CurArray<2,Row> = oconv( date()-1, 'D2/' )\r\n\t CurArray<4,Row> = oconv( date()-1, 'D2/' ) \r\n\t CurArray<5,Row> = CurArray ;* set end time to start time \r\n\t ;* cause a lot of times they dont charge any\r\n\t ;* time if reactor is down\r\n\t \r\n\t \r\n\t end else\r\n\t if CurVal <> '' then\r\n\t\t CurArray<2,Row> = oconv( date(), 'D2/' )\r\n\t\t CurArray<4,Row> = oconv( date(), 'D2/' )\r\n\t\t CurArray<5,Row> = CurArray ;* set end time to start time \r\n\t\t ;* cause a lot of times they dont charge any\r\n\t\t ;* time if reactor is down\r\n\t end \r\n\t end \r\n end\r\n .ll_info->array = CurArray\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/SEMI_LOG_QUERY.TECHS.json b/LSL2/OIEVENT/POSCHANGED/SEMI_LOG_QUERY.TECHS.json new file mode 100644 index 0000000..79e4b83 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/SEMI_LOG_QUERY.TECHS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .techs->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.techs->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .techs->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/SRP_COC_RESULTS_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/SRP_COC_RESULTS_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..9b143c3 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/SRP_COC_RESULTS_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/SRP_INCOMING_LOG_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/SRP_INCOMING_LOG_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..9b143c3 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/SRP_INCOMING_LOG_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/SRP_INCOMING_LOG_QUERY.ENGINEERS.json b/LSL2/OIEVENT/POSCHANGED/SRP_INCOMING_LOG_QUERY.ENGINEERS.json new file mode 100644 index 0000000..f63070f --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/SRP_INCOMING_LOG_QUERY.ENGINEERS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .engineers->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.engineers->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .engineers->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/SUB_REC_LOG_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/SUB_REC_LOG_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..9b143c3 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/SUB_REC_LOG_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/SUB_REC_LOG_QUERY.RECEIVERS.json b/LSL2/OIEVENT/POSCHANGED/SUB_REC_LOG_QUERY.RECEIVERS.json new file mode 100644 index 0000000..91e688d --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/SUB_REC_LOG_QUERY.RECEIVERS.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .receivers->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.receivers->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .receivers->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/TW_PRIME_USAGE.TW_INFO.json b/LSL2/OIEVENT/POSCHANGED/TW_PRIME_USAGE.TW_INFO.json new file mode 100644 index 0000000..cebf552 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/TW_PRIME_USAGE.TW_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nif NextColumn = 3 then\r\n NextColumn = 1\r\n NextRow += 1\r\n .tw_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/TW_USAGE.TW_INFO.json b/LSL2/OIEVENT/POSCHANGED/TW_USAGE.TW_INFO.json new file mode 100644 index 0000000..cebf552 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/TW_USAGE.TW_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nif NextColumn = 3 then\r\n NextColumn = 1\r\n NextRow += 1\r\n .tw_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/USERS_SRPT1.EMPLOYEE_INFO.json b/LSL2/OIEVENT/POSCHANGED/USERS_SRPT1.EMPLOYEE_INFO.json new file mode 100644 index 0000000..6a234fa --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/USERS_SRPT1.EMPLOYEE_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .employee_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.employee_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .employee_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/USERS_SRPT1.SUPERVISOR_INFO.json b/LSL2/OIEVENT/POSCHANGED/USERS_SRPT1.SUPERVISOR_INFO.json new file mode 100644 index 0000000..2efc46c --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/USERS_SRPT1.SUPERVISOR_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .supervisor_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.supervisor_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .supervisor_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/WAFER_INV_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/WAFER_INV_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..9b143c3 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/WAFER_INV_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/WO_LOG_QUERY.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/WO_LOG_QUERY.CUSTOMER_INFO.json new file mode 100644 index 0000000..11a2af4 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/WO_LOG_QUERY.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked', 0 )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/WO_LOG_RPT1.CUSTOMER_INFO.json b/LSL2/OIEVENT/POSCHANGED/WO_LOG_RPT1.CUSTOMER_INFO.json new file mode 100644 index 0000000..11a2af4 --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/WO_LOG_RPT1.CUSTOMER_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\n\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked', 0 )\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/WO_MAINT_SCHED.SCHED_INFO.json b/LSL2/OIEVENT/POSCHANGED/WO_MAINT_SCHED.SCHED_INFO.json new file mode 100644 index 0000000..2eb442f --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/WO_MAINT_SCHED.SCHED_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "SelPos = .sched_info->selpos\r\nCol = SelPos<1>\r\nRow = SelPos<2>\r\n\r\nif Row < 20 then\r\n .sched_info->toppos = Col:@fm:20\r\nend\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/POSCHANGED/WO_MAST_SCHED.SCHED_INFO.json b/LSL2/OIEVENT/POSCHANGED/WO_MAST_SCHED.SCHED_INFO.json new file mode 100644 index 0000000..2eb442f --- /dev/null +++ b/LSL2/OIEVENT/POSCHANGED/WO_MAST_SCHED.SCHED_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "SelPos = .sched_info->selpos\r\nCol = SelPos<1>\r\nRow = SelPos<2>\r\n\r\nif Row < 20 then\r\n .sched_info->toppos = Col:@fm:20\r\nend\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/ANNUAL_CONTRACTS..json b/LSL2/OIEVENT/QBFABS/ANNUAL_CONTRACTS..json new file mode 100644 index 0000000..15e8295 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/ANNUAL_CONTRACTS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/ASSIGN_CAUSE..json b/LSL2/OIEVENT/QBFABS/ASSIGN_CAUSE..json new file mode 100644 index 0000000..92d41e1 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/ASSIGN_CAUSE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/ATTENDANCE..json b/LSL2/OIEVENT/QBFABS/ATTENDANCE..json new file mode 100644 index 0000000..92d41e1 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/ATTENDANCE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/CALL_VISIT..json b/LSL2/OIEVENT/QBFABS/CALL_VISIT..json new file mode 100644 index 0000000..92d41e1 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/CALL_VISIT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/CAR..json b/LSL2/OIEVENT/QBFABS/CAR..json new file mode 100644 index 0000000..15e8295 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/CAR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/CDM_LOG..json b/LSL2/OIEVENT/QBFABS/CDM_LOG..json new file mode 100644 index 0000000..15e8295 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/CDM_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/COC..json b/LSL2/OIEVENT/QBFABS/COC..json new file mode 100644 index 0000000..92d41e1 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/COC..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/COMPANY..json b/LSL2/OIEVENT/QBFABS/COMPANY..json new file mode 100644 index 0000000..15e8295 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/COMPANY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/CUST_INQUIRY..json b/LSL2/OIEVENT/QBFABS/CUST_INQUIRY..json new file mode 100644 index 0000000..92d41e1 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/CUST_INQUIRY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/DESIG_ERR_GRP..json b/LSL2/OIEVENT/QBFABS/DESIG_ERR_GRP..json new file mode 100644 index 0000000..92d41e1 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/DESIG_ERR_GRP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/HOTH2O2_LOG..json b/LSL2/OIEVENT/QBFABS/HOTH2O2_LOG..json new file mode 100644 index 0000000..15e8295 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/HOTH2O2_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/INVOICE..json b/LSL2/OIEVENT/QBFABS/INVOICE..json new file mode 100644 index 0000000..15e8295 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/INVOICE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/LAST_WFR_CI_GROUP..json b/LSL2/OIEVENT/QBFABS/LAST_WFR_CI_GROUP..json new file mode 100644 index 0000000..35f5dbe --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/LAST_WFR_CI_GROUP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event, rds_comm\r\n\r\nif rds_comm( 'CHECK_NCR_SAVE' ) then\r\n * DO NOTHING CAUSE THE USER WAS ASKED TO SAVE AND THEY SAID NO BUT WE MUST\r\n return 0\r\nend\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/LISTBOX_CONFIG..json b/LSL2/OIEVENT/QBFABS/LISTBOX_CONFIG..json new file mode 100644 index 0000000..471ef66 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/LISTBOX_CONFIG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event, rds_comm\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/LOSS_CODES..json b/LSL2/OIEVENT/QBFABS/LOSS_CODES..json new file mode 100644 index 0000000..92d41e1 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/LOSS_CODES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/MASTER_DISK_LOG..json b/LSL2/OIEVENT/QBFABS/MASTER_DISK_LOG..json new file mode 100644 index 0000000..15e8295 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/MASTER_DISK_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/MEG_LOG..json b/LSL2/OIEVENT/QBFABS/MEG_LOG..json new file mode 100644 index 0000000..15e8295 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/MEG_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/NAMES..json b/LSL2/OIEVENT/QBFABS/NAMES..json new file mode 100644 index 0000000..15e8295 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/NAMES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/NDA..json b/LSL2/OIEVENT/QBFABS/NDA..json new file mode 100644 index 0000000..15e8295 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/NDA..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/ORDER..json b/LSL2/OIEVENT/QBFABS/ORDER..json new file mode 100644 index 0000000..15e8295 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/ORDER..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/PHOTOFLO_LOG..json b/LSL2/OIEVENT/QBFABS/PHOTOFLO_LOG..json new file mode 100644 index 0000000..15e8295 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/PHOTOFLO_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/QUARTZ_TC_LOG..json b/LSL2/OIEVENT/QBFABS/QUARTZ_TC_LOG..json new file mode 100644 index 0000000..92d41e1 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/QUARTZ_TC_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/QUARTZ_WAND_LOG..json b/LSL2/OIEVENT/QBFABS/QUARTZ_WAND_LOG..json new file mode 100644 index 0000000..92d41e1 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/QUARTZ_WAND_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/QUOTE..json b/LSL2/OIEVENT/QBFABS/QUOTE..json new file mode 100644 index 0000000..15e8295 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/QUOTE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/QUOTE_OLD..json b/LSL2/OIEVENT/QBFABS/QUOTE_OLD..json new file mode 100644 index 0000000..15e8295 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/QUOTE_OLD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/QUOTE_SRL..json b/LSL2/OIEVENT/QBFABS/QUOTE_SRL..json new file mode 100644 index 0000000..15e8295 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/QUOTE_SRL..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/RDS..json b/LSL2/OIEVENT/QBFABS/RDS..json new file mode 100644 index 0000000..fb86d5b --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/RDS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event, rds_comm\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/RDS_POST_EPI..json b/LSL2/OIEVENT/QBFABS/RDS_POST_EPI..json new file mode 100644 index 0000000..15e8295 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/RDS_POST_EPI..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/RDS_PRE_EPI..json b/LSL2/OIEVENT/QBFABS/RDS_PRE_EPI..json new file mode 100644 index 0000000..92d41e1 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/RDS_PRE_EPI..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/RDS_PRE_EPI_ORG..json b/LSL2/OIEVENT/QBFABS/RDS_PRE_EPI_ORG..json new file mode 100644 index 0000000..92d41e1 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/RDS_PRE_EPI_ORG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/RDS_UNLOAD..json b/LSL2/OIEVENT/QBFABS/RDS_UNLOAD..json new file mode 100644 index 0000000..35f5dbe --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/RDS_UNLOAD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event, rds_comm\r\n\r\nif rds_comm( 'CHECK_NCR_SAVE' ) then\r\n * DO NOTHING CAUSE THE USER WAS ASKED TO SAVE AND THEY SAID NO BUT WE MUST\r\n return 0\r\nend\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/REACTOR_LOG_AREV..json b/LSL2/OIEVENT/QBFABS/REACTOR_LOG_AREV..json new file mode 100644 index 0000000..92d41e1 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/REACTOR_LOG_AREV..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/REACT_ITEMS..json b/LSL2/OIEVENT/QBFABS/REACT_ITEMS..json new file mode 100644 index 0000000..92d41e1 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/REACT_ITEMS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/REACT_PROBS..json b/LSL2/OIEVENT/QBFABS/REACT_PROBS..json new file mode 100644 index 0000000..92d41e1 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/REACT_PROBS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/REACT_PROB_CAT..json b/LSL2/OIEVENT/QBFABS/REACT_PROB_CAT..json new file mode 100644 index 0000000..92d41e1 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/REACT_PROB_CAT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/RECIPE..json b/LSL2/OIEVENT/QBFABS/RECIPE..json new file mode 100644 index 0000000..15e8295 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/RECIPE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/SCHEDULE..json b/LSL2/OIEVENT/QBFABS/SCHEDULE..json new file mode 100644 index 0000000..15e8295 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/SCHEDULE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/SCHEDULE_SRL..json b/LSL2/OIEVENT/QBFABS/SCHEDULE_SRL..json new file mode 100644 index 0000000..15e8295 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/SCHEDULE_SRL..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/SEMI_LOG..json b/LSL2/OIEVENT/QBFABS/SEMI_LOG..json new file mode 100644 index 0000000..15e8295 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/SEMI_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/SPC_CLEAN_HF..json b/LSL2/OIEVENT/QBFABS/SPC_CLEAN_HF..json new file mode 100644 index 0000000..92d41e1 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/SPC_CLEAN_HF..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/SPC_CLEAN_HF_AKRION..json b/LSL2/OIEVENT/QBFABS/SPC_CLEAN_HF_AKRION..json new file mode 100644 index 0000000..92d41e1 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/SPC_CLEAN_HF_AKRION..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/SPC_CLEAN_HF_ETCH..json b/LSL2/OIEVENT/QBFABS/SPC_CLEAN_HF_ETCH..json new file mode 100644 index 0000000..92d41e1 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/SPC_CLEAN_HF_ETCH..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/SPC_CLEAN_HF_ETCH_AKRION..json b/LSL2/OIEVENT/QBFABS/SPC_CLEAN_HF_ETCH_AKRION..json new file mode 100644 index 0000000..92d41e1 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/SPC_CLEAN_HF_ETCH_AKRION..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/SPC_CLEAN_SC1..json b/LSL2/OIEVENT/QBFABS/SPC_CLEAN_SC1..json new file mode 100644 index 0000000..15e8295 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/SPC_CLEAN_SC1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/SPC_CLEAN_SRD..json b/LSL2/OIEVENT/QBFABS/SPC_CLEAN_SRD..json new file mode 100644 index 0000000..92d41e1 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/SPC_CLEAN_SRD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/SPC_EVAL_4PP..json b/LSL2/OIEVENT/QBFABS/SPC_EVAL_4PP..json new file mode 100644 index 0000000..92d41e1 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/SPC_EVAL_4PP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/SPC_EVAL_ADE..json b/LSL2/OIEVENT/QBFABS/SPC_EVAL_ADE..json new file mode 100644 index 0000000..92d41e1 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/SPC_EVAL_ADE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/SPC_EVAL_FTIR..json b/LSL2/OIEVENT/QBFABS/SPC_EVAL_FTIR..json new file mode 100644 index 0000000..92d41e1 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/SPC_EVAL_FTIR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/SPC_REACTOR_PARTICLES..json b/LSL2/OIEVENT/QBFABS/SPC_REACTOR_PARTICLES..json new file mode 100644 index 0000000..92d41e1 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/SPC_REACTOR_PARTICLES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/SPC_WAFER_ETCH..json b/LSL2/OIEVENT/QBFABS/SPC_WAFER_ETCH..json new file mode 100644 index 0000000..15e8295 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/SPC_WAFER_ETCH..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/SRP_COC_RESULTS..json b/LSL2/OIEVENT/QBFABS/SRP_COC_RESULTS..json new file mode 100644 index 0000000..92d41e1 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/SRP_COC_RESULTS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/SRP_INCOMING_LOG..json b/LSL2/OIEVENT/QBFABS/SRP_INCOMING_LOG..json new file mode 100644 index 0000000..15e8295 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/SRP_INCOMING_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/SUB_REC_LOG..json b/LSL2/OIEVENT/QBFABS/SUB_REC_LOG..json new file mode 100644 index 0000000..15e8295 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/SUB_REC_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/TEST..json b/LSL2/OIEVENT/QBFABS/TEST..json new file mode 100644 index 0000000..0c52e8d --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/TEST..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\nVoid = msg( AbsPos )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/TW_CODES..json b/LSL2/OIEVENT/QBFABS/TW_CODES..json new file mode 100644 index 0000000..15e8295 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/TW_CODES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/TW_PRIME_USAGE..json b/LSL2/OIEVENT/QBFABS/TW_PRIME_USAGE..json new file mode 100644 index 0000000..15e8295 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/TW_PRIME_USAGE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/TW_USAGE..json b/LSL2/OIEVENT/QBFABS/TW_USAGE..json new file mode 100644 index 0000000..15e8295 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/TW_USAGE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/WAFER_INV..json b/LSL2/OIEVENT/QBFABS/WAFER_INV..json new file mode 100644 index 0000000..15e8295 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/WAFER_INV..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/WO_LOG..json b/LSL2/OIEVENT/QBFABS/WO_LOG..json new file mode 100644 index 0000000..92d41e1 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/WO_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFABS/WO_VERIFY..json b/LSL2/OIEVENT/QBFABS/WO_VERIFY..json new file mode 100644 index 0000000..97182b1 --- /dev/null +++ b/LSL2/OIEVENT/QBFABS/WO_VERIFY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event\r\n\r\n* NOT ACCESSIBLE VIA THE MAIN MENU AS OF NOW - JUST WANTED TO \r\n* HAVE THE CODE IN PLACE IN CASE WE DECIDE TO CHANGE THE INTERFACE LATER\r\n\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nVoid = post_event( CtrlEntId, 'READ' )\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/ANNUAL_CONTRACTS..json b/LSL2/OIEVENT/QBFCLOSE/ANNUAL_CONTRACTS..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/ANNUAL_CONTRACTS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/ASSIGN_CAUSE..json b/LSL2/OIEVENT/QBFCLOSE/ASSIGN_CAUSE..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/ASSIGN_CAUSE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/ATTENDANCE..json b/LSL2/OIEVENT/QBFCLOSE/ATTENDANCE..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/ATTENDANCE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/CALL_VISIT..json b/LSL2/OIEVENT/QBFCLOSE/CALL_VISIT..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/CALL_VISIT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/CAR..json b/LSL2/OIEVENT/QBFCLOSE/CAR..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/CAR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/CDM_LOG..json b/LSL2/OIEVENT/QBFCLOSE/CDM_LOG..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/CDM_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/COC..json b/LSL2/OIEVENT/QBFCLOSE/COC..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/COC..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/COMPANY..json b/LSL2/OIEVENT/QBFCLOSE/COMPANY..json new file mode 100644 index 0000000..402bbc9 --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/COMPANY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function send_event\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nVoid = send_event( CtrlEntId, 'CLEAR' )\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/CUST_INQUIRY..json b/LSL2/OIEVENT/QBFCLOSE/CUST_INQUIRY..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/CUST_INQUIRY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/DESIG_ERR_GRP..json b/LSL2/OIEVENT/QBFCLOSE/DESIG_ERR_GRP..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/DESIG_ERR_GRP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/HOTH2O2_LOG..json b/LSL2/OIEVENT/QBFCLOSE/HOTH2O2_LOG..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/HOTH2O2_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/INVOICE..json b/LSL2/OIEVENT/QBFCLOSE/INVOICE..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/INVOICE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/LAST_WFR_CI_GROUP..json b/LSL2/OIEVENT/QBFCLOSE/LAST_WFR_CI_GROUP..json new file mode 100644 index 0000000..2b9ec02 --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/LAST_WFR_CI_GROUP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property, send_event, rds_comm\r\n\r\nif rds_comm( 'CHECK_NCR_SAVE' ) then\r\n * DO NOTHING CAUSE THE USER WAS ASKED TO SAVE AND THEY SAID NO BUT WE MUST\r\n return 0\r\nend\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nvoid = send_event( @window, 'CLEAR' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/LISTBOX_CONFIG..json b/LSL2/OIEVENT/QBFCLOSE/LISTBOX_CONFIG..json new file mode 100644 index 0000000..975602b --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/LISTBOX_CONFIG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property, send_event, rds_comm\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nvoid = send_event( @window, 'CLEAR' )\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/LOSS_CODES..json b/LSL2/OIEVENT/QBFCLOSE/LOSS_CODES..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/LOSS_CODES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/MASTER_DISK_LOG..json b/LSL2/OIEVENT/QBFCLOSE/MASTER_DISK_LOG..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/MASTER_DISK_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/MEG_LOG..json b/LSL2/OIEVENT/QBFCLOSE/MEG_LOG..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/MEG_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/NAMES..json b/LSL2/OIEVENT/QBFCLOSE/NAMES..json new file mode 100644 index 0000000..956ac17 --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/NAMES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event, set_property, send_event, fieldcount\r\ndeclare subroutine forward_Event\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )\r\nfor i = 1 to Acnt\r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n Void = set_property( ThisControl, 'ENABLED', 1 )\r\n end\r\nnext i\t\r\nvoid = post_event( @window:'.SEQ', 'GOTFOCUS', '' )\r\nvoid = set_property( @window:'.SEQ', 'FOCUS', 1 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/NDA..json b/LSL2/OIEVENT/QBFCLOSE/NDA..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/NDA..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/ORDER..json b/LSL2/OIEVENT/QBFCLOSE/ORDER..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/ORDER..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/PHOTOFLO_LOG..json b/LSL2/OIEVENT/QBFCLOSE/PHOTOFLO_LOG..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/PHOTOFLO_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/QUARTZ_TC_LOG..json b/LSL2/OIEVENT/QBFCLOSE/QUARTZ_TC_LOG..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/QUARTZ_TC_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/QUARTZ_WAND_LOG..json b/LSL2/OIEVENT/QBFCLOSE/QUARTZ_WAND_LOG..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/QUARTZ_WAND_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/QUOTE..json b/LSL2/OIEVENT/QBFCLOSE/QUOTE..json new file mode 100644 index 0000000..f51362d --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/QUOTE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, set_property\r\ndeclare function send_event, fieldcount\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/QUOTE_OLD..json b/LSL2/OIEVENT/QBFCLOSE/QUOTE_OLD..json new file mode 100644 index 0000000..f51362d --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/QUOTE_OLD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, set_property\r\ndeclare function send_event, fieldcount\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/QUOTE_SRL..json b/LSL2/OIEVENT/QBFCLOSE/QUOTE_SRL..json new file mode 100644 index 0000000..7ca1887 --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/QUOTE_SRL..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, set_property\r\ndeclare function send_event, fieldcount\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/RDS..json b/LSL2/OIEVENT/QBFCLOSE/RDS..json new file mode 100644 index 0000000..9bea0f9 --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/RDS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property, send_event, rds_comm\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nvoid = send_event( @window, 'CLEAR' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/RDS_POST_EPI..json b/LSL2/OIEVENT/QBFCLOSE/RDS_POST_EPI..json new file mode 100644 index 0000000..5003b10 --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/RDS_POST_EPI..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property, send_event\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nvoid = send_event( @window, 'CLEAR' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/RDS_PRE_EPI..json b/LSL2/OIEVENT/QBFCLOSE/RDS_PRE_EPI..json new file mode 100644 index 0000000..5003b10 --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/RDS_PRE_EPI..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property, send_event\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nvoid = send_event( @window, 'CLEAR' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/RDS_PRE_EPI_ORG..json b/LSL2/OIEVENT/QBFCLOSE/RDS_PRE_EPI_ORG..json new file mode 100644 index 0000000..5003b10 --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/RDS_PRE_EPI_ORG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property, send_event\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nvoid = send_event( @window, 'CLEAR' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/RDS_UNLOAD..json b/LSL2/OIEVENT/QBFCLOSE/RDS_UNLOAD..json new file mode 100644 index 0000000..2b9ec02 --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/RDS_UNLOAD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property, send_event, rds_comm\r\n\r\nif rds_comm( 'CHECK_NCR_SAVE' ) then\r\n * DO NOTHING CAUSE THE USER WAS ASKED TO SAVE AND THEY SAID NO BUT WE MUST\r\n return 0\r\nend\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nvoid = send_event( @window, 'CLEAR' )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/REACTOR_LOG_AREV..json b/LSL2/OIEVENT/QBFCLOSE/REACTOR_LOG_AREV..json new file mode 100644 index 0000000..ff2aa05 --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/REACTOR_LOG_AREV..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/REACT_ITEMS..json b/LSL2/OIEVENT/QBFCLOSE/REACT_ITEMS..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/REACT_ITEMS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/REACT_PROBS..json b/LSL2/OIEVENT/QBFCLOSE/REACT_PROBS..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/REACT_PROBS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/REACT_PROB_CAT..json b/LSL2/OIEVENT/QBFCLOSE/REACT_PROB_CAT..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/REACT_PROB_CAT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/RECIPE..json b/LSL2/OIEVENT/QBFCLOSE/RECIPE..json new file mode 100644 index 0000000..17c8537 --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/RECIPE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/SCHEDULE..json b/LSL2/OIEVENT/QBFCLOSE/SCHEDULE..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/SCHEDULE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/SCHEDULE_SRL..json b/LSL2/OIEVENT/QBFCLOSE/SCHEDULE_SRL..json new file mode 100644 index 0000000..ff2aa05 --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/SCHEDULE_SRL..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/SEMI_LOG..json b/LSL2/OIEVENT/QBFCLOSE/SEMI_LOG..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/SEMI_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/SPC_CLEAN_HF..json b/LSL2/OIEVENT/QBFCLOSE/SPC_CLEAN_HF..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/SPC_CLEAN_HF..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/SPC_CLEAN_HF_AKRION..json b/LSL2/OIEVENT/QBFCLOSE/SPC_CLEAN_HF_AKRION..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/SPC_CLEAN_HF_AKRION..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/SPC_CLEAN_HF_ETCH..json b/LSL2/OIEVENT/QBFCLOSE/SPC_CLEAN_HF_ETCH..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/SPC_CLEAN_HF_ETCH..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/SPC_CLEAN_HF_ETCH_AKRION..json b/LSL2/OIEVENT/QBFCLOSE/SPC_CLEAN_HF_ETCH_AKRION..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/SPC_CLEAN_HF_ETCH_AKRION..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/SPC_CLEAN_SC1..json b/LSL2/OIEVENT/QBFCLOSE/SPC_CLEAN_SC1..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/SPC_CLEAN_SC1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/SPC_CLEAN_SRD..json b/LSL2/OIEVENT/QBFCLOSE/SPC_CLEAN_SRD..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/SPC_CLEAN_SRD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/SPC_EVAL_4PP..json b/LSL2/OIEVENT/QBFCLOSE/SPC_EVAL_4PP..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/SPC_EVAL_4PP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/SPC_EVAL_ADE..json b/LSL2/OIEVENT/QBFCLOSE/SPC_EVAL_ADE..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/SPC_EVAL_ADE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/SPC_EVAL_FTIR..json b/LSL2/OIEVENT/QBFCLOSE/SPC_EVAL_FTIR..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/SPC_EVAL_FTIR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/SPC_REACTOR_PARTICLES..json b/LSL2/OIEVENT/QBFCLOSE/SPC_REACTOR_PARTICLES..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/SPC_REACTOR_PARTICLES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/SPC_WAFER_ETCH..json b/LSL2/OIEVENT/QBFCLOSE/SPC_WAFER_ETCH..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/SPC_WAFER_ETCH..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/SRP_COC_RESULTS..json b/LSL2/OIEVENT/QBFCLOSE/SRP_COC_RESULTS..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/SRP_COC_RESULTS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/SRP_INCOMING_LOG..json b/LSL2/OIEVENT/QBFCLOSE/SRP_INCOMING_LOG..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/SRP_INCOMING_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/SUB_REC_LOG..json b/LSL2/OIEVENT/QBFCLOSE/SUB_REC_LOG..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/SUB_REC_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/TW_CODES..json b/LSL2/OIEVENT/QBFCLOSE/TW_CODES..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/TW_CODES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/TW_PRIME_USAGE..json b/LSL2/OIEVENT/QBFCLOSE/TW_PRIME_USAGE..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/TW_PRIME_USAGE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/TW_USAGE..json b/LSL2/OIEVENT/QBFCLOSE/TW_USAGE..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/TW_USAGE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/WAFER_INV..json b/LSL2/OIEVENT/QBFCLOSE/WAFER_INV..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/WAFER_INV..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/WO_LOG..json b/LSL2/OIEVENT/QBFCLOSE/WO_LOG..json new file mode 100644 index 0000000..c27642e --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/WO_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFCLOSE/WO_VERIFY..json b/LSL2/OIEVENT/QBFCLOSE/WO_VERIFY..json new file mode 100644 index 0000000..bbd0b4f --- /dev/null +++ b/LSL2/OIEVENT/QBFCLOSE/WO_VERIFY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function fieldcount, set_property\r\n\r\n* NOT ACCESSIBLE VIA THE MAIN MENU AS OF NOW - JUST WANTED TO \r\n* HAVE THE CODE IN PLACE IN CASE WE DECIDE TO CHANGE THE INTERFACE LATER\r\n\r\nforward_event()\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm ) \r\nfor i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 1 )\r\n end \r\nnext i \r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/ANNUAL_CONTRACTS..json b/LSL2/OIEVENT/QBFFIRST/ANNUAL_CONTRACTS..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/ANNUAL_CONTRACTS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/ASSIGN_CAUSE..json b/LSL2/OIEVENT/QBFFIRST/ASSIGN_CAUSE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/ASSIGN_CAUSE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/ATTENDANCE..json b/LSL2/OIEVENT/QBFFIRST/ATTENDANCE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/ATTENDANCE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/CALL_VISIT..json b/LSL2/OIEVENT/QBFFIRST/CALL_VISIT..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/CALL_VISIT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/CAR..json b/LSL2/OIEVENT/QBFFIRST/CAR..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/CAR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/CDM_LOG..json b/LSL2/OIEVENT/QBFFIRST/CDM_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/CDM_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/COC..json b/LSL2/OIEVENT/QBFFIRST/COC..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/COC..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/COMPANY..json b/LSL2/OIEVENT/QBFFIRST/COMPANY..json new file mode 100644 index 0000000..fcc0db1 --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/COMPANY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function company_comm\r\ndeclare subroutine forward_event, send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nsend_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/CUST_INQUIRY..json b/LSL2/OIEVENT/QBFFIRST/CUST_INQUIRY..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/CUST_INQUIRY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/DESIG_ERR_GRP..json b/LSL2/OIEVENT/QBFFIRST/DESIG_ERR_GRP..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/DESIG_ERR_GRP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/HOTH2O2_LOG..json b/LSL2/OIEVENT/QBFFIRST/HOTH2O2_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/HOTH2O2_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/INVOICE..json b/LSL2/OIEVENT/QBFFIRST/INVOICE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/INVOICE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/LAST_WFR_CI_GROUP..json b/LSL2/OIEVENT/QBFFIRST/LAST_WFR_CI_GROUP..json new file mode 100644 index 0000000..e003e0a --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/LAST_WFR_CI_GROUP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event, rds_comm\r\n\r\nif rds_comm( 'CHECK_NCR_SAVE' ) then\r\n * DO NOTHING CAUSE THE USER WAS ASKED TO SAVE AND THEY SAID NO BUT WE MUST\r\n return 0\r\nend\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/LISTBOX_CONFIG..json b/LSL2/OIEVENT/QBFFIRST/LISTBOX_CONFIG..json new file mode 100644 index 0000000..47e6bfa --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/LISTBOX_CONFIG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event, rds_comm\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/LOSS_CODES..json b/LSL2/OIEVENT/QBFFIRST/LOSS_CODES..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/LOSS_CODES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/MASTER_DISK_LOG..json b/LSL2/OIEVENT/QBFFIRST/MASTER_DISK_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/MASTER_DISK_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/MEG_LOG..json b/LSL2/OIEVENT/QBFFIRST/MEG_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/MEG_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/NAMES..json b/LSL2/OIEVENT/QBFFIRST/NAMES..json new file mode 100644 index 0000000..ecaf517 --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/NAMES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nsend_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/NDA..json b/LSL2/OIEVENT/QBFFIRST/NDA..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/NDA..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/ORDER..json b/LSL2/OIEVENT/QBFFIRST/ORDER..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/ORDER..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/PHOTOFLO_LOG..json b/LSL2/OIEVENT/QBFFIRST/PHOTOFLO_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/PHOTOFLO_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/QUARTZ_TC_LOG..json b/LSL2/OIEVENT/QBFFIRST/QUARTZ_TC_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/QUARTZ_TC_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/QUARTZ_WAND_LOG..json b/LSL2/OIEVENT/QBFFIRST/QUARTZ_WAND_LOG..json new file mode 100644 index 0000000..fde156f --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/QUARTZ_WAND_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/QUOTE..json b/LSL2/OIEVENT/QBFFIRST/QUOTE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/QUOTE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/QUOTE_OLD..json b/LSL2/OIEVENT/QBFFIRST/QUOTE_OLD..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/QUOTE_OLD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/QUOTE_SRL..json b/LSL2/OIEVENT/QBFFIRST/QUOTE_SRL..json new file mode 100644 index 0000000..9ab6b11 --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/QUOTE_SRL..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/RDS..json b/LSL2/OIEVENT/QBFFIRST/RDS..json new file mode 100644 index 0000000..47e6bfa --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/RDS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event, rds_comm\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/RDS_POST_EPI..json b/LSL2/OIEVENT/QBFFIRST/RDS_POST_EPI..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/RDS_POST_EPI..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/RDS_PRE_EPI..json b/LSL2/OIEVENT/QBFFIRST/RDS_PRE_EPI..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/RDS_PRE_EPI..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/RDS_PRE_EPI_ORG..json b/LSL2/OIEVENT/QBFFIRST/RDS_PRE_EPI_ORG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/RDS_PRE_EPI_ORG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/RDS_UNLOAD..json b/LSL2/OIEVENT/QBFFIRST/RDS_UNLOAD..json new file mode 100644 index 0000000..e003e0a --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/RDS_UNLOAD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event, rds_comm\r\n\r\nif rds_comm( 'CHECK_NCR_SAVE' ) then\r\n * DO NOTHING CAUSE THE USER WAS ASKED TO SAVE AND THEY SAID NO BUT WE MUST\r\n return 0\r\nend\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/REACTOR_LOG_AREV..json b/LSL2/OIEVENT/QBFFIRST/REACTOR_LOG_AREV..json new file mode 100644 index 0000000..9ab6b11 --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/REACTOR_LOG_AREV..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/REACT_ITEMS..json b/LSL2/OIEVENT/QBFFIRST/REACT_ITEMS..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/REACT_ITEMS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/REACT_PROBS..json b/LSL2/OIEVENT/QBFFIRST/REACT_PROBS..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/REACT_PROBS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/REACT_PROB_CAT..json b/LSL2/OIEVENT/QBFFIRST/REACT_PROB_CAT..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/REACT_PROB_CAT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/RECIPE..json b/LSL2/OIEVENT/QBFFIRST/RECIPE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/RECIPE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/SCHEDULE..json b/LSL2/OIEVENT/QBFFIRST/SCHEDULE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/SCHEDULE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/SCHEDULE_SRL..json b/LSL2/OIEVENT/QBFFIRST/SCHEDULE_SRL..json new file mode 100644 index 0000000..9ab6b11 --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/SCHEDULE_SRL..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/SEMI_LOG..json b/LSL2/OIEVENT/QBFFIRST/SEMI_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/SEMI_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/SPC_CLEAN_HF..json b/LSL2/OIEVENT/QBFFIRST/SPC_CLEAN_HF..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/SPC_CLEAN_HF..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/SPC_CLEAN_HF_AKRION..json b/LSL2/OIEVENT/QBFFIRST/SPC_CLEAN_HF_AKRION..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/SPC_CLEAN_HF_AKRION..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/SPC_CLEAN_HF_ETCH..json b/LSL2/OIEVENT/QBFFIRST/SPC_CLEAN_HF_ETCH..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/SPC_CLEAN_HF_ETCH..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/SPC_CLEAN_HF_ETCH_AKRION..json b/LSL2/OIEVENT/QBFFIRST/SPC_CLEAN_HF_ETCH_AKRION..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/SPC_CLEAN_HF_ETCH_AKRION..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/SPC_CLEAN_SC1..json b/LSL2/OIEVENT/QBFFIRST/SPC_CLEAN_SC1..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/SPC_CLEAN_SC1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/SPC_CLEAN_SRD..json b/LSL2/OIEVENT/QBFFIRST/SPC_CLEAN_SRD..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/SPC_CLEAN_SRD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/SPC_EVAL_4PP..json b/LSL2/OIEVENT/QBFFIRST/SPC_EVAL_4PP..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/SPC_EVAL_4PP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/SPC_EVAL_ADE..json b/LSL2/OIEVENT/QBFFIRST/SPC_EVAL_ADE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/SPC_EVAL_ADE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/SPC_EVAL_FTIR..json b/LSL2/OIEVENT/QBFFIRST/SPC_EVAL_FTIR..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/SPC_EVAL_FTIR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/SPC_REACTOR_PARTICLES..json b/LSL2/OIEVENT/QBFFIRST/SPC_REACTOR_PARTICLES..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/SPC_REACTOR_PARTICLES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/SPC_WAFER_ETCH..json b/LSL2/OIEVENT/QBFFIRST/SPC_WAFER_ETCH..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/SPC_WAFER_ETCH..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/SRP_COC_RESULTS..json b/LSL2/OIEVENT/QBFFIRST/SRP_COC_RESULTS..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/SRP_COC_RESULTS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/SRP_INCOMING_LOG..json b/LSL2/OIEVENT/QBFFIRST/SRP_INCOMING_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/SRP_INCOMING_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/SUB_REC_LOG..json b/LSL2/OIEVENT/QBFFIRST/SUB_REC_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/SUB_REC_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/TW_CODES..json b/LSL2/OIEVENT/QBFFIRST/TW_CODES..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/TW_CODES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/TW_PRIME_USAGE..json b/LSL2/OIEVENT/QBFFIRST/TW_PRIME_USAGE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/TW_PRIME_USAGE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/TW_USAGE..json b/LSL2/OIEVENT/QBFFIRST/TW_USAGE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/TW_USAGE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/WAFER_INV..json b/LSL2/OIEVENT/QBFFIRST/WAFER_INV..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/WAFER_INV..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/WO_LOG..json b/LSL2/OIEVENT/QBFFIRST/WO_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/WO_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFFIRST/WO_VERIFY..json b/LSL2/OIEVENT/QBFFIRST/WO_VERIFY..json new file mode 100644 index 0000000..4375e29 --- /dev/null +++ b/LSL2/OIEVENT/QBFFIRST/WO_VERIFY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\n* NOT ACCESSIBLE VIA THE MAIN MENU AS OF NOW - JUST WANTED TO \r\n* HAVE THE CODE IN PLACE IN CASE WE DECIDE TO CHANGE THE INTERFACE LATER\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/ANNUAL_CONTRACTS..json b/LSL2/OIEVENT/QBFLAST/ANNUAL_CONTRACTS..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/ANNUAL_CONTRACTS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/ASSIGN_CAUSE..json b/LSL2/OIEVENT/QBFLAST/ASSIGN_CAUSE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/ASSIGN_CAUSE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/ATTENDANCE..json b/LSL2/OIEVENT/QBFLAST/ATTENDANCE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/ATTENDANCE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/CALL_VISIT..json b/LSL2/OIEVENT/QBFLAST/CALL_VISIT..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/CALL_VISIT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/CAR..json b/LSL2/OIEVENT/QBFLAST/CAR..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/CAR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/CDM_LOG..json b/LSL2/OIEVENT/QBFLAST/CDM_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/CDM_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/COC..json b/LSL2/OIEVENT/QBFLAST/COC..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/COC..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/COMPANY..json b/LSL2/OIEVENT/QBFLAST/COMPANY..json new file mode 100644 index 0000000..fcc0db1 --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/COMPANY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function company_comm\r\ndeclare subroutine forward_event, send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nsend_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/CUST_INQUIRY..json b/LSL2/OIEVENT/QBFLAST/CUST_INQUIRY..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/CUST_INQUIRY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/DESIG_ERR_GRP..json b/LSL2/OIEVENT/QBFLAST/DESIG_ERR_GRP..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/DESIG_ERR_GRP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/HOTH2O2_LOG..json b/LSL2/OIEVENT/QBFLAST/HOTH2O2_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/HOTH2O2_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/INVOICE..json b/LSL2/OIEVENT/QBFLAST/INVOICE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/INVOICE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/LAST_WFR_CI_GROUP..json b/LSL2/OIEVENT/QBFLAST/LAST_WFR_CI_GROUP..json new file mode 100644 index 0000000..e003e0a --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/LAST_WFR_CI_GROUP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event, rds_comm\r\n\r\nif rds_comm( 'CHECK_NCR_SAVE' ) then\r\n * DO NOTHING CAUSE THE USER WAS ASKED TO SAVE AND THEY SAID NO BUT WE MUST\r\n return 0\r\nend\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/LISTBOX_CONFIG..json b/LSL2/OIEVENT/QBFLAST/LISTBOX_CONFIG..json new file mode 100644 index 0000000..47e6bfa --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/LISTBOX_CONFIG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event, rds_comm\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/LOSS_CODES..json b/LSL2/OIEVENT/QBFLAST/LOSS_CODES..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/LOSS_CODES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/MASTER_DISK_LOG..json b/LSL2/OIEVENT/QBFLAST/MASTER_DISK_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/MASTER_DISK_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/MEG_LOG..json b/LSL2/OIEVENT/QBFLAST/MEG_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/MEG_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/NAMES..json b/LSL2/OIEVENT/QBFLAST/NAMES..json new file mode 100644 index 0000000..5432ed2 --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/NAMES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nsend_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/NDA..json b/LSL2/OIEVENT/QBFLAST/NDA..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/NDA..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/ORDER..json b/LSL2/OIEVENT/QBFLAST/ORDER..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/ORDER..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/PHOTOFLO_LOG..json b/LSL2/OIEVENT/QBFLAST/PHOTOFLO_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/PHOTOFLO_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/QUARTZ_TC_LOG..json b/LSL2/OIEVENT/QBFLAST/QUARTZ_TC_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/QUARTZ_TC_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/QUARTZ_WAND_LOG..json b/LSL2/OIEVENT/QBFLAST/QUARTZ_WAND_LOG..json new file mode 100644 index 0000000..fde156f --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/QUARTZ_WAND_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/QUOTE..json b/LSL2/OIEVENT/QBFLAST/QUOTE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/QUOTE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/QUOTE_OLD..json b/LSL2/OIEVENT/QBFLAST/QUOTE_OLD..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/QUOTE_OLD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/QUOTE_SRL..json b/LSL2/OIEVENT/QBFLAST/QUOTE_SRL..json new file mode 100644 index 0000000..9ab6b11 --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/QUOTE_SRL..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/RDS..json b/LSL2/OIEVENT/QBFLAST/RDS..json new file mode 100644 index 0000000..47e6bfa --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/RDS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event, rds_comm\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/RDS_POST_EPI..json b/LSL2/OIEVENT/QBFLAST/RDS_POST_EPI..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/RDS_POST_EPI..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/RDS_PRE_EPI..json b/LSL2/OIEVENT/QBFLAST/RDS_PRE_EPI..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/RDS_PRE_EPI..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/RDS_PRE_EPI_ORG..json b/LSL2/OIEVENT/QBFLAST/RDS_PRE_EPI_ORG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/RDS_PRE_EPI_ORG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/RDS_UNLOAD..json b/LSL2/OIEVENT/QBFLAST/RDS_UNLOAD..json new file mode 100644 index 0000000..e003e0a --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/RDS_UNLOAD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event, rds_comm\r\n\r\nif rds_comm( 'CHECK_NCR_SAVE' ) then\r\n * DO NOTHING CAUSE THE USER WAS ASKED TO SAVE AND THEY SAID NO BUT WE MUST\r\n return 0\r\nend\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/REACTOR_LOG_AREV..json b/LSL2/OIEVENT/QBFLAST/REACTOR_LOG_AREV..json new file mode 100644 index 0000000..9ab6b11 --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/REACTOR_LOG_AREV..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/REACT_ITEMS..json b/LSL2/OIEVENT/QBFLAST/REACT_ITEMS..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/REACT_ITEMS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/REACT_PROBS..json b/LSL2/OIEVENT/QBFLAST/REACT_PROBS..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/REACT_PROBS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/REACT_PROB_CAT..json b/LSL2/OIEVENT/QBFLAST/REACT_PROB_CAT..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/REACT_PROB_CAT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/RECIPE..json b/LSL2/OIEVENT/QBFLAST/RECIPE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/RECIPE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/SCHEDULE..json b/LSL2/OIEVENT/QBFLAST/SCHEDULE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/SCHEDULE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/SCHEDULE_SRL..json b/LSL2/OIEVENT/QBFLAST/SCHEDULE_SRL..json new file mode 100644 index 0000000..9ab6b11 --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/SCHEDULE_SRL..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/SEMI_LOG..json b/LSL2/OIEVENT/QBFLAST/SEMI_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/SEMI_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/SPC_CLEAN_HF..json b/LSL2/OIEVENT/QBFLAST/SPC_CLEAN_HF..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/SPC_CLEAN_HF..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/SPC_CLEAN_HF_AKRION..json b/LSL2/OIEVENT/QBFLAST/SPC_CLEAN_HF_AKRION..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/SPC_CLEAN_HF_AKRION..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/SPC_CLEAN_HF_ETCH..json b/LSL2/OIEVENT/QBFLAST/SPC_CLEAN_HF_ETCH..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/SPC_CLEAN_HF_ETCH..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/SPC_CLEAN_HF_ETCH_AKRION..json b/LSL2/OIEVENT/QBFLAST/SPC_CLEAN_HF_ETCH_AKRION..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/SPC_CLEAN_HF_ETCH_AKRION..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/SPC_CLEAN_SC1..json b/LSL2/OIEVENT/QBFLAST/SPC_CLEAN_SC1..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/SPC_CLEAN_SC1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/SPC_CLEAN_SRD..json b/LSL2/OIEVENT/QBFLAST/SPC_CLEAN_SRD..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/SPC_CLEAN_SRD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/SPC_EVAL_4PP..json b/LSL2/OIEVENT/QBFLAST/SPC_EVAL_4PP..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/SPC_EVAL_4PP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/SPC_EVAL_ADE..json b/LSL2/OIEVENT/QBFLAST/SPC_EVAL_ADE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/SPC_EVAL_ADE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/SPC_EVAL_FTIR..json b/LSL2/OIEVENT/QBFLAST/SPC_EVAL_FTIR..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/SPC_EVAL_FTIR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/SPC_REACTOR_PARTICLES..json b/LSL2/OIEVENT/QBFLAST/SPC_REACTOR_PARTICLES..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/SPC_REACTOR_PARTICLES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/SPC_WAFER_ETCH..json b/LSL2/OIEVENT/QBFLAST/SPC_WAFER_ETCH..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/SPC_WAFER_ETCH..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/SRP_COC_RESULTS..json b/LSL2/OIEVENT/QBFLAST/SRP_COC_RESULTS..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/SRP_COC_RESULTS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/SRP_INCOMING_LOG..json b/LSL2/OIEVENT/QBFLAST/SRP_INCOMING_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/SRP_INCOMING_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/SUB_REC_LOG..json b/LSL2/OIEVENT/QBFLAST/SUB_REC_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/SUB_REC_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/TW_CODES..json b/LSL2/OIEVENT/QBFLAST/TW_CODES..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/TW_CODES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/TW_PRIME_USAGE..json b/LSL2/OIEVENT/QBFLAST/TW_PRIME_USAGE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/TW_PRIME_USAGE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/TW_USAGE..json b/LSL2/OIEVENT/QBFLAST/TW_USAGE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/TW_USAGE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/WAFER_INV..json b/LSL2/OIEVENT/QBFLAST/WAFER_INV..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/WAFER_INV..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/WO_LOG..json b/LSL2/OIEVENT/QBFLAST/WO_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/WO_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFLAST/WO_VERIFY..json b/LSL2/OIEVENT/QBFLAST/WO_VERIFY..json new file mode 100644 index 0000000..4375e29 --- /dev/null +++ b/LSL2/OIEVENT/QBFLAST/WO_VERIFY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\n* NOT ACCESSIBLE VIA THE MAIN MENU AS OF NOW - JUST WANTED TO \r\n* HAVE THE CODE IN PLACE IN CASE WE DECIDE TO CHANGE THE INTERFACE LATER\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/ANNUAL_CONTRACTS..json b/LSL2/OIEVENT/QBFNEXT/ANNUAL_CONTRACTS..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/ANNUAL_CONTRACTS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/ASSIGN_CAUSE..json b/LSL2/OIEVENT/QBFNEXT/ASSIGN_CAUSE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/ASSIGN_CAUSE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/ATTENDANCE..json b/LSL2/OIEVENT/QBFNEXT/ATTENDANCE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/ATTENDANCE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/CALL_VISIT..json b/LSL2/OIEVENT/QBFNEXT/CALL_VISIT..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/CALL_VISIT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/CAR..json b/LSL2/OIEVENT/QBFNEXT/CAR..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/CAR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/CDM_LOG..json b/LSL2/OIEVENT/QBFNEXT/CDM_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/CDM_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/COC..json b/LSL2/OIEVENT/QBFNEXT/COC..json new file mode 100644 index 0000000..fde156f --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/COC..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/COMPANY..json b/LSL2/OIEVENT/QBFNEXT/COMPANY..json new file mode 100644 index 0000000..fcc0db1 --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/COMPANY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function company_comm\r\ndeclare subroutine forward_event, send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nsend_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/CUST_INQUIRY..json b/LSL2/OIEVENT/QBFNEXT/CUST_INQUIRY..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/CUST_INQUIRY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/DESIG_ERR_GRP..json b/LSL2/OIEVENT/QBFNEXT/DESIG_ERR_GRP..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/DESIG_ERR_GRP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/HOTH2O2_LOG..json b/LSL2/OIEVENT/QBFNEXT/HOTH2O2_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/HOTH2O2_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/INVOICE..json b/LSL2/OIEVENT/QBFNEXT/INVOICE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/INVOICE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/LAST_WFR_CI_GROUP..json b/LSL2/OIEVENT/QBFNEXT/LAST_WFR_CI_GROUP..json new file mode 100644 index 0000000..e003e0a --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/LAST_WFR_CI_GROUP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event, rds_comm\r\n\r\nif rds_comm( 'CHECK_NCR_SAVE' ) then\r\n * DO NOTHING CAUSE THE USER WAS ASKED TO SAVE AND THEY SAID NO BUT WE MUST\r\n return 0\r\nend\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/LISTBOX_CONFIG..json b/LSL2/OIEVENT/QBFNEXT/LISTBOX_CONFIG..json new file mode 100644 index 0000000..47e6bfa --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/LISTBOX_CONFIG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event, rds_comm\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/LOSS_CODES..json b/LSL2/OIEVENT/QBFNEXT/LOSS_CODES..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/LOSS_CODES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/MASTER_DISK_LOG..json b/LSL2/OIEVENT/QBFNEXT/MASTER_DISK_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/MASTER_DISK_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/MEG_LOG..json b/LSL2/OIEVENT/QBFNEXT/MEG_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/MEG_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/NAMES..json b/LSL2/OIEVENT/QBFNEXT/NAMES..json new file mode 100644 index 0000000..5432ed2 --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/NAMES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nsend_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/NDA..json b/LSL2/OIEVENT/QBFNEXT/NDA..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/NDA..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/ORDER..json b/LSL2/OIEVENT/QBFNEXT/ORDER..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/ORDER..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/PHOTOFLO_LOG..json b/LSL2/OIEVENT/QBFNEXT/PHOTOFLO_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/PHOTOFLO_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/QUARTZ_TC_LOG..json b/LSL2/OIEVENT/QBFNEXT/QUARTZ_TC_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/QUARTZ_TC_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/QUARTZ_WAND_LOG..json b/LSL2/OIEVENT/QBFNEXT/QUARTZ_WAND_LOG..json new file mode 100644 index 0000000..fde156f --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/QUARTZ_WAND_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/QUOTE..json b/LSL2/OIEVENT/QBFNEXT/QUOTE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/QUOTE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/QUOTE_OLD..json b/LSL2/OIEVENT/QBFNEXT/QUOTE_OLD..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/QUOTE_OLD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/QUOTE_SRL..json b/LSL2/OIEVENT/QBFNEXT/QUOTE_SRL..json new file mode 100644 index 0000000..9ab6b11 --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/QUOTE_SRL..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/RDS..json b/LSL2/OIEVENT/QBFNEXT/RDS..json new file mode 100644 index 0000000..47e6bfa --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/RDS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event, rds_comm\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/RDS_POST_EPI..json b/LSL2/OIEVENT/QBFNEXT/RDS_POST_EPI..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/RDS_POST_EPI..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/RDS_PRE_EPI..json b/LSL2/OIEVENT/QBFNEXT/RDS_PRE_EPI..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/RDS_PRE_EPI..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/RDS_PRE_EPI_ORG..json b/LSL2/OIEVENT/QBFNEXT/RDS_PRE_EPI_ORG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/RDS_PRE_EPI_ORG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/RDS_UNLOAD..json b/LSL2/OIEVENT/QBFNEXT/RDS_UNLOAD..json new file mode 100644 index 0000000..e003e0a --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/RDS_UNLOAD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event, rds_comm\r\n\r\nif rds_comm( 'CHECK_NCR_SAVE' ) then\r\n * DO NOTHING CAUSE THE USER WAS ASKED TO SAVE AND THEY SAID NO BUT WE MUST\r\n return 0\r\nend\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/REACTOR_LOG_AREV..json b/LSL2/OIEVENT/QBFNEXT/REACTOR_LOG_AREV..json new file mode 100644 index 0000000..9ab6b11 --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/REACTOR_LOG_AREV..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/REACT_ITEMS..json b/LSL2/OIEVENT/QBFNEXT/REACT_ITEMS..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/REACT_ITEMS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/REACT_PROBS..json b/LSL2/OIEVENT/QBFNEXT/REACT_PROBS..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/REACT_PROBS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/REACT_PROB_CAT..json b/LSL2/OIEVENT/QBFNEXT/REACT_PROB_CAT..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/REACT_PROB_CAT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/RECIPE..json b/LSL2/OIEVENT/QBFNEXT/RECIPE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/RECIPE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/SCHEDULE..json b/LSL2/OIEVENT/QBFNEXT/SCHEDULE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/SCHEDULE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/SCHEDULE_SRL..json b/LSL2/OIEVENT/QBFNEXT/SCHEDULE_SRL..json new file mode 100644 index 0000000..9ab6b11 --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/SCHEDULE_SRL..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/SEMI_LOG..json b/LSL2/OIEVENT/QBFNEXT/SEMI_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/SEMI_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/SPC_CLEAN_HF..json b/LSL2/OIEVENT/QBFNEXT/SPC_CLEAN_HF..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/SPC_CLEAN_HF..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/SPC_CLEAN_HF_AKRION..json b/LSL2/OIEVENT/QBFNEXT/SPC_CLEAN_HF_AKRION..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/SPC_CLEAN_HF_AKRION..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/SPC_CLEAN_HF_ETCH..json b/LSL2/OIEVENT/QBFNEXT/SPC_CLEAN_HF_ETCH..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/SPC_CLEAN_HF_ETCH..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/SPC_CLEAN_HF_ETCH_AKRION..json b/LSL2/OIEVENT/QBFNEXT/SPC_CLEAN_HF_ETCH_AKRION..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/SPC_CLEAN_HF_ETCH_AKRION..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/SPC_CLEAN_SC1..json b/LSL2/OIEVENT/QBFNEXT/SPC_CLEAN_SC1..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/SPC_CLEAN_SC1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/SPC_CLEAN_SRD..json b/LSL2/OIEVENT/QBFNEXT/SPC_CLEAN_SRD..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/SPC_CLEAN_SRD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/SPC_EVAL_4PP..json b/LSL2/OIEVENT/QBFNEXT/SPC_EVAL_4PP..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/SPC_EVAL_4PP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/SPC_EVAL_ADE..json b/LSL2/OIEVENT/QBFNEXT/SPC_EVAL_ADE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/SPC_EVAL_ADE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/SPC_EVAL_FTIR..json b/LSL2/OIEVENT/QBFNEXT/SPC_EVAL_FTIR..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/SPC_EVAL_FTIR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/SPC_REACTOR_PARTICLES..json b/LSL2/OIEVENT/QBFNEXT/SPC_REACTOR_PARTICLES..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/SPC_REACTOR_PARTICLES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/SPC_WAFER_ETCH..json b/LSL2/OIEVENT/QBFNEXT/SPC_WAFER_ETCH..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/SPC_WAFER_ETCH..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/SRP_COC_RESULTS..json b/LSL2/OIEVENT/QBFNEXT/SRP_COC_RESULTS..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/SRP_COC_RESULTS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/SRP_INCOMING_LOG..json b/LSL2/OIEVENT/QBFNEXT/SRP_INCOMING_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/SRP_INCOMING_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/SUB_REC_LOG..json b/LSL2/OIEVENT/QBFNEXT/SUB_REC_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/SUB_REC_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/TW_CODES..json b/LSL2/OIEVENT/QBFNEXT/TW_CODES..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/TW_CODES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/TW_PRIME_USAGE..json b/LSL2/OIEVENT/QBFNEXT/TW_PRIME_USAGE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/TW_PRIME_USAGE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/TW_USAGE..json b/LSL2/OIEVENT/QBFNEXT/TW_USAGE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/TW_USAGE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/WAFER_INV..json b/LSL2/OIEVENT/QBFNEXT/WAFER_INV..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/WAFER_INV..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/WO_LOG..json b/LSL2/OIEVENT/QBFNEXT/WO_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/WO_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFNEXT/WO_VERIFY..json b/LSL2/OIEVENT/QBFNEXT/WO_VERIFY..json new file mode 100644 index 0000000..4375e29 --- /dev/null +++ b/LSL2/OIEVENT/QBFNEXT/WO_VERIFY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\n* NOT ACCESSIBLE VIA THE MAIN MENU AS OF NOW - JUST WANTED TO \r\n* HAVE THE CODE IN PLACE IN CASE WE DECIDE TO CHANGE THE INTERFACE LATER\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/ANNUAL_CONTRACTS..json b/LSL2/OIEVENT/QBFPREV/ANNUAL_CONTRACTS..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/ANNUAL_CONTRACTS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/ASSIGN_CAUSE..json b/LSL2/OIEVENT/QBFPREV/ASSIGN_CAUSE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/ASSIGN_CAUSE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/ATTENDANCE..json b/LSL2/OIEVENT/QBFPREV/ATTENDANCE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/ATTENDANCE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/CALL_VISIT..json b/LSL2/OIEVENT/QBFPREV/CALL_VISIT..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/CALL_VISIT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/CAR..json b/LSL2/OIEVENT/QBFPREV/CAR..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/CAR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/CDM_LOG..json b/LSL2/OIEVENT/QBFPREV/CDM_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/CDM_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/COC..json b/LSL2/OIEVENT/QBFPREV/COC..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/COC..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/COMPANY..json b/LSL2/OIEVENT/QBFPREV/COMPANY..json new file mode 100644 index 0000000..fcc0db1 --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/COMPANY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function company_comm\r\ndeclare subroutine forward_event, send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nsend_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/CUST_INQUIRY..json b/LSL2/OIEVENT/QBFPREV/CUST_INQUIRY..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/CUST_INQUIRY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/DESIG_ERR_GRP..json b/LSL2/OIEVENT/QBFPREV/DESIG_ERR_GRP..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/DESIG_ERR_GRP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/HOTH2O2_LOG..json b/LSL2/OIEVENT/QBFPREV/HOTH2O2_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/HOTH2O2_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/INVOICE..json b/LSL2/OIEVENT/QBFPREV/INVOICE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/INVOICE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/LAST_WFR_CI_GROUP..json b/LSL2/OIEVENT/QBFPREV/LAST_WFR_CI_GROUP..json new file mode 100644 index 0000000..e003e0a --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/LAST_WFR_CI_GROUP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event, rds_comm\r\n\r\nif rds_comm( 'CHECK_NCR_SAVE' ) then\r\n * DO NOTHING CAUSE THE USER WAS ASKED TO SAVE AND THEY SAID NO BUT WE MUST\r\n return 0\r\nend\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/LISTBOX_CONFIG..json b/LSL2/OIEVENT/QBFPREV/LISTBOX_CONFIG..json new file mode 100644 index 0000000..47e6bfa --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/LISTBOX_CONFIG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event, rds_comm\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/LOSS_CODES..json b/LSL2/OIEVENT/QBFPREV/LOSS_CODES..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/LOSS_CODES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/MASTER_DISK_LOG..json b/LSL2/OIEVENT/QBFPREV/MASTER_DISK_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/MASTER_DISK_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/MEG_LOG..json b/LSL2/OIEVENT/QBFPREV/MEG_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/MEG_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/NAMES..json b/LSL2/OIEVENT/QBFPREV/NAMES..json new file mode 100644 index 0000000..ecaf517 --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/NAMES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nsend_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/NDA..json b/LSL2/OIEVENT/QBFPREV/NDA..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/NDA..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/ORDER..json b/LSL2/OIEVENT/QBFPREV/ORDER..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/ORDER..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/PHOTOFLO_LOG..json b/LSL2/OIEVENT/QBFPREV/PHOTOFLO_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/PHOTOFLO_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/QUARTZ_TC_LOG..json b/LSL2/OIEVENT/QBFPREV/QUARTZ_TC_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/QUARTZ_TC_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/QUARTZ_WAND_LOG..json b/LSL2/OIEVENT/QBFPREV/QUARTZ_WAND_LOG..json new file mode 100644 index 0000000..fde156f --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/QUARTZ_WAND_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/QUOTE..json b/LSL2/OIEVENT/QBFPREV/QUOTE..json new file mode 100644 index 0000000..981753a --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/QUOTE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event, msg\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/QUOTE_OLD..json b/LSL2/OIEVENT/QBFPREV/QUOTE_OLD..json new file mode 100644 index 0000000..981753a --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/QUOTE_OLD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event, msg\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/QUOTE_SRL..json b/LSL2/OIEVENT/QBFPREV/QUOTE_SRL..json new file mode 100644 index 0000000..9ab6b11 --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/QUOTE_SRL..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/RDS..json b/LSL2/OIEVENT/QBFPREV/RDS..json new file mode 100644 index 0000000..47e6bfa --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/RDS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event, rds_comm\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/RDS_POST_EPI..json b/LSL2/OIEVENT/QBFPREV/RDS_POST_EPI..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/RDS_POST_EPI..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/RDS_PRE_EPI..json b/LSL2/OIEVENT/QBFPREV/RDS_PRE_EPI..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/RDS_PRE_EPI..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/RDS_PRE_EPI_ORG..json b/LSL2/OIEVENT/QBFPREV/RDS_PRE_EPI_ORG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/RDS_PRE_EPI_ORG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/RDS_UNLOAD..json b/LSL2/OIEVENT/QBFPREV/RDS_UNLOAD..json new file mode 100644 index 0000000..e003e0a --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/RDS_UNLOAD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event, rds_comm\r\n\r\nif rds_comm( 'CHECK_NCR_SAVE' ) then\r\n * DO NOTHING CAUSE THE USER WAS ASKED TO SAVE AND THEY SAID NO BUT WE MUST\r\n return 0\r\nend\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/REACTOR_LOG_AREV..json b/LSL2/OIEVENT/QBFPREV/REACTOR_LOG_AREV..json new file mode 100644 index 0000000..9ab6b11 --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/REACTOR_LOG_AREV..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/REACT_ITEMS..json b/LSL2/OIEVENT/QBFPREV/REACT_ITEMS..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/REACT_ITEMS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/REACT_PROBS..json b/LSL2/OIEVENT/QBFPREV/REACT_PROBS..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/REACT_PROBS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/REACT_PROB_CAT..json b/LSL2/OIEVENT/QBFPREV/REACT_PROB_CAT..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/REACT_PROB_CAT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/RECIPE..json b/LSL2/OIEVENT/QBFPREV/RECIPE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/RECIPE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/SCHEDULE..json b/LSL2/OIEVENT/QBFPREV/SCHEDULE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/SCHEDULE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/SCHEDULE_SRL..json b/LSL2/OIEVENT/QBFPREV/SCHEDULE_SRL..json new file mode 100644 index 0000000..9ab6b11 --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/SCHEDULE_SRL..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/SEMI_LOG..json b/LSL2/OIEVENT/QBFPREV/SEMI_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/SEMI_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/SPC_CLEAN_HF..json b/LSL2/OIEVENT/QBFPREV/SPC_CLEAN_HF..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/SPC_CLEAN_HF..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/SPC_CLEAN_HF_AKRION..json b/LSL2/OIEVENT/QBFPREV/SPC_CLEAN_HF_AKRION..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/SPC_CLEAN_HF_AKRION..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/SPC_CLEAN_HF_ETCH..json b/LSL2/OIEVENT/QBFPREV/SPC_CLEAN_HF_ETCH..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/SPC_CLEAN_HF_ETCH..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/SPC_CLEAN_HF_ETCH_AKRION..json b/LSL2/OIEVENT/QBFPREV/SPC_CLEAN_HF_ETCH_AKRION..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/SPC_CLEAN_HF_ETCH_AKRION..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/SPC_CLEAN_SC1..json b/LSL2/OIEVENT/QBFPREV/SPC_CLEAN_SC1..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/SPC_CLEAN_SC1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/SPC_CLEAN_SRD..json b/LSL2/OIEVENT/QBFPREV/SPC_CLEAN_SRD..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/SPC_CLEAN_SRD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/SPC_EVAL_4PP..json b/LSL2/OIEVENT/QBFPREV/SPC_EVAL_4PP..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/SPC_EVAL_4PP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/SPC_EVAL_ADE..json b/LSL2/OIEVENT/QBFPREV/SPC_EVAL_ADE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/SPC_EVAL_ADE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/SPC_EVAL_FTIR..json b/LSL2/OIEVENT/QBFPREV/SPC_EVAL_FTIR..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/SPC_EVAL_FTIR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/SPC_REACTOR_PARTICLES..json b/LSL2/OIEVENT/QBFPREV/SPC_REACTOR_PARTICLES..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/SPC_REACTOR_PARTICLES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/SPC_WAFER_ETCH..json b/LSL2/OIEVENT/QBFPREV/SPC_WAFER_ETCH..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/SPC_WAFER_ETCH..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/SRP_COC_RESULTS..json b/LSL2/OIEVENT/QBFPREV/SRP_COC_RESULTS..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/SRP_COC_RESULTS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/SRP_INCOMING_LOG..json b/LSL2/OIEVENT/QBFPREV/SRP_INCOMING_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/SRP_INCOMING_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/SUB_REC_LOG..json b/LSL2/OIEVENT/QBFPREV/SUB_REC_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/SUB_REC_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/TW_CODES..json b/LSL2/OIEVENT/QBFPREV/TW_CODES..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/TW_CODES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/TW_PRIME_USAGE..json b/LSL2/OIEVENT/QBFPREV/TW_PRIME_USAGE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/TW_PRIME_USAGE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/TW_USAGE..json b/LSL2/OIEVENT/QBFPREV/TW_USAGE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/TW_USAGE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/WAFER_INV..json b/LSL2/OIEVENT/QBFPREV/WAFER_INV..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/WAFER_INV..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/WO_LOG..json b/LSL2/OIEVENT/QBFPREV/WO_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/WO_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFPREV/WO_VERIFY..json b/LSL2/OIEVENT/QBFPREV/WO_VERIFY..json new file mode 100644 index 0000000..4375e29 --- /dev/null +++ b/LSL2/OIEVENT/QBFPREV/WO_VERIFY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\n* NOT ACCESSIBLE VIA THE MAIN MENU AS OF NOW - JUST WANTED TO \r\n* HAVE THE CODE IN PLACE IN CASE WE DECIDE TO CHANGE THE INTERFACE LATER\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/ANNUAL_CONTRACTS..json b/LSL2/OIEVENT/QBFRUN/ANNUAL_CONTRACTS..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/ANNUAL_CONTRACTS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/ASSIGN_CAUSE..json b/LSL2/OIEVENT/QBFRUN/ASSIGN_CAUSE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/ASSIGN_CAUSE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/ATTENDANCE..json b/LSL2/OIEVENT/QBFRUN/ATTENDANCE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/ATTENDANCE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/CALL_VISIT..json b/LSL2/OIEVENT/QBFRUN/CALL_VISIT..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/CALL_VISIT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/CAR..json b/LSL2/OIEVENT/QBFRUN/CAR..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/CAR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/CDM_LOG..json b/LSL2/OIEVENT/QBFRUN/CDM_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/CDM_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/COC..json b/LSL2/OIEVENT/QBFRUN/COC..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/COC..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/COMPANY..json b/LSL2/OIEVENT/QBFRUN/COMPANY..json new file mode 100644 index 0000000..711d97e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/COMPANY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function company_comm, msg\r\ndeclare subroutine forward_event, send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nsend_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/CUST_INQUIRY..json b/LSL2/OIEVENT/QBFRUN/CUST_INQUIRY..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/CUST_INQUIRY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/DESIG_ERR_GRP..json b/LSL2/OIEVENT/QBFRUN/DESIG_ERR_GRP..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/DESIG_ERR_GRP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/HOTH2O2_LOG..json b/LSL2/OIEVENT/QBFRUN/HOTH2O2_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/HOTH2O2_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/INVOICE..json b/LSL2/OIEVENT/QBFRUN/INVOICE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/INVOICE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/LAST_WFR_CI_GROUP..json b/LSL2/OIEVENT/QBFRUN/LAST_WFR_CI_GROUP..json new file mode 100644 index 0000000..e003e0a --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/LAST_WFR_CI_GROUP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event, rds_comm\r\n\r\nif rds_comm( 'CHECK_NCR_SAVE' ) then\r\n * DO NOTHING CAUSE THE USER WAS ASKED TO SAVE AND THEY SAID NO BUT WE MUST\r\n return 0\r\nend\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/LISTBOX_CONFIG..json b/LSL2/OIEVENT/QBFRUN/LISTBOX_CONFIG..json new file mode 100644 index 0000000..47e6bfa --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/LISTBOX_CONFIG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event, rds_comm\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/LOSS_CODES..json b/LSL2/OIEVENT/QBFRUN/LOSS_CODES..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/LOSS_CODES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/MASTER_DISK_LOG..json b/LSL2/OIEVENT/QBFRUN/MASTER_DISK_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/MASTER_DISK_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/MEG_LOG..json b/LSL2/OIEVENT/QBFRUN/MEG_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/MEG_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/NAMES..json b/LSL2/OIEVENT/QBFRUN/NAMES..json new file mode 100644 index 0000000..85c5e70 --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/NAMES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\ndeclare subroutine forward_event, send_event\r\n\r\n.co_id->text = .co_id->misc\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nsend_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/NDA..json b/LSL2/OIEVENT/QBFRUN/NDA..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/NDA..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/ORDER..json b/LSL2/OIEVENT/QBFRUN/ORDER..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/ORDER..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/PHOTOFLO_LOG..json b/LSL2/OIEVENT/QBFRUN/PHOTOFLO_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/PHOTOFLO_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/P_NAMES..json b/LSL2/OIEVENT/QBFRUN/P_NAMES..json new file mode 100644 index 0000000..75c10cd --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/P_NAMES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "* the user is trying to do a QBF force only the user's records\r\n.entry_id->text = @user4\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/QUARTZ_TC_LOG..json b/LSL2/OIEVENT/QBFRUN/QUARTZ_TC_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/QUARTZ_TC_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/QUARTZ_WAND_LOG..json b/LSL2/OIEVENT/QBFRUN/QUARTZ_WAND_LOG..json new file mode 100644 index 0000000..fde156f --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/QUARTZ_WAND_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/QUOTE..json b/LSL2/OIEVENT/QBFRUN/QUOTE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/QUOTE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/QUOTE_OLD..json b/LSL2/OIEVENT/QBFRUN/QUOTE_OLD..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/QUOTE_OLD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/QUOTE_SRL..json b/LSL2/OIEVENT/QBFRUN/QUOTE_SRL..json new file mode 100644 index 0000000..9ab6b11 --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/QUOTE_SRL..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/RDS..json b/LSL2/OIEVENT/QBFRUN/RDS..json new file mode 100644 index 0000000..47e6bfa --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/RDS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event, rds_comm\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/RDS_POST_EPI..json b/LSL2/OIEVENT/QBFRUN/RDS_POST_EPI..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/RDS_POST_EPI..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/RDS_PRE_EPI..json b/LSL2/OIEVENT/QBFRUN/RDS_PRE_EPI..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/RDS_PRE_EPI..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/RDS_PRE_EPI_ORG..json b/LSL2/OIEVENT/QBFRUN/RDS_PRE_EPI_ORG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/RDS_PRE_EPI_ORG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/RDS_UNLOAD..json b/LSL2/OIEVENT/QBFRUN/RDS_UNLOAD..json new file mode 100644 index 0000000..e003e0a --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/RDS_UNLOAD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event, rds_comm\r\n\r\nif rds_comm( 'CHECK_NCR_SAVE' ) then\r\n * DO NOTHING CAUSE THE USER WAS ASKED TO SAVE AND THEY SAID NO BUT WE MUST\r\n return 0\r\nend\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/REACTOR_LOG_AREV..json b/LSL2/OIEVENT/QBFRUN/REACTOR_LOG_AREV..json new file mode 100644 index 0000000..9ab6b11 --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/REACTOR_LOG_AREV..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/REACT_ITEMS..json b/LSL2/OIEVENT/QBFRUN/REACT_ITEMS..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/REACT_ITEMS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/REACT_PROBS..json b/LSL2/OIEVENT/QBFRUN/REACT_PROBS..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/REACT_PROBS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/REACT_PROB_CAT..json b/LSL2/OIEVENT/QBFRUN/REACT_PROB_CAT..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/REACT_PROB_CAT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/RECIPE..json b/LSL2/OIEVENT/QBFRUN/RECIPE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/RECIPE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/SCHEDULE..json b/LSL2/OIEVENT/QBFRUN/SCHEDULE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/SCHEDULE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/SCHEDULE_SRL..json b/LSL2/OIEVENT/QBFRUN/SCHEDULE_SRL..json new file mode 100644 index 0000000..9ab6b11 --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/SCHEDULE_SRL..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event( CtrlEntId, CtrlClassId )\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/SEMI_LOG..json b/LSL2/OIEVENT/QBFRUN/SEMI_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/SEMI_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/SPC_CLEAN_HF..json b/LSL2/OIEVENT/QBFRUN/SPC_CLEAN_HF..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/SPC_CLEAN_HF..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/SPC_CLEAN_HF_AKRION..json b/LSL2/OIEVENT/QBFRUN/SPC_CLEAN_HF_AKRION..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/SPC_CLEAN_HF_AKRION..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/SPC_CLEAN_HF_ETCH..json b/LSL2/OIEVENT/QBFRUN/SPC_CLEAN_HF_ETCH..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/SPC_CLEAN_HF_ETCH..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/SPC_CLEAN_HF_ETCH_AKRION..json b/LSL2/OIEVENT/QBFRUN/SPC_CLEAN_HF_ETCH_AKRION..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/SPC_CLEAN_HF_ETCH_AKRION..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/SPC_CLEAN_SC1..json b/LSL2/OIEVENT/QBFRUN/SPC_CLEAN_SC1..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/SPC_CLEAN_SC1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/SPC_CLEAN_SRD..json b/LSL2/OIEVENT/QBFRUN/SPC_CLEAN_SRD..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/SPC_CLEAN_SRD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/SPC_EVAL_4PP..json b/LSL2/OIEVENT/QBFRUN/SPC_EVAL_4PP..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/SPC_EVAL_4PP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/SPC_EVAL_ADE..json b/LSL2/OIEVENT/QBFRUN/SPC_EVAL_ADE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/SPC_EVAL_ADE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/SPC_EVAL_FTIR..json b/LSL2/OIEVENT/QBFRUN/SPC_EVAL_FTIR..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/SPC_EVAL_FTIR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/SPC_REACTOR_PARTICLES..json b/LSL2/OIEVENT/QBFRUN/SPC_REACTOR_PARTICLES..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/SPC_REACTOR_PARTICLES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/SPC_WAFER_ETCH..json b/LSL2/OIEVENT/QBFRUN/SPC_WAFER_ETCH..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/SPC_WAFER_ETCH..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/SRP_COC_RESULTS..json b/LSL2/OIEVENT/QBFRUN/SRP_COC_RESULTS..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/SRP_COC_RESULTS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/SRP_INCOMING_LOG..json b/LSL2/OIEVENT/QBFRUN/SRP_INCOMING_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/SRP_INCOMING_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/SUB_REC_LOG..json b/LSL2/OIEVENT/QBFRUN/SUB_REC_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/SUB_REC_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/TW_CODES..json b/LSL2/OIEVENT/QBFRUN/TW_CODES..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/TW_CODES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/TW_PRIME_USAGE..json b/LSL2/OIEVENT/QBFRUN/TW_PRIME_USAGE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/TW_PRIME_USAGE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/TW_USAGE..json b/LSL2/OIEVENT/QBFRUN/TW_USAGE..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/TW_USAGE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/WAFER_INV..json b/LSL2/OIEVENT/QBFRUN/WAFER_INV..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/WAFER_INV..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/WO_LOG..json b/LSL2/OIEVENT/QBFRUN/WO_LOG..json new file mode 100644 index 0000000..874ce9e --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/WO_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/QBFRUN/WO_VERIFY..json b/LSL2/OIEVENT/QBFRUN/WO_VERIFY..json new file mode 100644 index 0000000..4375e29 --- /dev/null +++ b/LSL2/OIEVENT/QBFRUN/WO_VERIFY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n\r\n* NOT ACCESSIBLE VIA THE MAIN MENU AS OF NOW - JUST WANTED TO \r\n* HAVE THE CODE IN PLACE IN CASE WE DECIDE TO CHANGE THE INTERFACE LATER\r\n\r\nforward_event()\r\nvoid = set_property( @window, '@NoRead', 1 )\r\nvoid = send_event( CtrlEntId, 'READ' )\r\nvoid = set_property( @window, '@NoRead', 0 )\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/ANNUAL_CONTRACTS..json b/LSL2/OIEVENT/READ/ANNUAL_CONTRACTS..json new file mode 100644 index 0000000..a593788 --- /dev/null +++ b/LSL2/OIEVENT/READ/ANNUAL_CONTRACTS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'ANNUAL_CONTRACTS', .contract_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'Annual Contracts', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Annual Contracts', Write$ )\t \r\n\t ReadOk = false$\r\n\t .contract_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n ContractNo = .contract_no->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/CUST_NAME/DIVISION/CONTACT_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'ANNUAL_CONTRACTS', ContractNo ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'Annual Contracts', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t \r\n\t end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/ANN_CONT..json b/LSL2/OIEVENT/READ/ANN_CONT..json new file mode 100644 index 0000000..a703802 --- /dev/null +++ b/LSL2/OIEVENT/READ/ANN_CONT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE SUBROUTINE Comm_Ann_Cont\r\n\r\nComm_Ann_Cont('Read')\t;* Triggers PreRead Method and forwards read event\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/ASSIGN_CAUSE..json b/LSL2/OIEVENT/READ/ASSIGN_CAUSE..json new file mode 100644 index 0000000..31d5fa8 --- /dev/null +++ b/LSL2/OIEVENT/READ/ASSIGN_CAUSE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists, scroll_enable\r\ndeclare function fieldcount, send_event\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'ASSIGN_CAUSE', .assign_cause_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'Assign Cause', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Assign Cause', Write$ )\t \r\n\t ReadOk = false$\r\n\t .assign_cause_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n AssignId = .assign_cause_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/DESIG_ERR_GRP_DESC'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'ASSIGN_CAUSE', AssignId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'Assign Cause', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\nend\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/ATTENDANCE..json b/LSL2/OIEVENT/READ/ATTENDANCE..json new file mode 100644 index 0000000..a3137bc --- /dev/null +++ b/LSL2/OIEVENT/READ/ATTENDANCE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'ATTENDANCE', .absent_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new, do they have write rights?\r\n if security_check( 'Attendance', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Attendance', Write$ )\t \r\n\t ReadOk = false$\r\n\t .absent_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n AbsentId = .absent_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/EMPLOYEE_NAME/SUPERVISOR_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'ATTENDANCE', AbsentId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'Attendance', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/CALL_VISIT..json b/LSL2/OIEVENT/READ/CALL_VISIT..json new file mode 100644 index 0000000..c17bd0f --- /dev/null +++ b/LSL2/OIEVENT/READ/CALL_VISIT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'CALL_VISIT', .call_visit_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'Call Visit', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Call Visit', Write$ )\t \r\n\t ReadOk = false$\r\n\t .call_visit_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n CallVisitID = .call_visit_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/CUST_NAME/DIVISION'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'CALL_VISIT', CallVisitID ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n AtArray = @user4:@vm\r\n AtArray<-1> = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):@vm\r\n .attended_by->array = AtArray\r\n end \r\n if NewRecord else\r\n\t if security_check( 'Call Visit', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/CAR..json b/LSL2/OIEVENT/READ/CAR..json new file mode 100644 index 0000000..babcf2d --- /dev/null +++ b/LSL2/OIEVENT/READ/CAR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists, scroll_enable\r\ndeclare function fieldcount, send_event\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert quote_sigs_equ\r\n\r\nNewRecord = false$\r\nif rowexists( 'CAR', .car_ref_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'CAR', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'CAR', Write$ )\t \r\n\t ReadOk = false$\r\n\t .car_ref_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n CarRefId = .car_ref_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/CUST_NAME/DIVISION/STATUS/'\r\n ProtectVar:= 'RESP_USER_NAME/RESP_SIGNATURE/RESP_SIGNATURE_NAME/CAR_INPLACE_SIGNATURE/'\r\n ProtectVar:= 'CAR_INPLACE_SIGNATURE_NAME/VIP_MFG_SIGNATURE/VIP_MFG_SIGNATURE_NAME/'\r\n ProtectVar:= 'CAR_VERIFIED_SIGNATURE/CAR_VERIFIED_SIGNATURE_NAME/CUST_REV/CUST_SPEC/'\r\n ProtectVar:= 'CONTACT_NAME/CAR_INPLACE_DATE/RMA_SPECIAL_INST/RMA_ENG_COMMENTS/RMA_INFO1/'\r\n ProtectVar:= 'RMA_INFO2/ACCT_REP'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n Void = set_property( @window, '@OrigEstLossValue', .est_loss_value->text )\r\n *Void = set_property( @window, '@OrigServRep', .accountreps->text )\r\n if ( .rma_info2->array<1,1> <> '' ) then\r\n * there is rma info in the CAR so change button to Edit RMA Info...\r\n .rma_button->text = 'Edit RMA Info...'\r\n end else\r\n .rma_button->text = 'Define RMA Info...' \r\n end\r\n if NewRecord then\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n .confirm_status->value = '' \r\n end else\r\n Void = set_property( @window, '@OrigRespUserID', .resp_user_id->text ) \r\n if .ant_car_inplace_date->text <> '' then\r\n * there is an inplace date protect unless it is the vp of manufacturing\r\n SignatureInfo = xlate( 'CONFIG', 'QUOTE_SIGS', '', 'X' )\r\n\t VipMfg = SignatureInfo\r\n if @user4 = VipMfg else\r\n .ant_car_inplace_date->enabled = false$ \r\n end\r\n end else\r\n .ant_car_inplace_date->enabled = true$\r\n end\r\n end \r\n if .resp_user_id->text <> '' and ( oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ) <> .entry_id->text ) then\r\n * if there is a responsible user defined and this is not the person who entered it then\r\n * protect the responsible person, so someone cannot change\r\n .resp_user_id->enabled = 0\r\n end \r\n if .status->value = 'V' then\r\n * it is verified do not let them change the confirm or unconfirm status\r\n .confirm_status->enabled = false$\r\n end else\r\n .confirm_status->enabled = true$\r\n end\r\n if NewRecord else\r\n\t if security_check( 'CAR', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/CDM_LOG..json b/LSL2/OIEVENT/READ/CDM_LOG..json new file mode 100644 index 0000000..fcf7031 --- /dev/null +++ b/LSL2/OIEVENT/READ/CDM_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\nNewRecord = false$\r\nif rowexists( 'CDM_LOG', .log_no->text ) then\r\n ReadOk = true$; *anyone can look at the log\r\nend else\r\n * user is trying to add new, do they have write rights?\r\n if security_check( 'CDM Log', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'CDM Log', Write$ )\t \r\n\t ReadOk = false$\r\n\t .log_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n LogNumber = .log_no->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/TECH_SIG/TECH_SIG_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'CDM_LOG', LogNumber ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'CDM Log', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/COC..json b/LSL2/OIEVENT/READ/COC..json new file mode 100644 index 0000000..a4d1d88 --- /dev/null +++ b/LSL2/OIEVENT/READ/COC..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert msg_equates\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'COC', .coc_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new don't allow ( only create via order )\r\n MsgInfo = ''\r\n MsgInfo = 'COC records are only created when shipping.'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\t \r\n ReadOk = false$\r\n .coc_no->text = ''\r\n Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n COCNo = .coc_no->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/CUST_NO/CUST_NAME/DIVISION/'\r\n ProtectVar:= 'PO/WO/SHIPMENT'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 ) \r\n * add all other protected fields\r\n if rowexists( 'COC', COCNo ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'COC', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/COMPANY..json b/LSL2/OIEVENT/READ/COMPANY..json new file mode 100644 index 0000000..0691fbd --- /dev/null +++ b/LSL2/OIEVENT/READ/COMPANY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\nNewRecord = false$\r\nif rowexists( 'COMPANY', .co_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'Company', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Company', Write$ )\t \r\n\t ReadOk = false$\r\n\t .co_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n if rowexists( 'COMPANY', .co_no->text ) then\r\n if .co_type->value = 'O' THEN\r\n .co_type->enabled = 1 \r\n end else\r\n .co_type->enabled = 0\r\n end\r\n end else\r\n .co_type->enabled = 1\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n .entry_id->enabled = 0\r\n .entry_date->enabled = 0\r\n Void = company_comm( 'SET_FIELDS' )\r\n if NewRecord else\r\n\t if security_check( 'Company', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = set_property( @window:'.CONTACT_NAMES', 'ENABLED', 1 )\r\n\t Void = set_property( @window:'.QUOTE_BUTTON', 'ENABLED', 1 ) \r\n\t Void = set_property( @window:'.AC_BUTTON', 'ENABLED', 1 )\r\n\t Void = set_property( @window:'.WI_BUTTON', 'ENABLED', 1 )\r\n\t Void = set_property( @window:'.ORDER_BUTTON', 'ENABLED', 1 )\r\n\t Void = set_property( @window:'.INVOICE_BUTTON', 'ENABLED', 1 )\r\n\t Void = set_property( @window:'.CALL_VISIT_BUTTON', 'ENABLED', 1 )\r\n\t Void = set_property( @window:'.PROD_SPEC_BUTTON', 'ENABLED', 1 )\r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/CUSTOMER_EPI..json b/LSL2/OIEVENT/READ/CUSTOMER_EPI..json new file mode 100644 index 0000000..fb7721a --- /dev/null +++ b/LSL2/OIEVENT/READ/CUSTOMER_EPI..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE Subroutine Comm_Customer_EPI\r\nComm_Customer_EPI('Read')\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/CUST_INQUIRY..json b/LSL2/OIEVENT/READ/CUST_INQUIRY..json new file mode 100644 index 0000000..0f7444e --- /dev/null +++ b/LSL2/OIEVENT/READ/CUST_INQUIRY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'CUST_INQUIRY', .cust_inquiry_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'Cust Inquiry', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Cust Inquiry', Write$ )\t \r\n\t ReadOk = false$\r\n\t .cust_inquiry_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n CustInquiryID = .cust_inquiry_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/CUST_NAME/DIVISION/CUST_PART_NUM/CUST_SPEC_NUM/CUST_REV_NUM/'\r\n ProtectVar:= 'ENG_SIGNATURE/MKT_SIGNATURE'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'CUST_INQUIRY', CustInquiryID ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n Void = set_property( @window, '@OrigEngSig', .eng_signature->text ) \r\n if NewRecord else\r\n\t if security_check( 'Cust Inquiry', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/DESIG_ERR_GRP..json b/LSL2/OIEVENT/READ/DESIG_ERR_GRP..json new file mode 100644 index 0000000..1e08428 --- /dev/null +++ b/LSL2/OIEVENT/READ/DESIG_ERR_GRP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'DESIG_ERR_GRP', .desig_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'Desig Err Grp', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Desig Err Grp', Write$ )\t \r\n\t ReadOk = false$\r\n\t .desig_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n DesigId = .desig_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'DESIG_ERR_GRP', DesigId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'Desig Err Grp', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/EXPORT3..json b/LSL2/OIEVENT/READ/EXPORT3..json new file mode 100644 index 0000000..ef102e1 --- /dev/null +++ b/LSL2/OIEVENT/READ/EXPORT3..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, rlist\r\ndeclare function msg, rowexists, post_event, fieldcount\r\n$insert rlist_equates\r\n$insert msg_equates\r\n$insert logical\r\n$insert exports_equ\r\n\r\nEid = .export_name->text\r\nif rowexists( 'EXPORTS', Eid ) then\r\n * ok now did this user enter it or is Heather trying to snoop\r\n Erec = xlate( 'EXPORTS', Eid, '', '' )\r\n ReadOk = false$\r\n if Erec or get_property( @window, '@SystemGenerated' ) then\r\n ReadOk = true$\r\n end else\r\n if @user4 = xlate( 'EXPORTS', Eid, exports_entry_id$, '' ) then\r\n ReadOk = true$\r\n end\r\n end\r\n if ReadOk then\r\n forward_event() \r\n if .exporttablenames->text = 'REACT_UTIL' then\r\n .UTIL_START->VISIBLE = 1\r\n .UTIL_END->VISIBLE = 1\r\n .UTIL_START_LABEL->VISIBLE = 1\r\n .UTIL_END_LABEL->VISIBLE = 1\r\n end else\r\n .UTIL_START->VISIBLE = 0\r\n .UTIL_END->VISIBLE = 0\r\n .UTIL_START_LABEL->VISIBLE = 0\r\n .UTIL_END_LABEL->VISIBLE = 0\r\n end \r\n\t\tTtable = .exporttablenames->text\r\n \tColumns = ''\t\t\r\n\t\tif Ttable then\r\n\t\t\tDictTable = 'DICT.':Ttable\r\n\t\t\tVoid = utility( 'CURSOR', 'H' )\r\n\t\t\tCmd = \"SELECT \":DictTable:\" BY @ID WITH F1 = 'F' 'S'\"\r\n\t\t\trlist( Cmd, target_activelist$, '', '', '' )\r\n\t\t\tif @reccount then\r\n\t\t\t Eof = false$\r\n\t\t\t loop\r\n\t\t\t readnext DictId else Eof = true$\r\n\t\t\t until Eof\r\n\t\t\t Columns := DictId:@vm\r\n\t\t\t repeat\r\n\t\t\t Columns[-1,1] = ''\r\n\t\t\t Void = set_property( @window, '@Columns', Columns )\r\n\t\t\tend \r\n\t\t\tCmd = \"SELECT \":DictTable:\" USING EXPORTS BY @ID WITH F6 = 1\"\r\n\t\t\trlist( Cmd, target_activelist$, '', '', '' )\r\n\t\t\tBtreeColumns = ''\r\n\t\t\tif @reccount then\r\n\t\t\t Eof = false$\r\n\t\t\t\tloop\r\n\t\t\t\t readnext DictId else Eof = true$\r\n\t\t\t\t until Eof\r\n\t\t\t\t BtreeColumns := DictId:@vm\r\n\t\t\t\trepeat\r\n\t\t\t\tBtreeColumns[-1,1] = ''\r\n\t\t\t\tVoid = set_property( @window, '@BtreeColumns', BtreeColumns )\r\n\t\t\tend else\r\n\t\t\t * no btree columns\r\n\t\t\tend\r\n\t\t\tVoid = utility( 'CURSOR', 'A' )\r\n\t\tend\r\n QColumns = Columns\r\n BcCnt = fieldcount( BtreeColumns, @vm )\r\n for i = 1 to BcCnt\r\n locate BtreeColumns<1,i> in QColumns using @vm setting Rpos then\r\n QColumns = delete( QColumns, 1, Rpos, 0 )\r\n end\r\n next i\r\n Void = set_property( @window, '@QColumns', QColumns )\r\n end else\r\n Message = 'You are only allowed to view sharable or your own Export Templates...' \r\n Message = 'H'\r\n Void = msg( '', Message )\r\n .export_name->text = ''\r\n void = post_event( @window:'.EXPORT_NAME', 'GOTFOCUS', '' )\r\n void = set_property( @window:'.EXPORT_NAME', 'FOCUS', 1 )\r\n end\r\nend else\r\n forward_event( CtrlEntID, CtrlClassID )\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/EXPORTS..json b/LSL2/OIEVENT/READ/EXPORTS..json new file mode 100644 index 0000000..a47eab2 --- /dev/null +++ b/LSL2/OIEVENT/READ/EXPORTS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, rlist, Set_Property, Send_Event\r\ndeclare function msg, rowexists, post_event, fieldcount\r\n\r\n$insert rlist_equates\r\n$insert msg_equates\r\n$insert logical\r\n$insert exports_equ\r\n\r\nEid = .export_name->text\r\nif rowexists( 'EXPORTS', Eid ) then\r\n * ok now did this user enter it or is Heather trying to snoop\r\n Erec = xlate( 'EXPORTS', Eid, '', '' )\r\n ReadOk = false$\r\n if Erec or get_property( @window, '@SystemGenerated' ) OR (@USERNAME = 'BRYCE_BARB') then\r\n ReadOk = true$\r\n end else\r\n if @user4 = xlate( 'EXPORTS', Eid, exports_entry_id$, '' ) then\r\n ReadOk = true$\r\n end\r\n end\r\n if ReadOk then\r\n forward_event() \r\n if .exporttablenames->text = 'REACT_UTIL' then\r\n .UTIL_START->VISIBLE = 1\r\n .UTIL_END->VISIBLE = 1\r\n .UTIL_START_LABEL->VISIBLE = 1\r\n .UTIL_END_LABEL->VISIBLE = 1\r\n end else\r\n .UTIL_START->VISIBLE = 0\r\n .UTIL_END->VISIBLE = 0\r\n .UTIL_START_LABEL->VISIBLE = 0\r\n .UTIL_END_LABEL->VISIBLE = 0\r\n end \r\n\t\tTtable = .exporttablenames->text\r\n\t\tIF Ttable = '' AND (@USERNAME NE 'BRYCE_BARB') THEN\r\n\t\t\tCall ErrMsg('You do not have Read rights to the Table used in this export.')\r\n\t\t\tSet_Property(@WINDOW,'SAVEWARN',0)\r\n\t\t\tSend_Event(@WINDOW,'CLEAR')\r\n\t\t\tRETURN 0\r\n\t\tEND\r\n\t\t\r\n \tColumns = ''\r\n \tBtreeColumns = ''\t\t\r\n\t\tif Ttable then\r\n\t\t\tDictTable = 'DICT.':Ttable\r\n\t\t\tVoid = utility( 'CURSOR', 'H' )\r\n\t\t\tCmd = \"SELECT \":DictTable:\" BY @ID WITH F1 = 'F' 'S'\"\r\n\t\t\trlist( Cmd, target_activelist$, '', '', '' )\r\n\t\t\tif @reccount then\r\n\t\t\t Eof = false$\r\n\t\t\t loop\r\n\t\t\t readnext DictId else Eof = true$\r\n\t\t\t until Eof\r\n\t\t\t Columns := DictId:@vm\r\n\t\t\t repeat\r\n\t\t\t Columns[-1,1] = ''\r\n\t\t\t Void = set_property( @window, '@Columns', Columns )\r\n\t\t\tend \r\n\t\t\tCmd = \"SELECT \":DictTable:\" USING EXPORTS BY @ID WITH F6 = 1\"\r\n\t\t\trlist( Cmd, target_activelist$, '', '', '' )\r\n\t\t\t\r\n\t\t\tif @reccount then\r\n\t\t\t Eof = false$\r\n\t\t\t\tloop\r\n\t\t\t\t readnext DictId else Eof = true$\r\n\t\t\t\t until Eof\r\n\t\t\t\t BtreeColumns := DictId:@vm\r\n\t\t\t\trepeat\r\n\t\t\t\tBtreeColumns[-1,1] = ''\r\n\t\t\t\tVoid = set_property( @window, '@BtreeColumns', BtreeColumns )\r\n\t\t\tend else\r\n\t\t\t * no btree columns\r\n\t\t\tend\r\n\t\t\tVoid = utility( 'CURSOR', 'A' )\r\n\t\tend\r\n QColumns = Columns\r\n BcCnt = fieldcount( BtreeColumns, @vm )\r\n for i = 1 to BcCnt\r\n locate BtreeColumns<1,i> in QColumns using @vm setting Rpos then\r\n QColumns = delete( QColumns, 1, Rpos, 0 )\r\n end\r\n next i\r\n Void = set_property( @window, '@QColumns', QColumns )\r\n end else\r\n Message = 'You are only allowed to view sharable or your own Export Templates...' \r\n Message = 'H'\r\n Void = msg( '', Message )\r\n .export_name->text = ''\r\n void = post_event( @window:'.EXPORT_NAME', 'GOTFOCUS', '' )\r\n void = set_property( @window:'.EXPORT_NAME', 'FOCUS', 1 )\r\n end\r\nend else\r\n forward_event( CtrlEntID, CtrlClassID )\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/GAN_PROD_SPEC..json b/LSL2/OIEVENT/READ/GAN_PROD_SPEC..json new file mode 100644 index 0000000..967c72a --- /dev/null +++ b/LSL2/OIEVENT/READ/GAN_PROD_SPEC..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg, Set_Property\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, memberof, prod_spec_comm, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'PROD_SPEC', .prod_spec_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'Prod Spec', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Prod Spec', Write$ )\t \r\n\t ReadOk = false$\r\n\t .prod_spec_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n\r\n \r\n end\r\n \r\n ProdSpecID = .prod_spec_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/CUST_NAME/DIVISION/CTO_SIGNATURE/CTO_SIGNATURE_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'PROD_SPEC', ProdSpecID ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n *\r\n TMod = .mod_info->array\r\n InMod = Tmod<1>\r\n TMod<2> = oconv( InMod, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .mod_info->array = TMod\r\n \r\n if memberof( @user4, 'SALES' ) or memberof( @user4, 'MASTER' ) then\r\n .scan_button->visible = 1 \r\n end else\r\n .scan_button->visible = 0\r\n end\r\n *\r\n if NewRecord then\r\n .rtype->value = ''\r\n end else\r\n\t if security_check( 'Prod Spec', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t \r\n\t \r\n\t .spec_button_fix->enabled = 1\r\n\t .view_quotes_fix->enabled = 1\r\n Void = scroll_enable()\t \r\n\t end\r\n end\r\n Void = prod_spec_comm('SET_SCANNED_IMAGE') \r\nend\r\nSet_Property(@WINDOW,'VPOSITION', 1)\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/HOTH2O2_LOG..json b/LSL2/OIEVENT/READ/HOTH2O2_LOG..json new file mode 100644 index 0000000..379a1cf --- /dev/null +++ b/LSL2/OIEVENT/READ/HOTH2O2_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\nNewRecord = false$\r\nif rowexists( 'HOTH2O2_LOG', .log_no->text ) then\r\n ReadOk = true$; *anyone can look at the log\r\nend else\r\n * user is trying to add new, do they have write rights?\r\n if security_check( 'Hot H2O2 Log', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Hot H2O2 Log', Write$ )\t \r\n\t ReadOk = false$\r\n\t .log_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n LogNumber = .log_no->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/TECH_SIG/TECH_SIG_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'HOTH2O2_LOG', LogNumber ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'Hot H2O2 Log', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/INVOICE..json b/LSL2/OIEVENT/READ/INVOICE..json new file mode 100644 index 0000000..a8e11d7 --- /dev/null +++ b/LSL2/OIEVENT/READ/INVOICE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, scroll_enable\r\n\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert msg_equates\r\n\r\nNewRecord = false$\r\nif rowexists( 'INVOICE', .invoice_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * security check is done from the order\r\n * cannot create an invoice unless going through order\r\n if get_property( @window, '@AutoCreate' ) then\r\n ReadOk = true$ \r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You can only create invoices from order.'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\t \r\n\t ReadOk = false$\r\n\t .order_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n Void = set_property( @window, '@OrigInvoiceDetail', .invoice_detail->array )\r\n InvoiceNo = .invoice_no->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/STATUS/CUST_NO/CUST_NAME/CUST_DIVISION/'\r\n ProtectVar:= 'PO/ORDER_NO/WAF_SIZE/PLANT'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'INVOICE', InvoiceNo ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'Invoice', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t .print_invoice->enabled = 1\r\n\t * WAS A TEMPORARY FIX CAUSE OF SHIPPING AND RECEIVING IN TEMPE AND DARLA IN MESA\r\n\t *if @user4 = 'MIKE_M' or @user4 = 'LINDA_R' then\r\n\t * .tracking_no->enabled = 1\r\n\t * .force_update->enabled = 1\r\n\t * .box_cnt->enabled = 1\r\n\t *end\r\n\t Void = scroll_enable()\r\n\t end\r\n end\r\nend\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/LAST_WFR_CI_GROUP..json b/LSL2/OIEVENT/READ/LAST_WFR_CI_GROUP..json new file mode 100644 index 0000000..b613ee8 --- /dev/null +++ b/LSL2/OIEVENT/READ/LAST_WFR_CI_GROUP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg, Comm_RDS\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, scroll_enable, rds_comm, rds_comm2, memberof\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert rds_equ\r\n$insert msg_equates\r\n$insert prod_spec_equ\r\n$insert quote_spec_equ\r\n\r\nNewRecord = false$\r\nif rowexists( 'RDS', .rds_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new don't allow ( only create via schedule )\r\n MsgInfo = ''\r\n MsgInfo = 'Last Wafer - You can only create run data sheets from schedule.'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\t \r\n ReadOk = false$\r\n .rds_no->text = ''\r\n Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n Void = set_property( @window, '@TotRej', ((.cust_rej_tot->text ) + (.lsl_rej_tot->text)) ) \r\n Void = set_property( @window, '@NCRMustSave', false$ )\r\n RejAcct = .reject_info->array\r\n Void = set_property( @window, '@OrigRejAcct', RejAcct ) \r\n RdsNo = .rds_no->text\r\n .thick_all_label->text = xlate( 'RDS', RdsNo, 'THICK_MIN_TAR_MAX', 'X' )\r\n .res_all_label->text = xlate( 'RDS', RdsNo, 'RES_MIN_TAR_MAX', 'X' )\r\n .con_all_label->text = xlate( 'RDS', RdsNo, 'CON_MIN_TAR_MAX', 'X' ) \r\n TMod = .mod_info->array\r\n InMod = Tmod<1>\r\n TMod<2> = oconv( InMod, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .mod_info->array = TMod\r\n DisFields = 'REACTOR/LOT_NUM/QUOTE_NO/CUST_INFO/STATUS/PO_WO_PARTNUM/LOT_NUM_VERIFY/' \r\n DisFields:= 'RUN_ORDER_NUM/WAFERS_SCHEDULED/OP_OUT/OP_OUT_NAME/UNLOAD_BUTTON/WAFERS_IN/'\r\n DisFields:= 'OP_OUT_DATE/OP_OUT_TIME/LSL_REJ_TOT/CUST_REJ_TOT/PSN'\r\n swap '/' with @rm:@window:'.' in DisFields\r\n DisFields = @window:'.':DisFields\r\n void = set_property( DisFields, 'ENABLED', 0 )\r\n if memberof( @user4, 'ENGINEERING' ) or memberof( @user4, 'MASTER' ) then\r\n .srpcfg_button->visible = 1 \r\n end else\r\n .srpcfg_button->visible = 0\r\n end\r\n if NewRecord else\r\n\t if security_check( 'RDS', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n Void = scroll_enable()\t \t \r\n\t end\r\n end\r\n Void = rds_comm2('SET_SRP_PROFILE') \r\n Void = rds_comm( \"READ_STORE\" )\r\n Void = rds_comm2( \"HOLD_CHECK\" )\r\n Void = rds_comm2( \"SUPPL_CHECK\" ) \r\n \r\n Comm_RDS('Refresh') ;* Added 09/23/2004 JCH\r\nend\r\nreturn 0 " + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/LISTBOX_CONFIG..json b/LSL2/OIEVENT/READ/LISTBOX_CONFIG..json new file mode 100644 index 0000000..af1e6d2 --- /dev/null +++ b/LSL2/OIEVENT/READ/LISTBOX_CONFIG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function admin_user, msg, send_event, post_event\r\ndeclare subroutine forward_event\r\n$insert listbox_config_equ\r\n$insert logical\r\n$insert quote_sigs_equ\r\n$insert msg_equates\r\n\r\nif admin_user( @user4 ) then\r\n * OK THEY ARE AN ADMINISTRATOR\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\nend else\r\n ProdMgr = xlate( 'CONFIG', 'QUOTE_SIGS', ProdMgr$, 'X' )\r\n if ( @user4 = ProdMgr ) OR ( @USER4 = 'PAUL_W' ) OR ( @user4 = 'DARYL_H' ) or ( @user4 = 'PETER_Z' ) then\r\n * IT IS THE MFG MGR - ON READ NEED TO CHECK TO SEE IF \r\n * THE RECORD IS CHECKED FOR MANUF_CHECK OTHERWISE DISALLOW\r\n ID = .item->text\r\n LBRec = xlate( 'LISTBOX_CONFIG', ID, '', 'X' )\r\n if ( LBRec <> '' ) and ( LBRec = 1 ) then\r\n\t\t if get_property( @window, '@NoRead' ) then\r\n\t\t Void = set_property( @window, '@NoRead', 0 )\r\n\t\t end else\r\n\t\t * no qbf active do the read\r\n\t\t * if it is active the read already took place\r\n\t\t forward_event()\r\n\t\t end\r\n end else\r\n Void = send_event( CtrlEntId, 'CLEAR', False$, True$ )\t\t\t \r\n\t\t\tMessage = 'You do not have the proper security to view/modify ' :quote(ID):'.'\r\n\t\t\tMessage = 'H'\r\n\t\t\tVoid = msg( '', Message )\r\n end\r\n end else\r\n * SHOULD NEVER GET HERE CAUSE CREATE CODE WILL CLOSE THE WINDOW\r\n\t\tVoid = send_event( @window, 'CLOSE' )\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/LOSS_CODES..json b/LSL2/OIEVENT/READ/LOSS_CODES..json new file mode 100644 index 0000000..d30697e --- /dev/null +++ b/LSL2/OIEVENT/READ/LOSS_CODES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'LOSS_CODES', .loss_code->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'Loss Codes', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Loss Codes', Write$ )\t \r\n\t ReadOk = false$\r\n\t .loss_code->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n LossCode = .loss_code->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'LOSS_CODES', LossCode ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'Loss Codes', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/MASTER_DISK_LOG..json b/LSL2/OIEVENT/READ/MASTER_DISK_LOG..json new file mode 100644 index 0000000..ab09782 --- /dev/null +++ b/LSL2/OIEVENT/READ/MASTER_DISK_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\nNewRecord = false$\r\nif rowexists( 'MASTER_DISK_LOG', .log_no->text ) then\r\n ReadOk = true$; *anyone can look at the log\r\nend else\r\n * user is trying to add new, do they have write rights?\r\n if security_check( 'Master Disk Log', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Master Disk Log', Write$ )\t \r\n\t ReadOk = false$\r\n\t .log_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n LogNumber = .log_no->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/TECH_SIG/TECH_SIG_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'MASTER_DISK_LOG', LogNumber ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'Master Disk Log', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/MEG_LOG..json b/LSL2/OIEVENT/READ/MEG_LOG..json new file mode 100644 index 0000000..3dbadee --- /dev/null +++ b/LSL2/OIEVENT/READ/MEG_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\nNewRecord = false$\r\nif rowexists( 'MEG_LOG', .log_no->text ) then\r\n ReadOk = true$; *anyone can look at the log\r\nend else\r\n * user is trying to add new, do they have write rights?\r\n if security_check( 'Meg Log', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Meg Log', Write$ )\t \r\n\t ReadOk = false$\r\n\t .log_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n LogNumber = .log_no->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/TECH_SIG/TECH_SIG_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'MEG_LOG', LogNumber ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'Meg Log', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/MSG_GROUPS..json b/LSL2/OIEVENT/READ/MSG_GROUPS..json new file mode 100644 index 0000000..98f54a0 --- /dev/null +++ b/LSL2/OIEVENT/READ/MSG_GROUPS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function msg, post_event, rowexists\r\ndeclare function set_property, get_property\r\n$insert msg_groups_equ\r\n$insert msg_equates\r\n\r\nTempGroupName = .group_name->text; *converting any spaces into underscores\r\nconvert ' ' to '_' in TempGroupName\r\n.group_name->text = TempGroupName\r\n\r\nGroupName = Get_Property(@WINDOW:'.GROUP_NAME','DEFPROP')\r\n\r\nif rowexists( 'MSG_GROUPS', GroupName ) then\r\n if @user4 = xlate( 'MSG_GROUPS', GroupName, msg_groups_entry_id$, '' ) OR GroupName = 'ALL_ACTIVE_USERS' then\r\n if get_property( @window, '@NoRead' ) <> 1 then\r\n \tforward_event(); *this reads & displays the record\r\n end\r\n end else\r\n Message = 'You are only allowed to view your own groups.' \r\n Message = 'H'\r\n Void = msg( '', Message )\r\n .group_name->text = ''\r\n void = post_event( @window:'.GROUP_NAME', 'GOTFOCUS', '' )\r\n void = set_property( @window:'.GROUP_NAME', 'FOCUS', 1 )\r\n end\r\nend else; *new record\r\n\tforward_event()\r\n\t.entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t.entry_date->text = oconv( date(), 'D2/' )\r\nend\r\n\r\nProtectVar = 'ENTRY_ID/ENTRY_DATE'\r\nswap '/' with @rm:@window:'.' in ProtectVar\r\nProtectVar = @window:'.':ProtectVar\r\nVoid = set_property( ProtectVar, 'ENABLED', 0 )\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/NAMES..json b/LSL2/OIEVENT/READ/NAMES..json new file mode 100644 index 0000000..469db49 --- /dev/null +++ b/LSL2/OIEVENT/READ/NAMES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function rowexists, security_check, end_window, post_event, fieldcount, scroll_enable\r\n\r\n$insert logical\r\n$insert security_rights_equ\r\nNewRecord = false$\r\nif rowexists( 'NAMES', .seq->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have the rights\r\n if security_check( 'Names', Write$ ) then\r\n ReadOk = true$\r\n end else\r\n security_err_msg( 'Names', Write$ )\r\n ReadOk = false$\r\n Void = post_event( CtrlEntId, 'CLOSE' )\r\n *Void = end_window( @window, '' ) \r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else ;* QBF meaning the read already took place\r\n forward_event()\r\n end\r\n\tif .co_id->text = '' then\r\n\t .co_id->text = .co_id->misc\r\n\tend\r\n\tif RowExists( 'NAMES', .seq->text ) then\r\n\t .co_id->text = .co_id->misc\r\n\tend else \r\n\t .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t .entry_date->text = oconv( date(), 'D2/' )\r\n\tend\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/ACCT_REP'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\t\r\n\tif NewRecord else\r\n\t if security_check( 'Names', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm )\r\n\t for i = 1 to Acnt\r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t Void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end\r\n\t next i\r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n\tend\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/NDA..json b/LSL2/OIEVENT/READ/NDA..json new file mode 100644 index 0000000..64c74cd --- /dev/null +++ b/LSL2/OIEVENT/READ/NDA..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'NDA', .nda_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'NDA', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'NDA', Write$ )\t \r\n\t ReadOk = false$\r\n\t .nda_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n NDAId = .nda_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/CUST_NAME/DIVISION'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'NDA', NDAId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n \r\n if NewRecord else\r\n\t if security_check( 'NDA', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n Void = scroll_enable()\t \t \t \r\n\t end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/NDW_RDS_PROC_STAT_NEPP..json b/LSL2/OIEVENT/READ/NDW_RDS_PROC_STAT_NEPP..json new file mode 100644 index 0000000..49ab70a --- /dev/null +++ b/LSL2/OIEVENT/READ/NDW_RDS_PROC_STAT_NEPP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\nIf @User4 EQ 'DANIEL_ST' then debug\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/NOTES..json b/LSL2/OIEVENT/READ/NOTES..json new file mode 100644 index 0000000..9c10a19 --- /dev/null +++ b/LSL2/OIEVENT/READ/NOTES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, notes_comm, yield\r\ndeclare function rowexists\r\n$insert notes_equ\r\n\r\nforward_event()\r\n\r\n*CODE FOR \"REPLYING\"\r\nSendTo = get_property( @window, '@SendTo' )\r\nSubject = get_property( @window, '@Subject' )\r\nMessage = get_property( @window, '@Message' )\r\nif SendTo then\r\n .send_to_internal->array = SendTo\r\n .subject->text = Subject\r\n .message_internal->text = Message\r\n .from_internal->text = @user4\r\n .from_internal_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n AttachArray = ''\r\n AttachArray<1> = get_property( @window, '@AttachWin' )\r\n AttachArray<2> = get_property( @window, '@AttachKeys' )\r\n .attach_info->array = AttachArray\r\n Void = set_property( @window, '@SendTo', '' )\r\n Void = set_property( @window, '@Subject', '' )\r\n Void = set_property( @window, '@Message', '' )\r\n Void = set_property( @window, '@AttachWin', '' )\r\n Void = set_property( @window, '@AttachKeys', '' )\r\n .SEND_TO_PHONE->TEXT = SendTo<1,1> ;* PUT A VALUE CAUSE IT WAS \r\n .FROM_PHONE->TEXT = @USER4 ;* SAYING REQUIRED WHEN INVISIBLE\r\n ;* APPEARS THAT THE WINDOW USES FROM\r\n ;* PHONE ON THE WRITE EVEN THOUGH IT\r\n ;* IS NOT VISIBLE\r\n @@window->savewarn = 1\r\nend\r\n\r\nAttachInfo = .attach_info->array\r\nAttachWin = AttachInfo<1,1>\r\nAttachKeys = AttachInfo<2>\r\nif AttachWin and AttachKeys then\r\n .view_attach_button->visible=1\r\nend\r\n\r\n*notes_comm( 'SET_FIELDS' )\r\n\r\nif get_property( @window, '@called' ) then\r\n Tarray = .send_to_internal->array\r\n Tarray<2> = oconv( Tarray<1>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .send_to_internal->array = Tarray\r\nend\r\nif rowexists( 'NOTES', .seq->text ) then\r\n\t*WE'RE ONLY GOING TO SHOW THE GROUP NAME IF THE SENDER OF THE NOTE IS ALSO THE RECEIVER\r\n\tif oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ) = .entry_id->text else\r\n\t\t.send_to_group_int->visible = 0\r\n\t\t.send_to_group_text->visible = 0\r\n\tend\t\r\n .seq->enabled = 0\r\nend else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' )\r\n .entry_time->text = oconv( time(), 'MTH' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/ORDER..json b/LSL2/OIEVENT/READ/ORDER..json new file mode 100644 index 0000000..4142971 --- /dev/null +++ b/LSL2/OIEVENT/READ/ORDER..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\nNewRecord = false$\r\nif rowexists( 'ORDER', .order_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'Order', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Order', Write$ )\t \r\n\t ReadOk = false$\r\n\t .order_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n Void = set_property( @window, '@OrigOrderDetail', .order_detail->array )\r\n Void = set_property( @window, '@OrigPo', .po->text )\r\n Void = set_property( @window, '@OrigCustNo', .cust_no->text )\r\n Void = send_event( @window:'.ORDER_DETAIL', 'CALCULATE', 13 )\r\n OrderNo = .order_no->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/STATUS/CLOSE_DATE/CONTACT_NAME/CUST_NAME/'\r\n ProtectVar:= 'DIVISION'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'ORDER', OrderNo ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n IF @USER4 = 'BRYCE_M' THEN\r\n .ENTRY_DATE->ENABLED = 1\r\n END \r\n if NewRecord else\r\n\t if security_check( 'Order', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\r\n\t .print_button->enabled = 1\r\n\t .button_2->enabled = 1\r\n\t end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/PHOTOFLO_LOG..json b/LSL2/OIEVENT/READ/PHOTOFLO_LOG..json new file mode 100644 index 0000000..505bdea --- /dev/null +++ b/LSL2/OIEVENT/READ/PHOTOFLO_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\nNewRecord = false$\r\nif rowexists( 'PHOTOFLO_LOG', .log_no->text ) then\r\n ReadOk = true$; *anyone can look at the log\r\nend else\r\n * user is trying to add new, do they have write rights?\r\n if security_check( 'PhotoFlo Log', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'PhotoFlo Log', Write$ )\t \r\n\t ReadOk = false$\r\n\t .log_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n LogNumber = .log_no->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/TECH_SIG/TECH_SIG_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'PHOTOFLO_LOG', LogNumber ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'PhotoFlo Log', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/PROD_SPEC..json b/LSL2/OIEVENT/READ/PROD_SPEC..json new file mode 100644 index 0000000..343d18c --- /dev/null +++ b/LSL2/OIEVENT/READ/PROD_SPEC..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg, unlock, start_window, set_property, post_event\r\ndeclare subroutine DBW_PROD_SPEC_GAN_EVENTS, Msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, memberof, prod_spec_comm, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\t\r\n\tPSNo = Get_Property(@Window:'.PROD_SPEC_ID', 'TEXT')\r\n\tReactType = Xlate('PROD_SPEC', PSNo, 'REACTOR_TYPE', 'X')\r\n\tIf ReactType EQ 'GAN' then\r\n\t\t*locktype = ''\r\n\t\t*Unlock('PROD_SPEC', PSNo, '', locktype)\r\n\t\tParentWindow = Get_Property(@Window, \"PARENT\")\r\n\t\tStart_Window('DBW_PROD_SPEC_GAN', ParentWindow, PSNo)\r\n\t\t* determine which control has focus\r\n *GotFocus_Control = Get_Property(@window,\"GOTFOCUS_CONTROL\")\r\n \r\n * force the matching of the GOTFOCUS and DEFPROP properties on the control which has focus\r\n *Set_Property( GotFocus_Control, \"FOCUS\", 1)\r\n \r\n * Turn the SAVEWARN message off\r\n *Set_Property(@window,\"SAVEWARN\",0)\r\n\t\t*Post_Event(@Window, 'CLOSE')\t\t\t\t\r\n\tend else\r\n\r\n\r\n\tNewRecord = false$\r\n\tif rowexists( 'PROD_SPEC', PSNo ) then\r\n\t ReadOk = true$\r\n\tend else\r\n\r\n // Block user from reserving their own key out of sequence.\r\n ErrorMsg = 'PROD_SPEC ':PSNo:' does not exist! You must use the \"Create New PSN\" button in order to create a '\r\n ErrorMsg := 'brand new PROD_SPEC record.'\r\n Msg(@Window, '', 'OK', '', 'Error':@FM:ErrorMsg)\r\n .prod_spec_id->text = ''\r\n ReadOK = False$\r\n\t\tVoid = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n\t\t\r\n\t\t// Deprecated code - DJS - 3/8/2022\t\r\n\t\t// Some of this logic has been moved to the PUB_CREATE_NEW_PSN.CLICK() event within PROD_SPEC_EVENTS\r\n\t * user is trying to add new do they have write rights\r\n\t *if security_check( 'Prod Spec', Write$ ) then\r\n\t *ReadOk = true$ \r\n\t *end else\r\n\t *security_err_msg( 'Prod Spec', Write$ )\t \r\n\t\t *ReadOk = false$\r\n\t\t *.prod_spec_id->text = ''\r\n\t\t *Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n\t *end\r\n\t *NewRecord = true$\r\n\tend\r\n\r\n\r\n\r\n\tif ReadOk then\r\n\t if get_property( @window, '@NoRead' ) then\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t * no qbf active do the read\r\n\t * if it is active the read already took place\r\n\t forward_event()\r\n\r\n\t \r\n\t end\r\n\t \r\n\t ProdSpecID = .prod_spec_id->text\r\n\t ProtectVar = 'ENTRY_ID/ENTRY_DATE/CUST_NAME/DIVISION/CTO_SIGNATURE/CTO_SIGNATURE_NAME'\r\n\t swap '/' with @rm:@window:'.' in ProtectVar\r\n\t ProtectVar = @window:'.':ProtectVar\r\n\t Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n\t if rowexists( 'PROD_SPEC', ProdSpecID ) else\r\n\t .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t .entry_date->text = oconv( date(), 'D2/' ) \r\n\t end \r\n\t *\r\n\t TMod = .mod_info->array\r\n\t InMod = Tmod<1>\r\n\t TMod<2> = oconv( InMod, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t .mod_info->array = TMod\r\n\t \r\n\t if memberof( @user4, 'SALES' ) or memberof( @user4, 'MASTER' ) then\r\n\t .scan_button->visible = 1 \r\n\t end else\r\n\t .scan_button->visible = 0\r\n\t end\r\n\t *\r\n\t if NewRecord then\r\n\t .rtype->value = ''\r\n\t end else\r\n\t\t if security_check( 'Prod Spec', Edit$ ) else\r\n\t\t * protect all fields\r\n\t\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t\t \r\n\t\t \r\n\t\t .spec_button_fix->enabled = 1\r\n\t\t .view_quotes_fix->enabled = 1\r\n\t Void = scroll_enable()\t \r\n\t\t end\r\n\t end\r\n\t Void = prod_spec_comm('SET_SCANNED_IMAGE') \r\n\tend\r\n\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/PROD_SPEC_BACKUP..json b/LSL2/OIEVENT/READ/PROD_SPEC_BACKUP..json new file mode 100644 index 0000000..7b3b936 --- /dev/null +++ b/LSL2/OIEVENT/READ/PROD_SPEC_BACKUP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, memberof, prod_spec_comm, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'PROD_SPEC', .prod_spec_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'Prod Spec', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Prod Spec', Write$ )\t \r\n\t ReadOk = false$\r\n\t .prod_spec_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n\r\n \r\n end\r\n \r\n ProdSpecID = .prod_spec_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/CUST_NAME/DIVISION/CTO_SIGNATURE/CTO_SIGNATURE_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'PROD_SPEC', ProdSpecID ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n *\r\n TMod = .mod_info->array\r\n InMod = Tmod<1>\r\n TMod<2> = oconv( InMod, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .mod_info->array = TMod\r\n \r\n if memberof( @user4, 'SALES' ) or memberof( @user4, 'MASTER' ) then\r\n .scan_button->visible = 1 \r\n end else\r\n .scan_button->visible = 0\r\n end\r\n *\r\n if NewRecord then\r\n .rtype->value = ''\r\n end else\r\n\t if security_check( 'Prod Spec', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t \r\n\t \r\n\t .spec_button_fix->enabled = 1\r\n\t .view_quotes_fix->enabled = 1\r\n Void = scroll_enable()\t \r\n\t end\r\n end\r\n Void = prod_spec_comm('SET_SCANNED_IMAGE') \r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/PROD_SPEC_JCH..json b/LSL2/OIEVENT/READ/PROD_SPEC_JCH..json new file mode 100644 index 0000000..7b3b936 --- /dev/null +++ b/LSL2/OIEVENT/READ/PROD_SPEC_JCH..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, memberof, prod_spec_comm, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'PROD_SPEC', .prod_spec_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'Prod Spec', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Prod Spec', Write$ )\t \r\n\t ReadOk = false$\r\n\t .prod_spec_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n\r\n \r\n end\r\n \r\n ProdSpecID = .prod_spec_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/CUST_NAME/DIVISION/CTO_SIGNATURE/CTO_SIGNATURE_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'PROD_SPEC', ProdSpecID ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n *\r\n TMod = .mod_info->array\r\n InMod = Tmod<1>\r\n TMod<2> = oconv( InMod, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .mod_info->array = TMod\r\n \r\n if memberof( @user4, 'SALES' ) or memberof( @user4, 'MASTER' ) then\r\n .scan_button->visible = 1 \r\n end else\r\n .scan_button->visible = 0\r\n end\r\n *\r\n if NewRecord then\r\n .rtype->value = ''\r\n end else\r\n\t if security_check( 'Prod Spec', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t \r\n\t \r\n\t .spec_button_fix->enabled = 1\r\n\t .view_quotes_fix->enabled = 1\r\n Void = scroll_enable()\t \r\n\t end\r\n end\r\n Void = prod_spec_comm('SET_SCANNED_IMAGE') \r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/PROD_SPEC_JRO..json b/LSL2/OIEVENT/READ/PROD_SPEC_JRO..json new file mode 100644 index 0000000..7b3b936 --- /dev/null +++ b/LSL2/OIEVENT/READ/PROD_SPEC_JRO..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, memberof, prod_spec_comm, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'PROD_SPEC', .prod_spec_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'Prod Spec', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Prod Spec', Write$ )\t \r\n\t ReadOk = false$\r\n\t .prod_spec_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n\r\n \r\n end\r\n \r\n ProdSpecID = .prod_spec_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/CUST_NAME/DIVISION/CTO_SIGNATURE/CTO_SIGNATURE_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'PROD_SPEC', ProdSpecID ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n *\r\n TMod = .mod_info->array\r\n InMod = Tmod<1>\r\n TMod<2> = oconv( InMod, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .mod_info->array = TMod\r\n \r\n if memberof( @user4, 'SALES' ) or memberof( @user4, 'MASTER' ) then\r\n .scan_button->visible = 1 \r\n end else\r\n .scan_button->visible = 0\r\n end\r\n *\r\n if NewRecord then\r\n .rtype->value = ''\r\n end else\r\n\t if security_check( 'Prod Spec', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t \r\n\t \r\n\t .spec_button_fix->enabled = 1\r\n\t .view_quotes_fix->enabled = 1\r\n Void = scroll_enable()\t \r\n\t end\r\n end\r\n Void = prod_spec_comm('SET_SCANNED_IMAGE') \r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/P_NAMES..json b/LSL2/OIEVENT/READ/P_NAMES..json new file mode 100644 index 0000000..c78d24a --- /dev/null +++ b/LSL2/OIEVENT/READ/P_NAMES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, msg, post_event, set_property\r\ndeclare subroutine forward_event\r\n$insert msg_equates\r\n$insert p_names_equ\r\n\r\nif rowexists( 'P_NAMES', .seq->text ) then\r\n * ok now did this user enter it or is Heather trying to snoop\r\n if @user4 = xlate( 'P_NAMES', .seq->text, p_names_entry_id$, '' ) then\r\n forward_event()\r\n end else\r\n Message = 'You are only allowed to view your own Personal Names.' \r\n Message = 'H'\r\n Void = msg( '', Message )\r\n .seq->text = ''\r\n void = post_event( @window:'.SEQ', 'GOTFOCUS', '' )\r\n void = set_property( @window:'.SEQ', 'FOCUS', 1 )\r\n end\r\nend else\r\n forward_event()\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/QUARTZ_TC_LOG..json b/LSL2/OIEVENT/READ/QUARTZ_TC_LOG..json new file mode 100644 index 0000000..fa15e03 --- /dev/null +++ b/LSL2/OIEVENT/READ/QUARTZ_TC_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable, quartz_tc_log_comm\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'QUARTZ_TC_LOG', .tc_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new, do they have write rights?\r\n if security_check( 'Quartz TC Log', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Quartz TC Log', Write$ )\t \r\n\t ReadOk = false$\r\n\t .tc_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n TCNO = .tc_no->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/ENTRY_TIME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'QUARTZ_TC_LOG', TCNO ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n .entry_time->text = oconv( time(), 'MTH' )\r\n end \r\n if NewRecord else\r\n\t if security_check( 'Quartz TC Log', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\n Void = quartz_tc_log_comm('TC_CHG_TYPE')\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/QUARTZ_WAND_LOG..json b/LSL2/OIEVENT/READ/QUARTZ_WAND_LOG..json new file mode 100644 index 0000000..95da840 --- /dev/null +++ b/LSL2/OIEVENT/READ/QUARTZ_WAND_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\nNewRecord = false$\r\n\r\nif rowexists( 'QUARTZ_WAND_LOG', .wand_log_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new, do they have write rights?\r\n if security_check( 'Quartz Wand Log', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Quartz Wand Log', Write$ )\t \r\n\t ReadOk = false$\r\n\t .wand_log_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n WandLogNo = .wand_log_no->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/ENTRY_TIME/STATUS/TECH_SIG/TECH_SIG_NAME/QUARTZ_SIG/QUARTZ_SIG_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'QUARTZ_WAND_LOG', WandLogNo ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n .entry_time->text = oconv( time(), 'MTH' )\r\n end \r\n if NewRecord else\r\n\t if security_check( 'Quartz Wand Log', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\n ***********Void = Quartz_Wand_Log_comm('WAND_CHG_TYPE')\r\nend\r\nRETURN 0\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/QUOTE..json b/LSL2/OIEVENT/READ/QUOTE..json new file mode 100644 index 0000000..776a576 --- /dev/null +++ b/LSL2/OIEVENT/READ/QUOTE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert quote_equ\r\n\r\nNewRecord = false$\r\nif rowexists( 'QUOTE', .quote_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'Quote', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Quote', Write$ )\t \r\n\t ReadOk = false$\r\n\t .quote_no->text = ''\r\n\t Void = post_event( CtrlEntID, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n QuoteNo = .quote_no->text\r\n TSig = .signatures->array<1>\r\n TSigOut = oconv( TSig, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .signatures->array = TSig:@fm:TSigOut\r\n CurSigs = TSig:@fm:TSigOut\r\n ProtectVar = 'STATUS/ENTRY_ID/ENTRY_DATE/CUST_NAME/CONTACT_NAME/'\r\n ProtectVar:= 'DIVISION/CUST_REV/CUST_SPEC/ACCT_REP'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'QUOTE', QuoteNo ) then\r\n TPSNs = .prev_psns->array\r\n if ( TPSNs = '' ) then\r\n .prev_psns->array = @vm\r\n end\r\n end else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n .final_layer->check = true$\r\n .prev_psns->array = @vm ;* SO IT DOESN'T BLANK OUT\r\n end \r\n Void = set_property( @window, '@OrigInqStatus', .inquiry_status->value )\r\n if NewRecord else\r\n\t if security_check( 'Quote', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i\r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n\t .psn_view->enabled = 1\r\n end\r\nend\r\nreturn 0 \r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/QUOTE_SRL..json b/LSL2/OIEVENT/READ/QUOTE_SRL..json new file mode 100644 index 0000000..5dda6d1 --- /dev/null +++ b/LSL2/OIEVENT/READ/QUOTE_SRL..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert quote_equ\r\n\r\nNewRecord = false$\r\nif rowexists( 'QUOTE_SRL', .quote_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'Quote SRL', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Quote SRL', Write$ )\t \r\n\t ReadOk = false$\r\n\t .quote_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event( CtrlEntId, CtrlClassId )\r\n end\r\n QuoteNo = .quote_no->text\r\n ProtectVar = 'STATUS/ENTRY_ID/ENTRY_DATE/CUST_NAME/CONTACT_NAME/WAFER_DESC/'\r\n ProtectVar:= 'DIVISION'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'QUOTE_SRL', QuoteNo ) else\r\n .entry_id->text = oconv( @username, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'Quote SRL', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t end\r\n end\r\nend\r\nreturn 0 \r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/RDS..json b/LSL2/OIEVENT/READ/RDS..json new file mode 100644 index 0000000..27a6ab8 --- /dev/null +++ b/LSL2/OIEVENT/READ/RDS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg, Comm_RDS\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, scroll_enable, rds_comm, rds_comm2\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert rds_equ\r\n$insert msg_equates\r\n$insert prod_spec_equ\r\n\r\nNewRecord = false$\r\nRdsNo = .rds_no->text\r\nif RdsNo[1,2] = '1T' then\r\n\t.rds_no->text = RdsNo[3,99]\r\n\tRdsNo = .rds_no->text\r\nend\r\n*if rowexists( 'RDS', .rds_no->text ) then\r\nif rowexists( 'RDS', RdsNo ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new don't allow ( only create via schedule )\r\n MsgInfo = ''\r\n MsgInfo = 'Load - You can only create run data sheets from schedule.'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\t \r\n ReadOk = false$\r\n .rds_no->text = ''\r\n Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n if .wo_verify->check then\r\n .wo_verify_view->visible = true$\r\n CallVerification = get_property( @window, '@CALLVERIFICATION' )\r\n if CallVerification then\r\n Void = post_event( @window:'.WO_VERIFY_VIEW', 'CLICK' )\r\n end\r\n end else\r\n .wo_verify_view->visible = false$\r\n end\r\n \r\n \r\n ************************\r\n LayerInfo = .layer_info->text\r\n \r\n RdsNo = .rds_no->text\r\n TMod = .mod_info->array\r\n InMod = Tmod<1>\r\n TMod<2> = oconv( InMod, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .mod_info->array = TMod\r\n \r\n DisFields = 'LOT_NUM/QUOTE_NO/CUST_INFO/STATUS/PO_WO_PARTNUM/LOT_NUM_VERIFY/PSN/WO_VERIFY/'\r\n DisFields:= 'REACTOR/RUN_ORDER_NUM/OP_IN/OP_IN_NAME/OP_IN_DATE/OP_IN_TIME/FIRST_WAF_BUTTON/'\r\n DisFields:= 'FW_SIG/FW_SIG_NAME/FW_SIG_DATE/FW_SIG_TIME'\r\n swap '/' with @rm:@window:'.' in DisFields\r\n DisFields = @window:'.':DisFields\r\n EpiOvrControls = get_property( @window, '@EpiOvrControls' ) \r\n DisFields := @rm:EpiOvrControls\r\n void = set_property( DisFields, 'ENABLED', 0 )\r\n \r\n if @record = 'ê/Ãœ' then\r\n * ohms squared use sheetrho for label and calculations\r\n .thick_resrho_label->text = 'Thickness:SheetRHO:' \r\n end else\r\n .thick_resrho_label->text = 'Thickness:Resistivity:' \r\n end\r\n \r\n RecipeInfo = .recipe_info->array \r\n Void = set_property( @window, '@OrigRecipeInfo', RecipeInfo )\r\n \r\n * IF THE FREQUENCY FOR THICKNESS AND RESISTIVITY ARE BOTH 1 THEN DISABLE THE SEND_DATA BUTTON\r\n \r\n PSNID = .PSN->text\r\n \r\n if NewRecord else\r\n\t if security_check( 'RDS', Edit$ ) then\r\n\t .maint_button->visible = ( xlate( 'RDS', .rds_no->text, 'REACTOR_LOG_KEYS', 'X' ) <> '' )\r\n\t end else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n Void = scroll_enable()\t \t \r\n\t end\r\n end\r\n Comm_RDS('FirstRead')\r\n \r\n Void = rds_comm( \"READ_STORE\" ) \r\n Void = rds_comm2( \"HOLD_CHECK\" ) \r\n Void = rds_comm2( \"SUPPL_CHECK\" )\r\n gosub LoadExSigInfo \r\nend\r\nreturn 0 \r\n****************************************************************************************************************************\r\nLoadExSigInfo:\r\n RDSRec = xlate( 'RDS', .rds_no->text, '', 'X' )\r\n ExSigInfo = ''\r\n ExSigInfo<1> = RDSRec\r\n ExSigInfo<2> = oconv( RDSRec, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n ExSigInfo<3> = RDSRec\r\n ExSigInfo<4> = RDSREc\r\n ExSigInfo<5> = RDSRec\r\n ExSigInfo<6> = oconv( RDSRec, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n ExSigInfo<7> = RDSRec\r\n ExSigInfo<8> = RDSREc\r\n ExSigInfo<9> = RDSRec\r\n ExSigInfo<10> = oconv( RDSRec, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n ExSigInfo<11> = RDSRec\r\n ExSigInfo<12> = RDSREc\r\n ExSigInfo<13> = RDSRec\r\n ExSigInfo<14> = oconv( RDSRec, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n ExSigInfo<15> = RDSRec\r\n ExSigInfo<16> = RDSREc\r\n Void = set_property( @window, '@ExSigInfo', ExSigInfo )\r\n Void = set_property( @window, '@ExSigWrite', 0 ) \r\nreturn\r\n****************************************************************************************************************************" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/RDS_POST_EPI..json b/LSL2/OIEVENT/READ/RDS_POST_EPI..json new file mode 100644 index 0000000..1027f60 --- /dev/null +++ b/LSL2/OIEVENT/READ/RDS_POST_EPI..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg, Comm_RDS\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, scroll_enable, rds_comm, rds_comm2\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert rds_equ\r\n$insert msg_equates\r\n$insert prod_spec_equates\r\n$insert quote_spec_equ\r\n\r\nNewRecord = false$\r\nRDSNo = .rds_no->text\r\nswap '1T' with '' in RDSNo\r\n.rds_no->text = RDSNo\r\n\r\nif rowexists( 'RDS', RDSNo ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new don't allow ( only create via schedule )\r\n MsgInfo = ''\r\n MsgInfo = 'Post Epi - You can only create run data sheets from schedule.'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\t \r\n ReadOk = false$\r\n .rds_no->text = ''\r\n Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n if .post_clean->text = 'No' then\r\n * NO POST CLEAN REQUIRED SO PROTECT THE PROPER FIELDS\r\n .postcleansrd->enabled = 0\r\n .postcleancassid->enabled = 0\r\n .postcleancode->enabled = 0\r\n end else\r\n .postcleansrd->enabled = 1\r\n .postcleancassid->enabled = 1\r\n .postcleancode->enabled = 1\r\n end \r\n \r\n\t* Added by JCH on 4/17/2004 - Update for SURF_SCAN table addition * * * * * * * * * * *\r\n\t\r\n\tIF Get_Property(@WINDOW:'.SURFSCAN','CHECK') THEN\r\n\t\tstat = Set_Property(@WINDOW:'.SURF_SCAN_BUTTON','ENABLED',1)\r\n\tEND ELSE\r\n\t\tstat = Set_Property(@WINDOW:'.SURF_SCAN_BUTTON','ENABLED',0)\r\n\tEND\r\n\t\r\n\tComm_RDS('Refresh')\r\n \r\n * End of mod by JCH \r\n \r\n .thick_all_label->text = xlate( 'RDS', RdsNo, 'THICK_MIN_TAR_MAX', 'X' )\r\n .res_all_label->text = xlate( 'RDS', RdsNo, 'RES_MIN_TAR_MAX', 'X' )\r\n .con_all_label->text = xlate( 'RDS', RdsNo, 'CON_MIN_TAR_MAX', 'X' ) \r\n TMod = .mod_info->array\r\n InMod = Tmod<1>\r\n TMod<2> = oconv( InMod, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .mod_info->array = TMod\r\n DisFields = 'REACTOR/LOT_NUM/QUOTE_NO/CUST_INFO/STATUS/PO_WO_PARTNUM/LOT_NUM_VERIFY/' \r\n DisFields:= 'RUN_ORDER_NUM/WAFERS_SCHEDULED/POST_EPI_SIG/POST_EPI_SIG_NAME/'\r\n DisFields:= 'POST_EPI_SIG_DATE/POST_EPI_SIG_TIME/POST_EPI_SUP_SIG/POST_EPI_SUP_SIG_NAME/'\r\n DisFields:= 'POST_EPI_SUP_SIG_DATE/POST_EPI_SUP_SIG_TIME/POST_CLEAN/POST_EPI_BUTTON/SHIP_BAG_REQ/'\r\n DisFields:= 'BRIGHTLIGHT/SURFSCAN/SURFSCAN_RECIPE/WAFERS_OUT'\r\n swap '/' with @rm:@window:'.' in DisFields\r\n DisFields = @window:'.':DisFields\r\n void = set_property( DisFields, 'ENABLED', 0 )\r\n if NewRecord else\r\n\t if security_check( 'RDS', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n Void = scroll_enable()\t \t \r\n\t end\r\n end\r\n \r\n Void = rds_comm( \"READ_STORE\" )\r\n Void = rds_comm2('HOLD_CHECK')\r\n Void = rds_comm2( \"SUPPL_CHECK\" ) \r\nend\r\n* SET A VARIABLE TO THE SUPERVISOR SIGNATURE SO WHEN THEY SAVE\r\n* IF THERE WASN'T A SIGNATURE AND THERE IS ON THE WRITE TO \r\n* AUTOMATICALLY PRINT A SHIPPING LABEL\r\nVoid = set_property( @window, '@PostEpiSupSig', .post_epi_sup_sig->text )\r\nreturn 0 \r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/RDS_PRE_EPI..json b/LSL2/OIEVENT/READ/RDS_PRE_EPI..json new file mode 100644 index 0000000..dc3437c --- /dev/null +++ b/LSL2/OIEVENT/READ/RDS_PRE_EPI..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg, Comm_RDS\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, scroll_enable, rds_comm, rds_comm2\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert rds_equ\r\n$insert msg_equates\r\n$insert prod_spec_equates\r\n$insert quote_spec_equ\r\n\r\nNewRecord = false$\r\nRDSNo = .rds_no->text\r\nswap '1T' with '' in RDSNo\r\n.rds_no->text = RDSNo\r\n\r\nif rowexists( 'RDS', RDSNo ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new don't allow ( only create via schedule )\r\n MsgInfo = ''\r\n MsgInfo = 'Pre Epi - You can only create run data sheets from schedule.'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\t \r\n ReadOk = false$\r\n .rds_no->text = ''\r\n Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n if .pre_clean->text = 'No' then\r\n * NO PRE CLEAN REQUIRED SO PROTECT THE PROPER FIELDS\r\n .precleansrd->enabled = 0\r\n .precleancassid->enabled = 0\r\n .precleancode->enabled = 0\r\n end else\r\n .precleansrd->enabled = 1\r\n .precleancassid->enabled = 1\r\n .precleancode->enabled = 1\r\n end\r\n \r\n\t* Section added by JCH on 4/17/2004 - Mods for SURFACE_SCAN table \r\n\t\r\n\tIF Get_Property(@WINDOW:'.SURFSCAN','CHECK') THEN\r\n\t\tstat = Set_Property(@WINDOW:'.SURF_SCAN_BUTTON','ENABLED',1)\r\n\tEND ELSE\r\n\t\tstat = Set_Property(@WINDOW:'.SURF_SCAN_BUTTON','ENABLED',0)\r\n\tEND\r\n\t\r\n\t* End of modifications\r\n\t\r\n .thick_all_label->text = xlate( 'RDS', RdsNo, 'THICK_MIN_TAR_MAX', 'X' )\r\n .res_all_label->text = xlate( 'RDS', RdsNo, 'RES_MIN_TAR_MAX', 'X' )\r\n .con_all_label->text = xlate( 'RDS', RdsNo, 'CON_MIN_TAR_MAX', 'X' ) \r\n TMod = .mod_info->array\r\n InMod = Tmod<1>\r\n TMod<2> = oconv( InMod, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .mod_info->array = TMod\r\n DisFields = 'LOT_NUM/QUOTE_NO/CUST_INFO/STATUS/PO_WO_PARTNUM/LOT_NUM_VERIFY/'\r\n DisFields:= 'RUN_ORDER_NUM/WAFERS_SCHEDULED/PRE_EPI_SIG/PRE_EPI_SIG_NAME/'\r\n DisFields:= 'PRE_CLEAN/OXIDE_STRIP/PRE_EPI_BUTTON/'\r\n DisFields:= 'BRIGHTLIGHT/MICROSCOPE/SURFSCAN/SURFSCAN_RECIPE/PSN'\r\n swap '/' with @rm:@window:'.' in DisFields\r\n DisFields = @window:'.':DisFields\r\n void = set_property( DisFields, 'ENABLED', 0 )\r\n if NewRecord else\r\n\t if security_check( 'RDS', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n Void = scroll_enable()\t \t \r\n\t end\r\n end\r\n Void = rds_comm( \"READ_STORE\" )\r\n *Void = rds_comm2( \"HOLD_CHECK\" )\r\n Void = rds_comm2( \"SUPPL_CHECK\" )\r\n \r\n Comm_RDS('Refresh')\t\t\t\t\t;* Added by JCH 11/9/2004\r\n \r\n CustID = field( .cust_info->text, ' ', 1 )\r\n if ( CustID = '621' ) and ( .run_order_num->text = 1 ) then ;* IF IT IS SILICON SYSTEMS AND \r\n * IT IS RUN ORDER NUMBER ONE\r\n .menu.edit.ssi_standards->enabled = 1\r\n end else\r\n .menu.edit.ssi_standards->enabled = 0 \r\n end\r\n Void = set_property( @window, '@OrigReactor', .reactor->text ) \r\n * HOLY HARD CODING ACTION\r\n IF ( @USER4 = 'JONATHAN_F' ) OR ( @USER4 = 'ELIZABETH_G' ) OR ( @USER4 = 'BRYCE_M' ) OR ( @USER4 = 'KELLY_S' ) THEN\r\n .COMMIT_DATE_FINAL->ENABLED = 1\r\n END ELSE\r\n .COMMIT_DATE_FINAL->ENABLED = 0\r\n END\r\nend\r\nreturn 0 " + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/RDS_PRE_EPI_ORG..json b/LSL2/OIEVENT/READ/RDS_PRE_EPI_ORG..json new file mode 100644 index 0000000..3521c3e --- /dev/null +++ b/LSL2/OIEVENT/READ/RDS_PRE_EPI_ORG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg, Comm_RDS\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, scroll_enable, rds_comm, rds_comm2\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert rds_equ\r\n$insert msg_equates\r\n$insert prod_spec_equates\r\n$insert quote_spec_equ\r\n\r\nNewRecord = false$\r\nif rowexists( 'RDS', .rds_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new don't allow ( only create via schedule )\r\n MsgInfo = ''\r\n MsgInfo = 'Pre Epi Org - You can only create run data sheets from schedule.'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\t \r\n ReadOk = false$\r\n .rds_no->text = ''\r\n Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n if .pre_clean->text = 'No' then\r\n * NO PRE CLEAN REQUIRED SO PROTECT THE PROPER FIELDS\r\n .precleansrd->enabled = 0\r\n .precleancassid->enabled = 0\r\n .precleancode->enabled = 0\r\n end else\r\n .precleansrd->enabled = 1\r\n .precleancassid->enabled = 1\r\n .precleancode->enabled = 1\r\n end\r\n \r\n\t* Section added by JCH on 4/17/2004 - Mods for SURFACE_SCAN table \r\n\t\r\n\tIF Get_Property(@WINDOW:'.SURFSCAN','CHECK') THEN\r\n\t\tstat = Set_Property(@WINDOW:'.SURF_SCAN_BUTTON','ENABLED',1)\r\n\tEND ELSE\r\n\t\tstat = Set_Property(@WINDOW:'.SURF_SCAN_BUTTON','ENABLED',0)\r\n\tEND\r\n\t\r\n\t* End of modifications\r\n\t\r\n RdsNo = .rds_no->text\r\n .thick_all_label->text = xlate( 'RDS', RdsNo, 'THICK_MIN_TAR_MAX', 'X' )\r\n .res_all_label->text = xlate( 'RDS', RdsNo, 'RES_MIN_TAR_MAX', 'X' )\r\n .con_all_label->text = xlate( 'RDS', RdsNo, 'CON_MIN_TAR_MAX', 'X' ) \r\n TMod = .mod_info->array\r\n InMod = Tmod<1>\r\n TMod<2> = oconv( InMod, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .mod_info->array = TMod\r\n DisFields = 'LOT_NUM/QUOTE_NO/CUST_INFO/STATUS/PO_WO_PARTNUM/LOT_NUM_VERIFY/'\r\n DisFields:= 'RUN_ORDER_NUM/WAFERS_SCHEDULED/PRE_EPI_SIG/PRE_EPI_SIG_NAME/'\r\n DisFields:= 'PRE_CLEAN/OXIDE_STRIP/PRE_EPI_BUTTON/'\r\n DisFields:= 'BRIGHTLIGHT/MICROSCOPE/SURFSCAN/SURFSCAN_RECIPE/PSN'\r\n swap '/' with @rm:@window:'.' in DisFields\r\n DisFields = @window:'.':DisFields\r\n void = set_property( DisFields, 'ENABLED', 0 )\r\n if NewRecord else\r\n\t if security_check( 'RDS', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n Void = scroll_enable()\t \t \r\n\t end\r\n end\r\n Void = rds_comm( \"READ_STORE\" )\r\n *Void = rds_comm2( \"HOLD_CHECK\" )\r\n Void = rds_comm2( \"SUPPL_CHECK\" )\r\n \r\n Comm_RDS('Refresh')\t\t\t\t\t;* Added by JCH 11/9/2004\r\n \r\n CustID = field( .cust_info->text, ' ', 1 )\r\n if ( CustID = '621' ) and ( .run_order_num->text = 1 ) then ;* IF IT IS SILICON SYSTEMS AND \r\n * IT IS RUN ORDER NUMBER ONE\r\n .menu.edit.ssi_standards->enabled = 1\r\n end else\r\n .menu.edit.ssi_standards->enabled = 0 \r\n end\r\n Void = set_property( @window, '@OrigReactor', .reactor->text ) \r\n * HOLY HARD CODING ACTION\r\n IF ( @USER4 = 'JONATHAN_F' ) OR ( @USER4 = 'ELIZABETH_G' ) OR ( @USER4 = 'BRYCE_M' ) OR ( @USER4 = 'KELLY_S' ) THEN\r\n .COMMIT_DATE_FINAL->ENABLED = 1\r\n END ELSE\r\n .COMMIT_DATE_FINAL->ENABLED = 0\r\n END\r\nend\r\nreturn 0 " + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/RDS_UNLOAD..json b/LSL2/OIEVENT/READ/RDS_UNLOAD..json new file mode 100644 index 0000000..1a23716 --- /dev/null +++ b/LSL2/OIEVENT/READ/RDS_UNLOAD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg, Comm_RDS\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, scroll_enable, rds_comm, rds_comm2, memberof\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert rds_equ\r\n$insert msg_equates\r\n$insert prod_spec_equ\r\n$insert quote_spec_equ\r\n\r\nNewRecord = false$\r\nRDSNo = .rds_no->text\r\nswap '1T' with '' in RDSNo\r\n.rds_no->text = RDSNo\r\n\r\nif rowexists( 'RDS', RDSNo ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new don't allow ( only create via schedule )\r\n MsgInfo = ''\r\n MsgInfo = 'You can only create run data sheets from schedule.'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\t \r\n ReadOk = false$\r\n .rds_no->text = ''\r\n Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n Void = set_property( @window, '@TotRej', ((.cust_rej_tot->text ) + (.lsl_rej_tot->text)) ) \r\n Void = set_property( @window, '@NCRMustSave', false$ )\r\n RejAcct = .reject_info->array\r\n Void = set_property( @window, '@OrigRejAcct', RejAcct ) \r\n //RdsNo = .rds_no->text\r\n .thick_all_label->text = xlate( 'RDS', RdsNo, 'THICK_MIN_TAR_MAX', 'X' )\r\n .res_all_label->text = xlate( 'RDS', RdsNo, 'RES_MIN_TAR_MAX', 'X' )\r\n .con_all_label->text = xlate( 'RDS', RdsNo, 'CON_MIN_TAR_MAX', 'X' ) \r\n TMod = .mod_info->array\r\n InMod = Tmod<1>\r\n TMod<2> = oconv( InMod, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .mod_info->array = TMod\r\n DisFields = 'REACTOR/LOT_NUM/QUOTE_NO/CUST_INFO/STATUS/PO_WO_PARTNUM/LOT_NUM_VERIFY/' \r\n DisFields:= 'RUN_ORDER_NUM/WAFERS_SCHEDULED/OP_OUT/OP_OUT_NAME/UNLOAD_BUTTON/WAFERS_IN/'\r\n DisFields:= 'OP_OUT_DATE/OP_OUT_TIME/LSL_REJ_TOT/CUST_REJ_TOT/PSN'\r\n swap '/' with @rm:@window:'.' in DisFields\r\n DisFields = @window:'.':DisFields\r\n void = set_property( DisFields, 'ENABLED', 0 )\r\n if memberof( @user4, 'ENGINEERING' ) or memberof( @user4, 'MASTER' ) then\r\n .srpcfg_button->visible = 1 \r\n end else\r\n .srpcfg_button->visible = 0\r\n end\r\n if NewRecord else\r\n\t if security_check( 'RDS', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n Void = scroll_enable()\t \t \r\n\t end\r\n end\r\n Void = rds_comm2('SET_SRP_PROFILE') \r\n Void = rds_comm( \"READ_STORE\" )\r\n Void = rds_comm2( \"HOLD_CHECK\" )\r\n Void = rds_comm2( \"SUPPL_CHECK\" ) \r\n \r\n Comm_RDS('Refresh') ;* Added 09/23/2004 JCH\r\nend\r\nreturn 0 " + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/REACTOR_LOG_AREV..json b/LSL2/OIEVENT/READ/REACTOR_LOG_AREV..json new file mode 100644 index 0000000..ec90405 --- /dev/null +++ b/LSL2/OIEVENT/READ/REACTOR_LOG_AREV..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'REACTOR_LOG', .reactor_log_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'Reactor Log', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Reactor Log', Write$ )\t \r\n\t ReadOk = false$\r\n\t .waf_inv_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event( CtrlEntId, CtrlClassId )\r\n end\r\n RLNo = .reactor_log_no->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/ELAPSED_HOURS'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'REACTOR_LOG', RLNo ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'Reactor Log', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/REACT_ITEMS..json b/LSL2/OIEVENT/READ/REACT_ITEMS..json new file mode 100644 index 0000000..dec5b72 --- /dev/null +++ b/LSL2/OIEVENT/READ/REACT_ITEMS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'REACT_ITEMS', .item_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'React Items', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'React Items', Write$ )\t \r\n\t ReadOk = false$\r\n\t .item_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n ItemNo = .item_no->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'REACT_ITEMS', ItemNo ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n .graphite_or_tube->value = ''\r\n end \r\n if NewRecord else\r\n\t if security_check( 'React Items', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n Void = scroll_enable()\t \t \r\n\t end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/REACT_PROBS..json b/LSL2/OIEVENT/READ/REACT_PROBS..json new file mode 100644 index 0000000..55de6ef --- /dev/null +++ b/LSL2/OIEVENT/READ/REACT_PROBS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'REACT_PROBS', .problem_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'React Probs', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'React Probs', Write$ )\t \r\n\t ReadOk = false$\r\n\t .problem_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n ProblemId = .problem_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/PROB_CAT_DESC'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'REACT_PROBS', ProblemId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'React Probs', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n Void = scroll_enable()\t \t \r\n\t end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/REACT_PROB_CAT..json b/LSL2/OIEVENT/READ/REACT_PROB_CAT..json new file mode 100644 index 0000000..2afacb5 --- /dev/null +++ b/LSL2/OIEVENT/READ/REACT_PROB_CAT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'REACT_PROB_CAT', .cat_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'React Prob Cat', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'React Prob Cat', Write$ )\t \r\n\t ReadOk = false$\r\n\t .cat_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n CatId = .cat_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'REACT_PROB_CAT', CatId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'React Prob Cat', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n Void = scroll_enable()\t \t \t \r\n\t end\r\n end\r\nend\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/REACT_SERVS..json b/LSL2/OIEVENT/READ/REACT_SERVS..json new file mode 100644 index 0000000..4e75d65 --- /dev/null +++ b/LSL2/OIEVENT/READ/REACT_SERVS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'REACT_SERVS', .serv_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'React Servs', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'React Servs', Write$ )\t \r\n\t ReadOk = false$\r\n\t .serv_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n ServId = .serv_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/SERV_CAT_DESC'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'REACT_SERVS', ServId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n .graphite_or_tube->value = ''\r\n end \r\n if NewRecord else\r\n\t if security_check( 'React Servs', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n Void = scroll_enable()\t \t \t \r\n\t end\r\n end\r\nend\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/RECIPE..json b/LSL2/OIEVENT/READ/RECIPE..json new file mode 100644 index 0000000..c64c01e --- /dev/null +++ b/LSL2/OIEVENT/READ/RECIPE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, scroll_enable, recipe_comm\r\n\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert recipe_equ\r\n\r\nNewRecord = false$\r\nif rowexists( 'RECIPE', .recipe_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'Recipe', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Recipe', Write$ )\t \r\n\t ReadOk = false$\r\n\t .recipe_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n RecipeNo = .Recipe_no->text\r\n *\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/PRINT_RECIPE/ENG_SIG/ENG_SIG_NAME/STATUS'\r\n * DISABLING THE PRINT BUTTON CAUSE IT WOULD PRINT THE OLD STYLE\r\n * NEED TO ASK DARYL IF HE NEEDS TO PRINT\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n *\r\n if .cap_burst->check then\r\n .cap_burst_gases->enabled = 1\r\n end else\r\n .cap_burst_gases->enabled = 0 \r\n end\r\n if rowexists( 'RECIPE', RecipeNo ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end\r\n TMod = .mod_info->array\r\n InMod = Tmod<1>\r\n TMod<2> = oconv( InMod, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .mod_info->array = TMod\r\n LayerInfo = .layer_info->text\r\n Tlay = trim( .layer_button->text )\r\n convert '0123456789' to '' in Tlay\r\n Tlay := ' ':fieldcount( LayerInfo, char(248) )\r\n .layer_button->text = Tlay\r\n if NewRecord else\r\n\t if security_check( 'Recipe', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n Void = scroll_enable()\t \t \t \r\n\t end\r\n end\r\nend\r\nVoid = recipe_comm( 'READ_STORE' )\r\nreturn 0 \r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/REPORT_SLIST_CFG..json b/LSL2/OIEVENT/READ/REPORT_SLIST_CFG..json new file mode 100644 index 0000000..4d1869c --- /dev/null +++ b/LSL2/OIEVENT/READ/REPORT_SLIST_CFG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/SCHEDULE..json b/LSL2/OIEVENT/READ/SCHEDULE..json new file mode 100644 index 0000000..10db15c --- /dev/null +++ b/LSL2/OIEVENT/READ/SCHEDULE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert msg_equates\r\n$insert order_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'SCHEDULE', .schedule_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new don't allow ( only create via order )\r\n MsgInfo = ''\r\n MsgInfo = 'You can only create schedules from order.'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\t \r\n ReadOk = false$\r\n .schedule_no->text = ''\r\n Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n ****************\r\n Tcust = .cust_no->text\r\n if ( Tcust = '615' ) or ( Tcust = '6443' ) or ( Tcust = 621 ) then ;* FIRST TWO ARE PHILIPS AND LAST IS SSI\r\n .qxj->visible = 1\r\n end else\r\n .qxj->visible = 0\r\n end\r\n ****************\r\n ScheduleNo = .schedule_no->text\r\n ProtectVar = 'PO/ENTRY_ID/ENTRY_DATE/CUST_NO/CUST_NAME/'\r\n ProtectVar:= 'WO/WAFER_SIZE/QUOTE_NO/RDS_CNT/ORDER_NO/TOT_SCHED/TOT_NOT_SCHED/'\r\n ProtectVar:= 'TOTAL_SHIP_QTY/TOTAL_REJECTS/TOTAL_NOT_SHIP_QTY/TOTAL_SHIP_AMOUNT/SEP_LAYER_CNT/'\r\n ProtectVar:= 'BOX_COUNT/TOT_WAF_IN/PSN'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 ) \r\n * add all other protected fields\r\n if rowexists( 'SCHEDULE', ScheduleNo ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n Void = set_property( @window, '@OrigRDSDetail', .rds_detail->array ) \r\n if NewRecord else\r\n\t if security_check( 'Schedule', Edit$ ) then\r\n\t RdsDetail = .rds_detail->array\r\n\t RDSCol = RdsDetail<2>\r\n\t OrderDetail = .order_detail_line->array\r\n\t Qty = OrderDetail<6>\r\n\t if RDSCol = @vm:@vm:@vm and ( Qty > 0 and Qty < 26 ) then ;* meaning there have been no rds createdare no rds \r\n\t OrderRec = xlate( 'ORDER', .order_no->text, '', 'X' )\r\n\t Wo = .wo->text\r\n OrderWos = OrderRec\r\n OrderQty = OrderRec\r\n OrderLineNo = OrderDetail<1>\r\n WoHitCnt = 0\r\n if OrderLineNo = 1 then\r\n * do nothing, cause you know it is run order one\r\n end else\r\n\t OrderWos = field( OrderWos, @vm, 1, OrderLineNo-1 )\r\n\t * TAKE ALL ORDER LINES PRIOR TO THIS ONE AND COUNT HOW MANY TIMES THAT \r\n\t * WORK ORDER IS FOUND AND ADD ONE AND THAT IS YOUR RUN ORDER\r\n\t OlCnt = fieldcount( OrderWos, @vm )\r\n\t for i = 1 to OlCnt\r\n\t if ( OrderWos<1,i> = Wo ) and ( OrderQty<1,i> > 0 ) then\r\n\t WoHitCnt += 1\r\n\t end\r\n\t next i\r\n\t end\r\n * ADD ONE TO WOHITCNT FOR THE NEXT RUN ORDER\r\n WoHitCnt += 1\r\n NewRdsDetail = WoHitCnt:@fm:@fm:Qty\r\n .rds_detail->array = NewRdsDetail\r\n .date_wafers_received->text = oconv( date(), 'D2/' )\r\n WSS = .wafer_sched_ship->array\r\n WSS<1,1> = Qty\r\n .wafer_sched_ship->array = WSS\r\n *\r\n * SET THE CALCULATED FIELDS MANUALLY IT IS JUST AS EASY\r\n .tot_waf_in->text = Qty\r\n .tot_sched->text = Qty\r\n .tot_not_sched->text = 0\r\n * SET FOCUS TO THE RDS DETAIL\r\n Void = set_property( @window:'.RDS_DETAIL', 'FOCUS', 1 )\r\n Void = post_event( @window:'.RDS_DETAIL', 'GOTFOCUS' )\r\n .rds_detail->selpos = 1:@fm:1\r\n @@window->savewarn = 1\r\n\t end\r\n\t end else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n Void = scroll_enable()\t \t \t \r\n\t end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/SCHEDULE_SRL..json b/LSL2/OIEVENT/READ/SCHEDULE_SRL..json new file mode 100644 index 0000000..142d539 --- /dev/null +++ b/LSL2/OIEVENT/READ/SCHEDULE_SRL..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert msg_equates\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'SCHEDULE_SRL', .schedule_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new don't allow ( only create via order )\r\n MsgInfo = ''\r\n MsgInfo = 'You can only create schedules from order.'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\t \r\n ReadOk = false$\r\n .schedule_no->text = ''\r\n Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event( CtrlEntId, CtrlClassId )\r\n end\r\n ScheduleNo = .schedule_no->text\r\n ProtectVar = 'PO/ENTRY_ID/ENTRY_DATE/CUST_NO/CUST_NAME/'\r\n ProtectVar:= 'WO/WAFER_SIZE/QUOTE_NO/RDS_CNT/ORDER_NO/TOT_SCHED/TOT_NOT_SCHED/'\r\n ProtectVar:= 'TOTAL_SHIP_QTY/TOTAL_NOT_SHIP_QTY/TOTAL_REJ/TOTAL_SHIP_AMOUNT/SEP_LAYER_CNT/'\r\n ProtectVar:= 'BOX_COUNT/TOT_WAF_IN'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 ) \r\n * add all other protected fields\r\n if rowexists( 'SCHEDULE_SRL', ScheduleNo ) else\r\n .entry_id->text = oconv( @username, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n Void = set_property( @window, '@OrigRDSDetail', .rds_detail->array ) \r\n if NewRecord else\r\n\t if security_check( 'Schedule SRL', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/SEMI_LOG..json b/LSL2/OIEVENT/READ/SEMI_LOG..json new file mode 100644 index 0000000..88e254d --- /dev/null +++ b/LSL2/OIEVENT/READ/SEMI_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\nNewRecord = false$\r\nif rowexists( 'SEMI_LOG', .log_no->text ) then\r\n ReadOk = true$; *anyone can look at the log\r\nend else\r\n * user is trying to add new, do they have write rights?\r\n if security_check( 'Semi Log', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Semi Log', Write$ )\t \r\n\t ReadOk = false$\r\n\t .log_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n LogNumber = .log_no->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/TECH_SIG/TECH_SIG_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'SEMI_LOG', LogNumber ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'Semi Log', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/SPC_CLEAN_HF..json b/LSL2/OIEVENT/READ/SPC_CLEAN_HF..json new file mode 100644 index 0000000..b72fe53 --- /dev/null +++ b/LSL2/OIEVENT/READ/SPC_CLEAN_HF..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'SPC_CLEAN_HF', .control_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'SPC Clean HF', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'SPC Clean HF', Write$ )\t \r\n\t ReadOk = false$\r\n\t .control_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n ControlId = .control_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/TERM_NO/DELTA/TECH_SIG/TECH_SIG_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'SPC_CLEAN_HF', ControlId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n \r\n if NewRecord else\r\n\t *if security_check( 'SPC Clean HF', Edit$ ) else\r\n\t * PROTECT ALL FIELDS EVEN IF THEY HAVE EDIT RIGHTS\r\n\t * CAUSE WE DO NOT WANT ANYTHING CHANGED ONCE SAVED\r\n\t * IF THE USER MADE A MISTAKE THEN THE USER WILL HAVE\r\n\t * TO DELETE AND START OVER\r\n\t * so rem the if above out and end at the bottom\r\n\t * protect all fields\r\n * ALLOW THE KEY AND COMMENTS TO BE ENABLED \t \t \r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if index( ThisControl, 'COMMENTS', 1 ) or index( ThisControl, 'CONTROL_ID', 1 ) or ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t if index( ThisControl, 'PHX', 1 ) or index( ThisControl, 'BTN_GRP', 1 ) else\r\n\t \t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t \tend\r\n\t end \r\n\t next i \r\n *Void = scroll_enable()\t \t \t \r\n\t *end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/SPC_CLEAN_HF_AKRION..json b/LSL2/OIEVENT/READ/SPC_CLEAN_HF_AKRION..json new file mode 100644 index 0000000..5b09003 --- /dev/null +++ b/LSL2/OIEVENT/READ/SPC_CLEAN_HF_AKRION..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'SPC_CLEAN_HF_AKRION', .control_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'SPC Clean HF Akrion', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'SPC Clean HF Akrion', Write$ )\t \r\n\t ReadOk = false$\r\n\t .control_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n ControlId = .control_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/TERM_NO/DELTA/TECH_SIG/TECH_SIG_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'SPC_CLEAN_HF_AKRION', ControlId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n \r\n if NewRecord else\r\n\t *if security_check( 'SPC Clean HF Akrion', Edit$ ) else\r\n\t * PROTECT ALL FIELDS EVEN IF THEY HAVE EDIT RIGHTS\r\n\t * CAUSE WE DO NOT WANT ANYTHING CHANGED ONCE SAVED\r\n\t * IF THE USER MADE A MISTAKE THEN THE USER WILL HAVE\r\n\t * TO DELETE AND START OVER\r\n\t * so rem the if above out and end at the bottom\r\n\t * protect all fields\r\n * ALLOW THE KEY AND COMMENTS TO BE ENABLED \t \t \r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if index( ThisControl, 'COMMENTS', 1 ) or index( ThisControl, 'CONTROL_ID', 1 ) or ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t if index( ThisControl, 'PHX', 1 ) or index( ThisControl, 'BTN_GRP', 1 ) else\r\n\t \t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t \tend\r\n\t end \r\n\t next i \r\n *Void = scroll_enable()\t \t \t \r\n\t *end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/SPC_CLEAN_HF_ETCH..json b/LSL2/OIEVENT/READ/SPC_CLEAN_HF_ETCH..json new file mode 100644 index 0000000..d63bc85 --- /dev/null +++ b/LSL2/OIEVENT/READ/SPC_CLEAN_HF_ETCH..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'SPC_CLEAN_HF_ETCH', .control_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'SPC Clean HF Etch', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'SPC Clean HF Etch', Write$ )\t \r\n\t ReadOk = false$\r\n\t .control_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n ControlId = .control_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/TERM_NO/DELTA/TECH_SIG/TECH_SIG_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'SPC_CLEAN_HF_ETCH', ControlId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n \r\n if NewRecord else\r\n\t *if security_check( 'SPC Clean HF Etch', Edit$ ) else\r\n\t * PROTECT ALL FIELDS EVEN IF THEY HAVE EDIT RIGHTS\r\n\t * CAUSE WE DO NOT WANT ANYTHING CHANGED ONCE SAVED\r\n\t * IF THE USER MADE A MISTAKE THEN THE USER WILL HAVE\r\n\t * TO DELETE AND START OVER\r\n\t * so rem the if above out and end at the bottom\r\n\t * protect all fields\r\n * ALLOW THE KEY FIELD TO BE ENABLED \t \t \r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if index( ThisControl, 'COMMENTS', 1 ) or index( ThisControl, 'CONTROL_ID', 1 ) or ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t if index( ThisControl, 'PHX', 1 ) or index( ThisControl, 'BTN_GRP', 1 ) else\r\n\t \t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t \tend\r\n\t end \r\n\t next i \r\n *Void = scroll_enable()\t \t \t \r\n\t *end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/SPC_CLEAN_HF_ETCH_AKRION..json b/LSL2/OIEVENT/READ/SPC_CLEAN_HF_ETCH_AKRION..json new file mode 100644 index 0000000..4e94422 --- /dev/null +++ b/LSL2/OIEVENT/READ/SPC_CLEAN_HF_ETCH_AKRION..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'SPC_CLEAN_HF_ETCH_AKRION', .control_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'SPC Clean HF Etch Akrion', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'SPC Clean HF Etch Akrion', Write$ )\t \r\n\t ReadOk = false$\r\n\t .control_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n ControlId = .control_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/TERM_NO/DELTA/TECH_SIG/TECH_SIG_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'SPC_CLEAN_HF_ETCH_AKRION', ControlId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n \r\n if NewRecord else\r\n\t *if security_check( 'SPC Clean HF Etch Akrion', Edit$ ) else\r\n\t * PROTECT ALL FIELDS EVEN IF THEY HAVE EDIT RIGHTS\r\n\t * CAUSE WE DO NOT WANT ANYTHING CHANGED ONCE SAVED\r\n\t * IF THE USER MADE A MISTAKE THEN THE USER WILL HAVE\r\n\t * TO DELETE AND START OVER\r\n\t * so rem the if above out and end at the bottom\r\n\t * protect all fields\r\n * ALLOW THE KEY FIELD TO BE ENABLED \t \t \r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if index( ThisControl, 'COMMENTS', 1 ) or index( ThisControl, 'CONTROL_ID', 1 ) or ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t if index( ThisControl, 'PHX', 1 ) or index( ThisControl, 'BTN_GRP', 1 ) else\r\n\t \t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t \tend\r\n\t end \r\n\t next i \r\n *Void = scroll_enable()\t \t \t \r\n\t *end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/SPC_CLEAN_SC1..json b/LSL2/OIEVENT/READ/SPC_CLEAN_SC1..json new file mode 100644 index 0000000..5ee3f19 --- /dev/null +++ b/LSL2/OIEVENT/READ/SPC_CLEAN_SC1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'SPC_CLEAN_SC1', .control_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'SPC Clean SC1', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'SPC Clean SC1', Write$ )\t \r\n\t ReadOk = false$\r\n\t .control_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n ControlId = .control_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/TERM_NO/DELTA/TECH_SIG/TECH_SIG_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'SPC_CLEAN_SC1', ControlId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n \r\n if NewRecord else\r\n\t *if security_check( 'SPC Clean SC1', Edit$ ) else\r\n\t * PROTECT ALL FIELDS EVEN IF THEY HAVE EDIT RIGHTS\r\n\t * CAUSE WE DO NOT WANT ANYTHING CHANGED ONCE SAVED\r\n\t * IF THE USER MADE A MISTAKE THEN THE USER WILL HAVE\r\n\t * TO DELETE AND START OVER\r\n\t * so rem the if above out and end at the bottom\r\n\t * protect all fields\r\n * ALLOW THE KEY FIELD TO BE ENABLED \t \t \r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if index( ThisControl, 'COMMENTS', 1 ) or index( ThisControl, 'CONTROL_ID', 1 ) or ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t if index( ThisControl, 'PHX', 1 ) or index( ThisControl, 'BTN_GRP', 1 ) else\r\n\t \t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t \tend\r\n\t end \r\n\t next i \r\n *Void = scroll_enable()\t \t \t \r\n\t *end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/SPC_CLEAN_SRD..json b/LSL2/OIEVENT/READ/SPC_CLEAN_SRD..json new file mode 100644 index 0000000..f1c56e8 --- /dev/null +++ b/LSL2/OIEVENT/READ/SPC_CLEAN_SRD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'SPC_CLEAN_SRD', .control_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'SPC Clean SRD', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'SPC Clean SRD', Write$ )\t \r\n\t ReadOk = false$\r\n\t .control_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n ControlId = .control_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/TERM_NO/DELTA/TECH_SIG/TECH_SIG_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'SPC_CLEAN_SRD', ControlId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n \r\n if NewRecord else\r\n\t *if security_check( 'SPC Clean SRD', Edit$ ) else\r\n\t * PROTECT ALL FIELDS EVEN IF THEY HAVE EDIT RIGHTS\r\n\t * CAUSE WE DO NOT WANT ANYTHING CHANGED ONCE SAVED\r\n\t * IF THE USER MADE A MISTAKE THEN THE USER WILL HAVE\r\n\t * TO DELETE AND START OVER\r\n\t * so rem the if above out and end at the bottom\r\n\t * protect all fields\r\n * ALLOW THE KEY FIELD TO BE ENABLED \t \r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if index( ThisControl, 'COMMENTS', 1 ) or index( ThisControl, 'CONTROL_ID', 1 ) or ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t if index( ThisControl, 'PHX', 1 ) or index( ThisControl, 'BTN_GRP', 1 ) else\r\n\t \t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t \tend\r\n\t end \r\n\t next i \r\n *Void = scroll_enable()\t \t \t \r\n\t *end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/SPC_EVAL_4PP..json b/LSL2/OIEVENT/READ/SPC_EVAL_4PP..json new file mode 100644 index 0000000..484f5be --- /dev/null +++ b/LSL2/OIEVENT/READ/SPC_EVAL_4PP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'SPC_EVAL_4PP', .control_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'SPC Eval 4PP', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'SPC Eval 4PP', Write$ )\t \r\n\t ReadOk = false$\r\n\t .control_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n ControlId = .control_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/TERM_NO/TECH_SIG/TECH_SIG_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'SPC_EVAL_4PP', ControlId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n \r\n if NewRecord else\r\n\t *if security_check( 'SPC Eval 4PP', Edit$ ) else\r\n\t * PROTECT ALL FIELDS EVEN IF THEY HAVE EDIT RIGHTS\r\n\t * CAUSE WE DO NOT WANT ANYTHING CHANGED ONCE SAVED\r\n\t * IF THE USER MADE A MISTAKE THEN THE USER WILL HAVE\r\n\t * TO DELETE AND START OVER\r\n\t * so rem the if above out and end at the bottom\r\n\t * protect all fields\r\n * ALLOW THE KEY FIELD TO BE ENABLED \t \t \r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if index( ThisControl, 'COMMENTS', 1 ) or index( ThisControl, 'CONTROL_ID', 1 ) or ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t if index( ThisControl, 'PHX', 1 ) or index( ThisControl, 'BTN_GRP', 1 ) else\r\n\t \t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t \tend\r\n\t end \r\n\t next i \r\n *Void = scroll_enable()\t \t \t \r\n\t *end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/SPC_EVAL_ADE..json b/LSL2/OIEVENT/READ/SPC_EVAL_ADE..json new file mode 100644 index 0000000..80a10ad --- /dev/null +++ b/LSL2/OIEVENT/READ/SPC_EVAL_ADE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'SPC_EVAL_ADE', .control_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'SPC Eval ADE', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'SPC Eval ADE', Write$ )\t \r\n\t ReadOk = false$\r\n\t .control_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n ControlId = .control_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/TERM_NO/TECH_SIG/TECH_SIG_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'SPC_EVAL_ADE', ControlId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n \r\n if NewRecord else\r\n\t *if security_check( 'SPC Eval ADE', Edit$ ) else\r\n\t * PROTECT ALL FIELDS EVEN IF THEY HAVE EDIT RIGHTS\r\n\t * CAUSE WE DO NOT WANT ANYTHING CHANGED ONCE SAVED\r\n\t * IF THE USER MADE A MISTAKE THEN THE USER WILL HAVE\r\n\t * TO DELETE AND START OVER\r\n\t * so rem the if above out and end at the bottom\r\n\t * protect all fields\r\n * ALLOW THE KEY FIELD TO BE ENABLED \t \t \r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if index( ThisControl, 'COMMENTS', 1 ) or index( ThisControl, 'CONTROL_ID', 1 ) or ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t if index( ThisControl, 'PHX', 1 ) or index( ThisControl, 'BTN_GRP', 1 ) else\r\n\t \t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t \tend\r\n\t end \r\n\t next i \r\n *Void = scroll_enable()\t \t \t \r\n\t *end\r\n end\r\nend\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/SPC_EVAL_FTIR..json b/LSL2/OIEVENT/READ/SPC_EVAL_FTIR..json new file mode 100644 index 0000000..8ba1821 --- /dev/null +++ b/LSL2/OIEVENT/READ/SPC_EVAL_FTIR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'SPC_EVAL_FTIR', .control_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'SPC Eval FTIR', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'SPC Eval FTIR', Write$ )\t \r\n\t ReadOk = false$\r\n\t .control_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n ControlId = .control_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/TERM_NO/TECH_SIG/TECH_SIG_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'SPC_EVAL_FTIR', ControlId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n \r\n if NewRecord else\r\n\t *if security_check( 'SPC Eval FTIR', Edit$ ) else\r\n\t * PROTECT ALL FIELDS EVEN IF THEY HAVE EDIT RIGHTS\r\n\t * CAUSE WE DO NOT WANT ANYTHING CHANGED ONCE SAVED\r\n\t * IF THE USER MADE A MISTAKE THEN THE USER WILL HAVE\r\n\t * TO DELETE AND START OVER\r\n\t * so rem the if above out and end at the bottom\r\n\t * protect all fields\r\n * ALLOW THE KEY FIELD TO BE ENABLED \t \t \r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if index( ThisControl, 'COMMENTS', 1 ) or index( ThisControl, 'CONTROL_ID', 1 ) or ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t if index( ThisControl, 'PHX', 1 ) or index( ThisControl, 'BTN_GRP', 1 ) else\r\n\t \t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t \tend\r\n\t end \r\n\t next i \r\n *Void = scroll_enable()\t \t \t \r\n\t *end\r\n end\r\nend\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/SPC_REACTOR_PARTICLES..json b/LSL2/OIEVENT/READ/SPC_REACTOR_PARTICLES..json new file mode 100644 index 0000000..3321671 --- /dev/null +++ b/LSL2/OIEVENT/READ/SPC_REACTOR_PARTICLES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'SPC_REACTOR_PARTICLES', .control_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'SPC Reactor Particles', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'SPC Reactor Particles', Write$ )\t \r\n\t ReadOk = false$\r\n\t .control_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n ControlId = .control_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/TERM_NO/DELTA/TECH_SIG/TECH_SIG_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'SPC_REACTOR_PARTICLES', ControlId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n \r\n if NewRecord else\r\n\t *if security_check( 'SPC Reactor Particles', Edit$ ) else\r\n\t * PROTECT ALL FIELDS EVEN IF THEY HAVE EDIT RIGHTS\r\n\t * CAUSE WE DO NOT WANT ANYTHING CHANGED ONCE SAVED\r\n\t * IF THE USER MADE A MISTAKE THEN THE USER WILL HAVE\r\n\t * TO DELETE AND START OVER\r\n\t * so rem the if above out and end at the bottom\r\n\t * protect all fields\r\n * ALLOW THE KEY FIELD TO BE ENABLED \t \r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if index( ThisControl, 'COMMENTS', 1 ) or index( ThisControl, 'CONTROL_ID', 1 ) or ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t if index( ThisControl, 'PHX', 1 ) or index( ThisControl, 'BTN_GRP', 1 ) else\r\n\t \t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t \tend\r\n\t end \r\n\t next i \r\n *Void = scroll_enable()\t \t \t \r\n\t *end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/SPC_WAFER_ETCH..json b/LSL2/OIEVENT/READ/SPC_WAFER_ETCH..json new file mode 100644 index 0000000..e434e8d --- /dev/null +++ b/LSL2/OIEVENT/READ/SPC_WAFER_ETCH..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'SPC_WAFER_ETCH', .control_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'SPC Wafer Etch', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'SPC Wafer Etch', Write$ )\t \r\n\t ReadOk = false$\r\n\t .control_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n ControlId = .control_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/TERM_NO/DELTA/TECH_SIG/TECH_SIG_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'SPC_WAFER_ETCH', ControlId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n \r\n if NewRecord else\r\n\t *if security_check( 'SPC Wafer Etch', Edit$ ) else\r\n\t * PROTECT ALL FIELDS EVEN IF THEY HAVE EDIT RIGHTS\r\n\t * CAUSE WE DO NOT WANT ANYTHING CHANGED ONCE SAVED\r\n\t * IF THE USER MADE A MISTAKE THEN THE USER WILL HAVE\r\n\t * TO DELETE AND START OVER\r\n\t * so rem the if above out and end at the bottom\r\n\t * protect all fields\r\n * ALLOW THE KEY FIELD TO BE ENABLED \t \t \r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if index( ThisControl, 'COMMENTS', 1 ) or index( ThisControl, 'CONTROL_ID', 1 ) or ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t if index( ThisControl, 'PHX', 1 ) or index( ThisControl, 'BTN_GRP', 1 ) else\r\n\t \t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t \tend\r\n\t end \r\n\t next i\r\n\t *Void = scroll_enable()\t \t \t \r\n\t *end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/SRP_COC_RESULTS..json b/LSL2/OIEVENT/READ/SRP_COC_RESULTS..json new file mode 100644 index 0000000..b67cfa3 --- /dev/null +++ b/LSL2/OIEVENT/READ/SRP_COC_RESULTS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'SRP_COC_RESULTS', .control_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'SRP COC Results', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'SRP COC Results', Write$ )\t \r\n\t ReadOk = false$\r\n\t .control_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n ControlId = .control_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/CUST_NAME/DIVISION/THICK/REST/THICK_UNITS/REST_UNITS'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'SRP_COC_RESULTS', ControlId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n \r\n if NewRecord else\r\n\t if security_check( 'SRP COC Results', Edit$ ) else\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ( ThisControl[-6,6] = '_LABEL' ) or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n Void = scroll_enable()\t \t \t \r\n\t end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/SRP_INCOMING_LOG..json b/LSL2/OIEVENT/READ/SRP_INCOMING_LOG..json new file mode 100644 index 0000000..fbebd2f --- /dev/null +++ b/LSL2/OIEVENT/READ/SRP_INCOMING_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\nNewRecord = false$\r\nif rowexists( 'SRP_INCOMING_LOG', .log_no->text ) then\r\n ReadOk = true$; *anyone can look at the log\r\nend else\r\n * user is trying to add new, do they have write rights?\r\n if security_check( 'SRP Incoming Log', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'SRP Incoming Log', Write$ )\t \r\n\t ReadOk = false$\r\n\t .log_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n LogNumber = .log_no->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/ENG_SIG/ENG_SIG_NAME/CUST_NAME/DIVISION'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'SRP_INCOMING_LOG', LogNumber ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'SRP Incoming Log', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/SUB_REC_LOG..json b/LSL2/OIEVENT/READ/SUB_REC_LOG..json new file mode 100644 index 0000000..d3097c5 --- /dev/null +++ b/LSL2/OIEVENT/READ/SUB_REC_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\nNewRecord = false$\r\nif rowexists( 'SUB_REC_LOG', .log_no->text ) then\r\n ReadOk = true$; *anyone can look at the log\r\nend else\r\n * user is trying to add new, do they have write rights?\r\n if security_check( 'Sub Rec Log', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Sub Rec Log', Write$ )\t \r\n\t ReadOk = false$\r\n\t .log_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n LogNumber = .log_no->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/RECEIVER_SIG/RECEIVER_SIG_NAME/CUST_NAME/DIVISION'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'SUB_REC_LOG', LogNumber ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'Sub Rec Log', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/TEST..json b/LSL2/OIEVENT/READ/TEST..json new file mode 100644 index 0000000..3b1a176 --- /dev/null +++ b/LSL2/OIEVENT/READ/TEST..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\nforward_event( CtrlEntId, CtrlClassId )\r\n.entry_date->invalue = 11000\r\n.title->invalue = 'Please Work'\r\n.phones->invalue = '8408614':@vm:'4819530':@fm:'TEST':@VM:'junk':@fm:'234':@vm:'339'\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/TW_CODES..json b/LSL2/OIEVENT/READ/TW_CODES..json new file mode 100644 index 0000000..2e0540f --- /dev/null +++ b/LSL2/OIEVENT/READ/TW_CODES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'TW_CODES', .tw_code->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'TW Codes', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'TW Codes', Write$ )\t \r\n\t ReadOk = false$\r\n\t .tw_code->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n TWCode = .tw_code->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'TW_CODES', TWCode ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'TW Codes', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n Void = scroll_enable()\t \t \t \r\n\t end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/TW_PRIME_USAGE..json b/LSL2/OIEVENT/READ/TW_PRIME_USAGE..json new file mode 100644 index 0000000..f6f20b1 --- /dev/null +++ b/LSL2/OIEVENT/READ/TW_PRIME_USAGE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'TW_PRIME_USAGE', .twu_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'TW Prime Usage', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'TW Prime Usage', Write$ )\t \r\n\t ReadOk = false$\r\n\t .twu_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n TWUId = .twu_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'TW_PRIME_USAGE', TWUId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n .type->value = '' ;* set to nothing on a new entry so they don't overlook \r\n ;* and save using the default without realizing it for type and orient\r\n .orientation->value = '' \r\n end \r\n if NewRecord else\r\n\t if security_check( 'TW Prime Usage', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n Void = scroll_enable()\t \t \t \r\n\t end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/TW_USAGE..json b/LSL2/OIEVENT/READ/TW_USAGE..json new file mode 100644 index 0000000..5b60758 --- /dev/null +++ b/LSL2/OIEVENT/READ/TW_USAGE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'TW_USAGE', .twu_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'TW Usage', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'TW Usage', Write$ )\t \r\n\t ReadOk = false$\r\n\t .twu_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n TWUId = .twu_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'TW_USAGE', TWUId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n .type->value = '' ;* set to nothing on a new entry so they don't overlook \r\n ;* and save using the default without realizing it for type and orient\r\n .orientation->value = '' \r\n end \r\n if NewRecord else\r\n\t if security_check( 'TW Usage', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n Void = scroll_enable()\t \t \t \r\n\t end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/WAFER_INV..json b/LSL2/OIEVENT/READ/WAFER_INV..json new file mode 100644 index 0000000..585242b --- /dev/null +++ b/LSL2/OIEVENT/READ/WAFER_INV..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'WAFER_INV', .waf_inv_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'Wafer Inventory', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Wafer Inventory', Write$ )\t \r\n\t ReadOk = false$\r\n\t .waf_inv_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n WafInvNo = .waf_inv_no->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/CUST_NAME/DIVISION'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'WAFER_INV', WafInvNo ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'Wafer Inventory', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n Void = scroll_enable()\t \t \t \r\n\t end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/WO_LOG..json b/LSL2/OIEVENT/READ/WO_LOG..json new file mode 100644 index 0000000..a35379b --- /dev/null +++ b/LSL2/OIEVENT/READ/WO_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert msg_equates\r\n\r\nNewRecord = false$\r\nif rowexists( 'WO_LOG', .wo_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'WO Log', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'WO Log', Write$ )\t \r\n\t ReadOk = false$\r\n\t .wo_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n WONo = .wo_no->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/CUST_NAME/DIVISION/STATUS/CLOSE_DATE/'\r\n ProtectVar:= 'THICK/REST/THICK_UNITS/REST_UNITS/DOPANT/SIZE'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n *IF @USER4 = 'BRYCE_M' THEN\r\n * .STATUS->ENABLED = 1\r\n *END\r\n if rowexists( 'WO_LOG', WONo ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n Void = set_property( @window, '@OrigPSN', '' ) \r\n if NewRecord else\r\n\t if security_check( 'WO Log', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i\r\n Void = scroll_enable()\t \t \t \r\n\t .view_quote->enabled = 1 \r\n\t end\r\n end\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/WO_PROD_EPI..json b/LSL2/OIEVENT/READ/WO_PROD_EPI..json new file mode 100644 index 0000000..e7ad95d --- /dev/null +++ b/LSL2/OIEVENT/READ/WO_PROD_EPI..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "$Insert MSG_EQUATES\r\nDeclare subroutine Forward_Event\r\n\r\n Def = \"\"\r\n Def = \"Loading work order production status. Please wait...\"\r\n Def = \"U\"\r\n MsgUp = Msg(@window, Def) ;* display the processing message\r\n\r\n\tForward_Event()\r\n\tMsg(@WINDOW,MsgUp) ;* Take message down\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/READ/WO_VERIFY..json b/LSL2/OIEVENT/READ/WO_VERIFY..json new file mode 100644 index 0000000..fd4d7e0 --- /dev/null +++ b/LSL2/OIEVENT/READ/WO_VERIFY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert msg_equates\r\n\r\nVerifyNo = .verify_no->text\r\nOnlyVerifyNo = get_property( @window, '@WOVerifyID' )\r\nif VerifyNo = OnlyVerifyNo then\r\n ReadOk = true$\r\nend else\r\n * user is trying to view another work order verification ( only allow view from rds )\r\n MsgInfo = ''\r\n MsgInfo = 'You may only view Work Order Verifications from RDS...'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\t \r\n ReadOk = false$\r\n Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/STATUS/RECIPE/NEW_DOPANT/TECH_SIG/TECH_SIG_NAME/TECH_SIG_TIME/'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if security_check( 'WO Verify', Edit$ ) else\r\n * protect all fields\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls\r\n if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n void = set_property( ThisControl, 'ENABLED', 0 )\r\n end \r\n next i \r\n Void = scroll_enable()\t\t \r\n end\r\n Void = set_property( @window:'.DOPANT_CHK', \"FOCUS\", 1 )\r\n Void = post_event( @window:'.DOPANT_CHK', \"GOTFOCUS\", 1 )\r\nend\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/SIZE/LSL_MAIN2..json b/LSL2/OIEVENT/SIZE/LSL_MAIN2..json new file mode 100644 index 0000000..5e73578 --- /dev/null +++ b/LSL2/OIEVENT/SIZE/LSL_MAIN2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\n\r\nforward_event( x, y, Width, Height )\r\n*.group_1->size = -10:@fm:-10:@fm:Width:@fm:Height\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/SYSMSG/RDS_TEST..json b/LSL2/OIEVENT/SYSMSG/RDS_TEST..json new file mode 100644 index 0000000..9df98f5 --- /dev/null +++ b/LSL2/OIEVENT/SYSMSG/RDS_TEST..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE Function Comm_RDS_Test\r\n\r\n\r\nRETURN Comm_RDS_Test('SYSMSG', MsgCode : @RM : CancelFlag : @RM : StatCode)" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/TIMER/LSL_MAIN2..json b/LSL2/OIEVENT/TIMER/LSL_MAIN2..json new file mode 100644 index 0000000..f0180b5 --- /dev/null +++ b/LSL2/OIEVENT/TIMER/LSL_MAIN2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\nDeclare subroutine Post_Event, Set_Property\r\n\r\n*If @User4 EQ 'ERIK_L' then Set_Property(@Window, '@CLOSE', 1)\r\n\r\nClose = Get_Property(@Window, '@CLOSE')\r\n\r\nCurrDTM = OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTS')\r\n\r\nOPEN 'SYSLISTS' TO ListsFile THEN\r\n\tStation = @STATION\r\n\tStation = Station[1,'_']\t\t\r\n\tListKey = Station:'*KEEP_ALIVE'\r\n\tListRec = @USERNAME:@FM:CurrDTM\r\n\tWRITE ListRec ON ListsFile,ListKey ELSE NULL\r\nEND \r\n\r\n\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/TIMER/REACT_STATUS_EVEN..json b/LSL2/OIEVENT/TIMER/REACT_STATUS_EVEN..json new file mode 100644 index 0000000..ead11c9 --- /dev/null +++ b/LSL2/OIEVENT/TIMER/REACT_STATUS_EVEN..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'FORM_CREATE', '')\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/TIMER/REACT_STATUS_ODD..json b/LSL2/OIEVENT/TIMER/REACT_STATUS_ODD..json new file mode 100644 index 0000000..ead11c9 --- /dev/null +++ b/LSL2/OIEVENT/TIMER/REACT_STATUS_ODD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'FORM_CREATE', '')\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/TIMER/WO_DAILY_SCHED_ALL..json b/LSL2/OIEVENT/TIMER/WO_DAILY_SCHED_ALL..json new file mode 100644 index 0000000..ead11c9 --- /dev/null +++ b/LSL2/OIEVENT/TIMER/WO_DAILY_SCHED_ALL..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'FORM_CREATE', '')\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/TIMER/WO_DAILY_SCHED_ALL2..json b/LSL2/OIEVENT/TIMER/WO_DAILY_SCHED_ALL2..json new file mode 100644 index 0000000..ead11c9 --- /dev/null +++ b/LSL2/OIEVENT/TIMER/WO_DAILY_SCHED_ALL2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION wo_daily_sched_all_comm\r\n\r\nVoid = wo_daily_sched_all_comm( 'FORM_CREATE', '')\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/VSCROLL/WO_MAINT_SCHED.SCHED_INFO.json b/LSL2/OIEVENT/VSCROLL/WO_MAINT_SCHED.SCHED_INFO.json new file mode 100644 index 0000000..d15a9e4 --- /dev/null +++ b/LSL2/OIEVENT/VSCROLL/WO_MAINT_SCHED.SCHED_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\n\r\nforward_event(Value)\r\nTopPos = .sched_info->toppos\r\nCol = TopPos<1>\r\nRow = TopPos<2>\r\nif Row < 20 then\r\n .sched_info->toppos = Col:@fm:20\r\nend\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/VSCROLL/WO_MAST_SCHED.SCHED_INFO.json b/LSL2/OIEVENT/VSCROLL/WO_MAST_SCHED.SCHED_INFO.json new file mode 100644 index 0000000..d15a9e4 --- /dev/null +++ b/LSL2/OIEVENT/VSCROLL/WO_MAST_SCHED.SCHED_INFO.json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\n\r\nforward_event(Value)\r\nTopPos = .sched_info->toppos\r\nCol = TopPos<1>\r\nRow = TopPos<2>\r\nif Row < 20 then\r\n .sched_info->toppos = Col:@fm:20\r\nend\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/ANNUAL_CONTRACTS..json b/LSL2/OIEVENT/WRITE/ANNUAL_CONTRACTS..json new file mode 100644 index 0000000..2a92999 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/ANNUAL_CONTRACTS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, msg\r\ndeclare subroutine create_note\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\n\r\nif rowexists( 'ANNUAL_CONTRACTS', .contract_no->text ) else\r\n .entry_id->text = @user4\r\nend\r\nTotRelAmt = iconv( .tot_rel_amount->text, 'MD2' )\r\nTotContractAmt = iconv( .tot_contract_amount->text, 'MD2' )\r\nDiff = TotContractAmt - TotRelAmt\r\nMinBalance = iconv( .min_balance->text, 'MD2' )\r\nif MinBalance then\r\n ValToCheck = MinBalance\r\nend else\r\n ValToCheck = 100100\r\nend\r\nif Diff < ValToCheck then\r\n ContractNo = .contract_no->text\r\n Message = 'The annual contract balance for ':.cust_name->text:' contract # '\r\n Message:= ContractNo:' is currently at ':oconv( Diff, 'MD2,$' )\r\n SendTo = xlate( 'CONFIG', 'QUOTE_SIGS', ACReminder$, 'X' )\r\n create_note( SendTo, 'System', 'Annual Contract Balance', Message, 'ANNUAL_CONTRACTS', ContractNo )\r\nend\r\nif ( @@window->savewarn ) and ( .status->value = 'C' ) then\r\n MsgInfo = ''\r\n MsgInfo = 'The status of this contract is currently closed...please verify that you should be using this contract.'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/ANN_CONT..json b/LSL2/OIEVENT/WRITE/ANN_CONT..json new file mode 100644 index 0000000..bd9fede --- /dev/null +++ b/LSL2/OIEVENT/WRITE/ANN_CONT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE Function Comm_Ann_Cont\r\nRETURN Comm_Ann_Cont('Write')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/ASSIGN_CAUSE..json b/LSL2/OIEVENT/WRITE/ASSIGN_CAUSE..json new file mode 100644 index 0000000..013490c --- /dev/null +++ b/LSL2/OIEVENT/WRITE/ASSIGN_CAUSE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists\r\n\r\nif rowexists( 'ASSIGN_CAUSE', .assign_cause_id->text ) else\r\n .entry_id->text = @user4\r\nend\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/ATTENDANCE..json b/LSL2/OIEVENT/WRITE/ATTENDANCE..json new file mode 100644 index 0000000..4c36a2e --- /dev/null +++ b/LSL2/OIEVENT/WRITE/ATTENDANCE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists\r\n\r\nif rowexists( 'ATTENDANCE', .absent_id->text ) else\r\n .entry_id->text = @user4\r\nend\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/BOM..json b/LSL2/OIEVENT/WRITE/BOM..json new file mode 100644 index 0000000..99d8213 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/BOM..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION BOM\r\n\r\n\r\nRETURN BOM(CtrlEntID,'WRITE')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/CALIBRATION..json b/LSL2/OIEVENT/WRITE/CALIBRATION..json new file mode 100644 index 0000000..3d2d541 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/CALIBRATION..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Calibration\r\n\r\n\r\nRETURN Calibration(CtrlEntID,'WRITE')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/CALL_VISIT..json b/LSL2/OIEVENT/WRITE/CALL_VISIT..json new file mode 100644 index 0000000..2ec201f --- /dev/null +++ b/LSL2/OIEVENT/WRITE/CALL_VISIT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists\r\ndeclare subroutine create_note\r\n\r\nif rowexists( 'CALL_VISIT', .call_visit_id->text ) else\r\n .entry_id->text = @user4\r\nend\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/CAR..json b/LSL2/OIEVENT/WRITE/CAR..json new file mode 100644 index 0000000..0d8257d --- /dev/null +++ b/LSL2/OIEVENT/WRITE/CAR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, msg, post_event\r\ndeclare subroutine create_note\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\n\r\nif rowexists( 'CAR', .car_ref_id->text ) then\r\n * record already exists so see if it has been signed by the responsible user\r\n * and if so then verify that there is an anticipated in place date\r\n if .resp_signature->text <> '' then\r\n if .ant_car_inplace_date->text <> '' or .confirm_status->value = \"U\" then\r\n * ok they also have the anticipated in place date\r\n * or it is unconfirmed so it may skip to verified status when both signatures\r\n * are entered\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You have signed the CAR, so you must also have an anticipated in place date.'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n Void = post_event( @window:'.ANT_CAR_INPLACE_DATE', 'GOTFOCUS' )\r\n void = set_property( @window:'.ANT_CAR_INPLACE_DATE', 'FOCUS', 1 ) \r\n return 0\r\n end\r\n end\r\n * record already exists so see if it has been set in place\r\n * and if so then verify that there is an in place date\r\n if .car_inplace_signature->text <> '' then\r\n if .car_inplace_date->text <> '' then\r\n * ok they also have the in place date or it has been verified\r\n * due to an unconfirmed CAR\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You have signed the CAR as in place, so you must also have an in place date.'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n Void = post_event( @window:'.CAR_INPLACE_DATE', 'GOTFOCUS' )\r\n void = set_property( @window:'.CAR_INPLACE_DATE', 'FOCUS', 1 ) \r\n return 0\r\n end\r\n end\r\n OrigRespUserId = get_property( @window, '@OrigRespUserID' )\r\n CurRespUserId = .resp_user_id->text\r\n if CurRespUserId <> OrigRespUserId then\r\n if CurRespUserId then\r\n * entry person has changed the responsible person id \r\n * so re-send the message to the new person\r\n create_note( CurRespUserId, 'System', 'CAR#':.car_ref_id->text:' redefined as you being responsible', 'This CAR was modified by ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.', 'CAR', .car_ref_id->text )\t \t \r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must define a responsible person...'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n Void = post_event( @window:'.RESP_USER_ID', 'GOTFOCUS' )\r\n void = set_property( @window:'.RESP_USER_ID', 'FOCUS', 1 ) \r\n return 0\r\n end\r\n end\r\n *OrigServRep = set_property( @window, '@OrigServRep', .accountreps->text ) \r\n *CurServRep = .accountreps->text\r\n *if CurServRep <> OrigServRep then\r\n * if CurServRep then\r\n * create_note( CurServRep, 'System', 'CAR#':.car_Ref_id->text:' changed with you being the rep', 'This CAR was modified by ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.', 'CAR', .car_ref_id->text )\t \t \r\n * end\r\n *end\r\nend else\r\n if .resp_user_id->text <> '' then\r\n * ok they have defined the responsible user\r\n .entry_id->text = @user4 \r\n * Now send a message to the responsible person and the VIP of manufacturing\r\n SignatureInfo = xlate( 'CONFIG', 'QUOTE_SIGS', '', 'X' )\r\n VipMfg = SignatureInfo\r\n SendTo = ''\r\n SendTo<1,-1> = VipMfg\r\n SendTo<1,-1> = .resp_user_id->text\r\n if .accountreps->text <> '' then\r\n SendTo<1,-1> = .accountreps->text\r\n end\r\n create_note( SendTo, 'System', 'New CAR#':.car_ref_id->text:' created', 'This CAR was created by ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.', 'CAR', .car_ref_id->text )\t \t\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must define a responsible person...'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n Void = post_event( @window:'.RESP_USER_ID', 'GOTFOCUS' )\r\n void = set_property( @window:'.RESP_USER_ID', 'FOCUS', 1 ) \r\n return 0\r\n end\r\nend\r\nOrigEstLossValue = get_property( @window, '@OrigEstLossValue' )\r\nif .est_loss_value->text <> OrigEstLossValue then\r\n * notify the accounting dept that there is an estimated loss value or that it has changed\r\n if OrigEstLossValue = '' then\r\n NoteText = 'This estimated loss value was entered by ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.'\r\n NoteSubject = 'Initial Estimated Loss'\r\n end else\r\n NoteText = 'This estimated loss value was entered by ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):' from ':OrigEstLossValue:' to ':.est_loss_value->text:'.'\r\n NoteSubject = 'Modified Estimated Loss'\r\n end\r\n create_note( 'TEMP_AR', 'System', NoteSubject, NoteText, 'CAR', .car_ref_id->text )\t \t \r\nend\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/CDM_LOG..json b/LSL2/OIEVENT/WRITE/CDM_LOG..json new file mode 100644 index 0000000..841b730 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/CDM_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, msg, post_event\r\n$insert msg_equates\r\n\r\nif .tech_sig->text='' then\r\n\tMsgInfo = ''\r\n\tMsgInfo = 'You have not signed the log entry'\r\n\tMsgInfo = 'H'\r\n\tVoid = msg( '', MsgInfo )\r\n\tVoid = post_event( @window:'.TECH_SIG', 'GOTFOCUS' )\r\n\tVoid = set_property( @window:'.TECH_SIG', 'FOCUS', 1 )\r\n\treturn 0\r\nend\r\n\r\nif rowexists( 'CDM_LOG', .log_no->text ) then\r\n\t*we're rewriting an entry that already existed -\r\n\t*don't replace current username into entry_id\r\nend else\r\n .entry_id->text = @user4; *this is a new entry so\r\n \t\t\t\t\t\t\t\t*place username into entry_id for the write\r\nend\r\n\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/CLEAN_INSP..json b/LSL2/OIEVENT/WRITE/CLEAN_INSP..json new file mode 100644 index 0000000..ceedcb0 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/CLEAN_INSP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Clean_Insp\r\n\r\nRETURN Clean_Insp(CtrlEntID,'WRITE')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/CLEAN_INSP_SRP..json b/LSL2/OIEVENT/WRITE/CLEAN_INSP_SRP..json new file mode 100644 index 0000000..ceedcb0 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/CLEAN_INSP_SRP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Clean_Insp\r\n\r\nRETURN Clean_Insp(CtrlEntID,'WRITE')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/COA..json b/LSL2/OIEVENT/WRITE/COA..json new file mode 100644 index 0000000..0020e41 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/COA..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_COA\r\n\r\nRETURN Comm_COA('Write')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/COC..json b/LSL2/OIEVENT/WRITE/COC..json new file mode 100644 index 0000000..188d7ea --- /dev/null +++ b/LSL2/OIEVENT/WRITE/COC..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists\r\n\r\nif rowexists( 'COC', .coc_no->text ) else\r\n .entry_id->text = @user4\r\nend\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/COMPANY..json b/LSL2/OIEVENT/WRITE/COMPANY..json new file mode 100644 index 0000000..90d8cb3 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/COMPANY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists\r\n\r\nif rowexists( 'COMPANY', .co_no->text ) else\r\n .entry_id->text = @user4\r\nend\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/CUSTOMER_EPI..json b/LSL2/OIEVENT/WRITE/CUSTOMER_EPI..json new file mode 100644 index 0000000..59d548a --- /dev/null +++ b/LSL2/OIEVENT/WRITE/CUSTOMER_EPI..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_Customer_EPI\r\n\r\nRETURN Comm_Customer_EPI('Write')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/CUST_INQUIRY..json b/LSL2/OIEVENT/WRITE/CUST_INQUIRY..json new file mode 100644 index 0000000..5e19192 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/CUST_INQUIRY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists\r\ndeclare subroutine create_note\r\n$insert quote_sigs_equ\r\n\r\nif rowexists( 'CUST_INQUIRY', .cust_inquiry_id->text ) else\r\n .entry_id->text = @user4\r\n * send a message to prod/eng group\r\n Subject = 'New Customer Inquiry'\r\n Note = 'Customer Inquiry was entered by ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n * XLATE ENGINEERING PEOPLE\r\n SendTo = xlate( 'CONFIG', 'QUOTE_SIGS', InqEngSigners$, 'X' )\r\n create_note( SendTo, @user4, Subject, Note, 'CUST_INQUIRY', .cust_inquiry_id->text )\r\nend\r\nOrigEngSig = get_property( @window, '@OrigEngSig' ) \r\nCurEngSig = .eng_signature->text\r\nif OrigEngSig = '' and ( CurEngSig <> '' ) then\r\n * send a message back to marketing group\r\n Subject = 'Customer Inquiry Signed'\r\n Note = 'Customer Inquiry was signed by ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n * XLATE MARKETING PEOPLE\r\n SendTo = xlate( 'CONFIG', 'QUOTE_SIGS', InqMktSigners$, 'X' )\r\n create_note( SendTo, @user4, Subject, Note, 'CUST_INQUIRY', .cust_inquiry_id->text )\r\nend\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/DBW_PROD_SPEC_GAN..json b/LSL2/OIEVENT/WRITE/DBW_PROD_SPEC_GAN..json new file mode 100644 index 0000000..40f44b8 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/DBW_PROD_SPEC_GAN..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "Declare Function Get_Property, DBW_PROD_SPEC_GAN_EVENTS\r\n\r\nPSNStatus = Get_Property(@Window : '.STATUS', 'VALUE')\r\n\r\n\r\nIf ( (@@window->savewarn EQ 1) AND ((PSNStatus EQ 'A') OR (PSNStatus EQ 'H')) ) then\r\n\r\n\trv = DBW_PROD_SPEC_GAN_EVENTS(@Window, 'UpdateRevHist')\r\n\t\r\nend else\r\n\r\n\trv = 1\r\n\t\r\nend\r\n\r\nReturn rv" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/DBW_WO_LOG..json b/LSL2/OIEVENT/WRITE/DBW_WO_LOG..json new file mode 100644 index 0000000..d6695b3 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/DBW_WO_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION COMM_WO_LOG\r\n\r\nRETURN Comm_WO_LOG('Write')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/DESIG_ERR_GRP..json b/LSL2/OIEVENT/WRITE/DESIG_ERR_GRP..json new file mode 100644 index 0000000..f3158ec --- /dev/null +++ b/LSL2/OIEVENT/WRITE/DESIG_ERR_GRP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists\r\n\r\nif rowexists( 'DESIG_ERR_GRP', .desig_id->text ) else\r\n .entry_id->text = @user4\r\nend\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/EPI_PART..json b/LSL2/OIEVENT/WRITE/EPI_PART..json new file mode 100644 index 0000000..3861a72 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/EPI_PART..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION EPI_PART\r\nRETURN Epi_Part(@WINDOW,'WRITE')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/EPI_SUSCEPTOR..json b/LSL2/OIEVENT/WRITE/EPI_SUSCEPTOR..json new file mode 100644 index 0000000..951291b --- /dev/null +++ b/LSL2/OIEVENT/WRITE/EPI_SUSCEPTOR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_Epi_Susceptor\r\nRETURN Comm_Epi_Susceptor('Write')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/EXPORT3..json b/LSL2/OIEVENT/WRITE/EXPORT3..json new file mode 100644 index 0000000..460d50e --- /dev/null +++ b/LSL2/OIEVENT/WRITE/EXPORT3..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, msg, memberof\r\n$insert msg_equates\r\n\r\nExportName = .export_name->text\r\nif index( ExportName, '_SYSTEM_', 1 ) and not( memberof( @user4, 'MASTER' ) ) then\r\n MsgInfo = ''\r\n MsgInfo = 'You can not save SYSTEM Export templates...'\r\n MsgInfo = 'H'\r\n void = msg( '', MsgInfo )\r\n return 0\r\nend else\r\n if rowexists( 'EXPORTS', ExportName ) else\r\n .entry_id->text = @user4\r\n end\r\nend\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/EXPORTS..json b/LSL2/OIEVENT/WRITE/EXPORTS..json new file mode 100644 index 0000000..6e532db --- /dev/null +++ b/LSL2/OIEVENT/WRITE/EXPORTS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, msg, memberof\r\n$insert msg_equates\r\n\r\nExportName = .export_name->text\r\nif index( ExportName, '_SYSTEM_', 1 ) and not( memberof( @user4, 'MASTER' ) ) and (@USERNAME NE 'BRYCE_BARB') then\r\n MsgInfo = ''\r\n MsgInfo = 'You can not save SYSTEM Export templates...'\r\n MsgInfo = 'H'\r\n void = msg( '', MsgInfo )\r\n return 0\r\nend else\r\n if rowexists( 'EXPORTS', ExportName ) else\r\n .entry_id->text = @user4\r\n end\r\nend\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/EXPORTS_A..json b/LSL2/OIEVENT/WRITE/EXPORTS_A..json new file mode 100644 index 0000000..196df5d --- /dev/null +++ b/LSL2/OIEVENT/WRITE/EXPORTS_A..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, msg, memberof, Get_Property\r\n$insert msg_equates\r\n\r\nExportName = Get_Property(@WINDOW:'.EXPORT_NAME','TEXT')\r\nif index( ExportName, '_SYSTEM_', 1 ) and not( memberof( @user4, 'MASTER' ) ) and (@USERNAME NE 'BRYCE_BARB') then\r\n MsgInfo = ''\r\n MsgInfo = 'You can not save SYSTEM Export templates...'\r\n MsgInfo = 'H'\r\n void = msg( '', MsgInfo )\r\n return 0\r\nend else\r\n if rowexists( 'EXPORTS', ExportName ) else\r\n .entry_id->text = @user4\r\n end\r\nend\r\nRETURN 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/FIX_CLEAN_SPEC..json b/LSL2/OIEVENT/WRITE/FIX_CLEAN_SPEC..json new file mode 100644 index 0000000..ceedcb0 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/FIX_CLEAN_SPEC..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Clean_Insp\r\n\r\nRETURN Clean_Insp(CtrlEntID,'WRITE')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/GAN_PROD_SPEC..json b/LSL2/OIEVENT/WRITE/GAN_PROD_SPEC..json new file mode 100644 index 0000000..971ce48 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/GAN_PROD_SPEC..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, prod_spec_comm, msg, Comm_Prod_Spec, Get_Property\r\ndeclare subroutine create_note, forward_event, obj_Prod_Spec, Comm_Prod_Spec\r\n\r\n$INSERT QUOTE_SIGS_EQU\r\n$INSERT QUOTE_SPEC_EQU\r\n$INSERT MSG_EQUATES\r\n$INSERT LOGICAL\r\n$INSERT NOTIFICATION_EQU\r\n\r\nTvalue = .rtype->value\r\nif Tvalue = '' then\r\n\tMsgInfo = ''\r\n\tMsgInfo = 'You must choose a reactor type...'\r\n\tMsgInfo = 'H'\r\n\tVoid = msg( '', MsgInfo )\r\n\treturn 0\r\nend\r\n\r\nPSN = .prod_spec_id->text\r\nif rowexists( 'PROD_SPEC', PSN ) then\r\n RowExists = true$\r\nend else\r\n RowExists = false$\r\nend\r\nSubstrateInfo = .spec_substrate->text\r\n\r\nPSNStatus = Get_Property(@Window : '.STATUS', 'VALUE')\r\n\r\n\r\nIf ( (@@window->savewarn EQ true$) AND ((PSNStatus EQ 'A') OR (PSNStatus EQ 'H')) ) then\r\n\tResult = Comm_Prod_Spec('UpdateRevHist')\r\n\tIf Result EQ False$ then\r\n\t\tReturn 0\r\n\tend\r\nend\r\n\r\nSendTo = XLATE('NOTIFICATION','PSN_DELTA',NOTIFICATION_USER_ID$,'X')\r\n\t \r\nif rowexists( 'PROD_SPEC', PSN ) then\r\n\tif ( @@window->savewarn = true$ ) then\r\n\t\tcreate_note( SendTo, 'System', 'PSN Modification', 'This PSN was modified by ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.', 'PROD_SPEC', .prod_spec_id->text )\r\n\tend\r\nend else\r\n\t.entry_id->text = @user4\r\n\tcreate_note( SendTo, 'System', 'New PSN', 'This PSN was entered by ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.', 'PROD_SPEC', .prod_spec_id->text )\t \r\nend\r\n\r\n* Deprecated 7/2/18 - djs - KLUSA PSN Revision History Project\r\n*if ( @@window->savewarn = true$ ) then\r\n*\tModArray = .mod_info->array\r\n*\tModArray = insert( ModArray, 1, 1, 0, @user4 )\r\n*\tModArray = insert( ModArray, 2, 1, 0, oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ) )\r\n*\tModArray = insert( ModArray, 3, 1, 0, oconv( date(), 'D2/' ) )\r\n*\t.mod_info->array = ModArray\r\n*end\r\n\r\nforward_event()\r\n\r\nobj_Prod_Spec('PushTech',PSN)\t;* Pushes data to new table locations JCH 10/8/2012\r\n\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/GAS_SRC..json b/LSL2/OIEVENT/WRITE/GAS_SRC..json new file mode 100644 index 0000000..6bb0574 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/GAS_SRC..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_Gas_Src\r\n\r\nRETURN Comm_Gas_Src('Write')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/HOTH2O2_LOG..json b/LSL2/OIEVENT/WRITE/HOTH2O2_LOG..json new file mode 100644 index 0000000..14a262a --- /dev/null +++ b/LSL2/OIEVENT/WRITE/HOTH2O2_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, msg, post_event\r\n$insert msg_equates\r\n\r\nif .tech_sig->text='' then\r\n\tMsgInfo = ''\r\n\tMsgInfo = 'You have not signed the log entry'\r\n\tMsgInfo = 'H'\r\n\tVoid = msg( '', MsgInfo )\r\n\tVoid = post_event( @window:'.TECH_SIG', 'GOTFOCUS' )\r\n\tVoid = set_property( @window:'.TECH_SIG', 'FOCUS', 1 )\r\n\treturn 0\r\nend\r\n\r\nif rowexists( 'HOTH2O2_LOG', .log_no->text ) then\r\n\t*we're rewriting an entry that already existed -\r\n\t*don't replace current username into entry_id\r\nend else\r\n .entry_id->text = @user4; *this is a new entry so\r\n \t\t\t\t\t\t\t\t*place username into entry_id for the write\r\nend\r\n\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/ICAR..json b/LSL2/OIEVENT/WRITE/ICAR..json new file mode 100644 index 0000000..9b9ad7f --- /dev/null +++ b/LSL2/OIEVENT/WRITE/ICAR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_ICAR\r\n\r\nRETURN Comm_ICAR('Write')\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/INVOICE..json b/LSL2/OIEVENT/WRITE/INVOICE..json new file mode 100644 index 0000000..8a0eace --- /dev/null +++ b/LSL2/OIEVENT/WRITE/INVOICE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, fieldcount, msg, utility, set_fserror, next_mesa_invoice_key, Get_Status\r\ndeclare subroutine forward_event, create_note, Set_Status, obj_Schedule, ErrMsg\r\n$insert logical\r\n$insert schedule_equ\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\n$insert wafer_inv_equ\r\n$INSERT NOTIFICATION_EQU\r\n\r\nVoid = utility( 'CURSOR', 'H' )\r\nequ Item$ to 1\r\nequ QuoteNo$ to 2\r\nequ SchedNo$ to 3\r\nequ Wo$ to 4\r\nequ PartNo$ to 5\r\nequ LotNo$ to 6\r\nequ GLAcct$ to 7\r\nequ Setup$ to 8\r\nequ Srp$ to 9\r\nequ Qty$ to 10\r\nequ Rejects$ to 11\r\nequ Unprocessed$ to 12\r\nequ Price$ to 13\r\nequ Amount$ to 14\r\nequ PSN$ to 15\r\nequ WafInv$ to 16\r\n\r\nequ CrLf$ to char(13):char(10)\r\n\r\nopen 'WAFER_INV' to WafInvTable else\r\n Void = msg( '', 'Unable to open WAFER_INV...' )\r\n return 0\r\nend\r\nPossibleWafInvUpdate = false$\r\nInvUpdateMsg = ''\r\nLockMessage = ''\r\nTinv = .invoice_no->text\r\n*if rowexists( 'INVOICE', Tinv ) else\r\n/* \r\n \r\n MsgInfo = ''\r\n MsgInfo = '!'\r\n MsgInfo = 'BNY'\r\n MsgInfo = 'Do you wish to send a message to the shipping manager?'\r\n MsgInfo = 2 \r\n Resp = msg( '', MsgInfo )\r\n * HARD CODE FOR NOW UNTIL WE GET A SHIPPING MANAGER\r\n if Resp = 1 then\r\n Subject = 'New Invoice# ':Tinv\r\n Note = 'Invoice# ':Tinv:' was created by ':oconv( @user4, \"[XLATE_CONV,LSL_USERS*FIRST_LAST]\" )\r\n Note:= ' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'...Please see attachment'\r\n \r\n SendTo = XLATE('NOTIFICATION','WO_ENTRY',NOTIFICATION_USER_ID$,'X')\r\n create_note( SendTo, @user4, Subject, Note, 'INVOICE', Tinv ) \r\n end\r\n*/\r\n*end\r\nNoSave = false$\r\nOInvoiceDetail = get_property( @window, '@OrigInvoiceDetail' )\r\nInvoiceDetail = .invoice_detail->array\r\nForceUpdate = .force_update->check\r\n\r\nTrackNos\t= Get_Property(@WINDOW:'.TRACKING_NO','ARRAY')\r\n\r\nSWAP @vm:@vm WITH '' IN TrackNos\r\nIF TrackNos[-1,1] = @vm THEN TrackNos[-1,1] = ''\r\nSWAP @vm WITH ', ' in TrackNos \r\n\r\nInvNo\t= .INVOICE_NO->TEXT\r\nShipDt\t= .SHIP_DATE->TEXT\r\nBoxCnt\t= .BOX_CNT->TEXT\r\nShipVia\t= .SHIPPER_INFO->TEXT\r\n\t\t\r\nNewSystemDt = ICONV('7/25/2005','D')\t\t;* Date of new Order Entry System Implementation\r\n\r\nRow = 1\r\nRcnt = fieldcount( InvoiceDetail<1>, @vm )\r\nfor Row = 1 to Rcnt\r\n ThisInvoiceLine = InvoiceDetail:@vm:@vm:InvoiceDetail:@vm\r\n ThisInvoiceLine:= InvoiceDetail:@vm:InvoiceDetail:@vm\r\n ThisInvoiceLine:= InvoiceDetail:@vm:InvoiceDetail:@vm\r\n ThisInvoiceLine:= InvoiceDetail:@vm\r\n ThisInvoiceLine:= InvoiceDetail:@vm:InvoiceDetail:@vm\r\n ThisInvoiceLine:= InvoiceDetail:@vm:InvoiceDetail:@vm\r\n ThisInvoiceLine:= InvoiceDetail:@vm:@vm:@vm:InvoiceDetail\r\n *\r\n ThisOInvoiceLine = OInvoiceDetail:@vm:@vm:OInvoiceDetail:@vm\r\n ThisOInvoiceLine:= OInvoiceDetail:@vm:OInvoiceDetail:@vm\r\n ThisOInvoiceLine:= OInvoiceDetail:@vm:OInvoiceDetail:@vm\r\n ThisOInvoiceLine:= OInvoiceDetail:@vm\r\n ThisOInvoiceLine:= OInvoiceDetail:@vm:OInvoiceDetail:@vm\r\n ThisOInvoiceLine:= OInvoiceDetail:@vm:OInvoiceDetail:@vm\r\n ThisOInvoiceLine:= OInvoiceDetail:@vm:@vm:@vm:OInvoiceDetail\r\n if ( ForceUpdate ) or ( ThisInvoiceLine <> ThisOInvoiceLine ) then\r\n if ThisInvoiceLine <> str( @vm, 15 ) then\r\n\t * this row has been changed/added\r\n\t CurItem = ThisInvoiceLine<1,Item$>\r\n\t CurSched = ThisInvoiceLine<1,SchedNo$>\r\n\t CurSetup = ThisInvoiceLine<1,Setup$>\r\n\t CurSrp = ThisInvoiceLine<1,Srp$>\r\n\t CurUnpr = ThisInvoiceLine<1,Unprocessed$>\r\n\t CurRejects = ThisInvoiceLine<1,Rejects$>\r\n\t CurQty = ThisInvoiceLine<1,Qty$>\r\n\t CurPrice = ThisInvoiceLine<1,Price$>\r\n\t CurGl = ThisInvoiceLine<1,GlAcct$>\r\n\t CurWafInv = ThisInvoiceLine<1,WafInv$>\r\n\t CurPartNum = ThisInvoiceLine<1,PartNo$>\r\n\t CurLotNum = ThisInvoiceLine<1,LotNo$>\r\n\t CurWO = ThisInvoiceLine<1,WO$>\r\n\t if CurSched <> '' then\r\n\t * update the schedule\r\n\t gosub UpdateSchedRec\r\n\t gosub UpdateWafInv\r\n\t end else\r\n\t if .invoice_no->text[1,2] = 'CM' then\r\n\t * let them save it is a credit memo\r\n\t end else\r\n\t \tEntryDt = .entry_date->text\r\n\t \tEntryDt = ICONV(EntryDt,'D')\r\n\t \tIF EntryDt < NewSystemDt THEN\r\n\t\t \r\n\t\t\t\t\t\tError = ''\r\n\t\t\t\t\t\tif CurSched = '' then\r\n\t\t\t\t\t\t\tError = ' must have a schedule number'\r\n\t\t\t\t\t\tend\r\n\t\t\t\t\t\tNoSave = true$\r\n\t\t\t\t\t\tMsgInfo = ''\r\n\t\t\t\t\t\tMsgInfo = '!'\r\n\t\t\t\t\t\tMsgInfo = 'Invoice line ':Row:Error:'. No schedule updated for this line.'\r\n\t\t\t\t\t\tVoid = msg( '', MsgInfo )\r\n\t\t\t\t\t\tNoSave = true$\r\n\t\t\t\t\tEND\r\n\t\t end\r\n\t end\r\n\t end\r\n end \r\nnext Row\r\nVoid = utility( 'CURSOR', 'A' )\r\nif ( PossibleWafInvUpdate = false$ ) then\r\n * DO NOT SEND A MESSAGE CAUSE NO ACTIVITY IN WAFER INVENTORY\r\nend else\r\n if InvUpdateMsg = '' then\r\n * POSSIBLE UPDATE BUT NOTHING CHANGED IN THE QUANTITY\r\n MsgInfo = ''\r\n MsgInfo = 'No wafer inventory updates...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end else\r\n * WE HAVE AN UPDATE SO DISPLAY TO USER\r\n MsgInfo = ''\r\n MsgInfo = InvUpdateMsg\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend\r\nif NoSave else\r\n forward_event()\r\nend\r\nif LockMessage then\r\n LockMessage[-2,2] = ''\r\n MsgInfo = ''\r\n MsgInfo = LockMessage\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n*===========================================================================*\r\nUpdateSchedRec:\r\n\r\nSchedKey\t\t= CurSched\r\nSetupCharge\t\t= CurSetup\r\nSRPCharge\t\t= CurSRP\r\nShipQty\t\t\t= CurQty\r\nShipPrice\t\t= CurPrice\r\nRejects\t\t\t= CurRejects\r\nUnprocessed\t\t= CurUnpr\r\n\r\nParms = InvNo:@RM:SchedKey:@RM:SetupCharge:@RM:SRPCharge:@RM:ShipQty:@RM:ShipPrice:@RM\r\nParms := ShipVia:@RM:Rejects:@RM:Unprocessed:@RM:BoxCnt:@RM:TrackNos:@RM:ShipDt\r\n\r\nSet_Status(0)\r\nobj_Schedule('AddInvoice',Parms)\t;* Restore invoice information on Schedules\r\nIF Get_Status(errCode) THEN\r\n\tErrMsg(errCode)\r\n\tSet_Status(0)\r\nEND\r\nreturn\r\n\r\n*===========================================================================*\r\nUpdateWafInv:\r\n\t* ADJUST INVENTORY TO INPROCESS IF APPLICABLE\r\n\tInvoiceNo = .invoice_no->text\r\n\tif ( CurWafInv <> '' ) then\r\n PossibleWafInvUpdate = true$\r\n\t * THERE IS AN INVENTORY NUMBER AND THE QUANTITY HAS EITHER CHANGED\r\n\t * OR THIS IS A NEW LINE\r\n\t * NOW LETS MAKE SURE THERE IS A QTY\r\n\t if ( CurQty > 0 or CurRejects > 0 or CurUnpr > 0 ) and ( ( CurQty <> ThisOInvoiceLine<1,Qty$> or CurRejects <> ThisOInvoiceLine<1,Rejects$> or CurUnpr <> ThisOInvoiceLine<1,Unprocessed$> ) or ( ForceUpdate = true$ ) ) then\r\n lock WafInvTable, CurWafInv then\r\n\t WIRec = xlate( 'WAFER_INV', CurWafInv, '', 'X' )\r\n\t OLCnt = fieldcount( WIRec, @vm )\r\n\t LineFoundOn = 0\r\n\t\t\t for Ww = 1 to OLCnt\r\n\t\t\t ThisInvOrderNo = WIRec\r\n\t\t\t\t ThisInvOrderLine = WIRec\r\n\t\t\t\t ThisInvInvoiceNo = WIRec\r\n\t if ( ThisInvOrderNo = .order_no->text ) and ( ThisInvOrderLine = CurItem ) and ( ThisInvInvoiceNo = InvoiceNo ) then\r\n\t LineFoundOn = Ww\r\n\t end\r\n next Ww\r\n * NO MORE POSTING THE PARTNUMBER TO WAFER INVENTORY\r\n * AS OF 3/18/99 TO SATISFY OKMETIC\r\n \t\t *if CurLotNum[1,2] = 'OK' then\r\n\t\t\t * LotPart = CurPartNum\r\n *end else\r\n LotPart = CurLotNum\r\n *end\r\n if LineFoundOn > 0 then\r\n\t\t\t WIRec = .po->text\r\n\t\t\t\t WIRec = LotPart\r\n\t\t\t WIRec = CurWo\r\n\t\t\t WIRec = date()\r\n\t\t\t WIRec = '-':CurQty+CurRejects\r\n\t\t\t WIRec = CurQty\r\n\t\t\t WIRec = CurRejects\r\n\t end else\r\n\t Npos = OLCnt + 1\r\n\t WIRec = .order_no->text\r\n\t WIRec = CurItem\r\n\t\t\t WIRec = .po->text\r\n\t\t\t\t WIRec = LotPart\r\n\t\t\t WIRec = CurWo\r\n\t\t\t WIREc = InvoiceNo\r\n\t\t\t WIRec = date() \r\n\t\t\t WIRec = '-':CurQty+CurRejects \t\t\t \r\n\t\t\t WIRec = CurQty\r\n\t\t\t WIRec = CurRejects\t\t \r\n\t end\r\n if InvUpdateMsg = '' then\r\n InvUpdateMsg = 'The following wafer inventory records were updated: ':CrLf$\r\n end\r\n\t InvUpdateMsg := 'Inventory#':CurWafInv:' from order line ':Row:CrLf$\r\n\t write WIRec on WafInvTable, CurWafInv else\r\n\t Void = msg( '', 'Unable to write ':CurWafInv:' on WAFER_INV...' )\r\n\t\t end\r\n unlock WafInvTable, CurWafInv else\r\n\t\t MsgInfo = ''\r\n\t\t\t\t MsgInfo = 'Unable to unlock wafer inventory#':CurWafInv\r\n\t\t\t\t MsgInfo = '!'\r\n\t\t\t\t Void = msg( '', MsgInfo )\r\n\t\t\t end\r\n end else\r\n\t\t\t MsgInfo = ''\r\n\t\t\t MsgInfo = 'Unable to update wafer inventory#':CurWafInv:' for invoice line ':Row:' due to it currently being in use. You will need to manually update this inventory...'\r\n\t\t\t MsgInfo = '!'\r\n\t\t\t Void = msg( '', MsgInfo )\r\n end\r\n end\t \r\nreturn\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/LAST_WFR_CI_GROUP..json b/LSL2/OIEVENT/WRITE/LAST_WFR_CI_GROUP..json new file mode 100644 index 0000000..157a5b9 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/LAST_WFR_CI_GROUP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm, msg, post_event, dialog_box, ex_vm_rem, start_window, fieldcount, Get_Property, Get_Status\r\ndeclare subroutine forward_event, create_note, ErrMsg, Set_Property, obj_WO_Step, Set_Status, RDS_React_Run\r\n\r\n$insert logical\r\n$insert msg_equates\r\n$INSERT RDS_EQU\r\n\r\n \r\nRdsNo = .rds_no->text \r\nProdWafers = 0\r\nCustNo = field( .cust_info->text, ' ', 1 )\r\n\r\n\r\nRDSId\t\t= Get_Property(@WINDOW:'.RDS_NO','TEXT')\t\t\t;* Added 1/31/05 BY JCH to maintain RDS_Status field in WO_Step file.\r\n\r\n\r\n* NEED TO READ THE MOD_ID AND MOD_DATE FROM RDS CAUSE WE ARE IGNORING SELF LOCKS\r\n* WHICH MEANS THIS RDS COULD BE CURRENTLY VIEWED VIA ANOTHER WINDOW\r\n\r\nif @@window->savewarn then\r\n\tVoid = rds_comm( 'STAMP_MOD' )\r\n\tVoid = rds_comm( 'WRITE_STAMP' )\r\nend\r\n\r\nforward_event()\r\n\r\nRDS_React_Run(RDSId)\t;* Conversion of data to REACT_RUN and REACT_RUN_CI & Adds Sig to WO_MAT 3/18/2008 JCH\r\n\r\n\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/LOSS_CODES..json b/LSL2/OIEVENT/WRITE/LOSS_CODES..json new file mode 100644 index 0000000..ee93b85 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/LOSS_CODES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists\r\n\r\nif rowexists( 'LOSS_CODES', .loss_code->text ) else\r\n .entry_id->text = @user4\r\nend\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/MASTER_DISK_LOG..json b/LSL2/OIEVENT/WRITE/MASTER_DISK_LOG..json new file mode 100644 index 0000000..abb5874 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/MASTER_DISK_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, msg, post_event\r\n$insert msg_equates\r\n\r\nif .tech_sig->text='' then\r\n\tMsgInfo = ''\r\n\tMsgInfo = 'You have not signed the log entry'\r\n\tMsgInfo = 'H'\r\n\tVoid = msg( '', MsgInfo )\r\n\tVoid = post_event( @window:'.TECH_SIG', 'GOTFOCUS' )\r\n\tVoid = set_property( @window:'.TECH_SIG', 'FOCUS', 1 )\r\n\treturn 0\r\nend\r\n\r\nif rowexists( 'MASTER_DISK_LOG', .log_no->text ) then\r\n\t*we're rewriting an entry that already existed -\r\n\t*don't replace current username into entry_id\r\nend else\r\n .entry_id->text = @user4; *this is a new entry so\r\n \t\t\t\t\t\t\t\t*place username into entry_id for the write\r\nend\r\n\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/MEG_LOG..json b/LSL2/OIEVENT/WRITE/MEG_LOG..json new file mode 100644 index 0000000..af90964 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/MEG_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, msg, post_event\r\n$insert msg_equates\r\n\r\nif .tech_sig->text='' then\r\n\tMsgInfo = ''\r\n\tMsgInfo = 'You have not signed the log entry'\r\n\tMsgInfo = 'H'\r\n\tVoid = msg( '', MsgInfo )\r\n\tVoid = post_event( @window:'.TECH_SIG', 'GOTFOCUS' )\r\n\tVoid = set_property( @window:'.TECH_SIG', 'FOCUS', 1 )\r\n\treturn 0\r\nend\r\n\r\nif rowexists( 'MEG_LOG', .log_no->text ) then\r\n\t*we're rewriting an entry that already existed -\r\n\t*don't replace current username into entry_id\r\nend else\r\n .entry_id->text = @user4; *this is a new entry so\r\n \t\t\t\t\t\t\t\t*place username into entry_id for the write\r\nend\r\n\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/MFC..json b/LSL2/OIEVENT/WRITE/MFC..json new file mode 100644 index 0000000..78c916f --- /dev/null +++ b/LSL2/OIEVENT/WRITE/MFC..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_MFC\r\n\r\nRETURN Comm_MFC('Write')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/MSG_GROUPS..json b/LSL2/OIEVENT/WRITE/MSG_GROUPS..json new file mode 100644 index 0000000..ce8617a --- /dev/null +++ b/LSL2/OIEVENT/WRITE/MSG_GROUPS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists\r\n\r\nif rowexists( 'MSG_GROUPS', .group_name->text ) else\r\n .entry_id->text = @user4\r\nend\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/NAMES..json b/LSL2/OIEVENT/WRITE/NAMES..json new file mode 100644 index 0000000..cc41b83 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/NAMES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare subroutine forward_event\r\ndeclare function rowexists\r\n\r\nif rowexists( 'NAMES', .seq->text ) else\r\n .entry_id->text = @user4\r\nend\r\n.co_no->visible = 1\r\n.co_no->text = .co_no->misc\r\nforward_event()\r\n.co_no->visible = 0\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/NCR..json b/LSL2/OIEVENT/WRITE/NCR..json new file mode 100644 index 0000000..20cd3b9 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/NCR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_NCR\r\n\r\nRETURN Comm_NCR('Write')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/NDA..json b/LSL2/OIEVENT/WRITE/NDA..json new file mode 100644 index 0000000..4a4d49e --- /dev/null +++ b/LSL2/OIEVENT/WRITE/NDA..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists\r\n\r\nif rowexists( 'NDA', .nda_id->text ) else\r\n .entry_id->text = @user4\r\nend\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/NDW_TOOL_PARMS..json b/LSL2/OIEVENT/WRITE/NDW_TOOL_PARMS..json new file mode 100644 index 0000000..cce4916 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/NDW_TOOL_PARMS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE Function Comm_RDS_Layer\r\n\r\nRETURN Comm_RDS_Layer('Write')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/NOTES..json b/LSL2/OIEVENT/WRITE/NOTES..json new file mode 100644 index 0000000..b0cdab8 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/NOTES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Msg, fieldcount, verifile, send_event, findwindow, rowexists, Notes_Comm, Get_Status\r\nDECLARE SUBROUTINE Forward_Event, record_lock, obj_Notes_Sent, Set_Property, obj_Notes, ErrMsg\r\n\r\n$INSERT note_ptrs_equ\r\n$INSERT msg_equates\r\n\r\nNoteID = Get_Property(@WINDOW:'.SEQ','TEXT')\r\n\r\nIF Rowexists( 'NOTES',NoteID) THEN\r\n RETURN 0\r\nEND\r\n\r\nvoid = Utility( 'CURSOR', 'H' )\r\n\r\nOPEN 'NOTE_PTRS' TO NotePtrTable ELSE\r\n void = Msg( '', 'Unable to open NOTE POINTER FILE.' )\r\n RETURN 0\r\nEND\r\n \r\nTIarray = Notes_Comm( 'STRIP_DUPS' )\t; *TIARRAY = All the users from Users & Groups minus duplicates\r\n\r\nIF (TIarray) THEN\r\n\tStList = TIArray\r\n\tStCnt = FieldCount( StList, @vm )\r\n\tSendToIconv = ''\r\n\t\r\n\tSet_Property(@WINDOW:'.ENTRY_ID','TEXT',@USER4)\t\t\t\t;* .entry_id->text = @user4\r\n\tSet_Property(@WINDOW:'.SEND_TO_INTERNAL','ARRAY',TIarray)\t;* .send_to_internal->array = TIarray\t\r\n\t\r\n\tForward_Event()\t\t\t\t\t\t\t\t\t\t\t\t; *This saves the message\r\n\t\r\n\tobj_Notes('PostEMail',NoteID)\r\n\t\r\n\tIF Get_Status(errCode) THEN\r\n\t\tErrMsg(errCode)\r\n\tEND\r\n \r\n\tFOR I = 1 TO StCnt\r\n \r\n\t\tThisSendTo = StList<1,I>\r\n\t\t\r\n\t\tIF LEN(ThisSendTo) THEN\r\n\t\t\t \r\n\t\t\tRecipient\t= ThisSendTo\r\n\t\t\tCurrDTM\t\t= OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTHS')\r\n \r\n\t\t\tobj_Notes_Sent('Create',Recipient:@RM:NoteID:@RM:CurrDTM)\r\n\t\t\r\n\t\tEND\r\n\tNEXT I\r\n\r\n\tIF Get_Property(@WINDOW, '@DontClose' ) ELSE\r\n\t\tvoid = Send_Event( @WINDOW, 'CLOSE' )\r\n\tEND\r\nEND \r\n \r\nvoid = Utility( 'CURSOR', 'A' )\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/NOTE_MESSAGE..json b/LSL2/OIEVENT/WRITE/NOTE_MESSAGE..json new file mode 100644 index 0000000..a216120 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/NOTE_MESSAGE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Note_Message\r\n\r\nRETURN Note_Message(CtrlEntid,'WRITE')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/ORDER..json b/LSL2/OIEVENT/WRITE/ORDER..json new file mode 100644 index 0000000..5628ad1 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/ORDER..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, msg, fieldcount, next_key, Get_Status, Test_Convert_PO\r\ndeclare subroutine forward_event, create_note, Set_Status,ErrMsg, obj_Annual_Contracts\r\n$insert logical\r\n$insert annual_contracts_equ\r\n$insert quote_equ\r\n$insert schedule_equ\r\n$insert quote_spec_equ\r\n$insert quote_sigs_equ\r\n$insert msg_equates\r\n$insert recipe_equ\r\n$insert prod_spec_equ\r\n$insert wafer_inv_equ\r\n$insert ORDER_EQU\r\n$INSERT WO_LOG_EQU\r\n\r\nequ CrLf$ to char(13):char(10)\r\n\r\nVoid = utility( 'CURSOR', 'H' )\r\nequ QuoteNo$ to 1\r\nequ PSN$ to 2\r\nequ SchedNo$ to 3\r\nequ Wo$ to 4\r\nequ PartNo$ to 5\r\nequ WafInv$ to 6\r\nequ SubPartNum$ to 7\r\nequ LotNo$ to 8\r\nequ Setup$ to 9\r\nequ Srp$ to 10\r\nequ Qty$ to 11\r\nequ Price$ to 12\r\nequ Amount$ to 13\r\n\r\nEQU ST$WO\t\t\t\tTO 1\r\nEQU ST$ORD_NO\t\t\tTO 2\r\nEQU ST$QUOTE_NO\t\t\tTO 3\r\nEQU ST$PRICE\t\t\tTO 4\r\nEQU ST$LOT_NOS\t\t\tTO 5\r\nEQU ST$LOT_QTYS\t\t\tTO 6\r\nEQU ST$PART_NOS\t\t\tTO 7\r\nEQU ST$SUB_PART_NOS\t\tTO 8\r\nEQU ST$WAF_INV_IDS\t\tTO 9\r\nEQU ST$SCHED_IDS\t\tTO 10\r\nEQU ST$ADD_CHG_DESCS\tTO 11\r\nEQU ST$ADD_CHG_AMTS\t\tTO 12\r\nEQU ST$CASS_CNT\t\t\tTO 13\r\nEQU ST$CASS_QTY\t\t\tTO 14\r\n\r\nQuoteErrors = ''\r\nLockMessage = ''\r\nNewRecord = false$\r\nSendTo = xlate( 'CONFIG', 'QUOTE_SIGS', OrderNotif$, 'X' )\r\nOrderNo = .order_no->text\r\n\r\nif rowexists( 'ORDER', OrderNo ) then\r\n if ( @@window->savewarn ) then\r\n create_note( SendTo, 'System', 'Changed Order', 'Order ':OrderNo:' changed on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.', 'ORDER', OrderNo )\r\n end\r\nend else\r\n NewRecord = true$\r\n .entry_id->text = @user4\r\n create_note( SendTo, 'System', 'New Order', 'Order ':OrderNo:' created on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.', 'ORDER', OrderNo )\t \r\nend\r\n\r\nopen 'WAFER_INV' to WafInvTable else\r\n msg( '', 'Unable to open WAFER_INV...' )\r\n return 0\r\nend\r\n\r\nInvUpdateMsg = ''\r\nPossibleWafInvUpdate = false$\r\n\r\nACID = .ac_id->text\r\nALineChanged = false$\r\n\r\nNoSave = false$\r\nOOrderDetail = get_property( @window, '@OrigOrderDetail' )\r\nOrderDetail = .order_detail->array\r\nOrigPo = get_property( @window, '@OrigPo' )\r\nOrigCustNo = get_property( @window, '@OrigCustNo' )\r\nScheduleNos = OrderDetail\r\nOrigScheduleNos = ScheduleNos\r\nCustNo\t= .cust_no->text\r\nPO\t\t= .po->text\r\n\r\nPOStuff = Test_Convert_PO(PO,CustNo)\t;* Pulls current PO field into three fields for coming upgrade\r\n\r\n.PO_NO->TEXT = POStuff<1,1>\r\n.PO_LINE->TEXT = POStuff<1,2>\r\n.PO_REL->TEXT = POStuff<1,3>\r\n\r\n*if ( OrderDetail <> OOrderDetail ) or ( PO <> OrigPo ) or ( CustNo <> OrigCustNo ) then\r\n\r\nSchedShipDate = ''\r\nif sum( OrderDetail ) > 0 and NewRecord then\r\n * ASK FOR WAFER SCHED SHIP DATE TO STAMP ON EACH SCHEDULE\r\n MsgInfo = ''\r\n MsgInfo = 'Enter the':CrLf$:' wafer scheduled':CrLf$:' shipment date.' \r\n MsgInfo = 'RCE'\r\n MsgInfo = '(D)'\r\n MsgInfo = '?'\r\n MsgInfo = 'C'\r\n MsgInfo = 'Scheduled Ship Date???'\r\n SchedShipDate = msg( '', MsgInfo )\r\n convert char(27) to '' in SchedShipDate\r\nend\r\nRow = 1\r\nRcnt = fieldcount( OrderDetail<1>, @vm )\r\nForceUpdate = .force_update->check\r\n\r\nfor Row = 1 to Rcnt\r\n\tThisOrderLine = OrderDetail:@vm:OrderDetail:@vm\r\n\tThisOrderLine:= OrderDetail:@vm\r\n\tThisOrderLine:= OrderDetail:@vm:OrderDetail:@vm\r\n\tThisOrderLine:= OrderDetail:@vm:OrderDetail:@vm\r\n\tThisOrderLine:= OrderDetail:@vm:OrderDetail:@vm\r\n\tThisOrderLine:= OrderDetail:@vm:OrderDetail:@vm\r\n\tThisOOrderLine = OOrderDetail:@vm:OOrderDetail:@vm\r\n\tThisOOrderLine:= OOrderDetail:@vm\r\n\tThisOOrderLine:= OOrderDetail:@vm:OOrderDetail:@vm\r\n\tThisOOrderLine:= OOrderDetail:@vm:OOrderDetail:@vm\r\n\tThisOOrderLine:= OOrderDetail:@vm:OOrderDetail:@vm\r\n\tThisOOrderLine:= OOrderDetail:@vm:OOrderDetail:@vm\r\n\tThisOOrderLine:= OOrderDetail\r\n\tif ( ForceUpdate ) or ( ThisOrderLine <> ThisOOrderLine ) or ( ThisOrderLine <> str( @vm, 11 ) and ( ThisOrderLine<1,SchedNo$> = '' ) ) then\r\n\t\t* this row has been changed/added\r\n\t\t\r\n\t\tALineChanged = true$\r\n\t\tCurQuote = ThisOrderLine<1,QuoteNo$>\r\n\t\tCurPSN = ThisOrderLine<1,PSN$>\r\n\t\tCurPartNum = ThisOrderLine<1,PartNo$>\r\n\t\tCurLotNum = ThisOrderLine<1,LotNo$>\r\n\t\tCurWo = ThisOrderLine<1,Wo$>\r\n\t\tCurWafInv = ThisOrderLine<1,WafInv$>\r\n\t\tCurQty = ThisOrderLine<1,Qty$>\r\n\t\tif ThisOrderLine<1,QuoteNo$> then\r\n\t\t\t*was below line of code but Darla said if there is a quote then verify\r\n\t\t\t*if ThisOrderLine<1,Qty$> and ThisOrderLine<1,Price$> then \r\n\t\t\t* wafers ordered\r\n\t\t\t* removed this from next line and ( ThisOrderLine<1,LotNo$> )\r\n\t\t\t* removed this ThisOrderLine<1,PartNo$>\r\n\t\t\tif ( ThisOrderLine<1,Wo$> ) and ( ThisOrderLine<1,QuoteNo$> ) and ( ThisOrderLine<1,PartNo$> ) then\r\n\t\t\t\tQuoteRec = xlate( 'QUOTE', CurQuote, '', 'X' )\r\n\t\t\t\tPSNRec = xlate( 'PROD_SPEC', CurPSN, '', 'X' )\r\n\t\t\t\tSpecType = xlate( 'PROD_SPEC', CurPSN, 'SPEC_TYPE', 'X' )\r\n\t\t\t\tSpecSubstrate = PSNRec\r\n\t\t\t\tEpiLayers = PSNRec\r\n\t\t\t\t* validate spec information\r\n\t\t\t\tErrMsg = ''\r\n\t\t\t\tSubErrMsg = ''\r\n\t\t\t\tEpiErrMsg = ''\r\n\t\t\t\tif PSNRec = 'A' else\r\n\t\t\t\t\tEpiErrMsg := 'PSN not active, '\r\n\t\t\t\tend\r\n\t\t\t\tProduct = SpecSubstrate<1,QSSubProduct$>\r\n\t\t\t\t* THE CHECK FOR 999 IS DOCUMENTED IN WIN_QUOTE_NUM_VALID\r\n\t\t\t\t* PLEASE CHECK THERE FOR INFORMATION\r\n\t\t\t\tif Product = 'SiEpi' and CurQuote <> 999 then\r\n\t\t\t\t\tif SpecSubstrate<1,QSSubOrientation$> <> '' else\r\n\t\t\t\t\t\tSubErrMsg := 'Orientation, '\r\n\t\t\t\t\tend\r\n\t\t\t\t\tif SpecSubstrate<1,QSSubType$> <> '' else\r\n\t\t\t\t\t\tSubErrMsg := 'Type, '\r\n\t\t\t\t\tend\r\n\t\t\t\t\tif SpecSubstrate<1,QSSubWaferSize$> <> '' else\r\n\t\t\t\t\t\tSubErrMsg := 'Wafer Size, '\r\n\t\t\t\t\tend\r\n\t\t\t\t\tif SpecSubstrate<1,QSSubDopant$> <> '' else\r\n\t\t\t\t\t\tSubErrMsg := 'Dopant, '\r\n\t\t\t\t\tend\r\n\t\t\t\t\tif SpecSubstrate<1,QSSubOxide$> <> '' else\r\n\t\t\t\t\t\tSubErrMsg := 'Oxide to be cleaned, '\r\n\t\t\t\t\tend\r\n\t\t\t\t\tif SpecSubstrate<1,QSSubPreClean$> <> '' else\r\n\t\t\t\t\t\tSubErrMsg := 'Preclean, '\r\n\t\t\t\t\tend\r\n\t\t\t\t\tif SpecType = 'U' or SpecType = '' then\r\n\t\t\t\t\t\tSubErrMsg := 'Spec Type not in runnable status, '\r\n\t\t\t\t\tend\r\n\t\t\t\t\tif SubErrMsg then\r\n\t\t\t\t\t\tSubErrMsg[-2,2] = ''\r\n\t\t\t\t\t\tSubErrMsg := '. '\r\n\t\t\t\t\t\tSubErrMsg = 'The following substrate information ':SubErrMsg\r\n\t\t\t\t\tend\r\n\t\t\t\t\t* now each epi layer\r\n\t\t\t\t\tLayerType = ''\r\n\t\t\t\t\tconvert char(247) to @fm in EpiLayers ;* each seperate layer\r\n\t\t\t\t\tSepLayCnt = fieldcount( EpiLayers, @fm )\r\n\t\t\t\t\t************************THIS IS WHEN WE NEED SCHEDULE CREATED WHEN \r\n\t\t\t\t\t************************THERE IS NO QUOTE_SPEC INFO\r\n\t\t\t\t\tif ( SpecType <> 'Q' ) then ;* IF SPEC IS A MATRIX OR QUAL THEN DON'T CHECK EPI LAYERS\r\n\t\t\t\t\t\tfor i = 1 to SepLayCnt\r\n\t\t\t\t\t\t\tThisSepLayer = EpiLayers\r\n\t\t\t\t\t\t\tLayerToUse = field( ThisSeplayer, char(248), 1 )\r\n\t\t\t\t\t\t\tLayerType = 'SEP'\r\n\t\t\t\t\t\t\tgosub CheckLayer\r\n\t\t\t\t\t\t\t* \r\n\t\t\t\t\t\t\tSameLayers = field( ThisSepLayer, char(248), 2, 9999 )\r\n\t\t\t\t\t\t\tconvert char(248) to @fm in SameLayers\r\n\t\t\t\t\t\t\tSameLayCnt = fieldcount( SameLayers, @fm )\r\n\t\t\t\t\t\t\t* does the recipe have the same amout of same reactor layers\r\n\t\t\t\t\t\t\tTRecipe = LayerToUse<1,QSEpiRecipe$>\r\n\t\t\t\t\t\t\tTRecipeStatus = xlate( 'RECIPE', TRecipe, recipe_status$, 'X' )\r\n\t\t\t\t\t\t\tif TRecipeStatus = 'I' then\r\n\t\t\t\t\t\t\t\tEpiErrMsg := 'Recipe ':Trecipe:' is inactive, '\t\t\t\t\t\t \r\n\t\t\t\t\t\t\tend\r\n\t\t\t\t\t\t\tRecipeLayers = xlate( 'RECIPE', TRecipe, recipe_layer_info$, 'X' )\r\n\t\t\t\t\t\t\tTlCnt = fieldcount( RecipeLayers, char(248) )\r\n\t\t\t\t\t\t\tif TlCnt < SameLayCnt then\r\n\t\t\t\t\t\t\t\t* error recipe does not have as many same reactor layers\r\n\t\t\t\t\t\t\t\tEpiErrMsg := 'Recipe ':Trecipe:' must have ':SameLayCnt+1:' layers, as used by seperate reactor layer ':i:', '\r\n\t\t\t\t\t\t\tend\r\n\t\t\t\t\t\t\tfor j = 1 to SameLayCnt\r\n\t\t\t\t\t\t\tLayerToUse = SameLayers\r\n\t\t\t\t\t\t\t\tLayerType = 'SAME'\r\n\t\t\t\t\t\t\t\tgosub CheckLayer\r\n\t\t\t\t\t\t\t next j\r\n\t\t\t\t\t\tnext i\r\n\t\t\t\t\tend\r\n\t\t\t\t\t********************************************** END\r\n\t\t\t\t\t*****************AND THIS IS THE END\r\n\t\t\t\t\tif EpiErrMsg then\r\n\t\t\t\t\t\tEpiErrMsg[-2,2] = ''\r\n\t\t\t\t\t\tEpiErrMsg := '. '\r\n\t\t\t\t\t\tEpiErrMsg = 'The following EPI information: ':EpiErrMsg\r\n\t\t\t\t\tend\r\n\t\t\t\t\tif EpiErrMsg or SubErrMsg then\r\n\t\t\t\t\t\tlocate CurQuote in QuoteErrors using @vm setting Fpos else\r\n\t\t\t\t\t\t\tQuoteErrors<1,-1> = CurQuote\r\n\t\t\t\t\t\t\tErrMsg = 'The following information is missing from quote ':CurQuote:'...PSN ':CurPSN:' ':SubErrMsg:EpiErrMsg\r\n\t\t\t\t\t\t\t* SEND MESSAGE TO THE APPROPRIATE GROUP, BASED ON PSN TYPE\r\n\t\t\t\t\t\t\tSendTo = ''\r\n\t\t\t\t\t\t\tQuoteSigInfo = xlate( 'CONFIG', 'QUOTE_SIGS', '', 'X' )\r\n\t\t\t\t\t\t\tbegin case\r\n\t\t\t\t\t\t\t\tcase SpecType = 'U'\r\n\t\t\t\t\t\t\t\t\tSendTo = QuoteSigInfo\r\n\t\t\t\t\t\t\t\tcase SpecType = 'Q'\r\n\t\t\t\t\t\t\t\t\tSendTo = QuoteSigInfo\r\n\t\t\t\t\t\t\t\tcase SpecType = 'E'\r\n\t\t\t\t\t\t\t\t\tSendTo = QuoteSigInfo\r\n\t\t\t\t\t\t\t\tcase SpecType = 'P'\r\n\t\t\t\t\t\t\t\t\tSendTo = QuoteSigInfo\r\n\t\t\t\t\t\t\tend case\r\n\t\t\t\t\t\t\tSendTo := @VM:'BRYCE_M':@VM:'ELIZABETH_G'\r\n\t\t\t\t\t\t\tcreate_note( SendTo, 'System', 'Incomplete Spec', ErrMsg, 'PROD_SPEC', CurPSN )\r\n\t\t\t\t\t\t\t* display message to dr\r\n\t\t\t\t\t\t\tMsgInfo = ''\r\n\t\t\t\t\t\t\tMsgInfo = 'Unable to create schedule for quote ':CurQuote:'. There is missing epi and/or substrate information. Message sent to ':oconv( SendTo, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):'.'\r\n\t\t\t\t\t\t\tMsgInfo = '!'\r\n\t\t\t\t\t\t\tVoid = msg( '', MsgInfo )\r\n\t\t\t\t\t\tend\r\n\t\t\t\t\tend else\r\n\t\t\t\t\t\t* create the schedule\r\n\t\t\t\t\t\tgosub WriteSchedRec\r\n\t\t\t\t\tend\r\n\t\t\t\t\t* ADJUST INVENTORY TO INPROCESS IF APPLICABLE\r\n\t\t\t\t\tif ( CurWafInv <> '' ) then\r\n\t\t\t\t\t\tPossibleWafInvUpdate = true$\r\n\t\t\t\t\t\t* THERE IS AN INVENTORY NUMBER AND THE QUANTITY HAS EITHER CHANGED\r\n\t\t\t\t\t\t* OR THIS IS A NEW LINE\r\n\t\t\t\t\t\t* NOW LETS MAKE SURE THERE IS A QTY\r\n\t\t\t\t\t\tWIqty = ThisOrderLine<1,Qty$>\r\n\t\t\t\t\t\tif ( WIQty > 0 and ( WIQty <> ThisOOrderLine<1,Qty$> ) ) or ( ForceUpdate = true$ and WIQty > 0 ) or ( CurWafInv <> OOrderDetail<1,WafInv$> ) then\r\n\t\t\t\t\t\t\tlock WafInvTable, CurWafInv then\r\n\t\t\t\t\t\t\t\tWIRec = xlate( 'WAFER_INV', CurWafInv, '', 'X' )\r\n\t\t\t\t\t\t\t\tif CurLotNum <> '' then\r\n\t\t\t\t\t\t\t\t\tCurLotNum = trim( CurLotNum )\r\n\t\t\t\t\t\t\t\t\tInvLotNums = WIRec\r\n\t\t\t\t\t\t\t\t\tInvLotCnts = WIRec\r\n\t\t\t\t\t\t\t\t\tlocate CurLotNum in InvLotNums using @vm setting WIpos then\r\n\t\t\t\t\t\t\t\t\t\t\r\n\t\t\t\t\t\t\t\t\t\tMaxAllowed = InvLotCnts<1,WIpos>\r\n\r\n\t\t\t\t\t\t\t\t\t\tLotPart = CurLotNum\r\n\t\t\t\t\t\t\t\t\t\tTotLotPartCnt = 0\r\n\t\t\t\t\t\t\t\t\t\tOLCnt = fieldcount( WIRec, @vm )\r\n\t\t\t\t\t\t\t\t\t\tLineFoundOn = 0\r\n\t\t\t\t\t\t\t\t\t\tfor Ww = 1 to OLCnt\r\n\t\t\t\t\t\t\t\t\t\t\tThisInvOrderNo = WIRec\r\n\t\t\t\t\t\t\t\t\t\t\tThisInvOrderLine = WIRec\r\n\t\t\t\t\t\t\t\t\t\t\tThisInvLotPart = WIRec\r\n\t\t\t\t\t\t\t\t\t\t\tThisInvInProc = WIRec\r\n\t\t\t\t\t\t\t\t\t\t\tThisInvInvoiceNo = WIRec\r\n\t\t\t\t\t\t\t\t\t\t\tif ThisInvLotPart = LotPart then\r\n\t\t\t\t\t\t\t\t\t\t\t\t* CHECKING BELOW THAT THE LSL INVOICE NO IS BLANK\r\n\t\t\t\t\t\t\t\t\t\t\t\t* CAUSE WE DO NOT WANT TO UPDATE AN INVOICE LINE\r\n\t\t\t\t\t\t\t\t\t\t\t\tif ( ThisInvInvoiceNo = '' ) and ( ThisInvOrderNo = OrderNo ) and ( ThisInvOrderLine = Row ) then\r\n\t\t\t\t\t\t\t\t\t\t\t\t\tLineFoundOn = Ww\r\n\t\t\t\t\t\t\t\t\t\t\t\tend else\r\n\t\t\t\t\t\t\t\t\t\t\t\t\tTotLotPartCnt += ThisInvInProc\r\n\t\t\t\t\t\t\t\t\t\t\t\tend\r\n\t\t\t\t\t\t\t\t\t\t\tend\r\n\t\t\t\t\t\t\t\t\t\tnext Ww\r\n \t\t\t\t\t\t\t\t\t* ACCOUNT FOR THE QTY THAT WE ARE ADDING\t\t\t\t\t \r\n \t\t\t\t\t\t\t\t\tTotLotPartCnt += ThisOrderLine<1,Qty$>\t\r\n\t\t\t\t\t\t\t\t\t\tif TotLotPartCnt > MaxAllowed then\r\n\t\t\t\t\t\t\t\t\t\t\t* ERROR MESSAGE\r\n\t\t\t\t\t\t\t\t\t\t\tMsgInfo = ''\r\n\t\t\t\t\t\t\t\t\t\t\tMsgInfo = 'No update on wafer inventory#':CurWafInv:' for order line ':Row:' due to alloted amount for lot number ':CurLotNum:' being ':MaxAllowed:', and this would put it at ':TotLotPartCnt\r\n\t\t\t\t\t\t\t\t\t\t\tMsgInfo = '!'\r\n\t\t\t\t\t\t\t\t\t\t\tVoid = msg( '', MsgInfo )\r\n\t\t\t\t\t\t\t\t\t\tend else\r\n\t\t\t\t\t\t\t\t\t\t\t* UPDATE THE INVENTORY\r\n\t\t\t\t\t\t\t\t\t\t\tif LineFoundOn > 0 then\r\n\t\t\t\t\t\t\t\t\t\t\t\tWIRec = OrderNo \r\n\t\t\t\t\t\t\t\t\t\t\t\tWIRec = Row \r\n\t\t\t\t\t\t\t\t\t\t\t\tWIRec = .po->text\r\n\t\t\t\t\t\t\t\t\t\t\t\tWIRec = LotPart\r\n\t\t\t\t\t\t\t\t\t\t\t\tWIRec = CurWo\r\n\t\t\t\t\t\t\t\t\t\t\t\tWIRec = date() \r\n\t\t\t\t\t\t\t\t\t\t\t\tWIRec = WIQty\r\n\t\t\t\t\t\t\t\t\t\t\tend else\r\n\t\t\t\t\t\t\t\t\t\t\t\t* ADD TO THE BOTTOM\r\n\t\t\t\t\t\t\t\t\t\t\t\tNpos = OLCnt + 1\r\n\t\t\t\t\t\t\t\t\t\t\t\tWIRec = OrderNo\r\n\t\t\t\t\t\t\t\t\t\t\t\tWIRec = Row\r\n\t\t\t\t\t\t\t\t\t\t\t\tWIRec = .po->text\r\n\t\t\t\t\t\t\t\t\t\t\t\tWIRec = LotPart\r\n\t\t\t\t\t\t\t\t\t\t\t\tWIRec = CurWo\r\n\t\t\t\t\t\t\t\t\t\t\t\tWIRec = date()\r\n\t\t\t\t\t\t\t\t\t\t\t\tWIRec = WIQty\r\n\t\t\t\t\t\t\t\t\t\t\tend\r\n\t\t\t\t\t\t\t\t\t\t\tif InvUpdateMsg = '' then\r\n\t\t\t\t\t\t\t\t\t\t\t\tInvUpdateMsg = 'The following wafer inventory records were updated: ':CrLf$\r\n\t\t\t\t\t\t\t\t\t\t\tend\r\n\t\t\t\t\t\t\t\t\t\t\tInvUpdateMsg := 'Inventory#':CurWafInv:' from order line ':Row:CrLf$\r\n\t\t\t\t\t\t\t\t\t\t\twrite WIRec on WafInvTable, CurWafInv else\r\n\t\t\t\t\t\t\t\t\t\t\tVoid = msg( '', 'Unable to write ':CurWafInv:' on WAFER_INV...' )\r\n\t\t\t\t\t\t\t\t\t\tend\r\n\t\t\t\t\t\t\t\t\tend\r\n\t\t\t\t\t\t\t\tend else\r\n\t\t\t\t\t\t\t\t\tMsgInfo = ''\r\n\t\t\t\t\t\t\t\t\tMsgInfo = 'No update on wafer inventory#':CurWafInv:' for order line ':Row:' due to lot number ':CurLotNum:' not found in the lot number qty breakdown portion...'\r\n\t\t\t\t\t\t\t\t\tMsgInfo = '!'\r\n\t\t\t\t\t\t\t\t\tVoid = msg( '', MsgInfo )\r\n\t\t\t\t\t\t\t\tend\r\n\t\t\t\t\t\t\tend else\r\n\t\t\t\t\t\t\t\tMsgInfo = ''\r\n\t\t\t\t\t\t\t\tMsgInfo = 'No update on wafer inventory#':CurWafInv:' for order line ':Row:' due to no Lot Number on row ':Row:'...'\r\n\t\t\t\t\t\t\t\tMsgInfo = '!'\r\n\t\t\t\t\t\t\t\tVoid = msg( '', MsgInfo )\r\n\t\t\t\t\t\t\tend\r\n\t\t\t\t\t\t\tunlock WafInvTable, CurWafInv else\r\n\t\t\t\t\t\t\t\tMsgInfo = ''\r\n\t\t\t\t\t\t\t\tMsgInfo = 'Unable to unlock wafer inventory#':CurWafInv\r\n\t\t\t\t\t\t\t\tMsgInfo = '!'\r\n\t\t\t\t\t\t\t\tVoid = msg( '', MsgInfo )\r\n\t\t\t\t\t\t\tend\r\n\t\t\t\t\t\tend else\r\n\t\t\t\t\t\t\tMsgInfo = ''\r\n\t\t\t\t\t\t\tMsgInfo = 'Unable to update wafer inventory#':CurWafInv:' for order line ':Row:' due to it currently being in use. You will need to manually update this inventory...'\r\n\t\t\t\t\t\t\tMsgInfo = '!'\r\n\t\t\t\t\t\t\tVoid = msg( '', MsgInfo )\r\n\t\t\t\t\t\tend\r\n\t\t\t\t\tend else\r\n\t\t\t\t\t\t* NO QUANTITY OR IT HAS NOT CHANGED SO NO UPDATE ON WAFER INVENTORY\r\n\t\t\t\t\tend\r\n\t\t\t\tend\r\n\t\t\tend else\r\n\t\t\t\tgosub WriteSchedRec\r\n\t\t\tend\r\n\t\tend else\r\n\t\t\tNoSave = true$\r\n\t\t\tMsgInfo = ''\r\n \t\t\tMsgInfo = '!'\r\n \t\t\tMsgInfo = 'Order line ':Row:' must have a Quote Number, PSN, Part Number, and a Work Order. No schedule created for this line.'\r\n\t\t\tVoid = msg( '', MsgInfo )\r\n\t\tend\r\n\tend else\r\n \t\t* setup or srp charge\r\n\t\t\tif ( ThisOrderLine<1,Setup$> <> '' ) or ( ThisOrderLine<1,Srp$> <> '' ) and ( ThisOrderLine<1,QuoteNo$> ) then\r\n\t\t\t\t* create schedule\r\n \t\t\t\tgosub WriteSchedRec\r\n\t\t\tend else\r\n\t\t\t\tif ForceUpdate else\r\n\t\t\t\t\tNoSave = true$\r\n\t\t\t\t\tMsgInfo = ''\r\n\t\t\t\t\tMsgInfo = 'Order line ':Row:' has missing information. Each line must be either a Setup charge, SRP charge, or Wafers ordered and each line must have a quote number.'\r\n\t\t\t\t\tMsgInfo = '!'\r\n\t\t\t\t\tVoid = msg( '', MsgInfo )\r\n\t\t\t\tend\r\n \t\t\tend\r\n\t\tend\r\n \tend \r\nnext Row\r\n* \r\nif ( PossibleWafInvUpdate = false$ ) then\r\n * DO NOT SEND A MESSAGE CAUSE NO ACTIVITY IN WAFER INVENTORY\r\nend else\r\n if InvUpdateMsg = '' then\r\n * POSSIBLE UPDATE BUT NOTHING CHANGED IN THE QUANTITY\r\n MsgInfo = ''\r\n MsgInfo = 'No wafer inventory updates...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end else\r\n * WE HAVE AN UPDATE SO DISPLAY TO USER\r\n MsgInfo = ''\r\n MsgInfo = InvUpdateMsg\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend\r\n\r\n* Update Annual Contract\t;* Added obj_Annual_Contract routine 12/18/2003 John C. Henry, J.C. Henry & Co., Inc.\r\n\r\nif ( ACID <> '' ) and ( ALineChanged = true$ ) then\r\n\tOrderDetail = .order_detail->array \r\n\tQuotes\t\t= OrderDetail\r\n\tWOs\t\t\t= OrderDetail\r\n\tSetupAmts\t= ICONV(OrderDetail,'MD2')\r\n\tSRPAmts\t\t= ICONV(OrderDetail,'MD2')\r\n\tQtys\t\t= ICONV(OrderDetail,'MD0')\r\n\tPrices\t\t= ICONV(OrderDetail,'MD2')\r\n\t\r\n\tDetailCnt = Count( Quotes, @vm ) + (Quotes NE '')\r\n \r\n\t* Summarize detail on a WO basis\r\n \r\n\tOrderWOs \t= ''\r\n\tWOSetupAmts\t= ''\r\n\tWOQtys\t\t= ''\r\n\tWOPrices\t\t= ''\r\n \r\n\tFOR I = 1 TO DetailCnt\r\n\t\tThisWO = WOs<1,I>\r\n\t\tif ThisWO <> '' then\r\n\t\t\tLOCATE ThisWO IN OrderWOs BY 'AR' USING @vm SETTING WOPos THEN\r\n\t\t\t\t* Total Setup & SRP amounts and Quantities\r\n\t\t\t\tWOSetupAmts<1,WOPos> = WOSetupAmts<1,WOPos> + SetupAmts<1,I> + SRPAmts<1,I>\r\n\t\t\t\tWOQtys<1,WOPos>\t\t = WOQtys<1,WOPos> + Qtys<1,I>\r\n\t\t\tEND ELSE\r\n\t\t\t\tOrderWOs\t= insert( OrderWOs, 1, WOPos, 0, ThisWO )\r\n\t\t\t\tWOSetupAmts = insert( WOSetupAmts, 1, WOPos, 0, SetupAmts<1,I> + SRPAmts<1,I> )\r\n\t\t\t\tWOQtys \t= insert( WOQtys, 1, WOPos, 0, Qtys<1,i>)\r\n\t\t\t\tWOPrices\t= insert( WOPrices, 1, WOPos, 0, Prices<1,I>)\r\n\t\t\tEND\t;* End of locate by\r\n\t\tEND\t;* End of check for null WO (data comes from screen control and WILL have empty lines)\r\n\tNEXT I\r\n \r\n\tIF OrderWOs NE '' THEN\r\n\t\t\r\n * Update Annual Contract record with order information\r\n \r\n\t\tACPO = .po->text\r\n\t\tACRelNo = field( ACPO, '-', 2 )\r\n\t\tACRelDate = .entry_date->text\r\n\t\tWOSetupAmts = OCONV(WOSetupAmts,'MD2')\t;* OCONV before passing to obj_Annual_Contracts\r\n\t\tWOQtys\t\t= OCONV(WOQtys,'MD0')\r\n\t\tWOPrices\t= OCONV(WOPrices,'MD2')\r\n\r\n\t\tParms = OrderNo:@RM:ACID:@RM:ACPO:@RM:ACRelNo:@RM:ACRelDate:@RM:OrderWOs:@RM:WOSetupAmts:@RM:WOQtys:@RM:WOPrices \r\n \r\n Set_Status(0)\r\n obj_Annual_Contracts('AddOrder',Parms)\r\n\t\tIF Get_Status(errCode) THEN\r\n\t\t\tErrMsg(errCode)\r\n\t\t\tErrorMsg = 'Unable to update Annual Contract# ':ACID:CrLf$:CrLf$\r\n\t\t\tErrorMsg := 'You will have to update manually or try again later using force update.'\r\n\t\t\tErrMsg(ErrorMsg)\r\n\t\tEND ELSE\r\n\t\t\tMsgInfo = ''\r\n\t\t\tMsgInfo = 'T1'\r\n\t\t\tMsgInfo = 'Annual Contract# ':ACID:' has been updated.'\r\n\t\t\tMsgInfo = '!'\r\n\t\t\tVoid = msg( '', MsgInfo )\r\n\t\tEND\t\r\n\tEND\t;* End of check for OrderWOs\r\nend\r\n\r\n*\tEnd of mods by JCH\t12/18/2003\r\n\r\nif ScheduleNos <> OrigScheduleNos then\r\n OrderDetail = .order_detail->array\r\n OrderDetail = ScheduleNos\r\n .order_detail->array = OrderDetail\r\nend\r\nVoid = utility( 'CURSOR', 'A' )\r\n\r\nIF NoSave ELSE\r\n Forward_Event()\r\n \r\n\t* Added on 1/10/2005 by JCH for conversion project ***************************************************\r\n\t\r\n\t*Set_Status(0)\r\n\t*obj_Order('Ord_WOLog',OrderNo)\r\n\t\r\n\t*IF Get_Status(errCode) THEN\r\n\t*\tErrMsg(errCode)\r\n\t*END\r\n\t\t\t\r\n\t*Set_Status(0)\r\n\t\r\n\t*obj_Order('OrderDet',OrderNo)\r\n\t\r\n\t*IF Get_Status(errCode) THEN\r\n\t*\tErrMsg(errCode)\r\n\t*END\t\t\t\r\nend\r\n\r\nif LockMessage then\r\n LockMessage[-2,2] = ''\r\n MsgInfo = ''\r\n MsgInfo = LockMessage\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nif ScheduleNos and NewRecord then\r\n Tsched = ScheduleNos\r\n TTSched = Tsched\r\n convert @vm to '' in TTSched\r\n if TTSched <> '' then\r\n\t swap @vm:@vm with '' in Tsched\r\n\t if Tsched[-1,1] = @vm then Tsched[-1,1] = ''\r\n\t swap @vm with ', ' in Tsched\r\n\t Tsched := '.'\r\n\t MsgInfo = ''\r\n\t MsgInfo = '!'\r\n\t MsgInfo = 'The following schedules were created ':Tsched\r\n\t Void = msg( '', MsgInfo )\r\n\tend\r\nend\r\nreturn 0\r\n*===========================================================================*\r\nCheckLayer:\r\n if LayerType = 'SEP' then\r\n LayerStatment= 'for reactor seperate layer ':i\r\n end\r\n if LayerType = 'SAME' then\r\n LayerStatment = ' for same reactor layer ':j:' of seperate reactor layer ':i\r\n end\r\n ConcMinThick = LayerToUse<1,QSEpiConcMinThick$,1> ;* could have @svm\r\n ConcMaxThick = LayerToUse<1,QSEpiConcMaxThick$,1> ;* could have @svm\r\n ConcUnits = LayerToUse<1,QSEpiConcUnits$> \r\n\tResMinThick = LayerToUse<1,QSEpiResMinThick$> \r\n\tResMaxThick = LayerToUse<1,QSEpiResMaxThick$> \r\n\tResUnits = LayerToUse<1,QSEpiResUnits$> \r\n\tMinThick = LayerToUse<1,QSEpiMinThick$> \r\n\tMaxThick = LayerToUse<1,QSEpiMaxThick$> \r\n\tThickUnits = LayerToUse<1,QSEpiThickUnits$> \r\n\tLDopant = LayerToUse<1,QSEpiDopant$> \r\n\tRecipe = LayerToUse<1,QSEpiRecipe$>\r\n ThickMeasure = LayerToUse<1,QSEpiThickMeasure$>\r\n ResMeasure = LayerToUse<1,QSEpiResMeasure$>\r\n\tif ( MinThick <> '' ) and ( MaxThick <> '' ) and ( ThickUnits <> '' ) else\r\n\t EpiErrMsg := 'Thickness information ':LayerStatment:', '\r\n\tend\r\n\tif ( ResMinThick <> '' ) and ( ResMaxThick <> '' ) and ( ResUnits <> '' ) else\r\n\t * need to see if concentration is stored as @svm@svm\r\n\t if ( ConcMinThick <> '' ) and ( ConcMaxThick <> '' ) and ( ConcUnits <> '' ) else\r\n\t if ConcMinThick:ConcMaxThick:ConcUnits = '' then\r\n\t EpiErrMsg := 'Resistivity information ':LayerStatment:', '\r\n\t end else\r\n\t if ResMinThick:ResMaxThick:ResUnits = '' then\r\n\t EpiErrMsg := 'Concentration information ':LayerStatment:', '\r\n\t end else\r\n\t EpiErrMsg := 'Resistivity or Concentration information and should use either or ':LayerStatment:', '\r\n\t end\r\n\t end\r\n\t end\r\n\tend \r\n\tif LDopant <> '' else\r\n\t EpiErrMsg := 'Dopant ':LayerStatment:', '\r\n\tend\r\n\tif LayerType = 'SEP' then\r\n\t\tif Recipe <> '' else\r\n\t\t EpiErrMsg := 'Recipe ':LayerStatment:', '\r\n\t\tend\r\n\tend\r\n if ThickMeasure <> '' else\r\n EpiErrMsg := 'Thickness measured by ':LayerStatment:', '\r\n end\r\n if ResMeasure <> '' else\r\n EpiErrMsg := 'Resistivity measured by ':LayerStatment:', '\r\n end\r\nreturn\r\n*===========================================================================*\r\nWriteSchedRec:\r\n open 'SCHEDULE' to SchedTable else\r\n\t Void = msg( '', 'Unable to open SCHEDULE...' )\r\n\t\treturn 0\r\n end\r\n KeyToUse = ScheduleNos<1,Row>\r\n Update = true$\r\n if KeyToUse then\r\n Exists = true$\r\n lock SchedTable, KeyToUse then\r\n ScheduleRec = xlate( 'SCHEDULE', KeyToUse, '', 'X' )\r\n end else\r\n if LockMessage else\r\n LockMessage = 'Unable to lock schedule no(s). Try at a later point. '\r\n end\r\n LockMessage := KeyToUse :', '\r\n Update = false$\r\n end \r\n end else\r\n Exists = false$\r\n KeyToUse = next_key( 'SCHEDULE', SchedTable, 'NEXT', '' )\r\n ScheduleRec = ''\r\n ScheduleRec = @user4\r\n\t ScheduleRec = date() \r\n\t ScheduleRec = 'O'\r\n end\r\n if Update then\r\n ScheduleRec = .po->text\r\n ScheduleRec = OrderNo\r\n ScheduleRec = .cust_no->text\r\n\t ScheduleRec = Row\r\n\t ScheduleRec = CurPartNum\r\n\t ScheduleRec = CurLotNum\r\n\t ScheduleRec = CurWo\r\n\t ScheduleRec = CurQuote\r\n ScheduleRec = CurPSN\r\n\t if SchedShipDate <> '' then\r\n\t * this will not be set unless it is a new order\r\n\t ScheduleRec = SchedShipDate\r\n\t end\r\n\t write ScheduleRec on SchedTable, KeyToUse else\r\n\t Void = msg( '', 'Unable to write ':KeyToUse:' on SCHEDULE...' )\r\n\t\t return 0\r\n\t end\r\n\t unlock SchedTable, KeyToUse else\r\n\t Void = msg( '', 'Unable to unlock SCHEDULE ':KeyToUse:'...' )\r\n\t return 0\r\n\t end\r\n\t if Exists else\r\n\t Void = next_key( 'SCHEDULE', SchedTable, 'UPDATE', KeyToUse )\r\n\t end\r\n\tend\r\n\tScheduleNos<1,Row> = KeyToUse\r\nreturn" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/ORDER2..json b/LSL2/OIEVENT/WRITE/ORDER2..json new file mode 100644 index 0000000..f256c65 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/ORDER2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_Order\r\n\r\nOrderNo = Get_Property(@WINDOW:'.ORD_NO','TEXT')\r\n\r\nRETURN Comm_Order('Write',OrderNo)" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/ORDER_DET..json b/LSL2/OIEVENT/WRITE/ORDER_DET..json new file mode 100644 index 0000000..d86a22a --- /dev/null +++ b/LSL2/OIEVENT/WRITE/ORDER_DET..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_Order_Det\r\n\r\n\r\nRETURN Comm_Order_Det('Write')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/PART..json b/LSL2/OIEVENT/WRITE/PART..json new file mode 100644 index 0000000..d1cab1f --- /dev/null +++ b/LSL2/OIEVENT/WRITE/PART..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Part\r\n\r\n\r\nRETURN Part(CtrlEntID,'WRITE')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/PHOTOFLO_LOG..json b/LSL2/OIEVENT/WRITE/PHOTOFLO_LOG..json new file mode 100644 index 0000000..f6f39c4 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/PHOTOFLO_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, msg, post_event\r\n$insert msg_equates\r\n\r\nif .tech_sig->text='' then\r\n\tMsgInfo = ''\r\n\tMsgInfo = 'You have not signed the log entry'\r\n\tMsgInfo = 'H'\r\n\tVoid = msg( '', MsgInfo )\r\n\tVoid = post_event( @window:'.TECH_SIG', 'GOTFOCUS' )\r\n\tVoid = set_property( @window:'.TECH_SIG', 'FOCUS', 1 )\r\n\treturn 0\r\nend\r\n\r\nif rowexists( 'PHOTOFLO_LOG', .log_no->text ) then\r\n\t*we're rewriting an entry that already existed -\r\n\t*don't replace current username into entry_id\r\nend else\r\n .entry_id->text = @user4; *this is a new entry so\r\n \t\t\t\t\t\t\t\t*place username into entry_id for the write\r\nend\r\n\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/PROD_SPEC..json b/LSL2/OIEVENT/WRITE/PROD_SPEC..json new file mode 100644 index 0000000..b8f820e --- /dev/null +++ b/LSL2/OIEVENT/WRITE/PROD_SPEC..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, prod_spec_comm, msg, Comm_Prod_Spec, Get_Property\r\ndeclare subroutine create_note, forward_event, obj_Prod_Spec, Comm_Prod_Spec\r\n\r\n$INSERT QUOTE_SIGS_EQU\r\n$INSERT QUOTE_SPEC_EQU\r\n$INSERT MSG_EQUATES\r\n$INSERT LOGICAL\r\n$INSERT NOTIFICATION_EQU\r\n\r\n*Tvalue = .rtype->value\r\n*if Tvalue = '' then\r\n*\tMsgInfo = ''\r\n*\tMsgInfo = 'You must choose a reactor type...'\r\n*\tMsgInfo = 'H'\r\n*\tVoid = msg( '', MsgInfo )\r\n*\treturn 0\r\n*end\r\n\r\nPSN = .prod_spec_id->text\r\nif rowexists( 'PROD_SPEC', PSN ) then\r\n RowExists = true$\r\nend else\r\n RowExists = false$\r\nend\r\nSubstrateInfo = .spec_substrate->text\r\n\r\nPSNStatus = Get_Property(@Window : '.STATUS', 'VALUE')\r\n\r\n\r\nIf @@window->savewarn EQ true$ AND PSNStatus NE 'I' then\r\n\tResult = Comm_Prod_Spec('UpdateRevHist')\r\n\tIf Result EQ False$ then\r\n\t\tReturn 0\r\n\tend\r\nend\r\n\r\nSendTo = XLATE('NOTIFICATION','PSN_DELTA',NOTIFICATION_USER_ID$,'X')\r\n\t \r\nif rowexists( 'PROD_SPEC', PSN ) then\r\n\tif ( @@window->savewarn = true$ ) then\r\n\t\tcreate_note( SendTo, 'System', 'PSN Modification', 'This PSN was modified by ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.', 'PROD_SPEC', .prod_spec_id->text )\r\n\tend\r\nend else\r\n\t.entry_id->text = @user4\r\n\tcreate_note( SendTo, 'System', 'New PSN', 'This PSN was entered by ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.', 'PROD_SPEC', .prod_spec_id->text )\t \r\nend\r\n\r\n* Deprecated 7/2/18 - djs - KLUSA PSN Revision History Project\r\n*if ( @@window->savewarn = true$ ) then\r\n*\tModArray = .mod_info->array\r\n*\tModArray = insert( ModArray, 1, 1, 0, @user4 )\r\n*\tModArray = insert( ModArray, 2, 1, 0, oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ) )\r\n*\tModArray = insert( ModArray, 3, 1, 0, oconv( date(), 'D2/' ) )\r\n*\t.mod_info->array = ModArray\r\n*end\r\n\r\nforward_event()\r\n\r\n*obj_Prod_Spec('PushTech',PSN)\t;* Pushes data to new table locations JCH 10/8/2012 ;* Moved to PROD_SPEC_ACTIONS (invoked by BASE_MFS) DJS 3/24/21\r\n\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/PROD_SPEC_BACKUP..json b/LSL2/OIEVENT/WRITE/PROD_SPEC_BACKUP..json new file mode 100644 index 0000000..971ce48 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/PROD_SPEC_BACKUP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, prod_spec_comm, msg, Comm_Prod_Spec, Get_Property\r\ndeclare subroutine create_note, forward_event, obj_Prod_Spec, Comm_Prod_Spec\r\n\r\n$INSERT QUOTE_SIGS_EQU\r\n$INSERT QUOTE_SPEC_EQU\r\n$INSERT MSG_EQUATES\r\n$INSERT LOGICAL\r\n$INSERT NOTIFICATION_EQU\r\n\r\nTvalue = .rtype->value\r\nif Tvalue = '' then\r\n\tMsgInfo = ''\r\n\tMsgInfo = 'You must choose a reactor type...'\r\n\tMsgInfo = 'H'\r\n\tVoid = msg( '', MsgInfo )\r\n\treturn 0\r\nend\r\n\r\nPSN = .prod_spec_id->text\r\nif rowexists( 'PROD_SPEC', PSN ) then\r\n RowExists = true$\r\nend else\r\n RowExists = false$\r\nend\r\nSubstrateInfo = .spec_substrate->text\r\n\r\nPSNStatus = Get_Property(@Window : '.STATUS', 'VALUE')\r\n\r\n\r\nIf ( (@@window->savewarn EQ true$) AND ((PSNStatus EQ 'A') OR (PSNStatus EQ 'H')) ) then\r\n\tResult = Comm_Prod_Spec('UpdateRevHist')\r\n\tIf Result EQ False$ then\r\n\t\tReturn 0\r\n\tend\r\nend\r\n\r\nSendTo = XLATE('NOTIFICATION','PSN_DELTA',NOTIFICATION_USER_ID$,'X')\r\n\t \r\nif rowexists( 'PROD_SPEC', PSN ) then\r\n\tif ( @@window->savewarn = true$ ) then\r\n\t\tcreate_note( SendTo, 'System', 'PSN Modification', 'This PSN was modified by ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.', 'PROD_SPEC', .prod_spec_id->text )\r\n\tend\r\nend else\r\n\t.entry_id->text = @user4\r\n\tcreate_note( SendTo, 'System', 'New PSN', 'This PSN was entered by ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.', 'PROD_SPEC', .prod_spec_id->text )\t \r\nend\r\n\r\n* Deprecated 7/2/18 - djs - KLUSA PSN Revision History Project\r\n*if ( @@window->savewarn = true$ ) then\r\n*\tModArray = .mod_info->array\r\n*\tModArray = insert( ModArray, 1, 1, 0, @user4 )\r\n*\tModArray = insert( ModArray, 2, 1, 0, oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ) )\r\n*\tModArray = insert( ModArray, 3, 1, 0, oconv( date(), 'D2/' ) )\r\n*\t.mod_info->array = ModArray\r\n*end\r\n\r\nforward_event()\r\n\r\nobj_Prod_Spec('PushTech',PSN)\t;* Pushes data to new table locations JCH 10/8/2012\r\n\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/PROD_SPEC_JCH..json b/LSL2/OIEVENT/WRITE/PROD_SPEC_JCH..json new file mode 100644 index 0000000..971ce48 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/PROD_SPEC_JCH..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, prod_spec_comm, msg, Comm_Prod_Spec, Get_Property\r\ndeclare subroutine create_note, forward_event, obj_Prod_Spec, Comm_Prod_Spec\r\n\r\n$INSERT QUOTE_SIGS_EQU\r\n$INSERT QUOTE_SPEC_EQU\r\n$INSERT MSG_EQUATES\r\n$INSERT LOGICAL\r\n$INSERT NOTIFICATION_EQU\r\n\r\nTvalue = .rtype->value\r\nif Tvalue = '' then\r\n\tMsgInfo = ''\r\n\tMsgInfo = 'You must choose a reactor type...'\r\n\tMsgInfo = 'H'\r\n\tVoid = msg( '', MsgInfo )\r\n\treturn 0\r\nend\r\n\r\nPSN = .prod_spec_id->text\r\nif rowexists( 'PROD_SPEC', PSN ) then\r\n RowExists = true$\r\nend else\r\n RowExists = false$\r\nend\r\nSubstrateInfo = .spec_substrate->text\r\n\r\nPSNStatus = Get_Property(@Window : '.STATUS', 'VALUE')\r\n\r\n\r\nIf ( (@@window->savewarn EQ true$) AND ((PSNStatus EQ 'A') OR (PSNStatus EQ 'H')) ) then\r\n\tResult = Comm_Prod_Spec('UpdateRevHist')\r\n\tIf Result EQ False$ then\r\n\t\tReturn 0\r\n\tend\r\nend\r\n\r\nSendTo = XLATE('NOTIFICATION','PSN_DELTA',NOTIFICATION_USER_ID$,'X')\r\n\t \r\nif rowexists( 'PROD_SPEC', PSN ) then\r\n\tif ( @@window->savewarn = true$ ) then\r\n\t\tcreate_note( SendTo, 'System', 'PSN Modification', 'This PSN was modified by ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.', 'PROD_SPEC', .prod_spec_id->text )\r\n\tend\r\nend else\r\n\t.entry_id->text = @user4\r\n\tcreate_note( SendTo, 'System', 'New PSN', 'This PSN was entered by ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.', 'PROD_SPEC', .prod_spec_id->text )\t \r\nend\r\n\r\n* Deprecated 7/2/18 - djs - KLUSA PSN Revision History Project\r\n*if ( @@window->savewarn = true$ ) then\r\n*\tModArray = .mod_info->array\r\n*\tModArray = insert( ModArray, 1, 1, 0, @user4 )\r\n*\tModArray = insert( ModArray, 2, 1, 0, oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ) )\r\n*\tModArray = insert( ModArray, 3, 1, 0, oconv( date(), 'D2/' ) )\r\n*\t.mod_info->array = ModArray\r\n*end\r\n\r\nforward_event()\r\n\r\nobj_Prod_Spec('PushTech',PSN)\t;* Pushes data to new table locations JCH 10/8/2012\r\n\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/PROD_SPEC_JRO..json b/LSL2/OIEVENT/WRITE/PROD_SPEC_JRO..json new file mode 100644 index 0000000..971ce48 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/PROD_SPEC_JRO..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, prod_spec_comm, msg, Comm_Prod_Spec, Get_Property\r\ndeclare subroutine create_note, forward_event, obj_Prod_Spec, Comm_Prod_Spec\r\n\r\n$INSERT QUOTE_SIGS_EQU\r\n$INSERT QUOTE_SPEC_EQU\r\n$INSERT MSG_EQUATES\r\n$INSERT LOGICAL\r\n$INSERT NOTIFICATION_EQU\r\n\r\nTvalue = .rtype->value\r\nif Tvalue = '' then\r\n\tMsgInfo = ''\r\n\tMsgInfo = 'You must choose a reactor type...'\r\n\tMsgInfo = 'H'\r\n\tVoid = msg( '', MsgInfo )\r\n\treturn 0\r\nend\r\n\r\nPSN = .prod_spec_id->text\r\nif rowexists( 'PROD_SPEC', PSN ) then\r\n RowExists = true$\r\nend else\r\n RowExists = false$\r\nend\r\nSubstrateInfo = .spec_substrate->text\r\n\r\nPSNStatus = Get_Property(@Window : '.STATUS', 'VALUE')\r\n\r\n\r\nIf ( (@@window->savewarn EQ true$) AND ((PSNStatus EQ 'A') OR (PSNStatus EQ 'H')) ) then\r\n\tResult = Comm_Prod_Spec('UpdateRevHist')\r\n\tIf Result EQ False$ then\r\n\t\tReturn 0\r\n\tend\r\nend\r\n\r\nSendTo = XLATE('NOTIFICATION','PSN_DELTA',NOTIFICATION_USER_ID$,'X')\r\n\t \r\nif rowexists( 'PROD_SPEC', PSN ) then\r\n\tif ( @@window->savewarn = true$ ) then\r\n\t\tcreate_note( SendTo, 'System', 'PSN Modification', 'This PSN was modified by ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.', 'PROD_SPEC', .prod_spec_id->text )\r\n\tend\r\nend else\r\n\t.entry_id->text = @user4\r\n\tcreate_note( SendTo, 'System', 'New PSN', 'This PSN was entered by ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.', 'PROD_SPEC', .prod_spec_id->text )\t \r\nend\r\n\r\n* Deprecated 7/2/18 - djs - KLUSA PSN Revision History Project\r\n*if ( @@window->savewarn = true$ ) then\r\n*\tModArray = .mod_info->array\r\n*\tModArray = insert( ModArray, 1, 1, 0, @user4 )\r\n*\tModArray = insert( ModArray, 2, 1, 0, oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ) )\r\n*\tModArray = insert( ModArray, 3, 1, 0, oconv( date(), 'D2/' ) )\r\n*\t.mod_info->array = ModArray\r\n*end\r\n\r\nforward_event()\r\n\r\nobj_Prod_Spec('PushTech',PSN)\t;* Pushes data to new table locations JCH 10/8/2012\r\n\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/PROD_VER..json b/LSL2/OIEVENT/WRITE/PROD_VER..json new file mode 100644 index 0000000..0b45cf9 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/PROD_VER..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Prod_Ver\r\n\r\n\r\nRETURN Prod_Ver(CtrlEntID,'WRITE')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/PRS_STAGE..json b/LSL2/OIEVENT/WRITE/PRS_STAGE..json new file mode 100644 index 0000000..6d8a80d --- /dev/null +++ b/LSL2/OIEVENT/WRITE/PRS_STAGE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "Declare Function Comm_PRS_Stage\r\n\r\nReturn Comm_PRS_Stage(CtrlEntID,'WRITE')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/P_NAMES..json b/LSL2/OIEVENT/WRITE/P_NAMES..json new file mode 100644 index 0000000..ee66732 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/P_NAMES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists\r\nif rowexists( 'P_NAMES', .seq->text ) else\r\n .entry_id->text = @user4\r\nend\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/QUARTZ_TC_LOG..json b/LSL2/OIEVENT/WRITE/QUARTZ_TC_LOG..json new file mode 100644 index 0000000..0536522 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/QUARTZ_TC_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists\r\n\r\nif rowexists( 'QUARTZ_TC_LOG', .tc_no->text ) else\r\n .entry_id->text = @user4\r\nend\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/QUARTZ_WAND_LOG..json b/LSL2/OIEVENT/WRITE/QUARTZ_WAND_LOG..json new file mode 100644 index 0000000..3b58eef --- /dev/null +++ b/LSL2/OIEVENT/WRITE/QUARTZ_WAND_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists\r\n\r\nif rowexists( 'QUARTZ_WAND_LOG', .wand_log_no->text ) else\r\n .entry_id->text = @user4\r\nend\r\nreturn 1\r\n\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/QUOTE..json b/LSL2/OIEVENT/WRITE/QUOTE..json new file mode 100644 index 0000000..faadb17 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/QUOTE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, msg\r\ndeclare subroutine forward_event, record_lock, create_note\r\n$insert quote_equ\r\n$insert msg_equates\r\n$insert logical\r\nequ CrLf$ to char(13):char(10)\r\n\r\nSendMessage = false$\r\nif rowexists( 'QUOTE', .quote_no->text ) else\r\n .entry_id->text = @user4\r\n SendMessage = true$\r\nend \r\nQuoteNo = .quote_no->text \r\nOrigInqStatus = get_property( @window, '@OrigInqStatus' )\r\nCurInqStatus = .inquiry_status->value\r\nforward_event()\r\nif OrigInqStatus <> 'N' and CurInqStatus = 'N' then\r\n * THEY HAVE SET TO NO QUOTE SO ASK IF THEY WANT TO SEND A MESSAGE TO NEW DEVELOPMENT\r\n MsgInfo = ''\r\n MsgInfo = 'BNY'\r\n MsgInfo = '?'\r\n Tvar = 'You have selected \"No Quote\" Inquiry status...':CrLf$\r\n Tvar := 'Do you wish to send a message to the new product development group?'\r\n MsgInfo = Tvar\r\n SendIt = msg( '', MsgInfo )\r\n if SendIt = 1 then\r\n Users = 'DOUG_W':@vm:'TOM_T':@vm:'BRYCE_M'\r\n Message = 'Inquiry has been set to No Quote status by ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' )\r\n create_note( Users, 'System', 'Inquiry set to No Quote', Message, 'QUOTE', QuoteNo )\r\n end\r\nend\r\n*if SendMessage then\r\n* SignatureInfo = xlate( 'CONFIG', 'QUOTE_SIGS', '', 'X' )\r\n* Users = SignatureInfo<1>\r\n* locate @user4 in Users using @vm setting Upos then\r\n* ;* don't send to user that is entering\r\n* Users = delete( Users, 1, Upos, 0 )\r\n* end\r\n* Message = 'Please review this quote and sign or respond.'\r\n* create_note( Users, 'System', 'Quote to sign', Message, 'QUOTE', QuoteNo )\r\n*end\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/QUOTE_OLD..json b/LSL2/OIEVENT/WRITE/QUOTE_OLD..json new file mode 100644 index 0000000..be9e679 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/QUOTE_OLD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg\r\n$insert msg_equates\r\n\r\n* OLD QUOTES DO NOT ALLOW ANY SAVING\r\n\r\nMsgInfo = ''\r\nMsgInfo = 'H'\r\nMsgInfo = 'Modification and/or additions of \"OLD QUOTES\" is not allowed.'\r\nVoid = msg( '', MsgInfo )\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/QUOTE_SRL..json b/LSL2/OIEVENT/WRITE/QUOTE_SRL..json new file mode 100644 index 0000000..223e2fd --- /dev/null +++ b/LSL2/OIEVENT/WRITE/QUOTE_SRL..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists\r\n\r\nif rowexists( 'QUOTE_SRL', .quote_no->text ) else\r\n .entry_id->text = @username\r\nend \r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/RDS..json b/LSL2/OIEVENT/WRITE/RDS..json new file mode 100644 index 0000000..3df10bf --- /dev/null +++ b/LSL2/OIEVENT/WRITE/RDS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, msg, post_event, fieldcount, dialog_box, start_window, ex_vm_rem\r\ndeclare function rds_comm, send_event, send_message, Get_Property, Get_Status, SRP_Array\r\ndeclare subroutine forward_event, record_lock, create_note, Set_Status,ErrMsg, Set_Property, Send_Event, Post_Event\r\nDECLARE SUBROUTINE RDS_React_Run, obj_React_Status\r\n\r\n$insert recipe_equ\r\n$insert msg_equates\r\n$insert rds_equ\r\n$insert prod_spec_equates\r\n$insert quote_spec_equ\r\n$insert rds_layer_info_equ\r\n$insert logical\r\n$insert recipe_info_array_equ\r\n\r\nequ Hidden$ to 32\r\n\r\nRDSNo = Get_Property(@WINDOW:'.RDS_NO','DEFPROP')\r\n\r\nIF RowExists('RDS',RDSNo) ELSE\r\n\r\n\tMsg(@WINDOW,'','INVALID_RDS_NO')\r\n\tPost_Event(@WINDOW,'CLEAR')\t\r\n\t\r\n\tRETURN 0\r\n\t\r\nEND\r\n\r\n\r\nIF Get_Property(@WINDOW:'.FW_SIG','TEXT') <> '' THEN\r\n\t\r\n\tLayerArray = Get_Property(@WINDOW:'.RDS_LS_ID','ARRAY')\r\n\tLSIDs = LayerArray<1>\r\n\tCompleteFlags = LayerArray<6>\r\n\tFOR L = 1 TO COUNT(LSIDs,@VM) + (LSIDs NE '')\r\n\t\tLSID = LSIDs<1,L>\r\n\t\tCompleteFlag = ICONV(CompleteFlags<1,L>,'B')\r\n\tUNTIL LSID = ''\r\n\t\tIF CompleteFlag = 0 THEN\r\n\t\t\tMsgInfo = ''\r\n\t\t\tMsgInfo = 'Layer Set ':LSID:' is missing parameter information.'\r\n\t\t\tMsgInfo = 'H'\r\n\t\t\tVoid = msg( '', MsgInfo )\r\n\t\t\t\r\n\t\t\tSet_Property(@WINDOW:'.RDS_LS_ID','SELPOS',1:@FM:L)\r\n\t\t\tSend_Event(@WINDOW:'.RDS_LS_ID','DBLCLK')\r\n\t\t\tRETURN 0\r\n\t\tEND\r\n\tNEXT L\r\n\t\r\n\t\r\nEND ELSE\r\n if .qxj_post->visible then ;* so we do not wipe out the qxj lot\r\n if .qxj_post->text = '' then\r\n .qxj_post->text = 0\r\n end\r\n end\r\nend\r\n\r\nRdsNo = .rds_no->text\r\nPSNID = .psn->text\r\nSubstrateInfo = xlate( 'PROD_SPEC', PSNID, prod_spec_spec_substrate$, 'X' )\r\nBL1 = SubstrateInfo<1,QSSubBl1Dopant$>\r\nBL2 = SubstrateInfo<1,QSSubBl2Dopant$>\r\nBL3 = SubstrateInfo<1,QSSubBl3Dopant$>\r\nError = false$\r\nif ( .fw_sig->text <> '' ) then ;* THEY HAVE SIGNED\r\n\r\n\t*IF SUBSTRATE HAS BURIED LAYER THEN FORCE THE ENTRY OF ALL SURFACE INFORMATION\r\n * THE FIRST 10 COLUMNS IN SURFACE_INFO ARE ALWAYS REQUIRED AND THE LAST TWO\r\n * ARE BASED ON THE SPECIFICATION FOR HAZE AND SURFACE DEFECTS\r\n * WHICH WILL BE FORCED ON THE WINDOW FOR SURFACE REQUIREMENT\r\n \r\n\tSurfaceInfo = .surface_info->array\r\n\tSCnt = fieldcount( SurfaceInfo, @fm )\r\n\t\r\n\tfor i = 1 to 8\t\t\t\t\t\t\t\t;* Changed from 10 on 4/19/2004 by jch, J.C. Henry & Co.\r\n\t if SurfaceInfo = '' then\r\n\t * NORMAL ERROR WE DON'T HAVE DATA AND WE WANT AN ENTRY ON\r\n\t * EVERYTHING EXCEPT BL_DEFECTS IF IT IS A VIRGIN WAFER\r\n\t if ( i = 4 ) and ( BL1 = '' ) and ( BL2 = '' ) and ( BL3 = '' ) then\r\n\t * OK CAUSE MATERIAL IS A VIRGIN\r\n\t end else\r\n\t * 4 IS THE BL_DEFECTS POSITION THAT IS PASSED TO RDS_SURF_ENT\r\n\t Error = true$\r\n\t end\r\n\t end \r\n\tnext i\r\n\t\r\n\tif Error then\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'You must enter a value in every applicable field for the surface information.'\r\n\t MsgInfo = '!'\r\n\t Void = msg( '', MsgInfo )\r\n\t Void = send_event( @window:'.SURFACE_Q_BUTTON', 'CLICK' )\r\n\t return 0\r\n\tend\r\n\t\r\n\t* Section added 04/19/2004 by jch, J.C. Henry & Co.\r\n\tSurfScanRequired = XLATE('PROD_SPEC',PSNID,prod_spec_first_surfscan$,'X')\r\n\tIF XLATE('PROD_SPEC',PSNID,prod_spec_first_surfscan$,'X') = 1 THEN\r\n\t\r\n\t\t* surfscan required\r\n\t\t\t\t\r\n\t\tCtrls = @WINDOW:'.WO':@RM\t\t\t; Props = 'TEXT':@RM\r\n\t\tCtrls := @WINDOW:'.CASS_NO':@RM\t\t; Props = 'TEXT':@RM\r\n\t\tCtrls := @WINDOW:'.WO_STEP':@RM\t\t; Props = 'TEXT':@RM\r\n\t\tCtrls := @WINDOW:'.RDS_NO'\t\t\t; Props = 'TEXT'\r\n\r\n\t\tVals = Get_Property(Ctrls,Props)\r\n\r\n\t\tWONo \t= Vals[1,@RM]\r\n\t\tCassNo\t= Vals[COL2()+1,@RM]\r\n\t\tWOStep\t= Vals[COL2()+1,@RM]\r\n\t\tRDSNo\t= Vals[COL2()+1,@RM]\r\n\r\n\t\tStage = 'FW'\t\t\t\t\t;* First Wafer / Post Epi\r\n\r\n\t\tSurfScanKey = WONo:'*':WOStep:'*':CassNo:'*':Stage\r\n\t\t\r\n\t\t/*\r\n\t\tIF XLATE('SURFACE_SCAN',SurfScanKey,'','X') = '' THEN\r\n\t\t\r\n\t\t\t* No surfscan record yet\r\n\t\t\t\r\n\t\t\tMsgInfo = ''\r\n\t\t\t\r\n\t\t\tMsgInfo = 'Surface scan information is required for this RDS!'\r\n\t\t\tMsgInfo = '!'\r\n\t\t\tVoid = msg( '', MsgInfo )\r\n\t\t\tVoid = send_event( @window:'.SURF_SCAN_BUTTON', 'CLICK' )\r\n\t\t\treturn 0\r\n\t\tEND \r\n\t\t*/\r\n\tEND \r\n\t* End of mods by jch on 04/19/2004\r\n\t\r\n\t\r\nend else\r\n * DO NOT FORCE THE SURFACE INFORMATION CAUSE THEY HAVE NOT SIGNED\r\nend\r\n\r\n* LOOK AT RECIPE PARAMATERS AND WARN BUT DON'T FORCE \r\n\r\nOrigRecipeInfo = get_property( @window, '@OrigRecipeInfo' )\r\nRecipeInfo = .recipe_info->array\r\n\r\nif RecipeInfo <> OrigRecipeInfo then\r\n\r\n * ONLY VALIDATE IF SOMETHING HAS CHANGED CAUSE OTHERWISE \r\n * THEY WOULD GET AN ERROR EVERY TIME THEY LEAVE THE FIELD\r\n * AND EVENT THOUGH IT IS OUT OF THE LIMIT IT COULD BE A VALID ENTRY\r\n Void = iconv( 'NOTHING', '[RDS_RECIPE_PARAMS_VALID]' )\r\nend\r\n\r\nif .qxj_post->visible then\r\n\tif ( .qxj_post->text <> '' ) and ( .qxj_pre->text <> '' ) else\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo = 'This run requires wafer etch information - you must enter the Pre and Post readings.'\r\n\t\tMsgInfo = 'H'\r\n\t\tVoid = msg( '', MsgInfo )\r\n\t\tVoid = post_event( @window:'.QXJ_PRE', 'GOTFOCUS', '' )\r\n\t\tVoid = set_property( @window:'.QXJ_PRE', 'FOCUS', 1 ) \r\n\t\treturn 0\r\n\tend\r\nend\r\n\r\n\r\nRDSId = Get_Property(@WINDOW:'.RDS_NO','TEXT')\r\n\r\n* NEED TO READ THE MOD_ID AND MOD_DATE FROM RDS CAUSE WE ARE IGNORING SELF LOCKS\r\n* WHICH MEANS THIS RDS COULD BE CURRENTLY VIEWED VIA ANOTHER WINDOW\r\n\r\nif @@window->savewarn then\r\n Void = rds_comm( 'STAMP_MOD' )\r\n Void = rds_comm( 'WRITE_STAMP' )\r\nend\r\n\r\nReactor = .reactor->text\r\nWONo = .wo->text\r\nCassNo = .cass_no->text\r\nReactType = Xlate('RDS', RDSNo, 'REACTOR_TYPE', 'X')\r\n\r\nForward_Event()\r\n\r\nRDS_React_Run(RDSId)\t;* Conversion of data to REACT_RUN and REACT_RUN_CI & Adds Sig to WO_MAT 3/18/2008 JCH\r\n\r\n\r\n* NOW WRITE OUT THE EX SIG INFO IF IT EXISTS\r\n* LOCK THE ROW AND WRITE IF THERE IS DATA IN EXSIGINFO\r\n\r\nExSigInfo = get_property( @window, '@ExSigInfo' )\r\nif get_property( @window, '@ExSigWrite' ) then ;* THERE ARE SIXTEEN FIELDS \r\n\topen 'RDS' to RDSTable else\r\n\t Void = msg( '', 'Unable to open RDS...' )\r\n\t return 0\r\n\tend\r\n\trecord_lock( RDSTable, 'RDS', RDSId )\r\n\tRDSRec = xlate( 'RDS', RDSId, '', 'X' )\r\n\t\r\n\tUnloadEx1Signed = ( (RDSRec EQ '') and (ExSigInfo<1> NE '') )\r\n\tUnloadEx1Unsigned = ( (RDSRec NE '') and (ExSigInfo<1> EQ '') )\r\n\t\r\n\tLoadEx2Signed = ( (RDSRec EQ '') and (ExSigInfo<5> NE '') )\r\n\tLoadEx2Unsigned = ( (RDSRec NE '') and (ExSigInfo<5> EQ '') )\r\n\t\r\n\tUnloadEx2Signed = ( (RDSRec EQ '') and (ExSigInfo<9> NE '') )\r\n\tUnloadEx2Unsigned = ( (RDSRec NE '') and (ExSigInfo<9> EQ '') )\r\n\t\r\n\tLoadEx3Signed = ( (RDSRec EQ '') and (ExSigInfo<13> NE '') )\t\r\n\tLoadEx3Unsigned = ( (RDSRec NE '') and (ExSigInfo<13> EQ '') )\t\r\n\t\r\n\t\r\n\tRDSRec = ExSigInfo<1>\r\n\tRDSRec = ExSigInfo<3>\r\n\tRDSRec = ExSigInfo<4>\r\n\tRDSRec = ExSigInfo<5>\r\n\tRDSRec = ExSigInfo<7>\r\n\tRDSRec = ExSigInfo<8>\r\n\tRDSRec = ExSigInfo<9>\r\n\tRDSRec = ExSigInfo<11>\r\n\tRDSRec = ExSigInfo<12>\r\n\tRDSRec = ExSigInfo<13>\r\n\tRDSRec = ExSigInfo<15>\r\n\tRDSRec = ExSigInfo<16>\r\n\t\r\n\twrite RDSRec on RDSTable, RDSId else\r\n\t Void = msg( '', 'Unable to open RDS...' )\r\n\t return 0 \r\n\tend\r\n\t\r\n\t// Extra unload signed\r\n\tIf UnloadEx1Signed or UnloadEx2Signed then\r\n\t\t// Call CassUnload/ReactorUnload to update REACT_STATUS record\r\n\t\tIf UnloadEx1Signed then\r\n\t\t\tUnloadDTM = OConv(ExSigInfo<3>, 'D') :' ': OConv(ExSigInfo<4>, 'MT')\r\n\t\tend else\r\n\t\t\tUnloadDTM = OConv(ExSigInfo<11>, 'D') :' ': OConv(ExSigInfo<12>, 'MT')\r\n\t\tend\t\t\r\n\t\tIf ReactType NE 'EPP' then \r\n\t\t\tobj_React_Status('CassUnload',Reactor:@RM:WONo:@RM:CassNo:@RM:UnloadDTM:@RM:RDSNo)\r\n\t\tend else\r\n\t\t\tInCassettes = RDSRec\r\n \tInCassettes = SRP_Array('Clean', InCassettes, 'TrimAndMakeUnique', @VM)\r\n \tobj_React_Status('ReactorUnload',Reactor:@RM:WONo:@RM:InCassettes:@RM:UnloadDTM:@RM:RDSNo)\r\n end\r\n\tend \r\n\t\r\n\t\r\n\t// Extra unload unsigned\r\n\tIf UnloadEx1Unsigned or UnloadEx2Unsigned then\t\r\n\t\tobj_React_Status('HandleUnloadUnsign',Reactor:@RM:WONo:@RM:CassNo:@RM:RDSNo:@RM:@User4)\r\n\tend\r\n\t\r\n\t\r\n\t// Extra load signed\r\n\tIf LoadEx2Signed or LoadEx3Signed then \r\n\t\t// Call CassLoad/ReactorLoad to update REACT_STATUS record\r\n\t\tIf LoadEx2Signed then\r\n\t\t\tLoadDTM = OConv(ExSigInfo<7>, 'D') :' ': OConv(ExSigInfo<8>, 'MT')\r\n\t\tend else\r\n\t\t\tLoadDTM = OConv(ExSigInfo<15>, 'D') :' ': OConv(ExSigInfo<16>, 'MT')\r\n\t\tend\t\t\r\n\t\tIf ReactType NE 'EPP' then\r\n\t\t\tobj_React_Status('CassLoad',Reactor:@RM:WONo:@RM:CassNo:@RM:LoadDTM:@RM:RDSNo)\r\n\t\tend else\r\n\t\t\tInCassettes = RDSRec\r\n \tInCassettes = SRP_Array('Clean', InCassettes, 'TrimAndMakeUnique', @VM)\r\n\t\t\tobj_React_Status('ReactorLoad',Reactor:@RM:WONo:@RM:InCassettes:@RM:LoadDTM:@RM:RDSNo)\r\n\t\tend\r\n\tend\r\n\t\r\n\t\r\n\t// Extra load unsigned\r\n\tIf LoadEx2Unsigned or LoadEx3Unsigned then \r\n\t\t// Call CassLoad/ReactorLoad to update REACT_STATUS record\r\n\t\tobj_React_Status('HandleLoadUnsign',Reactor:@RM:WONo:@RM:CassNo:@RM:RDSNo:@RM:@User4)\r\n\tend\r\n\t\r\n\tunlock RDSTable, RDSId else\r\n\t Void = msg( '', 'Unable to unlock RDS ':RDSId )\r\n\t return 0\t\r\n\tend\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/RDS_LAYER..json b/LSL2/OIEVENT/WRITE/RDS_LAYER..json new file mode 100644 index 0000000..391d7e4 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/RDS_LAYER..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "*DECLARE Function Comm_RDS_Layer\r\n\r\n*RETURN Comm_RDS_Layer('Write')\r\n\r\nDECLARE Function RDS_Layer_Events\r\n\r\nRETURN RDS_Layer_Events(CtrlEntID, 'WRITE')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/RDS_MAKEUP..json b/LSL2/OIEVENT/WRITE/RDS_MAKEUP..json new file mode 100644 index 0000000..4887e91 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/RDS_MAKEUP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_RDS_Makeup\r\n\r\nRETURN Comm_RDS_Makeup('Write')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/RDS_POST_EPI..json b/LSL2/OIEVENT/WRITE/RDS_POST_EPI..json new file mode 100644 index 0000000..6d0bfd4 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/RDS_POST_EPI..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm, send_event, Get_Status, Get_Property, RowExists\r\ndeclare subroutine forward_event, Set_Status,Set_Property, obj_WO_Step, ErrMsg, RDS_React_Run, Post_Event\r\n$insert logical\r\n$insert msg_equates\r\n$insert prod_spec_equ\r\n$INSERT RDS_EQU\r\n\r\n* NEED TO READ THE MOD_ID AND MOD_DATE FROM RDS CAUSE WE ARE IGNORING SELF LOCKS\r\n* WHICH MEANS THIS RDS COULD BE CURRENTLY VIEWED VIA ANOTHER WINDOW\r\n\r\nRDSNo\t\t= Get_Property(@WINDOW:'.RDS_NO','TEXT')\r\n\r\n\r\nIF RowExists('REACT_RUN',RDSNo) ELSE\r\n\r\n\tMsg(@WINDOW,'','INVALID_RDS_NO')\r\n\tPost_Event(@WINDOW,'CLEAR')\t\r\n\t\r\n\tRETURN 0\r\n\t\r\nEND\r\n\r\n\r\n\r\nIF @@WINDOW->SAVEWARN THEN\r\n\tVoid = RDS_Comm( 'STAMP_MOD' )\r\n\tVoid = RDS_Comm( 'WRITE_STAMP' )\r\nEND\r\n\r\nOrgCursor = Get_Property('SYSTEM','CURSOR')\t;* Get existing cursor shape\r\n\t\r\nSet_Property('SYSTEM','CURSOR','H')\t\t\t;* Set to hourglass while busy\r\n\r\nForward_Event()\t\t\t\t;* Perform the write\r\n\r\nRDS_React_Run(RDSNo)\t\t;* Move RDS to REACT_RUN and REACT_RUN_CI and Final Sig to WO_MAT \r\n\r\n\r\nSet_Property('SYSTEM','CURSOR',OrgCursor)\r\n\r\nRETURN 0\r\n\t\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/RDS_PRE_EPI..json b/LSL2/OIEVENT/WRITE/RDS_PRE_EPI..json new file mode 100644 index 0000000..32cf5e1 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/RDS_PRE_EPI..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, fieldcount, send_event, rds_comm, next_key, Get_Status, obj_RDS_Audit, RowExists\r\ndeclare subroutine forward_event, btree.extract, obj_WO_Step, Set_Status, ErrMsg, Set_Property, Post_Event\r\nDECLARE SUBROUTINE RDS_REACT_RUN, obj_WO_React\r\n\r\n$insert logical\r\n$insert msg_equates\r\n$insert prod_spec_equates\r\n$insert quote_spec_equ\r\n$INSERT RDS_EQUATES\r\n$insert wo_verify_equ\r\n\r\nequ CrLf$ to char(13):char(10)\r\n\r\n/*\t4/9/2015 JCH Added CassNo and PSNo parameters to obj_WO_React calls\t */\r\n\r\nCtrls = @WINDOW:'.WO':@RM\t\t\t\t\t; Props = 'DEFPROP':@RM\r\nCtrls := @WINDOW:'.WO_STEP':@RM\t\t\t\t; Props := 'DEFPROP':@RM\r\nCtrls := @WINDOW:'.RDS_NO':@RM\t\t\t\t; Props := 'DEFPROP':@RM\r\nCtrls := @WINDOW:'.REACTOR':@RM\t\t\t\t; Props := 'DEFPROP':@RM\r\nCtrls := @WINDOW:'.CASS_NO':@RM\t\t\t\t; Props := 'DEFPROP':@RM\r\nCtrls := @WINDOW:'.PSN'\t\t\t\t\t\t; Props := 'DEFPROP'\r\n\r\nVals = Get_Property(Ctrls,Props)\r\n\r\nWONo\t= Vals[1,@RM]\r\nWOStep\t= Vals[COL2()+1,@RM]\r\nRDSNo\t= Vals[COL2()+1,@RM]\r\nReactNo\t= Vals[COL2()+1,@RM]\r\nCassNo\t= Vals[COL2()+1,@RM]\r\nPSNo\t= Vals[COL2()+1,@RM]\r\n\r\n\r\nIF RowExists('REACT_RUN',RDSNo) ELSE\r\n\r\n\tMsg(@WINDOW,'','INVALID_RDS_NO')\r\n\tPost_Event(@WINDOW,'CLEAR')\t\r\n\t\r\n\tRETURN 0\r\n\t\r\nEND\r\n\r\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\r\nIF Get_Property(@WINDOW,'SAVEWARN') = 1 THEN\r\n\t\r\n\tVoid = RDS_Comm( 'STAMP_MOD' )\r\n\tVoid = RDS_Comm( 'WRITE_STAMP' )\r\n\t\t\r\n\tSet_Property(@WINDOW,'SAVEWARN',0)\t\t\t\t\t\t\t;* Added 9/18/2007\r\n\t\t\r\nEND\r\n\r\nOrgReactNo = XLATE('RDS',RDSNo,RDS_REACTOR$,'X')\r\n\r\nBEGIN CASE\r\n\tCASE OrgReactNo = '' AND ReactNo NE ''\r\n\t\tobj_WO_React('AddRdsNo',WONo:@RM:WOStep:@RM:ReactNo:@RM:RDSNo:@RM:CassNo:@RM:PSNo)\r\n\t\t\r\n\tCASE OrgReactNo NE '' AND ReactNo = ''\r\n\t\tobj_WO_React('RemRdsNo',WONo:@RM:WOStep:@RM:OrgReactNo:@RM:RDSNo:@RM:CassNo:@RM:PSNo)\r\n\t\t\r\n\tCASE OrgReactNo NE ReactNo\r\n\t\tobj_WO_React('RemRdsNo',WONo:@RM:WOStep:@RM:OrgReactNo:@RM:RDSNo:@RM:CassNo:@RM:PSNo)\r\n\t\tobj_WO_React('AddRdsNo',WONo:@RM:WOStep:@RM:ReactNo:@RM:RDSNo:@RM:CassNo:@RM:PSNo)\r\n\t\t\r\n\tCASE 1\r\n\t\tNULL\r\n\t\t\r\nEND CASE\r\n\r\n\r\nForward_Event()\t\r\n\r\nRDS_React_Run(RDSNo)\t;* Conversion of data to REACT_RUN and REACT_RUN_CI & Adds Sig to WO_MAT 3/18/2008 JCH\t \r\n\t\t\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/RDS_PRE_EPI_ORG..json b/LSL2/OIEVENT/WRITE/RDS_PRE_EPI_ORG..json new file mode 100644 index 0000000..60bf0ed --- /dev/null +++ b/LSL2/OIEVENT/WRITE/RDS_PRE_EPI_ORG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function msg, fieldcount, send_event, rds_comm, next_key, Get_Status\r\ndeclare subroutine forward_event, btree.extract, obj_WO_Step, Set_Status, ErrMsg, Set_Property\r\nDECLARE SUBROUTINE RDS_REACT_RUN\r\n\r\n$insert logical\r\n$insert msg_equates\r\n$insert prod_spec_equates\r\n$insert quote_spec_equ\r\n$insert rds_equ\r\n$insert wo_verify_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\n\r\n \r\nRDSId = Get_Property(@WINDOW:'.RDS_NO','TEXT')\r\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\r\nIF Get_Property(@WINDOW,'SAVEWARN') = 1 THEN\r\n\t\r\n\tVoid = RDS_Comm( 'STAMP_MOD' )\r\n\tVoid = RDS_Comm( 'WRITE_STAMP' )\r\n\t\t\r\n\tSet_Property(@WINDOW,'SAVEWARN',0)\t\t\t\t\t\t\t;* Added 9/18/2007\r\n\t\t\r\nEND\r\n\t\r\n\t\r\nForward_Event()\t\r\nRDS_React_Run(RDSId)\t;* Conversion of data to REACT_RUN and REACT_RUN_CI & Adds Sig to WO_MAT 3/18/2008 JCH\t \r\n\t\t\r\n\r\n\t\r\n \r\n\r\nRETURN 0\r\n****************************************************************************************************************************\r\nCreateWoVerify:\r\n * GOING TO LEAVE THIS CODE HERE CAUSE THIS IS THE ONLY PLACE WHERE THEY CAN CHANGE THE REACTOR NUMBER\r\n CurReactor = .reactor->text\r\n RDSID = .rds_no->text\r\n if CurReactor <> get_property( @window, '@OrigReactor' ) then\r\n\t * CHECK TO SEE IF IT IS THE FIRST BOX ON THIS REACTOR OF THIS WORK ORDER\r\n\t WO = trim( field( .po_wo_partnum->text, '/', 3 ) )\r\n\t open 'DICT.RDS' to DictRDSTable else\r\n\t msg( '', 'Unable to open DICT.RDS...' )\r\n\t return 0\r\n\t end\r\n\t SearchStr = 'WO':@vm:WO:@fm\r\n\t btree.extract( SearchStr, 'RDS', DictRDSTable, keys, '', flag)\r\n\t if Flag <> 0 then\r\n\t Void = msg( '', 'Error while extracting RDS records...' )\r\n\t return 0\r\n\t end\r\n\t if Keys then\r\n\t convert @vm to @fm in Keys\r\n\t Reactors = xlate( 'RDS', Keys, rds_reactor$, 'X' )\r\n\t locate CurReactor in Reactors using @fm setting FPos else\r\n * NEEDS A WO VERIFICATION DUE TO IT BEING THE FIRST BOX TO RUN OUT OF THIS WORK ORDER ON THIS REACTOR \r\n\t\t\t * CREATE THE VERIFICATION AND STAMP RDS ID\r\n\t\t\t open 'RDS' to RDSTable else\r\n\t\t\t msg( '', 'Unable to open RDS...' )\r\n\t\t\t return 0\r\n\t\t\t end\r\n\t\t\t open 'WO_VERIFY' to WOVerifyTable else\r\n\t\t\t msg( '', 'Unable to open RDS...' )\r\n\t\t\t return 0\t\t\t \r\n\t\t\t end\r\n\t\t\t KeyToUse = next_key( 'WO_VERIFY', WOVerifyTable, 'NEXT', '' )\r\n\t\t\t WOVRec = ''\r\n \t\t\t WOVRec = @user4\r\n\t\t\t WOVRec = date()\r\n\t\t\t WOVRec = RDSID\r\n \t\t\t WOVRec = 'O'\r\n\t\t\t write WOVRec on WOVerifyTable, KeyToUse else\r\n\t\t\t\tVoid = msg( '', 'Unable to write WO_VERIFY ':KeyToUse )\r\n\t\t\t\treturn 0\r\n\t\t\t end\r\n\t\t\t unlock WOVerifyTable, KeyToUse else\r\n\t\t\t\tVoid = msg( '', 'Unable to unlock WO_VERIFY ':KeyToUse )\r\n\t\t\t\treturn 0\r\n \t\t\t end \r\n\t\t\t Void = next_key( 'WO_VERIFY', WOVerifyTable, 'UPDATE', KeyToUse )\r\n\t\t\t * NOW UPDATE THE RDS WITH THE WO_VERIFY ID\r\n\t\t\t * DO NOT NEED TO LOCK THE RDS CAUSE IT IS ALREADY LOCKED\r\n\t\t\t writev KeyToUse on RDSTable, RDSID, rds_wo_verify_id$ else\r\n\t\t\t\tVoid = msg( '', 'Unable to write to RDS ':RDSID )\r\n\t\t\t\treturn 0\r\n\t\t\t end\r\n\t end\r\n\t end\r\n end\r\nreturn" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/RDS_TEST..json b/LSL2/OIEVENT/WRITE/RDS_TEST..json new file mode 100644 index 0000000..c27d6e4 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/RDS_TEST..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE Function Comm_RDS_Test\r\n\r\n\r\nRETURN Comm_RDS_Test('Write')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/RDS_UNLOAD..json b/LSL2/OIEVENT/WRITE/RDS_UNLOAD..json new file mode 100644 index 0000000..3aec5f4 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/RDS_UNLOAD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rds_comm, msg, post_event, dialog_box, ex_vm_rem, start_window, fieldcount, Get_Property, Get_Status, RowExists\r\ndeclare subroutine forward_event, create_note, ErrMsg, Set_Property, obj_WO_Step, Set_Status, RDS_React_Run, Post_Event\r\n\r\n$insert logical\r\n$insert msg_equates\r\n$INSERT RDS_EQU\r\n\r\n \r\nRdsNo = .rds_no->text \r\n\r\nIF RowExists('RDS',RdsNo) ELSE\r\n\r\n\tMsg(@WINDOW,'','INVALID_RDS_NO')\r\n\tPost_Event(@WINDOW,'CLEAR')\t\r\n\t\r\n\tRETURN 0\r\n\t\r\nEND\r\n\r\n\r\nProdWafers = 0\r\nCustNo = field( .cust_info->text, ' ', 1 )\r\n\r\n\r\nRDSId\t\t= Get_Property(@WINDOW:'.RDS_NO','TEXT')\t\t\t;* Added 1/31/05 BY JCH to maintain RDS_Status field in WO_Step file.\r\n\r\n\r\n* NEED TO READ THE MOD_ID AND MOD_DATE FROM RDS CAUSE WE ARE IGNORING SELF LOCKS\r\n* WHICH MEANS THIS RDS COULD BE CURRENTLY VIEWED VIA ANOTHER WINDOW\r\n\r\nif @@window->savewarn then\r\n\tVoid = rds_comm( 'STAMP_MOD' )\r\n\tVoid = rds_comm( 'WRITE_STAMP' )\r\nend\r\n\r\nforward_event()\r\n\r\nRDS_React_Run(RDSId)\t;* Conversion of data to REACT_RUN and REACT_RUN_CI & Adds Sig to WO_MAT 3/18/2008 JCH\r\n\r\n\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/REACTOR_LOG..json b/LSL2/OIEVENT/WRITE/REACTOR_LOG..json new file mode 100644 index 0000000..02c948f --- /dev/null +++ b/LSL2/OIEVENT/WRITE/REACTOR_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "Declare Function Comm_Reactor_Log\r\n\r\nReturn Comm_Reactor_Log(CtrlEntID,'WRITE')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/REACTOR_LOG_AREV..json b/LSL2/OIEVENT/WRITE/REACTOR_LOG_AREV..json new file mode 100644 index 0000000..c8fdeb0 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/REACTOR_LOG_AREV..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists\r\n\r\nif rowexists( 'REACTOR_LOG', .reactor_log_no->text ) else\r\n .entry_id->text = @user4\r\nend\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/REACTOR_PM..json b/LSL2/OIEVENT/WRITE/REACTOR_PM..json new file mode 100644 index 0000000..eecc4b7 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/REACTOR_PM..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists\r\n\r\nif rowexists( 'REACTOR_PM', .pm_id->text ) else\r\n .entry_id->text = @user4\r\nend\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/REACTOR_RO..json b/LSL2/OIEVENT/WRITE/REACTOR_RO..json new file mode 100644 index 0000000..441b64f --- /dev/null +++ b/LSL2/OIEVENT/WRITE/REACTOR_RO..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_Reactor\r\n\r\nRETURN Comm_Reactor('Write')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/REACT_COMP..json b/LSL2/OIEVENT/WRITE/REACT_COMP..json new file mode 100644 index 0000000..11cf12c --- /dev/null +++ b/LSL2/OIEVENT/WRITE/REACT_COMP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_React_Comp\r\nRETURN Comm_React_Comp(CtrlEntID,'WRITE')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/REACT_EVENT..json b/LSL2/OIEVENT/WRITE/REACT_EVENT..json new file mode 100644 index 0000000..b0b4686 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/REACT_EVENT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_React_Event\r\nRETURN Comm_React_Event('Write')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/REACT_ITEMS..json b/LSL2/OIEVENT/WRITE/REACT_ITEMS..json new file mode 100644 index 0000000..5a858aa --- /dev/null +++ b/LSL2/OIEVENT/WRITE/REACT_ITEMS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, msg, post_event\r\n$insert react_items_equ\r\n$insert msg_equates\r\n\r\nif .graphite_or_tube->value = '' then\r\n MsgInfo = ''\r\n MsgInfo = 'You must choose an \"Item Type\" prior to saving this reactor item.'\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\nif rowexists( 'REACT_ITEMS', .item_no->text ) else\r\n .entry_id->text = @user4\r\nend\r\nif ( .status->value = 'I' ) then\r\n if .inactive_date->text = '' then\r\n MsgInfo = ''\r\n MsgInfo = 'You must enter an inactive date if you are inactivating this reactor item...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n @@window->focus = @window:'.INACTIVE_DATE'\r\n Void = post_event( @window:'.INACTIVE_DATE', 'GOTFOCUS' )\r\n return 0\r\n end\r\nend\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/REACT_PROBS..json b/LSL2/OIEVENT/WRITE/REACT_PROBS..json new file mode 100644 index 0000000..58491f7 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/REACT_PROBS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists\r\n\r\nif rowexists( 'REACT_PROBS', .problem_id->text ) else\r\n .entry_id->text = @user4\r\nend\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/REACT_PROB_CAT..json b/LSL2/OIEVENT/WRITE/REACT_PROB_CAT..json new file mode 100644 index 0000000..90cdf37 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/REACT_PROB_CAT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists\r\n\r\nif rowexists( 'REACT_PROB_CAT', .cat_id->text ) else\r\n .entry_id->text = @user4\r\nend\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/REACT_RUN_DISP..json b/LSL2/OIEVENT/WRITE/REACT_RUN_DISP..json new file mode 100644 index 0000000..2bee12e --- /dev/null +++ b/LSL2/OIEVENT/WRITE/REACT_RUN_DISP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION React_Run_Disp\r\n\r\n\r\nRETURN React_Run_Disp('REACT_RUN_DISP','WRITE')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/REACT_SERVS..json b/LSL2/OIEVENT/WRITE/REACT_SERVS..json new file mode 100644 index 0000000..2d0bf28 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/REACT_SERVS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, msg, post_event\r\n$insert msg_equates\r\n\r\nif rowexists( 'REACT_SERVS', .serv_id->text ) else\r\n .entry_id->text = @user4\r\nend\r\nif ( .status->value = 'I' ) then\r\n if .inactive_date->text = '' then\r\n MsgInfo = ''\r\n MsgInfo = 'You must enter an inactive date if you are inactivating this reactor service...'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\n @@window->focus = @window:'.INACTIVE_DATE'\r\n Void = post_event( @window:'.INACTIVE_DATE', 'GOTFOCUS' )\r\n return 0\r\n end\r\nend\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/REACT_TUBE..json b/LSL2/OIEVENT/WRITE/REACT_TUBE..json new file mode 100644 index 0000000..a6d6254 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/REACT_TUBE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_React_Tube\r\n\r\nRETURN Comm_React_Tube('Write')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/RECIPE..json b/LSL2/OIEVENT/WRITE/RECIPE..json new file mode 100644 index 0000000..e420497 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/RECIPE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, msg, recipe_comm\r\ndeclare subroutine forward_event, record_lock, create_note\r\n\r\n$insert quote_sigs_equ\r\n$insert recipe_equ\r\n$INSERT NOTIFICATION_EQU\r\n\r\nif @@window->savewarn then\r\n\tModArray = .mod_info->array\r\n\tModArray = insert( ModArray, 1, 1, 0, @user4 )\r\n\tModArray = insert( ModArray, 2, 1, 0, oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ) )\r\n\tModArray = insert( ModArray, 3, 1, 0, oconv( date(), 'D2/' ) )\r\n\t.mod_info->array = ModArray\r\n\tRecipeNo = .recipe_no->text\t\r\n\t\r\n\tif RecipeNo <> '' then\r\n\t \r\n\t SendTo = XLATE('NOTIFICATION','RECIPE_CHANGE',NOTIFICATION_USER_ID$,'X')\r\n\t \r\n\t\tif rowexists( 'RECIPE', RecipeNo ) then\r\n\t\t create_note( SendTo, 'System', 'Recipe Modification', 'This recipe was modified by ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.', 'RECIPE', .recipe_no->text )\t \t\r\n\t\tend else\r\n\t\t .entry_id->text = @user4\r\n\t\t create_note( SendTo, 'System', 'New Recipe', 'This recipe was entered by ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.', 'RECIPE', .recipe_no->text )\t \r\n\t\tend\r\n end\r\n Void = recipe_comm( 'WRITE_STAMP' )\r\nend \r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/RECIPE_PARMS..json b/LSL2/OIEVENT/WRITE/RECIPE_PARMS..json new file mode 100644 index 0000000..cce4916 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/RECIPE_PARMS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE Function Comm_RDS_Layer\r\n\r\nRETURN Comm_RDS_Layer('Write')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/RUN_STAGE..json b/LSL2/OIEVENT/WRITE/RUN_STAGE..json new file mode 100644 index 0000000..24cbe8b --- /dev/null +++ b/LSL2/OIEVENT/WRITE/RUN_STAGE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Run_Stage\r\n\r\nRETURN Run_Stage('RUN_STAGE','WRITE')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/SAP_SHIPMENT..json b/LSL2/OIEVENT/WRITE/SAP_SHIPMENT..json new file mode 100644 index 0000000..9eaa43e --- /dev/null +++ b/LSL2/OIEVENT/WRITE/SAP_SHIPMENT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_SAP_Shipment\r\n\r\nRETURN Comm_SAP_Shipment('Write')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/SCHEDULE..json b/LSL2/OIEVENT/WRITE/SCHEDULE..json new file mode 100644 index 0000000..30f6c1f --- /dev/null +++ b/LSL2/OIEVENT/WRITE/SCHEDULE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, msg, fieldcount, next_key, Get_Status\r\ndeclare subroutine forward_event, create_note\r\n$insert logical\r\n$insert quote_equ\r\n$insert quote_spec_equ\r\n$insert msg_equates\r\n$insert recipe_equ\r\n$insert rds_equ\r\n$insert rds_layer_info_equ\r\n$insert recipe_layer_info_equ\r\n$insert prod_spec_equ\r\n$insert wo_log_equ\r\n$insert wo_verify_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\nVoid = utility( 'CURSOR', 'H' )\r\n\r\nequ RunOrdNo$\t\tto 1\r\nequ RDSNo$\t\t\tto 2\r\nequ WafersSched$\tto 3\r\nequ Makeup$\t\tTO 4\r\n\r\nif (.qxj->visible = 1 ) and ( .qxj->check = 0 ) then\r\n\tMsgInfo = ''\r\n\tMsgInfo = 'Please make sure that schedule no# ': .schedule_no->text: ' should not be a ':CrLf$:'Wafer Etch/QXJ lot...You have not checked this.'\r\n\tMsgInfo = '!'\r\n\tmsg( '', MsgInfo )\r\nend\r\n\r\nLockMessage = ''\r\nif rowexists( 'SCHEDULE', .schedule_no->text ) else\r\n .entry_id->text = @user4\r\nend\r\n\r\nNoSave = false$\r\nORDSDetail\t= get_property( @window, '@OrigRDSDetail' )\r\nRDSDetail\t= .rds_detail->array\r\nRDSNos\t\t= RDSDetail\r\nOrigRDSNos\t= RDSNos\r\n\r\n* Pull off Fields that will be used to update the RDS\r\n\r\nTorderLine \t\t= .order_detail_line->array\r\nQuoteNo\t\t\t= .quote_no->text\r\nScheduleNo\t\t= .schedule_no->text\r\nOrderNo\t\t\t= .order_no->text\r\nPO\t\t\t\t= .po->text\r\nCustNo\t\t\t= .cust_no->text\r\nOrderLineNo\t\t= TOrderLine<1>\t\t\t\t\t;* Added JCH 1/30/05\r\nPartNum\t\t\t= TOrderLine<2>\r\nLotNum\t\t\t= TOrderLine<3>\r\nWo\t\t\t\t= .wo->text\r\nWOStepKey\t\t= .WO_STEP_KEY->TEXT\t\t\t;* Added JCH 1/6/2005\r\n\r\n\r\nSubPartNos\t= XLATE('ORDER',OrderNo,37,'X')\t\t;* SUB_PART_NO field in ORDER table * Added JCH 1/30/05\r\nSubPartNo\t= SubPartNos<1,OrderLineNo>\t\t\t;* Added JCH 1/30/05\r\n\r\n\r\nPSNId\t\t\t= .PSN->text\r\nPSNRec \t\t\t= xlate( 'PROD_SPEC', PSNId, '', 'X' )\r\nSpecSubstrate\t= PSNRec\r\nEpiLayerSpec\t= PSNRec\r\n\r\nForceUpdate\t\t= .force_update->check\r\n\r\nRow\t\t= 1\r\nRcnt\t= fieldcount( RDSDetail<1>, @vm )\r\nFOR Row = 1 TO Rcnt\r\n\tThisRDSLine\t\t= RDSDetail:@vm:RDSDetail:@vm:RDSDetail:@vm:RDSDetail\r\n\tThisORDSLine\t= ORDSDetail:@vm:ORDSDetail:@vm:ORDSDetail:@VM:ORDSDetail\r\n\t\r\n\tif ( ForceUpdate ) or ( ThisRDSLine <> ThisORDSLine ) or (( ThisRDSLine <> @vm:@vm:@fm ) and ( ThisRDSLine<1,RDSNo$> = '' ) ) THEN\r\n\t\t\r\n\t\t* this row has been changed/added\r\n\t\t\r\n\t\tCurRunOrdNo\t\t= ThisRDSLine<1,RunOrdNo$>\r\n\t\tCurWafersSched\t= ThisRDSLine<1,WafersSched$>\r\n\t\tCurMakeup\t\t= ICONV(ThisRDSLine<1,Makeup$>,'B')\r\n\t\t\r\n\t\tif CurRunOrdNo and CurWafersSched then\r\n\t\t\tgosub UpdateRDS\r\n\t\tend else\r\n\t\t\tif CurRunOrdNo = '' and CurWafersSched = '' else\r\n\t\t\t\tNoSave = true$\r\n\t\t\t\tMsgInfo = ''\r\n\t\t\t\tMsgInfo = '!'\r\n\t\t\t\tMsgInfo = 'RDS Detail line ':Row:' must have a Run Order Number and Wafers Scheduled. No Run Data Sheet created/updated for this line.'\r\n\t\t\t\tVoid = msg( '', MsgInfo )\r\n\t\t\tend\r\n\t\tend\r\n\tend \r\n\r\nNEXT Row\r\n\r\nif RDSNos <> OrigRDSNos then\r\n RDSDetail = .rds_detail->array\r\n RDSDetail = RDSNos\r\n .rds_detail->array = RDSDetail\r\nend\r\nVoid = utility( 'CURSOR', 'A' )\r\nif NoSave else\r\n SavedWOs = get_property( @window, '@SavedWOs' )\r\n SavedCusts = get_property( @window, '@SavedCusts' )\r\n locate Wo in SavedWOs using @fm setting SPos else\r\n SavedWOs<-1> = Wo\r\n SavedCusts<-1> = .cust_name->text\r\n end\r\n Void = set_property( @window, '@SavedWOs', SavedWOs ) \r\n Void = set_property( @window, '@SavedCusts', SavedCusts ) \r\n forward_event()\r\n \r\n *obj_WO_Step('AddSchedInfo',ScheduleNo)\r\n *IF Get_Status(errCode) THEN DEBUG\r\nend\r\n\r\nif LockMessage then\r\n LockMessage[-2,2] = ''\r\n MsgInfo = ''\r\n MsgInfo = LockMessage\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nif RdsNos <> OrigRdsNos then\r\n TRds = RdsNos\r\n swap @vm:@vm with '' in TRds\r\n if TRds[-1,1] = @vm then TRds[-1,1] = ''\r\n swap @vm with ', ' in TRds\r\n TRds := '.'\r\n MsgInfo = ''\r\n MsgInfo = '!'\r\n MsgInfo = 'The following Run Data Sheets were created ':TRds\r\n *************8Void = msg( '', MsgInfo )\r\nend\r\n\r\nreturn 0\r\n*===========================================================================*\r\nUpdateRDS:\r\n RDSRec = ''\r\n open 'RDS' to RDSTable else\r\n\t Void = msg( '', 'Unable to open RDS...' )\r\n\t\treturn 0\r\n end\r\n KeyToUse = RDSNos<1,Row>\r\n Update = true$\r\n if KeyToUse then\r\n Exists = true$\r\n lock RDSTable, KeyToUse then\r\n RDSRec = xlate( 'RDS', KeyToUse, '', 'X' )\r\n end else\r\n if LockMessage else\r\n LockMessage = 'Unable to lock RDS no(s). Try at a later point. '\r\n end\r\n LockMessage := KeyToUse :', '\r\n Update = false$\r\n end \r\n end else\r\n \r\n KeyToUse = next_key( 'RDS', RDSTable, 'NEXT', '' )\r\n\t \r\n\t Exists = false$\r\n RDSRec = ''\r\n RDSRec \t= @user4\r\n RDSRec \t= date() \r\n RDSRec \t= time()\r\n\t RDSRec \t\t= 'C' ;* FOR RECEIVED\r\n\t RDSRec\t\t= CurMakeup\t\t\t\t\t;* Added 9/26/2004 jch\r\n\t RDSRec\t= WOStepKey\t\t\t\t\t;* Added 1/06/2005 JCH\r\n\t RDSRec\t= SubPartNo\t\t\t\t\t;* Added JCH 1/30/05\r\n\t \r\n\t if CurRunOrdNo = 1 or CustNo = 6448 then ;* CONEXANT CREATE WO VERIFY FOR ALL LOTS\r\n\t\t * ASSIGN A WORK ORDER VERIFICATION TO THE FIRST BOX IF THE RDS DOES NOT EXISTS\r\n\t\t * IN OTHER WORDS IF IT ALREADY EXISTS THEN THE WO VERIFICATION DOES ALSO\r\n\t\t open 'WO_VERIFY' to WOVerifyTable else\r\n\t\t msg( '', 'Unable to open WO_VERIFY table' )\r\n\t\t return 0\r\n\t\t end\r\n\t\t\tWOVerifyID = next_key( 'WO_VERIFY', WOVerifyTable, 'NEXT', '' )\r\n\t\t\tWOVRec = ''\t\t\t\r\n\t\t\tWOVRec = @user4\r\n\t\t\tWOVRec = date()\r\n\t\t\tWOVRec = KeyToUse\r\n\t\t\tWOVRec = 'O'\r\n\t\t\tif CustNo = 6448 then\r\n\t\t\t WOVRec = 'Be sure to verify the deposit time has been changed back to the PRODUCT deposit time. Also, verify the current reactor set-up and specification to that of the material being loaded.'\r\n\t\t\tend\r\n\t\t\twrite WOVRec on WOVerifyTable, WOVerifyID else\r\n\t\t\t\tVoid = msg( '', 'Unable to write WO_VERIFY ':WOVerifyID )\r\n\t\t\t\treturn 0\r\n\t\t\tend\r\n\t\t\tunlock WOVerifyTable, WOVerifyID else\r\n\t\t\t\tVoid = msg( '', 'Unable to unlock WO_VERIFY ':WOVerifyID )\r\n\t\t\t\treturn 0\r\n\t\t\tend \r\n\t\t\tVoid = next_key( 'WO_VERIFY', WOVerifyTable, 'UPDATE', WOVerifyID )\r\n\t\t\tRDSRec = WOVerifyID\r\n\t\tend\r\n end\r\n if Update then\r\n\t RDSRec\t\t\t= QuoteNo\r\n\t RDSRec\t\t= ScheduleNo\t \r\n\t RDSRec\t\t\t\t\t= WO\r\n\t RDSRec\t= xlate( 'WO_LOG', WO, WO_LOG_COMMIT_DATE$, 'X' )\r\n\t RDSRec\t\t\t= OrderNo\t \r\n\t RDSRec\t\t\t\t\t= PO\t \r\n\t RDSRec\t\t\t= CustNo\r\n\t RDSRec\t\t\t= PartNum\r\n\t RDSRec\t\t\t= LotNum\r\n\t RDSRec\t\t= PSNId\r\n RDSRec\t\t= SpecSubstrate<1,QSSubInstructions$>\r\n RDSRec\t\t\t= CurMakeup\t\t\t\t\t;* Added 9/26/2004 jch\r\n RDSRec\t\t= WOStepKey\t\t\t\t\t;* Added 1/06/2005 JCH\r\n RDSRec\t\t= SubPartNo\t\t\t\t\t;* Added JCH 1/30/05\r\n\t *\t \r\n\t SpecType = xlate( 'PROD_SPEC', PSNId, 'SPEC_TYPE', 'X' )\r\n\t RDSRec = SpecType\r\n\t \r\n\t \r\n\t if ( SpecType = 'Q' ) and ( Exists = true$ ) then\r\n\t * IF IT IS A QUAL AND IT ALREADY EXISTS THEN DO NOT OVERWRITE THE SPECIFICATION AND/\r\n\t * OR RECIPE DATA CAUSE ENGINEERING MAY HAVE ALREADY MODIFIED VIA AN RDS OVERRIDE\r\n\t end else\r\n\t\t * first load the main layer into the run data sheet \r\n\t ConMinThick = EpiLayerSpec<1,QSEpiConcMinThick$> ;* could have @svm\r\n\t ConMaxThick = EpiLayerSpec<1,QSEpiConcMaxThick$> ;* could have @svm\r\n\t TcCnt = fieldcount( ConMinThick, @svm )\r\n\t for zz = 1 to TcCnt\r\n\t ConMinThick<1,1,zz> = iconv( ConMinThick<1,1,zz>, 'MS' )\r\n\t next zz\r\n\t TcCnt = fieldcount( ConMaxThick, @svm )\r\n\t for zz = 1 to TcCnt\r\n\t ConMaxThick<1,1,zz> = iconv( ConMaxThick<1,1,zz>, 'MS' )\r\n\t next zz\r\n\t convert @svm to @vm in ConMaxThick\r\n\t convert @svm to @vm in ConMinThick\r\n\t ConUnits = EpiLayerSpec<1,QSEpiConcUnits$> \r\n\t\t ResMinThick = EpiLayerSpec<1,QSEpiResMinThick$> \r\n\t\t ResMaxThick = EpiLayerSpec<1,QSEpiResMaxThick$> \r\n\t\t ResUnits = EpiLayerSpec<1,QSEpiResUnits$> \r\n\t\t MinThick = EpiLayerSpec<1,QSEpiMinThick$> \r\n\t\t MaxThick = EpiLayerSpec<1,QSEpiMaxThick$> \r\n\t\t ThickUnits = EpiLayerSpec<1,QSEpiThickUnits$> \r\n\t\t LDopant = EpiLayerSpec<1,QSEpiDopant$> \r\n\t\t Recipe = EpiLayerSpec<1,QSEpiRecipe$>\r\n\t\t RecipeRec = xlate( 'RECIPE', Recipe, '', 'X' )\r\n\t\t \r\n\t\t EpiResMeasure = EpiLayerSpec<1,QSEpiResMeasure$>\t\t;* JCH 12/1/2004\r\n\t\t RDSRec = FIELD(EpiResMeasure,'~',9)\t;* JCH 12/1/2004\r\n\t\t \r\n\r\n\t\t if Recipe <> RDSRec then\r\n\t\t * if the recipe has not changed then do not change\r\n\t\t * recipe specific paramaters cause user may have overridden\r\n\t\t * and if this is the creation of a new rds then Recipe will\r\n\t\t * be <> RDSRec\r\n\t\t\t RDSRec = Recipe\r\n\t\t \tend\r\n\t\t \t\r\n\t\t \t\t\t \t\r\n\t\t * concentration\r\n\t\t ConMinThick = field( ConMinThick, @vm, 1, 1 )\t;* Changed to take only first SVM \r\n\t\t ConMaxThick = field( ConMaxThick, @vm, 1, 1 )\r\n\t RDSRec = ConMinThick \r\n\t RDSRec = ConMaxThick\r\n\t if ConMinThick and ConMaxThick then\r\n\t if ConMinThick = ConMaxThick then\r\n\t RDSRec = ConMinThick\r\n\t end else\r\n\t * is it ok to do int \r\n\t *Mid = ConMinThick +++ ((ConMaxThick---ConMinThick)///2)\r\n\t *MinLessMax = (ConMaxThick---ConMinThick)\r\n\t *Mcnt = fieldcount(ConMinThick, @vm )\r\n\t *DivVar = str( 2:@vm, Mcnt )\r\n\t *DivVar[-1,1] = ''\r\n\t *Tans = MinLessMax///DivVar\r\n\t *Ans = ConMinThick+++Tans\r\n\t *RDSRec = Mid\r\n\t \r\n\t ConTarget = ConMinThick + INT((ConMaxThick - ConMinThick)/2)\t;* Added 8/22/2004 JCH\r\n\t RDSRec = ConTarget\r\n\t end\r\n\t end \r\n\t RDSRec = ConUnits \r\n\t * resistivity\r\n\t RDSRec = ResMinThick \r\n\t RDSRec = ResMaxThick\r\n\t\t if ResMinThick and ResMaxThick then\r\n\t\t if ResMinThick = ResMaxThick then\r\n\t\t RDSRec = ResMinThick\r\n\t\t end else\r\n\t Mid = ResMinThick + INT((ResMaxThick-ResMinThick)/2)\r\n\t RDSRec = Mid\r\n\t end\t \r\n\t\t end \r\n\t\t RDSRec = ResUnits\r\n\t\t * thickness\r\n\t\t RDSRec = MinThick \r\n\t\t RDSRec = MaxThick\r\n\t\t if MinThick and MaxThick then\r\n\t\t if MinThick = MaxThick then\r\n\t\t RDSRec = MinThick\r\n\t\t end else\r\n\t\t Mid = MinThick + INT((MaxThick-MinThick)/2)\r\n\t\t RDSRec = Mid\r\n\t\t end\r\n\t\t end \r\n\t RDSRec = ThickUnits \r\n\t * now fill in all same reactor layers\r\n\t convert char(248) to @fm in EpiLayerSpec\r\n\t RestOfLayers = field( EpiLayerSpec, @fm, 2, 9999 )\r\n\t RolCnt = fieldcount( RestOfLayers, @fm )\r\n\t RecipeLayerInfo = RecipeRec\r\n\t \r\n\t convert char(248) to @fm in RecipeLayerInfo\r\n\t RDSLayerInfo = ''\r\n\t for j = 1 to RolCnt\r\n\t ThisSameLayer = RestOfLayers\r\n\t ThisSameRecipeLayer = RecipeLayerInfo \r\n\t TLayer = field( RDSRec, char(248), j )\r\n\t \r\n\t EpiResMeasure = ThisSameLayer<1,QSEpiResMeasure$>\t\t;* JCH 12/1/2004\r\n\t TLayer<1,RLOvergrowReq$> = FIELD(EpiResMeasure,'~',9)\t;* JCH 12/1/2004\r\n\t \r\n\t * concentration\r\n\t \r\n\t \tConMinThick = ThisSameLayer<1,QSEpiConcMinThick$,1> ;* could have @svm (no SVM's anymore JCH)\r\n\t ConMaxThick = ThisSameLayer<1,QSEpiConcMaxThick$,1> ;* could have @svm\r\n\t ConUnits = ThisSameLayer<1,QSEpiConcUnits$> \r\n\t\t \r\n\t\t ConMinThick = ICONV(ConMinThick,'MS')\r\n\t\t ConMaxThick = ICONV(ConMaxThick,'MS')\r\n\t\t \r\n\t TLayer<1,RLConMin$> = ConMinThick\r\n\t TLayer<1,RLConMax$> = ConMaxThick\r\n\t \r\n\t IF ConMinThick AND ConMaxThick THEN\r\n\t IF ConMinThick = ConMaxThick THEN\r\n\t TLayer<1,RLConTarget$> = ConMinThick\r\n\t END ELSE\r\n\t ConTarget = ConMinThick + INT((ConMaxThick-ConMinThick)/2)\r\n\t TLayer<1,RLConTarget$> = ConTarget\r\n\t \r\n\t END\t;* end of check for min = max\r\n\t END ;* End of check for presence of min and max\r\n\t \r\n\t TLayer<1,RLConUnits$> = ConUnits \r\n\t \r\n\t \r\n\t * recipe information\r\n\t if Recipe <> TLayer<1,RLRecipeNo$> then\r\n\t\t TLayer<1,RLRecipeNo$> = Recipe\r\n TLayer<1,RLThickRead$> = str( @svm, 16)\r\n TLayer<1,RLSheetRhoRead$> = str( @svm,16 )\r\n\t\t end\r\n\t\t \r\n\t\t * Thickness\r\n\t\t \r\n\t\t MinThick = ThisSameLayer<1,QSEpiMinThick$> \r\n\t\t MaxThick = ThisSameLayer<1,QSEpiMaxThick$> \r\n\t\t ThickUnits = ThisSameLayer<1,QSEpiThickUnits$> \r\n\t\t \r\n\t \t TLayer<1,RLThickMin$> = MinThick \r\n\t\t TLayer<1,RLThickMax$> = MaxThick\r\n\t\t if MinThick and MaxThick then\r\n\t\t if MinThick = MaxThick then\r\n\t\t TLayer<1,RLThickTarget$> = MinThick\r\n\t\t end else\r\n\t\t Mid = MinThick + INT((MaxThick-MinThick)/2)\r\n\t\t TLayer<1,RLThickTarget$> = Mid\r\n\t\t end\r\n\t\t end \r\n\t TLayer<1,RLThickUnits$> = ThickUnits \r\n\t \r\n\t \r\n\t * resistivity\r\n\t \r\n\t \tResMinThick = ThisSameLayer<1,QSEpiResMinThick$> \r\n\t\t ResMaxThick = ThisSameLayer<1,QSEpiResMaxThick$> \r\n\t\t ResUnits = ThisSameLayer<1,QSEpiResUnits$> \r\n\t\t \r\n\t TLayer<1,RLResMin$> = ResMinThick \r\n\t TLayer<1,RLResMax$> = ResMaxThick\r\n\t \t if ResMinThick and ResMaxThick then\r\n\t\t if ResMinThick = ResMaxThick then\r\n\t\t TLayer<1,RLResTarget$> = ResMinThick\r\n\t\t end else\r\n\t Mid =ResMinThick + INT((ResMaxThick-ResMinThick)/2)\r\n\t TLayer<1,RLResTarget$> = Mid\r\n\t end\t \r\n\t\t end \r\n\t\t TLayer<1,RLResUnits$> = ResUnits\r\n\t *\r\n\t RDSLayerInfo := TLayer:char(248)\r\n\t next j\r\n\t RDSLayerInfo[-1,1] = ''\r\n\t RDSRec = RDSLayerInfo\r\n\t end ;* END OF REWRITING THE SPEC USING ( SpecType = 'M' ) and ( Exists = true$ )\r\n **************************\r\n if .qxj->check then ;* PHILIPS AND SSI\r\n if RDSRec <> 0 and RDSRec <> '' then\r\n * already been entered do not change\r\n * to change must go to rds and zero out\r\n end else\r\n RDSRec = 0\r\n end\r\n end else\r\n if RDSRec = '' and RDSRec = 0 then\r\n RDSRec = ''\r\n * what we are doing here is removing this rds as being a QXJ\r\n * if no data entry has been performed\r\n end\r\n end\r\n if ( .cust_no->text = 621 and CurRunOrdNo = 1 ) then\r\n * IT IS SILICON SYSTEMS AND IT IS THE FIRST RUN ORDER SO TAG THE QXJ - ETCH\r\n RDSRec = 0\r\n end\r\n **************************\r\n * now write the record\r\n\t write RDSRec on RDSTable, KeyToUse else\r\n\t Void = msg( '', 'Unable to write ':KeyToUse:' on RDS...' )\r\n\t\t return 0\r\n\t end\r\n\t \r\n\t *CurrStatus = obj_RDS('CurrStatus',KeyToUse:@RM:RDSRec)\t\t\t\t;* Added 2/1/2005 JCH\r\n\t *obj_WO_Step('RDSStatus',WOStepKey:@RM:KeyToUse:@RM:CurrStatus)\t\t;* Added 2/1/2005 JCH\r\n\t \r\n\t unlock RDSTable, KeyToUse else\r\n\t Void = msg( '', 'Unable to unlock RDS ':KeyToUse:'...' )\r\n\t return 0\r\n\t end\r\n\t if Exists = false$ and not( index( KeyToUse, '.', 1 ) ) then\r\n\t Void = next_key( 'RDS', RDSTable, 'UPDATE', KeyToUse )\r\n\t end\r\n\tend\r\n\tRDSNos<1,Row> = KeyToUse\r\nreturn\r\n\r\n*===========================================================================*\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/SCHEDULE_SRL..json b/LSL2/OIEVENT/WRITE/SCHEDULE_SRL..json new file mode 100644 index 0000000..5dcae11 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/SCHEDULE_SRL..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, msg, fieldcount, next_key\r\ndeclare subroutine forward_event, create_note\r\n$insert logical\r\n$insert quote_srl_equ\r\n$insert quote_spec_equ\r\n$insert msg_equates\r\n$insert recipe_equ\r\n$insert rds_equ\r\n$insert rds_layer_info_equ\r\n$insert recipe_layer_info_equ\r\n\r\nVoid = utility( 'CURSOR', 'H' )\r\nequ RunOrdNo$ to 1\r\nequ RDSNo$ to 2\r\nequ WafersSched$ to 3\r\n\r\nLockMessage = ''\r\nif rowexists( 'SCHEDULE_SRL', .schedule_no->text ) else\r\n .entry_id->text = @username\r\nend\r\n\r\nSepLayCnt = .sep_layer_cnt->text\r\nif num( SepLayCnt ) else\r\n SepLayCnt = 1\r\nend\r\nNoSave = false$\r\nORDSDetail = get_property( @window, '@OrigRDSDetail' )\r\nRDSDetail = .rds_detail->array\r\nRDSNos = RDSDetail\r\nOrigRDSNos = RDSNos\r\n* Pull off Fields that will be used to update the RDS\r\nTorderLine = .order_detail_line->array\r\nQuoteNo = .quote_no->text\r\nScheduleNo = .schedule_no->text\r\nOrderNo = .order_no->text\r\nPO = .po->text\r\nCustNo = .cust_no->text\r\nPartNum = '' ;* srl does not use part and lot num\r\nLotNum = ''\r\nWo = .wo->text\r\n*\r\n*if ( OrderDetail <> OOrderDetail ) or ( .po->text <> OrigPo ) or ( .cust_no->text <> OrigCustNo ) then\r\nQuoteRec = xlate( 'QUOTE_SRL', QuoteNo, '', 'X' )\r\nSpecSubstrate = QuoteRec\r\nSpecEpi = QuoteRec\r\nEpiLayers = field( SpecEpi, char(245), 1 )\r\nEpiOther = field( SpecEpi, char(245), 2 ) \r\nconvert char(247) to @fm in EpiLayers ;* each seperate layer \r\nForceUpdate = .force_update->check\r\nRow = 1\r\nRcnt = fieldcount( RDSDetail<1>, @vm )\r\nfor Row = 1 to Rcnt step SepLayCnt\r\n for i = 1 to SepLayCnt\r\n Trow = Row+i-1\r\n\t ThisRDSLine = RDSDetail:@vm:@vm:RDSDetail\r\n\t ThisORDSLine= ORDSDetail:@vm:@vm:ORDSDetail:@vm\r\n\t if ( ForceUpdate ) or ( ThisRDSLine <> ThisORDSLine ) or (( ThisRDSLine <> @vm ) and ( ThisRDSLine<1,RDSNo$> = '' ) ) then\r\n\t * this row has been changed/added\r\n\t CurRunOrdNo = ThisRDSLine<1,RunOrdNo$>\r\n\t CurWafersSched = ThisRDSLine<1,WafersSched$>\r\n\t if CurRunOrdNo and CurWafersSched then\r\n * now each epi layer; oh fuck i don't want to code this mess\r\n\t\t\t\tThisSepLayer = EpiLayers\r\n\t\t\t\tgosub UpdateRDS\r\n end else\r\n if CurRunOrdNo = '' and CurWafersSched = '' else\r\n\t\t NoSave = true$\r\n\t\t MsgInfo = ''\r\n\t\t MsgInfo = '!'\r\n\t\t MsgInfo = 'RDS Detail line ':TRow:' must have a Run Order Number and Wafers Scheduled. No Run Data Sheet created/updated for this line.'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t\t end\r\n\t end\r\n\t end \r\n\tnext i\r\nnext Row\r\nif RDSNos <> OrigRDSNos then\r\n RDSDetail = .rds_detail->array\r\n RDSDetail = RDSNos\r\n .rds_detail->array = RDSDetail\r\nend\r\nVoid = utility( 'CURSOR', 'A' )\r\nif NoSave else\r\n forward_event( CtrlEntId, CtrlClassId )\r\nend\r\nif LockMessage then\r\n LockMessage[-2,2] = ''\r\n MsgInfo = ''\r\n MsgInfo = LockMessage\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nif RdsNos <> OrigRdsNos then\r\n TRds = RdsNos\r\n swap @vm:@vm with '' in TRds\r\n if TRds[-1,1] = @vm then TRds[-1,1] = ''\r\n swap @vm with ', ' in TRds\r\n TRds := '.'\r\n MsgInfo = ''\r\n MsgInfo = '!'\r\n MsgInfo = 'The following Run Data Sheets were created ':TRds\r\n Void = msg( '', MsgInfo )\r\nend\r\n\r\nreturn 0\r\n*===========================================================================*\r\nUpdateRDS:\r\n RDSRec = ''\r\n open 'RDS' to RDSTable else\r\n\t Void = msg( '', 'Unable to open RDS...' )\r\n\t\treturn 0\r\n end\r\n KeyToUse = RDSNos<1,TRow>\r\n Update = true$\r\n if KeyToUse then\r\n Exists = true$\r\n lock RDSTable, KeyToUse then\r\n RDSRec = xlate( 'RDS', KeyToUse, '', 'X' )\r\n end else\r\n if LockMessage else\r\n LockMessage = 'Unable to lock RDS no(s). Try at a later point. '\r\n end\r\n LockMessage := KeyToUse :', '\r\n Update = false$\r\n end \r\n end else\r\n if i = 1 then ;* first seperate layer get next key\r\n KeyToUse = next_key( 'RDS', RDSTable, 'NEXT', '' )\r\n\t end else\r\n\t for j = Trow-1 to 1 step -1\r\n\t KeyToUse = field( RDSNos<1,Trow-1>, '.', 1 )\r\n\t if KeyToUse then \r\n\t KeyToUse := '.':i\r\n\t end\r\n\t until KeyToUse\r\n\t next j\r\n\t lock RDSTable, KeyToUse else\r\n\t if LockMessage else\r\n\t LockMessage = 'Unable to lock RDS no(s). Try at a later point. '\r\n\t LockMessage := KeyToUse :', '\r\n\t Update = false$\r\n\t end\r\n end\r\n end\r\n\t Exists = false$\r\n RDSRec = ''\r\n RDSRec = @username\r\n RDSRec = date() \r\n\t RDSRec = 'O'\r\n\t RDSRec = 'SRL'\r\n end\r\n if Update then\r\n ConMinThick = ThisSepLayer<1,QSEpiConcMinThick$> ;* could have @svm\r\n ConMaxThick = ThisSepLayer<1,QSEpiConcMaxThick$> ;* could have @svm\r\n TcCnt = fieldcount( ConMinThick, @svm )\r\n for zz = 1 to TcCnt\r\n ConMinThick<1,1,zz> = iconv( ConMinThick<1,1,zz>, 'MS' )\r\n next zz\r\n TcCnt = fieldcount( ConMaxThick, @svm )\r\n for zz = 1 to TcCnt\r\n ConMaxThick<1,1,zz> = iconv( ConMaxThick<1,1,zz>, 'MS' )\r\n next zz\r\n convert @svm to @vm in ConMaxThick\r\n convert @svm to @vm in ConMinThick\r\n ConUnits = ThisSepLayer<1,QSEpiConcUnits$> \r\n\t ResMinThick = ThisSepLayer<1,QSEpiResMinThick$> \r\n\t ResMaxThick = ThisSepLayer<1,QSEpiResMaxThick$> \r\n\t ResUnits = ThisSepLayer<1,QSEpiResUnits$> \r\n\t MinThick = ThisSepLayer<1,QSEpiMinThick$> \r\n\t MaxThick = ThisSepLayer<1,QSEpiMaxThick$> \r\n\t ThickUnits = ThisSepLayer<1,QSEpiThickUnits$> \r\n\t LDopant = ThisSepLayer<1,QSEpiDopant$> \r\n\t Recipe = ThisSepLayer<1,QSEpiRecipe$>\r\n\t RecipeRec = xlate( 'RECIPE', Recipe, '', 'X' )\r\n\t * first load the main layer into the run data sheet\r\n\t RDSRec = QuoteNo\r\n\t RDSRec = ScheduleNo\t \r\n\t RDSRec = WO\t \r\n\t RDSRec = OrderNo\t \r\n\t RDSRec = PO\t \r\n\t RDSRec = CustNo\r\n\t RDSRec = PartNum\r\n\t RDSRec = LotNum\r\n\t RDSRec = Recipe\r\n\t RDSRec = RecipeRec\r\n\t RDSRec = RecipeRec\r\n\t RDSRec = RecipeRec\r\n\t RDSRec = RecipeRec\r\n\t RDSRec = RecipeRec\r\n\t RDSRec = RecipeRec\r\n\t RDSRec = RecipeRec\r\n\t RDSRec = RecipeRec\r\n\t RDSRec = RecipeRec\r\n\t RDSRec = RecipeRec\r\n \t RDSRec = RecipeRec\r\n \t RDSRec = RecipeRec \t \r\n \t RDSRec = RecipeRec\r\n \t RDSRec = RecipeRec \t \t \r\n \t RDSRec = RecipeRec \t \t \t \r\n \t RDSRec = RecipeRec \t \t \t \r\n\t RDSRec = SpecSubstrate<1,QSSubInstructions$>\r\n\t * concentration\r\n \t ConMinThick = field( ConMinThick, @vm, 1, 2 )\r\n\t ConMaxThick = field( ConMaxThick, @vm, 1, 2 )\r\n RDSRec = ConMinThick \r\n RDSRec = ConMaxThick\r\n if ConMinThick and ConMaxThick then\r\n if ConMinThick = ConMaxThick then\r\n RDSRec = ConMinThick\r\n end else\r\n * is it ok to do int \r\n *Mid = ConMinThick +++ ((ConMaxThick---ConMinThick)///2)\r\n MinLessMax = (ConMaxThick---ConMinThick)\r\n Mcnt = fieldcount(ConMinThick, @vm )\r\n DivVar = str( 2:@vm, Mcnt )\r\n DivVar[-1,1] = ''\r\n Tans = MinLessMax///DivVar\r\n Ans = MinLessMax+++Tans\r\n *RDSRec = Mid\r\n RDSRec = Ans\r\n end\r\n end \r\n RDSRec = ConUnits \r\n * resistivity\r\n RDSRec = ResMinThick \r\n RDSRec = ResMaxThick\r\n\t if ResMinThick and ResMaxThick then\r\n\t if ResMinThick = ResMaxThick then\r\n\t RDSRec = ResMinThick\r\n\t end else\r\n Mid = ResMinThick + ((ResMaxThick-ResMinThick)/2)\r\n RDSRec = Mid\r\n end\t \r\n\t end \r\n\t RDSRec = ResUnits\r\n\t * thickness\r\n\t RDSRec = MinThick \r\n\t RDSRec = MaxThick\r\n\t if MinThick and MaxThick then\r\n\t if MinThick = MaxThick then\r\n\t RDSRec = MinThick\r\n\t end else\r\n\t Mid = MinThick + ((MaxThick-MinThick)/2)\r\n\t RDSRec = Mid\r\n\t end\r\n\t end \r\n RDSRec = ThickUnits \r\n * now fill in all same reactor layers\r\n convert char(248) to @fm in ThisSepLayer\r\n RestOfLayers = field( ThisSepLayer, @fm, 2, 9999 )\r\n RolCnt = fieldcount( RestOfLayers, @fm )\r\n RecipeLayerInfo = RecipeRec\r\n convert char(248) to @fm in RecipeLayerInfo\r\n RDSLayerInfo = ''\r\n for j = 1 to RolCnt\r\n ThisSameLayer = RestOfLayers\r\n ThisSameRecipeLayer = RecipeLayerInfo \r\n ConMinThick = ThisSameLayer<1,QSEpiConcMinThick$> ;* could have @svm\r\n ConMaxThick = ThisSameLayer<1,QSEpiConcMaxThick$> ;* could have @svm\r\n TcCnt = fieldcount( ConMinThick, @svm )\r\n for zz = 1 to TcCnt\r\n ConMinThick<1,1,zz> = iconv( ConMinThick<1,1,zz>, 'MS' )\r\n next zz\r\n TcCnt = fieldcount( ConMaxThick, @svm )\r\n for zz = 1 to TcCnt\r\n ConMaxThick<1,1,zz> = iconv( ConMaxThick<1,1,zz>, 'MS' )\r\n next zz\r\n ConUnits = ThisSameLayer<1,QSEpiConcUnits$> \r\n\t ResMinThick = ThisSameLayer<1,QSEpiResMinThick$> \r\n\t ResMaxThick = ThisSameLayer<1,QSEpiResMaxThick$> \r\n\t ResUnits = ThisSameLayer<1,QSEpiResUnits$> \r\n\t MinThick = ThisSameLayer<1,QSEpiMinThick$> \r\n\t MaxThick = ThisSameLayer<1,QSEpiMaxThick$> \r\n\t ThickUnits = ThisSameLayer<1,QSEpiThickUnits$> \r\n TLayer = ''\r\n * concentration\r\n \t ConMinThick = field( ConMinThick, @svm, 1, 2 )\r\n\t ConMaxThick = field( ConMaxThick, @svm, 1, 2 )\r\n TLayer<1,RLConMin$> = ConMinThick\r\n TLayer<1,RLConMax$> = ConMaxThick\r\n if ConMinThick and ConMaxThick then\r\n if ConMinThick = ConMaxThick then\r\n TLayer<1,RLConTarget$> = ConMinThick\r\n end else\r\n * is it ok to do int \r\n *Mid = ConMinThick +++ ((ConMaxThick---ConMinThick)///2)\r\n MinLessMax = (ConMaxThick---ConMinThick)\r\n Mcnt = fieldcount(ConMinThick, @svm )\r\n DivVar = str( 2:@svm, Mcnt )\r\n DivVar[-1,1] = ''\r\n Tans = MinLessMax///DivVar\r\n Ans = MinLessMax+++Tans\r\n TLayer<1,RLConTarget$> = Ans \r\n *TLayer<1,RLConTarget$> = Mid\r\n end\r\n end \r\n TLayer<1,RLConUnits$> = ConUnits \r\n * recipe information\r\n TLayer<1,RLRecipeNo$> = Recipe\r\n TLayer<1,RLEpiDopant$> = ThisSameRecipeLayer<1,RecLEpiDopant$>\r\n TLayer<1,RLEpiTemp$> = ThisSameRecipeLayer<1,RecLEpiTemp$>\r\n TLayer<1,RLEpiH2Flow$> = ThisSameRecipeLayer<1,RecLEpiH2Flow$>\r\n TLayer<1,RLEpiDiluent$> = ThisSameRecipeLayer<1,RecLEpiDiluent$>\r\n TLayer<1,RLEpiGases$> = ThisSameRecipeLayer<1,RecLEpiGases$>\r\n TLayer<1,RLEpiGasRate$> = ThisSameRecipeLayer<1,RecLEpiGasRate$>\r\n TLayer<1,RLEpiGasUnit$> = ThisSameRecipeLayer<1,RecLEpiGasesUnit$>\r\n TLayer<1,RLBakeTime$> = ThisSameRecipeLayer<1,RecLBakeTime$>\r\n TLayer<1,RLBakeTemp$> = ThisSameRecipeLayer<1,RecLBakeTemp$>\r\n TLayer<1,RLBakeH2$> = ThisSameRecipeLayer<1,RecLBakeH2$>\r\n TLayer<1,RLBakeSuscRot$> = ThisSameRecipelayer<1,RecLBakeSuscRot$>\r\n TLayer<1,RLEtchTime$> = ThisSameRecipeLayer<1,RecLEtchTime$>\r\n TLayer<1,RLEtchTemp$> = ThisSameRecipeLayer<1,RecLEtchTemp$>\r\n TLayer<1,RLEtchH2$> = ThisSameRecipeLayer<1,RecLEtchH2$>\r\n TLayer<1,RLEtchHcl$> = ThisSameRecipeLayer<1,RecLEtchHcl$>\r\n * Thickness\r\n \t TLayer<1,RLThickMin$> = MinThick \r\n\t TLayer<1,RLThickMax$> = MaxThick\r\n\t if MinThick and MaxThick then\r\n\t if MinThick = MaxThick then\r\n\t TLayer<1,RLThickTarget$> = MinThick\r\n\t end else\r\n\t Mid = MinThick + ((MaxThick-MinThick)/2)\r\n\t TLayer<1,RLThickTarget$> = Mid\r\n\t end\r\n\t end \r\n TLayer<1,RLThickUnits$> = ThickUnits \r\n * resistivity\r\n TLayer<1,RLResMin$> = ResMinThick \r\n TLayer<1,RLResMax$> = ResMaxThick\r\n \t if ResMinThick and ResMaxThick then\r\n\t if ResMinThick = ResMaxThick then\r\n\t TLayer<1,RLResTarget$> = ResMinThick\r\n\t end else\r\n Mid = ResMinThick + ((ResMaxThick-ResMinThick)/2)\r\n TLayer<1,RLResTarget$> = Mid\r\n end\t \r\n\t end \r\n\t TLayer<1,RLResUnits$> = ResUnits\r\n *\r\n RDSLayerInfo := TLayer:char(248)\r\n next j\r\n RDSLayerInfo[-1,1] = ''\r\n RDSRec = RDSLayerInfo\r\n * now write the record\r\n\t write RDSRec on RDSTable, KeyToUse else\r\n\t Void = msg( '', 'Unable to write ':KeyToUse:' on RDS...' )\r\n\t\t return 0\r\n\t end\r\n\t unlock RDSTable, KeyToUse else\r\n\t Void = msg( '', 'Unable to unlock RDS ':KeyToUse:'...' )\r\n\t return 0\r\n\t end\r\n\t if Exists = false$ and not( index( KeyToUse, '.', 1 ) ) then\r\n\t Void = next_key( 'RDS', RDSTable, 'UPDATE', KeyToUse )\r\n\t end\r\n\tend\r\n\tRDSNos<1,TRow> = KeyToUse\r\nreturn\r\n\r\n*===========================================================================*\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/SCHED_DET..json b/LSL2/OIEVENT/WRITE/SCHED_DET..json new file mode 100644 index 0000000..c28947c --- /dev/null +++ b/LSL2/OIEVENT/WRITE/SCHED_DET..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\nDeclare function Sched_Det\r\n\r\nrv = Sched_Det(CtrlEntId, 'WRITE_PRE')\r\n\r\nReturn rv" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/SEMI_LOG..json b/LSL2/OIEVENT/WRITE/SEMI_LOG..json new file mode 100644 index 0000000..5012636 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/SEMI_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, msg, post_event\r\n$insert msg_equates\r\n\r\nif .tech_sig->text='' then\r\n\tMsgInfo = ''\r\n\tMsgInfo = 'You have not signed the log entry'\r\n\tMsgInfo = 'H'\r\n\tVoid = msg( '', MsgInfo )\r\n\tVoid = post_event( @window:'.TECH_SIG', 'GOTFOCUS' )\r\n\tVoid = set_property( @window:'.TECH_SIG', 'FOCUS', 1 )\r\n\treturn 0\r\nend\r\n\r\nif rowexists( 'SEMI_LOG', .log_no->text ) then\r\n\t*we're rewriting an entry that already existed -\r\n\t*don't replace current username into entry_id\r\nend else\r\n .entry_id->text = @user4; *this is a new entry so\r\n \t\t\t\t\t\t\t\t*place username into entry_id for the write\r\nend\r\n\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/SERVICES..json b/LSL2/OIEVENT/WRITE/SERVICES..json new file mode 100644 index 0000000..0ac87e4 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/SERVICES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "\r\nDeclare function SRP_EditTable_Manager\r\n\r\nEventFlow \t= SRP_EditTable_Manager('WritePre')\r\n\r\nReturn EventFlow" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/SPC_CLEAN_HF..json b/LSL2/OIEVENT/WRITE/SPC_CLEAN_HF..json new file mode 100644 index 0000000..c3d1631 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/SPC_CLEAN_HF..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, msg, dialog_box\r\ndeclare subroutine forward_event\r\n\r\n$insert spc_limits_equ\r\n$insert msg_equates\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif rowexists( 'SPC_CLEAN_HF', .control_id->text ) then\r\n return 1\r\nend else\r\n if .tech_sig->text <> '' then\r\n * NOW CHECK TO SEE IF THE OCAP IS REQUIRED\r\n Delta = .delta->text\r\n TermNo = .term_no->text\r\n HFMax = xlate( 'CONFIG', 'SPC_LIMITS', HFParticleMax$, 'X' )\r\n * IF TERMNO THEN THEY HAVE ALREADY GONE THROUGH THE OCAP AND EVERYTHING IS OK\r\n if ( Delta > HFMax ) and ( TermNo = '' ) then\r\n * OCAP REQUIRED\r\n MsgInfo = ''\r\n Text = 'Please follow the HF \"Out of Control Action Plan\".':CrLf$\r\n Text:= 'This will guide you to a term number...Click OK to view OCAP.' \r\n MsgInfo = Text\r\n MsgInfo = '!'\r\n Void = msg( @window, MsgInfo )\r\n RetValue = Dialog_Box( 'SPC_OCAP', @window, 'SPC_SC1_HF_OCAP':char(245):'*CENTER' )\r\n\t .term_no->enabled = 1\r\n\t .term_no->text = RetValue\r\n Void = set_property( \"SYSTEM\", \"FOCUS\", @window:'.TERM_NO' )\t \r\n end else\r\n .entry_id->text = @user4\r\n return 1\r\n end\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must sign this HF SPC Control entry first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/SPC_CLEAN_HF_AKRION..json b/LSL2/OIEVENT/WRITE/SPC_CLEAN_HF_AKRION..json new file mode 100644 index 0000000..4acf29c --- /dev/null +++ b/LSL2/OIEVENT/WRITE/SPC_CLEAN_HF_AKRION..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, msg, dialog_box\r\ndeclare subroutine forward_event\r\n\r\n$insert spc_limits_equ\r\n$insert msg_equates\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif rowexists( 'SPC_CLEAN_HF_AKRION', .control_id->text ) then\r\n return 1\r\nend else\r\n if .tech_sig->text <> '' then\r\n * NOW CHECK TO SEE IF THE OCAP IS REQUIRED\r\n Delta = .delta->text\r\n TermNo = .term_no->text\r\n Type = .hftype->text\r\n if Type = 'Qual' then\r\n HFMax = xlate( 'CONFIG', 'SPC_LIMITS', HFParticleAkrionQualMax$, 'X' ) \r\n end else\r\n HFMax = xlate( 'CONFIG', 'SPC_LIMITS', HFParticleAkrionHFLastMax$, 'X' ) \r\n end\r\n * IF TERMNO THEN THEY HAVE ALREADY GONE THROUGH THE OCAP AND EVERYTHING IS OK\r\n if ( Delta > HFMax ) and ( TermNo = '' ) then\r\n * OCAP REQUIRED\r\n MsgInfo = ''\r\n Text = 'Please follow the Akrion HF \"Out of Control Action Plan\".':CrLf$\r\n Text:= 'This will guide you to a term number...Click OK to view OCAP.' \r\n MsgInfo = Text\r\n MsgInfo = '!'\r\n Void = msg( @window, MsgInfo )\r\n RetValue = Dialog_Box( 'SPC_OCAP', @window, 'SPC_SC1_HF_OCAP':char(245):'*CENTER' )\r\n\t .term_no->enabled = 1\r\n\t .term_no->text = RetValue\r\n Void = set_property( \"SYSTEM\", \"FOCUS\", @window:'.TERM_NO' )\t \r\n end else\r\n .entry_id->text = @user4\r\n return 1\r\n end\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must sign this Akrion HF SPC Control entry first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/SPC_CLEAN_HF_ETCH..json b/LSL2/OIEVENT/WRITE/SPC_CLEAN_HF_ETCH..json new file mode 100644 index 0000000..2d721d1 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/SPC_CLEAN_HF_ETCH..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, msg, dialog_box\r\ndeclare subroutine forward_event\r\n\r\n$insert spc_limits_equ\r\n$insert msg_equates\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif rowexists( 'SPC_CLEAN_HF_ETCH', .control_id->text ) then\r\n return 1\r\nend else\r\n if .tech_sig->text <> '' then\r\n * NOW CHECK TO SEE IF THE OCAP IS REQUIRED\r\n Delta = .delta->text\r\n TermNo = .term_no->text\r\n HFEtchMax = xlate( 'CONFIG', 'SPC_LIMITS', HFEtchRemMax$, 'X' )\r\n HFEtchMin = xlate( 'CONFIG', 'SPC_LIMITS', HFEtchRemMin$, 'X' )\r\n * IF TERMNO THEN THEY HAVE ALREADY GONE THROUGH THE OCAP AND EVERYTHING IS OK\r\n if ( ( Delta > HFEtchMax ) or ( Delta < HFEtchMin ) ) and ( TermNo = '' ) then\r\n * OCAP REQUIRED\r\n MsgInfo = ''\r\n Text = 'Please follow the HF Etch \"Out of Control Action Plan\".':CrLf$\r\n Text:= 'This will guide you to a term number...Click OK to view OCAP.' \r\n MsgInfo = Text\r\n MsgInfo = '!'\r\n Void = msg( @window, MsgInfo )\r\n RetValue = Dialog_Box( 'SPC_OCAP', @window, 'SPC_SC1_HF_OCAP':char(245):'*CENTER' )\r\n\t .term_no->enabled = 1\r\n\t .term_no->text = RetValue\r\n Void = set_property( \"SYSTEM\", \"FOCUS\", @window:'.TERM_NO' )\t \r\n end else\r\n .entry_id->text = @user4\r\n return 1\r\n end\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must sign this HF Etch SPC Control entry first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/SPC_CLEAN_HF_ETCH_AKRION..json b/LSL2/OIEVENT/WRITE/SPC_CLEAN_HF_ETCH_AKRION..json new file mode 100644 index 0000000..b931631 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/SPC_CLEAN_HF_ETCH_AKRION..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, msg, dialog_box\r\ndeclare subroutine forward_event\r\n\r\n$insert spc_limits_equ\r\n$insert msg_equates\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif rowexists( 'SPC_CLEAN_HF_ETCH_AKRION', .control_id->text ) then\r\n return 1\r\nend else\r\n if ( .tech_sig->text <> '' ) and ( .hfetchtype->text <> '' ) then\r\n * NOW CHECK TO SEE IF THE OCAP IS REQUIRED\r\n Delta = .delta->text\r\n TermNo = .term_no->text\r\n if .hfetchtype->text = 'Etch' then\r\n HFEtchAkrionMax = xlate( 'CONFIG', 'SPC_LIMITS', HFEtchAkrionRemEtchMax$, 'X' )\r\n HFEtchAkrionMin = xlate( 'CONFIG', 'SPC_LIMITS', HFEtchAkrionRemEtchMin$, 'X' )\r\n end else\r\n HFEtchAkrionMax = xlate( 'CONFIG', 'SPC_LIMITS', HFEtchAkrionRemDiluteMax$, 'X' )\r\n HFEtchAkrionMin = xlate( 'CONFIG', 'SPC_LIMITS', HFEtchAkrionRemDiluteMin$, 'X' ) \r\n end\r\n * IF TERMNO THEN THEY HAVE ALREADY GONE THROUGH THE OCAP AND EVERYTHING IS OK\r\n if ( ( Delta > HFEtchAkrionMax ) or ( Delta < HFEtchAkrionMin ) ) and ( TermNo = '' ) then\r\n * OCAP REQUIRED\r\n MsgInfo = ''\r\n Text = 'Please follow the Akrion HF Etch \"Out of Control Action Plan\".':CrLf$\r\n Text:= 'This will guide you to a term number...Click OK to view OCAP.' \r\n MsgInfo = Text\r\n MsgInfo = '!'\r\n Void = msg( @window, MsgInfo )\r\n * USING THE \"SPC_SC1_HF_OCAP\" FOR NOW WILL GET INPUT FROM MIKE MCALLISTER\r\n RetValue = Dialog_Box( 'SPC_OCAP', @window, 'SPC_SC1_HF_OCAP':char(245):'*CENTER' )\r\n\t .term_no->enabled = 1\r\n\t .term_no->text = RetValue\r\n Void = set_property( \"SYSTEM\", \"FOCUS\", @window:'.TERM_NO' )\t \r\n end else\r\n .entry_id->text = @user4\r\n return 1\r\n end\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must enter the test tyep and sign this Akrion HF Etch SPC Control entry first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/SPC_CLEAN_SC1..json b/LSL2/OIEVENT/WRITE/SPC_CLEAN_SC1..json new file mode 100644 index 0000000..6f691ca --- /dev/null +++ b/LSL2/OIEVENT/WRITE/SPC_CLEAN_SC1..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, msg, dialog_box\r\ndeclare subroutine forward_event\r\n\r\n$insert spc_limits_equ\r\n$insert msg_equates\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif rowexists( 'SPC_CLEAN_SC1', .control_id->text ) then\r\n return 1\r\nend else\r\n if .tech_sig->text <> '' then\r\n * NOW CHECK TO SEE IF THE OCAP IS REQUIRED\r\n Delta = .delta->text\r\n TermNo = .term_no->text\r\n SC1Max = xlate( 'CONFIG', 'SPC_LIMITS', SC1ParticleMax$, 'X' )\r\n * IF TERMNO THEN THEY HAVE ALREADY GONE THROUGH THE OCAP AND EVERYTHING IS OK\r\n if ( Delta > SC1Max ) and ( TermNo = '' ) then\r\n * OCAP REQUIRED\r\n MsgInfo = ''\r\n Text = 'Please follow the SC1 \"Out of Control Action Plan\".':CrLf$\r\n Text:= 'This will guide you to a term number...Click OK to view OCAP.' \r\n MsgInfo = Text\r\n MsgInfo = '!'\r\n Void = msg( @window, MsgInfo )\r\n RetValue = Dialog_Box( 'SPC_OCAP', @window, 'SPC_SC1_HF_OCAP':char(245):'*CENTER' )\r\n\t .term_no->enabled = 1\r\n\t .term_no->text = RetValue\r\n Void = set_property( \"SYSTEM\", \"FOCUS\", @window:'.TERM_NO' )\t \r\n end else\r\n .entry_id->text = @user4\r\n return 1\r\n end\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must sign this SC1 SPC Control entry first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/SPC_CLEAN_SRD..json b/LSL2/OIEVENT/WRITE/SPC_CLEAN_SRD..json new file mode 100644 index 0000000..5e4725a --- /dev/null +++ b/LSL2/OIEVENT/WRITE/SPC_CLEAN_SRD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, msg, dialog_box\r\ndeclare subroutine forward_event\r\n\r\n$insert spc_limits_equ\r\n$insert msg_equates\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif rowexists( 'SPC_CLEAN_SRD', .control_id->text ) then\r\n return 1\r\nend else\r\n if .tech_sig->text <> '' then\r\n * NOW CHECK TO SEE IF THE OCAP IS REQUIRED\r\n Delta = .delta->text\r\n TermNo = .term_no->text\r\n SRDMax = xlate( 'CONFIG', 'SPC_LIMITS', SRDParticleMax$, 'X' )\r\n * IF TERMNO THEN THEY HAVE ALREADY GONE THROUGH THE OCAP AND EVERYTHING IS OK\r\n if ( Delta > SRDMax ) and ( TermNo = '' ) then\r\n * OCAP REQUIRED\r\n MsgInfo = ''\r\n Text = 'Please follow the SRD \"Out of Control Action Plan\".':CrLf$\r\n Text:= 'This will guide you to a term number...Click OK to view OCAP.' \r\n MsgInfo = Text\r\n MsgInfo = '!'\r\n Void = msg( @window, MsgInfo )\r\n RetValue = Dialog_Box( 'SPC_OCAP', @window, 'SPC_SRD_OCAP':char(245):'*CENTER' )\r\n\t .term_no->enabled = 1\r\n\t .term_no->text = RetValue\r\n Void = set_property( \"SYSTEM\", \"FOCUS\", @window:'.TERM_NO' )\t \r\n end else\r\n .entry_id->text = @user4\r\n return 1\r\n end\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must sign this SRD SPC Control entry first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/SPC_EVAL_4PP..json b/LSL2/OIEVENT/WRITE/SPC_EVAL_4PP..json new file mode 100644 index 0000000..17c0d53 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/SPC_EVAL_4PP..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, msg, dialog_box\r\ndeclare subroutine forward_event, create_note\r\n\r\n$insert quote_sigs_equ\r\n$insert spc_limits_equ\r\n$insert msg_equates\r\n$INSERT NOTIFICATION_EQU\r\n\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif rowexists( 'SPC_EVAL_4PP', .control_id->text ) then\r\n return 1\r\nend else\r\n if .tech_sig->text <> '' then\r\n * NOW CHECK TO SEE IF THE OCAP IS REQUIRED\r\n RHO = .rho->text\r\n Stdev = .stdev->text\r\n TermNo = .term_no->text\r\n EvalRange = .evalrange->text\r\n WaferID = .eval4ppwaferid->text\r\n begin case\r\n case EvalRange = 'Low'\r\n Eval4PPMin = xlate( 'CONFIG', 'SPC_LIMITS', Eval4PPLMin$, 'X' )\r\n Eval4PPMax = xlate( 'CONFIG', 'SPC_LIMITS', Eval4PPLMax$, 'X' )\r\n\t Eval4PPWaferID = xlate( 'CONFIG', 'SPC_LIMITS', Eval4PPLWaferID$, 'X' )\t \r\n EvalStdevMin = oconv( xlate( 'CONFIG', 'SPC_LIMITS', Eval4PPLStdevMin$, 'X' ), 'MD3' )\r\n EvalStdevMax = oconv( xlate( 'CONFIG', 'SPC_LIMITS', Eval4PPLStdevMax$, 'X' ), 'MD3' )\r\n\t\t\tEvalStdevWaferID = xlate( 'CONFIG', 'SPC_LIMITS', Eval4PPLStdevWaferID$, 'X' ) \r\n case EvalRange = 'Mid'\r\n Eval4PPMin = xlate( 'CONFIG', 'SPC_LIMITS', Eval4PPMMin$, 'X' )\r\n Eval4PPMax = xlate( 'CONFIG', 'SPC_LIMITS', Eval4PPMMax$, 'X' )\r\n\t Eval4PPWaferID = xlate( 'CONFIG', 'SPC_LIMITS', Eval4PPMWaferID$, 'X' ) \r\n EvalStdevMin = oconv( xlate( 'CONFIG', 'SPC_LIMITS', Eval4PPMStdevMin$, 'X' ), 'MD3' )\r\n EvalStdevMax = oconv( xlate( 'CONFIG', 'SPC_LIMITS', Eval4PPMStdevMax$, 'X' ), 'MD3' )\r\n\t\t\tEvalStdevWaferID = xlate( 'CONFIG', 'SPC_LIMITS', Eval4PPMStdevWaferID$, 'X' ) \r\n case EvalRange = 'High'\r\n Eval4PPMin = xlate( 'CONFIG', 'SPC_LIMITS', Eval4PPHMin$, 'X' )\r\n Eval4PPMax = xlate( 'CONFIG', 'SPC_LIMITS', Eval4PPHMax$, 'X' )\r\n\t Eval4PPWaferID = xlate( 'CONFIG', 'SPC_LIMITS', Eval4PPHWaferID$, 'X' ) \r\n EvalStdevMin = oconv( xlate( 'CONFIG', 'SPC_LIMITS', Eval4PPHStdevMin$, 'X' ), 'MD3' )\r\n EvalStdevMax = oconv( xlate( 'CONFIG', 'SPC_LIMITS', Eval4PPHStdevMax$, 'X' ), 'MD3' )\r\n\t\t\tEvalStdevWaferID = xlate( 'CONFIG', 'SPC_LIMITS', Eval4PPHStdevWaferID$, 'X' ) \r\n end case\r\n locate WaferID in Eval4PPWaferID using @vm setting WIDPos then\r\n Eval4PPMin = Eval4PPMin<1,WIDPos>\r\n Eval4PPMax = Eval4PPMax<1,WIDPos>\r\n end else\r\n * ERROR ENGINEERING ERROR CONTACT PAUL THIS SHOULD NOT HAPPEN\r\n MsgInfo = ''\r\n MText = 'Wafer ID# ':quote(WaferID):'is not found in the limit set up for ':EvalRange:CrLf$\r\n MText:= 'Please contact the engineering manager.'\r\n MsgInfo = MText\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0 \r\n end\r\n locate WaferID in EvalStdevWaferID using @vm setting WIDPos then\r\n EvalStdevMin = EvalStdevMin<1,WIDPos>\r\n EvalStdevMax = EvalStdevMax<1,WIDPos>\r\n end else\r\n * ERROR ENGINEERING ERROR CONTACT PAUL THIS SHOULD NOT HAPPEN\r\n MsgInfo = ''\r\n MText = 'Wafer ID# ':quote(WaferID):'is not found in the limit set up for ':EvalRange:CrLf$\r\n MText:= 'Please contact the engineering manager.'\r\n MsgInfo = MText\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0 \r\n end\r\n \r\n * IF TERMNO THEN THEY HAVE ALREADY GONE THROUGH THE OCAP AND EVERYTHING IS OK\r\n if ( ( RHO > Eval4PPMax ) or ( RHO < Eval4PPMin ) ) or ( Stdev > EvalStdevMax ) or ( Stdev < EvalStdevMin ) and ( TermNo = '' ) then\r\n * OCAP REQUIRED\r\n MsgInfo = ''\r\n Text = 'Please follow the 4PP \"Out of Control Action Plan\".':CrLf$\r\n Text:= 'This will guide you to a term number...Click OK to view OCAP.' \r\n MsgInfo = Text\r\n MsgInfo = '!'\r\n Void = msg( @window, MsgInfo )\r\n RetValue = Dialog_Box( 'SPC_OCAP', @window, 'SPC_4PP_OCAP':char(245):'*CENTER' )\r\n\t .term_no->enabled = 1\r\n\t .term_no->text = RetValue\r\n Void = set_property( \"SYSTEM\", \"FOCUS\", @window:'.TERM_NO' )\t \r\n end else\r\n .entry_id->text = @user4\r\n if TermNo = 2 then\r\n \r\n *SendTo = xlate( 'CONFIG', 'QUOTE_SIGS', F4PPOutSpecNotif$, 'X' )\r\n \r\n SendTo = XLATE('NOTIFICATION','4PP_OUT',NOTIFICATION_USER_ID$,'X')\r\n Subject = '4PP out of spec entry...'\r\n Note = 'Please see the attached 4PP entry.'\r\n create_note( SendTo, 'System', Subject, Note, 'SPC_EVAL_4PP', .control_id->text ) \r\n end\r\n return 1\r\n end\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must sign this 4PP SPC Control entry first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/SPC_EVAL_ADE..json b/LSL2/OIEVENT/WRITE/SPC_EVAL_ADE..json new file mode 100644 index 0000000..2e8c6c1 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/SPC_EVAL_ADE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, msg, dialog_box\r\ndeclare subroutine forward_event, create_note\r\n\r\n$insert spc_limits_equ\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\n\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif rowexists( 'SPC_EVAL_ADE', .control_id->text ) then\r\n return 1\r\nend else\r\n if .tech_sig->text <> '' then\r\n * NOW CHECK TO SEE IF THE OCAP IS REQUIRED\r\n Thick = .thick->text\r\n Stdev = .stdev->text\r\n TermNo = .term_no->text\r\n EvalRange = .evalrange->text\r\n WaferID = .evalADEwaferid->text\r\n\r\n begin case\r\n case EvalRange = 'Low'\r\n\t EvalADEMin = oconv( xlate( 'CONFIG', 'SPC_LIMITS', EvalADELMin$, 'X' ), 'MD3' )\r\n\t EvalADEMax = oconv( xlate( 'CONFIG', 'SPC_LIMITS', EvalADELMax$, 'X' ), 'MD3' )\r\n\t EvalADEWaferID = xlate( 'CONFIG', 'SPC_LIMITS', EvalADELWaferID$, 'X' )\t \r\n\t EvalStdevMin = oconv( xlate( 'CONFIG', 'SPC_LIMITS', EvalADELStdevMin$, 'X' ), 'MD3' )\r\n\t EvalStdevMax = oconv( xlate( 'CONFIG', 'SPC_LIMITS', EvalADELStdevMax$, 'X' ), 'MD3' )\r\n\t EvalStdevWaferID = xlate( 'CONFIG', 'SPC_LIMITS', EvalADELStdevWaferID$, 'X' )\r\n case EvalRange = 'Mid'\r\n\t EvalADEMin = oconv( xlate( 'CONFIG', 'SPC_LIMITS', EvalADEMMin$, 'X' ), 'MD3' )\r\n\t EvalADEMax = oconv( xlate( 'CONFIG', 'SPC_LIMITS', EvalADEMMax$, 'X' ), 'MD3' )\r\n\t EvalADEWaferID = xlate( 'CONFIG', 'SPC_LIMITS', EvalADEMWaferID$, 'X' )\t \t \r\n\t EvalStdevMin = oconv( xlate( 'CONFIG', 'SPC_LIMITS', EvalADEMStdevMin$, 'X' ), 'MD3' )\r\n\t EvalStdevMax = oconv( xlate( 'CONFIG', 'SPC_LIMITS', EvalADEMStdevMax$, 'X' ), 'MD3' )\r\n\t EvalStdevWaferID = xlate( 'CONFIG', 'SPC_LIMITS', EvalADEMStdevWaferID$, 'X' )\t \r\n case EvalRange = 'High'\r\n\t EvalADEMin = oconv( xlate( 'CONFIG', 'SPC_LIMITS', EvalADEHMin$, 'X' ), 'MD3' )\r\n\t EvalADEMax = oconv( xlate( 'CONFIG', 'SPC_LIMITS', EvalADEHMax$, 'X' ), 'MD3' )\r\n\t EvalADEWaferID = xlate( 'CONFIG', 'SPC_LIMITS', EvalADEHWaferID$, 'X' )\t \t \r\n\t EvalStdevMin = oconv( xlate( 'CONFIG', 'SPC_LIMITS', EvalADEHStdevMin$, 'X' ), 'MD3' )\r\n\t EvalStdevMax = oconv( xlate( 'CONFIG', 'SPC_LIMITS', EvalADEHStdevMax$, 'X' ), 'MD3' )\r\n\t EvalStdevWaferID = xlate( 'CONFIG', 'SPC_LIMITS', EvalADEHStdevWaferID$, 'X' )\t \t \r\n end case\r\n locate WaferID in EvalADEWaferID using @vm setting WIDPos then\r\n EvalADEMin = EvalADEMin<1,WIDPos>\r\n EvalADEMax = EvalADEMax<1,WIDPos>\r\n end else\r\n * ERROR ENGINEERING ERROR CONTACT PAUL THIS SHOULD NOT HAPPEN\r\n MsgInfo = ''\r\n MText = 'Wafer ID# ':quote(WaferID):'is not found in the limit set up for ':EvalRange:CrLf$\r\n MText:= 'Please contact the engineering manager.'\r\n MsgInfo = MText\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0 \r\n end\r\n locate WaferID in EvalStdevWaferID using @vm setting WIDPos then\r\n EvalStdevMin = EvalStdevMin<1,WIDPos>\r\n EvalStdevMax = EvalStdevMax<1,WIDPos>\r\n end else\r\n * ERROR ENGINEERING ERROR CONTACT PAUL THIS SHOULD NOT HAPPEN\r\n MsgInfo = ''\r\n MText = 'Wafer ID# ':quote(WaferID):'is not found in the limit set up for ':EvalRange:CrLf$\r\n MText:= 'Please contact the engineering manager.'\r\n MsgInfo = MText\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0 \r\n end\r\n \r\n * IF TERMNO THEN THEY HAVE ALREADY GONE THROUGH THE OCAP AND EVERYTHING IS OK\r\n if ( ( Thick > EvalADEMax ) or ( Thick < EvalADEMin ) ) or ( Stdev > EvalStdevMax ) or ( Stdev < EvalStdevMin ) and ( TermNo = '' ) then\r\n * OCAP REQUIRED\r\n MsgInfo = ''\r\n Text = 'Please follow the ADE \"Out of Control Action Plan\".':CrLf$\r\n Text:= 'This will guide you to a term number...Click OK to view OCAP.' \r\n MsgInfo = Text\r\n MsgInfo = '!'\r\n Void = msg( @window, MsgInfo )\r\n RetValue = Dialog_Box( 'SPC_OCAP', @window, 'SPC_ADE_OCAP':char(245):'*CENTER' )\r\n\t .term_no->enabled = 1\r\n\t .term_no->text = RetValue\r\n Void = set_property( \"SYSTEM\", \"FOCUS\", @window:'.TERM_NO' )\t \r\n end else\r\n .entry_id->text = @user4\r\n if TermNo = 2 then\r\n SendTo = xlate( 'CONFIG', 'QUOTE_SIGS', ADEOutSpecNotif$, 'X' )\r\n Subject = 'ADE out of spec entry...'\r\n Note = 'Please see the attached ADE entry.'\r\n create_note( SendTo, 'System', Subject, Note, 'SPC_EVAL_ADE', .control_id->text ) \r\n end \r\n return 1\r\n end\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must sign this ADE SPC Control entry first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/SPC_EVAL_FTIR..json b/LSL2/OIEVENT/WRITE/SPC_EVAL_FTIR..json new file mode 100644 index 0000000..61dd573 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/SPC_EVAL_FTIR..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, msg, dialog_box\r\ndeclare subroutine forward_event, create_note\r\n\r\n$insert spc_limits_equ\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\n$INSERT NOTIFICATION_EQU\r\n\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif rowexists( 'SPC_EVAL_FTIR', .control_id->text ) then\r\n return 1\r\nend else\r\n if .tech_sig->text <> '' then\r\n * NOW CHECK TO SEE IF THE OCAP IS REQUIRED\r\n Thick = .thick->text\r\n Stdev = .stdev->text\r\n TermNo = .term_no->text\r\n EvalRange = .evalrange->text\r\n WaferID = .evalftirwaferid->text\r\n\r\n begin case\r\n case EvalRange = 'Low'\r\n\t EvalFTIRMin = oconv( xlate( 'CONFIG', 'SPC_LIMITS', EvalFTIRLMin$, 'X' ), 'MD3' )\r\n\t EvalFTIRMax = oconv( xlate( 'CONFIG', 'SPC_LIMITS', EvalFTIRLMax$, 'X' ), 'MD3' )\r\n\t EvalFTIRWaferID = xlate( 'CONFIG', 'SPC_LIMITS', EvalFTIRLWaferID$, 'X' )\t \r\n\t EvalStdevMin = oconv( xlate( 'CONFIG', 'SPC_LIMITS', EvalFTIRLStdevMin$, 'X' ), 'MD3' )\r\n\t EvalStdevMax = oconv( xlate( 'CONFIG', 'SPC_LIMITS', EvalFTIRLStdevMax$, 'X' ), 'MD3' )\r\n\t EvalStdevWaferID = xlate( 'CONFIG', 'SPC_LIMITS', EvalFTIRLStdevWaferID$, 'X' )\r\n case EvalRange = 'Mid'\r\n\t EvalFTIRMin = oconv( xlate( 'CONFIG', 'SPC_LIMITS', EvalFTIRMMin$, 'X' ), 'MD3' )\r\n\t EvalFTIRMax = oconv( xlate( 'CONFIG', 'SPC_LIMITS', EvalFTIRMMax$, 'X' ), 'MD3' )\r\n\t EvalFTIRWaferID = xlate( 'CONFIG', 'SPC_LIMITS', EvalFTIRMWaferID$, 'X' )\t \t \r\n\t EvalStdevMin = oconv( xlate( 'CONFIG', 'SPC_LIMITS', EvalFTIRMStdevMin$, 'X' ), 'MD3' )\r\n\t EvalStdevMax = oconv( xlate( 'CONFIG', 'SPC_LIMITS', EvalFTIRMStdevMax$, 'X' ), 'MD3' )\r\n\t EvalStdevWaferID = xlate( 'CONFIG', 'SPC_LIMITS', EvalFTIRMStdevWaferID$, 'X' )\t \r\n case EvalRange = 'High'\r\n\t EvalFTIRMin = oconv( xlate( 'CONFIG', 'SPC_LIMITS', EvalFTIRHMin$, 'X' ), 'MD3' )\r\n\t EvalFTIRMax = oconv( xlate( 'CONFIG', 'SPC_LIMITS', EvalFTIRHMax$, 'X' ), 'MD3' )\r\n\t EvalFTIRWaferID = xlate( 'CONFIG', 'SPC_LIMITS', EvalFTIRHWaferID$, 'X' )\t \t \r\n\t EvalStdevMin = oconv( xlate( 'CONFIG', 'SPC_LIMITS', EvalFTIRHStdevMin$, 'X' ), 'MD3' )\r\n\t EvalStdevMax = oconv( xlate( 'CONFIG', 'SPC_LIMITS', EvalFTIRHStdevMax$, 'X' ), 'MD3' )\r\n\t EvalStdevWaferID = xlate( 'CONFIG', 'SPC_LIMITS', EvalFTIRHStdevWaferID$, 'X' )\t \t \r\n end case\r\n locate WaferID in EvalFTIRWaferID using @vm setting WIDPos then\r\n EvalFTIRMin = EvalFTIRMin<1,WIDPos>\r\n EvalFTIRMax = EvalFTIRMax<1,WIDPos>\r\n end else\r\n * ERROR ENGINEERING ERROR CONTACT PAUL THIS SHOULD NOT HAPPEN\r\n MsgInfo = ''\r\n MText = 'Wafer ID# ':quote(WaferID):'is not found in the limit set up for ':EvalRange:CrLf$\r\n MText:= 'Please contact the engineering manager.'\r\n MsgInfo = MText\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0 \r\n end\r\n locate WaferID in EvalStdevWaferID using @vm setting WIDPos then\r\n EvalStdevMin = EvalStdevMin<1,WIDPos>\r\n EvalStdevMax = EvalStdevMax<1,WIDPos>\r\n end else\r\n * ERROR ENGINEERING ERROR CONTACT PAUL THIS SHOULD NOT HAPPEN\r\n MsgInfo = ''\r\n MText = 'Wafer ID# ':quote(WaferID):'is not found in the limit set up for ':EvalRange:CrLf$\r\n MText:= 'Please contact the engineering manager.'\r\n MsgInfo = MText\r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n return 0 \r\n end\r\n \r\n * IF TERMNO THEN THEY HAVE ALREADY GONE THROUGH THE OCAP AND EVERYTHING IS OK\r\n if ( ( Thick > EvalFTIRMax ) or ( Thick < EvalFTIRMin ) ) or ( Stdev > EvalStdevMax ) or ( Stdev < EvalStdevMin ) and ( TermNo = '' ) then\r\n * OCAP REQUIRED\r\n MsgInfo = ''\r\n Text = 'Please follow the FTIR \"Out of Control Action Plan\".':CrLf$\r\n Text:= 'This will guide you to a term number...Click OK to view OCAP.' \r\n MsgInfo = Text\r\n MsgInfo = '!'\r\n Void = msg( @window, MsgInfo )\r\n RetValue = Dialog_Box( 'SPC_OCAP', @window, 'SPC_FTIR_OCAP':char(245):'*CENTER' )\r\n\t .term_no->enabled = 1\r\n\t .term_no->text = RetValue\r\n Void = set_property( \"SYSTEM\", \"FOCUS\", @window:'.TERM_NO' )\t \r\n end else\r\n .entry_id->text = @user4\r\n IF TermNo = 2 THEN\r\n \r\n *SendTo = xlate( 'CONFIG', 'QUOTE_SIGS', FTIROutSpecNotif$, 'X' )\r\n SendTo = XLATE('NOTIFICATION','FTIR_OUT',NOTIFICATION_USER_ID$,'X')\r\n Subject = 'FTIR out of spec entry...'\r\n Note = 'Please see the attached FTIR entry.'\r\n create_note( SendTo, 'System', Subject, Note, 'SPC_EVAL_FTIR', .control_id->text ) \r\n END \r\n return 1\r\n end\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must sign this FTIR SPC Control entry first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/SPC_REACTOR_PARTICLES..json b/LSL2/OIEVENT/WRITE/SPC_REACTOR_PARTICLES..json new file mode 100644 index 0000000..3e061b7 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/SPC_REACTOR_PARTICLES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, msg, dialog_box\r\ndeclare subroutine forward_event\r\n\r\n$insert spc_limits_equ\r\n$insert msg_equates\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif rowexists( 'SPC_REACTOR_PARTICLES', .control_id->text ) then\r\n return 1\r\nend else\r\n if .tech_sig->text <> '' then\r\n * NOW CHECK TO SEE IF THE OCAP IS REQUIRED FOR PARTICLES/HAZE\r\n Delta = .delta->text\r\n TermNo = .term_no->text\r\n RPMax = xlate( 'CONFIG', 'SPC_LIMITS', ReactPartMax$, 'X' )\r\n Haze = iconv( .haze->text, 'MD2' )\r\n RHMax = xlate( 'CONFIG', 'SPC_LIMITS', ReactHazeMax$, 'X' )\r\n * CURRENTLY DO NOT FORCE THE OCAP CAUSE WE NEED TO FIGURE OUT\r\n * HOW WE ARE CONTROLING THE REACTORS\r\n * IF TERMNO THEN THEY HAVE ALREADY GONE THROUGH THE OCAP AND EVERYTHING IS OK\r\n *if ( Delta > RPMax ) or ( Haze > RHMax ) and ( TermNo = '' ) then\r\n * * OCAP REQUIRED\r\n * MsgInfo = ''\r\n * Text = 'Please follow the Reactor Particle/Haze \"Out of Control Action Plan\".':CrLf$\r\n * Text:= 'This will guide you to a term number...Click OK to view OCAP.' \r\n * MsgInfo = Text\r\n * MsgInfo = '!'\r\n * Void = msg( @window, MsgInfo )\r\n * RetValue = Dialog_Box( 'SPC_OCAP', @window, 'SPC_REACTOR_PARTICLES_OCAP':char(245):'*CENTER' )\r\n\t * .term_no->enabled = 1\r\n\t * .term_no->text = RetValue\r\n * Void = set_property( \"SYSTEM\", \"FOCUS\", @window:'.TERM_NO' )\t \r\n *end else\r\n .entry_id->text = @user4\r\n return 1\r\n *end\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must sign this Reactor Particle SPC Control entry first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend\r\nreturn 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/SPC_WAFER_ETCH..json b/LSL2/OIEVENT/WRITE/SPC_WAFER_ETCH..json new file mode 100644 index 0000000..6a6572c --- /dev/null +++ b/LSL2/OIEVENT/WRITE/SPC_WAFER_ETCH..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, msg, dialog_box\r\ndeclare subroutine forward_event\r\n\r\n$insert spc_limits_equ\r\n$insert msg_equates\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif rowexists( 'SPC_WAFER_ETCH', .control_id->text ) then\r\n return 1\r\nend else\r\n if .tech_sig->text <> '' then\r\n * NOW CHECK TO SEE IF THE OCAP IS REQUIRED\r\n Delta = .delta->text\r\n TermNo = .term_no->text\r\n WafEtchMin = oconv( xlate( 'CONFIG', 'SPC_LIMITS', WafEtchMin$, 'X' ), 'MD3' )\r\n WafEtchMax = oconv( xlate( 'CONFIG', 'SPC_LIMITS', WafEtchMax$, 'X' ), 'MD3' )\r\n * IF TERMNO THEN THEY HAVE ALREADY GONE THROUGH THE OCAP AND EVERYTHING IS OK\r\n if ( ( Delta > WafEtchMax ) or ( Delta < WafEtchMin ) ) and ( TermNo = '' ) then\r\n * OCAP REQUIRED\r\n MsgInfo = ''\r\n Text = 'Please follow the Wafer Etch \"Out of Control Action Plan\".':CrLf$\r\n Text:= 'This will guide you to a term number...Click OK to view OCAP.' \r\n MsgInfo = Text\r\n MsgInfo = '!'\r\n Void = msg( @window, MsgInfo )\r\n RetValue = Dialog_Box( 'SPC_OCAP', @window, 'SPC_WAFER_ETCH_OCAP':char(245):'*CENTER' )\r\n\t .term_no->enabled = 1\r\n\t .term_no->text = RetValue\r\n Void = set_property( \"SYSTEM\", \"FOCUS\", @window:'.TERM_NO' )\t \r\n end else\r\n .entry_id->text = @user4\r\n return 1\r\n end\r\n end else\r\n MsgInfo = ''\r\n MsgInfo = 'You must sign this Wafer Etch SPC Control entry first...' \r\n MsgInfo = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend\r\nreturn 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/SRP_COC_RESULTS..json b/LSL2/OIEVENT/WRITE/SRP_COC_RESULTS..json new file mode 100644 index 0000000..537ec27 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/SRP_COC_RESULTS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists\r\n\r\nif rowexists( 'SRP_COC_RESULTS', .control_id->text ) else\r\n .entry_id->text = @user4\r\nend\r\nreturn 1\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/SRP_INCOMING_LOG..json b/LSL2/OIEVENT/WRITE/SRP_INCOMING_LOG..json new file mode 100644 index 0000000..82b072f --- /dev/null +++ b/LSL2/OIEVENT/WRITE/SRP_INCOMING_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, msg, post_event\r\n$insert msg_equates\r\n\r\nif .eng_sig->text='' then\r\n\tMsgInfo = ''\r\n\tMsgInfo = 'You have not signed the log entry'\r\n\tMsgInfo = 'H'\r\n\tVoid = msg( '', MsgInfo )\r\n\tVoid = post_event( @window:'.ENG_SIG', 'GOTFOCUS' )\r\n\tVoid = set_property( @window:'.ENG_SIG', 'FOCUS', 1 )\r\n\treturn 0\r\nend\r\n\r\nif rowexists( 'SRP_INCOMING_LOG', .log_no->text ) then\r\n\t*we're rewriting an entry that already existed -\r\n\t*don't replace current username into entry_id\r\nend else\r\n .entry_id->text = @user4; *this is a new entry so\r\n \t\t\t\t\t\t\t\t*place username into entry_id for the write\r\nend\r\n\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/SUB_REC_LOG..json b/LSL2/OIEVENT/WRITE/SUB_REC_LOG..json new file mode 100644 index 0000000..e4d0e60 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/SUB_REC_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, msg, post_event\r\n$insert msg_equates\r\n\r\nif .receiver_sig->text='' then\r\n\tMsgInfo = ''\r\n\tMsgInfo = 'You have not signed the log entry'\r\n\tMsgInfo = 'H'\r\n\tVoid = msg( '', MsgInfo )\r\n\tVoid = post_event( @window:'.RECEIVER_SIG', 'GOTFOCUS' )\r\n\tVoid = set_property( @window:'.RECEIVER_SIG', 'FOCUS', 1 )\r\n\treturn 0\r\nend\r\n\r\nif rowexists( 'SUB_REC_LOG', .log_no->text ) then\r\n\t*we're rewriting an entry that already existed -\r\n\t*don't replace current username into entry_id\r\nend else\r\n .entry_id->text = @user4; *this is a new entry so\r\n \t\t\t\t\t\t\t\t*place username into entry_id for the write\r\nend\r\n\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/SURFACE_SCAN..json b/LSL2/OIEVENT/WRITE/SURFACE_SCAN..json new file mode 100644 index 0000000..3f9da62 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/SURFACE_SCAN..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION COMM_SURFACE_SCAN\r\n\r\nRETURN Comm_Surface_Scan('Write')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/SURF_SCAN..json b/LSL2/OIEVENT/WRITE/SURF_SCAN..json new file mode 100644 index 0000000..3e9560e --- /dev/null +++ b/LSL2/OIEVENT/WRITE/SURF_SCAN..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE Function Comm_Surf_Scan\r\n\r\nRETURN Comm_Surf_Scan('Write')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/TOOL_PARMS..json b/LSL2/OIEVENT/WRITE/TOOL_PARMS..json new file mode 100644 index 0000000..cce4916 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/TOOL_PARMS..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE Function Comm_RDS_Layer\r\n\r\nRETURN Comm_RDS_Layer('Write')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/TW_CODES..json b/LSL2/OIEVENT/WRITE/TW_CODES..json new file mode 100644 index 0000000..c9f89ca --- /dev/null +++ b/LSL2/OIEVENT/WRITE/TW_CODES..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists\r\n\r\nif rowexists( 'TW_CODES', .tw_code->text ) else\r\n .entry_id->text = @user4\r\nend\r\nreturn 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/TW_PRIME_USAGE..json b/LSL2/OIEVENT/WRITE/TW_PRIME_USAGE..json new file mode 100644 index 0000000..23378fc --- /dev/null +++ b/LSL2/OIEVENT/WRITE/TW_PRIME_USAGE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, msg, fieldcount\r\n$insert msg_equates\r\n$insert logical\r\n\r\nif .type->value <> '' then\r\n if .orientation->value <> '' then\r\n\t TWError = false$\r\n\t CurArray = .tw_info->array\r\n\t NumRows = fieldcount( CurArray<1>, @vm ) +1 ;* JUST INCASE FIRST VALUE NULL\r\n\t for i = 1 to NumRows\r\n\t if CurArray<1,i> <> '' then\r\n\t * check to see if they have entered a loss code for every\r\n\t * row with rejects in it\r\n\t if CurArray<2,i> <> '' else\r\n\t TWError = true$\r\n\t end\r\n\t end else\r\n\t if CurArray<2,i> = '' then\r\n\t * blank line\r\n\t end else\r\n\t TWError = true$\r\n\t end\r\n\t end\r\n\t until TWError\r\n\t next i\r\n\t if TWError then\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'H'\r\n\t MsgInfo = 'You must have test wafers and a usage code for every row that contains and entry!'\r\n\t Void = msg( '', MsgInfo )\r\n\t return 0\r\n\t end\r\n\t\tif rowexists( 'TW_PRIME_USAGE', .twu_id->text ) else\r\n\t\t .entry_id->text = @user4\r\n\t\tend\r\n\t\treturn 1\r\n\tend else\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'H'\r\n\t MsgInfo = 'You must choose an orientation...<100>, <111>.'\r\n\t Void = msg( '', MsgInfo )\r\n\t return 0\r\n\tend\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'H'\r\n MsgInfo = 'You must choose a test wafer type...P+, P-, N+, N-.'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/TW_USAGE..json b/LSL2/OIEVENT/WRITE/TW_USAGE..json new file mode 100644 index 0000000..70b3e5c --- /dev/null +++ b/LSL2/OIEVENT/WRITE/TW_USAGE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, msg, fieldcount\r\n$insert msg_equates\r\n$insert logical\r\n\r\nif .type->value <> '' then\r\n if .orientation->value <> '' then\r\n\t TWError = false$\r\n\t CurArray = .tw_info->array\r\n\t NumRows = fieldcount( CurArray<1>, @vm ) +1 ;* JUST INCASE FIRST VALUE NULL\r\n\t for i = 1 to NumRows\r\n\t if CurArray<1,i> <> '' then\r\n\t * check to see if they have entered a loss code for every\r\n\t * row with rejects in it\r\n\t if CurArray<2,i> <> '' else\r\n\t TWError = true$\r\n\t end\r\n\t end else\r\n\t if CurArray<2,i> = '' then\r\n\t * blank line\r\n\t end else\r\n\t TWError = true$\r\n\t end\r\n\t end\r\n\t until TWError\r\n\t next i\r\n\t if TWError then\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'H'\r\n\t MsgInfo = 'You must have test wafers and a usage code for every row that contains and entry!'\r\n\t Void = msg( '', MsgInfo )\r\n\t return 0\r\n\t end\r\n\t\tif rowexists( 'TW_USAGE', .twu_id->text ) else\r\n\t\t .entry_id->text = @user4\r\n\t\tend\r\n\t\treturn 1\r\n\tend else\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'H'\r\n\t MsgInfo = 'You must choose an orientation...<100>, <111>.'\r\n\t Void = msg( '', MsgInfo )\r\n\t return 0\r\n\tend\r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'H'\r\n MsgInfo = 'You must choose a test wafer type...P+, P-, N+, N-.'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\nend\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/TW_USE..json b/LSL2/OIEVENT/WRITE/TW_USE..json new file mode 100644 index 0000000..eafb798 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/TW_USE..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_TW_Use\r\n\r\nRETURN Comm_TW_Use(CtrlEntID,'WRITE')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/WAFER_INV..json b/LSL2/OIEVENT/WRITE/WAFER_INV..json new file mode 100644 index 0000000..7ef0860 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/WAFER_INV..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, fieldcount, msg\r\n$insert logical\r\n$insert msg_equates\r\n\r\n\r\nLineErr = false$\r\nInvDetail = .inv_detail->array\r\nMostRows = 0\r\nfor i = 1 to 10 \r\n Tcnt = fieldcount( InvDetail, @vm )\r\n if Tcnt > MostRows then\r\n MostRows = Tcnt\r\n end\r\nnext i\r\nfor i = 1 to MostRows\r\n OrdNo = InvDetail<1,i>\r\n Tvar = InvDetail<2,i>\r\n Tvar := InvDetail<3,i>\r\n Tvar := InvDetail<4,i>\r\n Tvar := InvDetail<5,i>\r\n Tvar := InvDetail<6,i>\r\n Tvar := InvDetail<7,i>\r\n Tvar := InvDetail<8,i>\r\n Tvar := InvDetail<9,i>\r\n Tvar := InvDetail<10,i> \r\n if ( OrdNo = '' ) and ( Tvar = '' ) then\r\n * BLANK LINE\r\n end else\r\n\t if ( OrdNo = '' ) and ( Tvar <> '' ) then\r\n\t * FORCE THEM TO HAVE AN ORDER NUMBER CAUSE THIS IS USED IN\r\n\t * THE INVENTORY UPDATING MODULES FROM ORDER AND INVOICE TO DETERMINE\r\n\t * HOW MANY LINES\r\n\t MsgInfo = ''\r\n\t MsgInfo = 'Row ':i:' must have an order number.' \r\n\t MsgInfo = '!'\r\n\t Void = msg( '', MsgInfo )\r\n\t LineErr = true$\r\n\t end\r\n end\r\nnext i\r\nif LineErr then\r\n return 0\r\nend else\r\n\tif rowexists( 'WAFER_INV', .waf_inv_no->text ) else\r\n\t .entry_id->text = @user4\r\n\tend\r\n\treturn 1\r\nend" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/WM_IN..json b/LSL2/OIEVENT/WRITE/WM_IN..json new file mode 100644 index 0000000..860b024 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/WM_IN..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_WM_In\r\n\r\nRETURN Comm_WM_In('Write')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/WM_OUT..json b/LSL2/OIEVENT/WRITE/WM_OUT..json new file mode 100644 index 0000000..78c47fb --- /dev/null +++ b/LSL2/OIEVENT/WRITE/WM_OUT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION Comm_WM_Out\r\nRETURN Comm_WM_Out('Write')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/WO..json b/LSL2/OIEVENT/WRITE/WO..json new file mode 100644 index 0000000..52b9067 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/WO..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE Subroutine COMM_WO\r\n\r\nComm_WO('Write')\r\n\r\nRETURN 1" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/WO_LOG..json b/LSL2/OIEVENT/WRITE/WO_LOG..json new file mode 100644 index 0000000..0d49a01 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/WO_LOG..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function rowexists, next_mesa_wo_log_key, post_event, Get_Property\r\ndeclare subroutine forward_event,Set_Property\r\n\r\n* Dead as of 1/23/2006\r\n\r\n/*\r\nif rowexists( 'WO_LOG', .wo_no->text ) else\r\n .entry_id->text = @user4\r\n if .received_time->text = '' then\r\n .received_time->text = '10:00AM'\r\n end\r\nend\r\n\r\nCommitDate = .commit_date->text\r\nif CommitDate = '' then\r\n\t\r\n CurReceivedDate = iconv( .received_date->text, 'D' )\r\n if ( CurReceivedDate <> '' ) then\r\n .commit_date->text = oconv( CurReceivedDate + 14, 'D2/' )\r\n * STANDARD 14 DAY TURN AROUND\r\n end\r\nend\r\n\r\nRxDt = Get_Property(@WINDOW:'.RECEIVED_DATE','TEXT')\r\nRxTm = Get_Property(@WINDOW:'.RECEIVED_TIME','TEXT')\r\n\r\nSet_Property(@WINDOW:'.RX_DTM','DEFPROP',RxDt:' ':RxTm)\r\n\r\nforward_event()\r\n\r\nif get_property( @window, '@RetWoLog' ) then\r\n Void = post_event( @window, 'CLOSE' )\r\n Void = post_event( 'WO_MAST_SCHED.SCHED_INFO', 'OMNIEVENT' )\r\nend\r\nreturn 0\r\n*/" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/WO_LOG2..json b/LSL2/OIEVENT/WRITE/WO_LOG2..json new file mode 100644 index 0000000..d6695b3 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/WO_LOG2..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION COMM_WO_LOG\r\n\r\nRETURN Comm_WO_LOG('Write')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/WO_LOG2_DPC..json b/LSL2/OIEVENT/WRITE/WO_LOG2_DPC..json new file mode 100644 index 0000000..d6695b3 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/WO_LOG2_DPC..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION COMM_WO_LOG\r\n\r\nRETURN Comm_WO_LOG('Write')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/WO_LOG_GAN..json b/LSL2/OIEVENT/WRITE/WO_LOG_GAN..json new file mode 100644 index 0000000..af92470 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/WO_LOG_GAN..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE FUNCTION WO_Log_Gan\r\n\r\nRETURN WO_Log_Gan(@WINDOW,'WRITE')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/WO_MAT..json b/LSL2/OIEVENT/WRITE/WO_MAT..json new file mode 100644 index 0000000..b32b9aa --- /dev/null +++ b/LSL2/OIEVENT/WRITE/WO_MAT..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE SUBROUTINE ErrMsg\r\n\r\nErrMsg('This window may not be saved.')\r\n\r\nRETURN 0\r\n" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/WO_MAT_GAN..json b/LSL2/OIEVENT/WRITE/WO_MAT_GAN..json new file mode 100644 index 0000000..c136cfe --- /dev/null +++ b/LSL2/OIEVENT/WRITE/WO_MAT_GAN..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "Declare function WO_MAT_GAN_EVENTS\r\n\r\nRETURN WO_MAT_GAN_EVENTS(CtrlEntID, 'WRITE')" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/WO_PROD..json b/LSL2/OIEVENT/WRITE/WO_PROD..json new file mode 100644 index 0000000..4a3a869 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/WO_PROD..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE SUBROUTINE ErrMsg\r\n\r\nErrMsg('This window may not be saved.')\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/WO_PROD_EPI..json b/LSL2/OIEVENT/WRITE/WO_PROD_EPI..json new file mode 100644 index 0000000..4a3a869 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/WO_PROD_EPI..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "DECLARE SUBROUTINE ErrMsg\r\n\r\nErrMsg('This window may not be saved.')\r\n\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/OIEVENT/WRITE/WO_VERIFY..json b/LSL2/OIEVENT/WRITE/WO_VERIFY..json new file mode 100644 index 0000000..c8026d6 --- /dev/null +++ b/LSL2/OIEVENT/WRITE/WO_VERIFY..json @@ -0,0 +1,11 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "declare function post_event, rds_comm\r\ndeclare subroutine forward_event\r\n\r\n\r\nVoid = post_event( @window, 'CLOSE' )\r\nVoid = post_event( 'RDS.WO_VERIFY_VIEW', 'OMNIEVENT' )\r\nforward_event()\r\nRETURN 0" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/AC_LOOKUP_OPTS.json b/LSL2/POPUP/AC_LOOKUP_OPTS.json new file mode 100644 index 0000000..86e4a2f --- /dev/null +++ b/LSL2/POPUP/AC_LOOKUP_OPTS.json @@ -0,0 +1,71 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "View Current AC...", + "<8,2>": "Goto AC Window...", + "<8,3>": "Goto AC Window with All Open ACs...", + "<8,4>": "View/Choose Via Popup..." + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "29", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Option" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Annual Contract Lookup Options", + "<13>": "", + "<14>": "P", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/AKRION_RECIPES.json b/LSL2/POPUP/AKRION_RECIPES.json new file mode 100644 index 0000000..aa51666 --- /dev/null +++ b/LSL2/POPUP/AKRION_RECIPES.json @@ -0,0 +1,73 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Recipe" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "AKRION Recipe", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/AKRION_TEST_RECIPES.json b/LSL2/POPUP/AKRION_TEST_RECIPES.json new file mode 100644 index 0000000..f347a95 --- /dev/null +++ b/LSL2/POPUP/AKRION_TEST_RECIPES.json @@ -0,0 +1,114 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "IRFAB2", + "<8,1,2>": "Particle Testing" + }, + "<8,2>": { + "<8,2,1>": "QUALRECI", + "<8,2,2>": "Particle Testing" + }, + "<8,3>": { + "<8,3,1>": "QUALETCH", + "<8,3,2>": "Etch Rate Testing" + }, + "<8,4>": { + "<8,4,1>": "QUALDILUTE", + "<8,4,2>": "Etch Rate Testing" + }, + "<8,5>": { + "<8,5,1>": "DRYONLY", + "<8,5,2>": "OCAP" + }, + "<8,6>": { + "<8,6,1>": "METAL", + "<8,6,2>": "Tests for Metals" + }, + "<8,7>": { + "<8,7,1>": "SC1ONLY", + "<8,7,2>": "SC1 Test Only" + }, + "<8,8>": { + "<8,8,1>": "SC2ONLY", + "<8,8,2>": "SC2 Test Only" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "15", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Recipe ID" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "30", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Description" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "AKRION Test Recipes", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/ANALYSIS_TYPE.json b/LSL2/POPUP/ANALYSIS_TYPE.json new file mode 100644 index 0000000..2805030 --- /dev/null +++ b/LSL2/POPUP/ANALYSIS_TYPE.json @@ -0,0 +1,76 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "Business", + "<8,2>": "Reactor Type" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "15", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Analysis Type" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Analysis Type", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/ANNUAL_CONTRACTS_QUERY.json b/LSL2/POPUP/ANNUAL_CONTRACTS_QUERY.json new file mode 100644 index 0000000..8e4ea45 --- /dev/null +++ b/LSL2/POPUP/ANNUAL_CONTRACTS_QUERY.json @@ -0,0 +1,104 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "ANNUAL_CONTRACTS", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "CUST_NO", + "<9,1,2>": "18", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "[XLATE_CONV,COMPANY*CO_NAME]", + "<9,1,6>": "Customer" + }, + "<9,2>": { + "<9,2,1>": "PO", + "<9,2,2>": "15", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "PO" + }, + "<9,3>": { + "<9,3,1>": "FROM_DATE", + "<9,3,2>": "11", + "<9,3,3>": "R", + "<9,3,4>": "C", + "<9,3,5>": "D2/", + "<9,3,6>": "From Date" + }, + "<9,4>": { + "<9,4,1>": "THRU_DATE", + "<9,4,2>": "11", + "<9,4,3>": "R", + "<9,4,4>": "C", + "<9,4,5>": "D2/", + "<9,4,6>": "Thru Date" + }, + "<9,5>": { + "<9,5,1>": "ENTRY_ID", + "<9,5,2>": "20", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,5,6>": "Entry ID" + }, + "<9,6>": { + "<9,6,1>": "ENTRY_DATE", + "<9,6,2>": "11", + "<9,6,3>": "R", + "<9,6,4>": "C", + "<9,6,5>": "D2/", + "<9,6,6>": "Entry Date" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Annual Contracts", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/ANN_CONT_QUOTES.json b/LSL2/POPUP/ANN_CONT_QUOTES.json new file mode 100644 index 0000000..480b704 --- /dev/null +++ b/LSL2/POPUP/ANN_CONT_QUOTES.json @@ -0,0 +1,125 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "col1", + "<8,1,2>": "col2" + }, + "<8,2>": { + "<8,2,1>": "col1a", + "<8,2,2>": "col2a" + }, + "<8,3>": { + "<8,3,1>": "col1b", + "<8,3,2>": "col3b" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "L", + "<9,1,5>": "", + "<9,1,6>": "Quote No" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "10", + "<9,2,3>": "L", + "<9,2,4>": "L", + "<9,2,5>": "[QUOTE_STATUS_CONV]", + "<9,2,6>": "Status" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "10", + "<9,3,3>": "C", + "<9,3,4>": "L", + "<9,3,5>": "", + "<9,3,6>": "Layer Set" + }, + "<9,4>": { + "<9,4,1>": "4", + "<9,4,2>": "10", + "<9,4,3>": "C", + "<9,4,4>": "L", + "<9,4,5>": "", + "<9,4,6>": "PSN" + }, + "<9,5>": { + "<9,5,1>": "5", + "<9,5,2>": "20", + "<9,5,3>": "L", + "<9,5,4>": "L", + "<9,5,5>": "[PROD_SPEC_STATUS_CONV]", + "<9,5,6>": "PSN Status" + }, + "<9,6>": { + "<9,6,1>": "6", + "<9,6,2>": "20", + "<9,6,3>": "L", + "<9,6,4>": "L", + "<9,6,5>": "", + "<9,6,6>": "Part No" + }, + "<9,7>": { + "<9,7,1>": "", + "<9,7,2>": "", + "<9,7,3>": "", + "<9,7,4>": "", + "<9,7,5>": "", + "<9,7,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Annual Contract Quotes", + "<13>": "", + "<14>": "E", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/ASCII_CHART_JCH.json b/LSL2/POPUP/ASCII_CHART_JCH.json new file mode 100644 index 0000000..f66b198 --- /dev/null +++ b/LSL2/POPUP/ASCII_CHART_JCH.json @@ -0,0 +1,1370 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "50", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS LineDraw", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "2", + "<6,1,8>": "49", + "<6,1,9>": "0", + "<6,1,10>": "3", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0", + "<6,1,15>": "0", + "<6,1,16>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "0", + "<8,1,2>": "NUL", + "<8,1,3>": "00" + }, + "<8,2>": { + "<8,2,1>": "1", + "<8,2,2>": "SOH", + "<8,2,3>": "01" + }, + "<8,3>": { + "<8,3,1>": "2", + "<8,3,2>": "STX", + "<8,3,3>": "02" + }, + "<8,4>": { + "<8,4,1>": "3", + "<8,4,2>": "ETX", + "<8,4,3>": "03" + }, + "<8,5>": { + "<8,5,1>": "4", + "<8,5,2>": "EOT", + "<8,5,3>": "04" + }, + "<8,6>": { + "<8,6,1>": "5", + "<8,6,2>": "ENQ", + "<8,6,3>": "05" + }, + "<8,7>": { + "<8,7,1>": "6", + "<8,7,2>": "ACK", + "<8,7,3>": "06" + }, + "<8,8>": { + "<8,8,1>": "7", + "<8,8,2>": "BEL", + "<8,8,3>": "07" + }, + "<8,9>": { + "<8,9,1>": "8", + "<8,9,2>": "BS", + "<8,9,3>": "08" + }, + "<8,10>": { + "<8,10,1>": "9", + "<8,10,2>": "HT", + "<8,10,3>": "09" + }, + "<8,11>": { + "<8,11,1>": "10", + "<8,11,2>": "LF", + "<8,11,3>": "0A" + }, + "<8,12>": { + "<8,12,1>": "11", + "<8,12,2>": "VT", + "<8,12,3>": "0B" + }, + "<8,13>": { + "<8,13,1>": "12", + "<8,13,2>": "FF", + "<8,13,3>": "0C" + }, + "<8,14>": { + "<8,14,1>": "13", + "<8,14,2>": "CR", + "<8,14,3>": "0D" + }, + "<8,15>": { + "<8,15,1>": "14", + "<8,15,2>": "SO", + "<8,15,3>": "0E" + }, + "<8,16>": { + "<8,16,1>": "15", + "<8,16,2>": "SI", + "<8,16,3>": "0F" + }, + "<8,17>": { + "<8,17,1>": "16", + "<8,17,2>": "DLF", + "<8,17,3>": "10" + }, + "<8,18>": { + "<8,18,1>": "17", + "<8,18,2>": "DC1 (Xon)", + "<8,18,3>": "11" + }, + "<8,19>": { + "<8,19,1>": "18", + "<8,19,2>": "DC2", + "<8,19,3>": "12" + }, + "<8,20>": { + "<8,20,1>": "19", + "<8,20,2>": "DC3 (Xoff)", + "<8,20,3>": "13" + }, + "<8,21>": { + "<8,21,1>": "20", + "<8,21,2>": "DC4", + "<8,21,3>": "14" + }, + "<8,22>": { + "<8,22,1>": "21", + "<8,22,2>": "NAK", + "<8,22,3>": "15" + }, + "<8,23>": { + "<8,23,1>": "22", + "<8,23,2>": "SYN", + "<8,23,3>": "16" + }, + "<8,24>": { + "<8,24,1>": "23", + "<8,24,2>": "ETB", + "<8,24,3>": "17" + }, + "<8,25>": { + "<8,25,1>": "24", + "<8,25,2>": "CAN", + "<8,25,3>": "18" + }, + "<8,26>": { + "<8,26,1>": "25", + "<8,26,2>": "EM", + "<8,26,3>": "19" + }, + "<8,27>": { + "<8,27,1>": "26", + "<8,27,2>": "SUB", + "<8,27,3>": "1A" + }, + "<8,28>": { + "<8,28,1>": "27", + "<8,28,2>": "ESC", + "<8,28,3>": "1B" + }, + "<8,29>": { + "<8,29,1>": "28", + "<8,29,2>": "FS", + "<8,29,3>": "1C" + }, + "<8,30>": { + "<8,30,1>": "29", + "<8,30,2>": "GS", + "<8,30,3>": "1D" + }, + "<8,31>": { + "<8,31,1>": "30", + "<8,31,2>": "RS", + "<8,31,3>": "1E" + }, + "<8,32>": { + "<8,32,1>": "31", + "<8,32,2>": "US", + "<8,32,3>": "1F" + }, + "<8,33>": { + "<8,33,1>": "32", + "<8,33,2>": "Space", + "<8,33,3>": "20" + }, + "<8,34>": { + "<8,34,1>": "33", + "<8,34,2>": "!", + "<8,34,3>": "21" + }, + "<8,35>": { + "<8,35,1>": "34", + "<8,35,2>": "\"", + "<8,35,3>": "22" + }, + "<8,36>": { + "<8,36,1>": "35", + "<8,36,2>": "#", + "<8,36,3>": "23" + }, + "<8,37>": { + "<8,37,1>": "36", + "<8,37,2>": "$", + "<8,37,3>": "24" + }, + "<8,38>": { + "<8,38,1>": "37", + "<8,38,2>": "%", + "<8,38,3>": "25" + }, + "<8,39>": { + "<8,39,1>": "38", + "<8,39,2>": "&", + "<8,39,3>": "26" + }, + "<8,40>": { + "<8,40,1>": "39", + "<8,40,2>": "'", + "<8,40,3>": "27" + }, + "<8,41>": { + "<8,41,1>": "40", + "<8,41,2>": "(", + "<8,41,3>": "28" + }, + "<8,42>": { + "<8,42,1>": "41", + "<8,42,2>": ")", + "<8,42,3>": "29" + }, + "<8,43>": { + "<8,43,1>": "42", + "<8,43,2>": "*", + "<8,43,3>": "2A" + }, + "<8,44>": { + "<8,44,1>": "43", + "<8,44,2>": "+", + "<8,44,3>": "2B" + }, + "<8,45>": { + "<8,45,1>": "44", + "<8,45,2>": ",", + "<8,45,3>": "2C" + }, + "<8,46>": { + "<8,46,1>": "45", + "<8,46,2>": "-", + "<8,46,3>": "2D" + }, + "<8,47>": { + "<8,47,1>": "46", + "<8,47,2>": ".", + "<8,47,3>": "2E" + }, + "<8,48>": { + "<8,48,1>": "47", + "<8,48,2>": "/", + "<8,48,3>": "2F" + }, + "<8,49>": { + "<8,49,1>": "48", + "<8,49,2>": "0", + "<8,49,3>": "30" + }, + "<8,50>": { + "<8,50,1>": "49", + "<8,50,2>": "1", + "<8,50,3>": "31" + }, + "<8,51>": { + "<8,51,1>": "50", + "<8,51,2>": "2", + "<8,51,3>": "32" + }, + "<8,52>": { + "<8,52,1>": "51", + "<8,52,2>": "3", + "<8,52,3>": "33" + }, + "<8,53>": { + "<8,53,1>": "52", + "<8,53,2>": "4", + "<8,53,3>": "34" + }, + "<8,54>": { + "<8,54,1>": "53", + "<8,54,2>": "5", + "<8,54,3>": "35" + }, + "<8,55>": { + "<8,55,1>": "54", + "<8,55,2>": "6", + "<8,55,3>": "36" + }, + "<8,56>": { + "<8,56,1>": "55", + "<8,56,2>": "7", + "<8,56,3>": "37" + }, + "<8,57>": { + "<8,57,1>": "56", + "<8,57,2>": "8", + "<8,57,3>": "38" + }, + "<8,58>": { + "<8,58,1>": "57", + "<8,58,2>": "9", + "<8,58,3>": "39" + }, + "<8,59>": { + "<8,59,1>": "58", + "<8,59,2>": ":", + "<8,59,3>": "3A" + }, + "<8,60>": { + "<8,60,1>": "59", + "<8,60,2>": ";", + "<8,60,3>": "3B" + }, + "<8,61>": { + "<8,61,1>": "60", + "<8,61,2>": "<", + "<8,61,3>": "3C" + }, + "<8,62>": { + "<8,62,1>": "61", + "<8,62,2>": "=", + "<8,62,3>": "3D" + }, + "<8,63>": { + "<8,63,1>": "62", + "<8,63,2>": ">", + "<8,63,3>": "3E" + }, + "<8,64>": { + "<8,64,1>": "63", + "<8,64,2>": "?", + "<8,64,3>": "3F" + }, + "<8,65>": { + "<8,65,1>": "64", + "<8,65,2>": "@", + "<8,65,3>": "40" + }, + "<8,66>": { + "<8,66,1>": "65", + "<8,66,2>": "A", + "<8,66,3>": "41" + }, + "<8,67>": { + "<8,67,1>": "66", + "<8,67,2>": "B", + "<8,67,3>": "42" + }, + "<8,68>": { + "<8,68,1>": "67", + "<8,68,2>": "C", + "<8,68,3>": "43" + }, + "<8,69>": { + "<8,69,1>": "68", + "<8,69,2>": "D", + "<8,69,3>": "44" + }, + "<8,70>": { + "<8,70,1>": "69", + "<8,70,2>": "E", + "<8,70,3>": "45" + }, + "<8,71>": { + "<8,71,1>": "70", + "<8,71,2>": "F", + "<8,71,3>": "46" + }, + "<8,72>": { + "<8,72,1>": "71", + "<8,72,2>": "G", + "<8,72,3>": "47" + }, + "<8,73>": { + "<8,73,1>": "72", + "<8,73,2>": "H", + "<8,73,3>": "48" + }, + "<8,74>": { + "<8,74,1>": "73", + "<8,74,2>": "I", + "<8,74,3>": "49" + }, + "<8,75>": { + "<8,75,1>": "74", + "<8,75,2>": "J", + "<8,75,3>": "4A" + }, + "<8,76>": { + "<8,76,1>": "75", + "<8,76,2>": "K", + "<8,76,3>": "4B" + }, + "<8,77>": { + "<8,77,1>": "76", + "<8,77,2>": "L", + "<8,77,3>": "4C" + }, + "<8,78>": { + "<8,78,1>": "77", + "<8,78,2>": "M", + "<8,78,3>": "4D" + }, + "<8,79>": { + "<8,79,1>": "78", + "<8,79,2>": "N", + "<8,79,3>": "4E" + }, + "<8,80>": { + "<8,80,1>": "79", + "<8,80,2>": "O", + "<8,80,3>": "4F" + }, + "<8,81>": { + "<8,81,1>": "80", + "<8,81,2>": "P", + "<8,81,3>": "50" + }, + "<8,82>": { + "<8,82,1>": "81", + "<8,82,2>": "Q", + "<8,82,3>": "51" + }, + "<8,83>": { + "<8,83,1>": "82", + "<8,83,2>": "R", + "<8,83,3>": "52" + }, + "<8,84>": { + "<8,84,1>": "83", + "<8,84,2>": "S", + "<8,84,3>": "53" + }, + "<8,85>": { + "<8,85,1>": "84", + "<8,85,2>": "T", + "<8,85,3>": "54" + }, + "<8,86>": { + "<8,86,1>": "85", + "<8,86,2>": "U", + "<8,86,3>": "55" + }, + "<8,87>": { + "<8,87,1>": "86", + "<8,87,2>": "V", + "<8,87,3>": "56" + }, + "<8,88>": { + "<8,88,1>": "87", + "<8,88,2>": "W", + "<8,88,3>": "57" + }, + "<8,89>": { + "<8,89,1>": "88", + "<8,89,2>": "X", + "<8,89,3>": "58" + }, + "<8,90>": { + "<8,90,1>": "89", + "<8,90,2>": "Y", + "<8,90,3>": "59" + }, + "<8,91>": { + "<8,91,1>": "90", + "<8,91,2>": "Z", + "<8,91,3>": "5A" + }, + "<8,92>": { + "<8,92,1>": "91", + "<8,92,2>": "[", + "<8,92,3>": "5B" + }, + "<8,93>": { + "<8,93,1>": "92", + "<8,93,2>": "\\", + "<8,93,3>": "5C" + }, + "<8,94>": { + "<8,94,1>": "93", + "<8,94,2>": "]", + "<8,94,3>": "5D" + }, + "<8,95>": { + "<8,95,1>": "94", + "<8,95,2>": "^", + "<8,95,3>": "5E" + }, + "<8,96>": { + "<8,96,1>": "95", + "<8,96,2>": "_", + "<8,96,3>": "5F" + }, + "<8,97>": { + "<8,97,1>": "96", + "<8,97,2>": "`", + "<8,97,3>": "60" + }, + "<8,98>": { + "<8,98,1>": "97", + "<8,98,2>": "a", + "<8,98,3>": "61" + }, + "<8,99>": { + "<8,99,1>": "98", + "<8,99,2>": "b", + "<8,99,3>": "62" + }, + "<8,100>": { + "<8,100,1>": "99", + "<8,100,2>": "c", + "<8,100,3>": "63" + }, + "<8,101>": { + "<8,101,1>": "100", + "<8,101,2>": "d", + "<8,101,3>": "64" + }, + "<8,102>": { + "<8,102,1>": "101", + "<8,102,2>": "e", + "<8,102,3>": "65" + }, + "<8,103>": { + "<8,103,1>": "102", + "<8,103,2>": "f", + "<8,103,3>": "66" + }, + "<8,104>": { + "<8,104,1>": "103", + "<8,104,2>": "g", + "<8,104,3>": "67" + }, + "<8,105>": { + "<8,105,1>": "104", + "<8,105,2>": "h", + "<8,105,3>": "68" + }, + "<8,106>": { + "<8,106,1>": "105", + "<8,106,2>": "i", + "<8,106,3>": "69" + }, + "<8,107>": { + "<8,107,1>": "106", + "<8,107,2>": "j", + "<8,107,3>": "6A" + }, + "<8,108>": { + "<8,108,1>": "107", + "<8,108,2>": "k", + "<8,108,3>": "6B" + }, + "<8,109>": { + "<8,109,1>": "108", + "<8,109,2>": "l", + "<8,109,3>": "6C" + }, + "<8,110>": { + "<8,110,1>": "109", + "<8,110,2>": "m", + "<8,110,3>": "6D" + }, + "<8,111>": { + "<8,111,1>": "110", + "<8,111,2>": "n", + "<8,111,3>": "6E" + }, + "<8,112>": { + "<8,112,1>": "111", + "<8,112,2>": "o", + "<8,112,3>": "6F" + }, + "<8,113>": { + "<8,113,1>": "112", + "<8,113,2>": "p", + "<8,113,3>": "70" + }, + "<8,114>": { + "<8,114,1>": "113", + "<8,114,2>": "q", + "<8,114,3>": "71" + }, + "<8,115>": { + "<8,115,1>": "114", + "<8,115,2>": "r", + "<8,115,3>": "72" + }, + "<8,116>": { + "<8,116,1>": "115", + "<8,116,2>": "s", + "<8,116,3>": "73" + }, + "<8,117>": { + "<8,117,1>": "116", + "<8,117,2>": "t", + "<8,117,3>": "74" + }, + "<8,118>": { + "<8,118,1>": "117", + "<8,118,2>": "u", + "<8,118,3>": "75" + }, + "<8,119>": { + "<8,119,1>": "118", + "<8,119,2>": "v", + "<8,119,3>": "76" + }, + "<8,120>": { + "<8,120,1>": "119", + "<8,120,2>": "w", + "<8,120,3>": "77" + }, + "<8,121>": { + "<8,121,1>": "120", + "<8,121,2>": "x", + "<8,121,3>": "78" + }, + "<8,122>": { + "<8,122,1>": "121", + "<8,122,2>": "y", + "<8,122,3>": "79" + }, + "<8,123>": { + "<8,123,1>": "122", + "<8,123,2>": "z", + "<8,123,3>": "7A" + }, + "<8,124>": { + "<8,124,1>": "123", + "<8,124,2>": "{", + "<8,124,3>": "7B" + }, + "<8,125>": { + "<8,125,1>": "124", + "<8,125,2>": "Vertical bar", + "<8,125,3>": "7C" + }, + "<8,126>": { + "<8,126,1>": "125", + "<8,126,2>": "}", + "<8,126,3>": "7D" + }, + "<8,127>": { + "<8,127,1>": "126", + "<8,127,2>": "~", + "<8,127,3>": "7E" + }, + "<8,128>": { + "<8,128,1>": "127", + "<8,128,2>": "DEL", + "<8,128,3>": "7F" + }, + "<8,129>": { + "<8,129,1>": "128", + "<8,129,2>": "€", + "<8,129,3>": "80" + }, + "<8,130>": { + "<8,130,1>": "129", + "<8,130,2>": "", + "<8,130,3>": "81" + }, + "<8,131>": { + "<8,131,1>": "130", + "<8,131,2>": "‚", + "<8,131,3>": "82" + }, + "<8,132>": { + "<8,132,1>": "131", + "<8,132,2>": "ƒ", + "<8,132,3>": "83" + }, + "<8,133>": { + "<8,133,1>": "132", + "<8,133,2>": "„", + "<8,133,3>": "84" + }, + "<8,134>": { + "<8,134,1>": "133", + "<8,134,2>": "…", + "<8,134,3>": "85" + }, + "<8,135>": { + "<8,135,1>": "134", + "<8,135,2>": "†", + "<8,135,3>": "86" + }, + "<8,136>": { + "<8,136,1>": "135", + "<8,136,2>": "‡", + "<8,136,3>": "87" + }, + "<8,137>": { + "<8,137,1>": "136", + "<8,137,2>": "ˆ", + "<8,137,3>": "88" + }, + "<8,138>": { + "<8,138,1>": "137", + "<8,138,2>": "‰", + "<8,138,3>": "89" + }, + "<8,139>": { + "<8,139,1>": "138", + "<8,139,2>": "Š", + "<8,139,3>": "8A" + }, + "<8,140>": { + "<8,140,1>": "139", + "<8,140,2>": "‹", + "<8,140,3>": "8B" + }, + "<8,141>": { + "<8,141,1>": "140", + "<8,141,2>": "Œ", + "<8,141,3>": "8C" + }, + "<8,142>": { + "<8,142,1>": "141", + "<8,142,2>": "", + "<8,142,3>": "8D" + }, + "<8,143>": { + "<8,143,1>": "142", + "<8,143,2>": "Ž", + "<8,143,3>": "8E" + }, + "<8,144>": { + "<8,144,1>": "143", + "<8,144,2>": "", + "<8,144,3>": "8F" + }, + "<8,145>": { + "<8,145,1>": "144", + "<8,145,2>": "", + "<8,145,3>": "90" + }, + "<8,146>": { + "<8,146,1>": "145", + "<8,146,2>": "‘", + "<8,146,3>": "91" + }, + "<8,147>": { + "<8,147,1>": "146", + "<8,147,2>": "’", + "<8,147,3>": "92" + }, + "<8,148>": { + "<8,148,1>": "147", + "<8,148,2>": "“", + "<8,148,3>": "93" + }, + "<8,149>": { + "<8,149,1>": "148", + "<8,149,2>": "”", + "<8,149,3>": "94" + }, + "<8,150>": { + "<8,150,1>": "149", + "<8,150,2>": "•", + "<8,150,3>": "95" + }, + "<8,151>": { + "<8,151,1>": "150", + "<8,151,2>": "–", + "<8,151,3>": "96" + }, + "<8,152>": { + "<8,152,1>": "151", + "<8,152,2>": "—", + "<8,152,3>": "97" + }, + "<8,153>": { + "<8,153,1>": "152", + "<8,153,2>": "˜", + "<8,153,3>": "98" + }, + "<8,154>": { + "<8,154,1>": "153", + "<8,154,2>": "™", + "<8,154,3>": "99" + }, + "<8,155>": { + "<8,155,1>": "154", + "<8,155,2>": "š", + "<8,155,3>": "9A" + }, + "<8,156>": { + "<8,156,1>": "155", + "<8,156,2>": "›", + "<8,156,3>": "9B" + }, + "<8,157>": { + "<8,157,1>": "156", + "<8,157,2>": "œ", + "<8,157,3>": "9C" + }, + "<8,158>": { + "<8,158,1>": "157", + "<8,158,2>": "", + "<8,158,3>": "9D" + }, + "<8,159>": { + "<8,159,1>": "158", + "<8,159,2>": "ž", + "<8,159,3>": "9E" + }, + "<8,160>": { + "<8,160,1>": "159", + "<8,160,2>": "Ÿ", + "<8,160,3>": "9F" + }, + "<8,161>": { + "<8,161,1>": "160", + "<8,161,2>": " ", + "<8,161,3>": "A0" + }, + "<8,162>": { + "<8,162,1>": "161", + "<8,162,2>": "¡", + "<8,162,3>": "A1" + }, + "<8,163>": { + "<8,163,1>": "162", + "<8,163,2>": "¢", + "<8,163,3>": "A2" + }, + "<8,164>": { + "<8,164,1>": "163", + "<8,164,2>": "£", + "<8,164,3>": "A3" + }, + "<8,165>": { + "<8,165,1>": "164", + "<8,165,2>": "¤", + "<8,165,3>": "A4" + }, + "<8,166>": { + "<8,166,1>": "165", + "<8,166,2>": "¥", + "<8,166,3>": "A5" + }, + "<8,167>": { + "<8,167,1>": "166", + "<8,167,2>": "¦", + "<8,167,3>": "A6" + }, + "<8,168>": { + "<8,168,1>": "167", + "<8,168,2>": "§", + "<8,168,3>": "A7" + }, + "<8,169>": { + "<8,169,1>": "168", + "<8,169,2>": "¨", + "<8,169,3>": "A8" + }, + "<8,170>": { + "<8,170,1>": "169", + "<8,170,2>": "©", + "<8,170,3>": "A9" + }, + "<8,171>": { + "<8,171,1>": "170", + "<8,171,2>": "ª", + "<8,171,3>": "AA" + }, + "<8,172>": { + "<8,172,1>": "171", + "<8,172,2>": "«", + "<8,172,3>": "AB" + }, + "<8,173>": { + "<8,173,1>": "172", + "<8,173,2>": "¬", + "<8,173,3>": "AC" + }, + "<8,174>": { + "<8,174,1>": "173", + "<8,174,2>": "­", + "<8,174,3>": "AD" + }, + "<8,175>": { + "<8,175,1>": "174", + "<8,175,2>": "®", + "<8,175,3>": "AE" + }, + "<8,176>": { + "<8,176,1>": "175", + "<8,176,2>": "¯", + "<8,176,3>": "AF" + }, + "<8,177>": { + "<8,177,1>": "176", + "<8,177,2>": "°", + "<8,177,3>": "B0" + }, + "<8,178>": { + "<8,178,1>": "177", + "<8,178,2>": "±", + "<8,178,3>": "B1" + }, + "<8,179>": { + "<8,179,1>": "178", + "<8,179,2>": "²", + "<8,179,3>": "B2" + }, + "<8,180>": { + "<8,180,1>": "179", + "<8,180,2>": "³", + "<8,180,3>": "B3" + }, + "<8,181>": { + "<8,181,1>": "180", + "<8,181,2>": "´", + "<8,181,3>": "B4" + }, + "<8,182>": { + "<8,182,1>": "181", + "<8,182,2>": "µ", + "<8,182,3>": "B5" + }, + "<8,183>": { + "<8,183,1>": "182", + "<8,183,2>": "¶", + "<8,183,3>": "B6" + }, + "<8,184>": { + "<8,184,1>": "183", + "<8,184,2>": "·", + "<8,184,3>": "B7" + }, + "<8,185>": { + "<8,185,1>": "184", + "<8,185,2>": "¸", + "<8,185,3>": "B8" + }, + "<8,186>": { + "<8,186,1>": "185", + "<8,186,2>": "¹", + "<8,186,3>": "B9" + }, + "<8,187>": { + "<8,187,1>": "186", + "<8,187,2>": "º", + "<8,187,3>": "BA" + }, + "<8,188>": { + "<8,188,1>": "187", + "<8,188,2>": "»", + "<8,188,3>": "BB" + }, + "<8,189>": { + "<8,189,1>": "188", + "<8,189,2>": "¼", + "<8,189,3>": "BC" + }, + "<8,190>": { + "<8,190,1>": "189", + "<8,190,2>": "½", + "<8,190,3>": "BD" + }, + "<8,191>": { + "<8,191,1>": "190", + "<8,191,2>": "¾", + "<8,191,3>": "BE" + }, + "<8,192>": { + "<8,192,1>": "191", + "<8,192,2>": "¿", + "<8,192,3>": "BF" + }, + "<8,193>": { + "<8,193,1>": "192", + "<8,193,2>": "À", + "<8,193,3>": "C0" + }, + "<8,194>": { + "<8,194,1>": "193", + "<8,194,2>": "Á", + "<8,194,3>": "C1" + }, + "<8,195>": { + "<8,195,1>": "194", + "<8,195,2>": "Â", + "<8,195,3>": "C2" + }, + "<8,196>": { + "<8,196,1>": "195", + "<8,196,2>": "Ã", + "<8,196,3>": "C3" + }, + "<8,197>": { + "<8,197,1>": "196", + "<8,197,2>": "Ä", + "<8,197,3>": "C4" + }, + "<8,198>": { + "<8,198,1>": "197", + "<8,198,2>": "Å", + "<8,198,3>": "C5" + }, + "<8,199>": { + "<8,199,1>": "198", + "<8,199,2>": "Æ", + "<8,199,3>": "C6" + }, + "<8,200>": { + "<8,200,1>": "199", + "<8,200,2>": "Ç", + "<8,200,3>": "C7" + }, + "<8,201>": { + "<8,201,1>": "200", + "<8,201,2>": "È", + "<8,201,3>": "C8" + }, + "<8,202>": { + "<8,202,1>": "201", + "<8,202,2>": "É", + "<8,202,3>": "C9" + }, + "<8,203>": { + "<8,203,1>": "202", + "<8,203,2>": "Ê", + "<8,203,3>": "CA" + }, + "<8,204>": { + "<8,204,1>": "203", + "<8,204,2>": "Ë", + "<8,204,3>": "CB" + }, + "<8,205>": { + "<8,205,1>": "204", + "<8,205,2>": "Ì", + "<8,205,3>": "CC" + }, + "<8,206>": { + "<8,206,1>": "205", + "<8,206,2>": "Í", + "<8,206,3>": "CD" + }, + "<8,207>": { + "<8,207,1>": "206", + "<8,207,2>": "Î", + "<8,207,3>": "CE" + }, + "<8,208>": { + "<8,208,1>": "207", + "<8,208,2>": "Ï", + "<8,208,3>": "CF" + }, + "<8,209>": { + "<8,209,1>": "208", + "<8,209,2>": "Ð", + "<8,209,3>": "D0" + }, + "<8,210>": { + "<8,210,1>": "209", + "<8,210,2>": "Ñ", + "<8,210,3>": "D1" + }, + "<8,211>": { + "<8,211,1>": "210", + "<8,211,2>": "Ò", + "<8,211,3>": "D2" + }, + "<8,212>": { + "<8,212,1>": "211", + "<8,212,2>": "Ó", + "<8,212,3>": "D3" + }, + "<8,213>": { + "<8,213,1>": "212", + "<8,213,2>": "Ô", + "<8,213,3>": "D4" + }, + "<8,214>": { + "<8,214,1>": "213", + "<8,214,2>": "Õ", + "<8,214,3>": "D5" + }, + "<8,215>": { + "<8,215,1>": "214", + "<8,215,2>": "Ö", + "<8,215,3>": "D6" + }, + "<8,216>": { + "<8,216,1>": "215", + "<8,216,2>": "×", + "<8,216,3>": "D7" + }, + "<8,217>": { + "<8,217,1>": "216", + "<8,217,2>": "Ø", + "<8,217,3>": "D8" + }, + "<8,218>": { + "<8,218,1>": "217", + "<8,218,2>": "Ù", + "<8,218,3>": "D9" + }, + "<8,219>": { + "<8,219,1>": "218", + "<8,219,2>": "Ú", + "<8,219,3>": "DA" + }, + "<8,220>": { + "<8,220,1>": "219", + "<8,220,2>": "Û", + "<8,220,3>": "DB" + }, + "<8,221>": { + "<8,221,1>": "220", + "<8,221,2>": "Ü", + "<8,221,3>": "DC" + }, + "<8,222>": { + "<8,222,1>": "221", + "<8,222,2>": "Ý", + "<8,222,3>": "DD" + }, + "<8,223>": { + "<8,223,1>": "222", + "<8,223,2>": "Þ", + "<8,223,3>": "DE" + }, + "<8,224>": { + "<8,224,1>": "223", + "<8,224,2>": "ß", + "<8,224,3>": "DF" + }, + "<8,225>": { + "<8,225,1>": "224", + "<8,225,2>": "à", + "<8,225,3>": "E0" + }, + "<8,226>": { + "<8,226,1>": "225", + "<8,226,2>": "á", + "<8,226,3>": "E1" + }, + "<8,227>": { + "<8,227,1>": "226", + "<8,227,2>": "â", + "<8,227,3>": "E2" + }, + "<8,228>": { + "<8,228,1>": "227", + "<8,228,2>": "ã", + "<8,228,3>": "E3" + }, + "<8,229>": { + "<8,229,1>": "228", + "<8,229,2>": "ä", + "<8,229,3>": "E4" + }, + "<8,230>": { + "<8,230,1>": "229", + "<8,230,2>": "å", + "<8,230,3>": "E5" + }, + "<8,231>": { + "<8,231,1>": "230", + "<8,231,2>": "æ", + "<8,231,3>": "E6" + }, + "<8,232>": { + "<8,232,1>": "231", + "<8,232,2>": "ç", + "<8,232,3>": "E7" + }, + "<8,233>": { + "<8,233,1>": "232", + "<8,233,2>": "è", + "<8,233,3>": "E8" + }, + "<8,234>": { + "<8,234,1>": "233", + "<8,234,2>": "é", + "<8,234,3>": "E9" + }, + "<8,235>": { + "<8,235,1>": "234", + "<8,235,2>": "ê", + "<8,235,3>": "EA" + }, + "<8,236>": { + "<8,236,1>": "235", + "<8,236,2>": "ë", + "<8,236,3>": "EB" + }, + "<8,237>": { + "<8,237,1>": "236", + "<8,237,2>": "ì", + "<8,237,3>": "EC" + }, + "<8,238>": { + "<8,238,1>": "237", + "<8,238,2>": "í", + "<8,238,3>": "ED" + }, + "<8,239>": { + "<8,239,1>": "238", + "<8,239,2>": "î", + "<8,239,3>": "EE" + }, + "<8,240>": { + "<8,240,1>": "239", + "<8,240,2>": "ï", + "<8,240,3>": "EF" + }, + "<8,241>": { + "<8,241,1>": "240", + "<8,241,2>": "ð", + "<8,241,3>": "F0" + }, + "<8,242>": { + "<8,242,1>": "241", + "<8,242,2>": "ñ", + "<8,242,3>": "F1" + }, + "<8,243>": { + "<8,243,1>": "242", + "<8,243,2>": "ò", + "<8,243,3>": "F2" + }, + "<8,244>": { + "<8,244,1>": "243", + "<8,244,2>": "ó", + "<8,244,3>": "F3" + }, + "<8,245>": { + "<8,245,1>": "244", + "<8,245,2>": "ô", + "<8,245,3>": "F4" + }, + "<8,246>": { + "<8,246,1>": "245", + "<8,246,2>": "õ", + "<8,246,3>": "F5" + }, + "<8,247>": { + "<8,247,1>": "246", + "<8,247,2>": "ö", + "<8,247,3>": "F6" + }, + "<8,248>": { + "<8,248,1>": "247", + "<8,248,2>": "÷", + "<8,248,3>": "F7" + }, + "<8,249>": { + "<8,249,1>": "248", + "<8,249,2>": "ø", + "<8,249,3>": "F8" + }, + "<8,250>": { + "<8,250,1>": "249", + "<8,250,2>": "ù", + "<8,250,3>": "F9" + }, + "<8,251>": { + "<8,251,1>": "250", + "<8,251,2>": "STM", + "<8,251,3>": "FA" + }, + "<8,252>": { + "<8,252,1>": "251", + "<8,252,2>": "TM", + "<8,252,3>": "FB" + }, + "<8,253>": { + "<8,253,1>": "252", + "<8,253,2>": "SVM", + "<8,253,3>": "FC" + }, + "<8,254>": { + "<8,254,1>": "253", + "<8,254,2>": "VM", + "<8,254,3>": "FD" + }, + "<8,255>": { + "<8,255,1>": "254", + "<8,255,2>": "FM", + "<8,255,3>": "FE" + }, + "<8,256>": { + "<8,256,1>": "255", + "<8,256,2>": "RM", + "<8,256,3>": "FF" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "5", + "<9,1,3>": "L", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Num" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "8", + "<9,2,3>": "L", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "ASCII" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "5", + "<9,3,3>": "L", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "Hex" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "ASCII Chart", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16245453" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/ASM_MFC.json b/LSL2/POPUP/ASM_MFC.json new file mode 100644 index 0000000..6edc88a --- /dev/null +++ b/LSL2/POPUP/ASM_MFC.json @@ -0,0 +1,121 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "ASM_PART", + "<8>": "BY @ID WITH PART_TYPE = 'MFC'", + "<9>": { + "<9,1>": { + "<9,1,1>": "PART_NO", + "<9,1,2>": "15", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Part No" + }, + "<9,2>": { + "<9,2,1>": "RANGE", + "<9,2,2>": "5", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "MD0,", + "<9,2,6>": "Range" + }, + "<9,3>": { + "<9,3,1>": "FLOW", + "<9,3,2>": "10", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Flow" + }, + "<9,4>": { + "<9,4,1>": "GAS", + "<9,4,2>": "10", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Gas" + }, + "<9,5>": { + "<9,5,1>": "INLET_PRESS", + "<9,5,2>": "10", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Inlet Press" + }, + "<9,6>": { + "<9,6,1>": "OUTLET_PRESS", + "<9,6,2>": "10", + "<9,6,3>": "C", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Outlet Press" + }, + "<9,7>": { + "<9,7,1>": "", + "<9,7,2>": "", + "<9,7,3>": "", + "<9,7,4>": "", + "<9,7,5>": "", + "<9,7,6>": "" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "ASM MFC Part Numbers", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "12639424", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/ATTENDANCE_QUERY.json b/LSL2/POPUP/ATTENDANCE_QUERY.json new file mode 100644 index 0000000..0838de8 --- /dev/null +++ b/LSL2/POPUP/ATTENDANCE_QUERY.json @@ -0,0 +1,106 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "ATTENDANCE", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "DATE_ABSENT", + "<9,1,2>": "8", + "<9,1,3>": "R", + "<9,1,4>": "C", + "<9,1,5>": "D2/", + "<9,1,6>": "Date Absent" + }, + "<9,2>": { + "<9,2,1>": "EMPLOYEE_NAME", + "<9,2,2>": "15", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Employee Name" + }, + "<9,3>": { + "<9,3,1>": "EXCUSED", + "<9,3,2>": "2", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "B", + "<9,3,6>": "Excused" + }, + "<9,4>": { + "<9,4,1>": "SUPERVISOR_NAME", + "<9,4,2>": "15", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Supervisor Name" + }, + "<9,5>": { + "<9,5,1>": "TYPE", + "<9,5,2>": "15", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Type" + }, + "<9,6>": { + "<9,6,1>": "SHIFT", + "<9,6,2>": "5", + "<9,6,3>": "R", + "<9,6,4>": "C", + "<9,6,5>": "MD0", + "<9,6,6>": "Shift" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Attendance Report", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/AVAIL_MU_WAFERS.json b/LSL2/POPUP/AVAIL_MU_WAFERS.json new file mode 100644 index 0000000..3d95944 --- /dev/null +++ b/LSL2/POPUP/AVAIL_MU_WAFERS.json @@ -0,0 +1,129 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "RDS", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "WO", + "<9,1,2>": "8", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "WO" + }, + "<9,2>": { + "<9,2,1>": "RUN_ORDER_NUM", + "<9,2,2>": "5", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Run No" + }, + "<9,3>": { + "<9,3,1>": "SEQ", + "<9,3,2>": "9", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "MD0", + "<9,3,6>": "RDS" + }, + "<9,4>": { + "<9,4,1>": "REACTOR", + "<9,4,2>": "6", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "MD0", + "<9,4,6>": "Reactor" + }, + "<9,5>": { + "<9,5,1>": "BOX_TYPE", + "<9,5,2>": "10", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Box Type" + }, + "<9,6>": { + "<9,6,1>": "CURR_STATUS", + "<9,6,2>": "25", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "[RDS_CURR_STATUS_CONV]", + "<9,6,6>": "Curr Status" + }, + "<9,7>": { + "<9,7,1>": "WFRS_OUT", + "<9,7,2>": "9", + "<9,7,3>": "C", + "<9,7,4>": "C", + "<9,7,5>": "MD0,", + "<9,7,6>": "Avail Wafers" + }, + "<9,8>": { + "<9,8,1>": "PART_NUM", + "<9,8,2>": "20", + "<9,8,3>": "L", + "<9,8,4>": "C", + "<9,8,5>": "", + "<9,8,6>": "Part No" + } + }, + "<10>": "K", + "<11>": "1", + "<12>": "Available MU Wafers", + "<13>": "", + "<14>": "E", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/BAG_REQUIRMENTS.json b/LSL2/POPUP/BAG_REQUIRMENTS.json new file mode 100644 index 0000000..6241f69 --- /dev/null +++ b/LSL2/POPUP/BAG_REQUIRMENTS.json @@ -0,0 +1,85 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "Tape/PE Bag/TriLam Alum", + "<8,2>": "Tape/PE Bag/Desiccant/TriLam Alum", + "<8,3>": "" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Requirment" + }, + "<9,2>": { + "<9,2,1>": "", + "<9,2,2>": "", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Bagging Requirements", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/BOM.json b/LSL2/POPUP/BOM.json new file mode 100644 index 0000000..350fde4 --- /dev/null +++ b/LSL2/POPUP/BOM.json @@ -0,0 +1,113 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "PROD_VER", + "<8>": "BY PROD_VER_NO", + "<9>": { + "<9,1>": { + "<9,1,1>": "PROD_VER_NO", + "<9,1,2>": "14", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "Prod Ver No" + }, + "<9,2>": { + "<9,2,1>": "EPI_PART_NO", + "<9,2,2>": "15", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Epi Part No" + }, + "<9,3>": { + "<9,3,1>": "SUB_PART_NO", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Sub Part No" + }, + "<9,4>": { + "<9,4,1>": "REACT_TYPE", + "<9,4,2>": "10", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "[REACT_TYPE_CONV,OPSREF]", + "<9,4,6>": "React Type" + }, + "<9,5>": { + "<9,5,1>": "CUST_PART_NO", + "<9,5,2>": "15", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Cust Part No" + }, + "<9,6>": { + "<9,6,1>": "CUST_PART_DESC", + "<9,6,2>": "20", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Cust Part Desc" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "PROD_VER", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/CALB_LIST.json b/LSL2/POPUP/CALB_LIST.json new file mode 100644 index 0000000..04b1044 --- /dev/null +++ b/LSL2/POPUP/CALB_LIST.json @@ -0,0 +1,113 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "CALIB_LIST", + "<8>": "BY @ID", + "<9>": { + "<9,1>": { + "<9,1,1>": "CL_NO", + "<9,1,2>": "5", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "CL No" + }, + "<9,2>": { + "<9,2,1>": "CL_TYPE", + "<9,2,2>": "5", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "CL Type" + }, + "<9,3>": { + "<9,3,1>": "EQ_DESC", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Equipment Desc" + }, + "<9,4>": { + "<9,4,1>": "EQ_LEVEL", + "<9,4,2>": "5", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Eq Level" + }, + "<9,5>": { + "<9,5,1>": "EQ_LOC", + "<9,5,2>": "20", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Eq Location" + }, + "<9,6>": { + "<9,6,1>": "EQ_SN", + "<9,6,2>": "15", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Eq Serial" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "Calibration List", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/CALIB_LIST.json b/LSL2/POPUP/CALIB_LIST.json new file mode 100644 index 0000000..3a83bb2 --- /dev/null +++ b/LSL2/POPUP/CALIB_LIST.json @@ -0,0 +1,137 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "CALIB_LIST", + "<8>": "BY CL_NO", + "<9>": { + "<9,1>": { + "<9,1,1>": "CL_NO", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "CL No" + }, + "<9,2>": { + "<9,2,1>": "CL_TYPE", + "<9,2,2>": "5", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "CL Type" + }, + "<9,3>": { + "<9,3,1>": "EQ_DESC", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Equipment Desc" + }, + "<9,4>": { + "<9,4,1>": "EQ_LEVEL", + "<9,4,2>": "5", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Eq Level" + }, + "<9,5>": { + "<9,5,1>": "EQ_LOC", + "<9,5,2>": "20", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Eq Location" + }, + "<9,6>": { + "<9,6,1>": "EQ_SN", + "<9,6,2>": "15", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Eq Serial" + }, + "<9,7>": { + "<9,7,1>": "STD_DESC", + "<9,7,2>": "20", + "<9,7,3>": "L", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "NISC Std Desc" + }, + "<9,8>": { + "<9,8,1>": "STD_SN", + "<9,8,2>": "15", + "<9,8,3>": "L", + "<9,8,4>": "C", + "<9,8,5>": "", + "<9,8,6>": "NISC Std S/N" + }, + "<9,9>": { + "<9,9,1>": "STD_LOC", + "<9,9,2>": "20", + "<9,9,3>": "L", + "<9,9,4>": "C", + "<9,9,5>": "", + "<9,9,6>": "NISC Std Location" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Calibration List", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/CALIB_LIST_INT_EXT.json b/LSL2/POPUP/CALIB_LIST_INT_EXT.json new file mode 100644 index 0000000..5169e06 --- /dev/null +++ b/LSL2/POPUP/CALIB_LIST_INT_EXT.json @@ -0,0 +1,90 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "I", + "<8,1,2>": "Internal" + }, + "<8,2>": { + "<8,2,1>": "E", + "<8,2,2>": "External" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "15", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Description" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Calibration Location", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/CALIB_LIST_LOC.json b/LSL2/POPUP/CALIB_LIST_LOC.json new file mode 100644 index 0000000..5169e06 --- /dev/null +++ b/LSL2/POPUP/CALIB_LIST_LOC.json @@ -0,0 +1,90 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "I", + "<8,1,2>": "Internal" + }, + "<8,2>": { + "<8,2,1>": "E", + "<8,2,2>": "External" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "15", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Description" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Calibration Location", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/CALIB_LIST_TYPE.json b/LSL2/POPUP/CALIB_LIST_TYPE.json new file mode 100644 index 0000000..1219643 --- /dev/null +++ b/LSL2/POPUP/CALIB_LIST_TYPE.json @@ -0,0 +1,90 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "E", + "<8,1,2>": "Equipment" + }, + "<8,2>": { + "<8,2,1>": "S", + "<8,2,2>": "NIST Standard" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "15", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Type" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Calibration List Type ", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/CALL_VISIT_QUERY.json b/LSL2/POPUP/CALL_VISIT_QUERY.json new file mode 100644 index 0000000..d24ce5c --- /dev/null +++ b/LSL2/POPUP/CALL_VISIT_QUERY.json @@ -0,0 +1,80 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "CALL_VISIT", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "CUST_ID", + "<9,1,2>": "25", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "[XLATE_CONV,COMPANY*CO_NAME]", + "<9,1,6>": "Customer" + }, + "<9,2>": { + "<9,2,1>": "CALL_VISIT_DATE", + "<9,2,2>": "8", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "D2/", + "<9,2,6>": "Call/Visit Date" + }, + "<9,3>": { + "<9,3,1>": "SUBJECT", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Subject" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Customer Call/Visit", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/CAR_PRINT_OPTS.json b/LSL2/POPUP/CAR_PRINT_OPTS.json new file mode 100644 index 0000000..7709c75 --- /dev/null +++ b/LSL2/POPUP/CAR_PRINT_OPTS.json @@ -0,0 +1,91 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Customer's Copy", + "<8,1,2>": "1" + }, + "<8,2>": { + "<8,2,1>": "Internal Use", + "<8,2,2>": "2" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "L", + "<9,1,5>": "", + "<9,1,6>": "Option" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "L", + "<9,2,4>": "L", + "<9,2,5>": "", + "<9,2,6>": "" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "CAR Print Options", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/CAR_QUERY.json b/LSL2/POPUP/CAR_QUERY.json new file mode 100644 index 0000000..1cdecea --- /dev/null +++ b/LSL2/POPUP/CAR_QUERY.json @@ -0,0 +1,98 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "CAR", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "CUST_ID", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "[XLATE_CONV,COMPANY*CO_NAME]", + "<9,1,6>": "Customer" + }, + "<9,2>": { + "<9,2,1>": "COMPLAINT_TYPE", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Complaint Type" + }, + "<9,3>": { + "<9,3,1>": "RESP_USER_NAME", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Responsible User" + }, + "<9,4>": { + "<9,4,1>": "ISSUE_DATE", + "<9,4,2>": "11", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "D2/", + "<9,4,6>": "Issue Date" + }, + "<9,5>": { + "<9,5,1>": "STATUS", + "<9,5,2>": "15", + "<9,5,3>": "L", + "<9,5,4>": "", + "<9,5,5>": "[CAR_STATUS_CONV]", + "<9,5,6>": "Status" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "CAR", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/CASS_WAFER_IDS.json b/LSL2/POPUP/CASS_WAFER_IDS.json new file mode 100644 index 0000000..ff28287 --- /dev/null +++ b/LSL2/POPUP/CASS_WAFER_IDS.json @@ -0,0 +1,63 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "3", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0", + "<6,1,15>": "0", + "<6,1,16>": "0" + } + }, + "<7>": "WO_MAT", + "<8>": "BY @ID", + "<9>": { + "<9,1>": { + "<9,1,1>": "SLOT_WAFER_ID", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Slot Wafer Id" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "WO_MAT Popup", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/CDM_LOG_QUERY.json b/LSL2/POPUP/CDM_LOG_QUERY.json new file mode 100644 index 0000000..f40531b --- /dev/null +++ b/LSL2/POPUP/CDM_LOG_QUERY.json @@ -0,0 +1,90 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "CDM_LOG", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "DATE_CHANGED", + "<9,1,2>": "11", + "<9,1,3>": "R", + "<9,1,4>": "C", + "<9,1,5>": "D2/", + "<9,1,6>": "Date Changed" + }, + "<9,2>": { + "<9,2,1>": "TECH_SIG", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,2,6>": "Technician" + }, + "<9,3>": { + "<9,3,1>": "CHEMICAL_NAME", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Chemical Name" + }, + "<9,4>": { + "<9,4,1>": "LOT_NUM", + "<9,4,2>": "20", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Lot Number" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "CDM Log Report", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/CHAR_WFR_STAGES.json b/LSL2/POPUP/CHAR_WFR_STAGES.json new file mode 100644 index 0000000..dc1cc56 --- /dev/null +++ b/LSL2/POPUP/CHAR_WFR_STAGES.json @@ -0,0 +1,129 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Segoe UI", + "<6,1,2>": "-12", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "3", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "0" + } + }, + "<7>": "RUN_STAGE_WFR", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "WFR_ID", + "<9,1,2>": "12", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Wfr Id" + }, + "<9,2>": { + "<9,2,1>": "STAGE", + "<9,2,2>": "7", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Stage" + }, + "<9,3>": { + "<9,3,1>": "SPEC_TOOL_CLASS", + "<9,3,2>": "10", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Spec Tool Class" + }, + "<9,4>": { + "<9,4,1>": "TOOL_ID", + "<9,4,2>": "12", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Tool Id" + }, + "<9,5>": { + "<9,5,1>": "INV_ACTIONS", + "<9,5,2>": "16", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Inv Actions" + }, + "<9,6>": { + "<9,6,1>": "IA_COMP_BY", + "<9,6,2>": "16", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Inv Action Comp" + }, + "<9,7>": { + "<9,7,1>": "COMP_BY", + "<9,7,2>": "10", + "<9,7,3>": "L", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "Comp By" + }, + "<9,8>": { + "<9,8,1>": "COMP_DTM", + "<9,8,2>": "21", + "<9,8,3>": "R", + "<9,8,4>": "C", + "<9,8,5>": "DT", + "<9,8,6>": "Comp Dtm" + } + }, + "<10>": "K", + "<11>": "1", + "<12>": "Char Wfr Stages", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/CHOOSE_NAME.json b/LSL2/POPUP/CHOOSE_NAME.json new file mode 100644 index 0000000..ef32a0d --- /dev/null +++ b/LSL2/POPUP/CHOOSE_NAME.json @@ -0,0 +1,88 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "NAMES", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "FIRST", + "<9,1,2>": "10", + "<9,1,3>": "L", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "First Name" + }, + "<9,2>": { + "<9,2,1>": "LAST", + "<9,2,2>": "10", + "<9,2,3>": "L", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "Last Name" + }, + "<9,3>": { + "<9,3,1>": "TITLE", + "<9,3,2>": "15", + "<9,3,3>": "L", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "Title" + }, + "<9,4>": { + "<9,4,1>": "CO_ID", + "<9,4,2>": "20", + "<9,4,3>": "L", + "<9,4,4>": "", + "<9,4,5>": "[XLATE_CONV,COMPANY*CO_NAME]", + "<9,4,6>": "Company" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "Company Contact Names", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/CHOOSE_REACTOR_TYPE.json b/LSL2/POPUP/CHOOSE_REACTOR_TYPE.json new file mode 100644 index 0000000..6bf5f8b --- /dev/null +++ b/LSL2/POPUP/CHOOSE_REACTOR_TYPE.json @@ -0,0 +1,67 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "LISTBOX_CONFIG", + "<8>": { + "<8,1>": "REACTORTYPE", + "<8,2>": "1" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "15", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Type" + } + }, + "<10>": "F", + "<11>": "1", + "<12>": "Reactor Type", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/CHOOSE_RECIPE.json b/LSL2/POPUP/CHOOSE_RECIPE.json new file mode 100644 index 0000000..5b6fdcf --- /dev/null +++ b/LSL2/POPUP/CHOOSE_RECIPE.json @@ -0,0 +1,137 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "3", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0", + "<6,1,15>": "0", + "<6,1,16>": "0" + } + }, + "<7>": "RECIPE", + "<8>": "BY RECIPE_NAME", + "<9>": { + "<9,1>": { + "<9,1,1>": "SEQ", + "<9,1,2>": "8", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "Recipe No" + }, + "<9,2>": { + "<9,2,1>": "RECIPE_NAME", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Recipe Name" + }, + "<9,3>": { + "<9,3,1>": "EPI_DOPANT", + "<9,3,2>": "12", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Dopant" + }, + "<9,4>": { + "<9,4,1>": "EPI_TEMP", + "<9,4,2>": "6", + "<9,4,3>": "R", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Temp" + }, + "<9,5>": { + "<9,5,1>": "EPI_DILUENT", + "<9,5,2>": "7", + "<9,5,3>": "R", + "<9,5,4>": "C", + "<9,5,5>": "MD2", + "<9,5,6>": "Diluent" + }, + "<9,6>": { + "<9,6,1>": "EPI_GASES", + "<9,6,2>": "12", + "<9,6,3>": "C", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Source Gas" + }, + "<9,7>": { + "<9,7,1>": "EPI_GAS_RATE", + "<9,7,2>": "6", + "<9,7,3>": "R", + "<9,7,4>": "C", + "<9,7,5>": "MD2", + "<9,7,6>": "Source Rate" + }, + "<9,8>": { + "<9,8,1>": "EPI_GASES_UNIT", + "<9,8,2>": "6", + "<9,8,3>": "C", + "<9,8,4>": "C", + "<9,8,5>": "", + "<9,8,6>": "Unit" + }, + "<9,9>": { + "<9,9,1>": "", + "<9,9,2>": "", + "<9,9,3>": "", + "<9,9,4>": "", + "<9,9,5>": "", + "<9,9,6>": "" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "Recipe", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "1", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/CHOOSE_TOOL.json b/LSL2/POPUP/CHOOSE_TOOL.json new file mode 100644 index 0000000..7805f9f --- /dev/null +++ b/LSL2/POPUP/CHOOSE_TOOL.json @@ -0,0 +1,71 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "LISTBOX_CONFIG", + "<8>": { + "<8,1>": "ALLTOOLS", + "<8,2>": "1" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "15", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Tool" + } + }, + "<10>": "F", + "<11>": "1", + "<12>": "Tool", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/CI_TYPE.json b/LSL2/POPUP/CI_TYPE.json new file mode 100644 index 0000000..a6b733f --- /dev/null +++ b/LSL2/POPUP/CI_TYPE.json @@ -0,0 +1,110 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "C", + "<8,1,2>": "Clean" + }, + "<8,2>": { + "<8,2,1>": "I", + "<8,2,2>": "Visual Inspect" + }, + "<8,3>": { + "<8,3,1>": "S", + "<8,3,2>": "Surfscan" + }, + "<8,4>": { + "<8,4,1>": "CI", + "<8,4,2>": "Clean & Visual Inspect" + }, + "<8,5>": { + "<8,5,1>": "CS", + "<8,5,2>": "Clean & Surfscan" + }, + "<8,6>": { + "<8,6,1>": "IS", + "<8,6,2>": "Visual Inspect & Surfscan" + }, + "<8,7>": { + "<8,7,1>": "CIS", + "<8,7,2>": "Clean,Visual Inspect & Surfscan" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "CI Type" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Description" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Clean & Inspection Types", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/CLEAN_INSP_CURR_STATUS.json b/LSL2/POPUP/CLEAN_INSP_CURR_STATUS.json new file mode 100644 index 0000000..42278a0 --- /dev/null +++ b/LSL2/POPUP/CLEAN_INSP_CURR_STATUS.json @@ -0,0 +1,98 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "RTC", + "<8,1,2>": "Ready to Clean" + }, + "<8,2>": { + "<8,2,1>": "RTI", + "<8,2,2>": "Ready to Inspect" + }, + "<8,3>": { + "<8,3,1>": "RTS", + "<8,3,2>": "Ready to Surfscan" + }, + "<8,4>": { + "<8,4,1>": "OUT", + "<8,4,2>": "Out of Specification" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Desc" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Cleaning & Inspections Statuses", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/CLEAN_RECIPES.json b/LSL2/POPUP/CLEAN_RECIPES.json new file mode 100644 index 0000000..b9aece3 --- /dev/null +++ b/LSL2/POPUP/CLEAN_RECIPES.json @@ -0,0 +1,73 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Recipe" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Clean Tool Recipe", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/CLEAN_TOOLS.json b/LSL2/POPUP/CLEAN_TOOLS.json new file mode 100644 index 0000000..ed45cdd --- /dev/null +++ b/LSL2/POPUP/CLEAN_TOOLS.json @@ -0,0 +1,97 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "TOOL", + "<8>": "WITH CLASS = \"AKRION\" OR WITH CLASS = \"WET BENCH\" BY @ID", + "<9>": { + "<9,1>": { + "<9,1,1>": "TOOL_ID", + "<9,1,2>": "14", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Tool Id" + }, + "<9,2>": { + "<9,2,1>": "TOOL_DESC", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Tool Desc" + }, + "<9,3>": { + "<9,3,1>": "TOOL_WH_DESC", + "<9,3,2>": "10", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Tool WH Desc" + }, + "<9,4>": { + "<9,4,1>": "TOOL_LOC_DESC", + "<9,4,2>": "20", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Tool Location Desc" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Cleans Tools", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/COA.json b/LSL2/POPUP/COA.json new file mode 100644 index 0000000..879947c --- /dev/null +++ b/LSL2/POPUP/COA.json @@ -0,0 +1,103 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "COA", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "COMP_NO", + "<9,1,2>": "8", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Comp No" + }, + "<9,2>": { + "<9,2,1>": "COMP_NAME", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Company Name" + }, + "<9,3>": { + "<9,3,1>": "LOT_NO", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Lot No" + }, + "<9,4>": { + "<9,4,1>": "RX_DTM", + "<9,4,2>": "18", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "DT4/^S", + "<9,4,6>": "Rx Dtm" + }, + "<9,5>": { + "<9,5,1>": "LOT_QTY", + "<9,5,2>": "10", + "<9,5,3>": "R", + "<9,5,4>": "C", + "<9,5,5>": "MD0,", + "<9,5,6>": "Lot Qty" + } + }, + "<10>": "K", + "<11>": "1", + "<12>": "Vendor Certificate of Analysis", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/COA_COC.json b/LSL2/POPUP/COA_COC.json new file mode 100644 index 0000000..243064e --- /dev/null +++ b/LSL2/POPUP/COA_COC.json @@ -0,0 +1,88 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "COA_COC", + "<8>": "BY @ID", + "<9>": { + "<9,1>": { + "<9,1,1>": "COMP_NO", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Comp No" + }, + "<9,2>": { + "<9,2,1>": "RX_DTM", + "<9,2,2>": "15", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "DT", + "<9,2,6>": "Rx Dtm" + }, + "<9,3>": { + "<9,3,1>": "SPEC", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Specification" + }, + "<9,4>": { + "<9,4,1>": "COMP_NAME", + "<9,4,2>": "30", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Company Name" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "CofA/CofC", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/COC_QUERY.json b/LSL2/POPUP/COC_QUERY.json new file mode 100644 index 0000000..26a9713 --- /dev/null +++ b/LSL2/POPUP/COC_QUERY.json @@ -0,0 +1,145 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "3", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0", + "<6,1,15>": "0", + "<6,1,16>": "0" + } + }, + "<7>": "COC", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "SEQ", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "Ship No" + }, + "<9,2>": { + "<9,2,1>": "SAP_DEL_NO", + "<9,2,2>": "10", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "SAP Del No" + }, + "<9,3>": { + "<9,3,1>": "WO", + "<9,3,2>": "10", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "WO" + }, + "<9,4>": { + "<9,4,1>": "CUST_NO", + "<9,4,2>": "10", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "[XLATE_CONV,COMPANY*CO_NAME]", + "<9,4,6>": "Cust No" + }, + "<9,5>": { + "<9,5,1>": "PO_NO", + "<9,5,2>": "10", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "PO #" + }, + "<9,6>": { + "<9,6,1>": "ENTRY_ID", + "<9,6,2>": "15", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,6,6>": "Entry ID" + }, + "<9,7>": { + "<9,7,1>": "ENTRY_DATE", + "<9,7,2>": "8", + "<9,7,3>": "C", + "<9,7,4>": "C", + "<9,7,5>": "D2/", + "<9,7,6>": "Entry Date" + }, + "<9,8>": { + "<9,8,1>": "SHIP_DT", + "<9,8,2>": "11", + "<9,8,3>": "C", + "<9,8,4>": "C", + "<9,8,5>": "D2/", + "<9,8,6>": "Ship Dt" + }, + "<9,9>": { + "<9,9,1>": "EMAIL_DTM", + "<9,9,2>": "21", + "<9,9,3>": "R", + "<9,9,4>": "C", + "<9,9,5>": "DT2/^S", + "<9,9,6>": "Email Dtm" + }, + "<9,10>": { + "<9,10,1>": "CURR_STATUS", + "<9,10,2>": "10", + "<9,10,3>": "L", + "<9,10,4>": "C", + "<9,10,5>": "[SHIP_STATUS_CONV]", + "<9,10,6>": "Curr Status" + } + }, + "<10>": "T", + "<11>": "3", + "<12>": "Shipments( Certificate of Compliance ) ", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/COMPANY.json b/LSL2/POPUP/COMPANY.json new file mode 100644 index 0000000..347b7ef --- /dev/null +++ b/LSL2/POPUP/COMPANY.json @@ -0,0 +1,90 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "COMPANY", + "<8>": "BY CO_NAME", + "<9>": { + "<9,1>": { + "<9,1,1>": "CO_NAME", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Company" + }, + "<9,2>": { + "<9,2,1>": "DIVISION", + "<9,2,2>": "10", + "<9,2,3>": "L", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "Division" + }, + "<9,3>": { + "<9,3,1>": "CATEGORY", + "<9,3,2>": "10", + "<9,3,3>": "L", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "Category" + }, + "<9,4>": { + "<9,4,1>": "CO_TYPE", + "<9,4,2>": "10", + "<9,4,3>": "L", + "<9,4,4>": "", + "<9,4,5>": "[CO_TYPE_CONV]", + "<9,4,6>": "Type" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Companies", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/COMPANY_COA.json b/LSL2/POPUP/COMPANY_COA.json new file mode 100644 index 0000000..a560640 --- /dev/null +++ b/LSL2/POPUP/COMPANY_COA.json @@ -0,0 +1,88 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "COMPANY", + "<8>": "6771", + "<9>": { + "<9,1>": { + "<9,1,1>": "CO_NO", + "<9,1,2>": "8", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "Comp No" + }, + "<9,2>": { + "<9,2,1>": "CO_NAME", + "<9,2,2>": "30", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Company Name" + }, + "<9,3>": { + "<9,3,1>": "CITY", + "<9,3,2>": "15", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "City" + }, + "<9,4>": { + "<9,4,1>": "STATE", + "<9,4,2>": "5", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "State" + } + }, + "<10>": "K", + "<11>": "1", + "<12>": "", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/COMPANY_QUERY.json b/LSL2/POPUP/COMPANY_QUERY.json new file mode 100644 index 0000000..e46722d --- /dev/null +++ b/LSL2/POPUP/COMPANY_QUERY.json @@ -0,0 +1,114 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "COMPANY", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "CO_NAME", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Company" + }, + "<9,2>": { + "<9,2,1>": "DIVISION", + "<9,2,2>": "10", + "<9,2,3>": "L", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "Division" + }, + "<9,3>": { + "<9,3,1>": "CITY", + "<9,3,2>": "15", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "City" + }, + "<9,4>": { + "<9,4,1>": "STATE", + "<9,4,2>": "5", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "State" + }, + "<9,5>": { + "<9,5,1>": "ZIP", + "<9,5,2>": "10", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "[ZIP_FORMAT]", + "<9,5,6>": "Zip" + }, + "<9,6>": { + "<9,6,1>": "CATEGORY", + "<9,6,2>": "10", + "<9,6,3>": "L", + "<9,6,4>": "", + "<9,6,5>": "", + "<9,6,6>": "Category" + }, + "<9,7>": { + "<9,7,1>": "CO_TYPE", + "<9,7,2>": "10", + "<9,7,3>": "L", + "<9,7,4>": "", + "<9,7,5>": "[CO_TYPE_CONV]", + "<9,7,6>": "Type" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Companies", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/COMPANY_SINGLE.json b/LSL2/POPUP/COMPANY_SINGLE.json new file mode 100644 index 0000000..dd1e036 --- /dev/null +++ b/LSL2/POPUP/COMPANY_SINGLE.json @@ -0,0 +1,108 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "COMPANY", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "CO_NO", + "<9,1,2>": "5", + "<9,1,3>": "R", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "Co No" + }, + "<9,2>": { + "<9,2,1>": "BILL_TO_CO", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Bill to Company" + }, + "<9,3>": { + "<9,3,1>": "DIVISION", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Division " + }, + "<9,4>": { + "<9,4,1>": "BILL_TO_CITY", + "<9,4,2>": "20", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Bill to City" + }, + "<9,5>": { + "<9,5,1>": "CO_TYPE", + "<9,5,2>": "1", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "[CO_TYPE_CONV]", + "<9,5,6>": "Customer" + }, + "<9,6>": { + "<9,6,1>": "BILL_TO_CUST_NO", + "<9,6,2>": "10", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Bill To Cust No" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "Companies", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/COMP_ANN_CONT.json b/LSL2/POPUP/COMP_ANN_CONT.json new file mode 100644 index 0000000..7b916a0 --- /dev/null +++ b/LSL2/POPUP/COMP_ANN_CONT.json @@ -0,0 +1,119 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "ANNUAL_CONTRACTS", + "<8>": { + "<8,1>": "100", + "<8,2>": "200", + "<8,3>": "300", + "<8,4>": "580" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "SEQ", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "AC No" + }, + "<9,2>": { + "<9,2,1>": "PO", + "<9,2,2>": "16", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "PO No" + }, + "<9,3>": { + "<9,3,1>": "PART_NO", + "<9,3,2>": "16", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Part No" + }, + "<9,4>": { + "<9,4,1>": "ENTRY_DATE", + "<9,4,2>": "9", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "D2/", + "<9,4,6>": "Entry Date" + }, + "<9,5>": { + "<9,5,1>": "TOT_CONTRACT_AMOUNT", + "<9,5,2>": "10", + "<9,5,3>": "R", + "<9,5,4>": "C", + "<9,5,5>": "MD2,", + "<9,5,6>": "Total Cont Amt" + }, + "<9,6>": { + "<9,6,1>": "BALANCE", + "<9,6,2>": "10", + "<9,6,3>": "R", + "<9,6,4>": "C", + "<9,6,5>": "MD2,", + "<9,6,6>": "Balance" + }, + "<9,7>": { + "<9,7,1>": "STATUS", + "<9,7,2>": "1", + "<9,7,3>": "L", + "<9,7,4>": "C", + "<9,7,5>": "[AC_STATUS_CONV]", + "<9,7,6>": "Status" + } + }, + "<10>": "K", + "<11>": "1", + "<12>": "Company Open Annual Contracts", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/COMP_NAME.json b/LSL2/POPUP/COMP_NAME.json new file mode 100644 index 0000000..f810184 --- /dev/null +++ b/LSL2/POPUP/COMP_NAME.json @@ -0,0 +1,80 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "NAMES", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "SEQ", + "<9,1,2>": "14", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "Name No" + }, + "<9,2>": { + "<9,2,1>": "CO_NAME", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Company" + }, + "<9,3>": { + "<9,3,1>": "FIRST_LAST", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Contact Name" + } + }, + "<10>": "K", + "<11>": "1", + "<12>": "Company Contact Names", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/CUSTOMER.json b/LSL2/POPUP/CUSTOMER.json new file mode 100644 index 0000000..3ec174f --- /dev/null +++ b/LSL2/POPUP/CUSTOMER.json @@ -0,0 +1,129 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "3", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0", + "<6,1,15>": "0", + "<6,1,16>": "0" + } + }, + "<7>": "COMPANY", + "<8>": "BY BILL_TO_CO WITH CO_TYPE = 'C'", + "<9>": { + "<9,1>": { + "<9,1,1>": "CO_NO", + "<9,1,2>": "5", + "<9,1,3>": "R", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "Co NO" + }, + "<9,2>": { + "<9,2,1>": "CO_NAME", + "<9,2,2>": "25", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Company Desc" + }, + "<9,3>": { + "<9,3,1>": "BILL_TO_CO", + "<9,3,2>": "25", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Company" + }, + "<9,4>": { + "<9,4,1>": "DIVISION", + "<9,4,2>": "20", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Division " + }, + "<9,5>": { + "<9,5,1>": "BILL_TO_CITY", + "<9,5,2>": "20", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Bill to City" + }, + "<9,6>": { + "<9,6,1>": "CO_TYPE", + "<9,6,2>": "1", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "[CO_TYPE_CONV]", + "<9,6,6>": "Customer" + }, + "<9,7>": { + "<9,7,1>": "BILL_TO_CUST_NO", + "<9,7,2>": "6", + "<9,7,3>": "C", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "BT Cust No" + }, + "<9,8>": { + "<9,8,1>": "STATUS", + "<9,8,2>": "10", + "<9,8,3>": "C", + "<9,8,4>": "C", + "<9,8,5>": "[NAMES_STATUS_CONV]", + "<9,8,6>": "Status" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Customers", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/CUST_ANN_CONT.json b/LSL2/POPUP/CUST_ANN_CONT.json new file mode 100644 index 0000000..aa9f3ba --- /dev/null +++ b/LSL2/POPUP/CUST_ANN_CONT.json @@ -0,0 +1,128 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "ANNUAL_CONTRACTS", + "<8>": "123", + "<9>": { + "<9,1>": { + "<9,1,1>": "SEQ", + "<9,1,2>": "6", + "<9,1,3>": "R", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "AC No" + }, + "<9,2>": { + "<9,2,1>": "CUST_NO", + "<9,2,2>": "6", + "<9,2,3>": "R", + "<9,2,4>": "C", + "<9,2,5>": "MD0", + "<9,2,6>": "Cust No" + }, + "<9,3>": { + "<9,3,1>": "CUST_NAME", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Customer" + }, + "<9,4>": { + "<9,4,1>": "PO", + "<9,4,2>": "20", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "PO" + }, + "<9,5>": { + "<9,5,1>": "FROM_DATE", + "<9,5,2>": "11", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "D2/", + "<9,5,6>": "From Date" + }, + "<9,6>": { + "<9,6,1>": "THRU_DATE", + "<9,6,2>": "11", + "<9,6,3>": "C", + "<9,6,4>": "C", + "<9,6,5>": "D2/", + "<9,6,6>": "Thru Date" + }, + "<9,7>": { + "<9,7,1>": "ENTRY_ID", + "<9,7,2>": "15", + "<9,7,3>": "L", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "Entry ID" + }, + "<9,8>": { + "<9,8,1>": "ENTRY_DATE", + "<9,8,2>": "11", + "<9,8,3>": "C", + "<9,8,4>": "C", + "<9,8,5>": "D2/", + "<9,8,6>": "Entry Date" + }, + "<9,9>": { + "<9,9,1>": "", + "<9,9,2>": "", + "<9,9,3>": "", + "<9,9,4>": "", + "<9,9,5>": "", + "<9,9,6>": "" + } + }, + "<10>": "K", + "<11>": "3", + "<12>": "Customer Annual Contracts", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/CUST_EPI_CUST_PARTS.json b/LSL2/POPUP/CUST_EPI_CUST_PARTS.json new file mode 100644 index 0000000..f200ae1 --- /dev/null +++ b/LSL2/POPUP/CUST_EPI_CUST_PARTS.json @@ -0,0 +1,97 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Part No" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "5", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Rev No" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "15", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Description" + }, + "<9,4>": { + "<9,4,1>": "4", + "<9,4,2>": "10", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Inound Part No" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Customer Part Data", + "<13>": "", + "<14>": "E", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/CUST_EPI_CUST_SUBSTRATES.json b/LSL2/POPUP/CUST_EPI_CUST_SUBSTRATES.json new file mode 100644 index 0000000..e5dd0e8 --- /dev/null +++ b/LSL2/POPUP/CUST_EPI_CUST_SUBSTRATES.json @@ -0,0 +1,81 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Substrate Part No" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "5", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Supplier" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Customer Part Substrates ", + "<13>": "", + "<14>": "E", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/CUST_EPI_PART_PART_NOS.json b/LSL2/POPUP/CUST_EPI_PART_PART_NOS.json new file mode 100644 index 0000000..5086706 --- /dev/null +++ b/LSL2/POPUP/CUST_EPI_PART_PART_NOS.json @@ -0,0 +1,105 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "15", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Cust Part No" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "6", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Rev No" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Description" + }, + "<9,4>": { + "<9,4,1>": "4", + "<9,4,2>": "15", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Inbound Part No" + }, + "<9,5>": { + "<9,5,1>": "", + "<9,5,2>": "", + "<9,5,3>": "", + "<9,5,4>": "", + "<9,5,5>": "", + "<9,5,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Customer Part Numbers", + "<13>": "", + "<14>": "E", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/CUST_EPI_SUB_PART_NOS.json b/LSL2/POPUP/CUST_EPI_SUB_PART_NOS.json new file mode 100644 index 0000000..4316ebd --- /dev/null +++ b/LSL2/POPUP/CUST_EPI_SUB_PART_NOS.json @@ -0,0 +1,81 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Sub Part No" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "10", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Sub Description" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Select Sub Part No", + "<13>": "", + "<14>": "E", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/CUST_INQUIRY_QUERY.json b/LSL2/POPUP/CUST_INQUIRY_QUERY.json new file mode 100644 index 0000000..7206d04 --- /dev/null +++ b/LSL2/POPUP/CUST_INQUIRY_QUERY.json @@ -0,0 +1,120 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "CUST_INQUIRY", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "CUST_ID", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "[XLATE_CONV,COMPANY*CO_NAME]", + "<9,1,6>": "Customer" + }, + "<9,2>": { + "<9,2,1>": "INQUIRY_DATE", + "<9,2,2>": "8", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "D2/", + "<9,2,6>": "Inquiry Date" + }, + "<9,3>": { + "<9,3,1>": "STATUS", + "<9,3,2>": "15", + "<9,3,3>": "L", + "<9,3,4>": "", + "<9,3,5>": "[CUST_INQ_CONV]", + "<9,3,6>": "Status" + }, + "<9,4>": { + "<9,4,1>": "REV_NUM", + "<9,4,2>": "4", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Rev#" + }, + "<9,5>": { + "<9,5,1>": "REVIEW_STATUS", + "<9,5,2>": "1", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "[CUST_INQ_REV_CONV]", + "<9,5,6>": "Review Status" + }, + "<9,6>": { + "<9,6,1>": "CUST_PART_NUM", + "<9,6,2>": "15", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Part#" + }, + "<9,7>": { + "<9,7,1>": "CUST_SPEC_NUM", + "<9,7,2>": "15", + "<9,7,3>": "L", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "Spec#" + }, + "<9,8>": { + "<9,8,1>": "CUST_REV_NUM", + "<9,8,2>": "20", + "<9,8,3>": "L", + "<9,8,4>": "C", + "<9,8,5>": "", + "<9,8,6>": "Customer Rev#" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Customer Inquiries", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/CUST_LOT_NO.json b/LSL2/POPUP/CUST_LOT_NO.json new file mode 100644 index 0000000..8f1266f --- /dev/null +++ b/LSL2/POPUP/CUST_LOT_NO.json @@ -0,0 +1,74 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "30", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Lot Number" + }, + "<9,2>": { + "<9,2,1>": "", + "<9,2,2>": "", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Customer Lot Numbers", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/CUST_PART.json b/LSL2/POPUP/CUST_PART.json new file mode 100644 index 0000000..a50f4f0 --- /dev/null +++ b/LSL2/POPUP/CUST_PART.json @@ -0,0 +1,113 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "CUST_PART", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "CUST_NO", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Cust No" + }, + "<9,2>": { + "<9,2,1>": "CUST_NAME", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Customer Name" + }, + "<9,3>": { + "<9,3,1>": "CUST_PART_NO", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Customer Part No" + }, + "<9,4>": { + "<9,4,1>": "DESC", + "<9,4,2>": "20", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Description" + }, + "<9,5>": { + "<9,5,1>": "INBOUND_CUST_PART_NO", + "<9,5,2>": "20", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Inbound Cust Part No" + }, + "<9,6>": { + "<9,6,1>": "PART_NO", + "<9,6,2>": "10", + "<9,6,3>": "C", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Part No" + } + }, + "<10>": "K", + "<11>": "2", + "<12>": "Customer Parts", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/CUST_PART_NO.json b/LSL2/POPUP/CUST_PART_NO.json new file mode 100644 index 0000000..d8f85e5 --- /dev/null +++ b/LSL2/POPUP/CUST_PART_NO.json @@ -0,0 +1,84 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "PROD_SPEC", + "<8>": "245", + "<9>": { + "<9,1>": { + "<9,1,1>": "115", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Cust Part No" + }, + "<9,2>": { + "<9,2,1>": "116", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Cust Part Desc" + }, + "<9,3>": { + "<9,3,1>": "117", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Cust PN Inbound" + } + }, + "<10>": "R", + "<11>": "1", + "<12>": "PSN Customer Part Numbers", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/CUST_PO.json b/LSL2/POPUP/CUST_PO.json new file mode 100644 index 0000000..8c6c615 --- /dev/null +++ b/LSL2/POPUP/CUST_PO.json @@ -0,0 +1,72 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": "1234", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "PO No" + }, + "<9,2>": { + "<9,2,1>": "", + "<9,2,2>": "", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "2", + "<12>": "Customer Purchase Orders", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/CUST_TW_PART.json b/LSL2/POPUP/CUST_TW_PART.json new file mode 100644 index 0000000..e764d61 --- /dev/null +++ b/LSL2/POPUP/CUST_TW_PART.json @@ -0,0 +1,113 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "CUST_TW_PART", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "CUST_NO", + "<9,1,2>": "8", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Cust No" + }, + "<9,2>": { + "<9,2,1>": "TW_PART_NO", + "<9,2,2>": "14", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Tw Part No" + }, + "<9,3>": { + "<9,3,1>": "DESC", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Desc" + }, + "<9,4>": { + "<9,4,1>": "INV_MIN", + "<9,4,2>": "8", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "MD0,", + "<9,4,6>": "Inv Min" + }, + "<9,5>": { + "<9,5,1>": "INV_MAX", + "<9,5,2>": "8", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "MD0,", + "<9,5,6>": "Inv Max" + }, + "<9,6>": { + "<9,6,1>": "", + "<9,6,2>": "", + "<9,6,3>": "", + "<9,6,4>": "", + "<9,6,5>": "", + "<9,6,6>": "" + } + }, + "<10>": "K", + "<11>": "1", + "<12>": "Customer Test Wafer Parts", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/CUST_WO.json b/LSL2/POPUP/CUST_WO.json new file mode 100644 index 0000000..c57cb6a --- /dev/null +++ b/LSL2/POPUP/CUST_WO.json @@ -0,0 +1,72 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": "1234", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "WO No" + }, + "<9,2>": { + "<9,2,1>": "", + "<9,2,2>": "", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "2", + "<12>": "Customer Purchase Orders", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/DAILY_SCHED_OPTS.json b/LSL2/POPUP/DAILY_SCHED_OPTS.json new file mode 100644 index 0000000..e734d7f --- /dev/null +++ b/LSL2/POPUP/DAILY_SCHED_OPTS.json @@ -0,0 +1,106 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "PSN", + "<8,1,2>": "PSN" + }, + "<8,2>": { + "<8,2,1>": "RunData Sheet", + "<8,2,2>": "RDS" + }, + "<8,3>": { + "<8,3,1>": "Work Order", + "<8,3,2>": "WO" + }, + "<8,4>": { + "<8,4,1>": "WO Processing Status", + "<8,4,2>": "WO_STAT" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Window Option" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "L", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Work Order Options", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/DAILY_SCHED_OPTS_20220908.json b/LSL2/POPUP/DAILY_SCHED_OPTS_20220908.json new file mode 100644 index 0000000..6b69223 --- /dev/null +++ b/LSL2/POPUP/DAILY_SCHED_OPTS_20220908.json @@ -0,0 +1,114 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Quote", + "<8,1,2>": "QUOTE" + }, + "<8,2>": { + "<8,2,1>": "PSN", + "<8,2,2>": "PSN" + }, + "<8,3>": { + "<8,3,1>": "Recipe", + "<8,3,2>": "RECIPE" + }, + "<8,4>": { + "<8,4,1>": "RunData Sheet", + "<8,4,2>": "RDS" + }, + "<8,5>": { + "<8,5,1>": "Work Order", + "<8,5,2>": "WO" + }, + "<8,6>": { + "<8,6,1>": "WO Processing Status", + "<8,6,2>": "WO_STAT" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Window Option" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "L", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Work Order Options", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/DAILY_SCHED_WINDOW_OPT.json b/LSL2/POPUP/DAILY_SCHED_WINDOW_OPT.json new file mode 100644 index 0000000..6c326ad --- /dev/null +++ b/LSL2/POPUP/DAILY_SCHED_WINDOW_OPT.json @@ -0,0 +1,103 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Group 1", + "<8,1,2>": "WO_DAILY_SCHED" + }, + "<8,2>": { + "<8,2,1>": "Group 2", + "<8,2,2>": "WO_DAILY_SCHED2" + }, + "<8,3>": { + "<8,3,1>": "Group 3", + "<8,3,2>": "WO_DAILY_SCHED3" + }, + "<8,4>": { + "<8,4,1>": "Group 4", + "<8,4,2>": "WO_DAILY_SCHED4" + }, + "<8,5>": { + "<8,5,1>": "Group 5", + "<8,5,2>": "WO_DAILY_SCHED5" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "L", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Reactor Group" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "L", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Reactor Processing Status", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/DEPARTMENT.json b/LSL2/POPUP/DEPARTMENT.json new file mode 100644 index 0000000..96b4f50 --- /dev/null +++ b/LSL2/POPUP/DEPARTMENT.json @@ -0,0 +1,108 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "ENG", + "<8,1,2>": "Engineering" + }, + "<8,2>": { + "<8,2,1>": "PRD", + "<8,2,2>": "Production" + }, + "<8,3>": { + "<8,3,1>": "MAT", + "<8,3,2>": "Materials" + }, + "<8,4>": { + "<8,4,1>": "MNT", + "<8,4,2>": "Maintenance" + }, + "<8,5>": { + "<8,5,1>": "QA", + "<8,5,2>": "Quality/Training" + }, + "<8,6>": { + "<8,6,1>": "PC", + "<8,6,2>": "Production Control" + }, + "<8,7>": { + "<8,7,1>": "FI", + "<8,7,2>": "Factory Integration" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Dept" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Department" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Departments", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/DEPT.json b/LSL2/POPUP/DEPT.json new file mode 100644 index 0000000..67b8e55 --- /dev/null +++ b/LSL2/POPUP/DEPT.json @@ -0,0 +1,123 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "FAC", + "<8,1,2>": "Facilities", + "<8,1,3>": "RICK_B, MIKE_W, JEANNE_M" + }, + "<8,2>": { + "<8,2,1>": "MET", + "<8,2,2>": "Metrology", + "<8,2,3>": "TODD_C, JEANNE_M" + }, + "<8,3>": { + "<8,3,1>": "MTC", + "<8,3,2>": "Maintenance", + "<8,3,3>": "MATT_L, PAUL_W, JEANNE_M, PATRICK_R, AARON_H, SETH_W" + }, + "<8,4>": { + "<8,4,1>": "EHS", + "<8,4,2>": "Evironmental, Health & Safety", + "<8,4,3>": "JEANNE_M, KEITH_S" + }, + "<8,5>": { + "<8,5,1>": "ENG", + "<8,5,2>": "Engineering", + "<8,5,3>": "JFUENTE1,JUSTIN_H,JONATHON_S,MARROQUINBRA,TIFFANY_M,JEANNE_M,JONATHAN_O" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "8", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Dept" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Desc" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "30", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Notify User ID" + }, + "<9,4>": { + "<9,4,1>": "", + "<9,4,2>": "", + "<9,4,3>": "", + "<9,4,4>": "", + "<9,4,5>": "", + "<9,4,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Departments", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/DET_TABLE_SUFF.json b/LSL2/POPUP/DET_TABLE_SUFF.json new file mode 100644 index 0000000..ffd36e8 --- /dev/null +++ b/LSL2/POPUP/DET_TABLE_SUFF.json @@ -0,0 +1,89 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Marketing &Sales", + "<8,1,2>": "M&S" + }, + "<8,2>": { + "<8,2,1>": "SRL", + "<8,2,2>": "SRL" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Entity" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "L", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Entity", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/DICT_COLUMNS.json b/LSL2/POPUP/DICT_COLUMNS.json new file mode 100644 index 0000000..2a94e6d --- /dev/null +++ b/LSL2/POPUP/DICT_COLUMNS.json @@ -0,0 +1,81 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Column" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "80", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Description" + } + }, + "<10>": "L", + "<11>": "3", + "<12>": "Dictionary Columns", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/DOPANTS.json b/LSL2/POPUP/DOPANTS.json new file mode 100644 index 0000000..b555b16 --- /dev/null +++ b/LSL2/POPUP/DOPANTS.json @@ -0,0 +1,74 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "LISTBOX_CONFIG", + "<8>": { + "<8,1>": "DOPANT", + "<8,2>": "1" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Dopant" + } + }, + "<10>": "F", + "<11>": "1", + "<12>": "Dopants", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/DROPDOWN.json b/LSL2/POPUP/DROPDOWN.json new file mode 100644 index 0000000..28d6806 --- /dev/null +++ b/LSL2/POPUP/DROPDOWN.json @@ -0,0 +1,76 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "Row 1", + "<8,2>": "Row2" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Option" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Dropdowns", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/DUE_IN_WORK_ORDERS.json b/LSL2/POPUP/DUE_IN_WORK_ORDERS.json new file mode 100644 index 0000000..fcd74ea --- /dev/null +++ b/LSL2/POPUP/DUE_IN_WORK_ORDERS.json @@ -0,0 +1,103 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "WO_LOG", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "WO", + "<9,1,2>": "14", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "WO No" + }, + "<9,2>": { + "<9,2,1>": "ORDER_NO", + "<9,2,2>": "10", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Order No" + }, + "<9,3>": { + "<9,3,1>": "CUST_NAME", + "<9,3,2>": "30", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Customer" + }, + "<9,4>": { + "<9,4,1>": "ENTRY_DATE", + "<9,4,2>": "11", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "D2/", + "<9,4,6>": "Entry Date" + }, + "<9,5>": { + "<9,5,1>": "CURR_STATUS", + "<9,5,2>": "20", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "[WO_STEP_STATUS_CONV]", + "<9,5,6>": "Curr Status" + } + }, + "<10>": "K", + "<11>": "1", + "<12>": "Open Work Orders", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/EMPTY_SLOTS.json b/LSL2/POPUP/EMPTY_SLOTS.json new file mode 100644 index 0000000..9d002c5 --- /dev/null +++ b/LSL2/POPUP/EMPTY_SLOTS.json @@ -0,0 +1,78 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "25", + "<8,2>": "24", + "<8,3>": "23", + "<8,4>": "22" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Slot No" + } + }, + "<10>": "L", + "<11>": "2", + "<12>": "Emptly Slots in Cassette", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/ENG_OPTIONS.json b/LSL2/POPUP/ENG_OPTIONS.json new file mode 100644 index 0000000..4b56e73 --- /dev/null +++ b/LSL2/POPUP/ENG_OPTIONS.json @@ -0,0 +1,98 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Update Clean & Insp Specs", + "<8,1,2>": "CLEAN_INSP" + }, + "<8,2>": { + "<8,2,1>": "Update QA Metrology Specs", + "<8,2,2>": "QA_MET" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Window Option" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "L", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "3", + "<12>": "Engineering Options", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/EPI_PART_NOS.json b/LSL2/POPUP/EPI_PART_NOS.json new file mode 100644 index 0000000..b55d827 --- /dev/null +++ b/LSL2/POPUP/EPI_PART_NOS.json @@ -0,0 +1,87 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "EPI_PART", + "<8>": "BY-DSND STATUS BY EPI_PN", + "<9>": { + "<9,1>": { + "<9,1,1>": "EPI_PN", + "<9,1,2>": "15", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Epi Part No" + }, + "<9,2>": { + "<9,2,1>": "EPI_PART_DESC", + "<9,2,2>": "30", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Epi Part Desc" + }, + "<9,3>": { + "<9,3,1>": "EPI_PART_STATUS", + "<9,3,2>": "3", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "BActive,Inactive", + "<9,3,6>": "EPI_PART_STATUS" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "EPI Part Numbers", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/EPI_PART_SUBSTRATES.json b/LSL2/POPUP/EPI_PART_SUBSTRATES.json new file mode 100644 index 0000000..7960f8b --- /dev/null +++ b/LSL2/POPUP/EPI_PART_SUBSTRATES.json @@ -0,0 +1,89 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-12", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "3", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "0" + } + }, + "<7>": "EPI_PART", + "<8>": "3GAN", + "<9>": { + "<9,1>": { + "<9,1,1>": "30", + "<9,1,2>": "14", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Sub Part No" + }, + "<9,2>": { + "<9,2,1>": "31", + "<9,2,2>": "5", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Revision" + }, + "<9,3>": { + "<9,3,1>": "32", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Manufacturer" + } + }, + "<10>": "R", + "<11>": "1", + "<12>": "Epi Part Substrates", + "<13>": "", + "<14>": "E", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/EPI_PART_TYPES.json b/LSL2/POPUP/EPI_PART_TYPES.json new file mode 100644 index 0000000..14e0e5f --- /dev/null +++ b/LSL2/POPUP/EPI_PART_TYPES.json @@ -0,0 +1,98 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "U", + "<8,1,2>": "PreEngineering" + }, + "<8,2>": { + "<8,2,1>": "Q", + "<8,2,2>": "Engineering" + }, + "<8,3>": { + "<8,3,1>": "E", + "<8,3,2>": "PreProduction" + }, + "<8,4>": { + "<8,4,1>": "P", + "<8,4,2>": "Production" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Description" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Epi Part Types", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/EPI_PRO_WO_MAT_RDS.json b/LSL2/POPUP/EPI_PRO_WO_MAT_RDS.json new file mode 100644 index 0000000..afb0fb9 --- /dev/null +++ b/LSL2/POPUP/EPI_PRO_WO_MAT_RDS.json @@ -0,0 +1,98 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Inbound", + "<8,1,2>": "123456" + }, + "<8,2>": { + "<8,2,1>": "Outbound", + "<8,2,2>": "23456" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "In / Out" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "10", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "RDS" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Epi Pro Cassette RDS Nos", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/EPI_SUSCEPTOR.json b/LSL2/POPUP/EPI_SUSCEPTOR.json new file mode 100644 index 0000000..45a5171 --- /dev/null +++ b/LSL2/POPUP/EPI_SUSCEPTOR.json @@ -0,0 +1,81 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "EPI_SUSCEPTOR", + "<8>": "BY @ID", + "<9>": { + "<9,1>": { + "<9,1,1>": "CONFIG_ID", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Config Id" + }, + "<9,2>": { + "<9,2,1>": "CONFIG_DESC", + "<9,2,2>": "30", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Config Desc" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "EpiPRO Susceptor Configurations", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/EPI_WO_RECONCILE.json b/LSL2/POPUP/EPI_WO_RECONCILE.json new file mode 100644 index 0000000..09263cf --- /dev/null +++ b/LSL2/POPUP/EPI_WO_RECONCILE.json @@ -0,0 +1,121 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "15", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "WMI Wfr ID" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "15", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Lot No" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "10", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Loaded Into" + }, + "<9,4>": { + "<9,4,1>": "4", + "<9,4,2>": "10", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "RDS Pkt Zone" + }, + "<9,5>": { + "<9,5,1>": "5", + "<9,5,2>": "10", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Pkt Char" + }, + "<9,6>": { + "<9,6,1>": "6", + "<9,6,2>": "15", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "WMO Wfr ID" + }, + "<9,7>": { + "<9,7,1>": "7", + "<9,7,2>": "15", + "<9,7,3>": "L", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "Disposition" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "EPIPro WO WaferReconciliation", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/EPI_WO_RECON_ERRORS.json b/LSL2/POPUP/EPI_WO_RECON_ERRORS.json new file mode 100644 index 0000000..adb1916 --- /dev/null +++ b/LSL2/POPUP/EPI_WO_RECON_ERRORS.json @@ -0,0 +1,73 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "70", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Error Message" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "EPI Wafer Reconcilation Errors", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/EVAL_4PP_WAF_ID.json b/LSL2/POPUP/EVAL_4PP_WAF_ID.json new file mode 100644 index 0000000..8ff4748 --- /dev/null +++ b/LSL2/POPUP/EVAL_4PP_WAF_ID.json @@ -0,0 +1,69 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "LISTBOX_CONFIG", + "<8>": { + "<8,1>": "EVAL4PPWAFERID", + "<8,2>": "1" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Wafer ID" + } + }, + "<10>": "F", + "<11>": "1", + "<12>": "Wafer ID", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/EVAL_ADE_WAF_ID.json b/LSL2/POPUP/EVAL_ADE_WAF_ID.json new file mode 100644 index 0000000..e63ace6 --- /dev/null +++ b/LSL2/POPUP/EVAL_ADE_WAF_ID.json @@ -0,0 +1,69 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "LISTBOX_CONFIG", + "<8>": { + "<8,1>": "EVALADEWAFERID", + "<8,2>": "1" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Wafer ID" + } + }, + "<10>": "F", + "<11>": "1", + "<12>": "Wafer ID", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/EVAL_FTIR_WAF_ID.json b/LSL2/POPUP/EVAL_FTIR_WAF_ID.json new file mode 100644 index 0000000..49c03ff --- /dev/null +++ b/LSL2/POPUP/EVAL_FTIR_WAF_ID.json @@ -0,0 +1,69 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "LISTBOX_CONFIG", + "<8>": { + "<8,1>": "EVALFTIRWAFERID", + "<8,2>": "1" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Wafer ID" + } + }, + "<10>": "F", + "<11>": "1", + "<12>": "Wafer ID", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/EXPORT_COLUMN.json b/LSL2/POPUP/EXPORT_COLUMN.json new file mode 100644 index 0000000..7cc16d6 --- /dev/null +++ b/LSL2/POPUP/EXPORT_COLUMN.json @@ -0,0 +1,66 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "25", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Column" + } + }, + "<10>": "L", + "<11>": "3", + "<12>": "Columns", + "<13>": "", + "<14>": "E", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/EXPORT_TABLES.json b/LSL2/POPUP/EXPORT_TABLES.json new file mode 100644 index 0000000..d7750b9 --- /dev/null +++ b/LSL2/POPUP/EXPORT_TABLES.json @@ -0,0 +1,91 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Test Data", + "<8,1,2>": "TEST" + }, + "<8,2>": { + "<8,2,1>": "DeadData", + "<8,2,2>": "DEAD" + }, + "<8,3>": "No_Name_File" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Table Name" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "25", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Table" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Export Table Name", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/FACILITY_AREA.json b/LSL2/POPUP/FACILITY_AREA.json new file mode 100644 index 0000000..db8f268 --- /dev/null +++ b/LSL2/POPUP/FACILITY_AREA.json @@ -0,0 +1,90 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "155", + "<8,1,2>": "Dopant Room" + }, + "<8,2>": { + "<8,2,1>": "156", + "<8,2,2>": "TCS Room" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Room No" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Description" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Facility Areas", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/FAX_NUMBERS.json b/LSL2/POPUP/FAX_NUMBERS.json new file mode 100644 index 0000000..dfaf923 --- /dev/null +++ b/LSL2/POPUP/FAX_NUMBERS.json @@ -0,0 +1,72 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "25", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Company/Contact" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "15", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "[PHONE_FORMAT]", + "<9,2,6>": "Fax Number" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Fax Number", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/FISCAL_QTR.json b/LSL2/POPUP/FISCAL_QTR.json new file mode 100644 index 0000000..8f31ab7 --- /dev/null +++ b/LSL2/POPUP/FISCAL_QTR.json @@ -0,0 +1,105 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "FISCAL_QTR", + "<8>": "BY-DSND FISCAL_YR BY-DSND FISCAL_QTR", + "<9>": { + "<9,1>": { + "<9,1,1>": "FISCAL_YR", + "<9,1,2>": "8", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "Fiscal Yr" + }, + "<9,2>": { + "<9,2,1>": "FISCAL_QTR", + "<9,2,2>": "5", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "MD0", + "<9,2,6>": "Fiscal Qtr" + }, + "<9,3>": { + "<9,3,1>": "START_DT", + "<9,3,2>": "11", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "D4/", + "<9,3,6>": "Start Dt" + }, + "<9,4>": { + "<9,4,1>": "END_DT", + "<9,4,2>": "11", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "D4/", + "<9,4,6>": "End Dt" + }, + "<9,5>": { + "<9,5,1>": "", + "<9,5,2>": "", + "<9,5,3>": "", + "<9,5,4>": "", + "<9,5,5>": "", + "<9,5,6>": "" + } + }, + "<10>": "T", + "<11>": "3", + "<12>": "Fiscal Quarters", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/FISCAL_YR.json b/LSL2/POPUP/FISCAL_YR.json new file mode 100644 index 0000000..d8ec03c --- /dev/null +++ b/LSL2/POPUP/FISCAL_YR.json @@ -0,0 +1,81 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "FISCAL_YR", + "<8>": "BY FISCAL_YR", + "<9>": { + "<9,1>": { + "<9,1,1>": "FISCAL_YR", + "<9,1,2>": "8", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "Fiscal YR" + }, + "<9,2>": { + "<9,2,1>": "START_DT", + "<9,2,2>": "11", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "D4/", + "<9,2,6>": "Start Dt" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "Fiscal Year", + "<13>": "", + "<14>": "E", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/FTP_PENDING.json b/LSL2/POPUP/FTP_PENDING.json new file mode 100644 index 0000000..fa30c21 --- /dev/null +++ b/LSL2/POPUP/FTP_PENDING.json @@ -0,0 +1,129 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "FTP_PENDING", + "<8>": "BY CUST_NO BY SHIP_DTM", + "<9>": { + "<9,1>": { + "<9,1,1>": "SHIP_NO", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Ship No" + }, + "<9,2>": { + "<9,2,1>": "CUST_NO", + "<9,2,2>": "10", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Cust No" + }, + "<9,3>": { + "<9,3,1>": "CUST_INFO", + "<9,3,2>": "40", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Cust Info" + }, + "<9,4>": { + "<9,4,1>": "SHIP_DTM", + "<9,4,2>": "18", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "DT4/^S", + "<9,4,6>": "Ship Dtm" + }, + "<9,5>": { + "<9,5,1>": "SAP_DEL_NO", + "<9,5,2>": "20", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "SAP Del No" + }, + "<9,6>": { + "<9,6,1>": "WO_NO", + "<9,6,2>": "20", + "<9,6,3>": "C", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "WO No" + }, + "<9,7>": { + "<9,7,1>": "SEND_DTM", + "<9,7,2>": "18", + "<9,7,3>": "R", + "<9,7,4>": "C", + "<9,7,5>": "DT4/^S", + "<9,7,6>": "Send Dtm" + }, + "<9,8>": { + "<9,8,1>": "SEND_USER", + "<9,8,2>": "20", + "<9,8,3>": "L", + "<9,8,4>": "C", + "<9,8,5>": "", + "<9,8,6>": "Send User" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "FTP Pending Shipments", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/FTP_QUEUE.json b/LSL2/POPUP/FTP_QUEUE.json new file mode 100644 index 0000000..8e79036 --- /dev/null +++ b/LSL2/POPUP/FTP_QUEUE.json @@ -0,0 +1,137 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "FTP_QUEUE", + "<8>": "BY CUST_NO BY SHIP_NO", + "<9>": { + "<9,1>": { + "<9,1,1>": "SHIP_NO", + "<9,1,2>": "8", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Ship No" + }, + "<9,2>": { + "<9,2,1>": "SAP_DEL_NO", + "<9,2,2>": "8", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "SAP Del No" + }, + "<9,3>": { + "<9,3,1>": "WO_NO", + "<9,3,2>": "8", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "WO No" + }, + "<9,4>": { + "<9,4,1>": "CUST_NO", + "<9,4,2>": "8", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Cust No" + }, + "<9,5>": { + "<9,5,1>": "CUST_INFO", + "<9,5,2>": "30", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Cust Info" + }, + "<9,6>": { + "<9,6,1>": "SHIP_DTM", + "<9,6,2>": "20", + "<9,6,3>": "C", + "<9,6,4>": "C", + "<9,6,5>": "DT4/^S", + "<9,6,6>": "Ship Dtm" + }, + "<9,7>": { + "<9,7,1>": "SEND_DTM", + "<9,7,2>": "20", + "<9,7,3>": "C", + "<9,7,4>": "C", + "<9,7,5>": "DT4/^S", + "<9,7,6>": "Send Dtm" + }, + "<9,8>": { + "<9,8,1>": "SEND_USER", + "<9,8,2>": "10", + "<9,8,3>": "L", + "<9,8,4>": "C", + "<9,8,5>": "", + "<9,8,6>": "Send User" + }, + "<9,9>": { + "<9,9,1>": "SEND_REASON", + "<9,9,2>": "20", + "<9,9,3>": "L", + "<9,9,4>": "C", + "<9,9,5>": "", + "<9,9,6>": "Send Reason" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "FTP Transmit Queue", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/GAN_LOCATIONS.json b/LSL2/POPUP/GAN_LOCATIONS.json new file mode 100644 index 0000000..f3bda5c --- /dev/null +++ b/LSL2/POPUP/GAN_LOCATIONS.json @@ -0,0 +1,89 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Segoe UI", + "<6,1,2>": "-12", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "3", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "0" + } + }, + "<7>": "LOCATION", + "<8>": "WITH WH_CD ] \"G\" BY @ID", + "<9>": { + "<9,1>": { + "<9,1,1>": "WH_CD", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "WH Cd" + }, + "<9,2>": { + "<9,2,1>": "LOC_CD", + "<9,2,2>": "10", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Loc Cd" + }, + "<9,3>": { + "<9,3,1>": "DESC", + "<9,3,2>": "30", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Desc" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "GaN LocatIons", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/GAN_TOOL_STATUS.json b/LSL2/POPUP/GAN_TOOL_STATUS.json new file mode 100644 index 0000000..4136ee6 --- /dev/null +++ b/LSL2/POPUP/GAN_TOOL_STATUS.json @@ -0,0 +1,118 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "EW-PROC", + "<8,2>": "EW-EQPT", + "<8,3>": "EW-DEV", + "<8,4>": "ID-NOOPER", + "<8,5>": "ID-NOWIP", + "<8,6>": "ID-NOSUPTOOL", + "<8,7>": "ID-CLUSTDOWN", + "<8,8>": "PR-MFGRUN", + "<8,9>": "PR-ENGRUN", + "<8,10>": "PR-REWORK", + "<8,11>": "PR-MONITOR", + "<8,12>": "NS-T1-UNWORK", + "<8,13>": "NS-T1-WORK", + "<8,14>": "NS-T1-QUAL", + "<8,15>": "NS-T2-UNWORK", + "<8,16>": "NS-T2-WORK", + "<8,17>": "NS-T2-QUAL", + "<8,18>": "NS-T3-UNWORK", + "<8,19>": "NS-T3-WORK", + "<8,20>": "NS-T3-QUAL", + "<8,21>": "NS-TRAIN", + "<8,22>": "NS-OFF", + "<8,23>": "SD-DELAY", + "<8,24>": "SD-PM", + "<8,25>": "SD-MATERIAL", + "<8,26>": "SD-SETUP", + "<8,27>": "SD-FACILITY", + "<8,28>": "SD-VENDOR", + "<8,29>": "SD-PART", + "<8,30>": "UN-MATERIAL", + "<8,31>": "UN-FACILITY", + "<8,32>": "UN-DELAY", + "<8,33>": "UN-REPAIR", + "<8,34>": "UN-VENDOR", + "<8,35>": "UN-PART", + "<8,36>": "UN-AWM", + "<8,37>": "UN-MIP", + "<8,38>": "UN-PE", + "<8,39>": "UN-EE", + "<8,40>": "UN-TOOLS", + "<8,41>": "QUALENGINEER", + "<8,42>": "QUALPRODRUN", + "<8,43>": "QUALWAITMATL", + "<8,44>": "QUALWAITOP" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "Code", + "<9,1,2>": "16", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "GaN Tool Status Codes", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/GAN_WFR_GRADE.json b/LSL2/POPUP/GAN_WFR_GRADE.json new file mode 100644 index 0000000..0444d45 --- /dev/null +++ b/LSL2/POPUP/GAN_WFR_GRADE.json @@ -0,0 +1,107 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Segoe UI", + "<6,1,2>": "-12", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "3", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "", + "<8,2>": { + "<8,2,1>": "PRI", + "<8,2,2>": "Prime" + }, + "<8,3>": { + "<8,3,1>": "SPR", + "<8,3,2>": "Sub-Prime" + }, + "<8,4>": { + "<8,4,1>": "TST", + "<8,4,2>": "Test" + }, + "<8,5>": { + "<8,5,1>": "MEC", + "<8,5,2>": "Mechanical" + }, + "<8,6>": { + "<8,6,1>": "SCR", + "<8,6,2>": "Scrap" + }, + "<8,7>": { + "<8,7,1>": "ENG", + "<8,7,2>": "Eng Test" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Grade " + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "GaN Wafer Grades", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/GAN_WFR_PRIORITY.json b/LSL2/POPUP/GAN_WFR_PRIORITY.json new file mode 100644 index 0000000..84753ad --- /dev/null +++ b/LSL2/POPUP/GAN_WFR_PRIORITY.json @@ -0,0 +1,95 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Segoe UI", + "<6,1,2>": "-12", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "3", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "", + "<8,2>": { + "<8,2,1>": "P1", + "<8,2,2>": "Priority 1" + }, + "<8,3>": { + "<8,3,1>": "P2", + "<8,3,2>": "Priority 2" + }, + "<8,4>": { + "<8,4,1>": "P3", + "<8,4,2>": "Priority 3" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Grade " + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "GaN Wafer Priority", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/GAN_WIP_STAGES.json b/LSL2/POPUP/GAN_WIP_STAGES.json new file mode 100644 index 0000000..90315ff --- /dev/null +++ b/LSL2/POPUP/GAN_WIP_STAGES.json @@ -0,0 +1,264 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-12", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "3", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "ETCH", + "<8,1,2>": "Etch", + "<8,1,3>": "", + "<8,1,4>": "G_REACT" + }, + "<8,2>": { + "<8,2,1>": "GROWTH", + "<8,2,2>": "Epi Deposition", + "<8,2,3>": "", + "<8,2,4>": "G_REACT" + }, + "<8,3>": { + "<8,3,1>": "G_RATE", + "<8,3,2>": "Growth Rate Review", + "<8,3,3>": "" + }, + "<8,4>": { + "<8,4,1>": "UV_PRE", + "<8,4,2>": "UV Pre", + "<8,4,3>": "", + "<8,4,4>": "G_UV_PRE" + }, + "<8,5>": { + "<8,5,1>": "WARP", + "<8,5,2>": "Warp", + "<8,5,3>": "", + "<8,5,4>": "G_WARP" + }, + "<8,6>": { + "<8,6,1>": "CAN_PRE", + "<8,6,2>": "Candela Pre", + "<8,6,3>": "", + "<8,6,4>": "G_CAN_PRE" + }, + "<8,7>": { + "<8,7,1>": "PLATO", + "<8,7,2>": "Plato", + "<8,7,3>": "", + "<8,7,4>": "G_PLATO" + }, + "<8,8>": { + "<8,8,1>": "WET_CLEAN", + "<8,8,2>": "Wet Clean", + "<8,8,3>": "1", + "<8,8,4>": "AKRION,WET BENCH" + }, + "<8,9>": { + "<8,9,1>": "UV_PST", + "<8,9,2>": "UV Post", + "<8,9,3>": "", + "<8,9,4>": "G_UV_PST" + }, + "<8,10>": { + "<8,10,1>": "CAN_PST", + "<8,10,2>": "Candela Post", + "<8,10,3>": "", + "<8,10,4>": "G_CAN_PST" + }, + "<8,11>": { + "<8,11,1>": "SPLIT", + "<8,11,2>": "Characterization Split", + "<8,11,3>": "1" + }, + "<8,12>": { + "<8,12,1>": "XRD", + "<8,12,2>": "X-Ray Diffraction", + "<8,12,3>": "1", + "<8,12,4>": "G_XRD" + }, + "<8,13>": { + "<8,13,1>": "JV_XRD", + "<8,13,2>": "JV-XRD", + "<8,13,3>": "1", + "<8,13,4>": "G_JV_XRD" + }, + "<8,14>": { + "<8,14,1>": "AFM", + "<8,14,2>": "Atomic Force Microscope", + "<8,14,3>": "1", + "<8,14,4>": "G_AFM" + }, + "<8,15>": { + "<8,15,1>": "RPM", + "<8,15,2>": "White Light & Photoluminesence", + "<8,15,3>": "1", + "<8,15,4>": "G_RPM" + }, + "<8,16>": { + "<8,16,1>": "PR", + "<8,16,2>": "Photoreflectance", + "<8,16,3>": "1", + "<8,16,4>": "G_PRF" + }, + "<8,17>": { + "<8,17,1>": "SCOPE", + "<8,17,2>": "Microscope", + "<8,17,3>": "1", + "<8,17,4>": "G_SCOPE" + }, + "<8,18>": { + "<8,18,1>": "RTA", + "<8,18,2>": "RTA", + "<8,18,3>": "1", + "<8,18,4>": "G_RTA" + }, + "<8,19>": { + "<8,19,1>": "HALL", + "<8,19,2>": "Hall Coefficient Measure", + "<8,19,3>": "1", + "<8,19,4>": "G_HALL" + }, + "<8,20>": { + "<8,20,1>": "EBEAM", + "<8,20,2>": "eBeam", + "<8,20,3>": "1", + "<8,20,4>": "G_BEAM" + }, + "<8,21>": { + "<8,21,1>": "RTA_HALL", + "<8,21,2>": "RTA_Hall", + "<8,21,3>": "1", + "<8,21,4>": "G_RTA_HALL" + }, + "<8,22>": { + "<8,22,1>": "HALL_PGAN", + "<8,22,2>": "Hall PGaN Measure", + "<8,22,3>": "1", + "<8,22,4>": "G_HALL_PGAN" + }, + "<8,23>": { + "<8,23,1>": "BV", + "<8,23,2>": "Breakdown Voltage", + "<8,23,3>": "1", + "<8,23,4>": "G_BV" + }, + "<8,24>": { + "<8,24,1>": "BV100%", + "<8,24,2>": "Breakdown Voltage 100%", + "<8,24,3>": "1", + "<8,24,4>": "G_BV100%" + }, + "<8,25>": { + "<8,25,1>": "DISP", + "<8,25,2>": "Wafer Disposition", + "<8,25,3>": "" + }, + "<8,26>": { + "<8,26,1>": "G_PACK", + "<8,26,2>": "Package Wafers", + "<8,26,3>": "" + }, + "<8,27>": { + "<8,27,1>": "RETAIN", + "<8,27,2>": "Retain Wafers", + "<8,27,3>": "" + }, + "<8,28>": "" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "12", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Stage" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "30", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Description" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "10", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Characterization" + }, + "<9,4>": { + "<9,4,1>": "4", + "<9,4,2>": "12", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Tool Class" + }, + "<9,5>": { + "<9,5,1>": "", + "<9,5,2>": "", + "<9,5,3>": "", + "<9,5,4>": "", + "<9,5,5>": "", + "<9,5,6>": "" + } + }, + "<10>": "L", + "<11>": "2", + "<12>": "GaN WIP Stages", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/GAS_SRC.json b/LSL2/POPUP/GAS_SRC.json new file mode 100644 index 0000000..d3a0e5c --- /dev/null +++ b/LSL2/POPUP/GAS_SRC.json @@ -0,0 +1,113 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "GAS_SRC", + "<8>": "BY @ID", + "<9>": { + "<9,1>": { + "<9,1,1>": "AREA", + "<9,1,2>": "7", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Area" + }, + "<9,2>": { + "<9,2,1>": "AREA_DESC", + "<9,2,2>": "15", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Area Desc" + }, + "<9,3>": { + "<9,3,1>": "CAB", + "<9,3,2>": "5", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Cab" + }, + "<9,4>": { + "<9,4,1>": "POS", + "<9,4,2>": "5", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Pos" + }, + "<9,5>": { + "<9,5,1>": "CURR_GAS", + "<9,5,2>": "15", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Curr Gas" + }, + "<9,6>": { + "<9,6,1>": "CURR_GAS_DESC", + "<9,6,2>": "30", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Curr Gas Desc" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "Gas Source", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "12639424", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/GL_ACCTS.json b/LSL2/POPUP/GL_ACCTS.json new file mode 100644 index 0000000..ed03637 --- /dev/null +++ b/LSL2/POPUP/GL_ACCTS.json @@ -0,0 +1,157 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "75", + "<8,1,2>": "Sales - 75mm" + }, + "<8,2>": { + "<8,2,1>": "100", + "<8,2,2>": "Sales - 100mm" + }, + "<8,3>": { + "<8,3,1>": "125", + "<8,3,2>": "Sales - 125mm" + }, + "<8,4>": { + "<8,4,1>": "150", + "<8,4,2>": "Sales - 150mm" + }, + "<8,5>": { + "<8,5,1>": "200", + "<8,5,2>": "Sales - 200mm" + }, + "<8,6>": { + "<8,6,1>": "SETUP", + "<8,6,2>": "Set-up Charge Income" + }, + "<8,7>": { + "<8,7,1>": "SLSRA", + "<8,7,2>": "Sales Returns and Allowances" + }, + "<8,8>": { + "<8,8,1>": "INT", + "<8,8,2>": "Interest Income" + }, + "<8,9>": { + "<8,9,1>": "RAD", + "<8,9,2>": "R&D Income" + }, + "<8,10>": { + "<8,10,1>": "OTHER", + "<8,10,2>": "Other Income" + }, + "<8,11>": { + "<8,11,1>": "MAS", + "<8,11,2>": "Income from M&S" + }, + "<8,12>": { + "<8,12,1>": "SRL", + "<8,12,2>": "Income from LSL Research" + }, + "<8,13>": { + "<8,13,1>": "MID", + "<8,13,2>": "Income from Midwest" + }, + "<8,14>": { + "<8,14,1>": "S75", + "<8,14,2>": "Substrates - 75mm" + }, + "<8,15>": { + "<8,15,1>": "S100", + "<8,15,2>": "Substrates - 100mm" + }, + "<8,16>": { + "<8,16,1>": "S125", + "<8,16,2>": "Substrates - 125mm" + }, + "<8,17>": { + "<8,17,1>": "S150", + "<8,17,2>": "Substrates - 150mm" + }, + "<8,18>": { + "<8,18,1>": "S200", + "<8,18,2>": "Substrates - 200mm" + }, + "<8,19>": { + "<8,19,1>": "ALLOW", + "<8,19,2>": "Allowance for doubtful Accts" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "9", + "<9,1,3>": "L", + "<9,1,4>": "L", + "<9,1,5>": "", + "<9,1,6>": "Account #" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "35", + "<9,2,3>": "L", + "<9,2,4>": "L", + "<9,2,5>": "", + "<9,2,6>": "Description" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "General Ledger Accounts Tempe", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/GL_ACCTS_MESA.json b/LSL2/POPUP/GL_ACCTS_MESA.json new file mode 100644 index 0000000..fcc08cb --- /dev/null +++ b/LSL2/POPUP/GL_ACCTS_MESA.json @@ -0,0 +1,107 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "041", + "<8,1,2>": "Buried Layer" + }, + "<8,2>": { + "<8,2,1>": "041 Returns", + "<8,2,2>": "Buried Layer Returns" + }, + "<8,3>": { + "<8,3,1>": "043", + "<8,3,2>": "SiGe" + }, + "<8,4>": { + "<8,4,1>": "043 Returns", + "<8,4,2>": "SiGe Returns" + }, + "<8,5>": { + "<8,5,1>": "044", + "<8,5,2>": "Blanket" + }, + "<8,6>": { + "<8,6,1>": "044 Returns", + "<8,6,2>": "Blanket Returns" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "15", + "<9,1,3>": "L", + "<9,1,4>": "L", + "<9,1,5>": "", + "<9,1,6>": "Account #" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "35", + "<9,2,3>": "L", + "<9,2,4>": "L", + "<9,2,5>": "", + "<9,2,6>": "Description" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "General Ledger Accounts Mesa", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/GL_ACCTS_SRL.json b/LSL2/POPUP/GL_ACCTS_SRL.json new file mode 100644 index 0000000..56291c0 --- /dev/null +++ b/LSL2/POPUP/GL_ACCTS_SRL.json @@ -0,0 +1,133 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "75-03", + "<8,1,2>": "Sales - 75mm " + }, + "<8,2>": { + "<8,2,1>": "100-03", + "<8,2,2>": "Sales - 100mm" + }, + "<8,3>": { + "<8,3,1>": "125-03", + "<8,3,2>": "Sales - 125mm" + }, + "<8,4>": { + "<8,4,1>": "150-03", + "<8,4,2>": "Sales - 150mm" + }, + "<8,5>": { + "<8,5,1>": "200-03", + "<8,5,2>": "Sales - 200mm" + }, + "<8,6>": { + "<8,6,1>": "SETUP3", + "<8,6,2>": "Set-up Charge Income " + }, + "<8,7>": { + "<8,7,1>": "RAD-03", + "<8,7,2>": "R&D Income" + }, + "<8,8>": { + "<8,8,1>": "OTHER3", + "<8,8,2>": "Other Income" + }, + "<8,9>": { + "<8,9,1>": "S75-03", + "<8,9,2>": "Substrates - 75mm" + }, + "<8,10>": { + "<8,10,1>": "S100-3", + "<8,10,2>": "Substrates - 100mm" + }, + "<8,11>": { + "<8,11,1>": "S125-3", + "<8,11,2>": "Substrates - 125mm" + }, + "<8,12>": { + "<8,12,1>": "S150-3", + "<8,12,2>": "Substrates - 150mm" + }, + "<8,13>": { + "<8,13,1>": "S200-3", + "<8,13,2>": "Substrates - 200mm" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "9", + "<9,1,3>": "L", + "<9,1,4>": "L", + "<9,1,5>": "", + "<9,1,6>": "Account #" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "35", + "<9,2,3>": "L", + "<9,2,4>": "L", + "<9,2,5>": "", + "<9,2,6>": "Description" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "General Ledger Accounts SRL", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/GROUP_SELECTION.json b/LSL2/POPUP/GROUP_SELECTION.json new file mode 100644 index 0000000..2112d94 --- /dev/null +++ b/LSL2/POPUP/GROUP_SELECTION.json @@ -0,0 +1,84 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Segoe UI", + "<6,1,2>": "-12", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "3", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "0" + } + }, + "<7>": "SEC_GROUPS", + "<8>": { + "<8,1>": "ENGINEERING", + "<8,2>": "LEAD" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "GROUP", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Group ID" + }, + "<9,2>": { + "<9,2,1>": "GROUP_NAME", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Group Name" + } + }, + "<10>": "K", + "<11>": "2", + "<12>": "Group Selection", + "<13>": "", + "<14>": "E", + "<15>": "1", + "<16>": "0", + "<17>": "0", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/HOTH2O2_LOG_QUERY.json b/LSL2/POPUP/HOTH2O2_LOG_QUERY.json new file mode 100644 index 0000000..c1a5461 --- /dev/null +++ b/LSL2/POPUP/HOTH2O2_LOG_QUERY.json @@ -0,0 +1,74 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "HOTH2O2_LOG", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "DATE_CHANGED", + "<9,1,2>": "11", + "<9,1,3>": "R", + "<9,1,4>": "C", + "<9,1,5>": "D2/", + "<9,1,6>": "Date Changed" + }, + "<9,2>": { + "<9,2,1>": "TECH_SIG", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,2,6>": "Technician" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Hot Peroxide Change Log Report", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/ICAR_NONCONF.json b/LSL2/POPUP/ICAR_NONCONF.json new file mode 100644 index 0000000..9cb103c --- /dev/null +++ b/LSL2/POPUP/ICAR_NONCONF.json @@ -0,0 +1,79 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "CONFIG", + "<8>": "ICAR_NONCONFORMANCE", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "13", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Proc No" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "38", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "Description" + } + }, + "<10>": "R", + "<11>": "1", + "<12>": "ICAR Nonconformance", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "2", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/ICAR_NONCONF_IDX_VALS.json b/LSL2/POPUP/ICAR_NONCONF_IDX_VALS.json new file mode 100644 index 0000000..ab7ba18 --- /dev/null +++ b/LSL2/POPUP/ICAR_NONCONF_IDX_VALS.json @@ -0,0 +1,90 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "value1", + "<8,1,2>": "Desc 1" + }, + "<8,2>": { + "<8,2,1>": "value 2", + "<8,2,2>": "Desc 2" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Procedure ID" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "40", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Description" + } + }, + "<10>": "L", + "<11>": "2", + "<12>": "Non Conformance Procedure References on File", + "<13>": "", + "<14>": "E", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/ICAR_QUERY.json b/LSL2/POPUP/ICAR_QUERY.json new file mode 100644 index 0000000..236ea56 --- /dev/null +++ b/LSL2/POPUP/ICAR_QUERY.json @@ -0,0 +1,145 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "3", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0", + "<6,1,15>": "0", + "<6,1,16>": "0" + } + }, + "<7>": "ICAR", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "SEQ", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "OFI ID" + }, + "<9,2>": { + "<9,2,1>": "CONFIRM_STATUS", + "<9,2,2>": "7", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "[ICAR_CONFIRM_STATUS_CONV]", + "<9,2,6>": "Conf Status" + }, + "<9,3>": { + "<9,3,1>": "NON_CONF_DESC", + "<9,3,2>": "40", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "NonConf Desc" + }, + "<9,4>": { + "<9,4,1>": "RESP_SUPERVISOR_NAME", + "<9,4,2>": "15", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Resp Sup Name" + }, + "<9,5>": { + "<9,5,1>": "PROBLEM_TYPE", + "<9,5,2>": "10", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "[ICAR_PROBLEM_TYPE_CONV]", + "<9,5,6>": "Problem Type" + }, + "<9,6>": { + "<9,6,1>": "USER_NAME", + "<9,6,2>": "15", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Username" + }, + "<9,7>": { + "<9,7,1>": "ENTRY_DATE", + "<9,7,2>": "11", + "<9,7,3>": "C", + "<9,7,4>": "C", + "<9,7,5>": "D2/", + "<9,7,6>": "Entry Date" + }, + "<9,8>": { + "<9,8,1>": "ENTRY_ID", + "<9,8,2>": "12", + "<9,8,3>": "L", + "<9,8,4>": "C", + "<9,8,5>": "", + "<9,8,6>": "Entry ID" + }, + "<9,9>": { + "<9,9,1>": "STATUS", + "<9,9,2>": "12", + "<9,9,3>": "L", + "<9,9,4>": "C", + "<9,9,5>": "[ICAR_STATUS_CONV]", + "<9,9,6>": "Status" + }, + "<9,10>": { + "<9,10,1>": "DEPT_RESP", + "<9,10,2>": "20", + "<9,10,3>": "L", + "<9,10,4>": "C", + "<9,10,5>": "", + "<9,10,6>": "Dept Resp" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "ICAR Log", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/INCO_CODES.json b/LSL2/POPUP/INCO_CODES.json new file mode 100644 index 0000000..7ff3308 --- /dev/null +++ b/LSL2/POPUP/INCO_CODES.json @@ -0,0 +1,134 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "EXW", + "<8,1,2>": "EX Works at Named Place" + }, + "<8,2>": { + "<8,2,1>": "FCA", + "<8,2,2>": "Free CArrier from Named Place" + }, + "<8,3>": { + "<8,3,1>": "FAS", + "<8,3,2>": "Free Alongside Ship at Named Port of Shipment" + }, + "<8,4>": { + "<8,4,1>": "FOB", + "<8,4,2>": "Free On Board at Named Port of Shipment" + }, + "<8,5>": { + "<8,5,1>": "CFR", + "<8,5,2>": "Cost and FReight to Named Port of Destination" + }, + "<8,6>": { + "<8,6,1>": "CIF", + "<8,6,2>": "Cost, Insurance and Freight to Named Port of Destination" + }, + "<8,7>": { + "<8,7,1>": "CPT", + "<8,7,2>": "Carriage Paid To Named Place of Destination" + }, + "<8,8>": { + "<8,8,1>": "CIP", + "<8,8,2>": "Carriage and Insurance Paid to Named Place of Destination" + }, + "<8,9>": { + "<8,9,1>": "DAF", + "<8,9,2>": "Delivered At Frontier Named Place" + }, + "<8,10>": { + "<8,10,1>": "DES", + "<8,10,2>": "Delivered Ex Ship at Named Port of Destination" + }, + "<8,11>": { + "<8,11,1>": "DEQ", + "<8,11,2>": "Delivered Ex Quay at Named Port of Destination" + }, + "<8,12>": { + "<8,12,1>": "DDU", + "<8,12,2>": "Delivered Duty Unpaid at Named Place of Destination" + }, + "<8,13>": { + "<8,13,1>": "DDP", + "<8,13,2>": "Delivered Duty Paid at Named Place of Destination" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "40", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Nomenclature" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "INCO Codes", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/INDEXED_TABLES.json b/LSL2/POPUP/INDEXED_TABLES.json new file mode 100644 index 0000000..7d94a6a --- /dev/null +++ b/LSL2/POPUP/INDEXED_TABLES.json @@ -0,0 +1,105 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "16", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "File Name" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "12", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Volumne" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "16", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Real Name" + }, + "<9,4>": { + "<9,4,1>": "4", + "<9,4,2>": "12", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Account" + }, + "<9,5>": { + "<9,5,1>": "5", + "<9,5,2>": "20", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "File Systems(s)" + } + }, + "<10>": "L", + "<11>": "2", + "<12>": "Indexed Tables", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/INTL_FAX_NUMBERS.json b/LSL2/POPUP/INTL_FAX_NUMBERS.json new file mode 100644 index 0000000..85ff538 --- /dev/null +++ b/LSL2/POPUP/INTL_FAX_NUMBERS.json @@ -0,0 +1,72 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "25", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Company/Contact" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "15", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": " ", + "<9,2,6>": "Intl Fax Number" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Fax Number", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/INT_EXT.json b/LSL2/POPUP/INT_EXT.json new file mode 100644 index 0000000..1219643 --- /dev/null +++ b/LSL2/POPUP/INT_EXT.json @@ -0,0 +1,90 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "E", + "<8,1,2>": "Equipment" + }, + "<8,2>": { + "<8,2,1>": "S", + "<8,2,2>": "NIST Standard" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "15", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Type" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Calibration List Type ", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/INVOICE_GOTO_QUOTE.json b/LSL2/POPUP/INVOICE_GOTO_QUOTE.json new file mode 100644 index 0000000..7394795 --- /dev/null +++ b/LSL2/POPUP/INVOICE_GOTO_QUOTE.json @@ -0,0 +1,67 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "View/Edit Current Quote...", + "<8,2>": "View/Edit all Quotes..." + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "29", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Option" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Quote Options", + "<13>": "", + "<14>": "P", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/INVOICE_GOTO_SCHED.json b/LSL2/POPUP/INVOICE_GOTO_SCHED.json new file mode 100644 index 0000000..bc114fb --- /dev/null +++ b/LSL2/POPUP/INVOICE_GOTO_SCHED.json @@ -0,0 +1,67 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "View/Edit Current Schedule...", + "<8,2>": "View/Edit all Schedules..." + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "29", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Option" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Schedule Options", + "<13>": "", + "<14>": "P", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/INVOICE_MEMO_OPTS.json b/LSL2/POPUP/INVOICE_MEMO_OPTS.json new file mode 100644 index 0000000..80c7fb2 --- /dev/null +++ b/LSL2/POPUP/INVOICE_MEMO_OPTS.json @@ -0,0 +1,67 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "Credit Memo", + "<8,2>": "Debit Memo" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "15", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Option" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Memo Options", + "<13>": "", + "<14>": "P", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/INVOICE_PLANT_OPTS.json b/LSL2/POPUP/INVOICE_PLANT_OPTS.json new file mode 100644 index 0000000..fb379a8 --- /dev/null +++ b/LSL2/POPUP/INVOICE_PLANT_OPTS.json @@ -0,0 +1,90 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Tempe", + "<8,1,2>": "T" + }, + "<8,2>": { + "<8,2,1>": "Mesa", + "<8,2,2>": "M" + }, + "<8,3>": "" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "15", + "<9,1,3>": "L", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Plant" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "L", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Invoicing Options", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/INVOICE_PRINT_OPTS.json b/LSL2/POPUP/INVOICE_PRINT_OPTS.json new file mode 100644 index 0000000..740fae1 --- /dev/null +++ b/LSL2/POPUP/INVOICE_PRINT_OPTS.json @@ -0,0 +1,91 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "PrePrinted Invoice", + "<8,1,2>": "1" + }, + "<8,2>": { + "<8,2,1>": "Packing List", + "<8,2,2>": "2" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "L", + "<9,1,5>": "", + "<9,1,6>": "Option" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "L", + "<9,2,4>": "L", + "<9,2,5>": "", + "<9,2,6>": "" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "2", + "<12>": "Invoice Print Options", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/INVOICE_PRINT_OPTS2.json b/LSL2/POPUP/INVOICE_PRINT_OPTS2.json new file mode 100644 index 0000000..b1b0285 --- /dev/null +++ b/LSL2/POPUP/INVOICE_PRINT_OPTS2.json @@ -0,0 +1,91 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Standard Invoice", + "<8,1,2>": "1" + }, + "<8,2>": { + "<8,2,1>": "Invoice w/Pmt History and Balance", + "<8,2,2>": "2" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "25", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Invoice Option" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Invoice Print Options", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/INVOICE_QUERY.json b/LSL2/POPUP/INVOICE_QUERY.json new file mode 100644 index 0000000..b1ed3b5 --- /dev/null +++ b/LSL2/POPUP/INVOICE_QUERY.json @@ -0,0 +1,96 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "INVOICE", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "CUST_NO", + "<9,1,2>": "14", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "[XLATE_CONV,COMPANY*CO_NAME]", + "<9,1,6>": "Customer No" + }, + "<9,2>": { + "<9,2,1>": "PO", + "<9,2,2>": "12", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "PO" + }, + "<9,3>": { + "<9,3,1>": "PART_NUM", + "<9,3,2>": "12", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Part Number" + }, + "<9,4>": { + "<9,4,1>": "ENTRY_ID", + "<9,4,2>": "12", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,4,6>": "Entry ID" + }, + "<9,5>": { + "<9,5,1>": "ENTRY_DATE", + "<9,5,2>": "11", + "<9,5,3>": "R", + "<9,5,4>": "C", + "<9,5,5>": "D2/", + "<9,5,6>": "Entry Date" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Invoices", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/INVOICE_SRL_QUERY.json b/LSL2/POPUP/INVOICE_SRL_QUERY.json new file mode 100644 index 0000000..08b1941 --- /dev/null +++ b/LSL2/POPUP/INVOICE_SRL_QUERY.json @@ -0,0 +1,88 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "INVOICE_SRL", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "CUST_NO", + "<9,1,2>": "14", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "[XLATE_CONV,COMPANY*CO_NAME]", + "<9,1,6>": "Customer No" + }, + "<9,2>": { + "<9,2,1>": "PO", + "<9,2,2>": "12", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "PO" + }, + "<9,3>": { + "<9,3,1>": "ENTRY_ID", + "<9,3,2>": "12", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,3,6>": "Entry ID" + }, + "<9,4>": { + "<9,4,1>": "ENTRY_DATE", + "<9,4,2>": "11", + "<9,4,3>": "R", + "<9,4,4>": "C", + "<9,4,5>": "D2/", + "<9,4,6>": "Entry Date" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Invoices", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/IR_FISCAL_YEAR.json b/LSL2/POPUP/IR_FISCAL_YEAR.json new file mode 100644 index 0000000..f984650 --- /dev/null +++ b/LSL2/POPUP/IR_FISCAL_YEAR.json @@ -0,0 +1,79 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "FISCAL_YR", + "<8>": "BY @ID", + "<9>": { + "<9,1>": { + "<9,1,1>": "FISCAL_YR", + "<9,1,2>": "8", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "Fiscal YR" + }, + "<9,2>": { + "<9,2,1>": "START_DT", + "<9,2,2>": "11", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "D4/", + "<9,2,6>": "Start Dt" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "IR Fiscal Year Start Dates", + "<13>": "", + "<14>": "E", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/JCHTEST.json b/LSL2/POPUP/JCHTEST.json new file mode 100644 index 0000000..5f82d12 --- /dev/null +++ b/LSL2/POPUP/JCHTEST.json @@ -0,0 +1,75 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "RDS", + "<8>": { + "<8,1>": "100", + "<8,2>": "21500" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "AUX1", + "<9,1,2>": "16", + "<9,1,3>": "R", + "<9,1,4>": "C", + "<9,1,5>": "MD2", + "<9,1,6>": "Aux1" + }, + "<9,2>": { + "<9,2,1>": "SEQ", + "<9,2,2>": "14", + "<9,2,3>": "R", + "<9,2,4>": "C", + "<9,2,5>": "MD0", + "<9,2,6>": "SEQ" + } + }, + "<10>": "K", + "<11>": "1", + "<12>": "", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/KEEP_ALIVES.json b/LSL2/POPUP/KEEP_ALIVES.json new file mode 100644 index 0000000..d142bb4 --- /dev/null +++ b/LSL2/POPUP/KEEP_ALIVES.json @@ -0,0 +1,97 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "SYSLISTS", + "<8>": "WITH @ID CONTAINS \"KEEP\" BY @ID", + "<9>": { + "<9,1>": { + "<9,1,1>": "@ID", + "<9,1,2>": "22", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Workstation" + }, + "<9,2>": { + "<9,2,1>": "1", + "<9,2,2>": "11", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "UserName" + }, + "<9,3>": { + "<9,3,1>": "2", + "<9,3,2>": "16", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Last Updated" + }, + "<9,4>": { + "<9,4,1>": "", + "<9,4,2>": "", + "<9,4,3>": "", + "<9,4,4>": "", + "<9,4,5>": "", + "<9,4,6>": "" + } + }, + "<10>": "T", + "<11>": "0", + "<12>": "Keep Alives", + "<13>": "", + "<14>": "R", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/LAYER_TYPE.json b/LSL2/POPUP/LAYER_TYPE.json new file mode 100644 index 0000000..2aebea1 --- /dev/null +++ b/LSL2/POPUP/LAYER_TYPE.json @@ -0,0 +1,94 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "DEP", + "<8,1,2>": "Epi Deposition" + }, + "<8,2>": { + "<8,2,1>": "CMB", + "<8,2,2>": "Combined Properties" + }, + "<8,3>": { + "<8,3,1>": "DC", + "<8,3,2>": "Deposition & Combined Properties" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "6", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Type" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "25", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Description" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Layer Type", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/LISTBOX_CONFIG.json b/LSL2/POPUP/LISTBOX_CONFIG.json new file mode 100644 index 0000000..b6c1bfe --- /dev/null +++ b/LSL2/POPUP/LISTBOX_CONFIG.json @@ -0,0 +1,64 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "LISTBOX_CONFIG", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "ITEM", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "ListBox Configuration", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/LOCATIONS.json b/LSL2/POPUP/LOCATIONS.json new file mode 100644 index 0000000..414eecc --- /dev/null +++ b/LSL2/POPUP/LOCATIONS.json @@ -0,0 +1,105 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "LOCATION", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "WH_CD", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "WH Cd" + }, + "<9,2>": { + "<9,2,1>": "LOC_CD", + "<9,2,2>": "10", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Loc Cd" + }, + "<9,3>": { + "<9,3,1>": "DESC", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Desc" + }, + "<9,4>": { + "<9,4,1>": "CUST_NO", + "<9,4,2>": "8", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Cust No" + }, + "<9,5>": { + "<9,5,1>": "CUST_NAME", + "<9,5,2>": "20", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Cust Name" + } + }, + "<10>": "K", + "<11>": "2", + "<12>": "", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MAINT_ACTION.json b/LSL2/POPUP/MAINT_ACTION.json new file mode 100644 index 0000000..ba0db60 --- /dev/null +++ b/LSL2/POPUP/MAINT_ACTION.json @@ -0,0 +1,100 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "Adjusted", + "<8,2>": "Calibrated", + "<8,3>": "Changed", + "<8,4>": "Checked", + "<8,5>": "Cleaned", + "<8,6>": "Closed", + "<8,7>": "Comp_Checklist", + "<8,8>": "Completed", + "<8,9>": "Converted", + "<8,10>": "Decreased", + "<8,11>": "Homed", + "<8,12>": "Increased", + "<8,13>": "Lowered", + "<8,14>": "Leveled", + "<8,15>": "PM", + "<8,16>": "Performed", + "<8,17>": "Raised", + "<8,18>": "Rebuilt", + "<8,19>": "Removed", + "<8,20>": "Repaired", + "<8,21>": "Replaced", + "<8,22>": "Reset", + "<8,23>": "Restored", + "<8,24>": "See_Notes", + "<8,25>": "Tightened", + "<8,26>": "Tuned" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "15", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Action" + } + }, + "<10>": "L", + "<11>": "3", + "<12>": "Maintenance Actions", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MAINT_WIZARD.json b/LSL2/POPUP/MAINT_WIZARD.json new file mode 100644 index 0000000..aaf5e0a --- /dev/null +++ b/LSL2/POPUP/MAINT_WIZARD.json @@ -0,0 +1,109 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Reactor Area", + "<8,1,2>": "1" + }, + "<8,2>": { + "<8,2,1>": "Reactor Gas Panel", + "<8,2,2>": "2" + }, + "<8,3>": { + "<8,3,1>": "Facilities", + "<8,3,2>": "3" + }, + "<8,4>": { + "<8,4,1>": "Gas Changes", + "<8,4,2>": "4" + }, + "<8,5>": { + "<8,5,1>": "Wafer Transfer Area", + "<8,5,2>": "5" + }, + "<8,6>": { + "<8,6,1>": "Calibrations", + "<8,6,2>": "6" + }, + "<8,7>": { + "<8,7,1>": "Process Trouble Shooting", + "<8,7,2>": "7" + }, + "<8,8>": { + "<8,8,1>": "Semitool", + "<8,8,2>": "8" + }, + "<8,9>": { + "<8,9,1>": "SRD", + "<8,9,2>": "9" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Category" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Category", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MAINT_WIZARD1.json b/LSL2/POPUP/MAINT_WIZARD1.json new file mode 100644 index 0000000..d0ca922 --- /dev/null +++ b/LSL2/POPUP/MAINT_WIZARD1.json @@ -0,0 +1,129 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Tube Change", + "<8,1,2>": "Tube Change" + }, + "<8,2>": { + "<8,2,1>": "Susceptor Change", + "<8,2,2>": "Susceptor Change" + }, + "<8,3>": { + "<8,3,1>": "Resheath", + "<8,3,2>": "Resheath" + }, + "<8,4>": { + "<8,4,1>": "Center T/C", + "<8,4,2>": "Center T/C" + }, + "<8,5>": { + "<8,5,1>": "Front T/C", + "<8,5,2>": "Front T/C" + }, + "<8,6>": { + "<8,6,1>": "Side T/C", + "<8,6,2>": "Side T/C" + }, + "<8,7>": { + "<8,7,1>": "Rear T/C", + "<8,7,2>": "Rear T/C" + }, + "<8,8>": { + "<8,8,1>": "T/C Transmitter", + "<8,8,2>": "T/C Transmitter" + }, + "<8,9>": { + "<8,9,1>": "Injector Settings", + "<8,9,2>": "Injector Settings" + }, + "<8,10>": { + "<8,10,1>": "Lamp Replacement", + "<8,10,2>": "Lamp Replacement" + }, + "<8,11>": { + "<8,11,1>": "Spot Lamp Replacement", + "<8,11,2>": "Spot Lamp Replacement" + }, + "<8,12>": { + "<8,12,1>": "Saturn Ring Top", + "<8,12,2>": "Saturn Ring Top" + }, + "<8,13>": { + "<8,13,1>": "Saturn Ring Bottom", + "<8,13,2>": "Saturn Ring Bottom" + }, + "<8,14>": { + "<8,14,1>": "Gate O-Ring Replacement", + "<8,14,2>": "Gate O-Ring Replacement" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Category" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Category", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MAINT_WIZARD2.json b/LSL2/POPUP/MAINT_WIZARD2.json new file mode 100644 index 0000000..b12654f --- /dev/null +++ b/LSL2/POPUP/MAINT_WIZARD2.json @@ -0,0 +1,101 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "MFC", + "<8,1,2>": "MFC" + }, + "<8,2>": { + "<8,2,1>": "LVC", + "<8,2,2>": "LVC" + }, + "<8,3>": { + "<8,3,1>": "Regulator", + "<8,3,2>": "Regulator" + }, + "<8,4>": { + "<8,4,1>": "Pneumatic Valves", + "<8,4,2>": "Pneumatic Valves" + }, + "<8,5>": { + "<8,5,1>": "1/4 Turn Valves", + "<8,5,2>": "1/4 Turn Valves" + }, + "<8,6>": { + "<8,6,1>": "EVs", + "<8,6,2>": "EVs" + }, + "<8,7>": { + "<8,7,1>": "Filter", + "<8,7,2>": "A" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Category" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Category", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MAINT_WIZARD2A.json b/LSL2/POPUP/MAINT_WIZARD2A.json new file mode 100644 index 0000000..b5eb2bb --- /dev/null +++ b/LSL2/POPUP/MAINT_WIZARD2A.json @@ -0,0 +1,109 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "MFC Filter", + "<8,1,2>": "MFC Filter" + }, + "<8,2>": { + "<8,2,1>": "B2H6 Filter", + "<8,2,2>": "B2H6 Filter" + }, + "<8,3>": { + "<8,3,1>": "AsH3 Filter", + "<8,3,2>": "AsH3 Filter" + }, + "<8,4>": { + "<8,4,1>": "PH3 Filter", + "<8,4,2>": "PH3 Filter" + }, + "<8,5>": { + "<8,5,1>": "DC5 Filter", + "<8,5,2>": "DC5 Filter" + }, + "<8,6>": { + "<8,6,1>": "Silane Filter", + "<8,6,2>": "Silane Filter" + }, + "<8,7>": { + "<8,7,1>": "GeH4 Filter", + "<8,7,2>": "GeH4 Filter" + }, + "<8,8>": { + "<8,8,1>": "Main Injector Filter", + "<8,8,2>": "Main Injector Filter" + }, + "<8,9>": { + "<8,9,1>": "HCL Filter", + "<8,9,2>": "HCL Filter" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Category" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Category", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MAINT_WIZARD3.json b/LSL2/POPUP/MAINT_WIZARD3.json new file mode 100644 index 0000000..26a4ca8 --- /dev/null +++ b/LSL2/POPUP/MAINT_WIZARD3.json @@ -0,0 +1,94 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Fire Alarm", + "<8,1,2>": "Fire Alarm" + }, + "<8,2>": { + "<8,2,1>": "Power Glitch", + "<8,2,2>": "Power Glitch" + }, + "<8,3>": { + "<8,3,1>": "Scrubber Work", + "<8,3,2>": "Scrubber Work" + }, + "<8,4>": { + "<8,4,1>": "Scheduled Plant Shut Down", + "<8,4,2>": "Scheduled Plant Shut Down" + }, + "<8,5>": { + "<8,5,1>": "Unscheduled Plant Shut Down", + "<8,5,2>": "Unscheduled Plant Shut Down" + }, + "<8,6>": "" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Category" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Category", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MAINT_WIZARD4.json b/LSL2/POPUP/MAINT_WIZARD4.json new file mode 100644 index 0000000..0519fac --- /dev/null +++ b/LSL2/POPUP/MAINT_WIZARD4.json @@ -0,0 +1,117 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "N2 Purge Cylinder", + "<8,1,2>": "N2 Purge Cylinder" + }, + "<8,2>": { + "<8,2,1>": "Arsine Change", + "<8,2,2>": "E" + }, + "<8,3>": { + "<8,3,1>": "Diborine Change", + "<8,3,2>": "D" + }, + "<8,4>": { + "<8,4,1>": "Diclorosilane Change", + "<8,4,2>": "C" + }, + "<8,5>": { + "<8,5,1>": "Germane Change", + "<8,5,2>": "H" + }, + "<8,6>": { + "<8,6,1>": "Helium leak test", + "<8,6,2>": "G" + }, + "<8,7>": { + "<8,7,1>": "Phosphine Change", + "<8,7,2>": "F" + }, + "<8,8>": { + "<8,8,1>": "Silane Change", + "<8,8,2>": "B" + }, + "<8,9>": { + "<8,9,1>": "TCS Change", + "<8,9,2>": "A" + }, + "<8,10>": { + "<8,10,1>": "1% Diborine Change", + "<8,10,2>": "I" + }, + "<8,11>": { + "<8,11,1>": "1000ppm Arsine Change", + "<8,11,2>": "J" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Category" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Category", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MAINT_WIZARD4A.json b/LSL2/POPUP/MAINT_WIZARD4A.json new file mode 100644 index 0000000..cbb4622 --- /dev/null +++ b/LSL2/POPUP/MAINT_WIZARD4A.json @@ -0,0 +1,94 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "TCS Change 28,30,32,36", + "<8,1,2>": "TCS Change 28,30,32,36" + }, + "<8,2>": { + "<8,2,1>": "TCS Change 21,23,25,27", + "<8,2,2>": "TCS Change 21,23,25,27" + }, + "<8,3>": { + "<8,3,1>": "TCS Change 29,31,33,35,37", + "<8,3,2>": "TCS Change 29,31,33,35,37" + }, + "<8,4>": { + "<8,4,1>": "TCS Change 39,41,43,45", + "<8,4,2>": "TCS Change 39,41,43,45" + }, + "<8,5>": { + "<8,5,1>": "TCS Change 47,49,51,53,55", + "<8,5,2>": "TCS Change 47,49,51,53,55" + }, + "<8,6>": "" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Category" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Category", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MAINT_WIZARD4B.json b/LSL2/POPUP/MAINT_WIZARD4B.json new file mode 100644 index 0000000..67ca82d --- /dev/null +++ b/LSL2/POPUP/MAINT_WIZARD4B.json @@ -0,0 +1,81 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Silane Change 39,41", + "<8,1,2>": "Silane Change 39,41" + }, + "<8,2>": { + "<8,2,1>": "Silane Change 43,45", + "<8,2,2>": "Silane Change 43,45" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Category" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Category", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MAINT_WIZARD4C.json b/LSL2/POPUP/MAINT_WIZARD4C.json new file mode 100644 index 0000000..ee64be4 --- /dev/null +++ b/LSL2/POPUP/MAINT_WIZARD4C.json @@ -0,0 +1,105 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Diclorosilane Change 20,22", + "<8,1,2>": "Diclorosilane Change 20,22" + }, + "<8,2>": { + "<8,2,1>": "Diclorosilane Change 24,26", + "<8,2,2>": "Diclorosilane Change 24,26" + }, + "<8,3>": { + "<8,3,1>": "Diclorosilane Change 28,30", + "<8,3,2>": "Diclorosilane Change 28,30" + }, + "<8,4>": { + "<8,4,1>": "Diclorosilane Change 32,34,36", + "<8,4,2>": "Diclorosilane Change 32,34,36" + }, + "<8,5>": { + "<8,5,1>": "Diclorosilane Change 21,23,25,27", + "<8,5,2>": "Diclorosilane Change 21,23,25,27 " + }, + "<8,6>": { + "<8,6,1>": "Diclorosilane Change 29,31,33,35,37", + "<8,6,2>": "Diclorosilane Change 29,31,33,35,37 " + }, + "<8,7>": { + "<8,7,1>": "Diclorosilane Change 39,41,43,45", + "<8,7,2>": "Diclorosilane Change 39,41,43,45" + }, + "<8,8>": { + "<8,8,1>": "Diclorosilane Change 47,49,51,53,55", + "<8,8,2>": "Diclorosilane Change 47,49,51,53,55" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "25", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Category" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Category", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MAINT_WIZARD4D.json b/LSL2/POPUP/MAINT_WIZARD4D.json new file mode 100644 index 0000000..5677709 --- /dev/null +++ b/LSL2/POPUP/MAINT_WIZARD4D.json @@ -0,0 +1,97 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Diborine Change 20,22,24,26", + "<8,1,2>": "Diborine Change 20,22,24,26" + }, + "<8,2>": { + "<8,2,1>": "Diborine Change 28,30,32,34,36", + "<8,2,2>": "Diborine Change 28,30,32,34,36" + }, + "<8,3>": { + "<8,3,1>": "Diborine Change 21,23,25,27 ", + "<8,3,2>": "Diborine Change 21,23,25,27" + }, + "<8,4>": { + "<8,4,1>": "Diborine Change 29,31,33,35,37", + "<8,4,2>": "Diborine Change 29,31,33,35,37" + }, + "<8,5>": { + "<8,5,1>": "Diborine Change 39,41,43,45", + "<8,5,2>": "Diborine Change 39,41,43,45" + }, + "<8,6>": { + "<8,6,1>": "Diborine Change 47,49,51,53,55", + "<8,6,2>": "Diborine Change 47,49,51,53,55" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "25", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Category" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Category", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MAINT_WIZARD4E.json b/LSL2/POPUP/MAINT_WIZARD4E.json new file mode 100644 index 0000000..07606bf --- /dev/null +++ b/LSL2/POPUP/MAINT_WIZARD4E.json @@ -0,0 +1,97 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Arsine Change 20,22,24,26", + "<8,1,2>": "Arsine Change 20,22,24,26" + }, + "<8,2>": { + "<8,2,1>": "Arsine Change 28,30,32,34,36", + "<8,2,2>": "Arsine Change 28,30,32,34,36" + }, + "<8,3>": { + "<8,3,1>": "Arsine Change 21,23,25,27 ", + "<8,3,2>": "Arsine Change 21,23,25,27" + }, + "<8,4>": { + "<8,4,1>": "Arsine Change 29,31,33,35,37", + "<8,4,2>": "Arsine Change 29,31,33,35,37" + }, + "<8,5>": { + "<8,5,1>": "Arsine Change 39,41,43,45", + "<8,5,2>": "Arsine Change 39,41,43,45" + }, + "<8,6>": { + "<8,6,1>": "Arsine Change 47,49,51,53,55", + "<8,6,2>": "Arsine Change 47,49,51,53,55" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "25", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Category" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Category", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MAINT_WIZARD4F.json b/LSL2/POPUP/MAINT_WIZARD4F.json new file mode 100644 index 0000000..627e34f --- /dev/null +++ b/LSL2/POPUP/MAINT_WIZARD4F.json @@ -0,0 +1,97 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Phosphine Change 20,22,24,26", + "<8,1,2>": "Phosphine Change 20,22,24,26" + }, + "<8,2>": { + "<8,2,1>": "Phosphine Change 28,30,32,34,36", + "<8,2,2>": "Phosphine Change 28,30,32,34,36" + }, + "<8,3>": { + "<8,3,1>": "Phosphine Change 21,23,25,27 ", + "<8,3,2>": "Phosphine Change 21,23,25,27" + }, + "<8,4>": { + "<8,4,1>": "Phosphine Change 29,31,33,35,37", + "<8,4,2>": "Phosphine Change 29,31,33,35,37" + }, + "<8,5>": { + "<8,5,1>": "Phosphine Change 39,41,43,45", + "<8,5,2>": "Phosphine Change 39,41,43,45" + }, + "<8,6>": { + "<8,6,1>": "Phosphine Change 47,49,51,53,55", + "<8,6,2>": "Phosphine Change 47,49,51,53,55" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "25", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Category" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Category", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MAINT_WIZARD4G.json b/LSL2/POPUP/MAINT_WIZARD4G.json new file mode 100644 index 0000000..2ddd01a --- /dev/null +++ b/LSL2/POPUP/MAINT_WIZARD4G.json @@ -0,0 +1,81 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Helium leak test mo", + "<8,1,2>": "Helium leak test mo" + }, + "<8,2>": { + "<8,2,1>": "Helium leak test 6mo", + "<8,2,2>": "Helium leak test 6mo" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Category" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Category", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MAINT_WIZARD4H.json b/LSL2/POPUP/MAINT_WIZARD4H.json new file mode 100644 index 0000000..992443c --- /dev/null +++ b/LSL2/POPUP/MAINT_WIZARD4H.json @@ -0,0 +1,77 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Germane change 47,49,51,53", + "<8,1,2>": "Germane change 47,49,51,53" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Category" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Category", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MAINT_WIZARD4I.json b/LSL2/POPUP/MAINT_WIZARD4I.json new file mode 100644 index 0000000..2fa3654 --- /dev/null +++ b/LSL2/POPUP/MAINT_WIZARD4I.json @@ -0,0 +1,77 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "1% Diborine change 47,49,51,53", + "<8,1,2>": "1% Diborine change 47,49,51,53" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "25", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Category" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Category", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MAINT_WIZARD4J.json b/LSL2/POPUP/MAINT_WIZARD4J.json new file mode 100644 index 0000000..8b8a604 --- /dev/null +++ b/LSL2/POPUP/MAINT_WIZARD4J.json @@ -0,0 +1,77 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "1000ppm Arsine change 47,49,51,53", + "<8,1,2>": "1000ppm Arsine change" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "25", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Category" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Category", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MAINT_WIZARD5.json b/LSL2/POPUP/MAINT_WIZARD5.json new file mode 100644 index 0000000..2f8fa5e --- /dev/null +++ b/LSL2/POPUP/MAINT_WIZARD5.json @@ -0,0 +1,105 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Conversion", + "<8,1,2>": "A" + }, + "<8,2>": { + "<8,2,1>": "Arm Replacement", + "<8,2,2>": "Arm Replacement" + }, + "<8,3>": { + "<8,3,1>": "Wand Replacement", + "<8,3,2>": "Wand Replacement" + }, + "<8,4>": { + "<8,4,1>": "Wand Hose", + "<8,4,2>": "Wand Hose" + }, + "<8,5>": { + "<8,5,1>": "Alignment", + "<8,5,2>": "B" + }, + "<8,6>": { + "<8,6,1>": "Wand Filter", + "<8,6,2>": "Wand Filter" + }, + "<8,7>": { + "<8,7,1>": "Stepar Motor", + "<8,7,2>": "Stepar Motor" + }, + "<8,8>": { + "<8,8,1>": "Mylar Diagram", + "<8,8,2>": "Mylar Diagram" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Category" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Category", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MAINT_WIZARD5A.json b/LSL2/POPUP/MAINT_WIZARD5A.json new file mode 100644 index 0000000..49640b7 --- /dev/null +++ b/LSL2/POPUP/MAINT_WIZARD5A.json @@ -0,0 +1,93 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Conversion to 3\"", + "<8,1,2>": "Conversion to 3\"" + }, + "<8,2>": { + "<8,2,1>": "Conversion to 4\"", + "<8,2,2>": "Conversion to 4\"" + }, + "<8,3>": { + "<8,3,1>": "Conversion to 5\"", + "<8,3,2>": "Conversion to 5\"" + }, + "<8,4>": { + "<8,4,1>": "Conversion to 6\"", + "<8,4,2>": "Conversion to 6\"" + }, + "<8,5>": { + "<8,5,1>": "Conversion to 8\"", + "<8,5,2>": "Conversion to 8\"" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Category" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Category", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MAINT_WIZARD5B.json b/LSL2/POPUP/MAINT_WIZARD5B.json new file mode 100644 index 0000000..eccb9b9 --- /dev/null +++ b/LSL2/POPUP/MAINT_WIZARD5B.json @@ -0,0 +1,85 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Complete Alignment", + "<8,1,2>": "Complete Alignment" + }, + "<8,2>": { + "<8,2,1>": "Front End Alignment", + "<8,2,2>": "Front End Alignment" + }, + "<8,3>": { + "<8,3,1>": "Back End Alignment", + "<8,3,2>": "Back End Alignment" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Category" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Category", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MAINT_WIZARD6.json b/LSL2/POPUP/MAINT_WIZARD6.json new file mode 100644 index 0000000..123b78a --- /dev/null +++ b/LSL2/POPUP/MAINT_WIZARD6.json @@ -0,0 +1,93 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Detection", + "<8,1,2>": "A" + }, + "<8,2>": { + "<8,2,1>": "Foxburo Calibration", + "<8,2,2>": "Foxburo Calibration" + }, + "<8,3>": { + "<8,3,1>": "SCR Calibration", + "<8,3,2>": "SCR Calibration" + }, + "<8,4>": { + "<8,4,1>": "TC Transmitter Calibration", + "<8,4,2>": "TC Transmitter Calibration" + }, + "<8,5>": { + "<8,5,1>": "Power Supply Calibration", + "<8,5,2>": "Power Supply Calibration" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Category" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Category", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MAINT_WIZARD6A.json b/LSL2/POPUP/MAINT_WIZARD6A.json new file mode 100644 index 0000000..3d8acdb --- /dev/null +++ b/LSL2/POPUP/MAINT_WIZARD6A.json @@ -0,0 +1,85 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "H2 Card Replacement", + "<8,1,2>": " H2 Card Replacement" + }, + "<8,2>": { + "<8,2,1>": "H2 Head Replacement", + "<8,2,2>": "H2 Head Replacement" + }, + "<8,3>": { + "<8,3,1>": "H2 Calibration", + "<8,3,2>": "H2 Calibration" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Category" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Category", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MAINT_WIZARD7.json b/LSL2/POPUP/MAINT_WIZARD7.json new file mode 100644 index 0000000..35b0dd8 --- /dev/null +++ b/LSL2/POPUP/MAINT_WIZARD7.json @@ -0,0 +1,105 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Slip", + "<8,1,2>": "Slip" + }, + "<8,2>": { + "<8,2,1>": "Particals", + "<8,2,2>": "Particals" + }, + "<8,3>": { + "<8,3,1>": "Uniformity - Injection", + "<8,3,2>": "Uniformity-Injection" + }, + "<8,4>": { + "<8,4,1>": "Broken Wafer", + "<8,4,2>": "Broken Wafer" + }, + "<8,5>": { + "<8,5,1>": "Wafer Handling Problems", + "<8,5,2>": "Wafer Handling Problems" + }, + "<8,6>": { + "<8,6,1>": "Ratio", + "<8,6,2>": "Ratio" + }, + "<8,7>": { + "<8,7,1>": "Stacking Faults", + "<8,7,2>": "Stacking Faults" + }, + "<8,8>": { + "<8,8,1>": "Haze on Wafer", + "<8,8,2>": "Haze on Wafer" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Category" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Category", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MAINT_WIZARD8.json b/LSL2/POPUP/MAINT_WIZARD8.json new file mode 100644 index 0000000..f6d3c5e --- /dev/null +++ b/LSL2/POPUP/MAINT_WIZARD8.json @@ -0,0 +1,97 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Semitool Daily pm", + "<8,1,2>": "Semitool Daily pm" + }, + "<8,2>": { + "<8,2,1>": "Semitool Weekly pm", + "<8,2,2>": "Semitool Weekly pm" + }, + "<8,3>": { + "<8,3,1>": "Semitool Monthly pm", + "<8,3,2>": "Semitool Monthly pm" + }, + "<8,4>": { + "<8,4,1>": "Semitool Quarterly pm", + "<8,4,2>": "Semitool Quarterly pm" + }, + "<8,5>": { + "<8,5,1>": "Semitool Semi-Annual pm", + "<8,5,2>": "A" + }, + "<8,6>": { + "<8,6,1>": "Semitool Annual", + "<8,6,2>": "B" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Category" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Category", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MAINT_WIZARD8A.json b/LSL2/POPUP/MAINT_WIZARD8A.json new file mode 100644 index 0000000..8195bcb --- /dev/null +++ b/LSL2/POPUP/MAINT_WIZARD8A.json @@ -0,0 +1,77 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Semitool Semi-Annual pm HF Filter", + "<8,1,2>": "Semitool Semi-Annual pm HF Filter" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "25", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Category" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Category", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MAINT_WIZARD8B.json b/LSL2/POPUP/MAINT_WIZARD8B.json new file mode 100644 index 0000000..44fac2a --- /dev/null +++ b/LSL2/POPUP/MAINT_WIZARD8B.json @@ -0,0 +1,85 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Semitool Annual pm HF Filter", + "<8,1,2>": "Semitool Annual pm HF Filter" + }, + "<8,2>": { + "<8,2,1>": "Semitool Annual pm SC1 Filter", + "<8,2,2>": "Semitool Annual pm SC1 Filter" + }, + "<8,3>": { + "<8,3,1>": "Semitool Annual pm N2 Filter", + "<8,3,2>": "Semitool Annual pm N2 Filter" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Category" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Category", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MAINT_WIZARD9.json b/LSL2/POPUP/MAINT_WIZARD9.json new file mode 100644 index 0000000..f36d477 --- /dev/null +++ b/LSL2/POPUP/MAINT_WIZARD9.json @@ -0,0 +1,85 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "SRD Weekly pm", + "<8,1,2>": "SRD Weekly pm" + }, + "<8,2>": { + "<8,2,1>": "SRD Monthly pm", + "<8,2,2>": "SRD Monthly pm" + }, + "<8,3>": { + "<8,3,1>": "SRD Annual pm", + "<8,3,2>": "A" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Category" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Category", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MAINT_WIZARD9A.json b/LSL2/POPUP/MAINT_WIZARD9A.json new file mode 100644 index 0000000..7ad16ee --- /dev/null +++ b/LSL2/POPUP/MAINT_WIZARD9A.json @@ -0,0 +1,77 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "SRD Annual pm N2 Filter", + "<8,1,2>": "SRD Annual pm N2" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Category" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Category", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MAKEUP_MERGED_WAFERS.json b/LSL2/POPUP/MAKEUP_MERGED_WAFERS.json new file mode 100644 index 0000000..34d5dd5 --- /dev/null +++ b/LSL2/POPUP/MAKEUP_MERGED_WAFERS.json @@ -0,0 +1,112 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "RDS", + "<8>": "WITH BOX_TYPE NE '' BY @ID", + "<9>": { + "<9,1>": { + "<9,1,1>": "SEQ", + "<9,1,2>": "8", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "RDS No" + }, + "<9,2>": { + "<9,2,1>": "MU_WAFER_FLAG", + "<9,2,2>": "3", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "B", + "<9,2,6>": "MU PSN" + }, + "<9,3>": { + "<9,3,1>": "BOX_TYPE", + "<9,3,2>": "10", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Box Type" + }, + "<9,4>": { + "<9,4,1>": "MAKEUP_BOX", + "<9,4,2>": "3", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "B", + "<9,4,6>": "MU Box" + }, + "<9,5>": { + "<9,5,1>": "MU_WFRS_ADDED", + "<9,5,2>": "8", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "MD0,", + "<9,5,6>": "Added" + }, + "<9,6>": { + "<9,6,1>": "MU_WFRS_REMOVED", + "<9,6,2>": "8", + "<9,6,3>": "C", + "<9,6,4>": "C", + "<9,6,5>": "MD0", + "<9,6,6>": "Removed" + }, + "<9,7>": { + "<9,7,1>": "", + "<9,7,2>": "", + "<9,7,3>": "", + "<9,7,4>": "", + "<9,7,5>": "", + "<9,7,6>": "" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "Makeup Boxes and Merged Lots", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MAKEUP_WAFERS.json b/LSL2/POPUP/MAKEUP_WAFERS.json new file mode 100644 index 0000000..2423ea4 --- /dev/null +++ b/LSL2/POPUP/MAKEUP_WAFERS.json @@ -0,0 +1,136 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "8", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Work Order" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "5", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Run No" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "8", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Sched No" + }, + "<9,4>": { + "<9,4,1>": "4", + "<9,4,2>": "8", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "RDS" + }, + "<9,5>": { + "<9,5,1>": "5", + "<9,5,2>": "5", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Reactor" + }, + "<9,6>": { + "<9,6,1>": "6", + "<9,6,2>": "10", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Box Type" + }, + "<9,7>": { + "<9,7,1>": "7", + "<9,7,2>": "10", + "<9,7,3>": "C", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "Out of Reactor" + }, + "<9,8>": { + "<9,8,1>": "8", + "<9,8,2>": "15", + "<9,8,3>": "C", + "<9,8,4>": "C", + "<9,8,5>": "", + "<9,8,6>": "Status" + }, + "<9,9>": { + "<9,9,1>": "9", + "<9,9,2>": "5", + "<9,9,3>": "C", + "<9,9,4>": "C", + "<9,9,5>": "", + "<9,9,6>": "Sched" + }, + "<9,10>": { + "<9,10,1>": "10", + "<9,10,2>": "5", + "<9,10,3>": "C", + "<9,10,4>": "C", + "<9,10,5>": "", + "<9,10,6>": "Avail" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Available Makeup Wafers", + "<13>": "", + "<14>": "E", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MASS_FLOW_CONTROLLERS.json b/LSL2/POPUP/MASS_FLOW_CONTROLLERS.json new file mode 100644 index 0000000..2b41360 --- /dev/null +++ b/LSL2/POPUP/MASS_FLOW_CONTROLLERS.json @@ -0,0 +1,129 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "MFC", + "<8>": "BY @ID", + "<9>": { + "<9,1>": { + "<9,1,1>": "SER_NO", + "<9,1,2>": "15", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Ser No" + }, + "<9,2>": { + "<9,2,1>": "ASM_PN", + "<9,2,2>": "12", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Asm Pn" + }, + "<9,3>": { + "<9,3,1>": "RANGE", + "<9,3,2>": "7", + "<9,3,3>": "R", + "<9,3,4>": "C", + "<9,3,5>": "MD0,", + "<9,3,6>": "Range" + }, + "<9,4>": { + "<9,4,1>": "MFR", + "<9,4,2>": "8", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Mfr" + }, + "<9,5>": { + "<9,5,1>": "GAS_SINGLE", + "<9,5,2>": "20", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Gases" + }, + "<9,6>": { + "<9,6,1>": "CURR_REACT_NO", + "<9,6,2>": "6", + "<9,6,3>": "R", + "<9,6,4>": "C", + "<9,6,5>": "MD0,", + "<9,6,6>": "React" + }, + "<9,7>": { + "<9,7,1>": "CURR_MFC_LOC", + "<9,7,2>": "10", + "<9,7,3>": "L", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "Mfc Loc" + }, + "<9,8>": { + "<9,8,1>": "STORES_LOC", + "<9,8,2>": "10", + "<9,8,3>": "L", + "<9,8,4>": "C", + "<9,8,5>": "", + "<9,8,6>": "Stores Loc" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "Mass Flow Controllers", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "12639424", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MASTER_DISK_LOG_QUERY.json b/LSL2/POPUP/MASTER_DISK_LOG_QUERY.json new file mode 100644 index 0000000..54f394d --- /dev/null +++ b/LSL2/POPUP/MASTER_DISK_LOG_QUERY.json @@ -0,0 +1,106 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "MASTER_DISK_LOG", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "DATE", + "<9,1,2>": "10", + "<9,1,3>": "R", + "<9,1,4>": "C", + "<9,1,5>": "D2/", + "<9,1,6>": "Date" + }, + "<9,2>": { + "<9,2,1>": "DISK", + "<9,2,2>": "7", + "<9,2,3>": "R", + "<9,2,4>": "C", + "<9,2,5>": "MD0", + "<9,2,6>": "Disk #" + }, + "<9,3>": { + "<9,3,1>": "REACTOR", + "<9,3,2>": "10", + "<9,3,3>": "R", + "<9,3,4>": "C", + "<9,3,5>": "MD0", + "<9,3,6>": "Reactor #" + }, + "<9,4>": { + "<9,4,1>": "TECH_SIG", + "<9,4,2>": "20", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,4,6>": "Technician" + }, + "<9,5>": { + "<9,5,1>": "TIME_OUT", + "<9,5,2>": "10", + "<9,5,3>": "R", + "<9,5,4>": "C", + "<9,5,5>": "MTH", + "<9,5,6>": "Time Out" + }, + "<9,6>": { + "<9,6,1>": "TIME_IN", + "<9,6,2>": "10", + "<9,6,3>": "R", + "<9,6,4>": "C", + "<9,6,5>": "MTH", + "<9,6,6>": "Time In" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Master Disk Log Report", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MAST_SCHED_OPTS.json b/LSL2/POPUP/MAST_SCHED_OPTS.json new file mode 100644 index 0000000..f00dd51 --- /dev/null +++ b/LSL2/POPUP/MAST_SCHED_OPTS.json @@ -0,0 +1,101 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Recipe", + "<8,1,2>": "RECIPE" + }, + "<8,2>": { + "<8,2,1>": "RunData Sheet", + "<8,2,2>": "RDS" + }, + "<8,3>": { + "<8,3,1>": "Work Order", + "<8,3,2>": "WO" + }, + "<8,4>": { + "<8,4,1>": "WO Processing Status", + "<8,4,2>": "WO_STATUS" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Window Option" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "L", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Work Order Options", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MEASUREMENT_PATTERN.json b/LSL2/POPUP/MEASUREMENT_PATTERN.json new file mode 100644 index 0000000..091ec5f --- /dev/null +++ b/LSL2/POPUP/MEASUREMENT_PATTERN.json @@ -0,0 +1,116 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "3ptRR", + "<8,1,2>": "" + }, + "<8,2>": { + "<8,2,1>": "125MM", + "<8,2,2>": "" + }, + "<8,3>": { + "<8,3,1>": "150MM", + "<8,3,2>": "" + }, + "<8,4>": { + "<8,4,1>": "200MM", + "<8,4,2>": "" + }, + "<8,5>": "5IN_9PT", + "<8,6>": "6IN_9PT", + "<8,7>": "8IN_9PT", + "<8,8>": "IRC5PT", + "<8,9>": { + "<8,9,1>": "6INCH6MM", + "<8,9,2>": "" + }, + "<8,10>": { + "<8,10,1>": "HTR_6N", + "<8,10,2>": "" + }, + "<8,11>": { + "<8,11,1>": "IRC6mm", + "<8,11,2>": "" + }, + "<8,12>": { + "<8,12,1>": "7PT_5mm", + "<8,12,2>": "" + }, + "<8,13>": { + "<8,13,1>": "WACKER5PT", + "<8,13,2>": "" + }, + "<8,14>": "Wacker2", + "<8,15>": "17PT_5mm" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Measurement Pattern" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Measurment Patterns", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MEG_LOG_QUERY.json b/LSL2/POPUP/MEG_LOG_QUERY.json new file mode 100644 index 0000000..0d927f8 --- /dev/null +++ b/LSL2/POPUP/MEG_LOG_QUERY.json @@ -0,0 +1,90 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "MEG_LOG", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "DATE_CHANGED", + "<9,1,2>": "11", + "<9,1,3>": "R", + "<9,1,4>": "C", + "<9,1,5>": "D2/", + "<9,1,6>": "Date Changed" + }, + "<9,2>": { + "<9,2,1>": "TECH_SIG", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,2,6>": "Technician" + }, + "<9,3>": { + "<9,3,1>": "A_LOT", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Ammonia Lot Number" + }, + "<9,4>": { + "<9,4,1>": "P_LOT", + "<9,4,2>": "20", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Peroxide Lot Number" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "MegaSonic Log Report", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MES_TASK.json b/LSL2/POPUP/MES_TASK.json new file mode 100644 index 0000000..b692d1d --- /dev/null +++ b/LSL2/POPUP/MES_TASK.json @@ -0,0 +1,113 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "MES_TASK", + "<8>": "BY @ID", + "<9>": { + "<9,1>": { + "<9,1,1>": "MT_NO", + "<9,1,2>": "4", + "<9,1,3>": "R", + "<9,1,4>": "C", + "<9,1,5>": "MD0,", + "<9,1,6>": "MT No" + }, + "<9,2>": { + "<9,2,1>": "BRIEF_DESC", + "<9,2,2>": "30", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Brief Desc" + }, + "<9,3>": { + "<9,3,1>": "PART_OF", + "<9,3,2>": "4", + "<9,3,3>": "R", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Part Of" + }, + "<9,4>": { + "<9,4,1>": "PART_OF_DESC", + "<9,4,2>": "40", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Part Of Desc" + }, + "<9,5>": { + "<9,5,1>": "ENTER_DTM", + "<9,5,2>": "16", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "DT", + "<9,5,6>": "Enter Dtm" + }, + "<9,6>": { + "<9,6,1>": "COMP_DTM", + "<9,6,2>": "16", + "<9,6,3>": "C", + "<9,6,4>": "C", + "<9,6,5>": "DT^S", + "<9,6,6>": "Comp Dtm" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "MES Tasks", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/METROLOGY_UNITS.json b/LSL2/POPUP/METROLOGY_UNITS.json new file mode 100644 index 0000000..4dd5cc2 --- /dev/null +++ b/LSL2/POPUP/METROLOGY_UNITS.json @@ -0,0 +1,129 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS LineDraw", + "<6,1,2>": "-12", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "2", + "<6,1,8>": "49", + "<6,1,9>": "0", + "<6,1,10>": "3", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0", + "<6,1,15>": "0", + "<6,1,16>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "æm", + "<8,1,2>": "Micron", + "<8,1,3>": "THICK", + "<8,1,4>": "Thickness", + "<8,1,5>": "" + }, + "<8,2>": { + "<8,2,1>": "", + "<8,2,2>": "Angstrom", + "<8,2,3>": "THICK", + "<8,2,4>": "Thickness" + }, + "<8,3>": { + "<8,3,1>": "ê-cm", + "<8,3,2>": "Ohms.Cm", + "<8,3,3>": "RES,CRES", + "<8,3,4>": "Resistivity" + }, + "<8,4>": { + "<8,4,1>": "ê/Ü", + "<8,4,2>": "Ohms/Square", + "<8,4,3>": "RES", + "<8,4,4>": "SheetRho" + }, + "<8,5>": { + "<8,5,1>": "cm-3", + "<8,5,2>": "Carriers.Cubic Centimeter", + "<8,5,3>": "CONC", + "<8,5,4>": "Concentration" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Symbol" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Units" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "10", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Prop Code" + }, + "<9,4>": { + "<9,4,1>": "4", + "<9,4,2>": "15", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Property" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Metrology Units", + "<13>": "4", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/METROLOGY_UNITS_20180703.json b/LSL2/POPUP/METROLOGY_UNITS_20180703.json new file mode 100644 index 0000000..5c0c907 --- /dev/null +++ b/LSL2/POPUP/METROLOGY_UNITS_20180703.json @@ -0,0 +1,128 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS LineDraw", + "<6,1,2>": "-13", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "2", + "<6,1,8>": "49", + "<6,1,9>": "0", + "<6,1,10>": "3", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0", + "<6,1,15>": "0", + "<6,1,16>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "æm", + "<8,1,2>": "Micron", + "<8,1,3>": "THICK", + "<8,1,4>": "Thickness" + }, + "<8,2>": { + "<8,2,1>": "", + "<8,2,2>": "Angstrom", + "<8,2,3>": "THICK", + "<8,2,4>": "Thickness" + }, + "<8,3>": { + "<8,3,1>": "ê-cm", + "<8,3,2>": "Ohms.Cm", + "<8,3,3>": "RES,CRES", + "<8,3,4>": "Resistivity" + }, + "<8,4>": { + "<8,4,1>": "ê/Ü", + "<8,4,2>": "Ohms/Square", + "<8,4,3>": "RES", + "<8,4,4>": "SheetRho" + }, + "<8,5>": { + "<8,5,1>": "cm-3", + "<8,5,2>": "Carriers.Cubic Centimeter", + "<8,5,3>": "CONC", + "<8,5,4>": "Concentration" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Symbol" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Units" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "10", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Prop Code" + }, + "<9,4>": { + "<9,4,1>": "4", + "<9,4,2>": "15", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Property" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Metrology Units", + "<13>": "4", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MET_PROPERTY.json b/LSL2/POPUP/MET_PROPERTY.json new file mode 100644 index 0000000..14423a4 --- /dev/null +++ b/LSL2/POPUP/MET_PROPERTY.json @@ -0,0 +1,207 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS LineDraw", + "<6,1,2>": "-13", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "2", + "<6,1,8>": "49", + "<6,1,9>": "0", + "<6,1,10>": "3", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0", + "<6,1,15>": "0", + "<6,1,16>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "THICK", + "<8,1,2>": "Thickness", + "<8,1,3>": "MD5", + "<8,1,4>": "MD35", + "<8,1,5>": "æm", + "<8,1,6>": "Micron" + }, + "<8,2>": { + "<8,2,1>": "THICKA", + "<8,2,2>": "Thick Angstroms", + "<8,2,3>": "MD5", + "<8,2,4>": "MD35", + "<8,2,5>": "", + "<8,2,6>": "Angstrom" + }, + "<8,3>": { + "<8,3,1>": "RES", + "<8,3,2>": "Resistivity", + "<8,3,3>": "MD5", + "<8,3,4>": "MD35", + "<8,3,5>": "ê-cm", + "<8,3,6>": "Ohms-Cm" + }, + "<8,4>": { + "<8,4,1>": "SRES", + "<8,4,2>": "SheetRho", + "<8,4,3>": "MD5", + "<8,4,4>": "MD35", + "<8,4,5>": "ê/Ü", + "<8,4,6>": "Ohms/Square" + }, + "<8,5>": { + "<8,5,1>": "CRES", + "<8,5,2>": "HgCv Res", + "<8,5,3>": "MD5", + "<8,5,4>": "MD35", + "<8,5,5>": "ê-cm", + "<8,5,6>": "Ohms-Cm" + }, + "<8,6>": { + "<8,6,1>": "CONC", + "<8,6,2>": "Visual", + "<8,6,3>": "" + }, + "<8,7>": { + "<8,7,1>": "MS21", + "<8,7,2>": "MS21", + "<8,7,3>": "cm-3", + "<8,7,4>": "Carriers-Cubic Cm" + }, + "<8,8>": { + "<8,8,1>": "STRESS", + "<8,8,2>": "Stress", + "<8,8,3>": "MS21", + "<8,8,4>": "MS21", + "<8,8,5>": "dyne/cm-2", + "<8,8,6>": "Dyne/Square Cm" + }, + "<8,9>": { + "<8,9,1>": "BOW", + "<8,9,2>": "Bow", + "<8,9,3>": "MD0", + "<8,9,4>": "MD0", + "<8,9,5>": "æm", + "<8,9,6>": "Micron" + }, + "<8,10>": { + "<8,10,1>": "TRANS", + "<8,10,2>": "Transition", + "<8,10,3>": "MD2", + "<8,10,4>": "MD2", + "<8,10,5>": "æm", + "<8,10,6>": "Micron" + }, + "<8,11>": { + "<8,11,1>": "EDGE", + "<8,11,2>": "Edge Inspection", + "<8,11,3>": "MD0", + "<8,11,4>": "MD0", + "<8,11,5>": "", + "<8,11,6>": "", + "<8,11,7>": "" + }, + "<8,12>": "" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Prop Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Property" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "10", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "In Conv" + }, + "<9,4>": { + "<9,4,1>": "3", + "<9,4,2>": "10", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Out Conv" + }, + "<9,5>": { + "<9,5,1>": "4", + "<9,5,2>": "10", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Symbol" + }, + "<9,6>": { + "<9,6,1>": "5", + "<9,6,2>": "20", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Units" + }, + "<9,7>": { + "<9,7,1>": "", + "<9,7,2>": "", + "<9,7,3>": "", + "<9,7,4>": "", + "<9,7,5>": "", + "<9,7,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Metrology Properties", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MET_PROPERTY_PROPOSED.json b/LSL2/POPUP/MET_PROPERTY_PROPOSED.json new file mode 100644 index 0000000..516904a --- /dev/null +++ b/LSL2/POPUP/MET_PROPERTY_PROPOSED.json @@ -0,0 +1,177 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS LineDraw", + "<6,1,2>": "-13", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "2", + "<6,1,8>": "49", + "<6,1,9>": "0", + "<6,1,10>": "3", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0", + "<6,1,15>": "0", + "<6,1,16>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "THICK", + "<8,1,2>": "Thickness Microns", + "<8,1,3>": "MD3", + "<8,1,4>": "æm", + "<8,1,5>": "Micron" + }, + "<8,2>": { + "<8,2,1>": "THICKA", + "<8,2,2>": "Thickness Angstroms", + "<8,2,3>": "MD3", + "<8,2,4>": "", + "<8,2,5>": "Angstrom" + }, + "<8,3>": { + "<8,3,1>": "RES", + "<8,3,2>": "Resistivity", + "<8,3,3>": "MD3", + "<8,3,4>": "ê-cm", + "<8,3,5>": "Ohms.Cm" + }, + "<8,4>": { + "<8,4,1>": "SRES", + "<8,4,2>": "SheetRho", + "<8,4,3>": "MD3", + "<8,4,4>": "ê/Ü", + "<8,4,5>": "Ohms/Square" + }, + "<8,5>": { + "<8,5,1>": "CRES", + "<8,5,2>": "HgCV Resistivity", + "<8,5,3>": "MD3", + "<8,5,4>": "ê-cm", + "<8,5,5>": "Ohms.Cm" + }, + "<8,6>": { + "<8,6,1>": "CONC", + "<8,6,2>": "Concentration", + "<8,6,3>": "MS21", + "<8,6,4>": "cm-3", + "<8,6,5>": "Carriers.Cubic Centimeter" + }, + "<8,7>": { + "<8,7,1>": "STRESS", + "<8,7,2>": "Stress", + "<8,7,3>": "MS21", + "<8,7,4>": "dyne/cm-2", + "<8,7,5>": "Dyne/Square Centimeter " + }, + "<8,8>": { + "<8,8,1>": "BOW", + "<8,8,2>": "Bow", + "<8,8,3>": "MD0", + "<8,8,4>": "æm", + "<8,8,5>": "Micron" + }, + "<8,9>": { + "<8,9,1>": "TRANS", + "<8,9,2>": "Transition", + "<8,9,3>": "MD0", + "<8,9,4>": "æm", + "<8,9,5>": "Micron" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Prop Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Property" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "10", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "OCONV" + }, + "<9,4>": { + "<9,4,1>": "4", + "<9,4,2>": "10", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Symbol" + }, + "<9,5>": { + "<9,5,1>": "5", + "<9,5,2>": "20", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Units" + }, + "<9,6>": { + "<9,6,1>": "", + "<9,6,2>": "", + "<9,6,3>": "", + "<9,6,4>": "", + "<9,6,5>": "", + "<9,6,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Metrology Properties", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MET_TOOL.json b/LSL2/POPUP/MET_TOOL.json new file mode 100644 index 0000000..4ae6322 --- /dev/null +++ b/LSL2/POPUP/MET_TOOL.json @@ -0,0 +1,73 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "LISTBOX_CONFIG", + "<8>": "'TOOL'", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "16", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "" + } + }, + "<10>": "R", + "<11>": "1", + "<12>": "Measurement Tools", + "<13>": "", + "<14>": "E", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MFC_DECOMMISSION_CODE.json b/LSL2/POPUP/MFC_DECOMMISSION_CODE.json new file mode 100644 index 0000000..fea9834 --- /dev/null +++ b/LSL2/POPUP/MFC_DECOMMISSION_CODE.json @@ -0,0 +1,98 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "CODE_1", + "<8,1,2>": "Code One Description" + }, + "<8,2>": { + "<8,2,1>": "CODE_2", + "<8,2,2>": "Code Two Description" + }, + "<8,3>": { + "<8,3,1>": "CODE_3", + "<8,3,2>": "Code Three Description" + }, + "<8,4>": { + "<8,4,1>": "CODE_4", + "<8,4,2>": "Code Four Description" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "15", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "30", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Description" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "MFC Decommissioning Reasons", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "12639424", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MFC_LOC.json b/LSL2/POPUP/MFC_LOC.json new file mode 100644 index 0000000..7d10d19 --- /dev/null +++ b/LSL2/POPUP/MFC_LOC.json @@ -0,0 +1,81 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "MFC_LOC", + "<8>": "BY @ID", + "<9>": { + "<9,1>": { + "<9,1,1>": "MFC_LOC", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Mfc Loc" + }, + "<9,2>": { + "<9,2,1>": "DESC", + "<9,2,2>": "30", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Desc" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "MFC Service Locations", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MFC_LOG.json b/LSL2/POPUP/MFC_LOG.json new file mode 100644 index 0000000..7d10d19 --- /dev/null +++ b/LSL2/POPUP/MFC_LOG.json @@ -0,0 +1,81 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "MFC_LOC", + "<8>": "BY @ID", + "<9>": { + "<9,1>": { + "<9,1,1>": "MFC_LOC", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Mfc Loc" + }, + "<9,2>": { + "<9,2,1>": "DESC", + "<9,2,2>": "30", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Desc" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "MFC Service Locations", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/MODS_SELECT.json b/LSL2/POPUP/MODS_SELECT.json new file mode 100644 index 0000000..10dc6b7 --- /dev/null +++ b/LSL2/POPUP/MODS_SELECT.json @@ -0,0 +1,106 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "MODS", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "PRIORITY", + "<9,1,2>": "3", + "<9,1,3>": "R", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "P" + }, + "<9,2>": { + "<9,2,1>": "TABLE", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Table" + }, + "<9,3>": { + "<9,3,1>": "ROW", + "<9,3,2>": "35", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Row" + }, + "<9,4>": { + "<9,4,1>": "MOD_DATE", + "<9,4,2>": "10", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "D2/", + "<9,4,6>": "Mod Date" + }, + "<9,5>": { + "<9,5,1>": "MOD_TIME", + "<9,5,2>": "10", + "<9,5,3>": "R", + "<9,5,4>": "C", + "<9,5,5>": "MTHS", + "<9,5,6>": "Mod Time" + }, + "<9,6>": { + "<9,6,1>": "UPDATE_TYPE", + "<9,6,2>": "3", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "UT" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Modifications", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/NAMES.json b/LSL2/POPUP/NAMES.json new file mode 100644 index 0000000..6a066be --- /dev/null +++ b/LSL2/POPUP/NAMES.json @@ -0,0 +1,112 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "NAMES", + "<8>": "BY @ID", + "<9>": { + "<9,1>": { + "<9,1,1>": "SEQ", + "<9,1,2>": "8", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "Name No" + }, + "<9,2>": { + "<9,2,1>": "FIRST_LAST", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Name" + }, + "<9,3>": { + "<9,3,1>": "CO_NAME", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Company" + }, + "<9,4>": { + "<9,4,1>": "CO_CITY", + "<9,4,2>": "15", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Company City" + }, + "<9,5>": { + "<9,5,1>": "CO_ST", + "<9,5,2>": "5", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "State" + }, + "<9,6>": { + "<9,6,1>": "CO_ZIP", + "<9,6,2>": "10", + "<9,6,3>": "C", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Company Zip" + }, + "<9,7>": { + "<9,7,1>": "", + "<9,7,2>": "", + "<9,7,3>": "", + "<9,7,4>": "", + "<9,7,5>": "", + "<9,7,6>": "" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "Names", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/NCR_QUERY.json b/LSL2/POPUP/NCR_QUERY.json new file mode 100644 index 0000000..968ca36 --- /dev/null +++ b/LSL2/POPUP/NCR_QUERY.json @@ -0,0 +1,153 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "NCR", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "TOT_REJ", + "<9,1,2>": "8", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0,", + "<9,1,6>": "Tot Rej" + }, + "<9,2>": { + "<9,2,1>": "REACT_PU", + "<9,2,2>": "8", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "MD0", + "<9,2,6>": "Reactor" + }, + "<9,3>": { + "<9,3,1>": "ENTRY_DATE", + "<9,3,2>": "10", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "D2/", + "<9,3,6>": "Entry Date" + }, + "<9,4>": { + "<9,4,1>": "CUST_ABBREV", + "<9,4,2>": "15", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Cust Abbrev" + }, + "<9,5>": { + "<9,5,1>": "RDS_PU", + "<9,5,2>": "12", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "RDS No" + }, + "<9,6>": { + "<9,6,1>": "RDS_STATUS", + "<9,6,2>": "1", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "[RDS_STATUS_CONV]", + "<9,6,6>": "RDS Status" + }, + "<9,7>": { + "<9,7,1>": "LOSS_DESC", + "<9,7,2>": "20", + "<9,7,3>": "L", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "Loss Description" + }, + "<9,8>": { + "<9,8,1>": "AC_DESC", + "<9,8,2>": "20", + "<9,8,3>": "L", + "<9,8,4>": "C", + "<9,8,5>": "", + "<9,8,6>": "Assign Cause Desc" + }, + "<9,9>": { + "<9,9,1>": "DEPT_RESP", + "<9,9,2>": "15", + "<9,9,3>": "L", + "<9,9,4>": "C", + "<9,9,5>": "", + "<9,9,6>": "Dept Resp" + }, + "<9,10>": { + "<9,10,1>": "SHIFT", + "<9,10,2>": "6", + "<9,10,3>": "C", + "<9,10,4>": "C", + "<9,10,5>": "MD0", + "<9,10,6>": "Shift" + }, + "<9,11>": { + "<9,11,1>": "STATUS", + "<9,11,2>": "3", + "<9,11,3>": "C", + "<9,11,4>": "C", + "<9,11,5>": "", + "<9,11,6>": "Status" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Nonconformance Report", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/NDA_QUERY.json b/LSL2/POPUP/NDA_QUERY.json new file mode 100644 index 0000000..50f0fee --- /dev/null +++ b/LSL2/POPUP/NDA_QUERY.json @@ -0,0 +1,90 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "NDA", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "CUST_ID", + "<9,1,2>": "25", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "[XLATE_CONV,COMPANY*CO_NAME]", + "<9,1,6>": "Customer" + }, + "<9,2>": { + "<9,2,1>": "INIT_DATE", + "<9,2,2>": "11", + "<9,2,3>": "R", + "<9,2,4>": "C", + "<9,2,5>": "D2/", + "<9,2,6>": "Init Date" + }, + "<9,3>": { + "<9,3,1>": "EXP_DATE", + "<9,3,2>": "11", + "<9,3,3>": "R", + "<9,3,4>": "C", + "<9,3,5>": "D2/", + "<9,3,6>": "Exp Date" + }, + "<9,4>": { + "<9,4,1>": "STATUS", + "<9,4,2>": "1", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "[NDA_STATUS_CONV]", + "<9,4,6>": "Status" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Non-Disclosure Agreement", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/NOTE_PTRS.json b/LSL2/POPUP/NOTE_PTRS.json new file mode 100644 index 0000000..62bc6c8 --- /dev/null +++ b/LSL2/POPUP/NOTE_PTRS.json @@ -0,0 +1,122 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "40", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Subject" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "From" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "10", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Date" + }, + "<9,4>": { + "<9,4,1>": "4", + "<9,4,2>": "10", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Time" + }, + "<9,5>": { + "<9,5,1>": "5", + "<9,5,2>": "5", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "New" + }, + "<9,6>": { + "<9,6,1>": "6", + "<9,6,2>": "5", + "<9,6,3>": "C", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Attach" + }, + "<9,7>": { + "<9,7,1>": "7", + "<9,7,2>": "10", + "<9,7,3>": "R", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "Note ID" + }, + "<9,8>": { + "<9,8,1>": "", + "<9,8,2>": "", + "<9,8,3>": "", + "<9,8,4>": "", + "<9,8,5>": "", + "<9,8,6>": "" + } + }, + "<10>": "L", + "<11>": "2", + "<12>": "Note Deletion", + "<13>": "7", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/NOTIFICATION.json b/LSL2/POPUP/NOTIFICATION.json new file mode 100644 index 0000000..d8fc33a --- /dev/null +++ b/LSL2/POPUP/NOTIFICATION.json @@ -0,0 +1,76 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "NOTIFICATION", + "<8>": "BY @ID", + "<9>": { + "<9,1>": { + "<9,1,1>": "NOTIFY_ID", + "<9,1,2>": "20", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Notify Id" + }, + "<9,2>": { + "<9,2,1>": "DESC", + "<9,2,2>": "50", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Desc" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "Notifications", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/OPEN_WORK_ORDERS.json b/LSL2/POPUP/OPEN_WORK_ORDERS.json new file mode 100644 index 0000000..732d7db --- /dev/null +++ b/LSL2/POPUP/OPEN_WORK_ORDERS.json @@ -0,0 +1,191 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "WO_LOG", + "<8>": "0", + "<9>": { + "<9,1>": { + "<9,1,1>": "WO", + "<9,1,2>": "8", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "WO No" + }, + "<9,2>": { + "<9,2,1>": "PROD_ORD_NO", + "<9,2,2>": "7", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Prod Ord" + }, + "<9,3>": { + "<9,3,1>": "COMMIT_DATE", + "<9,3,2>": "9", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "D2/", + "<9,3,6>": "Commit Dt" + }, + "<9,4>": { + "<9,4,1>": "CUST_NAME", + "<9,4,2>": "30", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Customer" + }, + "<9,5>": { + "<9,5,1>": "WO_STATUS", + "<9,5,2>": "5", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "B Closed,Open", + "<9,5,6>": "WO" + }, + "<9,6>": { + "<9,6,1>": "CURR_STATUS", + "<9,6,2>": "8", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "[WO_STEP_STATUS_CONV]", + "<9,6,6>": "Curr Stat" + }, + "<9,7>": { + "<9,7,1>": "WO_QTY", + "<9,7,2>": "6", + "<9,7,3>": "R", + "<9,7,4>": "C", + "<9,7,5>": "MD0,", + "<9,7,6>": "WO Qty" + }, + "<9,8>": { + "<9,8,1>": "REL_QTY", + "<9,8,2>": "6", + "<9,8,3>": "R", + "<9,8,4>": "C", + "<9,8,5>": "MD0,", + "<9,8,6>": "Rel" + }, + "<9,9>": { + "<9,9,1>": "UNREL_QTY", + "<9,9,2>": "6", + "<9,9,3>": "R", + "<9,9,4>": "C", + "<9,9,5>": "MD0,", + "<9,9,6>": "UnRel" + }, + "<9,10>": { + "<9,10,1>": "SHIP_QTY", + "<9,10,2>": "6", + "<9,10,3>": "R", + "<9,10,4>": "C", + "<9,10,5>": "MD0,", + "<9,10,6>": "Ship" + }, + "<9,11>": { + "<9,11,1>": "SHIP_REACT_TYPE", + "<9,11,2>": "8", + "<9,11,3>": "C", + "<9,11,4>": "C", + "<9,11,5>": "[REACT_TYPE_CONV,OPSREF]", + "<9,11,6>": "React Type" + }, + "<9,12>": { + "<9,12,1>": "SCHED_REACTS", + "<9,12,2>": "12", + "<9,12,3>": "L", + "<9,12,4>": "C", + "<9,12,5>": "", + "<9,12,6>": "Sched Reacts" + }, + "<9,13>": { + "<9,13,1>": "SHIP_THICK_TARGET", + "<9,13,2>": "6", + "<9,13,3>": "R", + "<9,13,4>": "C", + "<9,13,5>": "", + "<9,13,6>": "Thk Tgt" + }, + "<9,14>": { + "<9,14,1>": "SHIP_RES_TARGET", + "<9,14,2>": "6", + "<9,14,3>": "R", + "<9,14,4>": "C", + "<9,14,5>": "", + "<9,14,6>": "Res Tgt" + }, + "<9,15>": { + "<9,15,1>": "PCNT_COMP", + "<9,15,2>": "8", + "<9,15,3>": "R", + "<9,15,4>": "C", + "<9,15,5>": "", + "<9,15,6>": "Pcnt Comp" + }, + "<9,16>": { + "<9,16,1>": "EST_TO_COMP", + "<9,16,2>": "10", + "<9,16,3>": "R", + "<9,16,4>": "C", + "<9,16,5>": "MD1,", + "<9,16,6>": "Est Comp" + } + }, + "<10>": "C", + "<11>": "2", + "<12>": "Open Work Orders", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/ORDER_CHANGE_LOG.json b/LSL2/POPUP/ORDER_CHANGE_LOG.json new file mode 100644 index 0000000..4cb573e --- /dev/null +++ b/LSL2/POPUP/ORDER_CHANGE_LOG.json @@ -0,0 +1,119 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "ORDER_CHANGE", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "OC_NO", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "OC No" + }, + "<9,2>": { + "<9,2,1>": "TIMESTAMP", + "<9,2,2>": "18", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "DT", + "<9,2,6>": "Timestamp" + }, + "<9,3>": { + "<9,3,1>": "ORDER_NO", + "<9,3,2>": "10", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "MD0", + "<9,3,6>": "Order No" + }, + "<9,4>": { + "<9,4,1>": "ORDER_CUST_NO", + "<9,4,2>": "10", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Cust No" + }, + "<9,5>": { + "<9,5,1>": "ORDER_CUST_NAME", + "<9,5,2>": "20", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Order Cust Name" + }, + "<9,6>": { + "<9,6,1>": "REASON", + "<9,6,2>": "30", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Reason" + }, + "<9,7>": { + "<9,7,1>": "USER_NAME", + "<9,7,2>": "15", + "<9,7,3>": "L", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "User Name" + } + }, + "<10>": "K", + "<11>": "3", + "<12>": "Order Change Log", + "<13>": "3", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/ORDER_CREATE_INVOICE.json b/LSL2/POPUP/ORDER_CREATE_INVOICE.json new file mode 100644 index 0000000..cba1924 --- /dev/null +++ b/LSL2/POPUP/ORDER_CREATE_INVOICE.json @@ -0,0 +1,136 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "5", + "<9,1,3>": "L", + "<9,1,4>": "L", + "<9,1,5>": "", + "<9,1,6>": "Quote" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "8", + "<9,2,3>": "L", + "<9,2,4>": "L", + "<9,2,5>": "", + "<9,2,6>": "Schedule" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "7", + "<9,3,3>": "L", + "<9,3,4>": "L", + "<9,3,5>": "", + "<9,3,6>": "WO" + }, + "<9,4>": { + "<9,4,1>": "4", + "<9,4,2>": "7", + "<9,4,3>": "L", + "<9,4,4>": "L", + "<9,4,5>": "", + "<9,4,6>": "Part Number" + }, + "<9,5>": { + "<9,5,1>": "5", + "<9,5,2>": "7", + "<9,5,3>": "L", + "<9,5,4>": "L", + "<9,5,5>": "", + "<9,5,6>": "Lot Number" + }, + "<9,6>": { + "<9,6,1>": "6", + "<9,6,2>": "7", + "<9,6,3>": "R", + "<9,6,4>": "L", + "<9,6,5>": "", + "<9,6,6>": "Setup Chg" + }, + "<9,7>": { + "<9,7,1>": "7", + "<9,7,2>": "7", + "<9,7,3>": "R", + "<9,7,4>": "L", + "<9,7,5>": "", + "<9,7,6>": "SRP Chg" + }, + "<9,8>": { + "<9,8,1>": "8", + "<9,8,2>": "4", + "<9,8,3>": "R", + "<9,8,4>": "L", + "<9,8,5>": "", + "<9,8,6>": "Qty" + }, + "<9,9>": { + "<9,9,1>": "9", + "<9,9,2>": "10", + "<9,9,3>": "R", + "<9,9,4>": "L", + "<9,9,5>": "", + "<9,9,6>": "Price" + }, + "<9,10>": { + "<9,10,1>": "10", + "<9,10,2>": "10", + "<9,10,3>": "R", + "<9,10,4>": "L", + "<9,10,5>": "", + "<9,10,6>": "Amount" + } + }, + "<10>": "L", + "<11>": "2", + "<12>": "Order Line Items", + "<13>": "", + "<14>": "P", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/ORDER_DETAIL.json b/LSL2/POPUP/ORDER_DETAIL.json new file mode 100644 index 0000000..e9dedf8 --- /dev/null +++ b/LSL2/POPUP/ORDER_DETAIL.json @@ -0,0 +1,122 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "ORDER_DET", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "ORDER_NO", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "Order No" + }, + "<9,2>": { + "<9,2,1>": "ITEM_NO", + "<9,2,2>": "5", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "MD0", + "<9,2,6>": "Item" + }, + "<9,3>": { + "<9,3,1>": "QUOTE_NO", + "<9,3,2>": "10", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Quote No" + }, + "<9,4>": { + "<9,4,1>": "EPI_PN", + "<9,4,2>": "15", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Epi Part No" + }, + "<9,5>": { + "<9,5,1>": "WO_NO", + "<9,5,2>": "10", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "WO No" + }, + "<9,6>": { + "<9,6,1>": "CUST_PN", + "<9,6,2>": "20", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Cust Part No" + }, + "<9,7>": { + "<9,7,1>": "INBOUND_TRACKING_NO", + "<9,7,2>": "20", + "<9,7,3>": "L", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "Inbound Tracking No" + }, + "<9,8>": { + "<9,8,1>": "PROMISE_DT", + "<9,8,2>": "11", + "<9,8,3>": "C", + "<9,8,4>": "C", + "<9,8,5>": "D4/", + "<9,8,6>": "Promise Dt" + } + }, + "<10>": "K", + "<11>": "1", + "<12>": "Order Detail Items", + "<13>": "ORDER_NO", + "<14>": "C", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/ORDER_GOTO_SCHED.json b/LSL2/POPUP/ORDER_GOTO_SCHED.json new file mode 100644 index 0000000..bc114fb --- /dev/null +++ b/LSL2/POPUP/ORDER_GOTO_SCHED.json @@ -0,0 +1,67 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "View/Edit Current Schedule...", + "<8,2>": "View/Edit all Schedules..." + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "29", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Option" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Schedule Options", + "<13>": "", + "<14>": "P", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/ORDER_QUERY.json b/LSL2/POPUP/ORDER_QUERY.json new file mode 100644 index 0000000..ee9c736 --- /dev/null +++ b/LSL2/POPUP/ORDER_QUERY.json @@ -0,0 +1,118 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "ORDER", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "CUST_NO", + "<9,1,2>": "14", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "[XLATE_CONV,COMPANY*CO_NAME]", + "<9,1,6>": "Customer Number" + }, + "<9,2>": { + "<9,2,1>": "NAME_NO", + "<9,2,2>": "15", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "[XLATE_CONV,NAMES*FIRST_LAST]", + "<9,2,6>": "Name Number" + }, + "<9,3>": { + "<9,3,1>": "CUST_BILL_TO", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "[XLATE_CONV,COMPANY*CO_NAME]", + "<9,3,6>": "Cust Bill To" + }, + "<9,4>": { + "<9,4,1>": "PO_NO", + "<9,4,2>": "25", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Po No" + }, + "<9,5>": { + "<9,5,1>": "ENTRY_ID", + "<9,5,2>": "15", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,5,6>": "Entry ID" + }, + "<9,6>": { + "<9,6,1>": "ENTRY_DATE", + "<9,6,2>": "11", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "D2/", + "<9,6,6>": "Entry Date" + }, + "<9,7>": { + "<9,7,1>": "STATUS", + "<9,7,2>": "1", + "<9,7,3>": "L", + "<9,7,4>": "C", + "<9,7,5>": "[ORDER_STATUS_CONV]", + "<9,7,6>": "Status" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Orders", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/ORDER_SHIPPER_INFO.json b/LSL2/POPUP/ORDER_SHIPPER_INFO.json new file mode 100644 index 0000000..c22ea79 --- /dev/null +++ b/LSL2/POPUP/ORDER_SHIPPER_INFO.json @@ -0,0 +1,72 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "25", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Ship Via" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "25", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "Account No" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Shipper Info", + "<13>": "", + "<14>": "E", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/ORDER_SRL_CREATE_INVOICE.json b/LSL2/POPUP/ORDER_SRL_CREATE_INVOICE.json new file mode 100644 index 0000000..e166d31 --- /dev/null +++ b/LSL2/POPUP/ORDER_SRL_CREATE_INVOICE.json @@ -0,0 +1,120 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "5", + "<9,1,3>": "L", + "<9,1,4>": "L", + "<9,1,5>": "", + "<9,1,6>": "Quote" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "8", + "<9,2,3>": "L", + "<9,2,4>": "L", + "<9,2,5>": "", + "<9,2,6>": "Schedule" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "7", + "<9,3,3>": "L", + "<9,3,4>": "L", + "<9,3,5>": "", + "<9,3,6>": "WO" + }, + "<9,4>": { + "<9,4,1>": "4", + "<9,4,2>": "20", + "<9,4,3>": "L", + "<9,4,4>": "L", + "<9,4,5>": "", + "<9,4,6>": "Description" + }, + "<9,5>": { + "<9,5,1>": "5", + "<9,5,2>": "7", + "<9,5,3>": "R", + "<9,5,4>": "L", + "<9,5,5>": "", + "<9,5,6>": "Setup Chg" + }, + "<9,6>": { + "<9,6,1>": "6", + "<9,6,2>": "4", + "<9,6,3>": "R", + "<9,6,4>": "L", + "<9,6,5>": "", + "<9,6,6>": "Qty" + }, + "<9,7>": { + "<9,7,1>": "7", + "<9,7,2>": "10", + "<9,7,3>": "R", + "<9,7,4>": "L", + "<9,7,5>": "", + "<9,7,6>": "Price" + }, + "<9,8>": { + "<9,8,1>": "8", + "<9,8,2>": "10", + "<9,8,3>": "R", + "<9,8,4>": "L", + "<9,8,5>": "", + "<9,8,6>": "Amount" + } + }, + "<10>": "L", + "<11>": "2", + "<12>": "Order Line Items", + "<13>": "", + "<14>": "P", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/ORDER_SRL_QUERY.json b/LSL2/POPUP/ORDER_SRL_QUERY.json new file mode 100644 index 0000000..ef175c3 --- /dev/null +++ b/LSL2/POPUP/ORDER_SRL_QUERY.json @@ -0,0 +1,104 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "ORDER_SRL", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "CUST_NO", + "<9,1,2>": "14", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "[XLATE_CONV,COMPANY*CO_NAME]", + "<9,1,6>": "Customer Number" + }, + "<9,2>": { + "<9,2,1>": "NAME_NO", + "<9,2,2>": "15", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "[XLATE_CONV,NAMES*FIRST_LAST]", + "<9,2,6>": "Name Number" + }, + "<9,3>": { + "<9,3,1>": "PO", + "<9,3,2>": "15", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "PO #" + }, + "<9,4>": { + "<9,4,1>": "ENTRY_ID", + "<9,4,2>": "15", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,4,6>": "Entry ID" + }, + "<9,5>": { + "<9,5,1>": "ENTRY_DATE", + "<9,5,2>": "11", + "<9,5,3>": "R", + "<9,5,4>": "C", + "<9,5,5>": "D2/", + "<9,5,6>": "Entry Date" + }, + "<9,6>": { + "<9,6,1>": "STATUS", + "<9,6,2>": "1", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "[ORDER_STATUS_CONV]", + "<9,6,6>": "Status" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Orders", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/OVERRIDES.json b/LSL2/POPUP/OVERRIDES.json new file mode 100644 index 0000000..3fba210 --- /dev/null +++ b/LSL2/POPUP/OVERRIDES.json @@ -0,0 +1,113 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "5", + "<4>": "12", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "3", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0", + "<6,1,15>": "0", + "<6,1,16>": "0" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "", + "<9,1,2>": "10", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "User" + }, + "<9,2>": { + "<9,2,1>": "", + "<9,2,2>": "10", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "Comments" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "20", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "DT", + "<9,3,6>": "Date/Time" + }, + "<9,4>": { + "<9,4,1>": "", + "<9,4,2>": "10", + "<9,4,3>": "", + "<9,4,4>": "", + "<9,4,5>": "", + "<9,4,6>": "Type" + }, + "<9,5>": { + "<9,5,1>": "", + "<9,5,2>": "10", + "<9,5,3>": "", + "<9,5,4>": "", + "<9,5,5>": "", + "<9,5,6>": "" + }, + "<9,6>": { + "<9,6,1>": "", + "<9,6,2>": "10", + "<9,6,3>": "", + "<9,6,4>": "", + "<9,6,5>": "", + "<9,6,6>": "" + } + }, + "<10>": "L", + "<11>": "0", + "<12>": "Overrides Log", + "<13>": "", + "<14>": "R", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PART.json b/LSL2/POPUP/PART.json new file mode 100644 index 0000000..a288e37 --- /dev/null +++ b/LSL2/POPUP/PART.json @@ -0,0 +1,122 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "PART", + "<8>": { + "<8,1>": { + "<8,1,1>": { + "<8,1,1,1>": "BY EPI_PART_NO", + "<8,1,1,2>": "BY CUST_PART_NO", + "<8,1,1,3>": "BY SUB_PART_NO", + "<8,1,1,4>": "BY CUST_PART_DESC" + } + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "PART_NO", + "<9,1,2>": "14", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "Part No" + }, + "<9,2>": { + "<9,2,1>": "DESC", + "<9,2,2>": "30", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Desc" + }, + "<9,3>": { + "<9,3,1>": "EPI_PART_NO", + "<9,3,2>": "15", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Epi Part No" + }, + "<9,4>": { + "<9,4,1>": "CUST_PART_NO", + "<9,4,2>": "20", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Cust Part No" + }, + "<9,5>": { + "<9,5,1>": "SUB_PART_NO", + "<9,5,2>": "20", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Sub Part No" + }, + "<9,6>": { + "<9,6,1>": "CUST_PART_DESC", + "<9,6,2>": "20", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Cust Part Desc" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Part Master", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PART_NO.json b/LSL2/POPUP/PART_NO.json new file mode 100644 index 0000000..64501ac --- /dev/null +++ b/LSL2/POPUP/PART_NO.json @@ -0,0 +1,68 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "12345", + "<8,2>": "23456", + "<8,3>": "" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "40", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Part Number" + } + }, + "<10>": "L", + "<11>": "2", + "<12>": "Part Number", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PHONE_TYPES.json b/LSL2/POPUP/PHONE_TYPES.json new file mode 100644 index 0000000..fb7f2ac --- /dev/null +++ b/LSL2/POPUP/PHONE_TYPES.json @@ -0,0 +1,71 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "Cellular", + "<8,2>": "Fax", + "<8,3>": "Home", + "<8,4>": "Modem", + "<8,5>": "Office", + "<8,6>": "Pager" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "15", + "<9,1,3>": "L", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Phone Types", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PHOTOFLO_LOG_QUERY.json b/LSL2/POPUP/PHOTOFLO_LOG_QUERY.json new file mode 100644 index 0000000..84b2287 --- /dev/null +++ b/LSL2/POPUP/PHOTOFLO_LOG_QUERY.json @@ -0,0 +1,82 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "PHOTOFLO_LOG", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "DATE_CHANGED", + "<9,1,2>": "11", + "<9,1,3>": "R", + "<9,1,4>": "C", + "<9,1,5>": "D2/", + "<9,1,6>": "Date Changed" + }, + "<9,2>": { + "<9,2,1>": "TECH_SIG", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,2,6>": "Technician" + }, + "<9,3>": { + "<9,3,1>": "AMOUNT", + "<9,3,2>": "14", + "<9,3,3>": "R", + "<9,3,4>": "C", + "<9,3,5>": "MD0", + "<9,3,6>": "Amount (ml)" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Photo-Flo Log Report", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PLAN_DOWN_DATES.json b/LSL2/POPUP/PLAN_DOWN_DATES.json new file mode 100644 index 0000000..2ca04f5 --- /dev/null +++ b/LSL2/POPUP/PLAN_DOWN_DATES.json @@ -0,0 +1,114 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "6-1-2008", + "<8,1,2>": "Sunday" + }, + "<8,2>": { + "<8,2,1>": "6-2-2008", + "<8,2,2>": "Monday" + }, + "<8,3>": { + "<8,3,1>": "6/3/2008", + "<8,3,2>": "Tuesday" + }, + "<8,4>": { + "<8,4,1>": "6/4/2008", + "<8,4,2>": "Wednesday" + }, + "<8,5>": { + "<8,5,1>": "6/5/2008", + "<8,5,2>": "Thursday" + }, + "<8,6>": { + "<8,6,1>": "6/6/2008", + "<8,6,2>": "Friday" + }, + "<8,7>": { + "<8,7,1>": "6/7/2008", + "<8,7,2>": "Saturday" + }, + "<8,8>": { + "<8,8,1>": "6/8/2008", + "<8,8,2>": "Sunday" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "15", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Date" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "15", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Day" + } + }, + "<10>": "L", + "<11>": "2", + "<12>": "Planned Downtime Days", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PM.json b/LSL2/POPUP/PM.json new file mode 100644 index 0000000..0dc5f91 --- /dev/null +++ b/LSL2/POPUP/PM.json @@ -0,0 +1,129 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "PM", + "<8>": "BY @ID", + "<9>": { + "<9,1>": { + "<9,1,1>": "PM_ID", + "<9,1,2>": "8", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0,", + "<9,1,6>": "PM ID" + }, + "<9,2>": { + "<9,2,1>": "DESC", + "<9,2,2>": "30", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Desc" + }, + "<9,3>": { + "<9,3,1>": "TOOL_ID", + "<9,3,2>": "14", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Tool Id" + }, + "<9,4>": { + "<9,4,1>": "TOOL_DESC", + "<9,4,2>": "20", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Tool Desc" + }, + "<9,5>": { + "<9,5,1>": "CAL_INTVL", + "<9,5,2>": "10", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Cal Intvl" + }, + "<9,6>": { + "<9,6,1>": "CI_DESC", + "<9,6,2>": "10", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "CI Desc" + }, + "<9,7>": { + "<9,7,1>": "SCHED_INTVL", + "<9,7,2>": "14", + "<9,7,3>": "C", + "<9,7,4>": "C", + "<9,7,5>": "MD0", + "<9,7,6>": "Sched Intvl" + }, + "<9,8>": { + "<9,8,1>": "SCHED_UNITS", + "<9,8,2>": "5", + "<9,8,3>": "L", + "<9,8,4>": "C", + "<9,8,5>": "", + "<9,8,6>": "Sched Units" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "PM Action", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PM_HISTORY.json b/LSL2/POPUP/PM_HISTORY.json new file mode 100644 index 0000000..f4a13d4 --- /dev/null +++ b/LSL2/POPUP/PM_HISTORY.json @@ -0,0 +1,153 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "PM", + "<8>": "WITH PMS_ID = '222' BY-DSND ENTER_DTM", + "<9>": { + "<9,1>": { + "<9,1,1>": "PMS_ID", + "<9,1,2>": "6", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "<>", + "<9,1,6>": "PM ID" + }, + "<9,2>": { + "<9,2,1>": "PM_NO", + "<9,2,2>": "8", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "<>", + "<9,2,6>": "PM Key" + }, + "<9,3>": { + "<9,3,1>": "SCHED_DT", + "<9,3,2>": "14", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "D", + "<9,3,6>": "Sched " + }, + "<9,4>": { + "<9,4,1>": "SCHED_TM", + "<9,4,2>": "8", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "MTH", + "<9,4,6>": "Sched Tm" + }, + "<9,5>": { + "<9,5,1>": "SCHED_QTY", + "<9,5,2>": "8", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "MD0,", + "<9,5,6>": "Sched Qty" + }, + "<9,6>": { + "<9,6,1>": "TOOL_ID", + "<9,6,2>": "10", + "<9,6,3>": "C", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Tool ID" + }, + "<9,7>": { + "<9,7,1>": "TOOL_DESC", + "<9,7,2>": "16", + "<9,7,3>": "L", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "Tool Desc" + }, + "<9,8>": { + "<9,8,1>": "UNITS", + "<9,8,2>": "5", + "<9,8,3>": "C", + "<9,8,4>": "C", + "<9,8,5>": "", + "<9,8,6>": "Units" + }, + "<9,9>": { + "<9,9,1>": "COMP_BY", + "<9,9,2>": "12", + "<9,9,3>": "L", + "<9,9,4>": "C", + "<9,9,5>": "", + "<9,9,6>": "Comp By" + }, + "<9,10>": { + "<9,10,1>": "COMP_DTM", + "<9,10,2>": "16", + "<9,10,3>": "C", + "<9,10,4>": "C", + "<9,10,5>": "DT", + "<9,10,6>": "Comp Dtm" + }, + "<9,11>": { + "<9,11,1>": "COMP_QTY", + "<9,11,2>": "8", + "<9,11,3>": "C", + "<9,11,4>": "C", + "<9,11,5>": "MD0,", + "<9,11,6>": "Comp Qty" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "PM History", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "1", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PM_INTERVAL.json b/LSL2/POPUP/PM_INTERVAL.json new file mode 100644 index 0000000..4f33e0e --- /dev/null +++ b/LSL2/POPUP/PM_INTERVAL.json @@ -0,0 +1,159 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "BANN", + "<8,1,2>": "BiAnnual", + "<8,1,3>": "530", + "<8,1,4>": "D" + }, + "<8,2>": { + "<8,2,1>": "ANN", + "<8,2,2>": "Annual", + "<8,2,3>": "365", + "<8,2,4>": "D" + }, + "<8,3>": { + "<8,3,1>": "SANN", + "<8,3,2>": "SemiAnnual", + "<8,3,3>": "182", + "<8,3,4>": "D" + }, + "<8,4>": { + "<8,4,1>": "QTR", + "<8,4,2>": "Quarterly", + "<8,4,3>": "91", + "<8,4,4>": "D" + }, + "<8,5>": { + "<8,5,1>": "BMO", + "<8,5,2>": "BiMonthly", + "<8,5,3>": "60", + "<8,5,4>": "D" + }, + "<8,6>": { + "<8,6,1>": "MO", + "<8,6,2>": "Monthly", + "<8,6,3>": "30", + "<8,6,4>": "D" + }, + "<8,7>": { + "<8,7,1>": "BWK", + "<8,7,2>": "BiWeekly", + "<8,7,3>": "14", + "<8,7,4>": "D" + }, + "<8,8>": { + "<8,8,1>": "WK", + "<8,8,2>": "Weekly", + "<8,8,3>": "7", + "<8,8,4>": "D" + }, + "<8,9>": { + "<8,9,1>": "DLY", + "<8,9,2>": "Daily", + "<8,9,3>": "1", + "<8,9,4>": "DT" + }, + "<8,10>": { + "<8,10,1>": "QTY", + "<8,10,2>": "Quantity", + "<8,10,3>": "", + "<8,10,4>": "Q" + }, + "<8,11>": "" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Description" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "10", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Days" + }, + "<9,4>": { + "<9,4,1>": "4", + "<9,4,2>": "10", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Units" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "PM Interval", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PM_SCHED.json b/LSL2/POPUP/PM_SCHED.json new file mode 100644 index 0000000..821078f --- /dev/null +++ b/LSL2/POPUP/PM_SCHED.json @@ -0,0 +1,129 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "PM_SPEC", + "<8>": "BY @ID", + "<9>": { + "<9,1>": { + "<9,1,1>": "PMS_ID", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "PMS Id" + }, + "<9,2>": { + "<9,2,1>": "DESC", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Desc" + }, + "<9,3>": { + "<9,3,1>": "TOOL_ID", + "<9,3,2>": "10", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Tool Id" + }, + "<9,4>": { + "<9,4,1>": "TOOL_DESC", + "<9,4,2>": "20", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Tool Desc" + }, + "<9,5>": { + "<9,5,1>": "UNITS", + "<9,5,2>": "5", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Units" + }, + "<9,6>": { + "<9,6,1>": "INTERVAL", + "<9,6,2>": "8", + "<9,6,3>": "C", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Interval" + }, + "<9,7>": { + "<9,7,1>": "EARLY_START_DELTA", + "<9,7,2>": "8", + "<9,7,3>": "C", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "Early Start Delta" + }, + "<9,8>": { + "<9,8,1>": "LATE_START_DELTA", + "<9,8,2>": "8", + "<9,8,3>": "C", + "<9,8,4>": "C", + "<9,8,5>": "", + "<9,8,6>": "Late Start Delta" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "PM_SPEC", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PM_SPEC.json b/LSL2/POPUP/PM_SPEC.json new file mode 100644 index 0000000..821078f --- /dev/null +++ b/LSL2/POPUP/PM_SPEC.json @@ -0,0 +1,129 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "PM_SPEC", + "<8>": "BY @ID", + "<9>": { + "<9,1>": { + "<9,1,1>": "PMS_ID", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "PMS Id" + }, + "<9,2>": { + "<9,2,1>": "DESC", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Desc" + }, + "<9,3>": { + "<9,3,1>": "TOOL_ID", + "<9,3,2>": "10", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Tool Id" + }, + "<9,4>": { + "<9,4,1>": "TOOL_DESC", + "<9,4,2>": "20", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Tool Desc" + }, + "<9,5>": { + "<9,5,1>": "UNITS", + "<9,5,2>": "5", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Units" + }, + "<9,6>": { + "<9,6,1>": "INTERVAL", + "<9,6,2>": "8", + "<9,6,3>": "C", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Interval" + }, + "<9,7>": { + "<9,7,1>": "EARLY_START_DELTA", + "<9,7,2>": "8", + "<9,7,3>": "C", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "Early Start Delta" + }, + "<9,8>": { + "<9,8,1>": "LATE_START_DELTA", + "<9,8,2>": "8", + "<9,8,3>": "C", + "<9,8,4>": "C", + "<9,8,5>": "", + "<9,8,6>": "Late Start Delta" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "PM_SPEC", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/POSITION.json b/LSL2/POPUP/POSITION.json new file mode 100644 index 0000000..c39366b --- /dev/null +++ b/LSL2/POPUP/POSITION.json @@ -0,0 +1,102 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "L", + "<8,1,2>": "Left" + }, + "<8,2>": { + "<8,2,1>": "C", + "<8,2,2>": "Center" + }, + "<8,3>": { + "<8,3,1>": "R", + "<8,3,2>": "Right" + }, + "<8,4>": { + "<8,4,1>": "CL", + "<8,4,2>": "Center Left" + }, + "<8,5>": { + "<8,5,1>": "CR", + "<8,5,2>": "Center Right" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Description" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Positions", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PRECLEANCASSID.json b/LSL2/POPUP/PRECLEANCASSID.json new file mode 100644 index 0000000..e861412 --- /dev/null +++ b/LSL2/POPUP/PRECLEANCASSID.json @@ -0,0 +1,67 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "LISTBOX_CONFIG", + "<8>": { + "<8,1>": "PRECLEANCASSID", + "<8,2>": "1" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Choices" + } + }, + "<10>": "F", + "<11>": "1", + "<12>": "Pre Clean Boat ID", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PRECLEANCODE.json b/LSL2/POPUP/PRECLEANCODE.json new file mode 100644 index 0000000..8eaa281 --- /dev/null +++ b/LSL2/POPUP/PRECLEANCODE.json @@ -0,0 +1,67 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "LISTBOX_CONFIG", + "<8>": { + "<8,1>": "PRECLEANCODE", + "<8,2>": "1" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Choices" + } + }, + "<10>": "F", + "<11>": "1", + "<12>": "Pre Clean Codes", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PRECLEANSRD.json b/LSL2/POPUP/PRECLEANSRD.json new file mode 100644 index 0000000..d81499a --- /dev/null +++ b/LSL2/POPUP/PRECLEANSRD.json @@ -0,0 +1,67 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "LISTBOX_CONFIG", + "<8>": { + "<8,1>": "PRECLEANSRD", + "<8,2>": "1" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Choices" + } + }, + "<10>": "F", + "<11>": "1", + "<12>": "Pre Clean SRD", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PRINT_CASS_SHIP_LABELS.json b/LSL2/POPUP/PRINT_CASS_SHIP_LABELS.json new file mode 100644 index 0000000..bbd578e --- /dev/null +++ b/LSL2/POPUP/PRINT_CASS_SHIP_LABELS.json @@ -0,0 +1,99 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "1", + "<8,1,2>": "34", + "<8,1,3>": "345678" + }, + "<8,2>": { + "<8,2,1>": "2", + "<8,2,2>": "35", + "<8,2,3>": "34567", + "<8,2,4>": "" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "WO Step" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "10", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Cass No" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "15", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "RDS No" + } + }, + "<10>": "L", + "<11>": "2", + "<12>": "Print Cassette Shipping Labels", + "<13>": "", + "<14>": "E", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PRINT_GAN_LABELS.json b/LSL2/POPUP/PRINT_GAN_LABELS.json new file mode 100644 index 0000000..81275d9 --- /dev/null +++ b/LSL2/POPUP/PRINT_GAN_LABELS.json @@ -0,0 +1,100 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "WO_MAT", + "<8>": { + "<8,1>": "162579*1", + "<8,2>": "162579*2" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "CASS_ID", + "<9,1,2>": "12", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Cass ID" + }, + "<9,2>": { + "<9,2,1>": "CASS_FINAL_SIG", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Cass Final Sig" + }, + "<9,3>": { + "<9,3,1>": "CASS_FINAL_SIG_DTM", + "<9,3,2>": "21", + "<9,3,3>": "R", + "<9,3,4>": "C", + "<9,3,5>": "DT4/^S", + "<9,3,6>": "Cass Final Sig Dtm" + }, + "<9,4>": { + "<9,4,1>": "WAFER_QTY", + "<9,4,2>": "10", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "MD0,", + "<9,4,6>": "Wafer Qty" + } + }, + "<10>": "K", + "<11>": "2", + "<12>": "GaN Labels", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PRINT_SHIP_LABEL2_CHOOSE_BOXES.json b/LSL2/POPUP/PRINT_SHIP_LABEL2_CHOOSE_BOXES.json new file mode 100644 index 0000000..8751297 --- /dev/null +++ b/LSL2/POPUP/PRINT_SHIP_LABEL2_CHOOSE_BOXES.json @@ -0,0 +1,122 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "5", + "<9,1,3>": "L", + "<9,1,4>": "L", + "<9,1,5>": "", + "<9,1,6>": "Order No" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "5", + "<9,2,3>": "L", + "<9,2,4>": "L", + "<9,2,5>": "", + "<9,2,6>": "Line" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "10", + "<9,3,3>": "L", + "<9,3,4>": "L", + "<9,3,5>": "", + "<9,3,6>": "RDS No" + }, + "<9,4>": { + "<9,4,1>": "4", + "<9,4,2>": "7", + "<9,4,3>": "L", + "<9,4,4>": "L", + "<9,4,5>": "", + "<9,4,6>": "Part Number" + }, + "<9,5>": { + "<9,5,1>": "5", + "<9,5,2>": "7", + "<9,5,3>": "L", + "<9,5,4>": "L", + "<9,5,5>": "", + "<9,5,6>": "Lot Number" + }, + "<9,6>": { + "<9,6,1>": "6", + "<9,6,2>": "4", + "<9,6,3>": "R", + "<9,6,4>": "L", + "<9,6,5>": "", + "<9,6,6>": "R#" + }, + "<9,7>": { + "<9,7,1>": "7", + "<9,7,2>": "7", + "<9,7,3>": "R", + "<9,7,4>": "L", + "<9,7,5>": "", + "<9,7,6>": "Rejects" + }, + "<9,8>": { + "<9,8,1>": "8", + "<9,8,2>": "4", + "<9,8,3>": "R", + "<9,8,4>": "L", + "<9,8,5>": "", + "<9,8,6>": "Qty" + } + }, + "<10>": "L", + "<11>": "2", + "<12>": "Choose Boxes", + "<13>": "", + "<14>": "P", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PRINT_WMI_LABELS.json b/LSL2/POPUP/PRINT_WMI_LABELS.json new file mode 100644 index 0000000..72c4ea2 --- /dev/null +++ b/LSL2/POPUP/PRINT_WMI_LABELS.json @@ -0,0 +1,86 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "WM_IN", + "<8>": { + "<8,1>": "143069*1*1", + "<8,2>": "143069*1*2", + "<8,3>": "143069*1*3", + "<8,4>": "143069*1*4" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "WMI_NO", + "<9,1,2>": "12", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "WMI No" + }, + "<9,2>": { + "<9,2,1>": "WFRS_SCHED", + "<9,2,2>": "8", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "MD0", + "<9,2,6>": "Wfrs Sched" + } + }, + "<10>": "K", + "<11>": "2", + "<12>": "WMI Labels", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PRINT_WM_LABELS.json b/LSL2/POPUP/PRINT_WM_LABELS.json new file mode 100644 index 0000000..500ba56 --- /dev/null +++ b/LSL2/POPUP/PRINT_WM_LABELS.json @@ -0,0 +1,94 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "WM_OUT", + "<8>": { + "<8,1>": "132117*1*1", + "<8,2>": "132117*1*2", + "<8,3>": "132117*1*3", + "<8,4>": "132117*1*4" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "WMO_NO", + "<9,1,2>": "12", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "WM No" + }, + "<9,2>": { + "<9,2,1>": "WFRS_SCHED", + "<9,2,2>": "8", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "MD0", + "<9,2,6>": "Wfrs Sched" + }, + "<9,3>": { + "<9,3,1>": "MAKEUP_BOX", + "<9,3,2>": "3", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "B", + "<9,3,6>": "Makeup Box" + } + }, + "<10>": "K", + "<11>": "2", + "<12>": "WM Labels", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PRINT_WM_OUT_LABELS.json b/LSL2/POPUP/PRINT_WM_OUT_LABELS.json new file mode 100644 index 0000000..5eecc09 --- /dev/null +++ b/LSL2/POPUP/PRINT_WM_OUT_LABELS.json @@ -0,0 +1,89 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "WM_OUT", + "<8>": "131886*1*7", + "<9>": { + "<9,1>": { + "<9,1,1>": "WMO_NO", + "<9,1,2>": "12", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "WMO No" + }, + "<9,2>": { + "<9,2,1>": "WAFER_CNT", + "<9,2,2>": "14", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "MD0,", + "<9,2,6>": "Wafer Cnt" + }, + "<9,3>": { + "<9,3,1>": "MAKEUP_BOX", + "<9,3,2>": "3", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "B", + "<9,3,6>": "Makeup Box" + } + }, + "<10>": "K", + "<11>": "1", + "<12>": "WM_OUT Labels", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PRINT_WO_MAT_IN_LABELS.json b/LSL2/POPUP/PRINT_WO_MAT_IN_LABELS.json new file mode 100644 index 0000000..dac032e --- /dev/null +++ b/LSL2/POPUP/PRINT_WO_MAT_IN_LABELS.json @@ -0,0 +1,102 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "WO_MAT", + "<8>": { + "<8,1>": "162710*1", + "<8,2>": "162710*2", + "<8,3>": "162710*3", + "<8,4>": "162710*4" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "CASS_ID", + "<9,1,2>": "12", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Cass ID" + }, + "<9,2>": { + "<9,2,1>": "RX_BY", + "<9,2,2>": "16", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Rx By" + }, + "<9,3>": { + "<9,3,1>": "RX_DTM", + "<9,3,2>": "21", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "DT4/^HS", + "<9,3,6>": "Rx Dtm" + }, + "<9,4>": { + "<9,4,1>": "WAFER_QTY", + "<9,4,2>": "8", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "MD0,", + "<9,4,6>": "Wafer Qty" + } + }, + "<10>": "K", + "<11>": "2", + "<12>": "WO Mat Inbound", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PRINT_WO_MAT_OUT_LABELS.json b/LSL2/POPUP/PRINT_WO_MAT_OUT_LABELS.json new file mode 100644 index 0000000..acdb651 --- /dev/null +++ b/LSL2/POPUP/PRINT_WO_MAT_OUT_LABELS.json @@ -0,0 +1,102 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "WO_MAT", + "<8>": { + "<8,1>": "162710*1", + "<8,2>": "162710*2", + "<8,3>": "162710*3", + "<8,4>": "162710*4" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "CASS_ID", + "<9,1,2>": "12", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Cass ID" + }, + "<9,2>": { + "<9,2,1>": "RX_BY", + "<9,2,2>": "16", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Rx By" + }, + "<9,3>": { + "<9,3,1>": "RX_DTM", + "<9,3,2>": "21", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "DT4/^HS", + "<9,3,6>": "Rx Dtm" + }, + "<9,4>": { + "<9,4,1>": "WAFER_QTY", + "<9,4,2>": "8", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "MD0,", + "<9,4,6>": "Wafer Qty" + } + }, + "<10>": "K", + "<11>": "2", + "<12>": "WO Mat Outbound", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PROCESS_STAGE.json b/LSL2/POPUP/PROCESS_STAGE.json new file mode 100644 index 0000000..f7070b9 --- /dev/null +++ b/LSL2/POPUP/PROCESS_STAGE.json @@ -0,0 +1,114 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "PRE", + "<8,1,2>": "Pre Epi" + }, + "<8,2>": { + "<8,2,1>": "LOAD", + "<8,2,2>": "Reactor Load" + }, + "<8,3>": { + "<8,3,1>": "WFR", + "<8,3,2>": "First/Last Wafer Inspection" + }, + "<8,4>": { + "<8,4,1>": "UNLOAD", + "<8,4,2>": "Reactor Unload" + }, + "<8,5>": { + "<8,5,1>": "POST", + "<8,5,2>": "Post Epi" + }, + "<8,6>": { + "<8,6,1>": "QA", + "<8,6,2>": "Final Inspection" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Stage" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Description" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Process Stages", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PROCESS_TOOL_CONTROL_REACT_PLAN.json b/LSL2/POPUP/PROCESS_TOOL_CONTROL_REACT_PLAN.json new file mode 100644 index 0000000..ecbb418 --- /dev/null +++ b/LSL2/POPUP/PROCESS_TOOL_CONTROL_REACT_PLAN.json @@ -0,0 +1,191 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-13", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "3", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Receiving", + "<8,1,2>": "", + "<8,1,3>": "", + "<8,1,4>": "WI", + "<8,1,5>": "EpiMSA WI-0040" + }, + "<8,2>": { + "<8,2,1>": "", + "<8,2,2>": "Cleans", + "<8,2,3>": "", + "<8,2,4>": "WI", + "<8,2,5>": "EpiMSA WI-0175" + }, + "<8,3>": { + "<8,3,1>": "", + "<8,3,2>": "ASM", + "<8,3,3>": "", + "<8,3,4>": "SPC", + "<8,3,5>": "OCAP" + }, + "<8,4>": { + "<8,4,1>": "", + "<8,4,2>": "ASM+", + "<8,4,3>": "", + "<8,4,4>": "SPC", + "<8,4,5>": "OCAP" + }, + "<8,5>": { + "<8,5,1>": "", + "<8,5,2>": "HTR", + "<8,5,3>": "", + "<8,5,4>": "SPC", + "<8,5,5>": "OCAP" + }, + "<8,6>": { + "<8,6,1>": "", + "<8,6,2>": "EpiPro", + "<8,6,3>": "", + "<8,6,4>": "SPC", + "<8,6,5>": "OCAP" + }, + "<8,7>": { + "<8,7,1>": "", + "<8,7,2>": "", + "<8,7,3>": "BRIGHTLIGHT", + "<8,7,4>": "WI", + "<8,7,5>": "EpiMSA WI-0017" + }, + "<8,8>": { + "<8,8,1>": "", + "<8,8,2>": "", + "<8,8,3>": "MICROSCOPE", + "<8,8,4>": "WI", + "<8,8,5>": "EpiMSA WI-0017" + }, + "<8,9>": { + "<8,9,1>": "", + "<8,9,2>": "", + "<8,9,3>": "TENCOR", + "<8,9,4>": "SPC", + "<8,9,5>": "OCAP" + }, + "<8,10>": { + "<8,10,1>": "", + "<8,10,2>": "QA_Met", + "<8,10,3>": "", + "<8,10,4>": "SPC", + "<8,10,5>": "OCAP" + }, + "<8,11>": { + "<8,11,1>": "Shipping", + "<8,11,2>": "", + "<8,11,3>": "", + "<8,11,4>": "WI", + "<8,11,5>": "EpiMSA WI-0236" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Process" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "14", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Tool Group" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "12", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Tool Class" + }, + "<9,4>": { + "<9,4,1>": "4", + "<9,4,2>": "14", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Control Method" + }, + "<9,5>": { + "<9,5,1>": "5", + "<9,5,2>": "14", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "React Plan" + }, + "<9,6>": { + "<9,6,1>": "", + "<9,6,2>": "", + "<9,6,3>": "", + "<9,6,4>": "", + "<9,6,5>": "", + "<9,6,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Tool Class - Control Method - React Plan", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PROD_ORD.json b/LSL2/POPUP/PROD_ORD.json new file mode 100644 index 0000000..e21d2f1 --- /dev/null +++ b/LSL2/POPUP/PROD_ORD.json @@ -0,0 +1,96 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "PROD_ORD", + "<8>": "BY-DSND @ID", + "<9>": { + "<9,1>": { + "<9,1,1>": "ORD_NO", + "<9,1,2>": "14", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Ord No" + }, + "<9,2>": { + "<9,2,1>": "CUST_NO", + "<9,2,2>": "15", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Cust No" + }, + "<9,3>": { + "<9,3,1>": "COMMIT_DT", + "<9,3,2>": "11", + "<9,3,3>": "R", + "<9,3,4>": "C", + "<9,3,5>": "D4/", + "<9,3,6>": "Commit Date" + }, + "<9,4>": { + "<9,4,1>": "PO_NO", + "<9,4,2>": "20", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "PO No" + }, + "<9,5>": { + "<9,5,1>": "STATUS", + "<9,5,2>": "10", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Status" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "Production Orders", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PROD_SPEC.json b/LSL2/POPUP/PROD_SPEC.json new file mode 100644 index 0000000..03fb149 --- /dev/null +++ b/LSL2/POPUP/PROD_SPEC.json @@ -0,0 +1,116 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "PROD_SPEC", + "<8>": { + "<8,1>": "1487", + "<8,2>": "2315", + "<8,3>": "1483" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "SEQ", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "PSN" + }, + "<9,2>": { + "<9,2,1>": "CUST_ID", + "<9,2,2>": "5", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "MD0", + "<9,2,6>": "Cust ID" + }, + "<9,3>": { + "<9,3,1>": "CUST_NAME", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Customer" + }, + "<9,4>": { + "<9,4,1>": "SPEC_NUM", + "<9,4,2>": "15", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Spec Number" + }, + "<9,5>": { + "<9,5,1>": "PART_NUMS_SINGLE", + "<9,5,2>": "20", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Part Number(s)" + }, + "<9,6>": { + "<9,6,1>": "REV_NUM", + "<9,6,2>": "5", + "<9,6,3>": "C", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Rev No" + }, + "<9,7>": { + "<9,7,1>": "REV_DATE", + "<9,7,2>": "9", + "<9,7,3>": "C", + "<9,7,4>": "C", + "<9,7,5>": "D2/", + "<9,7,6>": "Rev Date" + } + }, + "<10>": "K", + "<11>": "1", + "<12>": "Product Specification ", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PROD_SPEC_LOOKUP_OPTS.json b/LSL2/POPUP/PROD_SPEC_LOOKUP_OPTS.json new file mode 100644 index 0000000..658afab --- /dev/null +++ b/LSL2/POPUP/PROD_SPEC_LOOKUP_OPTS.json @@ -0,0 +1,71 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "View Current PSN...", + "<8,2>": "Goto PSN Window...", + "<8,3>": "Goto PSN Window with all PSNs...", + "<8,4>": "View/Choose Via Popup..." + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "29", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Option" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Product Specifications Lookup Options", + "<13>": "", + "<14>": "P", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PROD_SPEC_LOOKUP_OPTS2.json b/LSL2/POPUP/PROD_SPEC_LOOKUP_OPTS2.json new file mode 100644 index 0000000..9af0f57 --- /dev/null +++ b/LSL2/POPUP/PROD_SPEC_LOOKUP_OPTS2.json @@ -0,0 +1,69 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "View Current PSN...", + "<8,2>": "View/Choose Via Popup..." + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Option" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Product Specifications Lookup Options", + "<13>": "", + "<14>": "P", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PROD_SPEC_MODE.json b/LSL2/POPUP/PROD_SPEC_MODE.json new file mode 100644 index 0000000..b3aa3fe --- /dev/null +++ b/LSL2/POPUP/PROD_SPEC_MODE.json @@ -0,0 +1,106 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "U", + "<8,1,2>": "PreQual" + }, + "<8,2>": { + "<8,2,1>": "Q", + "<8,2,2>": "Qual" + }, + "<8,3>": { + "<8,3,1>": "E", + "<8,3,2>": "PreProd" + }, + "<8,4>": { + "<8,4,1>": "P", + "<8,4,2>": "Prod" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Mode Description" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Prod Spec Modes", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PROD_SPEC_QUERY.json b/LSL2/POPUP/PROD_SPEC_QUERY.json new file mode 100644 index 0000000..e9e6e56 --- /dev/null +++ b/LSL2/POPUP/PROD_SPEC_QUERY.json @@ -0,0 +1,121 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "PROD_SPEC", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "PROD_VER_UNIQUE_CUST_NO", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "PV Cust No" + }, + "<9,2>": { + "<9,2,1>": "SUB_WAFER_DESC", + "<9,2,2>": "14", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Wafer Desc" + }, + "<9,3>": { + "<9,3,1>": "SEQ", + "<9,3,2>": "8", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "MD0", + "<9,3,6>": "PSN" + }, + "<9,4>": { + "<9,4,1>": "THICK_TARGET_L1", + "<9,4,2>": "10", + "<9,4,3>": "R", + "<9,4,4>": "C", + "<9,4,5>": "MD3", + "<9,4,6>": "Tgt Thick" + }, + "<9,5>": { + "<9,5,1>": "RES_TARGET_L1", + "<9,5,2>": "10", + "<9,5,3>": "R", + "<9,5,4>": "C", + "<9,5,5>": "MD3", + "<9,5,6>": "Tgt Res" + }, + "<9,6>": { + "<9,6,1>": "PART_NUMS_SINGLE", + "<9,6,2>": "20", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Cust Part No(s)" + }, + "<9,7>": { + "<9,7,1>": "STATUS", + "<9,7,2>": "7", + "<9,7,3>": "L", + "<9,7,4>": "C", + "<9,7,5>": "[PROD_SPEC_STATUS_CONV]", + "<9,7,6>": "Status" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Customer Product Specification", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PROD_SPEC_QUOTES.json b/LSL2/POPUP/PROD_SPEC_QUOTES.json new file mode 100644 index 0000000..62469af --- /dev/null +++ b/LSL2/POPUP/PROD_SPEC_QUOTES.json @@ -0,0 +1,112 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "L", + "<9,1,5>": "", + "<9,1,6>": "Quote No" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "10", + "<9,2,3>": "L", + "<9,2,4>": "L", + "<9,2,5>": "", + "<9,2,6>": "Status" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "10", + "<9,3,3>": "C", + "<9,3,4>": "L", + "<9,3,5>": "", + "<9,3,6>": "Layer Set" + }, + "<9,4>": { + "<9,4,1>": "4", + "<9,4,2>": "10", + "<9,4,3>": "C", + "<9,4,4>": "L", + "<9,4,5>": "", + "<9,4,6>": "PSN" + }, + "<9,5>": { + "<9,5,1>": "5", + "<9,5,2>": "20", + "<9,5,3>": "L", + "<9,5,4>": "L", + "<9,5,5>": "", + "<9,5,6>": "PSN Status" + }, + "<9,6>": { + "<9,6,1>": "6", + "<9,6,2>": "20", + "<9,6,3>": "L", + "<9,6,4>": "L", + "<9,6,5>": "", + "<9,6,6>": "Part No" + }, + "<9,7>": { + "<9,7,1>": "", + "<9,7,2>": "", + "<9,7,3>": "", + "<9,7,4>": "", + "<9,7,5>": "", + "<9,7,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "", + "<13>": "", + "<14>": "E", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PROD_SPEC_SINGLE.json b/LSL2/POPUP/PROD_SPEC_SINGLE.json new file mode 100644 index 0000000..461c209 --- /dev/null +++ b/LSL2/POPUP/PROD_SPEC_SINGLE.json @@ -0,0 +1,146 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "PROD_SPEC", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "CUST_ID", + "<9,1,2>": "25", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "[XLATE_CONV,COMPANY*CO_NAME]", + "<9,1,6>": "Customer" + }, + "<9,2>": { + "<9,2,1>": "SUB_WAFER_DESC", + "<9,2,2>": "15", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Wafer Desc" + }, + "<9,3>": { + "<9,3,1>": "SEQ", + "<9,3,2>": "5", + "<9,3,3>": "R", + "<9,3,4>": "C", + "<9,3,5>": "MD0", + "<9,3,6>": "PSN" + }, + "<9,4>": { + "<9,4,1>": "QUOTE_KEYS_SINGLE", + "<9,4,2>": "10", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Quote Keys" + }, + "<9,5>": { + "<9,5,1>": "THICK_TARGET_L1", + "<9,5,2>": "7", + "<9,5,3>": "R", + "<9,5,4>": "C", + "<9,5,5>": "MD2", + "<9,5,6>": "Target Thick" + }, + "<9,6>": { + "<9,6,1>": "RES_TARGET_L1", + "<9,6,2>": "7", + "<9,6,3>": "R", + "<9,6,4>": "C", + "<9,6,5>": "MD3", + "<9,6,6>": "Target Res" + }, + "<9,7>": { + "<9,7,1>": "PART_NUMS_SINGLE", + "<9,7,2>": "20", + "<9,7,3>": "L", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "Part Num(s)" + }, + "<9,8>": { + "<9,8,1>": "SPEC_NUM", + "<9,8,2>": "20", + "<9,8,3>": "L", + "<9,8,4>": "C", + "<9,8,5>": "", + "<9,8,6>": "Spec Number" + }, + "<9,9>": { + "<9,9,1>": "REV_NUM", + "<9,9,2>": "4", + "<9,9,3>": "L", + "<9,9,4>": "C", + "<9,9,5>": "", + "<9,9,6>": "Rev#" + }, + "<9,10>": { + "<9,10,1>": "REV_DATE", + "<9,10,2>": "11", + "<9,10,3>": "C", + "<9,10,4>": "C", + "<9,10,5>": "D2/", + "<9,10,6>": "Revision Date" + }, + "<9,11>": { + "<9,11,1>": "STATUS", + "<9,11,2>": "1", + "<9,11,3>": "L", + "<9,11,4>": "C", + "<9,11,5>": "[PROD_SPEC_STATUS_CONV]", + "<9,11,6>": "Status" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "Customer Product Specification", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PROD_VER.json b/LSL2/POPUP/PROD_VER.json new file mode 100644 index 0000000..4674fa9 --- /dev/null +++ b/LSL2/POPUP/PROD_VER.json @@ -0,0 +1,129 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "PROD_VER", + "<8>": "BY PROD_VER_NO", + "<9>": { + "<9,1>": { + "<9,1,1>": "PROD_VER_NO", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "Prod Ver No" + }, + "<9,2>": { + "<9,2,1>": "EPI_PART_NO", + "<9,2,2>": "15", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Epi Part No" + }, + "<9,3>": { + "<9,3,1>": "SUB_PART_NO", + "<9,3,2>": "14", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Sub Part No" + }, + "<9,4>": { + "<9,4,1>": "REACT_TYPE", + "<9,4,2>": "7", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "[REACT_TYPE_CONV,OPSREF]", + "<9,4,6>": "React Type" + }, + "<9,5>": { + "<9,5,1>": "CUST_NO", + "<9,5,2>": "6", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Cust No" + }, + "<9,6>": { + "<9,6,1>": "CUST_NAME", + "<9,6,2>": "30", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Cust Name" + }, + "<9,7>": { + "<9,7,1>": "CUST_PART_NO", + "<9,7,2>": "15", + "<9,7,3>": "L", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "Cust Part No" + }, + "<9,8>": { + "<9,8,1>": "CUST_PART_DESC", + "<9,8,2>": "20", + "<9,8,3>": "L", + "<9,8,4>": "C", + "<9,8,5>": "", + "<9,8,6>": "Cust Part Desc" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Prod Ver", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PRS_ACT_STATUS.json b/LSL2/POPUP/PRS_ACT_STATUS.json new file mode 100644 index 0000000..c469665 --- /dev/null +++ b/LSL2/POPUP/PRS_ACT_STATUS.json @@ -0,0 +1,85 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "P", + "<8,1,2>": "PreActivation" + }, + "<8,2>": { + "<8,2,1>": "A", + "<8,2,2>": "Active" + }, + "<8,3>": { + "<8,3,1>": "I", + "<8,3,2>": "Inactive" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "15", + "<9,2,3>": "C", + "<9,2,4>": "L", + "<9,2,5>": "", + "<9,2,6>": "Status" + } + }, + "<10>": "L", + "<11>": "2", + "<12>": "Product Specification Activation Status", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PRS_COMPANIES.json b/LSL2/POPUP/PRS_COMPANIES.json new file mode 100644 index 0000000..ff65213 --- /dev/null +++ b/LSL2/POPUP/PRS_COMPANIES.json @@ -0,0 +1,100 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "COMPANY", + "<8>": { + "<8,1>": "401", + "<8,2>": "402", + "<8,3>": "511" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "CO_NO", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "Comp No" + }, + "<9,2>": { + "<9,2,1>": "CO_NAME", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Company Name" + }, + "<9,3>": { + "<9,3,1>": "DIVISION", + "<9,3,2>": "15", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Division" + }, + "<9,4>": { + "<9,4,1>": "CATEGORY", + "<9,4,2>": "15", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Category" + }, + "<9,5>": { + "<9,5,1>": "CO_TYPE", + "<9,5,2>": "15", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "[CO_TYPE_CONV]", + "<9,5,6>": "Type" + } + }, + "<10>": "K", + "<11>": "2", + "<12>": "Product Specification Companies", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PRS_PHASE.json b/LSL2/POPUP/PRS_PHASE.json new file mode 100644 index 0000000..ca7a035 --- /dev/null +++ b/LSL2/POPUP/PRS_PHASE.json @@ -0,0 +1,78 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "Setup", + "<8,2>": "PreQualification", + "<8,3>": "Qualification", + "<8,4>": "PreProduction", + "<8,5>": "Production" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "15", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Phase" + }, + "<9,2>": { + "<9,2,1>": "", + "<9,2,2>": "", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "2", + "<12>": "Product Specification Phase", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PSN_QUERY.json b/LSL2/POPUP/PSN_QUERY.json new file mode 100644 index 0000000..27eb4a0 --- /dev/null +++ b/LSL2/POPUP/PSN_QUERY.json @@ -0,0 +1,105 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "40", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "PROD_SPEC", + "<8>": "BY-DSND ENTRY_DATE", + "<9>": { + "<9,1>": { + "<9,1,1>": "SEQ", + "<9,1,2>": "14", + "<9,1,3>": "R", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "SEQ" + }, + "<9,2>": { + "<9,2,1>": "REACTOR_TYPE", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "[REACT_TYPE_CONV,OPSREF]", + "<9,2,6>": "Reactor Type" + }, + "<9,3>": { + "<9,3,1>": "RECIPE_NAME", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Recipe Name" + }, + "<9,4>": { + "<9,4,1>": "EPI_PART_NO", + "<9,4,2>": "20", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Epi Part No" + }, + "<9,5>": { + "<9,5,1>": "ENTRY_DATE", + "<9,5,2>": "11", + "<9,5,3>": "R", + "<9,5,4>": "C", + "<9,5,5>": "D2/", + "<9,5,6>": "Entry Date" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "PSN_QUERY", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/PSN_WAFER_TYPE.json b/LSL2/POPUP/PSN_WAFER_TYPE.json new file mode 100644 index 0000000..dc7f6a0 --- /dev/null +++ b/LSL2/POPUP/PSN_WAFER_TYPE.json @@ -0,0 +1,83 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "Cust Supplied", + "<8,2>": "PS-5093/P-", + "<8,3>": "PS-5500/P-", + "<8,4>": "PS-5181/P+", + "<8,5>": "PS-5115/N+", + "<8,6>": "PS-5089/N-", + "<8,7>": "PS-5099/P+", + "<8,8>": "PS-5101/P-", + "<8,9>": "PS-5195/N+", + "<8,10>": "PS-5097/N-", + "<8,11>": "Product" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "15", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Type" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "PSN Metrology & ProveIn Wafer Types", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/QA_MET_TEST.json b/LSL2/POPUP/QA_MET_TEST.json new file mode 100644 index 0000000..8aded62 --- /dev/null +++ b/LSL2/POPUP/QA_MET_TEST.json @@ -0,0 +1,125 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "THICK_ONLY", + "<8,1,2>": "THICK", + "<8,1,3>": "FTIR" + }, + "<8,2>": { + "<8,2,1>": "FLEXUS", + "<8,2,2>": "BOW", + "<8,2,3>": "FLEXUS" + }, + "<8,3>": { + "<8,3,1>": "ADE", + "<8,3,2>": "THICK", + "<8,3,3>": "ADE" + }, + "<8,4>": { + "<8,4,1>": "SRP", + "<8,4,2>": "RES", + "<8,4,3>": "SRP" + }, + "<8,5>": { + "<8,5,1>": "LW_RHO", + "<8,5,2>": "SRES", + "<8,5,3>": "4PP" + }, + "<8,6>": { + "<8,6,1>": "CRES", + "<8,6,2>": "CRES", + "<8,6,3>": "HGCV" + }, + "<8,7>": { + "<8,7,1>": "FF EDGE INSP", + "<8,7,2>": "EDGE", + "<8,7,3>": "FF/LIGHT" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "12", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "L", + "<9,1,6>": "QA Test" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "16", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "L", + "<9,2,6>": "Property" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "16", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "L", + "<9,3,6>": "Tool Class" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "QA Metrology Tests", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/QUARTZ_TC_LOG_QUERY.json b/LSL2/POPUP/QUARTZ_TC_LOG_QUERY.json new file mode 100644 index 0000000..f00cec2 --- /dev/null +++ b/LSL2/POPUP/QUARTZ_TC_LOG_QUERY.json @@ -0,0 +1,90 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "QUARTZ_TC_LOG", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "REACTOR", + "<9,1,2>": "8", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Reactor" + }, + "<9,2>": { + "<9,2,1>": "ENTRY_ID", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,2,6>": "Entry ID" + }, + "<9,3>": { + "<9,3,1>": "ENTRY_DATE", + "<9,3,2>": "11", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "D2/", + "<9,3,6>": "Entry Date" + }, + "<9,4>": { + "<9,4,1>": "REPLACEMENT_REASON", + "<9,4,2>": "20", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Replacement Reason" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Quartz TC Log", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/QUARTZ_WAND_LOG_QUERY.json b/LSL2/POPUP/QUARTZ_WAND_LOG_QUERY.json new file mode 100644 index 0000000..9f86f2d --- /dev/null +++ b/LSL2/POPUP/QUARTZ_WAND_LOG_QUERY.json @@ -0,0 +1,90 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "QUARTZ_WAND_LOG", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "REACTOR", + "<9,1,2>": "8", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Reactor" + }, + "<9,2>": { + "<9,2,1>": "ENTRY_ID", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,2,6>": "Entry ID" + }, + "<9,3>": { + "<9,3,1>": "ENTRY_DATE", + "<9,3,2>": "11", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "D2/", + "<9,3,6>": "Entry Date" + }, + "<9,4>": { + "<9,4,1>": "REPLACEMENT_REASON", + "<9,4,2>": "20", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Replacement Reason" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Quartz Wand Log", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/QUOTE.json b/LSL2/POPUP/QUOTE.json new file mode 100644 index 0000000..95bf99d --- /dev/null +++ b/LSL2/POPUP/QUOTE.json @@ -0,0 +1,93 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "QUOTE", + "<8>": { + "<8,1>": "3061", + "<8,2>": "2317", + "<8,3>": "4901", + "<8,4>": "4787" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "SEQ", + "<9,1,2>": "8", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "Quote No" + }, + "<9,2>": { + "<9,2,1>": "CUST_NAME", + "<9,2,2>": "35", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Customer Name" + }, + "<9,3>": { + "<9,3,1>": "PROD_SPEC_ID", + "<9,3,2>": "8", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "MD0", + "<9,3,6>": "PSN" + }, + "<9,4>": { + "<9,4,1>": "CUST_PART_NUMS", + "<9,4,2>": "15", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Cust Part No" + } + }, + "<10>": "K", + "<11>": "2", + "<12>": "Quote Lookup", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/QUOTES_OLD_QUERY.json b/LSL2/POPUP/QUOTES_OLD_QUERY.json new file mode 100644 index 0000000..953a9a5 --- /dev/null +++ b/LSL2/POPUP/QUOTES_OLD_QUERY.json @@ -0,0 +1,154 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "QUOTE_OLD", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "CUST_NO", + "<9,1,2>": "18", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "[XLATE_CONV,COMPANY*CO_NAME]", + "<9,1,6>": "Customer" + }, + "<9,2>": { + "<9,2,1>": "WAFER_DESC", + "<9,2,2>": "13", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Wafer Desc" + }, + "<9,3>": { + "<9,3,1>": "SEQ", + "<9,3,2>": "8", + "<9,3,3>": "R", + "<9,3,4>": "C", + "<9,3,5>": "MD0", + "<9,3,6>": "Quote ID" + }, + "<9,4>": { + "<9,4,1>": "TARGET_THICK", + "<9,4,2>": "8", + "<9,4,3>": "R", + "<9,4,4>": "C", + "<9,4,5>": "MD2", + "<9,4,6>": "Thick" + }, + "<9,5>": { + "<9,5,1>": "TARGET_RES", + "<9,5,2>": "8", + "<9,5,3>": "R", + "<9,5,4>": "C", + "<9,5,5>": "MD2", + "<9,5,6>": "Resist" + }, + "<9,6>": { + "<9,6,1>": "FIRST_CUST_PART_NUM", + "<9,6,2>": "18", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Part Number" + }, + "<9,7>": { + "<9,7,1>": "NAME_NO", + "<9,7,2>": "15", + "<9,7,3>": "L", + "<9,7,4>": "C", + "<9,7,5>": "[XLATE_CONV,NAMES*FIRST_LAST]", + "<9,7,6>": "Contact" + }, + "<9,8>": { + "<9,8,1>": "REQ_QUOTE_NUM", + "<9,8,2>": "10", + "<9,8,3>": "L", + "<9,8,4>": "", + "<9,8,5>": "", + "<9,8,6>": "Request Quote #" + }, + "<9,9>": { + "<9,9,1>": "ENTRY_ID", + "<9,9,2>": "10", + "<9,9,3>": "L", + "<9,9,4>": "", + "<9,9,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,9,6>": "Entry Id" + }, + "<9,10>": { + "<9,10,1>": "ENTRY_DATE", + "<9,10,2>": "8", + "<9,10,3>": "R", + "<9,10,4>": "", + "<9,10,5>": "D2/", + "<9,10,6>": "Entry Date" + }, + "<9,11>": { + "<9,11,1>": "EXP_DATE", + "<9,11,2>": "8", + "<9,11,3>": "R", + "<9,11,4>": "", + "<9,11,5>": "D2/", + "<9,11,6>": "Exp Date" + }, + "<9,12>": { + "<9,12,1>": "STATUS", + "<9,12,2>": "8", + "<9,12,3>": "L", + "<9,12,4>": "", + "<9,12,5>": "[QUOTE_STATUS_CONV]", + "<9,12,6>": "Status" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Customer Quotes", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/QUOTES_QUERY.json b/LSL2/POPUP/QUOTES_QUERY.json new file mode 100644 index 0000000..806c6c7 --- /dev/null +++ b/LSL2/POPUP/QUOTES_QUERY.json @@ -0,0 +1,164 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "QUOTE", + "<8>": "BY @ID", + "<9>": { + "<9,1>": { + "<9,1,1>": "SEQ", + "<9,1,2>": "8", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "Quote ID" + }, + "<9,2>": { + "<9,2,1>": "CUST_NO", + "<9,2,2>": "8", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Customer No" + }, + "<9,3>": { + "<9,3,1>": "PROC_STEP_PSN_DISP", + "<9,3,2>": "10", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Proc Step PSN" + }, + "<9,4>": { + "<9,4,1>": "NAME_NO", + "<9,4,2>": "15", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "[XLATE_CONV,NAMES*FIRST_LAST]", + "<9,4,6>": "Contact" + }, + "<9,5>": { + "<9,5,1>": "REQ_QUOTE_NUM", + "<9,5,2>": "15", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "RFQ No" + }, + "<9,6>": { + "<9,6,1>": "QUOTE_PART_NO", + "<9,6,2>": "15", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Cust Part Num" + }, + "<9,7>": { + "<9,7,1>": "PSN_PN_DESC", + "<9,7,2>": "15", + "<9,7,3>": "L", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "PSN PN Desc" + }, + "<9,8>": { + "<9,8,1>": "THICK_TARGET_L1", + "<9,8,2>": "10", + "<9,8,3>": "R", + "<9,8,4>": "C", + "<9,8,5>": "", + "<9,8,6>": "Thick Target" + }, + "<9,9>": { + "<9,9,1>": "RES_TARGET_L1", + "<9,9,2>": "10", + "<9,9,3>": "R", + "<9,9,4>": "C", + "<9,9,5>": "", + "<9,9,6>": "Res Target" + }, + "<9,10>": { + "<9,10,1>": "WAFER_DESC", + "<9,10,2>": "15", + "<9,10,3>": "L", + "<9,10,4>": "C", + "<9,10,5>": "", + "<9,10,6>": "Wafer Desc" + }, + "<9,11>": { + "<9,11,1>": "ENTRY_DATE", + "<9,11,2>": "8", + "<9,11,3>": "C", + "<9,11,4>": "", + "<9,11,5>": "D2/", + "<9,11,6>": "Entry Date" + }, + "<9,12>": { + "<9,12,1>": "EXP_DATE", + "<9,12,2>": "8", + "<9,12,3>": "C", + "<9,12,4>": "", + "<9,12,5>": "D2/", + "<9,12,6>": "Exp Date" + }, + "<9,13>": { + "<9,13,1>": "STATUS", + "<9,13,2>": "8", + "<9,13,3>": "C", + "<9,13,4>": "", + "<9,13,5>": "[QUOTE_STATUS_CONV]", + "<9,13,6>": "Status" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Customer Quotes", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/QUOTES_SINGLE.json b/LSL2/POPUP/QUOTES_SINGLE.json new file mode 100644 index 0000000..4603a62 --- /dev/null +++ b/LSL2/POPUP/QUOTES_SINGLE.json @@ -0,0 +1,154 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "QUOTE", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "CUST_NO", + "<9,1,2>": "25", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "[XLATE_CONV,COMPANY*CO_NAME]", + "<9,1,6>": "Customer" + }, + "<9,2>": { + "<9,2,1>": "SEQ", + "<9,2,2>": "8", + "<9,2,3>": "R", + "<9,2,4>": "C", + "<9,2,5>": "MD0", + "<9,2,6>": "Quote ID" + }, + "<9,3>": { + "<9,3,1>": "PROD_SPEC_ID", + "<9,3,2>": "5", + "<9,3,3>": "R", + "<9,3,4>": "C", + "<9,3,5>": "MD0", + "<9,3,6>": "PSN" + }, + "<9,4>": { + "<9,4,1>": "NAME_NO", + "<9,4,2>": "15", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "[XLATE_CONV,NAMES*FIRST_LAST]", + "<9,4,6>": "Contact" + }, + "<9,5>": { + "<9,5,1>": "REQ_QUOTE_NUM", + "<9,5,2>": "10", + "<9,5,3>": "L", + "<9,5,4>": "", + "<9,5,5>": "", + "<9,5,6>": "Request Quote #" + }, + "<9,6>": { + "<9,6,1>": "CUST_PART_NUM_FIRST", + "<9,6,2>": "15", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Cust Part Num" + }, + "<9,7>": { + "<9,7,1>": "THICK_TARGET_L1", + "<9,7,2>": "10", + "<9,7,3>": "R", + "<9,7,4>": "C", + "<9,7,5>": "MD2", + "<9,7,6>": "Thick Target" + }, + "<9,8>": { + "<9,8,1>": "RES_TARGET_L1", + "<9,8,2>": "10", + "<9,8,3>": "R", + "<9,8,4>": "C", + "<9,8,5>": "MD3", + "<9,8,6>": "Res Target" + }, + "<9,9>": { + "<9,9,1>": "WAFER_DESC", + "<9,9,2>": "15", + "<9,9,3>": "L", + "<9,9,4>": "C", + "<9,9,5>": "", + "<9,9,6>": "Wafer Desc" + }, + "<9,10>": { + "<9,10,1>": "ENTRY_DATE", + "<9,10,2>": "8", + "<9,10,3>": "R", + "<9,10,4>": "", + "<9,10,5>": "D2/", + "<9,10,6>": "Entry Date" + }, + "<9,11>": { + "<9,11,1>": "EXP_DATE", + "<9,11,2>": "8", + "<9,11,3>": "R", + "<9,11,4>": "", + "<9,11,5>": "D2/", + "<9,11,6>": "Exp Date" + }, + "<9,12>": { + "<9,12,1>": "STATUS", + "<9,12,2>": "8", + "<9,12,3>": "L", + "<9,12,4>": "", + "<9,12,5>": "[QUOTE_STATUS_CONV]", + "<9,12,6>": "Status" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "Customer Quotes", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/QUOTES_SRL_QUERY.json b/LSL2/POPUP/QUOTES_SRL_QUERY.json new file mode 100644 index 0000000..8df2b59 --- /dev/null +++ b/LSL2/POPUP/QUOTES_SRL_QUERY.json @@ -0,0 +1,120 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "QUOTE_SRL", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "CUST_NO", + "<9,1,2>": "18", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "[XLATE_CONV,COMPANY*CO_NAME]", + "<9,1,6>": "Customer" + }, + "<9,2>": { + "<9,2,1>": "NAME_NO", + "<9,2,2>": "15", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "[XLATE_CONV,NAMES*FIRST_LAST]", + "<9,2,6>": "Contact" + }, + "<9,3>": { + "<9,3,1>": "WAFER_DESC", + "<9,3,2>": "15", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Wafer Desc" + }, + "<9,4>": { + "<9,4,1>": "REQ_QUOTE_NUM", + "<9,4,2>": "10", + "<9,4,3>": "L", + "<9,4,4>": "", + "<9,4,5>": "", + "<9,4,6>": "Request Quote #" + }, + "<9,5>": { + "<9,5,1>": "ENTRY_ID", + "<9,5,2>": "10", + "<9,5,3>": "L", + "<9,5,4>": "", + "<9,5,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,5,6>": "Entry Id" + }, + "<9,6>": { + "<9,6,1>": "ENTRY_DATE", + "<9,6,2>": "8", + "<9,6,3>": "R", + "<9,6,4>": "", + "<9,6,5>": "D2/", + "<9,6,6>": "Entry Date" + }, + "<9,7>": { + "<9,7,1>": "EXP_DATE", + "<9,7,2>": "8", + "<9,7,3>": "R", + "<9,7,4>": "", + "<9,7,5>": "D2/", + "<9,7,6>": "Exp Date" + }, + "<9,8>": { + "<9,8,1>": "STATUS", + "<9,8,2>": "8", + "<9,8,3>": "L", + "<9,8,4>": "", + "<9,8,5>": "[SRL_QUOTE_STATUS_CONV]", + "<9,8,6>": "Status" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Customer Quotes", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/QUOTE_DET.json b/LSL2/POPUP/QUOTE_DET.json new file mode 100644 index 0000000..bccb8ac --- /dev/null +++ b/LSL2/POPUP/QUOTE_DET.json @@ -0,0 +1,80 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "QUOTE_DET", + "<8>": "4563*1", + "<9>": { + "<9,1>": { + "<9,1,1>": "ITEM_NO", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Item No" + }, + "<9,2>": { + "<9,2,1>": "DESC", + "<9,2,2>": "30", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Desc" + }, + "<9,3>": { + "<9,3,1>": "PROC_STEP_SUMMARY", + "<9,3,2>": "40", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Proc Step Summary" + } + }, + "<10>": "K", + "<11>": "1", + "<12>": "Quote Detail Items", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/QUOTE_DETAIL.json b/LSL2/POPUP/QUOTE_DETAIL.json new file mode 100644 index 0000000..c9b1e97 --- /dev/null +++ b/LSL2/POPUP/QUOTE_DETAIL.json @@ -0,0 +1,74 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": "This is a test", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "30", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Description" + }, + "<9,2>": { + "<9,2,1>": "", + "<9,2,2>": "", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Quote Item Descriptions", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/QUOTE_EPI_PARTS.json b/LSL2/POPUP/QUOTE_EPI_PARTS.json new file mode 100644 index 0000000..efa5255 --- /dev/null +++ b/LSL2/POPUP/QUOTE_EPI_PARTS.json @@ -0,0 +1,89 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "16", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Epi Part No" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Description" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "QUOTE_EPI_PARTS", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/QUOTE_EXP_DT_LOG.json b/LSL2/POPUP/QUOTE_EXP_DT_LOG.json new file mode 100644 index 0000000..5baa54a --- /dev/null +++ b/LSL2/POPUP/QUOTE_EXP_DT_LOG.json @@ -0,0 +1,104 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "11", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "D4/", + "<9,1,6>": "Change Date" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "11", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "D4/", + "<9,2,6>": "Org Exp Date" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "11", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "D4/", + "<9,3,6>": "New Exp Date" + }, + "<9,4>": { + "<9,4,1>": "4", + "<9,4,2>": "20", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "[XLATE_CONV,LSL_USERS*FIRS_LAST]", + "<9,4,6>": "Changed By" + }, + "<9,5>": { + "<9,5,1>": "5", + "<9,5,2>": "40", + "<9,5,3>": "L", + "<9,5,4>": "L", + "<9,5,5>": "", + "<9,5,6>": "Comments" + }, + "<9,6>": { + "<9,6,1>": "", + "<9,6,2>": "", + "<9,6,3>": "", + "<9,6,4>": "", + "<9,6,5>": "", + "<9,6,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Quote Expiration Date Change Log", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/QUOTE_FAX_OPTS.json b/LSL2/POPUP/QUOTE_FAX_OPTS.json new file mode 100644 index 0000000..9fafea8 --- /dev/null +++ b/LSL2/POPUP/QUOTE_FAX_OPTS.json @@ -0,0 +1,97 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Quote", + "<8,1,2>": "QUOTE.DOC" + }, + "<8,2>": { + "<8,2,1>": "Quote International", + "<8,2,2>": "QUOTIN.DOC" + }, + "<8,3>": { + "<8,3,1>": "Pitch", + "<8,3,2>": "PITCH.DOC" + }, + "<8,4>": { + "<8,4,1>": "Pitch International", + "<8,4,2>": "PITCIN.DOC" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Fax Document" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "L", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Quotation Fax Options", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/QUOTE_LOOKUP_OPTS.json b/LSL2/POPUP/QUOTE_LOOKUP_OPTS.json new file mode 100644 index 0000000..3dbac04 --- /dev/null +++ b/LSL2/POPUP/QUOTE_LOOKUP_OPTS.json @@ -0,0 +1,69 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "View Current Quote...", + "<8,2>": "Goto Quote Window...", + "<8,3>": "Goto Quote Window with All Open Quotes...", + "<8,4>": "View/Choose Via Popup..." + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "29", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Option" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Quotation Lookup Options", + "<13>": "", + "<14>": "P", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/QUOTE_LOOKUP_OPTS2.json b/LSL2/POPUP/QUOTE_LOOKUP_OPTS2.json new file mode 100644 index 0000000..c4bfd68 --- /dev/null +++ b/LSL2/POPUP/QUOTE_LOOKUP_OPTS2.json @@ -0,0 +1,69 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "View Current Quote...", + "<8,2>": "Goto Quote Window...", + "<8,3>": "Goto Quote Window with All Quotes...", + "<8,4>": "View/Choose Via Popup..." + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "29", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Option" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Quotation Lookup Options", + "<13>": "", + "<14>": "P", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/QUOTE_LOOKUP_OPTS3.json b/LSL2/POPUP/QUOTE_LOOKUP_OPTS3.json new file mode 100644 index 0000000..5191dc1 --- /dev/null +++ b/LSL2/POPUP/QUOTE_LOOKUP_OPTS3.json @@ -0,0 +1,69 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "View Current Old Quote...", + "<8,2>": "Goto Old Quote Window..." + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "29", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Option" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Quotation Lookup Options", + "<13>": "", + "<14>": "P", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/RATIO_TYPES.json b/LSL2/POPUP/RATIO_TYPES.json new file mode 100644 index 0000000..44b63e0 --- /dev/null +++ b/LSL2/POPUP/RATIO_TYPES.json @@ -0,0 +1,72 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "AP", + "<8,2>": "Kit 2000-PEP", + "<8,3>": "PEP", + "<8,4>": "RP", + "<8,5>": "DSP" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Tube Configuration" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Ratio Types", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/RDK_TRACK_ACTION.json b/LSL2/POPUP/RDK_TRACK_ACTION.json new file mode 100644 index 0000000..d43490c --- /dev/null +++ b/LSL2/POPUP/RDK_TRACK_ACTION.json @@ -0,0 +1,96 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "I", + "<8,1,2>": "In", + "<8,1,3>": "Into" + }, + "<8,2>": { + "<8,2,1>": "O", + "<8,2,2>": "Out", + "<8,2,3>": "Out Of" + }, + "<8,3>": { + "<8,3,1>": "C", + "<8,3,2>": "Count", + "<8,3,3>": "At" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Act Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "10", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Action" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "20", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Verb" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "RDS Tracking Actions", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/RDS_CURR_STATUS.json b/LSL2/POPUP/RDS_CURR_STATUS.json new file mode 100644 index 0000000..290c263 --- /dev/null +++ b/LSL2/POPUP/RDS_CURR_STATUS.json @@ -0,0 +1,182 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "VER", + "<8,1,2>": "Verify" + }, + "<8,2>": { + "<8,2,1>": "PREI", + "<8,2,2>": "Pre-Epi Inspection" + }, + "<8,3>": { + "<8,3,1>": "PREC", + "<8,3,2>": "Pre-Epi Clean" + }, + "<8,4>": { + "<8,4,1>": "PRES", + "<8,4,2>": " Pre-Epi SurfScan " + }, + "<8,5>": { + "<8,5,1>": "LOAD", + "<8,5,2>": "Load" + }, + "<8,6>": { + "<8,6,1>": "FWII", + "<8,6,2>": "First Wfr Inspection " + }, + "<8,7>": { + "<8,7,1>": "FWIS", + "<8,7,2>": "First Wfr SurfScan" + }, + "<8,8>": { + "<8,8,1>": "UNLOAD", + "<8,8,2>": "Unload" + }, + "<8,9>": { + "<8,9,1>": "LWIC", + "<8,9,2>": "Last Wfr Clean" + }, + "<8,10>": { + "<8,10,1>": "LWII", + "<8,10,2>": "Last Wfr Inspection" + }, + "<8,11>": { + "<8,11,1>": "LWIS", + "<8,11,2>": "Last Wfr Surfscan" + }, + "<8,12>": { + "<8,12,1>": "PSTC", + "<8,12,2>": " Post Clean" + }, + "<8,13>": { + "<8,13,1>": "PSTI", + "<8,13,2>": "Post-Epi Inspection" + }, + "<8,14>": { + "<8,14,1>": "PSTS", + "<8,14,2>": "Post-Epi SurfScan" + }, + "<8,15>": { + "<8,15,1>": "QA", + "<8,15,2>": "Final QA" + }, + "<8,16>": { + "<8,16,1>": "COMP", + "<8,16,2>": "Processing Complete" + }, + "<8,17>": { + "<8,17,1>": "WFRI", + "<8,17,2>": "Wafer Inspection" + }, + "<8,18>": { + "<8,18,1>": "WFRS", + "<8,18,2>": "Wafer Surfscan" + }, + "<8,19>": { + "<8,19,1>": "HOLD", + "<8,19,2>": "On Hold" + }, + "<8,20>": { + "<8,20,1>": "SPEC", + "<8,20,2>": "Out of Spec" + }, + "<8,21>": { + "<8,21,1>": "NCR", + "<8,21,2>": "Open NCR" + }, + "<8,22>": { + "<8,22,1>": "MET", + "<8,22,2>": "Incomplete Metrology" + }, + "<8,23>": { + "<8,23,1>": "PSV", + "<8,23,2>": "Pre Ship Verification" + }, + "<8,24>": "", + "<8,25>": "" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "30", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Current Status Description" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "RDS Current Status Codes", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/RDS_MOD_HIST_VIEW.json b/LSL2/POPUP/RDS_MOD_HIST_VIEW.json new file mode 100644 index 0000000..f9b9909 --- /dev/null +++ b/LSL2/POPUP/RDS_MOD_HIST_VIEW.json @@ -0,0 +1,99 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Dummy Field", + "<8,1,2>": "Dummy Owner" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "25", + "<9,1,3>": "L", + "<9,1,4>": "L", + "<9,1,5>": "", + "<9,1,6>": "Field Name" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "L", + "<9,2,5>": "", + "<9,2,6>": "Last To Change" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "21", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Last Changed" + }, + "<9,4>": { + "<9,4,1>": "4", + "<9,4,2>": "15", + "<9,4,3>": "L", + "<9,4,4>": "L", + "<9,4,5>": "", + "<9,4,6>": "Window" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "RDS Modification History View", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/RDS_PRINT_CLEANROOM_LABELS.json b/LSL2/POPUP/RDS_PRINT_CLEANROOM_LABELS.json new file mode 100644 index 0000000..c702ea0 --- /dev/null +++ b/LSL2/POPUP/RDS_PRINT_CLEANROOM_LABELS.json @@ -0,0 +1,98 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "RDS", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "RUN_ORDER_NUM", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "RO No" + }, + "<9,2>": { + "<9,2,1>": "SEQ", + "<9,2,2>": "14", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "MD0", + "<9,2,6>": "RDS No" + }, + "<9,3>": { + "<9,3,1>": "WAFERS_SCHEDULED", + "<9,3,2>": "14", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "MD0", + "<9,3,6>": "Wafers Scheduled" + }, + "<9,4>": { + "<9,4,1>": "WFRS_OUT", + "<9,4,2>": "14", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "MD0,", + "<9,4,6>": "Wfrs Out" + }, + "<9,5>": { + "<9,5,1>": "CURR_STATUS", + "<9,5,2>": "25", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "[RDS_CURR_STATUS_CONV]", + "<9,5,6>": "Curr Status" + } + }, + "<10>": "K", + "<11>": "2", + "<12>": "Print CleanRoom Cassette Labels", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/RDS_PRINT_OPTS.json b/LSL2/POPUP/RDS_PRINT_OPTS.json new file mode 100644 index 0000000..403c25e --- /dev/null +++ b/LSL2/POPUP/RDS_PRINT_OPTS.json @@ -0,0 +1,90 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Reactor Book", + "<8,1,2>": "1" + }, + "<8,2>": { + "<8,2,1>": "Lot Traveler", + "<8,2,2>": "2" + }, + "<8,3>": "" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "L", + "<9,1,5>": "", + "<9,1,6>": "Option" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "L", + "<9,2,4>": "L", + "<9,2,5>": "", + "<9,2,6>": "" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "2", + "<12>": "RDS Print Options", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/RDS_QUERY.json b/LSL2/POPUP/RDS_QUERY.json new file mode 100644 index 0000000..70dc4ad --- /dev/null +++ b/LSL2/POPUP/RDS_QUERY.json @@ -0,0 +1,217 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "3", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0", + "<6,1,15>": "0", + "<6,1,16>": "0" + } + }, + "<7>": "RDS", + "<8>": "BY SEQ", + "<9>": { + "<9,1>": { + "<9,1,1>": "ABBREV_OR_CO_NAME", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Customer" + }, + "<9,2>": { + "<9,2,1>": "WO", + "<9,2,2>": "5", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "WO No" + }, + "<9,3>": { + "<9,3,1>": "STEP_NO", + "<9,3,2>": "3", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "MD0", + "<9,3,6>": "Step" + }, + "<9,4>": { + "<9,4,1>": "SEQ", + "<9,4,2>": "6", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "MD0", + "<9,4,6>": "RDS" + }, + "<9,5>": { + "<9,5,1>": "REACTOR", + "<9,5,2>": "3", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Rx" + }, + "<9,6>": { + "<9,6,1>": "RUN_ORDER_NUM", + "<9,6,2>": "5", + "<9,6,3>": "C", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Run" + }, + "<9,7>": { + "<9,7,1>": "UNLOAD_THICK_TEST", + "<9,7,2>": "3", + "<9,7,3>": "C", + "<9,7,4>": "C", + "<9,7,5>": "B", + "<9,7,6>": "UL Thk" + }, + "<9,8>": { + "<9,8,1>": "HGCV_TEST", + "<9,8,2>": "3", + "<9,8,3>": "C", + "<9,8,4>": "C", + "<9,8,5>": "B", + "<9,8,6>": "HgCv" + }, + "<9,9>": { + "<9,9,1>": "DATE_IN", + "<9,9,2>": "7", + "<9,9,3>": "C", + "<9,9,4>": "C", + "<9,9,5>": "D2/", + "<9,9,6>": "Date In" + }, + "<9,10>": { + "<9,10,1>": "TIME_IN", + "<9,10,2>": "6", + "<9,10,3>": "C", + "<9,10,4>": "C", + "<9,10,5>": "MTH", + "<9,10,6>": "Time In" + }, + "<9,11>": { + "<9,11,1>": "DATE_OUT", + "<9,11,2>": "7", + "<9,11,3>": "C", + "<9,11,4>": "C", + "<9,11,5>": "D2/", + "<9,11,6>": "Date Out" + }, + "<9,12>": { + "<9,12,1>": "TIME_OUT", + "<9,12,2>": "6", + "<9,12,3>": "C", + "<9,12,4>": "C", + "<9,12,5>": "MTH", + "<9,12,6>": "Time Out" + }, + "<9,13>": { + "<9,13,1>": "ELAPSED_HOURS", + "<9,13,2>": "6", + "<9,13,3>": "C", + "<9,13,4>": "C", + "<9,13,5>": "MD2", + "<9,13,6>": "Elapsed" + }, + "<9,14>": { + "<9,14,1>": "PART_NUM", + "<9,14,2>": "10", + "<9,14,3>": "C", + "<9,14,4>": "C", + "<9,14,5>": "", + "<9,14,6>": "Cust Part No" + }, + "<9,15>": { + "<9,15,1>": "LOT_NUM", + "<9,15,2>": "10", + "<9,15,3>": "C", + "<9,15,4>": "C", + "<9,15,5>": "", + "<9,15,6>": "Lot Number" + }, + "<9,16>": { + "<9,16,1>": "COMB_STATUS", + "<9,16,2>": "25", + "<9,16,3>": "L", + "<9,16,4>": "C", + "<9,16,5>": "", + "<9,16,6>": "Combined Status" + }, + "<9,17>": { + "<9,17,1>": "NCR_SUM", + "<9,17,2>": "8", + "<9,17,3>": "C", + "<9,17,4>": "C", + "<9,17,5>": "", + "<9,17,6>": "NCR Status" + }, + "<9,18>": { + "<9,18,1>": "NCR_REJ_CNT", + "<9,18,2>": "8", + "<9,18,3>": "C", + "<9,18,4>": "C", + "<9,18,5>": "MD0,", + "<9,18,6>": "NCR Wfr Cnt" + }, + "<9,19>": { + "<9,19,1>": "HOLD_STATUS", + "<9,19,2>": "10", + "<9,19,3>": "C", + "<9,19,4>": "C", + "<9,19,5>": "", + "<9,19,6>": "Hold Status" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Run Data Sheets", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/RDS_QUERY_CURSOR.json b/LSL2/POPUP/RDS_QUERY_CURSOR.json new file mode 100644 index 0000000..54bd334 --- /dev/null +++ b/LSL2/POPUP/RDS_QUERY_CURSOR.json @@ -0,0 +1,209 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "3", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0", + "<6,1,15>": "0", + "<6,1,16>": "0" + } + }, + "<7>": "RDS", + "<8>": "0", + "<9>": { + "<9,1>": { + "<9,1,1>": "ABBREV_OR_CO_NAME", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Customer" + }, + "<9,2>": { + "<9,2,1>": "WO", + "<9,2,2>": "5", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "WO No" + }, + "<9,3>": { + "<9,3,1>": "STEP_NO", + "<9,3,2>": "3", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "MD0", + "<9,3,6>": "Step" + }, + "<9,4>": { + "<9,4,1>": "SEQ", + "<9,4,2>": "6", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "MD0", + "<9,4,6>": "RDS" + }, + "<9,5>": { + "<9,5,1>": "REACTOR", + "<9,5,2>": "3", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Rx" + }, + "<9,6>": { + "<9,6,1>": "REACT_IDLE_TIME", + "<9,6,2>": "4", + "<9,6,3>": "C", + "<9,6,4>": "C", + "<9,6,5>": "MD2,Z", + "<9,6,6>": "Idle Hrs" + }, + "<9,7>": { + "<9,7,1>": "RUN_ORDER_NUM", + "<9,7,2>": "5", + "<9,7,3>": "C", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "Run" + }, + "<9,8>": { + "<9,8,1>": "DATE_IN", + "<9,8,2>": "7", + "<9,8,3>": "C", + "<9,8,4>": "C", + "<9,8,5>": "D2/", + "<9,8,6>": "Date In" + }, + "<9,9>": { + "<9,9,1>": "TIME_IN", + "<9,9,2>": "6", + "<9,9,3>": "C", + "<9,9,4>": "C", + "<9,9,5>": "MTH", + "<9,9,6>": "Time In" + }, + "<9,10>": { + "<9,10,1>": "DATE_OUT", + "<9,10,2>": "7", + "<9,10,3>": "C", + "<9,10,4>": "C", + "<9,10,5>": "D2/", + "<9,10,6>": "Date Out" + }, + "<9,11>": { + "<9,11,1>": "TIME_OUT", + "<9,11,2>": "6", + "<9,11,3>": "C", + "<9,11,4>": "C", + "<9,11,5>": "MTH", + "<9,11,6>": "Time Out" + }, + "<9,12>": { + "<9,12,1>": "ELAPSED_HOURS", + "<9,12,2>": "6", + "<9,12,3>": "C", + "<9,12,4>": "C", + "<9,12,5>": "MD2", + "<9,12,6>": "Elapsed" + }, + "<9,13>": { + "<9,13,1>": "PO_NO", + "<9,13,2>": "10", + "<9,13,3>": "C", + "<9,13,4>": "C", + "<9,13,5>": "", + "<9,13,6>": "PO No" + }, + "<9,14>": { + "<9,14,1>": "PART_NUM", + "<9,14,2>": "10", + "<9,14,3>": "C", + "<9,14,4>": "C", + "<9,14,5>": "", + "<9,14,6>": "Cust Part No" + }, + "<9,15>": { + "<9,15,1>": "LOT_NUM", + "<9,15,2>": "10", + "<9,15,3>": "C", + "<9,15,4>": "C", + "<9,15,5>": "", + "<9,15,6>": "Lot Number" + }, + "<9,16>": { + "<9,16,1>": "COMB_STATUS", + "<9,16,2>": "25", + "<9,16,3>": "L", + "<9,16,4>": "C", + "<9,16,5>": "", + "<9,16,6>": "Combined Status" + }, + "<9,17>": { + "<9,17,1>": "NCR_SUM", + "<9,17,2>": "10", + "<9,17,3>": "L", + "<9,17,4>": "C", + "<9,17,5>": "", + "<9,17,6>": "NCR Summary" + }, + "<9,18>": { + "<9,18,1>": "HOLD_STATUS", + "<9,18,2>": "10", + "<9,18,3>": "L", + "<9,18,4>": "C", + "<9,18,5>": "", + "<9,18,6>": "Hold Status" + } + }, + "<10>": "C", + "<11>": "2", + "<12>": "Run Data Sheets", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/RDS_REJ_ACCT_OPTS.json b/LSL2/POPUP/RDS_REJ_ACCT_OPTS.json new file mode 100644 index 0000000..a1e15d3 --- /dev/null +++ b/LSL2/POPUP/RDS_REJ_ACCT_OPTS.json @@ -0,0 +1,82 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Option" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "L", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Reject Accountability Options", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/RDS_REL_WIN_OPTS.json b/LSL2/POPUP/RDS_REL_WIN_OPTS.json new file mode 100644 index 0000000..b4df796 --- /dev/null +++ b/LSL2/POPUP/RDS_REL_WIN_OPTS.json @@ -0,0 +1,93 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Quote", + "<8,1,2>": "QUOTE" + }, + "<8,2>": { + "<8,2,1>": "Recipe", + "<8,2,2>": "RECIPE" + }, + "<8,3>": { + "<8,3,1>": "Reactor Log", + "<8,3,2>": "REACTOR_LOG" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Window Option" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "L", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Goto Window Options", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/RDS_RET_QUERY.json b/LSL2/POPUP/RDS_RET_QUERY.json new file mode 100644 index 0000000..0ed3a5a --- /dev/null +++ b/LSL2/POPUP/RDS_RET_QUERY.json @@ -0,0 +1,89 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "New", + "<8,1,2>": "NEW" + }, + "<8,2>": { + "<8,2,1>": "Use Current Query", + "<8,2,2>": "CURRENT" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "15", + "<9,1,3>": "L", + "<9,1,4>": "L", + "<9,1,5>": "", + "<9,1,6>": "Option" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "L", + "<9,2,4>": "L", + "<9,2,5>": "", + "<9,2,6>": "" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "RDS Query Options", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/RDS_SHIP.json b/LSL2/POPUP/RDS_SHIP.json new file mode 100644 index 0000000..bd7ac24 --- /dev/null +++ b/LSL2/POPUP/RDS_SHIP.json @@ -0,0 +1,154 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "RDS", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "CUST_NO", + "<9,1,2>": "14", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "[XLATE_CONV,COMPANY*CO_NAME]", + "<9,1,6>": "Customer" + }, + "<9,2>": { + "<9,2,1>": "WO", + "<9,2,2>": "8", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Work Order" + }, + "<9,3>": { + "<9,3,1>": "DATE_IN", + "<9,3,2>": "7", + "<9,3,3>": "R", + "<9,3,4>": "C", + "<9,3,5>": "D2/", + "<9,3,6>": "Date In" + }, + "<9,4>": { + "<9,4,1>": "DATE_OUT", + "<9,4,2>": "8", + "<9,4,3>": "R", + "<9,4,4>": "C", + "<9,4,5>": "D2/", + "<9,4,6>": "Date Out" + }, + "<9,5>": { + "<9,5,1>": "SEQ", + "<9,5,2>": "8", + "<9,5,3>": "R", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "RDS #" + }, + "<9,6>": { + "<9,6,1>": "REACTOR", + "<9,6,2>": "3", + "<9,6,3>": "R", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "R#" + }, + "<9,7>": { + "<9,7,1>": "RUN_ORDER_NUM", + "<9,7,2>": "4", + "<9,7,3>": "R", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "RO#" + }, + "<9,8>": { + "<9,8,1>": "LOT_NUM", + "<9,8,2>": "10", + "<9,8,3>": "L", + "<9,8,4>": "C", + "<9,8,5>": "", + "<9,8,6>": "Lot Number" + }, + "<9,9>": { + "<9,9,1>": "PART_NUM", + "<9,9,2>": "10", + "<9,9,3>": "L", + "<9,9,4>": "C", + "<9,9,5>": "", + "<9,9,6>": "Part Number" + }, + "<9,10>": { + "<9,10,1>": "STATUS", + "<9,10,2>": "12", + "<9,10,3>": "L", + "<9,10,4>": "C", + "<9,10,5>": "[RDS_STATUS_CONV]", + "<9,10,6>": "Status" + }, + "<9,11>": { + "<9,11,1>": "NCR_STAT", + "<9,11,2>": "10", + "<9,11,3>": "L", + "<9,11,4>": "C", + "<9,11,5>": "", + "<9,11,6>": "NCRs" + }, + "<9,12>": { + "<9,12,1>": "HOLD_STATUS", + "<9,12,2>": "10", + "<9,12,3>": "L", + "<9,12,4>": "C", + "<9,12,5>": "", + "<9,12,6>": "Hold Status" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Customer Run Data Sheet Shipments", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/RDS_SPEC_TOOLS.json b/LSL2/POPUP/RDS_SPEC_TOOLS.json new file mode 100644 index 0000000..6bb432e --- /dev/null +++ b/LSL2/POPUP/RDS_SPEC_TOOLS.json @@ -0,0 +1,72 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "tool1", + "<8,2>": "tool2", + "<8,3>": "tool3" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Tool" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "RDS Specified Tools", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/RDS_STATUS.json b/LSL2/POPUP/RDS_STATUS.json new file mode 100644 index 0000000..f33473f --- /dev/null +++ b/LSL2/POPUP/RDS_STATUS.json @@ -0,0 +1,103 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "1234", + "<8,2>": "Order Received", + "<8,3>": "Signature", + "<8,4>": "4/5/2004", + "<8,5>": "10:15:am", + "<8,6>": "" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "RDS No" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Status" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Signature" + }, + "<9,4>": { + "<9,4,1>": "4", + "<9,4,2>": "15", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Date-Time" + }, + "<9,5>": { + "<9,5,1>": "", + "<9,5,2>": "10", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Verify Qty" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "RDS Process Status", + "<13>": "", + "<14>": "E", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/RDS_TEST.json b/LSL2/POPUP/RDS_TEST.json new file mode 100644 index 0000000..51d2e42 --- /dev/null +++ b/LSL2/POPUP/RDS_TEST.json @@ -0,0 +1,145 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "RDS_TEST", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "MET_NO", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "MET No" + }, + "<9,2>": { + "<9,2,1>": "RDS_NO", + "<9,2,2>": "10", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "MD0", + "<9,2,6>": "Rds No" + }, + "<9,3>": { + "<9,3,1>": "LS_ID", + "<9,3,2>": "10", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Ls Id" + }, + "<9,4>": { + "<9,4,1>": "ZONE", + "<9,4,2>": "10", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Zone" + }, + "<9,5>": { + "<9,5,1>": "SPEC_THICK_TARGET", + "<9,5,2>": "12", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "MD2", + "<9,5,6>": "Thickness Target" + }, + "<9,6>": { + "<9,6,1>": "SPEC_RES_TARGET", + "<9,6,2>": "12", + "<9,6,3>": "C", + "<9,6,4>": "C", + "<9,6,5>": "MD3", + "<9,6,6>": "Resistivity Target" + }, + "<9,7>": { + "<9,7,1>": "SPEC_CRES_TARGET", + "<9,7,2>": "12", + "<9,7,3>": "C", + "<9,7,4>": "C", + "<9,7,5>": "MD3,", + "<9,7,6>": "Spec CRes Target" + }, + "<9,8>": { + "<9,8,1>": "SPEC_CON_TARGET", + "<9,8,2>": "12", + "<9,8,3>": "C", + "<9,8,4>": "C", + "<9,8,5>": "MS21", + "<9,8,6>": "Concentration Target" + }, + "<9,9>": { + "<9,9,1>": "SPEC_STRESS_TARGET", + "<9,9,2>": "10", + "<9,9,3>": "C", + "<9,9,4>": "C", + "<9,9,5>": "", + "<9,9,6>": "Spec Stress Target" + }, + "<9,10>": { + "<9,10,1>": "SPEC_TRANS", + "<9,10,2>": "10", + "<9,10,3>": "C", + "<9,10,4>": "C", + "<9,10,5>": "", + "<9,10,6>": "Spec Trans" + } + }, + "<10>": "K", + "<11>": "1", + "<12>": "RDS Test ", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/RDS_TRACK_ACTION.json b/LSL2/POPUP/RDS_TRACK_ACTION.json new file mode 100644 index 0000000..d43490c --- /dev/null +++ b/LSL2/POPUP/RDS_TRACK_ACTION.json @@ -0,0 +1,96 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "I", + "<8,1,2>": "In", + "<8,1,3>": "Into" + }, + "<8,2>": { + "<8,2,1>": "O", + "<8,2,2>": "Out", + "<8,2,3>": "Out Of" + }, + "<8,3>": { + "<8,3,1>": "C", + "<8,3,2>": "Count", + "<8,3,3>": "At" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Act Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "10", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Action" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "20", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Verb" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "RDS Tracking Actions", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/RDS_TRACK_LOCATIONS.json b/LSL2/POPUP/RDS_TRACK_LOCATIONS.json new file mode 100644 index 0000000..a46a1bb --- /dev/null +++ b/LSL2/POPUP/RDS_TRACK_LOCATIONS.json @@ -0,0 +1,105 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "APRE", + "<8,1,2>": "Akrion PreClean" + }, + "<8,2>": { + "<8,2,1>": "APST", + "<8,2,2>": "AkrionPostClean" + }, + "<8,3>": { + "<8,3,1>": "MPre", + "<8,3,2>": "Megasonic PreClean" + }, + "<8,4>": { + "<8,4,1>": "ST", + "<8,4,2>": "Staging Area" + }, + "<8,5>": { + "<8,5,1>": "RI", + "<8,5,2>": "Receiving Inbound" + }, + "<8,6>": { + "<8,6,1>": "SO", + "<8,6,2>": "Shipping Outbound" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Location" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "RDS Tracking Locations", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/RDS_TW_ACCT_OPTS.json b/LSL2/POPUP/RDS_TW_ACCT_OPTS.json new file mode 100644 index 0000000..1f48bf7 --- /dev/null +++ b/LSL2/POPUP/RDS_TW_ACCT_OPTS.json @@ -0,0 +1,80 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Option" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "L", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Test Wafer Accountability Options", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACTORS.json b/LSL2/POPUP/REACTORS.json new file mode 100644 index 0000000..37302c2 --- /dev/null +++ b/LSL2/POPUP/REACTORS.json @@ -0,0 +1,119 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "REACTOR", + "<8>": "BY @ID", + "<9>": { + "<9,1>": { + "<9,1,1>": "REACT_NO", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0,", + "<9,1,6>": "React No" + }, + "<9,2>": { + "<9,2,1>": "REACT_TYPE_DESC_OPS", + "<9,2,2>": "8", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "[REACT_TYPE_CONV,OPSREF]", + "<9,2,6>": "Type (Ops)" + }, + "<9,3>": { + "<9,3,1>": "REDUCED_PRESS", + "<9,3,2>": "3", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "B", + "<9,3,6>": "Red Press" + }, + "<9,4>": { + "<9,4,1>": "WAFER_SIZE", + "<9,4,2>": "10", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Wafer Size" + }, + "<9,5>": { + "<9,5,1>": "TOOL_LOC_DESC", + "<9,5,2>": "12", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Tool Loc Desc" + }, + "<9,6>": { + "<9,6,1>": "REACT_ASSIGN_DESC", + "<9,6,2>": "16", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "[REACT_ASSIGN_CONV]", + "<9,6,6>": "React Assignment" + }, + "<9,7>": { + "<9,7,1>": "ACT_ESC_HRS", + "<9,7,2>": "8", + "<9,7,3>": "R", + "<9,7,4>": "C", + "<9,7,5>": "MD2,", + "<9,7,6>": "Esc Hours" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Reactors", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACTOR_ARM_TYPE.json b/LSL2/POPUP/REACTOR_ARM_TYPE.json new file mode 100644 index 0000000..5824bf7 --- /dev/null +++ b/LSL2/POPUP/REACTOR_ARM_TYPE.json @@ -0,0 +1,77 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "ASM", + "<8,2>": "Trophy", + "<8,3>": "AWM Robot" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Arm Type" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Reactor Arm Type", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACTOR_GASES.json b/LSL2/POPUP/REACTOR_GASES.json new file mode 100644 index 0000000..7660453 --- /dev/null +++ b/LSL2/POPUP/REACTOR_GASES.json @@ -0,0 +1,134 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "SiH4", + "<8,1,2>": "Silane" + }, + "<8,2>": { + "<8,2,1>": "SiH4_2%", + "<8,2,2>": "Silane 2%" + }, + "<8,3>": { + "<8,3,1>": "SiH2Cl2", + "<8,3,2>": "Dichlorosilane" + }, + "<8,4>": { + "<8,4,1>": "SiHCl3", + "<8,4,2>": "Trichlorosilane" + }, + "<8,5>": { + "<8,5,1>": "AsH3_100", + "<8,5,2>": "Arsine 100 ppm" + }, + "<8,6>": { + "<8,6,1>": "PH3_50", + "<8,6,2>": "Phosphine 50 ppm" + }, + "<8,7>": { + "<8,7,1>": "B2H6_100", + "<8,7,2>": "Diborane 100 ppm" + }, + "<8,8>": { + "<8,8,1>": "B2H6_1%", + "<8,8,2>": "Heavy Dope - Diborane 1%" + }, + "<8,9>": { + "<8,9,1>": "AsH3_1000", + "<8,9,2>": "Heavy Dope - Arsine 1000ppm (0.1%)" + }, + "<8,10>": { + "<8,10,1>": "GeH4_10%", + "<8,10,2>": "Heavy Dope - Germane 10%" + }, + "<8,11>": { + "<8,11,1>": "H2", + "<8,11,2>": "Hydrogen" + }, + "<8,12>": { + "<8,12,1>": "N2", + "<8,12,2>": "Nitrogen" + }, + "<8,13>": { + "<8,13,1>": "HCl", + "<8,13,2>": "Hydrogen Chloride" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "25", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Gas" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "30", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Description" + } + }, + "<10>": "L", + "<11>": "2", + "<12>": "Reactor Gases", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "12639424", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACTOR_INJECT_TYPE.json b/LSL2/POPUP/REACTOR_INJECT_TYPE.json new file mode 100644 index 0000000..daecf8c --- /dev/null +++ b/LSL2/POPUP/REACTOR_INJECT_TYPE.json @@ -0,0 +1,76 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "Blade", + "<8,2>": "MPI" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Injector Type" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Reactor Injector Type", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACTOR_LOG_QUERY.json b/LSL2/POPUP/REACTOR_LOG_QUERY.json new file mode 100644 index 0000000..8d41320 --- /dev/null +++ b/LSL2/POPUP/REACTOR_LOG_QUERY.json @@ -0,0 +1,121 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "3", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0", + "<6,1,15>": "0", + "<6,1,16>": "0" + } + }, + "<7>": "REACTOR_LOG", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "REACTOR", + "<9,1,2>": "6", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Reactor" + }, + "<9,2>": { + "<9,2,1>": "START_DATE", + "<9,2,2>": "11", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "D2/", + "<9,2,6>": "Start Date" + }, + "<9,3>": { + "<9,3,1>": "REACT_PROB_CAT_DESC_INITIAL", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Initial Problem" + }, + "<9,4>": { + "<9,4,1>": "REACT_SERV_DESC", + "<9,4,2>": "20", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Initial Service" + }, + "<9,5>": { + "<9,5,1>": "TECH_SIG_NAME", + "<9,5,2>": "15", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Tech Sig Name" + }, + "<9,6>": { + "<9,6,1>": "SEQ", + "<9,6,2>": "8", + "<9,6,3>": "R", + "<9,6,4>": "C", + "<9,6,5>": "MD0", + "<9,6,6>": "SEQ" + }, + "<9,7>": { + "<9,7,1>": "REACT_SERV_SN_TYPE", + "<9,7,2>": "12", + "<9,7,3>": "L", + "<9,7,4>": "C", + "<9,7,5>": "[CONV_CODE_DESC,REACT_ITEM_TYPE]", + "<9,7,6>": "React Serv SN Type" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Reactor Log", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACTOR_MODE.json b/LSL2/POPUP/REACTOR_MODE.json new file mode 100644 index 0000000..b8ad52e --- /dev/null +++ b/LSL2/POPUP/REACTOR_MODE.json @@ -0,0 +1,218 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "A", + "<8,1,2>": "Applications Engineering", + "<8,1,3>": "APPL" + }, + "<8,2>": { + "<8,2,1>": "E", + "<8,2,2>": "Engineering", + "<8,2,3>": "ENGI" + }, + "<8,3>": { + "<8,3,1>": "B", + "<8,3,2>": "Equipment Engineering", + "<8,3,3>": "REPORTBUILDER_32" + }, + "<8,4>": { + "<8,4,1>": "G", + "<8,4,2>": "Engineering (waiting for engineering)", + "<8,4,3>": "ENGI2" + }, + "<8,5>": { + "<8,5,1>": "H", + "<8,5,2>": "Characterization (Metrology)", + "<8,5,3>": "ENGI3" + }, + "<8,6>": { + "<8,6,1>": "M", + "<8,6,2>": "Maintenance (Unsched)", + "<8,6,3>": "MAIN_U" + }, + "<8,7>": { + "<8,7,1>": "J", + "<8,7,2>": "Maintenance (Sched)", + "<8,7,3>": "MAIN" + }, + "<8,8>": { + "<8,8,1>": "L", + "<8,8,2>": "Maintenance (waiting for parts)", + "<8,8,3>": "MAIN4" + }, + "<8,9>": { + "<8,9,1>": "K", + "<8,9,2>": "Maintenance (waiting for maintenance)", + "<8,9,3>": "MAIN3" + }, + "<8,10>": { + "<8,10,1>": "K1", + "<8,10,2>": "Maintenance (certification)", + "<8,10,3>": "MAIN6" + }, + "<8,11>": { + "<8,11,1>": "V", + "<8,11,2>": "GaN_No Shift", + "<8,11,3>": "UP_NOT_RUNNING_NG" + }, + "<8,12>": { + "<8,12,1>": "N", + "<8,12,2>": "Cylinder Change", + "<8,12,3>": "MAIN5" + }, + "<8,13>": { + "<8,13,1>": "P", + "<8,13,2>": "Production", + "<8,13,3>": "PROD" + }, + "<8,14>": { + "<8,14,1>": "U", + "<8,14,2>": "Production (incr sampling)", + "<8,14,3>": "PROD_VER" + }, + "<8,15>": { + "<8,15,1>": "Q", + "<8,15,2>": "Production (HOLD)", + "<8,15,3>": "PROD_H" + }, + "<8,16>": { + "<8,16,1>": "X", + "<8,16,2>": "Cleanup", + "<8,16,3>": "CLEAN" + }, + "<8,17>": { + "<8,17,1>": "R", + "<8,17,2>": "Prove In", + "<8,17,3>": "TEST_SCHED_NG" + }, + "<8,18>": { + "<8,18,1>": "R1", + "<8,18,2>": "Prove In-Unscheduled", + "<8,18,3>": "TEST_UNSCHEDULED_NG" + }, + "<8,19>": { + "<8,19,1>": "O", + "<8,19,2>": "GaN Setup", + "<8,19,3>": "UP1" + }, + "<8,20>": { + "<8,20,1>": "W", + "<8,20,2>": "Waiting for Operator", + "<8,20,3>": "WAIT" + }, + "<8,21>": { + "<8,21,1>": "F", + "<8,21,2>": "Facilities (Sched)", + "<8,21,3>": "FACI" + }, + "<8,22>": { + "<8,22,1>": "I", + "<8,22,2>": "Facilities (UnSched)", + "<8,22,3>": "WRENCH" + }, + "<8,23>": { + "<8,23,1>": "C", + "<8,23,2>": "Customer Hold", + "<8,23,3>": "CUST2" + }, + "<8,24>": { + "<8,24,1>": "D", + "<8,24,2>": "Down no Material", + "<8,24,3>": "UP_NOT_RUNNING_NG" + }, + "<8,25>": { + "<8,25,1>": "T", + "<8,25,2>": "GaN Idle", + "<8,25,3>": "SHUT" + }, + "<8,26>": { + "<8,26,1>": "S", + "<8,26,2>": "Shutdown", + "<8,26,3>": "SHUT" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "30", + "<9,2,3>": "L", + "<9,2,4>": "L", + "<9,2,5>": "", + "<9,2,6>": "Description" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "18", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Icon" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Reactor Modes", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACTOR_PM_QUERY.json b/LSL2/POPUP/REACTOR_PM_QUERY.json new file mode 100644 index 0000000..e0ce7af --- /dev/null +++ b/LSL2/POPUP/REACTOR_PM_QUERY.json @@ -0,0 +1,137 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "3", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0", + "<6,1,15>": "0", + "<6,1,16>": "0" + } + }, + "<7>": "REACTOR_PM", + "<8>": "BY REACTOR BY DUE_DT", + "<9>": { + "<9,1>": { + "<9,1,1>": "SEQ", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "PM Id" + }, + "<9,2>": { + "<9,2,1>": "REACTOR", + "<9,2,2>": "5", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "MD0", + "<9,2,6>": "React No" + }, + "<9,3>": { + "<9,3,1>": "REACT_TYPE", + "<9,3,2>": "6", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Type" + }, + "<9,4>": { + "<9,4,1>": "REACT_TYPE_DESC_OPS", + "<9,4,2>": "6", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "[REACT_TYPE_CONV,OPSREF]", + "<9,4,6>": "Type Ops" + }, + "<9,5>": { + "<9,5,1>": "TOOL_LOC_DESC", + "<9,5,2>": "12", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Location" + }, + "<9,6>": { + "<9,6,1>": "REACT_SERV_ID", + "<9,6,2>": "8", + "<9,6,3>": "C", + "<9,6,4>": "C", + "<9,6,5>": "MD0", + "<9,6,6>": "Serv ID" + }, + "<9,7>": { + "<9,7,1>": "SERV_DESC", + "<9,7,2>": "36", + "<9,7,3>": "L", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "Service Desc" + }, + "<9,8>": { + "<9,8,1>": "DUE_DT", + "<9,8,2>": "11", + "<9,8,3>": "C", + "<9,8,4>": "C", + "<9,8,5>": "D4/", + "<9,8,6>": "Due Dt" + }, + "<9,9>": { + "<9,9,1>": "COMP_DT", + "<9,9,2>": "11", + "<9,9,3>": "C", + "<9,9,4>": "C", + "<9,9,5>": "D4/", + "<9,9,6>": "Comp Dt" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Reactor PM Schedule", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACTOR_RECIPE_TYPE.json b/LSL2/POPUP/REACTOR_RECIPE_TYPE.json new file mode 100644 index 0000000..bd49e48 --- /dev/null +++ b/LSL2/POPUP/REACTOR_RECIPE_TYPE.json @@ -0,0 +1,69 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "SiGe", + "<8,2>": "Epsilon", + "<8,3>": "Epi-Pro 5000", + "<8,4>": "HTR" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "30", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Recipe Type" + } + }, + "<10>": "L", + "<11>": "2", + "<12>": "Reactor Recipe Types", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACTOR_SERVICES.json b/LSL2/POPUP/REACTOR_SERVICES.json new file mode 100644 index 0000000..18b8412 --- /dev/null +++ b/LSL2/POPUP/REACTOR_SERVICES.json @@ -0,0 +1,145 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "REACT_SERVS", + "<8>": "BY @ID", + "<9>": { + "<9,1>": { + "<9,1,1>": "SERV_ID", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "Serv ID" + }, + "<9,2>": { + "<9,2,1>": "DESCRIPTION", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Description" + }, + "<9,3>": { + "<9,3,1>": "PM_DAYS", + "<9,3,2>": "8", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "MD0", + "<9,3,6>": "PM_DAYS" + }, + "<9,4>": { + "<9,4,1>": "REACT_SERV_CAT_ID", + "<9,4,2>": "8", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "MD0", + "<9,4,6>": "Cat ID" + }, + "<9,5>": { + "<9,5,1>": "REACT_SERV_CAT_DESC", + "<9,5,2>": "20", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Reactor Service Category" + }, + "<9,6>": { + "<9,6,1>": "TC_CHANGE_SERVICE", + "<9,6,2>": "3", + "<9,6,3>": "C", + "<9,6,4>": "C", + "<9,6,5>": "B", + "<9,6,6>": "TC Svc" + }, + "<9,7>": { + "<9,7,1>": "REACT_SYSTEM", + "<9,7,2>": "10", + "<9,7,3>": "L", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "React System" + }, + "<9,8>": { + "<9,8,1>": "REACT_ITEM", + "<9,8,2>": "10", + "<9,8,3>": "L", + "<9,8,4>": "C", + "<9,8,5>": "", + "<9,8,6>": "React Item" + }, + "<9,9>": { + "<9,9,1>": "ACTION", + "<9,9,2>": "10", + "<9,9,3>": "L", + "<9,9,4>": "C", + "<9,9,5>": "", + "<9,9,6>": "Action" + }, + "<9,10>": { + "<9,10,1>": "SVC_DESC", + "<9,10,2>": "20", + "<9,10,3>": "L", + "<9,10,4>": "C", + "<9,10,5>": "", + "<9,10,6>": "Service Desc" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "Reactor Services", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACTOR_TEMP_TYPE.json b/LSL2/POPUP/REACTOR_TEMP_TYPE.json new file mode 100644 index 0000000..be414f9 --- /dev/null +++ b/LSL2/POPUP/REACTOR_TEMP_TYPE.json @@ -0,0 +1,90 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "S", + "<8,1,2>": "Slaved" + }, + "<8,2>": { + "<8,2,1>": "NS", + "<8,2,2>": "NonSlaved" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Desc" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Reactor Temp Control Type", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACTOR_TYPE.json b/LSL2/POPUP/REACTOR_TYPE.json new file mode 100644 index 0000000..e44bfc5 --- /dev/null +++ b/LSL2/POPUP/REACTOR_TYPE.json @@ -0,0 +1,126 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "ASM+", + "<8,1,2>": "Upgraded Epsilon", + "<8,1,3>": "A", + "<8,1,4>": "ASM+" + }, + "<8,2>": { + "<8,2,1>": "EPP", + "<8,2,2>": "EpiPro 5000", + "<8,2,3>": "P", + "<8,2,4>": "EPP" + }, + "<8,3>": { + "<8,3,1>": "ASM", + "<8,3,2>": "Epsilon", + "<8,3,3>": "E", + "<8,3,4>": "ASM" + }, + "<8,4>": { + "<8,4,1>": "HTR", + "<8,4,2>": "High Thruput", + "<8,4,3>": "H", + "<8,4,4>": "HTR" + }, + "<8,5>": { + "<8,5,1>": "GAN", + "<8,5,2>": "GaN", + "<8,5,3>": "G", + "<8,5,4>": "GAN" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Desc" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "10", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "PSN React Type" + }, + "<9,4>": { + "<9,4,1>": "4", + "<9,4,2>": "10", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Ops Reference" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Reactor Type", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACT_ASSIGNMENT.json b/LSL2/POPUP/REACT_ASSIGNMENT.json new file mode 100644 index 0000000..41c1200 --- /dev/null +++ b/LSL2/POPUP/REACT_ASSIGNMENT.json @@ -0,0 +1,98 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "C", + "<8,1,2>": "Non-Dedicated" + }, + "<8,2>": { + "<8,2,1>": "M", + "<8,2,2>": "Dedicated" + }, + "<8,3>": { + "<8,3,1>": "G", + "<8,3,2>": "GaN" + }, + "<8,4>": { + "<8,4,1>": "O", + "<8,4,2>": "Out of Service" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "10", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Description" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Reactor Assignment", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACT_COMP.json b/LSL2/POPUP/REACT_COMP.json new file mode 100644 index 0000000..480dbac --- /dev/null +++ b/LSL2/POPUP/REACT_COMP.json @@ -0,0 +1,97 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "REACT_COMP", + "<8>": "BY @ID", + "<9>": { + "<9,1>": { + "<9,1,1>": "COMP_NO", + "<9,1,2>": "8", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "Comp No" + }, + "<9,2>": { + "<9,2,1>": "CLASS", + "<9,2,2>": "10", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Class" + }, + "<9,3>": { + "<9,3,1>": "DESC", + "<9,3,2>": "25", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Desc" + }, + "<9,4>": { + "<9,4,1>": "PARENT", + "<9,4,2>": "14", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "MD0", + "<9,4,6>": "Parent" + } + }, + "<10>": "T", + "<11>": "3", + "<12>": "Reactor Components", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACT_COMP_CLASS.json b/LSL2/POPUP/REACT_COMP_CLASS.json new file mode 100644 index 0000000..3808821 --- /dev/null +++ b/LSL2/POPUP/REACT_COMP_CLASS.json @@ -0,0 +1,102 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Group", + "<8,1,2>": "Major Group" + }, + "<8,2>": { + "<8,2,1>": "System", + "<8,2,2>": "Distributed Components" + }, + "<8,3>": { + "<8,3,1>": "Assembly", + "<8,3,2>": "Assembly of Components" + }, + "<8,4>": { + "<8,4,1>": "Component", + "<8,4,2>": "Component" + }, + "<8,5>": { + "<8,5,1>": "Document", + "<8,5,2>": "Documentation" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Desc" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "React Comp Class", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACT_EPI_PRO_TW_LOAD.json b/LSL2/POPUP/REACT_EPI_PRO_TW_LOAD.json new file mode 100644 index 0000000..8fff06d --- /dev/null +++ b/LSL2/POPUP/REACT_EPI_PRO_TW_LOAD.json @@ -0,0 +1,120 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "1", + "<8,1,2>": "1", + "<8,1,3>": "TEST", + "<8,1,4>": "PROD", + "<8,1,5>": "148123.4.1" + }, + "<8,2>": { + "<8,2,1>": "7", + "<8,2,2>": "2", + "<8,2,3>": "TEST", + "<8,2,4>": "PROD", + "<8,2,5>": "148123.4.8" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Pocket" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "5", + "<9,2,3>": "C", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "Zone" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "10", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Char" + }, + "<9,4>": { + "<9,4,1>": "4", + "<9,4,2>": "10", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Wafer Char" + }, + "<9,5>": { + "<9,5,1>": "5", + "<9,5,2>": "15", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Wafer In" + } + }, + "<10>": "L", + "<11>": "2", + "<12>": "EpiPRO Reactor Test Wafer Load", + "<13>": "5", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACT_ESC_HISTORY.json b/LSL2/POPUP/REACT_ESC_HISTORY.json new file mode 100644 index 0000000..b9e14fe --- /dev/null +++ b/LSL2/POPUP/REACT_ESC_HISTORY.json @@ -0,0 +1,129 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "REACT_ESC", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "REACT_NO", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "React No" + }, + "<9,2>": { + "<9,2,1>": "START_DTM", + "<9,2,2>": "16", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "DT4/^S", + "<9,2,6>": "Start Dtm" + }, + "<9,3>": { + "<9,3,1>": "START_USER", + "<9,3,2>": "15", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Start User" + }, + "<9,4>": { + "<9,4,1>": "START_REASON", + "<9,4,2>": "30", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Start Reason" + }, + "<9,5>": { + "<9,5,1>": "STOP_DTM", + "<9,5,2>": "15", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "DT4/^S", + "<9,5,6>": "Stop Dtm" + }, + "<9,6>": { + "<9,6,1>": "STOP_USER", + "<9,6,2>": "20", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Stop User" + }, + "<9,7>": { + "<9,7,1>": "STOP_REASON", + "<9,7,2>": "30", + "<9,7,3>": "L", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "Stop Reason" + }, + "<9,8>": { + "<9,8,1>": "OUT_OF_PROD_HRS", + "<9,8,2>": "10", + "<9,8,3>": "R", + "<9,8,4>": "C", + "<9,8,5>": "MD2", + "<9,8,6>": "Out Of Prod Hrs" + } + }, + "<10>": "K", + "<11>": "1", + "<12>": "Reactor Escalation History", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACT_EVENT_QUERY.json b/LSL2/POPUP/REACT_EVENT_QUERY.json new file mode 100644 index 0000000..1fbef90 --- /dev/null +++ b/LSL2/POPUP/REACT_EVENT_QUERY.json @@ -0,0 +1,153 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "REACT_EVENT", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "REACT_NO", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0,", + "<9,1,6>": "React" + }, + "<9,2>": { + "<9,2,1>": "EVENT_DTM", + "<9,2,2>": "14", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "DT2/^S", + "<9,2,6>": "Event Dtm" + }, + "<9,3>": { + "<9,3,1>": "TYPE_DESC", + "<9,3,2>": "10", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Type Desc" + }, + "<9,4>": { + "<9,4,1>": "REACT_MODE", + "<9,4,2>": "12", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "[REACT_MODE_CONV]", + "<9,4,6>": "React Mode" + }, + "<9,5>": { + "<9,5,1>": "EVENT_USER", + "<9,5,2>": "10", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,5,6>": "Event User" + }, + "<9,6>": { + "<9,6,1>": "LAST_READ_WFRS_VAL", + "<9,6,2>": "6", + "<9,6,3>": "R", + "<9,6,4>": "C", + "<9,6,5>": "MD0,", + "<9,6,6>": "Wfr Cnt" + }, + "<9,7>": { + "<9,7,1>": "LAST_READ_WFRS_DTM", + "<9,7,2>": "14", + "<9,7,3>": "C", + "<9,7,4>": "C", + "<9,7,5>": "DT2/^S", + "<9,7,6>": "Wfrs Dtm" + }, + "<9,8>": { + "<9,8,1>": "REACT_ESC_HRS", + "<9,8,2>": "6", + "<9,8,3>": "L", + "<9,8,4>": "C", + "<9,8,5>": "MD2,", + "<9,8,6>": "Esc Hrs" + }, + "<9,9>": { + "<9,9,1>": "WO_NO", + "<9,9,2>": "6", + "<9,9,3>": "C", + "<9,9,4>": "C", + "<9,9,5>": "", + "<9,9,6>": "WO No" + }, + "<9,10>": { + "<9,10,1>": "TYPE_NOTE", + "<9,10,2>": "50", + "<9,10,3>": "L", + "<9,10,4>": "C", + "<9,10,5>": "", + "<9,10,6>": "Type Note" + }, + "<9,11>": { + "<9,11,1>": "AUTO_LOG", + "<9,11,2>": "3", + "<9,11,3>": "L", + "<9,11,4>": "C", + "<9,11,5>": "B", + "<9,11,6>": " Log" + } + }, + "<10>": "K", + "<11>": "2", + "<12>": "Reactor Event Query", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACT_EVENT_TYPE.json b/LSL2/POPUP/REACT_EVENT_TYPE.json new file mode 100644 index 0000000..1c80736 --- /dev/null +++ b/LSL2/POPUP/REACT_EVENT_TYPE.json @@ -0,0 +1,131 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "PD", + "<8,1,2>": "Pass Down" + }, + "<8,2>": { + "<8,2,1>": "GEN", + "<8,2,2>": "General" + }, + "<8,3>": { + "<8,3,1>": "ROOT", + "<8,3,2>": "Root Cause Tracking" + }, + "<8,4>": { + "<8,4,1>": "MTC", + "<8,4,2>": "Maintenance" + }, + "<8,5>": { + "<8,5,1>": "MODE", + "<8,5,2>": "Mode Change" + }, + "<8,6>": { + "<8,6,1>": "ESTR", + "<8,6,2>": "Escalation Start" + }, + "<8,7>": { + "<8,7,1>": "ESTP", + "<8,7,2>": "Escalation Stop" + }, + "<8,8>": { + "<8,8,1>": "LLD", + "<8,8,2>": "Load Lock Disabled" + }, + "<8,9>": { + "<8,9,1>": "LLE", + "<8,9,2>": "Load Lock Enabled" + }, + "<8,10>": { + "<8,10,1>": "COMB", + "<8,10,2>": "Combined" + }, + "<8,11>": "" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": " Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Description" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Reactor Event Types", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACT_GRAPHITE_HISTORY.json b/LSL2/POPUP/REACT_GRAPHITE_HISTORY.json new file mode 100644 index 0000000..9d60020 --- /dev/null +++ b/LSL2/POPUP/REACT_GRAPHITE_HISTORY.json @@ -0,0 +1,153 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "REACT_GRAPHITE", + "<8>": "WITH REACT_NO = 60 BY GR_TYPE BY-DSND INST_DTM", + "<9>": { + "<9,1>": { + "<9,1,1>": "REACT_NO", + "<9,1,2>": "8", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "React" + }, + "<9,2>": { + "<9,2,1>": "GR_TYPE", + "<9,2,2>": "6", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Type" + }, + "<9,3>": { + "<9,3,1>": "GR_NO", + "<9,3,2>": "8", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Gr No" + }, + "<9,4>": { + "<9,4,1>": "INST_DTM", + "<9,4,2>": "21", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "DT4/^HS", + "<9,4,6>": "Inst DTM" + }, + "<9,5>": { + "<9,5,1>": "REM_DTM", + "<9,5,2>": "21", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "DT4/^HS", + "<9,5,6>": "Rem DTM" + }, + "<9,6>": { + "<9,6,1>": "INST_REACT_HRS", + "<9,6,2>": "8", + "<9,6,3>": "R", + "<9,6,4>": "C", + "<9,6,5>": "MD0,", + "<9,6,6>": "Inst Hrs" + }, + "<9,7>": { + "<9,7,1>": "REM_REACT_HRS", + "<9,7,2>": "8", + "<9,7,3>": "R", + "<9,7,4>": "C", + "<9,7,5>": "MD0,", + "<9,7,6>": "Rem Hrs" + }, + "<9,8>": { + "<9,8,1>": "TOT_REACT_HRS", + "<9,8,2>": "8", + "<9,8,3>": "R", + "<9,8,4>": "C", + "<9,8,5>": "MD0,", + "<9,8,6>": "Tot Hrs" + }, + "<9,9>": { + "<9,9,1>": "INST_REACT_WFR_CNT", + "<9,9,2>": "8", + "<9,9,3>": "R", + "<9,9,4>": "C", + "<9,9,5>": "MD0,", + "<9,9,6>": "Ins Wfr Cnt" + }, + "<9,10>": { + "<9,10,1>": "REM_REACT_WFR_CNT", + "<9,10,2>": "8", + "<9,10,3>": "R", + "<9,10,4>": "C", + "<9,10,5>": "MD0,", + "<9,10,6>": "Rem Wfr Cnt" + }, + "<9,11>": { + "<9,11,1>": "TOT_REACT_WFR_CNT", + "<9,11,2>": "8", + "<9,11,3>": "R", + "<9,11,4>": "C", + "<9,11,5>": "MD0,", + "<9,11,6>": "Tot Wfr Cnt" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Reactor Graphite History", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACT_INJ_SETTINGS.json b/LSL2/POPUP/REACT_INJ_SETTINGS.json new file mode 100644 index 0000000..f370dc3 --- /dev/null +++ b/LSL2/POPUP/REACT_INJ_SETTINGS.json @@ -0,0 +1,104 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "REACTOR_LOG", + "<8>": { + "<8,1>": { + "<8,1,1>": { + "<8,1,1,1>": "WITH INJ_SET_REACT_NO NE \"\" BY REACTOR BY-DSND INJ_SET_DTM ", + "<8,1,1,2>": "" + } + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "REACTOR", + "<9,1,2>": "4", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "Reactor" + }, + "<9,2>": { + "<9,2,1>": "INJ_TYPE_DESC", + "<9,2,2>": "8", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "[CONV_CODE_DESC,REACT_INJ_TYPE]", + "<9,2,6>": "Inj Type Desc" + }, + "<9,3>": { + "<9,3,1>": "INJ_SET_DTM", + "<9,3,2>": "18", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "DT/^S", + "<9,3,6>": "Inj Set Dtm" + }, + "<9,4>": { + "<9,4,1>": "INJ_SET_DISP", + "<9,4,2>": "26", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Inj Set Disp" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "Reactor Injector Settings", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "15400411", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACT_INJ_TYPE.json b/LSL2/POPUP/REACT_INJ_TYPE.json new file mode 100644 index 0000000..754e2c7 --- /dev/null +++ b/LSL2/POPUP/REACT_INJ_TYPE.json @@ -0,0 +1,94 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "B", + "<8,1,2>": "Blade" + }, + "<8,2>": { + "<8,2,1>": "M", + "<8,2,2>": "Multi-Port" + }, + "<8,3>": { + "<8,3,1>": "H", + "<8,3,2>": "High Thruput" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "16", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Desc" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Reactor Injector Type", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACT_ITEM.json b/LSL2/POPUP/REACT_ITEM.json new file mode 100644 index 0000000..5a51199 --- /dev/null +++ b/LSL2/POPUP/REACT_ITEM.json @@ -0,0 +1,153 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "REACT_ITEM", + "<8>": "BY @ID", + "<9>": { + "<9,1>": { + "<9,1,1>": "RI_NO", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "RI No" + }, + "<9,2>": { + "<9,2,1>": "RI_TYPE", + "<9,2,2>": "6", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "RI Type" + }, + "<9,3>": { + "<9,3,1>": "SERIAL", + "<9,3,2>": "16", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Serial" + }, + "<9,4>": { + "<9,4,1>": "DESC", + "<9,4,2>": "20", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Desc" + }, + "<9,5>": { + "<9,5,1>": "MFR_CD", + "<9,5,2>": "10", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Mfr Cd" + }, + "<9,6>": { + "<9,6,1>": "MFR_PART_NO", + "<9,6,2>": "10", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Mfr Part No" + }, + "<9,7>": { + "<9,7,1>": "MFR_PART_NO_REV", + "<9,7,2>": "4", + "<9,7,3>": "C", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "Rev" + }, + "<9,8>": { + "<9,8,1>": "PART_TYPE", + "<9,8,2>": "6", + "<9,8,3>": "C", + "<9,8,4>": "C", + "<9,8,5>": "", + "<9,8,6>": "Part Type" + }, + "<9,9>": { + "<9,9,1>": "REACT_NO", + "<9,9,2>": "6", + "<9,9,3>": "C", + "<9,9,4>": "C", + "<9,9,5>": "MD0", + "<9,9,6>": "React No" + }, + "<9,10>": { + "<9,10,1>": "SERIAL_NO", + "<9,10,2>": "16", + "<9,10,3>": "L", + "<9,10,4>": "C", + "<9,10,5>": "", + "<9,10,6>": "Serial No" + }, + "<9,11>": { + "<9,11,1>": "RETIRE_DT", + "<9,11,2>": "11", + "<9,11,3>": "R", + "<9,11,4>": "C", + "<9,11,5>": "D4/", + "<9,11,6>": "Retire Dt" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "React Item", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "1", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACT_ITEMS.json b/LSL2/POPUP/REACT_ITEMS.json new file mode 100644 index 0000000..82b1496 --- /dev/null +++ b/LSL2/POPUP/REACT_ITEMS.json @@ -0,0 +1,134 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "Actuator", + "<8,2>": "Arm", + "<8,3>": "Baratron", + "<8,4>": "Bell Jar", + "<8,5>": "Bellows", + "<8,6>": "Blower", + "<8,7>": "Board", + "<8,8>": "Bubbler", + "<8,9>": "Cable", + "<8,10>": "Canister", + "<8,11>": "Checklist", + "<8,12>": "Circuit Breaker", + "<8,13>": "Compumotor", + "<8,14>": "Controller", + "<8,15>": "Cylinder", + "<8,16>": "Door", + "<8,17>": "Elevator", + "<8,18>": "Filter", + "<8,19>": "Foxboro", + "<8,20>": "Fuse", + "<8,21>": "Gauge", + "<8,22>": "Gearbox", + "<8,23>": "Generator", + "<8,24>": "Gold", + "<8,25>": "Graphite", + "<8,26>": "Injector", + "<8,27>": "Lamp", + "<8,28>": "MFC", + "<8,29>": "Monitor", + "<8,30>": "OCAP", + "<8,31>": "Panel", + "<8,32>": "Pedestal", + "<8,33>": "Power Supply", + "<8,34>": "Pneumatic", + "<8,35>": "Pressure", + "<8,36>": "Pump", + "<8,37>": "Quartz", + "<8,38>": "Regulator", + "<8,39>": "Ring", + "<8,40>": "Sensor", + "<8,41>": "Shaft", + "<8,42>": "Skirt", + "<8,43>": "Spider", + "<8,44>": "Susceptor", + "<8,45>": "Switch", + "<8,46>": "System", + "<8,47>": "Thermocouple", + "<8,48>": "Transfer", + "<8,49>": "Transformer", + "<8,50>": "Tube", + "<8,51>": "Valve", + "<8,52>": "Wand" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "12", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Item" + }, + "<9,2>": { + "<9,2,1>": "", + "<9,2,2>": "", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Reactor Items", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACT_ITEM_DISP.json b/LSL2/POPUP/REACT_ITEM_DISP.json new file mode 100644 index 0000000..06708fd --- /dev/null +++ b/LSL2/POPUP/REACT_ITEM_DISP.json @@ -0,0 +1,98 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "RET", + "<8,1,2>": "Retire" + }, + "<8,2>": { + "<8,2,1>": "RSTK", + "<8,2,2>": "Restock" + }, + "<8,3>": { + "<8,3,1>": "QTZ", + "<8,3,2>": "Quartz Shop" + }, + "<8,4>": { + "<8,4,1>": "RBLD", + "<8,4,2>": "Rebuild" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "8", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "19", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Description" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Reactor Item Dispositions", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACT_ITEM_PART_NO.json b/LSL2/POPUP/REACT_ITEM_PART_NO.json new file mode 100644 index 0000000..9c56d93 --- /dev/null +++ b/LSL2/POPUP/REACT_ITEM_PART_NO.json @@ -0,0 +1,73 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": "test", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "30", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Mfr Part No" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "React Item Mfr Part No", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACT_ITEM_SERIAL_NO.json b/LSL2/POPUP/REACT_ITEM_SERIAL_NO.json new file mode 100644 index 0000000..27e7bec --- /dev/null +++ b/LSL2/POPUP/REACT_ITEM_SERIAL_NO.json @@ -0,0 +1,73 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": "test", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Serial No" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "React Item Serial No", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACT_ITEM_STATUS.json b/LSL2/POPUP/REACT_ITEM_STATUS.json new file mode 100644 index 0000000..98c8f7f --- /dev/null +++ b/LSL2/POPUP/REACT_ITEM_STATUS.json @@ -0,0 +1,106 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "R", + "<8,1,2>": "Retired" + }, + "<8,2>": { + "<8,2,1>": "U", + "<8,2,2>": "Used" + }, + "<8,3>": { + "<8,3,1>": "N", + "<8,3,2>": "New" + }, + "<8,4>": { + "<8,4,1>": "I", + "<8,4,2>": "Installed" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "6", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "14", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Status" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "React Item Status", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACT_ITEM_TYPE.json b/LSL2/POPUP/REACT_ITEM_TYPE.json new file mode 100644 index 0000000..27e99b4 --- /dev/null +++ b/LSL2/POPUP/REACT_ITEM_TYPE.json @@ -0,0 +1,134 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "A", + "<8,1,2>": "Arm" + }, + "<8,2>": { + "<8,2,1>": "G", + "<8,2,2>": "Gearbox" + }, + "<8,3>": { + "<8,3,1>": "I", + "<8,3,2>": "Ionizer" + }, + "<8,4>": { + "<8,4,1>": "R", + "<8,4,2>": "Ring" + }, + "<8,5>": { + "<8,5,1>": "RU", + "<8,5,2>": "Ring, Upper" + }, + "<8,6>": { + "<8,6,1>": "RL", + "<8,6,2>": "Ring, Lower" + }, + "<8,7>": { + "<8,7,1>": "S", + "<8,7,2>": "Susceptor" + }, + "<8,8>": { + "<8,8,1>": "SAT", + "<8,8,2>": "Satellite" + }, + "<8,9>": { + "<8,9,1>": "T", + "<8,9,2>": "Tube" + }, + "<8,10>": { + "<8,10,1>": "W", + "<8,10,2>": "Wand" + }, + "<8,11>": { + "<8,11,1>": "MFC", + "<8,11,2>": "MFC" + }, + "<8,12>": { + "<8,12,1>": "RE", + "<8,12,2>": "Right Elevator" + }, + "<8,13>": { + "<8,13,1>": "LE", + "<8,13,2>": "Left Elevator" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "6", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "12", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Description" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Reactor Item Type", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACT_LL.json b/LSL2/POPUP/REACT_LL.json new file mode 100644 index 0000000..6d7c5cf --- /dev/null +++ b/LSL2/POPUP/REACT_LL.json @@ -0,0 +1,129 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "REACT_LL", + "<8>": "BY @ID", + "<9>": { + "<9,1>": { + "<9,1,1>": "REACT_NO", + "<9,1,2>": "6", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "React No" + }, + "<9,2>": { + "<9,2,1>": "START_DTM", + "<9,2,2>": "16", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "DT4/^S", + "<9,2,6>": "Start Dtm" + }, + "<9,3>": { + "<9,3,1>": "START_USER", + "<9,3,2>": "16", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Start User" + }, + "<9,4>": { + "<9,4,1>": "START_NOTE", + "<9,4,2>": "40", + "<9,4,3>": "", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Start Note" + }, + "<9,5>": { + "<9,5,1>": "DISABLED", + "<9,5,2>": "8", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Disabled" + }, + "<9,6>": { + "<9,6,1>": "STOP_DTM", + "<9,6,2>": "16", + "<9,6,3>": "C", + "<9,6,4>": "C", + "<9,6,5>": "DT", + "<9,6,6>": "Stop Dtm" + }, + "<9,7>": { + "<9,7,1>": "STOP_USER", + "<9,7,2>": "16", + "<9,7,3>": "L", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "Stop User" + }, + "<9,8>": { + "<9,8,1>": "STOP_NOTE", + "<9,8,2>": "40", + "<9,8,3>": "", + "<9,8,4>": "C", + "<9,8,5>": "", + "<9,8,6>": "Stop Note" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "Reactor Disabled Load Lock", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACT_LOCATIONS.json b/LSL2/POPUP/REACT_LOCATIONS.json new file mode 100644 index 0000000..ff5a639 --- /dev/null +++ b/LSL2/POPUP/REACT_LOCATIONS.json @@ -0,0 +1,82 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "Back-Evens", + "<8,2>": "Back_Odds", + "<8,3>": "EpiPro Room", + "<8,4>": "Front-Evens", + "<8,5>": "Front-Evens-HTR", + "<8,6>": "Front-Odds", + "<8,7>": "Front-Odds-HTR", + "<8,8>": "Tunnel" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "14", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Locatiion" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Reactor Locations", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACT_MFC_FUNC.json b/LSL2/POPUP/REACT_MFC_FUNC.json new file mode 100644 index 0000000..b52e4c4 --- /dev/null +++ b/LSL2/POPUP/REACT_MFC_FUNC.json @@ -0,0 +1,142 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "P_SOURCE", + "<8,1,2>": "P Dopant Source" + }, + "<8,2>": { + "<8,2,1>": "N_SOURCE", + "<8,2,2>": "N Dopant Source" + }, + "<8,3>": { + "<8,3,1>": "P_DIL", + "<8,3,2>": "P Dopant Dilution" + }, + "<8,4>": { + "<8,4,1>": "N_DIL", + "<8,4,2>": "N Dopant Dilution" + }, + "<8,5>": { + "<8,5,1>": "P_INJECT", + "<8,5,2>": "P Dopant Injection" + }, + "<8,6>": { + "<8,6,1>": "N_INJECT", + "<8,6,2>": "N Dopant Injection" + }, + "<8,7>": { + "<8,7,1>": "HCL_LOW", + "<8,7,2>": "Hydrogen Chloride Low Flow" + }, + "<8,8>": { + "<8,8,1>": "HCL_HI", + "<8,8,2>": "Hydrogen Chloride High Flow" + }, + "<8,9>": { + "<8,9,1>": "MAIN", + "<8,9,2>": "Main Purge Gas" + }, + "<8,10>": { + "<8,10,1>": "HEAVY", + "<8,10,2>": " Heavy Dopant" + }, + "<8,11>": { + "<8,11,1>": "GERMANE", + "<8,11,2>": " Germane Dopant" + }, + "<8,12>": { + "<8,12,1>": "DCS", + "<8,12,2>": "DiChloroSilane" + }, + "<8,13>": { + "<8,13,1>": "SHAFT", + "<8,13,2>": "Shaft Purge" + }, + "<8,14>": { + "<8,14,1>": "SILANE", + "<8,14,2>": "Silane" + }, + "<8,15>": { + "<8,15,1>": "VAPOR_CONT", + "<8,15,2>": "Vapor Concentration Control" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "15", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "1", + "<9,2,2>": "30", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Function Description" + } + }, + "<10>": "L", + "<11>": "2", + "<12>": "Reactor MFC Functions", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "12639424", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACT_MODE_HISTORY.json b/LSL2/POPUP/REACT_MODE_HISTORY.json new file mode 100644 index 0000000..eedef9e --- /dev/null +++ b/LSL2/POPUP/REACT_MODE_HISTORY.json @@ -0,0 +1,153 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "REACT_MODE", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "REACT_NO", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0,", + "<9,1,6>": "React No" + }, + "<9,2>": { + "<9,2,1>": "MODE", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "[REACT_MODE_CONV]", + "<9,2,6>": "Mode" + }, + "<9,3>": { + "<9,3,1>": "START_DTM", + "<9,3,2>": "16", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "DT4/^S", + "<9,3,6>": "Start Dtm" + }, + "<9,4>": { + "<9,4,1>": "START_USER", + "<9,4,2>": "13", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Start User" + }, + "<9,5>": { + "<9,5,1>": "START_RL_ID", + "<9,5,2>": "8", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "React Log ID" + }, + "<9,6>": { + "<9,6,1>": "START_RU_ID", + "<9,6,2>": "8", + "<9,6,3>": "C", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "React Util ID" + }, + "<9,7>": { + "<9,7,1>": "STOP_DTM", + "<9,7,2>": "16", + "<9,7,3>": "C", + "<9,7,4>": "C", + "<9,7,5>": "DT4/^S", + "<9,7,6>": "Stop Dtm" + }, + "<9,8>": { + "<9,8,1>": "STOP_USER", + "<9,8,2>": "13", + "<9,8,3>": "L", + "<9,8,4>": "C", + "<9,8,5>": "", + "<9,8,6>": "Stop User" + }, + "<9,9>": { + "<9,9,1>": "STOP_RL_ID", + "<9,9,2>": "8", + "<9,9,3>": "C", + "<9,9,4>": "C", + "<9,9,5>": "", + "<9,9,6>": "React Log ID" + }, + "<9,10>": { + "<9,10,1>": "STOP_RU_ID", + "<9,10,2>": "8", + "<9,10,3>": "C", + "<9,10,4>": "C", + "<9,10,5>": "", + "<9,10,6>": "React Util ID" + }, + "<9,11>": { + "<9,11,1>": "", + "<9,11,2>": "", + "<9,11,3>": "", + "<9,11,4>": "", + "<9,11,5>": "", + "<9,11,6>": "" + } + }, + "<10>": "K", + "<11>": "1", + "<12>": "React Mode History", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACT_PROB_CAT.json b/LSL2/POPUP/REACT_PROB_CAT.json new file mode 100644 index 0000000..fc067ee --- /dev/null +++ b/LSL2/POPUP/REACT_PROB_CAT.json @@ -0,0 +1,81 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "REACT_PROB_CAT", + "<8>": "BY PROB_CAT_CODE", + "<9>": { + "<9,1>": { + "<9,1,1>": "SEQ", + "<9,1,2>": "10", + "<9,1,3>": "R", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "REACTOR_PROBLEM_CATEGORY", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Reactor Problem Category" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "Reactor Problem Codes", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACT_READS.json b/LSL2/POPUP/REACT_READS.json new file mode 100644 index 0000000..ea022d1 --- /dev/null +++ b/LSL2/POPUP/REACT_READS.json @@ -0,0 +1,105 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "REACT_READS", + "<8>": "0", + "<9>": { + "<9,1>": { + "<9,1,1>": "REACT_NO", + "<9,1,2>": "8", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0,", + "<9,1,6>": "React No" + }, + "<9,2>": { + "<9,2,1>": "READ_DTM", + "<9,2,2>": "21", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "DT4/^HS", + "<9,2,6>": "Read Dtm" + }, + "<9,3>": { + "<9,3,1>": "READ_BY", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Read By" + }, + "<9,4>": { + "<9,4,1>": "HOURS", + "<9,4,2>": "10", + "<9,4,3>": "R", + "<9,4,4>": "C", + "<9,4,5>": "MD0,", + "<9,4,6>": "Hours" + }, + "<9,5>": { + "<9,5,1>": "WAFER_CNT", + "<9,5,2>": "10", + "<9,5,3>": "R", + "<9,5,4>": "C", + "<9,5,5>": "MD0,", + "<9,5,6>": "Wafer Cnt" + } + }, + "<10>": "C", + "<11>": "2", + "<12>": "Reactor Reads", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACT_RUN.json b/LSL2/POPUP/REACT_RUN.json new file mode 100644 index 0000000..b4d7d9d --- /dev/null +++ b/LSL2/POPUP/REACT_RUN.json @@ -0,0 +1,145 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "REACT_RUN", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "RDS_NO", + "<9,1,2>": "14", + "<9,1,3>": "R", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "Rds No" + }, + "<9,2>": { + "<9,2,1>": "WO_NO", + "<9,2,2>": "14", + "<9,2,3>": "R", + "<9,2,4>": "C", + "<9,2,5>": "MD0", + "<9,2,6>": "Wo No" + }, + "<9,3>": { + "<9,3,1>": "CASS_NO", + "<9,3,2>": "8", + "<9,3,3>": "R", + "<9,3,4>": "C", + "<9,3,5>": "MD0,", + "<9,3,6>": "Cass No" + }, + "<9,4>": { + "<9,4,1>": "WO_STEP", + "<9,4,2>": "5", + "<9,4,3>": "R", + "<9,4,4>": "C", + "<9,4,5>": "MD0,", + "<9,4,6>": "Wo Step" + }, + "<9,5>": { + "<9,5,1>": "LOT_NO", + "<9,5,2>": "12", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Lot No" + }, + "<9,6>": { + "<9,6,1>": "RUN_STATUS_DESC", + "<9,6,2>": "20", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "[RUN_STATUS_CONV]", + "<9,6,6>": "Run Status Desc" + }, + "<9,7>": { + "<9,7,1>": "SCHED_DT", + "<9,7,2>": "11", + "<9,7,3>": "R", + "<9,7,4>": "C", + "<9,7,5>": "D", + "<9,7,6>": "Sched Dt" + }, + "<9,8>": { + "<9,8,1>": "LOAD_SIG_DTM", + "<9,8,2>": "21", + "<9,8,3>": "R", + "<9,8,4>": "C", + "<9,8,5>": "DT/4^HS", + "<9,8,6>": "Load Sig Dtm" + }, + "<9,9>": { + "<9,9,1>": "UNLOAD_SIG_DTM", + "<9,9,2>": "21", + "<9,9,3>": "R", + "<9,9,4>": "C", + "<9,9,5>": "DT/4^HS", + "<9,9,6>": "Unload Sig Dtm" + }, + "<9,10>": { + "<9,10,1>": "FINAL_SIG_DTM", + "<9,10,2>": "20", + "<9,10,3>": "R", + "<9,10,4>": "C", + "<9,10,5>": "DT/4^HS", + "<9,10,6>": "Final Sig Dtm" + } + }, + "<10>": "K", + "<11>": "1", + "<12>": "Reactor Run (RDS)", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACT_SERV_CAT.json b/LSL2/POPUP/REACT_SERV_CAT.json new file mode 100644 index 0000000..36708fe --- /dev/null +++ b/LSL2/POPUP/REACT_SERV_CAT.json @@ -0,0 +1,81 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "REACT_SERV_CAT", + "<8>": "BY REACTOR_SERVICE_CATEGORY", + "<9>": { + "<9,1>": { + "<9,1,1>": "SEQ", + "<9,1,2>": "8", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "Cat ID" + }, + "<9,2>": { + "<9,2,1>": "REACTOR_SERVICE_CATEGORY", + "<9,2,2>": "30", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Service Category" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "Reactor Service Category", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACT_SYSTEM.json b/LSL2/POPUP/REACT_SYSTEM.json new file mode 100644 index 0000000..2c43af6 --- /dev/null +++ b/LSL2/POPUP/REACT_SYSTEM.json @@ -0,0 +1,186 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Cool", + "<8,1,2>": "Cooling Blower" + }, + "<8,2>": { + "<8,2,1>": "Elevator", + "<8,2,2>": "Elevator" + }, + "<8,3>": { + "<8,3,1>": "Foxboro", + "<8,3,2>": "Foxboro Controller" + }, + "<8,4>": { + "<8,4,1>": "Gas", + "<8,4,2>": "Gas Panel" + }, + "<8,5>": { + "<8,5,1>": "PPanel", + "<8,5,2>": "Power Panel" + }, + "<8,6>": { + "<8,6,1>": "Rotation", + "<8,6,2>": "Susceptor Rotation" + }, + "<8,7>": { + "<8,7,1>": "SPurge", + "<8,7,2>": "Shaft Purge" + }, + "<8,8>": { + "<8,8,1>": "Transfer", + "<8,8,2>": "Wafer Transfer" + }, + "<8,9>": { + "<8,9,1>": "Tube", + "<8,9,2>": "Tube" + }, + "<8,10>": { + "<8,10,1>": "Vent", + "<8,10,2>": "Vent" + }, + "<8,11>": { + "<8,11,1>": "Z-Motion", + "<8,11,2>": "Z-Motion " + }, + "<8,12>": { + "<8,12,1>": "N2", + "<8,12,2>": "Nitrogen" + }, + "<8,13>": { + "<8,13,1>": "H2", + "<8,13,2>": "Hydrogen" + }, + "<8,14>": { + "<8,14,1>": "HCl", + "<8,14,2>": "Hydrogen Chloride" + }, + "<8,15>": { + "<8,15,1>": "DCS", + "<8,15,2>": "Dichlorosilane" + }, + "<8,16>": { + "<8,16,1>": "TCS", + "<8,16,2>": "Trichlorosilane" + }, + "<8,17>": { + "<8,17,1>": "P Type", + "<8,17,2>": "P Type Dopant" + }, + "<8,18>": { + "<8,18,1>": "N Type", + "<8,18,2>": "N Type Dopant" + }, + "<8,19>": { + "<8,19,1>": "RP", + "<8,19,2>": "Reduced Pressure" + }, + "<8,20>": { + "<8,20,1>": "Power", + "<8,20,2>": "Power Supply" + }, + "<8,21>": { + "<8,21,1>": "Water", + "<8,21,2>": "Water Supply" + }, + "<8,22>": { + "<8,22,1>": "Spares", + "<8,22,2>": "Storeroom" + }, + "<8,23>": { + "<8,23,1>": "General", + "<8,23,2>": "General " + }, + "<8,24>": { + "<8,24,1>": "Doc", + "<8,24,2>": "Documentation" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "L", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "L", + "<9,2,5>": "", + "<9,2,6>": "Description" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Reactor Systems", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACT_TUBE_BOARD.json b/LSL2/POPUP/REACT_TUBE_BOARD.json new file mode 100644 index 0000000..e1d332f --- /dev/null +++ b/LSL2/POPUP/REACT_TUBE_BOARD.json @@ -0,0 +1,111 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "REACT_TUBE", + "<8>": "BY REACT_NO", + "<9>": { + "<9,1>": { + "<9,1,1>": "REACT_NO", + "<9,1,2>": "8", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "React No" + }, + "<9,2>": { + "<9,2,1>": "CURR_INST_DTM", + "<9,2,2>": "21", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "DT4/^HS", + "<9,2,6>": "Install Dtm" + }, + "<9,3>": { + "<9,3,1>": "CURR_TUBE_ID", + "<9,3,2>": "20", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Curr Tube ID" + }, + "<9,4>": { + "<9,4,1>": "CURR_REACT_LOG_ID", + "<9,4,2>": "10", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Curr React Log Id" + }, + "<9,5>": { + "<9,5,1>": "CURR_SVC_HRS", + "<9,5,2>": "14", + "<9,5,3>": "R", + "<9,5,4>": "C", + "<9,5,5>": "MD0,", + "<9,5,6>": "Svc Hrs" + }, + "<9,6>": { + "<9,6,1>": "CURR_SVC_WFR_CNT", + "<9,6,2>": "14", + "<9,6,3>": "R", + "<9,6,4>": "C", + "<9,6,5>": "MD0,", + "<9,6,6>": "Curr Svc Wfr Cnt" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Reactor Tube Log", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/REACT_VENDOR.json b/LSL2/POPUP/REACT_VENDOR.json new file mode 100644 index 0000000..3fc6039 --- /dev/null +++ b/LSL2/POPUP/REACT_VENDOR.json @@ -0,0 +1,130 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "ASM", + "<8,1,2>": "ASM International" + }, + "<8,2>": { + "<8,2,1>": "CE", + "<8,2,2>": "CSD Epitaxy" + }, + "<8,3>": { + "<8,3,1>": "COORSTEK", + "<8,3,2>": "CoorsTek" + }, + "<8,4>": { + "<8,4,1>": "COVALENT", + "<8,4,2>": "Covalent Materials USA" + }, + "<8,5>": { + "<8,5,1>": "GMSI", + "<8,5,2>": "Graphite Machining Services Inc" + }, + "<8,6>": { + "<8,6,1>": "NRD", + "<8,6,2>": "Nuclecel" + }, + "<8,7>": { + "<8,7,1>": "SGL", + "<8,7,2>": "SGL Group" + }, + "<8,8>": { + "<8,8,1>": "TOYO", + "<8,8,2>": "Toyo Tanso USA" + }, + "<8,9>": { + "<8,9,1>": "WACOM", + "<8,9,2>": "WaCom" + }, + "<8,10>": { + "<8,10,1>": "XYCARB", + "<8,10,2>": "Xycarb Ceramic" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "25", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Description" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Reactor Part Vendors", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/RECIPE_LOOKUP_OPTS.json b/LSL2/POPUP/RECIPE_LOOKUP_OPTS.json new file mode 100644 index 0000000..4d7a305 --- /dev/null +++ b/LSL2/POPUP/RECIPE_LOOKUP_OPTS.json @@ -0,0 +1,69 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "Goto Recipe Window...", + "<8,2>": "View/Choose Via Popup..." + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "17", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Option" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Recipe Lookup Options", + "<13>": "", + "<14>": "P", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/RESP_DEPARTMENT.json b/LSL2/POPUP/RESP_DEPARTMENT.json new file mode 100644 index 0000000..35a9980 --- /dev/null +++ b/LSL2/POPUP/RESP_DEPARTMENT.json @@ -0,0 +1,86 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "Customer", + "<8,2>": "Engineering", + "<8,3>": "Facilities", + "<8,4>": "Maintenance", + "<8,5>": "Production", + "<8,6>": "Shipping", + "<8,7>": "Training", + "<8,8>": "Sales", + "<8,9>": "Customer Service", + "<8,10>": "Research", + "<8,11>": "Production Control", + "<8,12>": "Surfscan Failure", + "<8,13>": "Materials Engineering", + "<8,14>": "Quartz", + "<8,15>": "Metrology", + "<8,16>": "Supplier", + "<8,17>": "Makeup Box" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Responsible Department" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Responsible Department", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/RI_PART_TYPE.json b/LSL2/POPUP/RI_PART_TYPE.json new file mode 100644 index 0000000..67b451d --- /dev/null +++ b/LSL2/POPUP/RI_PART_TYPE.json @@ -0,0 +1,114 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "ASM", + "<8,1,2>": " Standard ASM" + }, + "<8,2>": { + "<8,2,1>": "HTR", + "<8,2,2>": "High Thruput" + }, + "<8,3>": { + "<8,3,1>": "K2K", + "<8,3,2>": "Kit 2000" + }, + "<8,4>": { + "<8,4,1>": "EPP", + "<8,4,2>": " EpiPro" + }, + "<8,5>": { + "<8,5,1>": "GAN", + "<8,5,2>": "GaN" + }, + "<8,6>": { + "<8,6,1>": "STD", + "<8,6,2>": "Standard" + }, + "<8,7>": { + "<8,7,1>": "HD", + "<8,7,2>": "Heavy Duty" + }, + "<8,8>": { + "<8,8,1>": "SCADA", + "<8,8,2>": "Prototype" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "8", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Description" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Reactor Item Part Type", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/ROTR_ACTION.json b/LSL2/POPUP/ROTR_ACTION.json new file mode 100644 index 0000000..a1b6fd0 --- /dev/null +++ b/LSL2/POPUP/ROTR_ACTION.json @@ -0,0 +1,98 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "N", + "<8,1,2>": "none" + }, + "<8,2>": { + "<8,2,1>": "P", + "<8,2,2>": "Passed" + }, + "<8,3>": { + "<8,3,1>": "F", + "<8,3,2>": "Failed" + }, + "<8,4>": { + "<8,4,1>": "W", + "<8,4,2>": "Waived" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "10", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "ROTR Action" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "ROTR Actions", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/RUN_STATUS.json b/LSL2/POPUP/RUN_STATUS.json new file mode 100644 index 0000000..c219c57 --- /dev/null +++ b/LSL2/POPUP/RUN_STATUS.json @@ -0,0 +1,181 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "VER", + "<8,1,2>": "Verify" + }, + "<8,2>": { + "<8,2,1>": "PREC", + "<8,2,2>": "Pre Clean" + }, + "<8,3>": { + "<8,3,1>": "PREI", + "<8,3,2>": "Pre Surface Inspect" + }, + "<8,4>": { + "<8,4,1>": "PRES", + "<8,4,2>": "Pre Surf Scan" + }, + "<8,5>": { + "<8,5,1>": "RLOAD", + "<8,5,2>": "Ready To Load" + }, + "<8,6>": { + "<8,6,1>": "LOAD", + "<8,6,2>": "Loaded" + }, + "<8,7>": { + "<8,7,1>": "UNLOAD", + "<8,7,2>": "Unload" + }, + "<8,8>": { + "<8,8,1>": "FWII", + "<8,8,2>": "First Wafer Inspection" + }, + "<8,9>": { + "<8,9,1>": "FWIS", + "<8,9,2>": "First Wafer Surfscan" + }, + "<8,10>": { + "<8,10,1>": "ULMET", + "<8,10,2>": "Unld - Needs Met" + }, + "<8,11>": { + "<8,11,1>": "ULOAD", + "<8,11,2>": "Unld - Met Comp" + }, + "<8,12>": { + "<8,12,1>": "WFRI", + "<8,12,2>": " Wafer Inspect" + }, + "<8,13>": { + "<8,13,1>": "WFRS", + "<8,13,2>": "Wafer Surf Scan" + }, + "<8,14>": { + "<8,14,1>": "LWII", + "<8,14,2>": "Last Wafer Inspection" + }, + "<8,15>": { + "<8,15,1>": "LWIS", + "<8,15,2>": "Last Wafer Surfscan" + }, + "<8,16>": { + "<8,16,1>": "PSTC", + "<8,16,2>": "Post Clean" + }, + "<8,17>": { + "<8,17,1>": "PSTI", + "<8,17,2>": "Post Inspect" + }, + "<8,18>": { + "<8,18,1>": "PSTS", + "<8,18,2>": "Post Surf Scan" + }, + "<8,19>": { + "<8,19,1>": "TLOAD", + "<8,19,2>": "EpiPRO Test Loaded" + }, + "<8,20>": { + "<8,20,1>": "TULOAD", + "<8,20,2>": "EpiPRO Test Unloaded" + }, + "<8,21>": { + "<8,21,1>": "RFQ", + "<8,21,2>": "Ready for QA" + }, + "<8,22>": { + "<8,22,1>": "COMP", + "<8,22,2>": "QA Complete" + }, + "<8,23>": { + "<8,23,1>": "SPEC", + "<8,23,2>": "Out of Spec" + }, + "<8,24>": { + "<8,24,1>": "MET", + "<8,24,2>": "Incomplete Metrology" + }, + "<8,25>": { + "<8,25,1>": "PSV", + "<8,25,2>": "Pre Ship Verification" + }, + "<8,26>": "" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "30", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Current Status Description" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "RDS Current Status Codes", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/RUN_STEPS.json b/LSL2/POPUP/RUN_STEPS.json new file mode 100644 index 0000000..6f2f46f --- /dev/null +++ b/LSL2/POPUP/RUN_STEPS.json @@ -0,0 +1,228 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "VER", + "<8,1,2>": "Verify", + "<8,1,3>": "ASM/HTR" + }, + "<8,2>": { + "<8,2,1>": "PREC", + "<8,2,2>": "PreClean", + "<8,2,3>": "ASM/HTR" + }, + "<8,3>": { + "<8,3,1>": "PREI", + "<8,3,2>": "PreInspection", + "<8,3,3>": "ASM/HTR" + }, + "<8,4>": { + "<8,4,1>": "PRES", + "<8,4,2>": "PreSurfScan", + "<8,4,3>": "ASM/HTR" + }, + "<8,5>": { + "<8,5,1>": "LOAD", + "<8,5,2>": "Reactor Load", + "<8,5,3>": "ASM/HTR" + }, + "<8,6>": { + "<8,6,1>": "WFRC", + "<8,6,2>": "First/Last Clean", + "<8,6,3>": "ASM/HTR" + }, + "<8,7>": { + "<8,7,1>": "WFRI", + "<8,7,2>": "First/Last Inspection", + "<8,7,3>": "ASM/HTR" + }, + "<8,8>": { + "<8,8,1>": "WFRS", + "<8,8,2>": "First/Last SurfScan", + "<8,8,3>": "ASM/HTR" + }, + "<8,9>": { + "<8,9,1>": "UNLOAD", + "<8,9,2>": "Reactor Unload", + "<8,9,3>": "ASM/HTR" + }, + "<8,10>": { + "<8,10,1>": "PSTC", + "<8,10,2>": "PostClean", + "<8,10,3>": "ASM/HTR" + }, + "<8,11>": { + "<8,11,1>": "PSTI", + "<8,11,2>": "Post Inspection", + "<8,11,3>": "ASM/HTR" + }, + "<8,12>": { + "<8,12,1>": "PSTS", + "<8,12,2>": "Post SurfScan", + "<8,12,3>": "ASM/HTR" + }, + "<8,13>": { + "<8,13,1>": "QA", + "<8,13,2>": "Final QA", + "<8,13,3>": "ASM/HTR" + }, + "<8,14>": { + "<8,14,1>": "MI_VER", + "<8,14,2>": "Material In Verify", + "<8,14,3>": "EpiPRO" + }, + "<8,15>": { + "<8,15,1>": "MI_PREC", + "<8,15,2>": "Material In PreClean", + "<8,15,3>": "EpiPRO" + }, + "<8,16>": { + "<8,16,1>": "MI_PREI", + "<8,16,2>": "Material In PreInspection", + "<8,16,3>": "EpiPRO" + }, + "<8,17>": { + "<8,17,1>": "MI_PRES", + "<8,17,2>": "Material In PreSurfScan", + "<8,17,3>": "EpiPRO" + }, + "<8,18>": { + "<8,18,1>": "RN_LOAD", + "<8,18,2>": "Reactor Load", + "<8,18,3>": "EpiPRO" + }, + "<8,19>": { + "<8,19,1>": "RN_UNLOAD", + "<8,19,2>": "Reactor Unload", + "<8,19,3>": "EpiPRO" + }, + "<8,20>": { + "<8,20,1>": "RN_WFRC", + "<8,20,2>": "Reactor First/Last Clean", + "<8,20,3>": "EpiPRO" + }, + "<8,21>": { + "<8,21,1>": "RN_WFRI", + "<8,21,2>": "Reactor First/Last Inspection", + "<8,21,3>": "EpiPRO" + }, + "<8,22>": { + "<8,22,1>": "RN_WFRS", + "<8,22,2>": "Reactor First/Last SurfScan", + "<8,22,3>": "EpiPRO" + }, + "<8,23>": { + "<8,23,1>": "MO_PSTC", + "<8,23,2>": "Material Out PostClean", + "<8,23,3>": "EpiPRO" + }, + "<8,24>": { + "<8,24,1>": "MO_PSTI", + "<8,24,2>": "Material Out PostInspection", + "<8,24,3>": "EpiPRO" + }, + "<8,25>": { + "<8,25,1>": "MO_PSTS", + "<8,25,2>": "Material Out PostSurfScan", + "<8,25,3>": "EpiPRO" + }, + "<8,26>": { + "<8,26,1>": "MO_QA", + "<8,26,2>": "Material Out Final QA", + "<8,26,3>": "EpiPRO" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Run Step" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Step Desc" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "10", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "React Type" + }, + "<9,4>": { + "<9,4,1>": "", + "<9,4,2>": "", + "<9,4,3>": "", + "<9,4,4>": "", + "<9,4,5>": "", + "<9,4,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Run Steps", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SAP_COMM.json b/LSL2/POPUP/SAP_COMM.json new file mode 100644 index 0000000..6a9371a --- /dev/null +++ b/LSL2/POPUP/SAP_COMM.json @@ -0,0 +1,193 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "SAP_COMM", + "<8>": "BY @ID", + "<9>": { + "<9,1>": { + "<9,1,1>": "SEQ", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Seq" + }, + "<9,2>": { + "<9,2,1>": "TRANS_ACTION", + "<9,2,2>": "10", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Trans Action" + }, + "<9,3>": { + "<9,3,1>": "2", + "<9,3,2>": "10", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Param 1" + }, + "<9,4>": { + "<9,4,1>": "3", + "<9,4,2>": "10", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Param 2" + }, + "<9,5>": { + "<9,5,1>": "4", + "<9,5,2>": "10", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Param 3" + }, + "<9,6>": { + "<9,6,1>": "5", + "<9,6,2>": "10", + "<9,6,3>": "C", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Param 4" + }, + "<9,7>": { + "<9,7,1>": "6", + "<9,7,2>": "10", + "<9,7,3>": "C", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "Param 5" + }, + "<9,8>": { + "<9,8,1>": "7", + "<9,8,2>": "10", + "<9,8,3>": "C", + "<9,8,4>": "C", + "<9,8,5>": "", + "<9,8,6>": "Param 6" + }, + "<9,9>": { + "<9,9,1>": "8", + "<9,9,2>": "10", + "<9,9,3>": "C", + "<9,9,4>": "C", + "<9,9,5>": "", + "<9,9,6>": "Param 7" + }, + "<9,10>": { + "<9,10,1>": "9", + "<9,10,2>": "10", + "<9,10,3>": "C", + "<9,10,4>": "C", + "<9,10,5>": "", + "<9,10,6>": "Param 8" + }, + "<9,11>": { + "<9,11,1>": "10", + "<9,11,2>": "10", + "<9,11,3>": "C", + "<9,11,4>": "C", + "<9,11,5>": "", + "<9,11,6>": "Param 9" + }, + "<9,12>": { + "<9,12,1>": "11", + "<9,12,2>": "10", + "<9,12,3>": "C", + "<9,12,4>": "C", + "<9,12,5>": "", + "<9,12,6>": "Param 10" + }, + "<9,13>": { + "<9,13,1>": "12", + "<9,13,2>": "10", + "<9,13,3>": "C", + "<9,13,4>": "C", + "<9,13,5>": "", + "<9,13,6>": "Param 11" + }, + "<9,14>": { + "<9,14,1>": "13", + "<9,14,2>": "10", + "<9,14,3>": "C", + "<9,14,4>": "C", + "<9,14,5>": "", + "<9,14,6>": "Param 12" + }, + "<9,15>": { + "<9,15,1>": "14", + "<9,15,2>": "10", + "<9,15,3>": "C", + "<9,15,4>": "C", + "<9,15,5>": "", + "<9,15,6>": "Param 13" + }, + "<9,16>": { + "<9,16,1>": "PARM_14", + "<9,16,2>": "10", + "<9,16,3>": "C", + "<9,16,4>": "C", + "<9,16,5>": "", + "<9,16,6>": "Parm 14" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "SAP Comm buffer", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SAP_LOG.json b/LSL2/POPUP/SAP_LOG.json new file mode 100644 index 0000000..68cbc80 --- /dev/null +++ b/LSL2/POPUP/SAP_LOG.json @@ -0,0 +1,89 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "SAP_LOG", + "<8>": "BY-DSND LOG_NO", + "<9>": { + "<9,1>": { + "<9,1,1>": "LOG_NO", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "Log No" + }, + "<9,2>": { + "<9,2,1>": "TIMESTAMP", + "<9,2,2>": "19", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "DT", + "<9,2,6>": "Timestamp" + }, + "<9,3>": { + "<9,3,1>": "LOG_DESC", + "<9,3,2>": "40", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Log Desc" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "SAP Log", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SAP_MU_TRANS_PURGE.json b/LSL2/POPUP/SAP_MU_TRANS_PURGE.json new file mode 100644 index 0000000..ab61cb2 --- /dev/null +++ b/LSL2/POPUP/SAP_MU_TRANS_PURGE.json @@ -0,0 +1,113 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "SAP_MU_TRANS", + "<8>": "WITH PRINT_DTM NE \"\" BY @ID", + "<9>": { + "<9,1>": { + "<9,1,1>": "EPI_PART_NO", + "<9,1,2>": "16", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Epi Part No" + }, + "<9,2>": { + "<9,2,1>": "CASS_ID", + "<9,2,2>": "16", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Cass ID" + }, + "<9,3>": { + "<9,3,1>": "WO_NO", + "<9,3,2>": "14", + "<9,3,3>": "R", + "<9,3,4>": "C", + "<9,3,5>": "MD0", + "<9,3,6>": "WO No" + }, + "<9,4>": { + "<9,4,1>": "CASS_NO", + "<9,4,2>": "6", + "<9,4,3>": "R", + "<9,4,4>": "C", + "<9,4,5>": "MD0", + "<9,4,6>": "Cass No" + }, + "<9,5>": { + "<9,5,1>": "BATCH_NO", + "<9,5,2>": "12", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Batch No" + }, + "<9,6>": { + "<9,6,1>": "PRINT_DTM", + "<9,6,2>": "11", + "<9,6,3>": "R", + "<9,6,4>": "C", + "<9,6,5>": "D", + "<9,6,6>": "Print Dtm" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Purge SAP_MU_TRANS table", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SCANNED_IMAGES.json b/LSL2/POPUP/SCANNED_IMAGES.json new file mode 100644 index 0000000..e2beddb --- /dev/null +++ b/LSL2/POPUP/SCANNED_IMAGES.json @@ -0,0 +1,77 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "Image 1", + "<8,2>": "New" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "15", + "<9,1,3>": "L", + "<9,1,4>": "L", + "<9,1,5>": "", + "<9,1,6>": "Image" + }, + "<9,2>": { + "<9,2,1>": "", + "<9,2,2>": "", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Scanned Images", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SCHEDULE_QUERY.json b/LSL2/POPUP/SCHEDULE_QUERY.json new file mode 100644 index 0000000..dda1ce9 --- /dev/null +++ b/LSL2/POPUP/SCHEDULE_QUERY.json @@ -0,0 +1,112 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "SCHEDULE", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "CUST_NO", + "<9,1,2>": "15", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "[XLATE_CONV,COMPANY*CO_NAME]", + "<9,1,6>": "Customer" + }, + "<9,2>": { + "<9,2,1>": "PO", + "<9,2,2>": "10", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "PO #" + }, + "<9,3>": { + "<9,3,1>": "WO", + "<9,3,2>": "10", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "WO" + }, + "<9,4>": { + "<9,4,1>": "LOT_NUM", + "<9,4,2>": "10", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Lot Number" + }, + "<9,5>": { + "<9,5,1>": "PART_NUM", + "<9,5,2>": "10", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Part Number" + }, + "<9,6>": { + "<9,6,1>": "ENTRY_ID", + "<9,6,2>": "15", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,6,6>": "Entry ID" + }, + "<9,7>": { + "<9,7,1>": "ENTRY_DATE", + "<9,7,2>": "8", + "<9,7,3>": "C", + "<9,7,4>": "C", + "<9,7,5>": "D2/", + "<9,7,6>": "Entry Date" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Schedules", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SCHEDULE_SRL_QUERY.json b/LSL2/POPUP/SCHEDULE_SRL_QUERY.json new file mode 100644 index 0000000..ac3f549 --- /dev/null +++ b/LSL2/POPUP/SCHEDULE_SRL_QUERY.json @@ -0,0 +1,96 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "SCHEDULE_SRL", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "CUST_NO", + "<9,1,2>": "15", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "[XLATE_CONV,COMPANY*CO_NAME]", + "<9,1,6>": "Customer" + }, + "<9,2>": { + "<9,2,1>": "PO", + "<9,2,2>": "10", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "PO #" + }, + "<9,3>": { + "<9,3,1>": "WO", + "<9,3,2>": "10", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "WO" + }, + "<9,4>": { + "<9,4,1>": "ENTRY_ID", + "<9,4,2>": "15", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,4,6>": "Entry ID" + }, + "<9,5>": { + "<9,5,1>": "ENTRY_DATE", + "<9,5,2>": "8", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "D2/", + "<9,5,6>": "Entry Date" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Schedules", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SCHED_GOTO_RDS.json b/LSL2/POPUP/SCHED_GOTO_RDS.json new file mode 100644 index 0000000..5a5ac9f --- /dev/null +++ b/LSL2/POPUP/SCHED_GOTO_RDS.json @@ -0,0 +1,67 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "View/Edit current RDS...", + "<8,2>": "View/Edit all RDS..." + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Option" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "RDS Options", + "<13>": "", + "<14>": "P", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SECURITY_RIGHTS.json b/LSL2/POPUP/SECURITY_RIGHTS.json new file mode 100644 index 0000000..a3c3f93 --- /dev/null +++ b/LSL2/POPUP/SECURITY_RIGHTS.json @@ -0,0 +1,85 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Read", + "<8,1,2>": "R" + }, + "<8,2>": { + "<8,2,1>": "Write", + "<8,2,2>": "W" + }, + "<8,3>": { + "<8,3,1>": "Delete", + "<8,3,2>": "D" + }, + "<8,4>": { + "<8,4,1>": "Edit", + "<8,4,2>": "E " + }, + "<8,5>": { + "<8,5,1>": "Print", + "<8,5,2>": "P" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "" + } + }, + "<10>": "L", + "<11>": "2", + "<12>": "Security Rights", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SEC_GROUPS.json b/LSL2/POPUP/SEC_GROUPS.json new file mode 100644 index 0000000..c2e18fc --- /dev/null +++ b/LSL2/POPUP/SEC_GROUPS.json @@ -0,0 +1,81 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "SEC_GROUPS", + "<8>": "BY GROUP", + "<9>": { + "<9,1>": { + "<9,1,1>": "GROUP", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "GROUP" + }, + "<9,2>": { + "<9,2,1>": "GROUP_NAME", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Group Name" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Security Groups", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SELECT_PROD_TEST.json b/LSL2/POPUP/SELECT_PROD_TEST.json new file mode 100644 index 0000000..7668877 --- /dev/null +++ b/LSL2/POPUP/SELECT_PROD_TEST.json @@ -0,0 +1,97 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Slot No" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "15", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Wafer ID" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "10", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "NCR No" + }, + "<9,4>": { + "<9,4,1>": "4", + "<9,4,2>": "10", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "TW Use ID" + } + }, + "<10>": "L", + "<11>": "2", + "<12>": "Select Wafers Used as Product Test", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "1", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SEMI_LOG_QUERY.json b/LSL2/POPUP/SEMI_LOG_QUERY.json new file mode 100644 index 0000000..69f68ab --- /dev/null +++ b/LSL2/POPUP/SEMI_LOG_QUERY.json @@ -0,0 +1,82 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "SEMI_LOG", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "DATE_CHANGED", + "<9,1,2>": "11", + "<9,1,3>": "R", + "<9,1,4>": "C", + "<9,1,5>": "D2/", + "<9,1,6>": "Date Changed" + }, + "<9,2>": { + "<9,2,1>": "TECH_SIG", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,2,6>": "Technician" + }, + "<9,3>": { + "<9,3,1>": "TANK_NO", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Tank Number" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Tank Change Log Report", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SEMI_VEND_CODE.json b/LSL2/POPUP/SEMI_VEND_CODE.json new file mode 100644 index 0000000..a65fd82 --- /dev/null +++ b/LSL2/POPUP/SEMI_VEND_CODE.json @@ -0,0 +1,97 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "SEMI_VEND_CODE", + "<8>": "BY @ID", + "<9>": { + "<9,1>": { + "<9,1,1>": "VEND_CD", + "<9,1,2>": "4", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Vend Cd" + }, + "<9,2>": { + "<9,2,1>": "EPI_VEND_CD", + "<9,2,2>": "4", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Epi Vend Cd" + }, + "<9,3>": { + "<9,3,1>": "VENDOR_NAME", + "<9,3,2>": "10", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Vendor Name" + }, + "<9,4>": { + "<9,4,1>": "LOCATION", + "<9,4,2>": "10", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Vendor Location" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "Semi Standard Vendor Codes", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SHIPPPERINFO.json b/LSL2/POPUP/SHIPPPERINFO.json new file mode 100644 index 0000000..ef4d6b7 --- /dev/null +++ b/LSL2/POPUP/SHIPPPERINFO.json @@ -0,0 +1,67 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "LISTBOX_CONFIG", + "<8>": { + "<8,1>": "SHIPPERINFO", + "<8,2>": "1" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "" + } + }, + "<10>": "F", + "<11>": "1", + "<12>": "Ship Via", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SHIP_EMAIL_QUEUE.json b/LSL2/POPUP/SHIP_EMAIL_QUEUE.json new file mode 100644 index 0000000..80d08a7 --- /dev/null +++ b/LSL2/POPUP/SHIP_EMAIL_QUEUE.json @@ -0,0 +1,137 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "SHIP_EMAIL_QUEUE", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "SHIP_NO", + "<9,1,2>": "8", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Ship No" + }, + "<9,2>": { + "<9,2,1>": "SAP_DEL_NO", + "<9,2,2>": "8", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "SAP Del No" + }, + "<9,3>": { + "<9,3,1>": "WO_NO", + "<9,3,2>": "8", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "WO No" + }, + "<9,4>": { + "<9,4,1>": "CUST_NO", + "<9,4,2>": "8", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Cust No" + }, + "<9,5>": { + "<9,5,1>": "CUST_INFO", + "<9,5,2>": "30", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Cust Info" + }, + "<9,6>": { + "<9,6,1>": "SHIP_DTM", + "<9,6,2>": "21", + "<9,6,3>": "C", + "<9,6,4>": "C", + "<9,6,5>": "DT4/^S", + "<9,6,6>": "Ship Dtm" + }, + "<9,7>": { + "<9,7,1>": "EMAIL_DTM", + "<9,7,2>": "21", + "<9,7,3>": "C", + "<9,7,4>": "C", + "<9,7,5>": "DT4/^S", + "<9,7,6>": "eMail Dtm" + }, + "<9,8>": { + "<9,8,1>": "EMAIL_USER", + "<9,8,2>": "20", + "<9,8,3>": "L", + "<9,8,4>": "C", + "<9,8,5>": "", + "<9,8,6>": "eMail User" + }, + "<9,9>": { + "<9,9,1>": "EMAIL_REASON", + "<9,9,2>": "40", + "<9,9,3>": "L", + "<9,9,4>": "C", + "<9,9,5>": "", + "<9,9,6>": "eMail Reason" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Ship eMail Queue", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SHIP_RTS_CASSETTES.json b/LSL2/POPUP/SHIP_RTS_CASSETTES.json new file mode 100644 index 0000000..28e1574 --- /dev/null +++ b/LSL2/POPUP/SHIP_RTS_CASSETTES.json @@ -0,0 +1,111 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "1", + "<8,1,2>": "1", + "<8,1,3>": "1234567", + "<8,1,4>": "Ready to Ship" + }, + "<8,2>": { + "<8,2,1>": "1", + "<8,2,2>": "2", + "<8,2,3>": "1234568", + "<8,2,4>": "Ready to Ship" + }, + "<8,3>": { + "<8,3,1>": "2", + "<8,3,2>": "3", + "<8,3,3>": "1234569", + "<8,3,4>": "Ready to Ship" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "WO Step" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "10", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Cass No" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "14", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "RDS No" + }, + "<9,4>": { + "<9,4,1>": "4", + "<9,4,2>": "10", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Wfrs Out" + } + }, + "<10>": "L", + "<11>": "2", + "<12>": "Ready to Ship Cassettes", + "<13>": "", + "<14>": "E", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SHIP_STATUS.json b/LSL2/POPUP/SHIP_STATUS.json new file mode 100644 index 0000000..614a48a --- /dev/null +++ b/LSL2/POPUP/SHIP_STATUS.json @@ -0,0 +1,108 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "UNPOST", + "<8,1,2>": "Not Posted" + }, + "<8,2>": { + "<8,2,1>": "PICK", + "<8,2,2>": "Picking" + }, + "<8,3>": { + "<8,3,1>": "PACK", + "<8,3,2>": "Packing" + }, + "<8,4>": { + "<8,4,1>": "SHIP", + "<8,4,2>": "Shipped" + }, + "<8,5>": { + "<8,5,1>": "COMP", + "<8,5,2>": "Complete" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "30", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Status Description" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "WO Step Status Codes", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SHOW_ANNUAL_CONTRACTS.json b/LSL2/POPUP/SHOW_ANNUAL_CONTRACTS.json new file mode 100644 index 0000000..86896fb --- /dev/null +++ b/LSL2/POPUP/SHOW_ANNUAL_CONTRACTS.json @@ -0,0 +1,114 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "ANNUAL_CONTRACTS", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "PO", + "<9,1,2>": "15", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "PO" + }, + "<9,2>": { + "<9,2,1>": "CONTRACT_AMOUNT", + "<9,2,2>": "12", + "<9,2,3>": "R", + "<9,2,4>": "C", + "<9,2,5>": "MD2,$", + "<9,2,6>": "Amount" + }, + "<9,3>": { + "<9,3,1>": "FROM_DATE", + "<9,3,2>": "11", + "<9,3,3>": "R", + "<9,3,4>": "C", + "<9,3,5>": "D2/", + "<9,3,6>": "From Date" + }, + "<9,4>": { + "<9,4,1>": "THRU_DATE", + "<9,4,2>": "11", + "<9,4,3>": "R", + "<9,4,4>": "C", + "<9,4,5>": "D2/", + "<9,4,6>": "Thru Date" + }, + "<9,5>": { + "<9,5,1>": "STATUS", + "<9,5,2>": "1", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "[AC_STATUS_CONV]", + "<9,5,6>": "Status" + }, + "<9,6>": { + "<9,6,1>": "ENTRY_ID", + "<9,6,2>": "20", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,6,6>": "Entry ID" + }, + "<9,7>": { + "<9,7,1>": "ENTRY_DATE", + "<9,7,2>": "11", + "<9,7,3>": "R", + "<9,7,4>": "C", + "<9,7,5>": "D2/", + "<9,7,6>": "Entry Date" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Annual Contracts", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SHOW_ASSIGN_CAUSE.json b/LSL2/POPUP/SHOW_ASSIGN_CAUSE.json new file mode 100644 index 0000000..21376b5 --- /dev/null +++ b/LSL2/POPUP/SHOW_ASSIGN_CAUSE.json @@ -0,0 +1,113 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "ASSIGN_CAUSE", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "SEQ", + "<9,1,2>": "6", + "<9,1,3>": "R", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "Number" + }, + "<9,2>": { + "<9,2,1>": "ASSIGN_CAUSE_DESC", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Description" + }, + "<9,3>": { + "<9,3,1>": "DESIG_ERR_GRP_DESC", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Designation Group" + }, + "<9,4>": { + "<9,4,1>": "ENTRY_ID", + "<9,4,2>": "18", + "<9,4,3>": "L", + "<9,4,4>": "", + "<9,4,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,4,6>": "Entry ID" + }, + "<9,5>": { + "<9,5,1>": "ENTRY_DATE", + "<9,5,2>": "8", + "<9,5,3>": "L", + "<9,5,4>": "", + "<9,5,5>": "D2/", + "<9,5,6>": "Entry Date" + }, + "<9,6>": { + "<9,6,1>": "STATUS", + "<9,6,2>": "8", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "[ASSIGN_CAUSE_STATUS_CONV]", + "<9,6,6>": "Status" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "Assignable Causes", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SHOW_CALL_VISIT.json b/LSL2/POPUP/SHOW_CALL_VISIT.json new file mode 100644 index 0000000..d24ce5c --- /dev/null +++ b/LSL2/POPUP/SHOW_CALL_VISIT.json @@ -0,0 +1,80 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "CALL_VISIT", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "CUST_ID", + "<9,1,2>": "25", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "[XLATE_CONV,COMPANY*CO_NAME]", + "<9,1,6>": "Customer" + }, + "<9,2>": { + "<9,2,1>": "CALL_VISIT_DATE", + "<9,2,2>": "8", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "D2/", + "<9,2,6>": "Call/Visit Date" + }, + "<9,3>": { + "<9,3,1>": "SUBJECT", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Subject" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Customer Call/Visit", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SHOW_CUST_INQUIRIES.json b/LSL2/POPUP/SHOW_CUST_INQUIRIES.json new file mode 100644 index 0000000..ed6db27 --- /dev/null +++ b/LSL2/POPUP/SHOW_CUST_INQUIRIES.json @@ -0,0 +1,112 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "CUST_INQUIRY", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "CUST_ID", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "[XLATE_CONV,COMPANY*CO_NAME]", + "<9,1,6>": "Customer" + }, + "<9,2>": { + "<9,2,1>": "INQUIRY_DATE", + "<9,2,2>": "8", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "D2/", + "<9,2,6>": "Inquiry Date" + }, + "<9,3>": { + "<9,3,1>": "STATUS", + "<9,3,2>": "15", + "<9,3,3>": "L", + "<9,3,4>": "", + "<9,3,5>": "[CUST_INQ_CONV]", + "<9,3,6>": "Status" + }, + "<9,4>": { + "<9,4,1>": "REVIEW_STATUS", + "<9,4,2>": "1", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "[CUST_INQ_REV_CONV]", + "<9,4,6>": "Review Status" + }, + "<9,5>": { + "<9,5,1>": "CUST_PART_NUM", + "<9,5,2>": "15", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Part#" + }, + "<9,6>": { + "<9,6,1>": "CUST_SPEC_NUM", + "<9,6,2>": "15", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Spec#" + }, + "<9,7>": { + "<9,7,1>": "CUST_REV_NUM", + "<9,7,2>": "4", + "<9,7,3>": "L", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "Rev#" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Customer Inquiries", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SHOW_DESIG_ERR_GRP.json b/LSL2/POPUP/SHOW_DESIG_ERR_GRP.json new file mode 100644 index 0000000..ed05147 --- /dev/null +++ b/LSL2/POPUP/SHOW_DESIG_ERR_GRP.json @@ -0,0 +1,97 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "DESIG_ERR_GRP", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "SEQ", + "<9,1,2>": "6", + "<9,1,3>": "R", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "Number" + }, + "<9,2>": { + "<9,2,1>": "DESIG_DESC", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Designation" + }, + "<9,3>": { + "<9,3,1>": "ENTRY_ID", + "<9,3,2>": "18", + "<9,3,3>": "L", + "<9,3,4>": "", + "<9,3,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,3,6>": "Entry ID" + }, + "<9,4>": { + "<9,4,1>": "ENTRY_DATE", + "<9,4,2>": "8", + "<9,4,3>": "L", + "<9,4,4>": "", + "<9,4,5>": "D2/", + "<9,4,6>": "Entry Date" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "Designation Error Groups", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SHOW_EXPORTS.json b/LSL2/POPUP/SHOW_EXPORTS.json new file mode 100644 index 0000000..cabf328 --- /dev/null +++ b/LSL2/POPUP/SHOW_EXPORTS.json @@ -0,0 +1,87 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "EXPORTS", + "<8>": "BY @ID", + "<9>": { + "<9,1>": { + "<9,1,1>": "NAME", + "<9,1,2>": "25", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Name" + }, + "<9,2>": { + "<9,2,1>": "ENTRY_ID", + "<9,2,2>": "15", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Entry ID" + }, + "<9,3>": { + "<9,3,1>": "TABLE", + "<9,3,2>": "25", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Table" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "Exports", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SHOW_GROUP_NAMES.json b/LSL2/POPUP/SHOW_GROUP_NAMES.json new file mode 100644 index 0000000..85a7789 --- /dev/null +++ b/LSL2/POPUP/SHOW_GROUP_NAMES.json @@ -0,0 +1,64 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "MSG_GROUPS", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "GROUP_NAME", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Group Name" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Group Names", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SHOW_INVOICES.json b/LSL2/POPUP/SHOW_INVOICES.json new file mode 100644 index 0000000..368e9e1 --- /dev/null +++ b/LSL2/POPUP/SHOW_INVOICES.json @@ -0,0 +1,88 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "INVOICE", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "PO", + "<9,1,2>": "12", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "PO" + }, + "<9,2>": { + "<9,2,1>": "PART_NUM", + "<9,2,2>": "12", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Part Number" + }, + "<9,3>": { + "<9,3,1>": "ENTRY_ID", + "<9,3,2>": "12", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,3,6>": "Entry ID" + }, + "<9,4>": { + "<9,4,1>": "ENTRY_DATE", + "<9,4,2>": "11", + "<9,4,3>": "R", + "<9,4,4>": "C", + "<9,4,5>": "D2/", + "<9,4,6>": "Entry Date" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Invoices", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SHOW_LOSS_CODES.json b/LSL2/POPUP/SHOW_LOSS_CODES.json new file mode 100644 index 0000000..9582a01 --- /dev/null +++ b/LSL2/POPUP/SHOW_LOSS_CODES.json @@ -0,0 +1,97 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "LOSS_CODES", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "CODE", + "<9,1,2>": "5", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "DESC", + "<9,2,2>": "25", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Description" + }, + "<9,3>": { + "<9,3,1>": "ENTRY_ID", + "<9,3,2>": "18", + "<9,3,3>": "L", + "<9,3,4>": "", + "<9,3,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,3,6>": "Entry ID" + }, + "<9,4>": { + "<9,4,1>": "ENTRY_DATE", + "<9,4,2>": "8", + "<9,4,3>": "L", + "<9,4,4>": "", + "<9,4,5>": "D2/", + "<9,4,6>": "Entry Date" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "Loss Codes", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SHOW_NAMES.json b/LSL2/POPUP/SHOW_NAMES.json new file mode 100644 index 0000000..b1dd8cd --- /dev/null +++ b/LSL2/POPUP/SHOW_NAMES.json @@ -0,0 +1,97 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "3", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0", + "<6,1,15>": "0", + "<6,1,16>": "0" + } + }, + "<7>": "NAMES", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "FIRST", + "<9,1,2>": "15", + "<9,1,3>": "L", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "First Name" + }, + "<9,2>": { + "<9,2,1>": "LAST", + "<9,2,2>": "15", + "<9,2,3>": "L", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "Last Name" + }, + "<9,3>": { + "<9,3,1>": "TITLE", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "Title" + }, + "<9,4>": { + "<9,4,1>": "STATUS", + "<9,4,2>": "8", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "[NAMES_STATUS_CONV]", + "<9,4,6>": "Status" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Company Contact Names", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "1", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SHOW_NDA.json b/LSL2/POPUP/SHOW_NDA.json new file mode 100644 index 0000000..50f0fee --- /dev/null +++ b/LSL2/POPUP/SHOW_NDA.json @@ -0,0 +1,90 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "NDA", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "CUST_ID", + "<9,1,2>": "25", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "[XLATE_CONV,COMPANY*CO_NAME]", + "<9,1,6>": "Customer" + }, + "<9,2>": { + "<9,2,1>": "INIT_DATE", + "<9,2,2>": "11", + "<9,2,3>": "R", + "<9,2,4>": "C", + "<9,2,5>": "D2/", + "<9,2,6>": "Init Date" + }, + "<9,3>": { + "<9,3,1>": "EXP_DATE", + "<9,3,2>": "11", + "<9,3,3>": "R", + "<9,3,4>": "C", + "<9,3,5>": "D2/", + "<9,3,6>": "Exp Date" + }, + "<9,4>": { + "<9,4,1>": "STATUS", + "<9,4,2>": "1", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "[NDA_STATUS_CONV]", + "<9,4,6>": "Status" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Non-Disclosure Agreement", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SHOW_ORDERS.json b/LSL2/POPUP/SHOW_ORDERS.json new file mode 100644 index 0000000..ddce7e0 --- /dev/null +++ b/LSL2/POPUP/SHOW_ORDERS.json @@ -0,0 +1,96 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "ORDER", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "NAME_NO", + "<9,1,2>": "15", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "[XLATE_CONV,NAMES*FIRST_LAST]", + "<9,1,6>": "Name Number" + }, + "<9,2>": { + "<9,2,1>": "PO", + "<9,2,2>": "15", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "PO #" + }, + "<9,3>": { + "<9,3,1>": "ENTRY_ID", + "<9,3,2>": "15", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,3,6>": "Entry ID" + }, + "<9,4>": { + "<9,4,1>": "ENTRY_DATE", + "<9,4,2>": "11", + "<9,4,3>": "R", + "<9,4,4>": "C", + "<9,4,5>": "D2/", + "<9,4,6>": "Entry Date" + }, + "<9,5>": { + "<9,5,1>": "STATUS", + "<9,5,2>": "1", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "[ORDER_STATUS_CONV]", + "<9,5,6>": "Status" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Orders", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SHOW_PROD_SPEC.json b/LSL2/POPUP/SHOW_PROD_SPEC.json new file mode 100644 index 0000000..b8d4507 --- /dev/null +++ b/LSL2/POPUP/SHOW_PROD_SPEC.json @@ -0,0 +1,138 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "PROD_SPEC", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "SUB_WAFER_DESC", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Sub Wafer Desc" + }, + "<9,2>": { + "<9,2,1>": "SEQ", + "<9,2,2>": "5", + "<9,2,3>": "R", + "<9,2,4>": "C", + "<9,2,5>": "MD0", + "<9,2,6>": "PSN" + }, + "<9,3>": { + "<9,3,1>": "QUOTE_KEYS_SINGLE", + "<9,3,2>": "10", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Quote Keys" + }, + "<9,4>": { + "<9,4,1>": "THICK_TARGET_L1", + "<9,4,2>": "7", + "<9,4,3>": "R", + "<9,4,4>": "C", + "<9,4,5>": "MD2", + "<9,4,6>": "Target Thick" + }, + "<9,5>": { + "<9,5,1>": "RES_TARGET_L1", + "<9,5,2>": "7", + "<9,5,3>": "R", + "<9,5,4>": "C", + "<9,5,5>": "MD3", + "<9,5,6>": "Target Res" + }, + "<9,6>": { + "<9,6,1>": "PART_NUMS_SINGLE", + "<9,6,2>": "20", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Part Num(s)" + }, + "<9,7>": { + "<9,7,1>": "SPEC_NUM", + "<9,7,2>": "12", + "<9,7,3>": "L", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "Spec Number" + }, + "<9,8>": { + "<9,8,1>": "REV_NUM", + "<9,8,2>": "4", + "<9,8,3>": "L", + "<9,8,4>": "C", + "<9,8,5>": "", + "<9,8,6>": "Rev#" + }, + "<9,9>": { + "<9,9,1>": "REV_DATE", + "<9,9,2>": "11", + "<9,9,3>": "C", + "<9,9,4>": "C", + "<9,9,5>": "D2/", + "<9,9,6>": "Revision Date" + }, + "<9,10>": { + "<9,10,1>": "STATUS", + "<9,10,2>": "1", + "<9,10,3>": "L", + "<9,10,4>": "C", + "<9,10,5>": "[PROD_SPEC_STATUS_CONV]", + "<9,10,6>": "Status" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Customer Product Specification", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SHOW_P_NAMES.json b/LSL2/POPUP/SHOW_P_NAMES.json new file mode 100644 index 0000000..46b068f --- /dev/null +++ b/LSL2/POPUP/SHOW_P_NAMES.json @@ -0,0 +1,80 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "P_NAMES", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "FIRST", + "<9,1,2>": "15", + "<9,1,3>": "L", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "First" + }, + "<9,2>": { + "<9,2,1>": "LAST", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "Last" + }, + "<9,3>": { + "<9,3,1>": "TITLE", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "Title" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Personal Names", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SHOW_QUOTES.json b/LSL2/POPUP/SHOW_QUOTES.json new file mode 100644 index 0000000..df980d9 --- /dev/null +++ b/LSL2/POPUP/SHOW_QUOTES.json @@ -0,0 +1,146 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "QUOTE", + "<8>": "BY @ID", + "<9>": { + "<9,1>": { + "<9,1,1>": "SEQ", + "<9,1,2>": "8", + "<9,1,3>": "R", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "Quote ID" + }, + "<9,2>": { + "<9,2,1>": "PROD_SPEC_ID", + "<9,2,2>": "5", + "<9,2,3>": "R", + "<9,2,4>": "C", + "<9,2,5>": "MD0", + "<9,2,6>": "PSN" + }, + "<9,3>": { + "<9,3,1>": "NAME_NO", + "<9,3,2>": "15", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "[XLATE_CONV,NAMES*FIRST_LAST]", + "<9,3,6>": "Contact" + }, + "<9,4>": { + "<9,4,1>": "REQ_QUOTE_NUM", + "<9,4,2>": "", + "<9,4,3>": "", + "<9,4,4>": "L", + "<9,4,5>": " Number", + "<9,4,6>": "Request Quote" + }, + "<9,5>": { + "<9,5,1>": "CUST_PART_NUM_FIRST", + "<9,5,2>": "15", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Cust Part Num" + }, + "<9,6>": { + "<9,6,1>": "THICK_TARGET_L1", + "<9,6,2>": "10", + "<9,6,3>": "R", + "<9,6,4>": "C", + "<9,6,5>": "MD2", + "<9,6,6>": "Thick Target" + }, + "<9,7>": { + "<9,7,1>": "RES_TARGET_L1", + "<9,7,2>": "10", + "<9,7,3>": "R", + "<9,7,4>": "C", + "<9,7,5>": "MD3", + "<9,7,6>": "Res Target" + }, + "<9,8>": { + "<9,8,1>": "WAFER_DESC", + "<9,8,2>": "15", + "<9,8,3>": "L", + "<9,8,4>": "C", + "<9,8,5>": "", + "<9,8,6>": "Wafer Desc" + }, + "<9,9>": { + "<9,9,1>": "ENTRY_DATE", + "<9,9,2>": "8", + "<9,9,3>": "R", + "<9,9,4>": "", + "<9,9,5>": "D2/", + "<9,9,6>": "Entry Date" + }, + "<9,10>": { + "<9,10,1>": "EXP_DATE", + "<9,10,2>": "8", + "<9,10,3>": "R", + "<9,10,4>": "", + "<9,10,5>": "D2/", + "<9,10,6>": "Exp Date" + }, + "<9,11>": { + "<9,11,1>": "STATUS", + "<9,11,2>": "8", + "<9,11,3>": "L", + "<9,11,4>": "", + "<9,11,5>": "[QUOTE_STATUS_CONV]", + "<9,11,6>": "Status" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Customer Quotes", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SHOW_REACT_ITEMS.json b/LSL2/POPUP/SHOW_REACT_ITEMS.json new file mode 100644 index 0000000..9b4a7be --- /dev/null +++ b/LSL2/POPUP/SHOW_REACT_ITEMS.json @@ -0,0 +1,97 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "REACT_ITEMS", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "ITEM_NO", + "<9,1,2>": "15", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Item No" + }, + "<9,2>": { + "<9,2,1>": "REACT_ITEM_TYPE", + "<9,2,2>": "12", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "[CONV_CODE_DESC,'REACT_ITEM_TYPE']", + "<9,2,6>": "React Item Type" + }, + "<9,3>": { + "<9,3,1>": "DESCRIPTION", + "<9,3,2>": "30", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Description" + }, + "<9,4>": { + "<9,4,1>": "STATUS", + "<9,4,2>": "20", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "[REACT_ITEMS_STATUS_CONV]", + "<9,4,6>": "Status" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "Reactor Items", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SHOW_REACT_PROBS.json b/LSL2/POPUP/SHOW_REACT_PROBS.json new file mode 100644 index 0000000..474d127 --- /dev/null +++ b/LSL2/POPUP/SHOW_REACT_PROBS.json @@ -0,0 +1,74 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "REACT_PROBS", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "PROB_ID", + "<9,1,2>": "14", + "<9,1,3>": "R", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "Prob ID" + }, + "<9,2>": { + "<9,2,1>": "DESCRIPTION", + "<9,2,2>": "45", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Description" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "Reactor Problems", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SHOW_REACT_PROB_CAT.json b/LSL2/POPUP/SHOW_REACT_PROB_CAT.json new file mode 100644 index 0000000..e55efba --- /dev/null +++ b/LSL2/POPUP/SHOW_REACT_PROB_CAT.json @@ -0,0 +1,81 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "3", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0", + "<6,1,15>": "0", + "<6,1,16>": "0" + } + }, + "<7>": "REACT_PROB_CAT", + "<8>": "BY REACTOR_PROBLEM_CATEGORY", + "<9>": { + "<9,1>": { + "<9,1,1>": "SEQ", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "ID" + }, + "<9,2>": { + "<9,2,1>": "REACTOR_PROBLEM_CATEGORY", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Category Description" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "Reactor Category Description", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SHOW_REACT_SERVS.json b/LSL2/POPUP/SHOW_REACT_SERVS.json new file mode 100644 index 0000000..f77f15c --- /dev/null +++ b/LSL2/POPUP/SHOW_REACT_SERVS.json @@ -0,0 +1,129 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "3", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0", + "<6,1,15>": "0", + "<6,1,16>": "0" + } + }, + "<7>": "REACT_SERVS", + "<8>": "BY DESCRIPTION", + "<9>": { + "<9,1>": { + "<9,1,1>": "SERV_ID", + "<9,1,2>": "8", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "Service ID" + }, + "<9,2>": { + "<9,2,1>": "DESCRIPTION", + "<9,2,2>": "30", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Description" + }, + "<9,3>": { + "<9,3,1>": "STATUS", + "<9,3,2>": "10", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "[REACT_SERV_STATUS_CONV]", + "<9,3,6>": "Status" + }, + "<9,4>": { + "<9,4,1>": "GRAPHITE_OR_TUBE", + "<9,4,2>": "10", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "[GRAPHITE_OR_TUBE_CONV]", + "<9,4,6>": "Log Required" + }, + "<9,5>": { + "<9,5,1>": "SYS_DESC", + "<9,5,2>": "10", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "System Desc*" + }, + "<9,6>": { + "<9,6,1>": "REACT_ITEM", + "<9,6,2>": "10", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "React Item*" + }, + "<9,7>": { + "<9,7,1>": "ACTION", + "<9,7,2>": "10", + "<9,7,3>": "L", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "Action*" + }, + "<9,8>": { + "<9,8,1>": "SVC_DESC", + "<9,8,2>": "20", + "<9,8,3>": "L", + "<9,8,4>": "C", + "<9,8,5>": "", + "<9,8,6>": "Service Desc*" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "Reactor Services", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SHOW_REACT_SERV_CAT.json b/LSL2/POPUP/SHOW_REACT_SERV_CAT.json new file mode 100644 index 0000000..0a98b20 --- /dev/null +++ b/LSL2/POPUP/SHOW_REACT_SERV_CAT.json @@ -0,0 +1,74 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "REACT_SERV_CAT", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "SEQ", + "<9,1,2>": "5", + "<9,1,3>": "R", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "ID" + }, + "<9,2>": { + "<9,2,1>": "REACTOR_SERVICE_CATEGORY", + "<9,2,2>": "30", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Service Category" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "Reactor Service Categories", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SHOW_RECIPES.json b/LSL2/POPUP/SHOW_RECIPES.json new file mode 100644 index 0000000..c8ca7bf --- /dev/null +++ b/LSL2/POPUP/SHOW_RECIPES.json @@ -0,0 +1,106 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "RECIPE", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "SEQ", + "<9,1,2>": "5", + "<9,1,3>": "R", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "#" + }, + "<9,2>": { + "<9,2,1>": "RECIPE_NAME", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "Recipe Name" + }, + "<9,3>": { + "<9,3,1>": "DISKS", + "<9,3,2>": "10", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Disk(s)" + }, + "<9,4>": { + "<9,4,1>": "REACTOR_TYPES", + "<9,4,2>": "10", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Reactor Type(s)" + }, + "<9,5>": { + "<9,5,1>": "ENTRY_ID", + "<9,5,2>": "18", + "<9,5,3>": "L", + "<9,5,4>": "", + "<9,5,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,5,6>": "Entry ID" + }, + "<9,6>": { + "<9,6,1>": "ENTRY_DATE", + "<9,6,2>": "8", + "<9,6,3>": "L", + "<9,6,4>": "", + "<9,6,5>": "D2/", + "<9,6,6>": "Entry Date" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "Recipe", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "0", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SHOW_SRL_INVOICES.json b/LSL2/POPUP/SHOW_SRL_INVOICES.json new file mode 100644 index 0000000..abbfdb3 --- /dev/null +++ b/LSL2/POPUP/SHOW_SRL_INVOICES.json @@ -0,0 +1,80 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "INVOICE_SRL", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "PO", + "<9,1,2>": "12", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "PO" + }, + "<9,2>": { + "<9,2,1>": "ENTRY_ID", + "<9,2,2>": "12", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,2,6>": "Entry ID" + }, + "<9,3>": { + "<9,3,1>": "ENTRY_DATE", + "<9,3,2>": "11", + "<9,3,3>": "R", + "<9,3,4>": "C", + "<9,3,5>": "D2/", + "<9,3,6>": "Entry Date" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Invoices", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SHOW_SRL_ORDERS.json b/LSL2/POPUP/SHOW_SRL_ORDERS.json new file mode 100644 index 0000000..ebb8042 --- /dev/null +++ b/LSL2/POPUP/SHOW_SRL_ORDERS.json @@ -0,0 +1,96 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "ORDER_SRL", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "NAME_NO", + "<9,1,2>": "15", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "[XLATE_CONV,NAMES*FIRST_LAST]", + "<9,1,6>": "Name Number" + }, + "<9,2>": { + "<9,2,1>": "PO", + "<9,2,2>": "15", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "PO #" + }, + "<9,3>": { + "<9,3,1>": "ENTRY_ID", + "<9,3,2>": "15", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,3,6>": "Entry ID" + }, + "<9,4>": { + "<9,4,1>": "ENTRY_DATE", + "<9,4,2>": "11", + "<9,4,3>": "R", + "<9,4,4>": "C", + "<9,4,5>": "D2/", + "<9,4,6>": "Entry Date" + }, + "<9,5>": { + "<9,5,1>": "STATUS", + "<9,5,2>": "1", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "[ORDER_STATUS_CONV]", + "<9,5,6>": "Status" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Orders", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SHOW_SRL_QUOTES.json b/LSL2/POPUP/SHOW_SRL_QUOTES.json new file mode 100644 index 0000000..1584156 --- /dev/null +++ b/LSL2/POPUP/SHOW_SRL_QUOTES.json @@ -0,0 +1,112 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "QUOTE_SRL", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "NAME_NO", + "<9,1,2>": "15", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "[XLATE_CONV,NAMES*FIRST_LAST]", + "<9,1,6>": "Contact" + }, + "<9,2>": { + "<9,2,1>": "WAFER_DESC", + "<9,2,2>": "15", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Wafer Desc" + }, + "<9,3>": { + "<9,3,1>": "REQ_QUOTE_NUM", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "L", + "<9,3,5>": " Number", + "<9,3,6>": "Request Quote" + }, + "<9,4>": { + "<9,4,1>": "ENTRY_ID", + "<9,4,2>": "10", + "<9,4,3>": "L", + "<9,4,4>": "", + "<9,4,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,4,6>": "Entry Id" + }, + "<9,5>": { + "<9,5,1>": "ENTRY_DATE", + "<9,5,2>": "8", + "<9,5,3>": "R", + "<9,5,4>": "", + "<9,5,5>": "D2/", + "<9,5,6>": "Entry Date" + }, + "<9,6>": { + "<9,6,1>": "EXP_DATE", + "<9,6,2>": "8", + "<9,6,3>": "R", + "<9,6,4>": "", + "<9,6,5>": "D2/", + "<9,6,6>": "Exp Date" + }, + "<9,7>": { + "<9,7,1>": "STATUS", + "<9,7,2>": "8", + "<9,7,3>": "L", + "<9,7,4>": "", + "<9,7,5>": "[SRL_QUOTE_STATUS_CONV]", + "<9,7,6>": "Status" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Customer Quotes", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SHOW_TW_CODES.json b/LSL2/POPUP/SHOW_TW_CODES.json new file mode 100644 index 0000000..d6609f1 --- /dev/null +++ b/LSL2/POPUP/SHOW_TW_CODES.json @@ -0,0 +1,94 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "TW_CODES", + "<8>": "WITH NON_PROD = 0 BY SEQ", + "<9>": { + "<9,1>": { + "<9,1,1>": "SEQ", + "<9,1,2>": "5", + "<9,1,3>": "R", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "ID" + }, + "<9,2>": { + "<9,2,1>": "DESC", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Description" + }, + "<9,3>": { + "<9,3,1>": "ENTRY_ID", + "<9,3,2>": "18", + "<9,3,3>": "L", + "<9,3,4>": "", + "<9,3,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,3,6>": "Entry ID" + }, + "<9,4>": { + "<9,4,1>": "ENTRY_DATE", + "<9,4,2>": "8", + "<9,4,3>": "L", + "<9,4,4>": "", + "<9,4,5>": "D2/", + "<9,4,6>": "Entry Date" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "Test Wafer Codes", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SHOW_USERS.json b/LSL2/POPUP/SHOW_USERS.json new file mode 100644 index 0000000..ddc1fa8 --- /dev/null +++ b/LSL2/POPUP/SHOW_USERS.json @@ -0,0 +1,89 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-13", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "3", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0", + "<6,1,15>": "0", + "<6,1,16>": "0" + } + }, + "<7>": "LSL_USERS", + "<8>": "BY-DSND ACTIVE BY FIRST BY LAST", + "<9>": { + "<9,1>": { + "<9,1,1>": "FIRST", + "<9,1,2>": "12", + "<9,1,3>": "L", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "First Name" + }, + "<9,2>": { + "<9,2,1>": "LAST", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Last Name" + }, + "<9,3>": { + "<9,3,1>": "ACTIVE", + "<9,3,2>": "3", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "B", + "<9,3,6>": "Active" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "LSL Users", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "15004644", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SHOW_USERS_SINGLE.json b/LSL2/POPUP/SHOW_USERS_SINGLE.json new file mode 100644 index 0000000..c9cf238 --- /dev/null +++ b/LSL2/POPUP/SHOW_USERS_SINGLE.json @@ -0,0 +1,74 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "LSL_USERS", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "LAST", + "<9,1,2>": "12", + "<9,1,3>": "L", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Last Name" + }, + "<9,2>": { + "<9,2,1>": "FIRST", + "<9,2,2>": "12", + "<9,2,3>": "L", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "First Name" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "LSL Users", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SHOW_WAF_INV.json b/LSL2/POPUP/SHOW_WAF_INV.json new file mode 100644 index 0000000..0c7065b --- /dev/null +++ b/LSL2/POPUP/SHOW_WAF_INV.json @@ -0,0 +1,112 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "WAFER_INV", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "PACKING_NO", + "<9,1,2>": "10", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Packing No" + }, + "<9,2>": { + "<9,2,1>": "MFG", + "<9,2,2>": "15", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Manufacturer" + }, + "<9,3>": { + "<9,3,1>": "MFG_SPEC_NO", + "<9,3,2>": "10", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Mfg Spec No" + }, + "<9,4>": { + "<9,4,1>": "MFG_SALES_ORD", + "<9,4,2>": "10", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Mfg SO#" + }, + "<9,5>": { + "<9,5,1>": "CUST_PO_MFG", + "<9,5,2>": "10", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Cust PO to Mfg" + }, + "<9,6>": { + "<9,6,1>": "ENTRY_ID", + "<9,6,2>": "12", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,6,6>": "Entry ID" + }, + "<9,7>": { + "<9,7,1>": "ENTRY_DATE", + "<9,7,2>": "11", + "<9,7,3>": "R", + "<9,7,4>": "C", + "<9,7,5>": "D2/", + "<9,7,6>": "Entry Date" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Wafer Inventory", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SIG_PROFILE.json b/LSL2/POPUP/SIG_PROFILE.json new file mode 100644 index 0000000..22e17a2 --- /dev/null +++ b/LSL2/POPUP/SIG_PROFILE.json @@ -0,0 +1,97 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "12", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Sig Profile" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "16", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Signature" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "20", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Signature DTM" + }, + "<9,4>": { + "<9,4,1>": "", + "<9,4,2>": "", + "<9,4,3>": "", + "<9,4,4>": "", + "<9,4,5>": "", + "<9,4,6>": "" + } + }, + "<10>": "L", + "<11>": "0", + "<12>": "Signature Profile", + "<13>": "", + "<14>": "R", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SIG_PROF_KEYS.json b/LSL2/POPUP/SIG_PROF_KEYS.json new file mode 100644 index 0000000..8610c75 --- /dev/null +++ b/LSL2/POPUP/SIG_PROF_KEYS.json @@ -0,0 +1,250 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "VER", + "<8,1,2>": "Verified" + }, + "<8,2>": { + "<8,2,1>": "PREC", + "<8,2,2>": "PreEpi Clean" + }, + "<8,3>": { + "<8,3,1>": "PREI", + "<8,3,2>": "PreEpi Inspection" + }, + "<8,4>": { + "<8,4,1>": "PRES", + "<8,4,2>": "PreEpi SurfScan" + }, + "<8,5>": { + "<8,5,1>": "LOAD", + "<8,5,2>": "Reactor Load" + }, + "<8,6>": { + "<8,6,1>": "FWII", + "<8,6,2>": "First Wafer Inspection" + }, + "<8,7>": { + "<8,7,1>": "FWIS", + "<8,7,2>": "First Wafer SurfScan" + }, + "<8,8>": { + "<8,8,1>": "UNLOAD", + "<8,8,2>": "Reactor Unload" + }, + "<8,9>": { + "<8,9,1>": "LWII", + "<8,9,2>": "Last Wafer Inspection" + }, + "<8,10>": { + "<8,10,1>": "LWIS", + "<8,10,2>": "LastWafer Surfscan" + }, + "<8,11>": { + "<8,11,1>": "PSTC", + "<8,11,2>": "PostEpi Clean" + }, + "<8,12>": { + "<8,12,1>": "PSTI", + "<8,12,2>": "PostEpi Inspection" + }, + "<8,13>": { + "<8,13,1>": "PSTS", + "<8,13,2>": "PostEpi SurfScan" + }, + "<8,14>": { + "<8,14,1>": "QA", + "<8,14,2>": "Final QA Verification" + }, + "<8,15>": { + "<8,15,1>": "MO_PSTC", + "<8,15,2>": "WMOut Post Clean" + }, + "<8,16>": { + "<8,16,1>": "MO_PSTI", + "<8,16,2>": "WMOut Post Inspection" + }, + "<8,17>": { + "<8,17,1>": "MO_PSTS", + "<8,17,2>": "WMOut Post SurfScan" + }, + "<8,18>": { + "<8,18,1>": "MO_QA", + "<8,18,2>": "WMOut Final QA Verification" + }, + "<8,19>": { + "<8,19,1>": "WFRI", + "<8,19,2>": "Wafer Inspection*" + }, + "<8,20>": { + "<8,20,1>": "WFRS", + "<8,20,2>": "Wafer Surfscan*" + }, + "<8,21>": { + "<8,21,1>": "G_RDS", + "<8,21,2>": "Lot Start" + }, + "<8,22>": { + "<8,22,1>": "CTRL_PLAN", + "<8,22,2>": "Start Control Plan" + }, + "<8,23>": { + "<8,23,1>": "ETCH", + "<8,23,2>": "Etch" + }, + "<8,24>": { + "<8,24,1>": "GROWTH", + "<8,24,2>": "Epi Deposition" + }, + "<8,25>": { + "<8,25,1>": "G_RATE", + "<8,25,2>": "Growth Rate Review" + }, + "<8,26>": { + "<8,26,1>": "UV", + "<8,26,2>": "UV Lamp" + }, + "<8,27>": { + "<8,27,1>": "WARP", + "<8,27,2>": "Warp" + }, + "<8,28>": { + "<8,28,1>": "CAN", + "<8,28,2>": "Candela Wafer Scan" + }, + "<8,29>": { + "<8,29,1>": "SPLIT", + "<8,29,2>": "Characterization Split" + }, + "<8,30>": { + "<8,30,1>": "XRD", + "<8,30,2>": "XRD" + }, + "<8,31>": { + "<8,31,1>": "AFM", + "<8,31,2>": "AFM" + }, + "<8,32>": { + "<8,32,1>": "RPM", + "<8,32,2>": "RPM" + }, + "<8,33>": { + "<8,33,1>": "PR", + "<8,33,2>": "Photoreflectance" + }, + "<8,34>": { + "<8,34,1>": "LEH", + "<8,34,2>": "LEH" + }, + "<8,35>": { + "<8,35,1>": "CV", + "<8,35,2>": "CV-HG Probe" + }, + "<8,36>": { + "<8,36,1>": "HALL", + "<8,36,2>": "Hall Coefficient Measur" + }, + "<8,37>": { + "<8,37,1>": "EBEAM", + "<8,37,2>": "eBeam" + }, + "<8,38>": { + "<8,38,1>": "RTA", + "<8,38,2>": "RTA" + }, + "<8,39>": { + "<8,39,1>": "BV", + "<8,39,2>": "BV" + }, + "<8,40>": { + "<8,40,1>": "DISP", + "<8,40,2>": "Wafer Disposition" + }, + "<8,41>": { + "<8,41,1>": "G_PACK", + "<8,41,2>": "Package Wafers" + }, + "<8,42>": { + "<8,42,1>": "G_FQA", + "<8,42,2>": "Final QA" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Sig Prof Key" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Description" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Signature Profile Keys", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SINGLE_COLUMN.json b/LSL2/POPUP/SINGLE_COLUMN.json new file mode 100644 index 0000000..addf7c1 --- /dev/null +++ b/LSL2/POPUP/SINGLE_COLUMN.json @@ -0,0 +1,73 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Value" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Single Column", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SPC_CLEAN_HF_AKRION_QUERY.json b/LSL2/POPUP/SPC_CLEAN_HF_AKRION_QUERY.json new file mode 100644 index 0000000..58d2f5c --- /dev/null +++ b/LSL2/POPUP/SPC_CLEAN_HF_AKRION_QUERY.json @@ -0,0 +1,106 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "SPC_CLEAN_HF_AKRION", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "TEST_TYPE", + "<9,1,2>": "10", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Test Type" + }, + "<9,2>": { + "<9,2,1>": "SHIFT", + "<9,2,2>": "5", + "<9,2,3>": "R", + "<9,2,4>": "C", + "<9,2,5>": "MD0", + "<9,2,6>": "Shift" + }, + "<9,3>": { + "<9,3,1>": "TECH_SIG_NAME", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Tech Sig Name" + }, + "<9,4>": { + "<9,4,1>": "DATE_TESTED", + "<9,4,2>": "11", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "D2/", + "<9,4,6>": "Date Tested" + }, + "<9,5>": { + "<9,5,1>": "TIME_TESTED", + "<9,5,2>": "10", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "MTH", + "<9,5,6>": "Time Tested" + }, + "<9,6>": { + "<9,6,1>": "DELTA", + "<9,6,2>": "5", + "<9,6,3>": "R", + "<9,6,4>": "C", + "<9,6,5>": "MD0", + "<9,6,6>": "Delta" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Akrion HF SPC Control", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SPC_CLEAN_HF_ETCH_AKRION_QUERY.json b/LSL2/POPUP/SPC_CLEAN_HF_ETCH_AKRION_QUERY.json new file mode 100644 index 0000000..746006f --- /dev/null +++ b/LSL2/POPUP/SPC_CLEAN_HF_ETCH_AKRION_QUERY.json @@ -0,0 +1,98 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "SPC_CLEAN_HF_ETCH_AKRION", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "SHIFT", + "<9,1,2>": "5", + "<9,1,3>": "R", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "Shift" + }, + "<9,2>": { + "<9,2,1>": "TECH_SIG_NAME", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Tech Sig Name" + }, + "<9,3>": { + "<9,3,1>": "DATE_TESTED", + "<9,3,2>": "11", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "D2/", + "<9,3,6>": "Date Tested" + }, + "<9,4>": { + "<9,4,1>": "TIME_TESTED", + "<9,4,2>": "10", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "MTH", + "<9,4,6>": "Time Tested" + }, + "<9,5>": { + "<9,5,1>": "DELTA", + "<9,5,2>": "5", + "<9,5,3>": "R", + "<9,5,4>": "C", + "<9,5,5>": "MD0", + "<9,5,6>": "Delta" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Akrion HF Etch SPC Control", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SPC_CLEAN_HF_ETCH_QUERY.json b/LSL2/POPUP/SPC_CLEAN_HF_ETCH_QUERY.json new file mode 100644 index 0000000..3c4cc30 --- /dev/null +++ b/LSL2/POPUP/SPC_CLEAN_HF_ETCH_QUERY.json @@ -0,0 +1,98 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "SPC_CLEAN_HF_ETCH", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "SHIFT", + "<9,1,2>": "5", + "<9,1,3>": "R", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "Shift" + }, + "<9,2>": { + "<9,2,1>": "TECH_SIG_NAME", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Tech Sig Name" + }, + "<9,3>": { + "<9,3,1>": "DATE_TESTED", + "<9,3,2>": "11", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "D2/", + "<9,3,6>": "Date Tested" + }, + "<9,4>": { + "<9,4,1>": "TIME_TESTED", + "<9,4,2>": "10", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "MTH", + "<9,4,6>": "Time Tested" + }, + "<9,5>": { + "<9,5,1>": "DELTA", + "<9,5,2>": "5", + "<9,5,3>": "R", + "<9,5,4>": "C", + "<9,5,5>": "MD0", + "<9,5,6>": "Delta" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "HF Etch SPC Control", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SPC_CLEAN_HF_QUERY.json b/LSL2/POPUP/SPC_CLEAN_HF_QUERY.json new file mode 100644 index 0000000..efe368f --- /dev/null +++ b/LSL2/POPUP/SPC_CLEAN_HF_QUERY.json @@ -0,0 +1,106 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "SPC_CLEAN_HF", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "CODE", + "<9,1,2>": "5", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "SHIFT", + "<9,2,2>": "5", + "<9,2,3>": "R", + "<9,2,4>": "C", + "<9,2,5>": "MD0", + "<9,2,6>": "Shift" + }, + "<9,3>": { + "<9,3,1>": "TECH_SIG_NAME", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Tech Sig Name" + }, + "<9,4>": { + "<9,4,1>": "DATE_TESTED", + "<9,4,2>": "11", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "D2/", + "<9,4,6>": "Date Tested" + }, + "<9,5>": { + "<9,5,1>": "TIME_TESTED", + "<9,5,2>": "10", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "MTH", + "<9,5,6>": "Time Tested" + }, + "<9,6>": { + "<9,6,1>": "DELTA", + "<9,6,2>": "5", + "<9,6,3>": "R", + "<9,6,4>": "C", + "<9,6,5>": "MD0", + "<9,6,6>": "Delta" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "HF SPC Control", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SPC_CLEAN_SC1_QUERY.json b/LSL2/POPUP/SPC_CLEAN_SC1_QUERY.json new file mode 100644 index 0000000..eba7172 --- /dev/null +++ b/LSL2/POPUP/SPC_CLEAN_SC1_QUERY.json @@ -0,0 +1,106 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "SPC_CLEAN_SC1", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "CODE", + "<9,1,2>": "5", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "SHIFT", + "<9,2,2>": "5", + "<9,2,3>": "R", + "<9,2,4>": "C", + "<9,2,5>": "MD0", + "<9,2,6>": "Shift" + }, + "<9,3>": { + "<9,3,1>": "TECH_SIG_NAME", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Tech Sig Name" + }, + "<9,4>": { + "<9,4,1>": "DATE_TESTED", + "<9,4,2>": "11", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "D2/", + "<9,4,6>": "Date Tested" + }, + "<9,5>": { + "<9,5,1>": "TIME_TESTED", + "<9,5,2>": "10", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "MTH", + "<9,5,6>": "Time Tested" + }, + "<9,6>": { + "<9,6,1>": "DELTA", + "<9,6,2>": "5", + "<9,6,3>": "R", + "<9,6,4>": "C", + "<9,6,5>": "MD0", + "<9,6,6>": "Delta" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "SC1 SPC Control", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SPC_CLEAN_SRD_QUERY.json b/LSL2/POPUP/SPC_CLEAN_SRD_QUERY.json new file mode 100644 index 0000000..24c82b8 --- /dev/null +++ b/LSL2/POPUP/SPC_CLEAN_SRD_QUERY.json @@ -0,0 +1,106 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "SPC_CLEAN_SRD", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "SRD", + "<9,1,2>": "5", + "<9,1,3>": "R", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "SRD#" + }, + "<9,2>": { + "<9,2,1>": "SHIFT", + "<9,2,2>": "5", + "<9,2,3>": "R", + "<9,2,4>": "C", + "<9,2,5>": "MD0", + "<9,2,6>": "Shift" + }, + "<9,3>": { + "<9,3,1>": "TECH_SIG_NAME", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Tech Sig Name" + }, + "<9,4>": { + "<9,4,1>": "DATE_TESTED", + "<9,4,2>": "11", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "D2/", + "<9,4,6>": "Date Tested" + }, + "<9,5>": { + "<9,5,1>": "TIME_TESTED", + "<9,5,2>": "10", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "MTH", + "<9,5,6>": "Time Tested" + }, + "<9,6>": { + "<9,6,1>": "DELTA", + "<9,6,2>": "5", + "<9,6,3>": "R", + "<9,6,4>": "C", + "<9,6,5>": "MD0", + "<9,6,6>": "Delta" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "SRD SPC Control", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SPC_EVAL_4PP_QUERY.json b/LSL2/POPUP/SPC_EVAL_4PP_QUERY.json new file mode 100644 index 0000000..ed0660c --- /dev/null +++ b/LSL2/POPUP/SPC_EVAL_4PP_QUERY.json @@ -0,0 +1,122 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "SPC_EVAL_4PP", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "SHIFT", + "<9,1,2>": "5", + "<9,1,3>": "R", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "Shift" + }, + "<9,2>": { + "<9,2,1>": "TOOL_NUMBER", + "<9,2,2>": "5", + "<9,2,3>": "R", + "<9,2,4>": "C", + "<9,2,5>": "MD0", + "<9,2,6>": "Tool" + }, + "<9,3>": { + "<9,3,1>": "RANGE", + "<9,3,2>": "5", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Range" + }, + "<9,4>": { + "<9,4,1>": "TECH_SIG_NAME", + "<9,4,2>": "20", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Tech Sig Name" + }, + "<9,5>": { + "<9,5,1>": "DATE_TESTED", + "<9,5,2>": "11", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "D2/", + "<9,5,6>": "Date Tested" + }, + "<9,6>": { + "<9,6,1>": "TIME_TESTED", + "<9,6,2>": "10", + "<9,6,3>": "C", + "<9,6,4>": "C", + "<9,6,5>": "MTH", + "<9,6,6>": "Time Tested" + }, + "<9,7>": { + "<9,7,1>": "SHEET_RHO", + "<9,7,2>": "10", + "<9,7,3>": "R", + "<9,7,4>": "C", + "<9,7,5>": "MD0", + "<9,7,6>": "Sheet RHO" + }, + "<9,8>": { + "<9,8,1>": "STDEV", + "<9,8,2>": "10", + "<9,8,3>": "R", + "<9,8,4>": "C", + "<9,8,5>": "MD3", + "<9,8,6>": "StDev" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "4PP SPC Control", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SPC_EVAL_FTIR_QUERY.json b/LSL2/POPUP/SPC_EVAL_FTIR_QUERY.json new file mode 100644 index 0000000..34e89d1 --- /dev/null +++ b/LSL2/POPUP/SPC_EVAL_FTIR_QUERY.json @@ -0,0 +1,122 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "SPC_EVAL_FTIR", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "SHIFT", + "<9,1,2>": "5", + "<9,1,3>": "R", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "Shift" + }, + "<9,2>": { + "<9,2,1>": "TOOL_NUMBER", + "<9,2,2>": "5", + "<9,2,3>": "R", + "<9,2,4>": "C", + "<9,2,5>": "MD0", + "<9,2,6>": "Tool" + }, + "<9,3>": { + "<9,3,1>": "RANGE", + "<9,3,2>": "5", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Range" + }, + "<9,4>": { + "<9,4,1>": "TECH_SIG_NAME", + "<9,4,2>": "20", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Tech Sig Name" + }, + "<9,5>": { + "<9,5,1>": "DATE_TESTED", + "<9,5,2>": "11", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "D2/", + "<9,5,6>": "Date Tested" + }, + "<9,6>": { + "<9,6,1>": "TIME_TESTED", + "<9,6,2>": "10", + "<9,6,3>": "C", + "<9,6,4>": "C", + "<9,6,5>": "MTH", + "<9,6,6>": "Time Tested" + }, + "<9,7>": { + "<9,7,1>": "THICK", + "<9,7,2>": "10", + "<9,7,3>": "R", + "<9,7,4>": "C", + "<9,7,5>": "MD3", + "<9,7,6>": "Thick" + }, + "<9,8>": { + "<9,8,1>": "STDEV", + "<9,8,2>": "10", + "<9,8,3>": "R", + "<9,8,4>": "C", + "<9,8,5>": "MD3", + "<9,8,6>": "StDev" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "FTIR SPC Control", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SPC_OCAP_CFG.json b/LSL2/POPUP/SPC_OCAP_CFG.json new file mode 100644 index 0000000..cfe9df6 --- /dev/null +++ b/LSL2/POPUP/SPC_OCAP_CFG.json @@ -0,0 +1,66 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "CONFIG", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "ID", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "ID" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "SPC OCAP Config", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SPC_REACTOR_PARTICLES_QUERY.json b/LSL2/POPUP/SPC_REACTOR_PARTICLES_QUERY.json new file mode 100644 index 0000000..464a8f3 --- /dev/null +++ b/LSL2/POPUP/SPC_REACTOR_PARTICLES_QUERY.json @@ -0,0 +1,114 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "SPC_REACTOR_PARTICLES", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "REACTOR", + "<9,1,2>": "5", + "<9,1,3>": "R", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "Reactor" + }, + "<9,2>": { + "<9,2,1>": "SHIFT", + "<9,2,2>": "5", + "<9,2,3>": "R", + "<9,2,4>": "C", + "<9,2,5>": "MD0", + "<9,2,6>": "Shift" + }, + "<9,3>": { + "<9,3,1>": "TECH_SIG_NAME", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Tech Sig Name" + }, + "<9,4>": { + "<9,4,1>": "DATE_TESTED", + "<9,4,2>": "11", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "D2/", + "<9,4,6>": "Date Tested" + }, + "<9,5>": { + "<9,5,1>": "TIME_TESTED", + "<9,5,2>": "10", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "MTH", + "<9,5,6>": "Time Tested" + }, + "<9,6>": { + "<9,6,1>": "DELTA", + "<9,6,2>": "5", + "<9,6,3>": "R", + "<9,6,4>": "C", + "<9,6,5>": "MD0", + "<9,6,6>": "Delta" + }, + "<9,7>": { + "<9,7,1>": "HAZE", + "<9,7,2>": "5", + "<9,7,3>": "R", + "<9,7,4>": "C", + "<9,7,5>": "MD2", + "<9,7,6>": "Haze" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Reactor Particles Query", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SPC_WAFER_ETCH_QUERY.json b/LSL2/POPUP/SPC_WAFER_ETCH_QUERY.json new file mode 100644 index 0000000..3a971f0 --- /dev/null +++ b/LSL2/POPUP/SPC_WAFER_ETCH_QUERY.json @@ -0,0 +1,106 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "SPC_WAFER_ETCH", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "REACTOR", + "<9,1,2>": "5", + "<9,1,3>": "R", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "Reactor" + }, + "<9,2>": { + "<9,2,1>": "SHIFT", + "<9,2,2>": "5", + "<9,2,3>": "R", + "<9,2,4>": "C", + "<9,2,5>": "MD0", + "<9,2,6>": "Shift" + }, + "<9,3>": { + "<9,3,1>": "TECH_SIG_NAME", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Tech Sig Name" + }, + "<9,4>": { + "<9,4,1>": "DATE_TESTED", + "<9,4,2>": "11", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "D2/", + "<9,4,6>": "Date Tested" + }, + "<9,5>": { + "<9,5,1>": "TIME_TESTED", + "<9,5,2>": "10", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "MTH", + "<9,5,6>": "Time Tested" + }, + "<9,6>": { + "<9,6,1>": "DELTA", + "<9,6,2>": "5", + "<9,6,3>": "R", + "<9,6,4>": "C", + "<9,6,5>": "MD3", + "<9,6,6>": "Delta" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Wafer Etch SPC Control", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SRPT_CFG.json b/LSL2/POPUP/SRPT_CFG.json new file mode 100644 index 0000000..363aa3a --- /dev/null +++ b/LSL2/POPUP/SRPT_CFG.json @@ -0,0 +1,66 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "CONFIG", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "ID", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "ID" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "SRPT Config", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SRPT_DICTS.json b/LSL2/POPUP/SRPT_DICTS.json new file mode 100644 index 0000000..7cc16d6 --- /dev/null +++ b/LSL2/POPUP/SRPT_DICTS.json @@ -0,0 +1,66 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "25", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Column" + } + }, + "<10>": "L", + "<11>": "3", + "<12>": "Columns", + "<13>": "", + "<14>": "E", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SRP_COC_RESULTS_QUERY.json b/LSL2/POPUP/SRP_COC_RESULTS_QUERY.json new file mode 100644 index 0000000..b360fde --- /dev/null +++ b/LSL2/POPUP/SRP_COC_RESULTS_QUERY.json @@ -0,0 +1,114 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "SRP_COC_RESULTS", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "CUST_NAME", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Customer Name" + }, + "<9,2>": { + "<9,2,1>": "REACTOR", + "<9,2,2>": "5", + "<9,2,3>": "R", + "<9,2,4>": "C", + "<9,2,5>": "MD0", + "<9,2,6>": "Reactor" + }, + "<9,3>": { + "<9,3,1>": "ENTRY_ID", + "<9,3,2>": "15", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,3,6>": "Entry ID" + }, + "<9,4>": { + "<9,4,1>": "SRP_DATE", + "<9,4,2>": "8", + "<9,4,3>": "R", + "<9,4,4>": "C", + "<9,4,5>": "D2/", + "<9,4,6>": "SRP Date" + }, + "<9,5>": { + "<9,5,1>": "THICK", + "<9,5,2>": "8", + "<9,5,3>": "R", + "<9,5,4>": "C", + "<9,5,5>": "MD2", + "<9,5,6>": "Thick" + }, + "<9,6>": { + "<9,6,1>": "CON", + "<9,6,2>": "8", + "<9,6,3>": "R", + "<9,6,4>": "C", + "<9,6,5>": "MS21", + "<9,6,6>": "Con" + }, + "<9,7>": { + "<9,7,1>": "TRANS", + "<9,7,2>": "8", + "<9,7,3>": "R", + "<9,7,4>": "C", + "<9,7,5>": "MD2", + "<9,7,6>": "Trans" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "SRP COC Results Query", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SRP_INCOMING_LOG_QUERY.json b/LSL2/POPUP/SRP_INCOMING_LOG_QUERY.json new file mode 100644 index 0000000..d1e44ed --- /dev/null +++ b/LSL2/POPUP/SRP_INCOMING_LOG_QUERY.json @@ -0,0 +1,90 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "SRP_INCOMING_LOG", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "DATE", + "<9,1,2>": "11", + "<9,1,3>": "R", + "<9,1,4>": "C", + "<9,1,5>": "D2/", + "<9,1,6>": "Date" + }, + "<9,2>": { + "<9,2,1>": "CUST_NAME", + "<9,2,2>": "30", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Customer Name" + }, + "<9,3>": { + "<9,3,1>": "WAFER_TYPE", + "<9,3,2>": "15", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Wafer Type" + }, + "<9,4>": { + "<9,4,1>": "ENG_SIG", + "<9,4,2>": "15", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,4,6>": "Engineer" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "SRP Incoming Log Report", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SRP_PROFILES.json b/LSL2/POPUP/SRP_PROFILES.json new file mode 100644 index 0000000..2f6a1b4 --- /dev/null +++ b/LSL2/POPUP/SRP_PROFILES.json @@ -0,0 +1,77 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "Profile 1", + "<8,2>": "New" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "9", + "<9,1,3>": "L", + "<9,1,4>": "L", + "<9,1,5>": "", + "<9,1,6>": "Profile" + }, + "<9,2>": { + "<9,2,1>": "", + "<9,2,2>": "", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "SRP Profiles", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/STAGE.json b/LSL2/POPUP/STAGE.json new file mode 100644 index 0000000..3f2e0a9 --- /dev/null +++ b/LSL2/POPUP/STAGE.json @@ -0,0 +1,308 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "PRE", + "<8,1,2>": "Pre Epi", + "<8,1,3>": "ASM" + }, + "<8,2>": { + "<8,2,1>": "LOAD", + "<8,2,2>": "Load", + "<8,2,3>": "ASM" + }, + "<8,3>": { + "<8,3,1>": "FWI", + "<8,3,2>": "First Wafer", + "<8,3,3>": "ASM" + }, + "<8,4>": { + "<8,4,1>": "UNLOAD", + "<8,4,2>": "Unload", + "<8,4,3>": "ASM" + }, + "<8,5>": { + "<8,5,1>": "LWI", + "<8,5,2>": "Last Wafer", + "<8,5,3>": "ASM" + }, + "<8,6>": { + "<8,6,1>": "POST", + "<8,6,2>": "Post Epi", + "<8,6,3>": "ASM" + }, + "<8,7>": { + "<8,7,1>": "QA", + "<8,7,2>": "FQA", + "<8,7,3>": "ASM" + }, + "<8,8>": { + "<8,8,1>": "MO_QA", + "<8,8,2>": "Cassette QA", + "<8,8,3>": "EpiPRO" + }, + "<8,9>": { + "<8,9,1>": "G_RDS", + "<8,9,2>": "Lot Start_Create RDS", + "<8,9,3>": "GaN", + "<8,9,4>": "" + }, + "<8,10>": { + "<8,10,1>": "ETCH", + "<8,10,2>": "Etch", + "<8,10,3>": "GaN", + "<8,10,4>": "" + }, + "<8,11>": { + "<8,11,1>": "GROWTH", + "<8,11,2>": "Epi Deposition", + "<8,11,3>": "GaN", + "<8,11,4>": "" + }, + "<8,12>": { + "<8,12,1>": "G_RATE", + "<8,12,2>": "Growth Rate Review", + "<8,12,3>": "GaN", + "<8,12,4>": "" + }, + "<8,13>": { + "<8,13,1>": "UV", + "<8,13,2>": "UV Lamp", + "<8,13,3>": "GaN", + "<8,13,4>": "1" + }, + "<8,14>": { + "<8,14,1>": "WARP", + "<8,14,2>": "Warp", + "<8,14,3>": "GaN", + "<8,14,4>": "1" + }, + "<8,15>": { + "<8,15,1>": "CAN", + "<8,15,2>": "Candela Scan", + "<8,15,3>": "GaN", + "<8,15,4>": "1" + }, + "<8,16>": { + "<8,16,1>": "SPLIT", + "<8,16,2>": "Characterization Split", + "<8,16,3>": "GaN", + "<8,16,4>": "1" + }, + "<8,17>": { + "<8,17,1>": "LEH", + "<8,17,2>": "LEH", + "<8,17,3>": "GaN", + "<8,17,4>": "1" + }, + "<8,18>": { + "<8,18,1>": "XRD", + "<8,18,2>": "XRD", + "<8,18,3>": "GaN", + "<8,18,4>": "1" + }, + "<8,19>": { + "<8,19,1>": "AFM", + "<8,19,2>": "AFM", + "<8,19,3>": "GaN", + "<8,19,4>": "1" + }, + "<8,20>": { + "<8,20,1>": "RPM", + "<8,20,2>": "RPM", + "<8,20,3>": "GaN", + "<8,20,4>": "1" + }, + "<8,21>": { + "<8,21,1>": "PR", + "<8,21,2>": "Photoreflectance", + "<8,21,3>": "GaN", + "<8,21,4>": "1" + }, + "<8,22>": { + "<8,22,1>": "SCOPE", + "<8,22,2>": "Microscope", + "<8,22,3>": "GaN", + "<8,22,4>": "1" + }, + "<8,23>": { + "<8,23,1>": "RTA", + "<8,23,2>": "RTA", + "<8,23,3>": "GaN", + "<8,23,4>": "1" + }, + "<8,24>": { + "<8,24,1>": "CV", + "<8,24,2>": "CV-HG Probe", + "<8,24,3>": "GaN", + "<8,24,4>": "1" + }, + "<8,25>": { + "<8,25,1>": "HALL", + "<8,25,2>": "Hall Coefficient Measure", + "<8,25,3>": "GaN", + "<8,25,4>": "1" + }, + "<8,26>": { + "<8,26,1>": "EBEAM", + "<8,26,2>": "eBeam", + "<8,26,3>": "GaN", + "<8,26,4>": "1" + }, + "<8,27>": { + "<8,27,1>": "RTA_HALL", + "<8,27,2>": "RTA_HALL", + "<8,27,3>": "GaN", + "<8,27,4>": "1" + }, + "<8,28>": { + "<8,28,1>": "HALL_PGAN", + "<8,28,2>": "Hall PGaN Measure", + "<8,28,3>": "GaN", + "<8,28,4>": "1" + }, + "<8,29>": { + "<8,29,1>": "BV", + "<8,29,2>": "BV", + "<8,29,3>": "GaN", + "<8,29,4>": "1" + }, + "<8,30>": { + "<8,30,1>": "FRINGE", + "<8,30,2>": "Fringe", + "<8,30,3>": "GaN", + "<8,30,4>": "1" + }, + "<8,31>": { + "<8,31,1>": "CTRL_PLAN", + "<8,31,2>": "Start Control Plan", + "<8,31,3>": "GaN", + "<8,31,4>": "1" + }, + "<8,32>": { + "<8,32,1>": "DISP", + "<8,32,2>": "Wafer Disposition", + "<8,32,3>": "GaN", + "<8,32,4>": "1" + }, + "<8,33>": { + "<8,33,1>": "G_FQA", + "<8,33,2>": "Final QA", + "<8,33,3>": "GaN", + "<8,33,4>": "1" + }, + "<8,34>": { + "<8,34,1>": "G_PACK", + "<8,34,2>": "Package", + "<8,34,3>": "GaN", + "<8,34,4>": "1" + }, + "<8,35>": { + "<8,35,1>": "RETAIN", + "<8,35,2>": "Retain Wafers", + "<8,35,3>": "GaN", + "<8,35,4>": "1" + }, + "<8,36>": "", + "<8,37>": "" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "12", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "L", + "<9,2,5>": "", + "<9,2,6>": "Stage Description" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "10", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Process" + }, + "<9,4>": { + "<9,4,1>": "4", + "<9,4,2>": "8", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "CharTech" + }, + "<9,5>": { + "<9,5,1>": "", + "<9,5,2>": "", + "<9,5,3>": "", + "<9,5,4>": "", + "<9,5,5>": "", + "<9,5,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Stage", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SUBSTRATE_PART_NO.json b/LSL2/POPUP/SUBSTRATE_PART_NO.json new file mode 100644 index 0000000..207178c --- /dev/null +++ b/LSL2/POPUP/SUBSTRATE_PART_NO.json @@ -0,0 +1,77 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "", + "<8,2>": "" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Part Number" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Manufacturer" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Substrate Part Numbers", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SUBSTRATE_SIZE.json b/LSL2/POPUP/SUBSTRATE_SIZE.json new file mode 100644 index 0000000..ad28bec --- /dev/null +++ b/LSL2/POPUP/SUBSTRATE_SIZE.json @@ -0,0 +1,102 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "3", + "<8,1,2>": "75 mm 3 in" + }, + "<8,2>": { + "<8,2,1>": "4", + "<8,2,2>": "100 mm 4 in" + }, + "<8,3>": { + "<8,3,1>": "5", + "<8,3,2>": "125 mm 5 in" + }, + "<8,4>": { + "<8,4,1>": "6", + "<8,4,2>": "150 mm 6 in" + }, + "<8,5>": { + "<8,5,1>": "8", + "<8,5,2>": "200 mm 8 in" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "12", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Desc" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Substrate Sizes", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SUB_PART_SELECT.json b/LSL2/POPUP/SUB_PART_SELECT.json new file mode 100644 index 0000000..b154958 --- /dev/null +++ b/LSL2/POPUP/SUB_PART_SELECT.json @@ -0,0 +1,89 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Sub Part No" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "10", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Sub Description" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Select Sub Part No", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SUB_REC_LOG_QUERY.json b/LSL2/POPUP/SUB_REC_LOG_QUERY.json new file mode 100644 index 0000000..85e9228 --- /dev/null +++ b/LSL2/POPUP/SUB_REC_LOG_QUERY.json @@ -0,0 +1,106 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "SUB_REC_LOG", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "DATE_REC", + "<9,1,2>": "11", + "<9,1,3>": "R", + "<9,1,4>": "C", + "<9,1,5>": "D2/", + "<9,1,6>": "Date Rec'd" + }, + "<9,2>": { + "<9,2,1>": "CUST_NAME", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Customer Name" + }, + "<9,3>": { + "<9,3,1>": "VENDOR", + "<9,3,2>": "15", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Vendor" + }, + "<9,4>": { + "<9,4,1>": "RECEIVER_SIG", + "<9,4,2>": "15", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,4,6>": "Received By" + }, + "<9,5>": { + "<9,5,1>": "SUBSTRATES", + "<9,5,2>": "6", + "<9,5,3>": "R", + "<9,5,4>": "C", + "<9,5,5>": "MD0", + "<9,5,6>": "Cnt" + }, + "<9,6>": { + "<9,6,1>": "PASS_FAIL", + "<9,6,2>": "10", + "<9,6,3>": "C", + "<9,6,4>": "C", + "<9,6,5>": "[SUB_REC_PASS_FAIL_CONV]", + "<9,6,6>": "Pass/FAil" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Substrate Receiving Log Report", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SURF_SCAN_RECIPES.json b/LSL2/POPUP/SURF_SCAN_RECIPES.json new file mode 100644 index 0000000..379fced --- /dev/null +++ b/LSL2/POPUP/SURF_SCAN_RECIPES.json @@ -0,0 +1,73 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Recipe" + } + }, + "<10>": "L", + "<11>": "2", + "<12>": "SurfScan Recipes", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SURF_SCAN_TOOL.json b/LSL2/POPUP/SURF_SCAN_TOOL.json new file mode 100644 index 0000000..5c13935 --- /dev/null +++ b/LSL2/POPUP/SURF_SCAN_TOOL.json @@ -0,0 +1,72 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "SURF_SCAN_TOOL", + "<8>": "BY @ID", + "<9>": { + "<9,1>": { + "<9,1,1>": "TOOL_ID", + "<9,1,2>": "15", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Tool ID" + }, + "<9,2>": { + "<9,2,1>": "TOOL_DESC", + "<9,2,2>": "30", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Tool Desc" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "Surface Scan Tools", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SURF_SCAN_TYPE.json b/LSL2/POPUP/SURF_SCAN_TYPE.json new file mode 100644 index 0000000..0831d88 --- /dev/null +++ b/LSL2/POPUP/SURF_SCAN_TYPE.json @@ -0,0 +1,89 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "FW", + "<8,1,2>": "First Wafer" + }, + "<8,2>": { + "<8,2,1>": "PC", + "<8,2,2>": "Post Clean" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "6", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "L", + "<9,2,5>": "", + "<9,2,6>": "Scan Type" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Surface Scan Type", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/SUSCEPTOR_POCKETS.json b/LSL2/POPUP/SUSCEPTOR_POCKETS.json new file mode 100644 index 0000000..771664e --- /dev/null +++ b/LSL2/POPUP/SUSCEPTOR_POCKETS.json @@ -0,0 +1,135 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "1", + "<8,1,2>": "ASM+", + "<8,1,3>": "Upgraded Epsilon" + }, + "<8,2>": { + "<8,2,1>": "3", + "<8,2,2>": "HTR", + "<8,2,3>": "High Thruput" + }, + "<8,3>": { + "<8,3,1>": "4", + "<8,3,2>": "HTR", + "<8,3,3>": "High Thruput" + }, + "<8,4>": { + "<8,4,1>": "5", + "<8,4,2>": "HTR", + "<8,4,3>": "High Thruput" + }, + "<8,5>": { + "<8,5,1>": "8", + "<8,5,2>": "EPP", + "<8,5,3>": "EpiPro" + }, + "<8,6>": { + "<8,6,1>": "18", + "<8,6,2>": "EPP", + "<8,6,3>": "EpiPro" + }, + "<8,7>": { + "<8,7,1>": "24", + "<8,7,2>": "EPP", + "<8,7,3>": "EpiPro" + }, + "<8,8>": { + "<8,8,1>": "5", + "<8,8,2>": "GAN", + "<8,8,3>": "G5+" + }, + "<8,9>": { + "<8,9,1>": "8", + "<8,9,2>": "GAN", + "<8,9,3>": "G5" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Pockets" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "8", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Reactor Type" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "16", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Type Description" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Susceptor Pocket Configurations", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/TABLENAMES.json b/LSL2/POPUP/TABLENAMES.json new file mode 100644 index 0000000..28b473a --- /dev/null +++ b/LSL2/POPUP/TABLENAMES.json @@ -0,0 +1,76 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "CONFIG", + "<8>": { + "<8,1>": "TABLENAMES", + "<8,2>": "1" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "TableName" + } + }, + "<10>": "F", + "<11>": "1", + "<12>": "LSL Tables", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/TEAMS.json b/LSL2/POPUP/TEAMS.json new file mode 100644 index 0000000..1bb0886 --- /dev/null +++ b/LSL2/POPUP/TEAMS.json @@ -0,0 +1,108 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "1", + "<8,1,2>": "Team One" + }, + "<8,2>": { + "<8,2,1>": "2", + "<8,2,2>": "Team Two" + }, + "<8,3>": { + "<8,3,1>": "3", + "<8,3,2>": "Team Three" + }, + "<8,4>": { + "<8,4,1>": "4", + "<8,4,2>": "Team Four" + }, + "<8,5>": { + "<8,5,1>": "5", + "<8,5,2>": "Team GaN" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Team" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "30", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Description" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Production Teams", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/TEST_POINT_MAP.json b/LSL2/POPUP/TEST_POINT_MAP.json new file mode 100644 index 0000000..76e21f9 --- /dev/null +++ b/LSL2/POPUP/TEST_POINT_MAP.json @@ -0,0 +1,76 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "TEST_POINT_MAP", + "<8>": "BY @ID", + "<9>": { + "<9,1>": { + "<9,1,1>": "TP_ID", + "<9,1,2>": "20", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "TP ID" + }, + "<9,2>": { + "<9,2,1>": "TP_DESC", + "<9,2,2>": "50", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Test Point Description" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "Test Point Maps", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/TEST_SLOTS.json b/LSL2/POPUP/TEST_SLOTS.json new file mode 100644 index 0000000..2538506 --- /dev/null +++ b/LSL2/POPUP/TEST_SLOTS.json @@ -0,0 +1,118 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "1", + "<8,1,2>": "1st Wafer" + }, + "<8,2>": { + "<8,2,1>": "2", + "<8,2,2>": "2nd Wafer" + }, + "<8,3>": { + "<8,3,1>": "3", + "<8,3,2>": "3rd Wafer" + }, + "<8,4>": { + "<8,4,1>": "4", + "<8,4,2>": "4th Wafer" + }, + "<8,5>": { + "<8,5,1>": "5", + "<8,5,2>": "5th Wafer" + }, + "<8,6>": { + "<8,6,1>": "6", + "<8,6,2>": "6th Wafer" + }, + "<8,7>": { + "<8,7,1>": "F", + "<8,7,2>": "1st WO Wafer" + }, + "<8,8>": { + "<8,8,1>": "L", + "<8,8,2>": "Last Wafer" + }, + "<8,9>": { + "<8,9,1>": "A", + "<8,9,2>": "All Wafers" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "15", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Description" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Test Slots", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/THRUPUT_CATS.json b/LSL2/POPUP/THRUPUT_CATS.json new file mode 100644 index 0000000..5200ecf --- /dev/null +++ b/LSL2/POPUP/THRUPUT_CATS.json @@ -0,0 +1,111 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "Reactor_Outs", + "<8,2>": "Yield_Outs", + "<8,3>": "Total_MRP", + "<8,4>": "Captive_Out", + "<8,5>": "Captive_MRP", + "<8,6>": "Foundry", + "<8,7>": "Fab_2", + "<8,8>": "Fab_2MRP", + "<8,9>": "Fab_10", + "<8,10>": "Fab_10MRP", + "<8,11>": "Fab_11", + "<8,12>": "Fab_11MRP", + "<8,13>": "Merchant_Out", + "<8,14>": "Merchant_MRP", + "<8,15>": "B/L", + "<8,16>": "B/L_MRP", + "<8,17>": "Blanket", + "<8,18>": "Blanket_MRP", + "<8,19>": "ASM+_Out", + "<8,20>": "ASM_Out", + "<8,21>": "HTR3_Out", + "<8,22>": "EpiPRO_Out", + "<8,23>": "Scrap/1k", + "<8,24>": "Sup/Cust_Scrap", + "<8,25>": "Supplier_Scrap", + "<8,26>": "Cust_Scrap", + "<8,27>": "IFX_Scrap", + "<8,28>": "Prod_Test", + "<8,29>": "Yield" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Category" + }, + "<9,2>": { + "<9,2,1>": "", + "<9,2,2>": "", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Thruput Report Categories", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/THRUPUT_GROUP.json b/LSL2/POPUP/THRUPUT_GROUP.json new file mode 100644 index 0000000..ff4547a --- /dev/null +++ b/LSL2/POPUP/THRUPUT_GROUP.json @@ -0,0 +1,82 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "TOT", + "<8,2>": "CAP", + "<8,3>": "MER", + "<8,4>": "ASMP", + "<8,5>": "ASM", + "<8,6>": "HTR3", + "<8,7>": "EPIPRO", + "<8,8>": "GANTOT" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "15", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Group" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Thruput Report Groups", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/TOOLS.json b/LSL2/POPUP/TOOLS.json new file mode 100644 index 0000000..3c1b8dc --- /dev/null +++ b/LSL2/POPUP/TOOLS.json @@ -0,0 +1,129 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "TOOL", + "<8>": "WITH OUT_OF_SERVICE EQ '0' BY TOOL_TYPE", + "<9>": { + "<9,1>": { + "<9,1,1>": "TOOL_ID", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Tool Id" + }, + "<9,2>": { + "<9,2,1>": "TOOL_DESC", + "<9,2,2>": "16", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Tool Desc" + }, + "<9,3>": { + "<9,3,1>": "TOOL_TYPE", + "<9,3,2>": "10", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Tool Type" + }, + "<9,4>": { + "<9,4,1>": "TOOL_PROC", + "<9,4,2>": "5", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Tool Proc" + }, + "<9,5>": { + "<9,5,1>": "CLASS", + "<9,5,2>": "10", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Class" + }, + "<9,6>": { + "<9,6,1>": "OUT_OF_SERVICE", + "<9,6,2>": "3", + "<9,6,3>": "C", + "<9,6,4>": "C", + "<9,6,5>": "B", + "<9,6,6>": "Out Of Service" + }, + "<9,7>": { + "<9,7,1>": "AREA", + "<9,7,2>": "10", + "<9,7,3>": "L", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "Area" + }, + "<9,8>": { + "<9,8,1>": "LOCATION", + "<9,8,2>": "10", + "<9,8,3>": "L", + "<9,8,4>": "C", + "<9,8,5>": "", + "<9,8,6>": "Location" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "Tools", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/TOOL_CLASS.json b/LSL2/POPUP/TOOL_CLASS.json new file mode 100644 index 0000000..f029ea1 --- /dev/null +++ b/LSL2/POPUP/TOOL_CLASS.json @@ -0,0 +1,97 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "TOOL_CLASS", + "<8>": "BY CLASS_CD", + "<9>": { + "<9,1>": { + "<9,1,1>": "CLASS_CD", + "<9,1,2>": "10", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Class Cd" + }, + "<9,2>": { + "<9,2,1>": "TOOL_TYPE", + "<9,2,2>": "10", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Tool Type" + }, + "<9,3>": { + "<9,3,1>": "DEST_TEST", + "<9,3,2>": "3", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "B", + "<9,3,6>": "Dest Test" + }, + "<9,4>": { + "<9,4,1>": "PROP_CODES", + "<9,4,2>": "30", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Property Codes" + } + }, + "<10>": "T", + "<11>": "3", + "<12>": "Tool Classes", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/TOOL_CLASS_SEQ.json b/LSL2/POPUP/TOOL_CLASS_SEQ.json new file mode 100644 index 0000000..39c26b3 --- /dev/null +++ b/LSL2/POPUP/TOOL_CLASS_SEQ.json @@ -0,0 +1,89 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "TOOL_CLASS", + "<8>": "BY TOOL_TYPE BY @ID WITH CLASS_CD ] 'G_'", + "<9>": { + "<9,1>": { + "<9,1,1>": "CLASS_CD", + "<9,1,2>": "10", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Class Cd" + }, + "<9,2>": { + "<9,2,1>": "TOOL_TYPE", + "<9,2,2>": "10", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Tool Type" + }, + "<9,3>": { + "<9,3,1>": "QIN_LOC_DESC", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Qin Loc Desc" + } + }, + "<10>": "T", + "<11>": "3", + "<12>": "Tool Classes", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/TOOL_ESC_HISTORY.json b/LSL2/POPUP/TOOL_ESC_HISTORY.json new file mode 100644 index 0000000..ce99b28 --- /dev/null +++ b/LSL2/POPUP/TOOL_ESC_HISTORY.json @@ -0,0 +1,121 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "TOOL_ESC", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "START_DTM", + "<9,1,2>": "16", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "DT4/^S", + "<9,1,6>": "Start Dtm" + }, + "<9,2>": { + "<9,2,1>": "START_USER", + "<9,2,2>": "10", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Start User" + }, + "<9,3>": { + "<9,3,1>": "START_REASON", + "<9,3,2>": "30", + "<9,3,3>": "", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Start Reason" + }, + "<9,4>": { + "<9,4,1>": "STOP_DTM", + "<9,4,2>": "16", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "DT", + "<9,4,6>": "Stop Dtm" + }, + "<9,5>": { + "<9,5,1>": "STOP_USER", + "<9,5,2>": "10", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "10", + "<9,5,6>": "Stop User" + }, + "<9,6>": { + "<9,6,1>": "STOP_REASON", + "<9,6,2>": "30", + "<9,6,3>": "", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Stop Reason" + }, + "<9,7>": { + "<9,7,1>": "ELAPSED_HRS", + "<9,7,2>": "8", + "<9,7,3>": "R", + "<9,7,4>": "C", + "<9,7,5>": "MD2,", + "<9,7,6>": "Elapsed Hrs" + } + }, + "<10>": "K", + "<11>": "1", + "<12>": "Tool Escalation History", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/TOOL_ESC_QUERY.json b/LSL2/POPUP/TOOL_ESC_QUERY.json new file mode 100644 index 0000000..3c14c09 --- /dev/null +++ b/LSL2/POPUP/TOOL_ESC_QUERY.json @@ -0,0 +1,121 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "TOOL_ESC", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "TOOL_ID", + "<9,1,2>": "10", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Tool Id" + }, + "<9,2>": { + "<9,2,1>": "START_DTM", + "<9,2,2>": "16", + "<9,2,3>": "R", + "<9,2,4>": "C", + "<9,2,5>": "DT4/^S", + "<9,2,6>": "Start Dtm" + }, + "<9,3>": { + "<9,3,1>": "START_USER", + "<9,3,2>": "15", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Start User" + }, + "<9,4>": { + "<9,4,1>": "START_REASON", + "<9,4,2>": "30", + "<9,4,3>": "", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Start Reason" + }, + "<9,5>": { + "<9,5,1>": "STOP_DTM", + "<9,5,2>": "15", + "<9,5,3>": "R", + "<9,5,4>": "C", + "<9,5,5>": "DT4/^S", + "<9,5,6>": "Stop Dtm" + }, + "<9,6>": { + "<9,6,1>": "STOP_USER", + "<9,6,2>": "20", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Stop User" + }, + "<9,7>": { + "<9,7,1>": "STOP_REASON", + "<9,7,2>": "30", + "<9,7,3>": "", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "Stop Reason" + } + }, + "<10>": "K", + "<11>": "1", + "<12>": "Tool Escalatiion History", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/TOOL_LOG_HISTORY.json b/LSL2/POPUP/TOOL_LOG_HISTORY.json new file mode 100644 index 0000000..05033c6 --- /dev/null +++ b/LSL2/POPUP/TOOL_LOG_HISTORY.json @@ -0,0 +1,113 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "TOOL_LOG", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "START_DTM", + "<9,1,2>": "21", + "<9,1,3>": "R", + "<9,1,4>": "C", + "<9,1,5>": "DT4/^S", + "<9,1,6>": "Start Dtm" + }, + "<9,2>": { + "<9,2,1>": "START_USER", + "<9,2,2>": "10", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Start User" + }, + "<9,3>": { + "<9,3,1>": "START_REASON", + "<9,3,2>": "90", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Start Reason" + }, + "<9,4>": { + "<9,4,1>": "TOOL_MODE", + "<9,4,2>": "10", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Tool Mode" + }, + "<9,5>": { + "<9,5,1>": "STOP_DTM", + "<9,5,2>": "16", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "DT4/^S", + "<9,5,6>": "Stop Dtm" + }, + "<9,6>": { + "<9,6,1>": "MODE_HRS", + "<9,6,2>": "8", + "<9,6,3>": "R", + "<9,6,4>": "C", + "<9,6,5>": "MD2,", + "<9,6,6>": "Mode Hrs" + } + }, + "<10>": "K", + "<11>": "2", + "<12>": "Tool Mode History", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/TOOL_MODE.json b/LSL2/POPUP/TOOL_MODE.json new file mode 100644 index 0000000..29e5037 --- /dev/null +++ b/LSL2/POPUP/TOOL_MODE.json @@ -0,0 +1,150 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "PROD", + "<8,1,2>": "Production", + "<8,1,3>": "S" + }, + "<8,2>": { + "<8,2,1>": "MTC", + "<8,2,2>": "Maintenance", + "<8,2,3>": "S" + }, + "<8,3>": { + "<8,3,1>": "LIM", + "<8,3,2>": "Limited Usage", + "<8,3,3>": "S" + }, + "<8,4>": { + "<8,4,1>": "OUT", + "<8,4,2>": "Out of Service", + "<8,4,3>": "S" + }, + "<8,5>": { + "<8,5,1>": "FACILITES (UnSched)", + "<8,5,2>": "Facilities-UnScheduled", + "<8,5,3>": "S" + }, + "<8,6>": { + "<8,6,1>": "QUAL_OVERDUE", + "<8,6,2>": "Qual Check Overdue", + "<8,6,3>": "S" + }, + "<8,7>": { + "<8,7,1>": "SCHED_MTC", + "<8,7,2>": "Sched Maint- PM", + "<8,7,3>": "G" + }, + "<8,8>": { + "<8,8,1>": "UNSCHED_MTC", + "<8,8,2>": "UnSched Maint", + "<8,8,3>": "G" + }, + "<8,9>": { + "<8,9,1>": "QUAL", + "<8,9,2>": "Qualify Equip", + "<8,9,3>": "G" + }, + "<8,10>": { + "<8,10,1>": "EWORK", + "<8,10,2>": "Eng Work", + "<8,10,3>": "G" + }, + "<8,11>": { + "<8,11,1>": "VER", + "<8,11,2>": "Verification", + "<8,11,3>": "S" + }, + "<8,12>": { + "<8,12,1>": "VER_FAILED", + "<8,12,2>": "Verification Failed", + "<8,12,3>": "S" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "14", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "L", + "<9,2,5>": "", + "<9,2,6>": "Mode Description" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "8", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Process" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Tool Mode", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/TOOL_PROC_SEQUENCE.json b/LSL2/POPUP/TOOL_PROC_SEQUENCE.json new file mode 100644 index 0000000..83ddb58 --- /dev/null +++ b/LSL2/POPUP/TOOL_PROC_SEQUENCE.json @@ -0,0 +1,121 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "TOOL", + "<8>": "BY @ID WITH TOOL_PROC = 'G'", + "<9>": { + "<9,1>": { + "<9,1,1>": "TOOL_ID", + "<9,1,2>": "10", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Tool Id" + }, + "<9,2>": { + "<9,2,1>": "TOOL_DESC", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Tool Desc" + }, + "<9,3>": { + "<9,3,1>": "TOOL_PROC", + "<9,3,2>": "5", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Tool Proc" + }, + "<9,4>": { + "<9,4,1>": "QIN_LOC_ID", + "<9,4,2>": "20", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Qin Loc Id" + }, + "<9,5>": { + "<9,5,1>": "QIN_LOC_DESC", + "<9,5,2>": "20", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Qin Loc Desc" + }, + "<9,6>": { + "<9,6,1>": "QOUT_LOC_ID", + "<9,6,2>": "20", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Qout Loc Id" + }, + "<9,7>": { + "<9,7,1>": "QOUT_LOC_DESC", + "<9,7,2>": "20", + "<9,7,3>": "L", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "Qout Loc Desc" + } + }, + "<10>": "T", + "<11>": "3", + "<12>": "Tool Prod Sequences", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/TOOL_TYPE.json b/LSL2/POPUP/TOOL_TYPE.json new file mode 100644 index 0000000..0b463f0 --- /dev/null +++ b/LSL2/POPUP/TOOL_TYPE.json @@ -0,0 +1,85 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "Reactor", + "<8,2>": "Cleans", + "<8,3>": "Metrology", + "<8,4>": "Inspection", + "<8,5>": "Transfer", + "<8,6>": "Quartz", + "<8,7>": "GaN", + "<8,8>": "G5", + "<8,9>": "G5+", + "<8,10>": "Char", + "<8,11>": "Leakcheck" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Type" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Tool Types", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/TUBE.json b/LSL2/POPUP/TUBE.json new file mode 100644 index 0000000..36b5a95 --- /dev/null +++ b/LSL2/POPUP/TUBE.json @@ -0,0 +1,97 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "TUBE", + "<8>": "BY @ID", + "<9>": { + "<9,1>": { + "<9,1,1>": "TUBE_ID", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Tube Id" + }, + "<9,2>": { + "<9,2,1>": "DESC", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Desc" + }, + "<9,3>": { + "<9,3,1>": "CURR_STATUS", + "<9,3,2>": "10", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Curr Status" + }, + "<9,4>": { + "<9,4,1>": "", + "<9,4,2>": "", + "<9,4,3>": "", + "<9,4,4>": "", + "<9,4,5>": "", + "<9,4,6>": "" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Tube", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/TUBE_STYLE.json b/LSL2/POPUP/TUBE_STYLE.json new file mode 100644 index 0000000..0f28419 --- /dev/null +++ b/LSL2/POPUP/TUBE_STYLE.json @@ -0,0 +1,90 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Square", + "<8,1,2>": "Square Tube" + }, + "<8,2>": { + "<8,2,1>": "Coffin", + "<8,2,2>": "Coffin Tube" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Description" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Tube Style", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/TW_AVAIL_TYPES.json b/LSL2/POPUP/TW_AVAIL_TYPES.json new file mode 100644 index 0000000..1e66ccb --- /dev/null +++ b/LSL2/POPUP/TW_AVAIL_TYPES.json @@ -0,0 +1,71 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "Type 1", + "<8,2>": "Type 2" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Type" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Available Test Wafer Types", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/TW_CODES.json b/LSL2/POPUP/TW_CODES.json new file mode 100644 index 0000000..c033297 --- /dev/null +++ b/LSL2/POPUP/TW_CODES.json @@ -0,0 +1,95 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "TW_CODES", + "<8>": "BY @ID", + "<9>": { + "<9,1>": { + "<9,1,1>": "SEQ", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "SEQ" + }, + "<9,2>": { + "<9,2,1>": "DESC", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Description" + }, + "<9,3>": { + "<9,3,1>": "NON_PROD", + "<9,3,2>": "3", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "B", + "<9,3,6>": "Non Production" + }, + "<9,4>": { + "<9,4,1>": "RUN_DATA_REQUIRED", + "<9,4,2>": "3", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "B", + "<9,4,6>": "Run Data Rqd" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "Test Wafer Codes", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/TW_PRIME_USAGE_QUERY.json b/LSL2/POPUP/TW_PRIME_USAGE_QUERY.json new file mode 100644 index 0000000..c40698a --- /dev/null +++ b/LSL2/POPUP/TW_PRIME_USAGE_QUERY.json @@ -0,0 +1,106 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "TW_PRIME_USAGE", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "ENTRY_ID", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,1,6>": "Entry ID" + }, + "<9,2>": { + "<9,2,1>": "ENTRY_DATE", + "<9,2,2>": "11", + "<9,2,3>": "R", + "<9,2,4>": "C", + "<9,2,5>": "D2/", + "<9,2,6>": "Entry Date" + }, + "<9,3>": { + "<9,3,1>": "REACTOR", + "<9,3,2>": "8", + "<9,3,3>": "R", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Reactor" + }, + "<9,4>": { + "<9,4,1>": "TW_TOTAL", + "<9,4,2>": "4", + "<9,4,3>": "R", + "<9,4,4>": "C", + "<9,4,5>": "MD0", + "<9,4,6>": "Used" + }, + "<9,5>": { + "<9,5,1>": "TYPE", + "<9,5,2>": "4", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Type" + }, + "<9,6>": { + "<9,6,1>": "WAFER_SIZE", + "<9,6,2>": "10", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Wafer Size" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Prime Test Wafer Usage Query", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/TW_TYPES.json b/LSL2/POPUP/TW_TYPES.json new file mode 100644 index 0000000..3b5da3d --- /dev/null +++ b/LSL2/POPUP/TW_TYPES.json @@ -0,0 +1,98 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "PROD", + "<8,1,2>": "Product", + "<8,1,3>": "PROD" + }, + "<8,2>": { + "<8,2,1>": "CUST", + "<8,2,2>": "Customer Supplied - Other", + "<8,2,3>": "CUST" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Type" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Desc" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "10", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Class" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Test Wafer Types", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/TW_USAGE_QUERY.json b/LSL2/POPUP/TW_USAGE_QUERY.json new file mode 100644 index 0000000..4459816 --- /dev/null +++ b/LSL2/POPUP/TW_USAGE_QUERY.json @@ -0,0 +1,106 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "TW_USAGE", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "ENTRY_ID", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,1,6>": "Entry ID" + }, + "<9,2>": { + "<9,2,1>": "ENTRY_DATE", + "<9,2,2>": "11", + "<9,2,3>": "R", + "<9,2,4>": "C", + "<9,2,5>": "D2/", + "<9,2,6>": "Entry Date" + }, + "<9,3>": { + "<9,3,1>": "REACTOR", + "<9,3,2>": "8", + "<9,3,3>": "R", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Reactor" + }, + "<9,4>": { + "<9,4,1>": "TW_TOTAL", + "<9,4,2>": "4", + "<9,4,3>": "R", + "<9,4,4>": "C", + "<9,4,5>": "MD0", + "<9,4,6>": "Used" + }, + "<9,5>": { + "<9,5,1>": "TYPE", + "<9,5,2>": "4", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Type" + }, + "<9,6>": { + "<9,6,1>": "WAFER_SIZE", + "<9,6,2>": "10", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Wafer Size" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Non Production Test Wafer Usage Query", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/UNUSED_RDS.json b/LSL2/POPUP/UNUSED_RDS.json new file mode 100644 index 0000000..f4483e1 --- /dev/null +++ b/LSL2/POPUP/UNUSED_RDS.json @@ -0,0 +1,118 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "25", + "<8,1,2>": "Aghrty67", + "<8,1,3>": "25", + "<8,1,4>": "336457" + }, + "<8,2>": { + "<8,2,1>": "24", + "<8,2,2>": "ABCDE3", + "<8,2,3>": "25", + "<8,2,4>": "336456" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Cass No" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "15", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Lot No" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "5", + "<9,3,3>": "R", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Wafers" + }, + "<9,4>": { + "<9,4,1>": "4", + "<9,4,2>": "9", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "RDS" + }, + "<9,5>": { + "<9,5,1>": "5", + "<9,5,2>": "15", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Curr Status" + } + }, + "<10>": "L", + "<11>": "2", + "<12>": "Unused Work Order Cassettes", + "<13>": "", + "<14>": "E", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/UNUSED_WM_IN.json b/LSL2/POPUP/UNUSED_WM_IN.json new file mode 100644 index 0000000..bcfeba2 --- /dev/null +++ b/LSL2/POPUP/UNUSED_WM_IN.json @@ -0,0 +1,118 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "25", + "<8,1,2>": "Aghrty67", + "<8,1,3>": "25", + "<8,1,4>": "132822*1*25" + }, + "<8,2>": { + "<8,2,1>": "24", + "<8,2,2>": "ABCDE3", + "<8,2,3>": "25", + "<8,2,4>": "132822*1*24" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Cass No" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "15", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Lot No" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "5", + "<9,3,3>": "R", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Wafers" + }, + "<9,4>": { + "<9,4,1>": "4", + "<9,4,2>": "12", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "WM In Key" + }, + "<9,5>": { + "<9,5,1>": "5", + "<9,5,2>": "15", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "WMI Curr Status" + } + }, + "<10>": "L", + "<11>": "2", + "<12>": "Unused Work Order Cassettes", + "<13>": "", + "<14>": "E", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/UNUSED_WM_OUT.json b/LSL2/POPUP/UNUSED_WM_OUT.json new file mode 100644 index 0000000..ac00ed0 --- /dev/null +++ b/LSL2/POPUP/UNUSED_WM_OUT.json @@ -0,0 +1,102 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "25", + "<8,1,2>": "Aghrty67", + "<8,1,3>": "25", + "<8,1,4>": "132822*1*25" + }, + "<8,2>": { + "<8,2,1>": "24", + "<8,2,2>": "ABCDE3", + "<8,2,3>": "25", + "<8,2,4>": "132822*1*24" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Cass No" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "15", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Curr Status" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "12", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "WM Out Key" + } + }, + "<10>": "L", + "<11>": "2", + "<12>": "Unused Work Order Cassette", + "<13>": "", + "<14>": "E", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/USER_ID.json b/LSL2/POPUP/USER_ID.json new file mode 100644 index 0000000..230fd94 --- /dev/null +++ b/LSL2/POPUP/USER_ID.json @@ -0,0 +1,97 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "LSL_USERS", + "<8>": "WITH ACTIVE BY LAST BY FIRST", + "<9>": { + "<9,1>": { + "<9,1,1>": "LAST", + "<9,1,2>": "15", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Last Name" + }, + "<9,2>": { + "<9,2,1>": "FIRST", + "<9,2,2>": "15", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "First Name" + }, + "<9,3>": { + "<9,3,1>": "ACTIVE", + "<9,3,2>": "3", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "B", + "<9,3,6>": "Active" + }, + "<9,4>": { + "<9,4,1>": "USERNAME", + "<9,4,2>": "10", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "UserName" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "User List", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "1", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/VISION_COMM_ERROR.json b/LSL2/POPUP/VISION_COMM_ERROR.json new file mode 100644 index 0000000..0da5d09 --- /dev/null +++ b/LSL2/POPUP/VISION_COMM_ERROR.json @@ -0,0 +1,68 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "SYSLISTS", + "<8>": "VISION_COMM_ERROR", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "200", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Error" + } + }, + "<10>": "R", + "<11>": "1", + "<12>": "Vision Communications Error Log", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/VISION_LOG.json b/LSL2/POPUP/VISION_LOG.json new file mode 100644 index 0000000..fca9406 --- /dev/null +++ b/LSL2/POPUP/VISION_LOG.json @@ -0,0 +1,114 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "VISION_LOG", + "<8>": "BY-DSND TIMESTAMP", + "<9>": { + "<9,1>": { + "<9,1,1>": "LOG_NO", + "<9,1,2>": "5", + "<9,1,3>": "R", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "Log No" + }, + "<9,2>": { + "<9,2,1>": "TIMESTAMP", + "<9,2,2>": "21", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "DT", + "<9,2,6>": "Timestamp" + }, + "<9,3>": { + "<9,3,1>": "LOG_DESC", + "<9,3,2>": "40", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Log Desc" + }, + "<9,4>": { + "<9,4,1>": "VISION_ORDER", + "<9,4,2>": "10", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Vision Order" + }, + "<9,5>": { + "<9,5,1>": "VISION_LINE", + "<9,5,2>": "5", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Vision Line" + }, + "<9,6>": { + "<9,6,1>": "ORDER_NO", + "<9,6,2>": "5", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Order No" + }, + "<9,7>": { + "<9,7,1>": "", + "<9,7,2>": "", + "<9,7,3>": "", + "<9,7,4>": "", + "<9,7,5>": "", + "<9,7,6>": "" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "Vision Posting Log", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/WAFER_EVENT.json b/LSL2/POPUP/WAFER_EVENT.json new file mode 100644 index 0000000..8958431 --- /dev/null +++ b/LSL2/POPUP/WAFER_EVENT.json @@ -0,0 +1,130 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "REL", + "<8,1,2>": "Released" + }, + "<8,2>": { + "<8,2,1>": "LOAD", + "<8,2,2>": "Reactor Load" + }, + "<8,3>": { + "<8,3,1>": "RETURN", + "<8,3,2>": "Return Reactor Load" + }, + "<8,4>": { + "<8,4,1>": "UNLOAD", + "<8,4,2>": "Reactor Unload" + }, + "<8,5>": { + "<8,5,1>": "RELOAD", + "<8,5,2>": "Reload Reactor Unload" + }, + "<8,6>": { + "<8,6,1>": "NCR", + "<8,6,2>": "Wafer Rejected" + }, + "<8,7>": { + "<8,7,1>": "REMNCR", + "<8,7,2>": "NCR Removed" + }, + "<8,8>": { + "<8,8,1>": "TEST", + "<8,8,2>": "Used as Test Wafer" + }, + "<8,9>": { + "<8,9,1>": "MKUP", + "<8,9,2>": "Used as Makeup " + }, + "<8,10>": { + "<8,10,1>": "MOVE", + "<8,10,2>": "Moved " + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "", + "<9,1,2>": "12", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Event" + }, + "<9,2>": { + "<9,2,1>": "", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Description" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Wafer Event", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/WAFER_MFG.json b/LSL2/POPUP/WAFER_MFG.json new file mode 100644 index 0000000..f91bfb9 --- /dev/null +++ b/LSL2/POPUP/WAFER_MFG.json @@ -0,0 +1,81 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "Direct from customer", + "<8,2>": "Komatsu", + "<8,3>": "Memc", + "<8,4>": "MSA", + "<8,5>": "Okmetic", + "<8,6>": "Wacker" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "L", + "<9,1,4>": "L", + "<9,1,5>": "", + "<9,1,6>": "Mfg" + }, + "<9,2>": { + "<9,2,1>": "", + "<9,2,2>": "", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Wafer Manufacturer", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/WAFER_SHIP_PRINT_OPTS.json b/LSL2/POPUP/WAFER_SHIP_PRINT_OPTS.json new file mode 100644 index 0000000..c7870c9 --- /dev/null +++ b/LSL2/POPUP/WAFER_SHIP_PRINT_OPTS.json @@ -0,0 +1,89 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "Preliminary Shipment", + "<8,1,2>": "P" + }, + "<8,2>": { + "<8,2,1>": "Full Shipment", + "<8,2,2>": "F" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "15", + "<9,1,3>": "L", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Shipment Option" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "0", + "<9,2,3>": "L", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Wafer Shipment Options", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/WAFER_SIZES.json b/LSL2/POPUP/WAFER_SIZES.json new file mode 100644 index 0000000..73ee37e --- /dev/null +++ b/LSL2/POPUP/WAFER_SIZES.json @@ -0,0 +1,110 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-13", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "3", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0", + "<6,1,15>": "0", + "<6,1,16>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "35", + "<8,1,2>": "35 inch EpiPro" + }, + "<8,2>": { + "<8,2,1>": "18", + "<8,2,2>": "18 inch HTR" + }, + "<8,3>": { + "<8,3,1>": "15", + "<8,3,2>": "15 inch HTR" + }, + "<8,4>": { + "<8,4,1>": "8", + "<8,4,2>": "8 inch 200mm" + }, + "<8,5>": { + "<8,5,1>": "6", + "<8,5,2>": "6 inch 150mm" + }, + "<8,6>": { + "<8,6,1>": "5", + "<8,6,2>": "5 inch 125mm" + }, + "<8,7>": { + "<8,7,1>": "4", + "<8,7,2>": "4 inch 100mm" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "16", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Description" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Wafer Sizes", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/WAFER_TRACE.json b/LSL2/POPUP/WAFER_TRACE.json new file mode 100644 index 0000000..d2e1178 --- /dev/null +++ b/LSL2/POPUP/WAFER_TRACE.json @@ -0,0 +1,153 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "3", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0", + "<6,1,15>": "0", + "<6,1,16>": "0" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "LOC_DTM", + "<9,1,2>": "21", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Date - Time" + }, + "<9,2>": { + "<9,2,1>": "LOC_BY", + "<9,2,2>": "12", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "By" + }, + "<9,3>": { + "<9,3,1>": "LOC_EVENT", + "<9,3,2>": "16", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Event" + }, + "<9,4>": { + "<9,4,1>": "SLOT_ID", + "<9,4,2>": "16", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Cass Slot ID" + }, + "<9,5>": { + "<9,5,1>": "RUN_LOC", + "<9,5,2>": "12", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Run Location" + }, + "<9,6>": { + "<9,6,1>": "CARR_SLOT_ID", + "<9,6,2>": "14", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Carr Slot ID" + }, + "<9,7>": { + "<9,7,1>": "INV_LOC", + "<9,7,2>": "14", + "<9,7,3>": "L", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "Inventory Loc" + }, + "<9,8>": { + "<9,8,1>": "TOOL_ID", + "<9,8,2>": "14", + "<9,8,3>": "L", + "<9,8,4>": "C", + "<9,8,5>": "", + "<9,8,6>": "Tool ID" + }, + "<9,9>": { + "<9,9,1>": "TW_USE", + "<9,9,2>": "10", + "<9,9,3>": "C", + "<9,9,4>": "C", + "<9,9,5>": "", + "<9,9,6>": "Test Wfr ID" + }, + "<9,10>": { + "<9,10,1>": "NCR_NO", + "<9,10,2>": "10", + "<9,10,3>": "C", + "<9,10,4>": "C", + "<9,10,5>": "", + "<9,10,6>": "NCR No" + }, + "<9,11>": { + "<9,11,1>": "", + "<9,11,2>": "", + "<9,11,3>": "", + "<9,11,4>": "", + "<9,11,5>": "", + "<9,11,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Wafer Trace", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/WAF_INV_LOOKUP_OPTS.json b/LSL2/POPUP/WAF_INV_LOOKUP_OPTS.json new file mode 100644 index 0000000..22b6944 --- /dev/null +++ b/LSL2/POPUP/WAF_INV_LOOKUP_OPTS.json @@ -0,0 +1,71 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "View Current Wafer Inventory...", + "<8,2>": "Goto Wafer Inventory Window...", + "<8,3>": "Goto Wafer Inventory Window with All Open...", + "<8,4>": "View/Choose Via Popup..." + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "29", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Option" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Wafer Inventory Lookup Options", + "<13>": "", + "<14>": "P", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/WAF_INV_QUERY.json b/LSL2/POPUP/WAF_INV_QUERY.json new file mode 100644 index 0000000..0b10f5d --- /dev/null +++ b/LSL2/POPUP/WAF_INV_QUERY.json @@ -0,0 +1,120 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "WAFER_INV", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "CUST_NO", + "<9,1,2>": "18", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "[XLATE_CONV,COMPANY*CO_NAME]", + "<9,1,6>": "Customer" + }, + "<9,2>": { + "<9,2,1>": "PACKING_NO", + "<9,2,2>": "10", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Packing No" + }, + "<9,3>": { + "<9,3,1>": "MFG", + "<9,3,2>": "15", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Manufacturer" + }, + "<9,4>": { + "<9,4,1>": "MFG_SPEC_NO", + "<9,4,2>": "10", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Mfg Spec No" + }, + "<9,5>": { + "<9,5,1>": "MFG_SALES_ORD", + "<9,5,2>": "10", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Mfg SO#" + }, + "<9,6>": { + "<9,6,1>": "CUST_PO_MFG", + "<9,6,2>": "10", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Cust PO to Mfg" + }, + "<9,7>": { + "<9,7,1>": "ENTRY_ID", + "<9,7,2>": "12", + "<9,7,3>": "L", + "<9,7,4>": "C", + "<9,7,5>": "[XLATE_CONV,LSL_USERS*FIRST_LAST]", + "<9,7,6>": "Entry ID" + }, + "<9,8>": { + "<9,8,1>": "ENTRY_DATE", + "<9,8,2>": "11", + "<9,8,3>": "R", + "<9,8,4>": "C", + "<9,8,5>": "D2/", + "<9,8,6>": "Entry Date" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Wafer Inventory", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/WAREHOUSE.json b/LSL2/POPUP/WAREHOUSE.json new file mode 100644 index 0000000..98ae1ce --- /dev/null +++ b/LSL2/POPUP/WAREHOUSE.json @@ -0,0 +1,97 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "WAREHOUSE", + "<8>": "BY @ID", + "<9>": { + "<9,1>": { + "<9,1,1>": "WH_CD", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "WH Cd" + }, + "<9,2>": { + "<9,2,1>": "DESC", + "<9,2,2>": "30", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Desc" + }, + "<9,3>": { + "<9,3,1>": "RESP_USER", + "<9,3,2>": "15", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Resp User" + }, + "<9,4>": { + "<9,4,1>": "COMP_LOC", + "<9,4,2>": "15", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Comp Loc" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "Warehouse Codes", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/WM_IN_CURR_STATUS.json b/LSL2/POPUP/WM_IN_CURR_STATUS.json new file mode 100644 index 0000000..5792b27 --- /dev/null +++ b/LSL2/POPUP/WM_IN_CURR_STATUS.json @@ -0,0 +1,116 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "PREC", + "<8,1,2>": "Ready to Pre Clean" + }, + "<8,2>": { + "<8,2,1>": "HOLD", + "<8,2,2>": "On Hold" + }, + "<8,3>": { + "<8,3,1>": "MT", + "<8,3,2>": "Empty" + }, + "<8,4>": { + "<8,4,1>": "RTU", + "<8,4,2>": "Ready to Use" + }, + "<8,5>": { + "<8,5,1>": "RFW", + "<8,5,2>": "Ready for WIP" + }, + "<8,6>": { + "<8,6,1>": "NCR", + "<8,6,2>": "Open NCR" + }, + "<8,7>": { + "<8,7,1>": "VOID", + "<8,7,2>": "Void" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "30", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Current Status Description" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "WM_IN Current Status Codes", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/WM_OUT_CURR_STATUS.json b/LSL2/POPUP/WM_OUT_CURR_STATUS.json new file mode 100644 index 0000000..64b195d --- /dev/null +++ b/LSL2/POPUP/WM_OUT_CURR_STATUS.json @@ -0,0 +1,160 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "RTB", + "<8,1,2>": "Ready to Build" + }, + "<8,2>": { + "<8,2,1>": "BLD", + "<8,2,2>": "Building" + }, + "<8,3>": { + "<8,3,1>": "PSTC", + "<8,3,2>": "PostEpi Clean" + }, + "<8,4>": { + "<8,4,1>": "PSTS", + "<8,4,2>": "PostEpi Surfscan" + }, + "<8,5>": { + "<8,5,1>": "PSTI", + "<8,5,2>": "PostEpi Inspection" + }, + "<8,6>": { + "<8,6,1>": "PSV", + "<8,6,2>": "Pre Ship Verification" + }, + "<8,7>": { + "<8,7,1>": "RTS", + "<8,7,2>": "Ready to Ship" + }, + "<8,8>": { + "<8,8,1>": "SHIP", + "<8,8,2>": "Shipped" + }, + "<8,9>": { + "<8,9,1>": "HOLD", + "<8,9,2>": "On Hold" + }, + "<8,10>": { + "<8,10,1>": "RQA", + "<8,10,2>": "Ready for QA" + }, + "<8,11>": { + "<8,11,1>": "MT", + "<8,11,2>": "Empty" + }, + "<8,12>": { + "<8,12,1>": "RTU", + "<8,12,2>": "Ready to Use" + }, + "<8,13>": { + "<8,13,1>": "NCR", + "<8,13,2>": "Open NCR" + }, + "<8,14>": { + "<8,14,1>": "REJ", + "<8,14,2>": "Cassette Rejected" + }, + "<8,15>": { + "<8,15,1>": "COMP", + "<8,15,2>": "FQA Label Check" + }, + "<8,16>": { + "<8,16,1>": "VOID", + "<8,16,2>": "Void" + }, + "<8,17>": { + "<8,17,1>": "PKO", + "<8,17,2>": "Awaiting Packaging" + }, + "<8,18>": { + "<8,18,1>": "PACK", + "<8,18,2>": "Loaded in PT Out" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "30", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Current Status Description" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "WM_OUT Current Status Codes", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/WM_OUT_MAKEUP.json b/LSL2/POPUP/WM_OUT_MAKEUP.json new file mode 100644 index 0000000..2970ab4 --- /dev/null +++ b/LSL2/POPUP/WM_OUT_MAKEUP.json @@ -0,0 +1,103 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "WM_OUT", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "WMO_NO", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "WMO No" + }, + "<9,2>": { + "<9,2,1>": "SAP_BATCH_NO", + "<9,2,2>": "12", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "SAP Batch No" + }, + "<9,3>": { + "<9,3,1>": "PS_NO", + "<9,3,2>": "14", + "<9,3,3>": "R", + "<9,3,4>": "C", + "<9,3,5>": "MD0", + "<9,3,6>": "PS No" + }, + "<9,4>": { + "<9,4,1>": "ALL_PART_NOS", + "<9,4,2>": "20", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "All Part Nos" + }, + "<9,5>": { + "<9,5,1>": "WAFER_CNT", + "<9,5,2>": "14", + "<9,5,3>": "R", + "<9,5,4>": "C", + "<9,5,5>": "MD0,", + "<9,5,6>": "Wafer Cnt" + } + }, + "<10>": "K", + "<11>": "1", + "<12>": "WM_OUT - Makeup Wafers", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/WM_OUT_OPEN_SLOTS.json b/LSL2/POPUP/WM_OUT_OPEN_SLOTS.json new file mode 100644 index 0000000..34b2d00 --- /dev/null +++ b/LSL2/POPUP/WM_OUT_OPEN_SLOTS.json @@ -0,0 +1,76 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Cassette" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "10", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Slot" + } + }, + "<10>": "L", + "<11>": "2", + "<12>": "WM Out - Open Slots", + "<13>": "", + "<14>": "E", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/WM_OUT_SLOT_STATUS.json b/LSL2/POPUP/WM_OUT_SLOT_STATUS.json new file mode 100644 index 0000000..e2cfaa0 --- /dev/null +++ b/LSL2/POPUP/WM_OUT_SLOT_STATUS.json @@ -0,0 +1,121 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "L", + "<9,1,5>": "", + "<9,1,6>": "Cassette No" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "10", + "<9,2,3>": "C", + "<9,2,4>": "L", + "<9,2,5>": "", + "<9,2,6>": "Slot No" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "10", + "<9,3,3>": "L", + "<9,3,4>": "L", + "<9,3,5>": "", + "<9,3,6>": "Status" + }, + "<9,4>": { + "<9,4,1>": "4", + "<9,4,2>": "10", + "<9,4,3>": "L", + "<9,4,4>": "L", + "<9,4,5>": "", + "<9,4,6>": "Locked By" + }, + "<9,5>": { + "<9,5,1>": "5", + "<9,5,2>": "10", + "<9,5,3>": "L", + "<9,5,4>": "L", + "<9,5,5>": "", + "<9,5,6>": "Workstation" + }, + "<9,6>": { + "<9,6,1>": "6", + "<9,6,2>": "14", + "<9,6,3>": "C", + "<9,6,4>": "L", + "<9,6,5>": "", + "<9,6,6>": "Locked At" + }, + "<9,7>": { + "<9,7,1>": "", + "<9,7,2>": "", + "<9,7,3>": "", + "<9,7,4>": "", + "<9,7,5>": "", + "<9,7,6>": "" + } + }, + "<10>": "L", + "<11>": "0", + "<12>": "Slot Status", + "<13>": "", + "<14>": "R", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/WO_CASSETTE_SORT.json b/LSL2/POPUP/WO_CASSETTE_SORT.json new file mode 100644 index 0000000..1c352a7 --- /dev/null +++ b/LSL2/POPUP/WO_CASSETTE_SORT.json @@ -0,0 +1,114 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Cass No" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Lot No" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "10", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Qty" + }, + "<9,4>": { + "<9,4,1>": "4", + "<9,4,2>": "20", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Part No" + }, + "<9,5>": { + "<9,5,1>": "5", + "<9,5,2>": "20", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Sub Part No" + }, + "<9,6>": { + "<9,6,1>": "6", + "<9,6,2>": "15", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Received" + }, + "<9,7>": { + "<9,7,1>": "7", + "<9,7,2>": "15", + "<9,7,3>": "L", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "By" + } + }, + "<10>": "L", + "<11>": "3", + "<12>": "Reorder Work Order Cassettes", + "<13>": "", + "<14>": "E", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/WO_DUE_IN.json b/LSL2/POPUP/WO_DUE_IN.json new file mode 100644 index 0000000..e16e146 --- /dev/null +++ b/LSL2/POPUP/WO_DUE_IN.json @@ -0,0 +1,106 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "123456", + "<8,1,2>": "LotNo", + "<8,1,3>": "OrdNo", + "<8,1,4>": "ItemNo", + "<8,1,5>": "Item Desc" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "WO No" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Cust Lot No" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "10", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Order No" + }, + "<9,4>": { + "<9,4,1>": "4", + "<9,4,2>": "5", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Item" + }, + "<9,5>": { + "<9,5,1>": "5", + "<9,5,2>": "30", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Item Desc" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Work Orders Due In", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/WO_LOG_QUERY.json b/LSL2/POPUP/WO_LOG_QUERY.json new file mode 100644 index 0000000..ea438e6 --- /dev/null +++ b/LSL2/POPUP/WO_LOG_QUERY.json @@ -0,0 +1,153 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "WO_LOG", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "CUST_NO", + "<9,1,2>": "25", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "[XLATE_CONV,COMPANY*CO_NAME]", + "<9,1,6>": "Customer" + }, + "<9,2>": { + "<9,2,1>": "WO", + "<9,2,2>": "6", + "<9,2,3>": "R", + "<9,2,4>": "C", + "<9,2,5>": "MD0", + "<9,2,6>": "WO#" + }, + "<9,3>": { + "<9,3,1>": "WAFER_DESC", + "<9,3,2>": "13", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Wafer Desc" + }, + "<9,4>": { + "<9,4,1>": "THICK_TARGET_L1", + "<9,4,2>": "8", + "<9,4,3>": "R", + "<9,4,4>": "C", + "<9,4,5>": "MD3", + "<9,4,6>": "Thick" + }, + "<9,5>": { + "<9,5,1>": "RES_TARGET_L1", + "<9,5,2>": "8", + "<9,5,3>": "R", + "<9,5,4>": "C", + "<9,5,5>": "MD3", + "<9,5,6>": "Resist" + }, + "<9,6>": { + "<9,6,1>": "RX_DT", + "<9,6,2>": "11", + "<9,6,3>": "R", + "<9,6,4>": "C", + "<9,6,5>": "D4/", + "<9,6,6>": "Rx Dt" + }, + "<9,7>": { + "<9,7,1>": "COMMIT_DATE", + "<9,7,2>": "11", + "<9,7,3>": "R", + "<9,7,4>": "C", + "<9,7,5>": "D2/", + "<9,7,6>": "Commit Date" + }, + "<9,8>": { + "<9,8,1>": "CLOSE_DATE", + "<9,8,2>": "11", + "<9,8,3>": "R", + "<9,8,4>": "C", + "<9,8,5>": "D2/", + "<9,8,6>": "Close Date" + }, + "<9,9>": { + "<9,9,1>": "SCHEDULED", + "<9,9,2>": "3", + "<9,9,3>": "L", + "<9,9,4>": "C", + "<9,9,5>": "B", + "<9,9,6>": "Scheduled" + }, + "<9,10>": { + "<9,10,1>": "ENTRY_ID", + "<9,10,2>": "20", + "<9,10,3>": "L", + "<9,10,4>": "C", + "<9,10,5>": "", + "<9,10,6>": "Entry ID" + }, + "<9,11>": { + "<9,11,1>": "ENTRY_DATE", + "<9,11,2>": "11", + "<9,11,3>": "R", + "<9,11,4>": "C", + "<9,11,5>": "D2/", + "<9,11,6>": "Entry Date" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Work Orders", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "1", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/WO_LOG_RTS.json b/LSL2/POPUP/WO_LOG_RTS.json new file mode 100644 index 0000000..d22f798 --- /dev/null +++ b/LSL2/POPUP/WO_LOG_RTS.json @@ -0,0 +1,100 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "RDS", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "RUN_ORDER_NUM", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "RO No" + }, + "<9,2>": { + "<9,2,1>": "SEQ", + "<9,2,2>": "14", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "MD0", + "<9,2,6>": "RDS No" + }, + "<9,3>": { + "<9,3,1>": "WAFERS_SCHEDULED", + "<9,3,2>": "14", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "MD0", + "<9,3,6>": "Wafers Scheduled" + }, + "<9,4>": { + "<9,4,1>": "WFRS_OUT", + "<9,4,2>": "14", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "MD0,", + "<9,4,6>": "Wfrs Out" + }, + "<9,5>": { + "<9,5,1>": "CURR_STATUS", + "<9,5,2>": "25", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "[RDS_CURR_STATUS_CONV]", + "<9,5,6>": "Curr Status" + } + }, + "<10>": "K", + "<11>": "2", + "<12>": "Work Order Ready To Ship Cassettes", + "<13>": "", + "<14>": "E", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/WO_LOG_UNROUTED.json b/LSL2/POPUP/WO_LOG_UNROUTED.json new file mode 100644 index 0000000..3235c56 --- /dev/null +++ b/LSL2/POPUP/WO_LOG_UNROUTED.json @@ -0,0 +1,121 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "WO_LOG", + "<8>": "WITH CURR_STATUS = 'UNR'", + "<9>": { + "<9,1>": { + "<9,1,1>": "WO", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "WO#" + }, + "<9,2>": { + "<9,2,1>": "PROD_ORD_NO", + "<9,2,2>": "10", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Prod Ord No" + }, + "<9,3>": { + "<9,3,1>": "EPI_PART_NO", + "<9,3,2>": "14", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Epi Part No" + }, + "<9,4>": { + "<9,4,1>": "ORD_SUB_PART_NO", + "<9,4,2>": "14", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Ord Sub Part No" + }, + "<9,5>": { + "<9,5,1>": "CUST_PO_NO", + "<9,5,2>": "14", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Cust Po No" + }, + "<9,6>": { + "<9,6,1>": "ENTRY_DATE", + "<9,6,2>": "11", + "<9,6,3>": "C", + "<9,6,4>": "C", + "<9,6,5>": "D2/", + "<9,6,6>": "Entry Date" + }, + "<9,7>": { + "<9,7,1>": "", + "<9,7,2>": "", + "<9,7,3>": "", + "<9,7,4>": "", + "<9,7,5>": "", + "<9,7,6>": "" + } + }, + "<10>": "T", + "<11>": "2", + "<12>": "Unrouted Work Orders", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/WO_LOTS_DUE_IN.json b/LSL2/POPUP/WO_LOTS_DUE_IN.json new file mode 100644 index 0000000..4c0320b --- /dev/null +++ b/LSL2/POPUP/WO_LOTS_DUE_IN.json @@ -0,0 +1,114 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "123456", + "<8,1,2>": "LotNo", + "<8,1,3>": "OrdNo", + "<8,1,4>": "ItemNo", + "<8,1,5>": "Item Desc" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "WO No" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Cust Lot No" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "20", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Cust Part No" + }, + "<9,4>": { + "<9,4,1>": "4", + "<9,4,2>": "10", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Order No" + }, + "<9,5>": { + "<9,5,1>": "5", + "<9,5,2>": "5", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Item" + }, + "<9,6>": { + "<9,6,1>": "6", + "<9,6,2>": "30", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Item Desc" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Work Order Lots Due In", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/WO_MAST_SCHED_PRINT_OPTS.json b/LSL2/POPUP/WO_MAST_SCHED_PRINT_OPTS.json new file mode 100644 index 0000000..793a7e6 --- /dev/null +++ b/LSL2/POPUP/WO_MAST_SCHED_PRINT_OPTS.json @@ -0,0 +1,82 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "One", + "<8,2>": "Two", + "<8,3>": "Three", + "<8,4>": "Four", + "<8,5>": "Five", + "<8,6>": "Six", + "<8,7>": "Seven" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "30", + "<9,1,3>": "L", + "<9,1,4>": "L", + "<9,1,5>": "", + "<9,1,6>": "Day(s) to Print" + }, + "<9,2>": { + "<9,2,1>": "", + "<9,2,2>": "", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "2", + "<12>": "Master Scheduler Day(s) to Print", + "<13>": "", + "<14>": "P", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/WO_MAT_CURR_STATUS.json b/LSL2/POPUP/WO_MAT_CURR_STATUS.json new file mode 100644 index 0000000..d4a56ed --- /dev/null +++ b/LSL2/POPUP/WO_MAT_CURR_STATUS.json @@ -0,0 +1,248 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "BLD", + "<8,1,2>": "Building" + }, + "<8,2>": { + "<8,2,1>": "CANC", + "<8,2,2>": "Cancelled" + }, + "<8,3>": { + "<8,3,1>": "COMP", + "<8,3,2>": "FQA Label Check" + }, + "<8,4>": { + "<8,4,1>": "PSV", + "<8,4,2>": "Pre Ship Verification" + }, + "<8,5>": { + "<8,5,1>": "RTS", + "<8,5,2>": "Ready to Ship" + }, + "<8,6>": { + "<8,6,1>": "HOLD", + "<8,6,2>": "On Hold" + }, + "<8,7>": { + "<8,7,1>": "SHIP", + "<8,7,2>": "Shipped" + }, + "<8,8>": { + "<8,8,1>": "RTU", + "<8,8,2>": "Ready to Use" + }, + "<8,9>": { + "<8,9,1>": "MT", + "<8,9,2>": "Empty" + }, + "<8,10>": { + "<8,10,1>": "RTB", + "<8,10,2>": "Ready to Build" + }, + "<8,11>": { + "<8,11,1>": "INF", + "<8,11,2>": "In Fab" + }, + "<8,12>": { + "<8,12,1>": "VER", + "<8,12,2>": "Verify Qty" + }, + "<8,13>": { + "<8,13,1>": "PREC", + "<8,13,2>": "PreEpi Clean" + }, + "<8,14>": { + "<8,14,1>": "PREI", + "<8,14,2>": "PreEpi Inspection" + }, + "<8,15>": { + "<8,15,1>": "PRES", + "<8,15,2>": "PreEpi SurfScan" + }, + "<8,16>": { + "<8,16,1>": "LOAD", + "<8,16,2>": "Reactor Load" + }, + "<8,17>": { + "<8,17,1>": "FWII", + "<8,17,2>": "First wafer Inspection" + }, + "<8,18>": { + "<8,18,1>": "FWIS", + "<8,18,2>": "First Wafer SurfScan" + }, + "<8,19>": { + "<8,19,1>": "WFRI", + "<8,19,2>": "First/Last Wafer Inspection" + }, + "<8,20>": { + "<8,20,1>": "WFRS", + "<8,20,2>": "First/Last Wafer SurfScan" + }, + "<8,21>": { + "<8,21,1>": "UNLOAD", + "<8,21,2>": "Reactor Unload" + }, + "<8,22>": { + "<8,22,1>": "LWII", + "<8,22,2>": "Last WaferInspection" + }, + "<8,23>": { + "<8,23,1>": "LWIS", + "<8,23,2>": "Last Wafer Surfscan" + }, + "<8,24>": { + "<8,24,1>": "PSTC", + "<8,24,2>": "PostEpi Clean" + }, + "<8,25>": { + "<8,25,1>": "PSTI", + "<8,25,2>": "PostEpi Inspection" + }, + "<8,26>": { + "<8,26,1>": "PSTS", + "<8,26,2>": "PostEpi SurfScan" + }, + "<8,27>": { + "<8,27,1>": "POST", + "<8,27,2>": "PostEpi" + }, + "<8,28>": { + "<8,28,1>": "QA", + "<8,28,2>": "Final QA" + }, + "<8,29>": { + "<8,29,1>": "REL", + "<8,29,2>": "Released" + }, + "<8,30>": { + "<8,30,1>": "RX", + "<8,30,2>": "Received" + }, + "<8,31>": { + "<8,31,1>": "RTP", + "<8,31,2>": "Ready to Process" + }, + "<8,32>": { + "<8,32,1>": "RQA", + "<8,32,2>": "Ready for QA" + }, + "<8,33>": { + "<8,33,1>": "AWM", + "<8,33,2>": "Awaiting Material" + }, + "<8,34>": { + "<8,34,1>": "NCR", + "<8,34,2>": "Open NCR" + }, + "<8,35>": { + "<8,35,1>": "REJ", + "<8,35,2>": "Cassette Rejected" + }, + "<8,36>": { + "<8,36,1>": "VOID", + "<8,36,2>": "Record Voided" + }, + "<8,37>": { + "<8,37,1>": "PKO", + "<8,37,2>": "Awaiting Packaging" + }, + "<8,38>": { + "<8,38,1>": "SHOLD", + "<8,38,2>": "Shipping Hold" + }, + "<8,39>": { + "<8,39,1>": "RFW", + "<8,39,2>": "Ready for WIP" + }, + "<8,40>": { + "<8,40,1>": "PACK", + "<8,40,2>": "Loaded in PT Out" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "30", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Current Status Description" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "WO_MAT Current Status Codes", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/WO_MAT_FIXIT.json b/LSL2/POPUP/WO_MAT_FIXIT.json new file mode 100644 index 0000000..a23aea2 --- /dev/null +++ b/LSL2/POPUP/WO_MAT_FIXIT.json @@ -0,0 +1,121 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "WO_MAT", + "<8>": "WITH WO_NO = 152094", + "<9>": { + "<9,1>": { + "<9,1,1>": "WO_NO", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "WO No" + }, + "<9,2>": { + "<9,2,1>": "CASS_NO", + "<9,2,2>": "5", + "<9,2,3>": "R", + "<9,2,4>": "C", + "<9,2,5>": "MD0", + "<9,2,6>": "Cass" + }, + "<9,3>": { + "<9,3,1>": "PROD_ORD_NO", + "<9,3,2>": "10", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Prod Ord No" + }, + "<9,4>": { + "<9,4,1>": "SAP_BATCH_NO", + "<9,4,2>": "8", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "SAP Batch" + }, + "<9,5>": { + "<9,5,1>": "ORG_SAP_BATCH_NO", + "<9,5,2>": "8", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Org Batch" + }, + "<9,6>": { + "<9,6,1>": "LOT_NO", + "<9,6,2>": "10", + "<9,6,3>": "C", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Lot No" + }, + "<9,7>": { + "<9,7,1>": "RDS_NO", + "<9,7,2>": "12", + "<9,7,3>": "C", + "<9,7,4>": "C", + "<9,7,5>": "MD0", + "<9,7,6>": "RDS No" + } + }, + "<10>": "T", + "<11>": "3", + "<12>": "WO Mat Cassettes", + "<13>": "", + "<14>": "E", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/WO_MAT_INV_ACTION.json b/LSL2/POPUP/WO_MAT_INV_ACTION.json new file mode 100644 index 0000000..875c547 --- /dev/null +++ b/LSL2/POPUP/WO_MAT_INV_ACTION.json @@ -0,0 +1,143 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "EMPTY", + "<8,1,2>": "Makeup Box Empty" + }, + "<8,2>": { + "<8,2,1>": "REJ", + "<8,2,2>": "Rejected" + }, + "<8,3>": { + "<8,3,1>": "SHIP", + "<8,3,2>": "Shipped" + }, + "<8,4>": { + "<8,4,1>": "RTU", + "<8,4,2>": "Ready to Use" + }, + "<8,5>": { + "<8,5,1>": "PLACE", + "<8,5,2>": "Place" + }, + "<8,6>": { + "<8,6,1>": "SPLIT", + "<8,6,2>": "Wfr from Cass" + }, + "<8,7>": { + "<8,7,1>": "DISP", + "<8,7,2>": "Wfr Disposition" + }, + "<8,8>": { + "<8,8,1>": "LOAD", + "<8,8,2>": "Reactor Load" + }, + "<8,9>": { + "<8,9,1>": "UNLOAD", + "<8,9,2>": "Reactor Unload" + }, + "<8,10>": { + "<8,10,1>": "START", + "<8,10,2>": "Start on Tool" + }, + "<8,11>": { + "<8,11,1>": "STOP", + "<8,11,2>": "Stop on Tool" + }, + "<8,12>": { + "<8,12,1>": "VER", + "<8,12,2>": "Verify" + }, + "<8,13>": { + "<8,13,1>": "PSTS", + "<8,13,2>": "Post Epi Surfscan" + }, + "<8,14>": { + "<8,14,1>": "QA", + "<8,14,2>": "Final QA" + }, + "<8,15>": { + "<8,15,1>": "DELETE", + "<8,15,2>": "Closes in FabTime" + }, + "<8,16>": "" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "20", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Description" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "WO Mat Inv Actions", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/WO_MAT_LOT.json b/LSL2/POPUP/WO_MAT_LOT.json new file mode 100644 index 0000000..88798b5 --- /dev/null +++ b/LSL2/POPUP/WO_MAT_LOT.json @@ -0,0 +1,97 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "WO_MAT", + "<8>": "WITH WO_NO \"163100\" BY CASS_NO", + "<9>": { + "<9,1>": { + "<9,1,1>": "CASS_ID", + "<9,1,2>": "12", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Cass ID" + }, + "<9,2>": { + "<9,2,1>": "CASS_NO", + "<9,2,2>": "5", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "MD0", + "<9,2,6>": "Cass No" + }, + "<9,3>": { + "<9,3,1>": "RDS_NO", + "<9,3,2>": "14", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "MD0", + "<9,3,6>": "RDS No" + }, + "<9,4>": { + "<9,4,1>": "LOT_NO", + "<9,4,2>": "20", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Lot No" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "WO Mat Lot No ", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/WO_MAT_MAKEUP.json b/LSL2/POPUP/WO_MAT_MAKEUP.json new file mode 100644 index 0000000..1eb5f30 --- /dev/null +++ b/LSL2/POPUP/WO_MAT_MAKEUP.json @@ -0,0 +1,121 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "WO_MAT", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "WO_NO", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "WO No" + }, + "<9,2>": { + "<9,2,1>": "CASS_NO", + "<9,2,2>": "5", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "MD0", + "<9,2,6>": "Cass No" + }, + "<9,3>": { + "<9,3,1>": "SAP_BATCH_NO", + "<9,3,2>": "10", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "SAP Batch No" + }, + "<9,4>": { + "<9,4,1>": "MU_PS_NO", + "<9,4,2>": "8", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "MU Ps No" + }, + "<9,5>": { + "<9,5,1>": "CUST_PART_NO", + "<9,5,2>": "20", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Cust Part No" + }, + "<9,6>": { + "<9,6,1>": "CURR_WFR_CNT", + "<9,6,2>": "8", + "<9,6,3>": "R", + "<9,6,4>": "C", + "<9,6,5>": "MD0,", + "<9,6,6>": "Curr Wfr Qty" + }, + "<9,7>": { + "<9,7,1>": "RDS_NO", + "<9,7,2>": "8", + "<9,7,3>": "R", + "<9,7,4>": "C", + "<9,7,5>": "MD0", + "<9,7,6>": "RDS No" + } + }, + "<10>": "K", + "<11>": "1", + "<12>": "Available M/U Wafers", + "<13>": "", + "<14>": "K", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/WO_MAT_QA_QUERY.json b/LSL2/POPUP/WO_MAT_QA_QUERY.json new file mode 100644 index 0000000..5c701ed --- /dev/null +++ b/LSL2/POPUP/WO_MAT_QA_QUERY.json @@ -0,0 +1,76 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "WO_MAT_QA", + "<8>": { + "<8,1>": "{170194*1}", + "<8,2>": "{9}" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "", + "<9,1,2>": "", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "" + } + }, + "<10>": "F", + "<11>": "1", + "<12>": "QA Metrology Lookup", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "1", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/WO_MS_LITERAL.json b/LSL2/POPUP/WO_MS_LITERAL.json new file mode 100644 index 0000000..1633bea --- /dev/null +++ b/LSL2/POPUP/WO_MS_LITERAL.json @@ -0,0 +1,81 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": "%LIST%", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "15", + "<9,1,3>": "L", + "<9,1,4>": "L", + "<9,1,5>": "", + "<9,1,6>": "%HEADING%" + }, + "<9,2>": { + "<9,2,1>": "", + "<9,2,2>": "", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "%TITLE%", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/WO_MS_REACTOR_GROUPS.json b/LSL2/POPUP/WO_MS_REACTOR_GROUPS.json new file mode 100644 index 0000000..45622cf --- /dev/null +++ b/LSL2/POPUP/WO_MS_REACTOR_GROUPS.json @@ -0,0 +1,91 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "Front Odds", + "<8,2>": "Front Evens", + "<8,3>": "Tunnel", + "<8,4>": "Back Odds", + "<8,5>": "Back Evens", + "<8,6>": "EpiPro", + "<8,7>": "HTR Odds", + "<8,8>": "HTR Evens", + "<8,9>": "HTR Back" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "15", + "<9,1,3>": "L", + "<9,1,4>": "L", + "<9,1,5>": "", + "<9,1,6>": "Group" + }, + "<9,2>": { + "<9,2,1>": "", + "<9,2,2>": "", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Reactor Groups", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/WO_PRIORITY.json b/LSL2/POPUP/WO_PRIORITY.json new file mode 100644 index 0000000..b5deb2d --- /dev/null +++ b/LSL2/POPUP/WO_PRIORITY.json @@ -0,0 +1,94 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "P1", + "<8,1,2>": "High" + }, + "<8,2>": { + "<8,2,1>": "P2", + "<8,2,2>": "Medium" + }, + "<8,3>": { + "<8,3,1>": "P3", + "<8,3,2>": "Low" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "5", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "10", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Priority" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Work Order Priority", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/WO_PURGE_LOG.json b/LSL2/POPUP/WO_PURGE_LOG.json new file mode 100644 index 0000000..fc3f2f4 --- /dev/null +++ b/LSL2/POPUP/WO_PURGE_LOG.json @@ -0,0 +1,86 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "Line No 1", + "<8,2>": "Line No 2", + "<8,3>": "Line No 3", + "<8,4>": "" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "50", + "<9,1,3>": "L", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Action" + }, + "<9,2>": { + "<9,2,1>": "", + "<9,2,2>": "", + "<9,2,3>": "", + "<9,2,4>": "", + "<9,2,5>": "", + "<9,2,6>": "" + } + }, + "<10>": "L", + "<11>": "0", + "<12>": "WO Purge Log", + "<13>": "", + "<14>": "R", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/WO_STEP_SELECT.json b/LSL2/POPUP/WO_STEP_SELECT.json new file mode 100644 index 0000000..1eecae9 --- /dev/null +++ b/LSL2/POPUP/WO_STEP_SELECT.json @@ -0,0 +1,95 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "WO_STEP", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "WO_NO", + "<9,1,2>": "12", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "WO No" + }, + "<9,2>": { + "<9,2,1>": "PROC_STEP_NO", + "<9,2,2>": "8", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "MD0,", + "<9,2,6>": "Proc Step No" + }, + "<9,3>": { + "<9,3,1>": "PROC_STEP_DESC", + "<9,3,2>": "30", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Proc Step Desc" + }, + "<9,4>": { + "<9,4,1>": "PROD_SPEC_ID", + "<9,4,2>": "8", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "MD0", + "<9,4,6>": "PS No" + } + }, + "<10>": "K", + "<11>": "1", + "<12>": "Work Order Steps", + "<13>": "2", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/WO_STEP_STATUS.json b/LSL2/POPUP/WO_STEP_STATUS.json new file mode 100644 index 0000000..08f4e5c --- /dev/null +++ b/LSL2/POPUP/WO_STEP_STATUS.json @@ -0,0 +1,152 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-2", + "<2>": "-2", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "1", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "0", + "<6,1,14>": "0" + } + }, + "<7>": "", + "<8>": { + "<8,1>": { + "<8,1,1>": "NORD", + "<8,1,2>": "Missing Order No" + }, + "<8,2>": { + "<8,2,1>": "NEW", + "<8,2,2>": "New Order" + }, + "<8,3>": { + "<8,3,1>": "ASN", + "<8,3,2>": "Awaiting Ship Notice" + }, + "<8,4>": { + "<8,4,1>": "AWM", + "<8,4,2>": "Awaiting Material" + }, + "<8,5>": { + "<8,5,1>": "RTP", + "<8,5,2>": "Ready to Pull" + }, + "<8,6>": { + "<8,6,1>": "AWR", + "<8,6,2>": "Awaiting Release" + }, + "<8,7>": { + "<8,7,1>": "RX", + "<8,7,2>": "Released" + }, + "<8,8>": { + "<8,8,1>": "INPR", + "<8,8,2>": "In Process" + }, + "<8,9>": { + "<8,9,1>": "RTS", + "<8,9,2>": "Ready to Ship" + }, + "<8,10>": { + "<8,10,1>": "SHIP", + "<8,10,2>": "Shipping" + }, + "<8,11>": { + "<8,11,1>": "COMP", + "<8,11,2>": "Complete" + }, + "<8,12>": { + "<8,12,1>": "CANC", + "<8,12,2>": "Canceled" + }, + "<8,13>": { + "<8,13,1>": "CL", + "<8,13,2>": "Closed" + }, + "<8,14>": { + "<8,14,1>": "INC", + "<8,14,2>": "Incomplete" + }, + "<8,15>": { + "<8,15,1>": "UNR", + "<8,15,2>": "Unrouted" + }, + "<8,16>": { + "<8,16,1>": "RFW", + "<8,16,2>": "Ready for WIP" + } + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "10", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Code" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "30", + "<9,2,3>": "L", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Status Description" + }, + "<9,3>": { + "<9,3,1>": "", + "<9,3,2>": "", + "<9,3,3>": "", + "<9,3,4>": "", + "<9,3,5>": "", + "<9,3,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "WO Step Status Codes", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/WO_WFRS.json b/LSL2/POPUP/WO_WFRS.json new file mode 100644 index 0000000..2878ca9 --- /dev/null +++ b/LSL2/POPUP/WO_WFRS.json @@ -0,0 +1,121 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "16", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Wfr ID" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "16", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Carr Slot ID" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "14", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "GaN Run ID" + }, + "<9,4>": { + "<9,4,1>": "4", + "<9,4,2>": "16", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Scribe" + }, + "<9,5>": { + "<9,5,1>": "5", + "<9,5,2>": "12", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Grade" + }, + "<9,6>": { + "<9,6,1>": "6", + "<9,6,2>": "8", + "<9,6,3>": "C", + "<9,6,4>": "C", + "<9,6,5>": "B", + "<9,6,6>": "Ship" + }, + "<9,7>": { + "<9,7,1>": "7", + "<9,7,2>": "16", + "<9,7,3>": "C", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "Ship Slot ID" + } + }, + "<10>": "L", + "<11>": "3", + "<12>": "WO Shippable Wafers", + "<13>": "", + "<14>": "E", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "1", + "<24>": "1", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/WO_WFR_AUDIT.json b/LSL2/POPUP/WO_WFR_AUDIT.json new file mode 100644 index 0000000..76fee42 --- /dev/null +++ b/LSL2/POPUP/WO_WFR_AUDIT.json @@ -0,0 +1,177 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-12", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "0", + "<6,1,7>": "0", + "<6,1,8>": "34", + "<6,1,9>": "0", + "<6,1,10>": "3", + "<6,1,11>": "2", + "<6,1,12>": "1", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "0" + } + }, + "<7>": "WO_WFR_AUDIT", + "<8>": "WITH WFR_ID \"163138.1.3\" BY EVENT_DTM", + "<9>": { + "<9,1>": { + "<9,1,1>": "WFR_ID", + "<9,1,2>": "12", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "", + "<9,1,6>": "Wafer Id" + }, + "<9,2>": { + "<9,2,1>": "EVENT_DTM", + "<9,2,2>": "16", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "DT4^S", + "<9,2,6>": "Event Dtm" + }, + "<9,3>": { + "<9,3,1>": "EVENT_BY", + "<9,3,2>": "14", + "<9,3,3>": "L", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Event By" + }, + "<9,4>": { + "<9,4,1>": "EVENT", + "<9,4,2>": "10", + "<9,4,3>": "L", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "Event" + }, + "<9,5>": { + "<9,5,1>": "CURR_SLOT_ID", + "<9,5,2>": "12", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Curr Slot Id" + }, + "<9,6>": { + "<9,6,1>": "NEW_SLOT_ID", + "<9,6,2>": "12", + "<9,6,3>": "C", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "New Slot Id" + }, + "<9,7>": { + "<9,7,1>": "CURR_TOOL_ID", + "<9,7,2>": "10", + "<9,7,3>": "C", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "Curr Tool Id" + }, + "<9,8>": { + "<9,8,1>": "NEW_TOOL_ID", + "<9,8,2>": "10", + "<9,8,3>": "C", + "<9,8,4>": "C", + "<9,8,5>": "", + "<9,8,6>": "New Tool Id" + }, + "<9,9>": { + "<9,9,1>": "CURR_INV_LOC", + "<9,9,2>": "12", + "<9,9,3>": "L", + "<9,9,4>": "C", + "<9,9,5>": "", + "<9,9,6>": "Curr Inv Loc" + }, + "<9,10>": { + "<9,10,1>": "NEW_INV_LOC", + "<9,10,2>": "12", + "<9,10,3>": "L", + "<9,10,4>": "C", + "<9,10,5>": "", + "<9,10,6>": "New Inv Loc" + }, + "<9,11>": { + "<9,11,1>": "RUN_LOC", + "<9,11,2>": "12", + "<9,11,3>": "L", + "<9,11,4>": "C", + "<9,11,5>": "", + "<9,11,6>": "Run Loc" + }, + "<9,12>": { + "<9,12,1>": "SCRIBE", + "<9,12,2>": "16", + "<9,12,3>": "L", + "<9,12,4>": "C", + "<9,12,5>": "", + "<9,12,6>": "Scribe" + }, + "<9,13>": { + "<9,13,1>": "TW_USE", + "<9,13,2>": "14", + "<9,13,3>": "L", + "<9,13,4>": "C", + "<9,13,5>": "", + "<9,13,6>": "Tw Use" + }, + "<9,14>": { + "<9,14,1>": "NCR_NO", + "<9,14,2>": "10", + "<9,14,3>": "L", + "<9,14,4>": "C", + "<9,14,5>": "", + "<9,14,6>": "NCR No" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "WO Wfr Audit", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "1", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/WO_WFR_LOG.json b/LSL2/POPUP/WO_WFR_LOG.json new file mode 100644 index 0000000..a7e2216 --- /dev/null +++ b/LSL2/POPUP/WO_WFR_LOG.json @@ -0,0 +1,121 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "WO_WFR", + "<8>": "WITH WFR_KEY = \"163138*2*19\"", + "<9>": { + "<9,1>": { + "<9,1,1>": "WO_NO", + "<9,1,2>": "14", + "<9,1,3>": "R", + "<9,1,4>": "C", + "<9,1,5>": "MD0", + "<9,1,6>": "WO No" + }, + "<9,2>": { + "<9,2,1>": "CASS_NO", + "<9,2,2>": "14", + "<9,2,3>": "R", + "<9,2,4>": "C", + "<9,2,5>": "MD0", + "<9,2,6>": "Cass No" + }, + "<9,3>": { + "<9,3,1>": "SLOT", + "<9,3,2>": "5", + "<9,3,3>": "R", + "<9,3,4>": "C", + "<9,3,5>": "MD0", + "<9,3,6>": "Slot" + }, + "<9,4>": { + "<9,4,1>": "LOC_DTM", + "<9,4,2>": "21", + "<9,4,3>": "R", + "<9,4,4>": "C", + "<9,4,5>": "DT4/^S", + "<9,4,6>": "Loc Dtm" + }, + "<9,5>": { + "<9,5,1>": "LOC_EVENT", + "<9,5,2>": "12", + "<9,5,3>": "L", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "Location Event" + }, + "<9,6>": { + "<9,6,1>": "LOC_BY", + "<9,6,2>": "12", + "<9,6,3>": "L", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Loc By" + }, + "<9,7>": { + "<9,7,1>": "SLOT_ID", + "<9,7,2>": "12", + "<9,7,3>": "L", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "Slot Id" + } + }, + "<10>": "T", + "<11>": "1", + "<12>": "WO Wfr Log", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "1", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/WO_WFR_REC.json b/LSL2/POPUP/WO_WFR_REC.json new file mode 100644 index 0000000..2375c7e --- /dev/null +++ b/LSL2/POPUP/WO_WFR_REC.json @@ -0,0 +1,137 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "Tahoma", + "<6,1,2>": "-11", + "<6,1,3>": "400", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "5", + "<6,1,7>": "0", + "<6,1,8>": "39", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "21" + } + }, + "<7>": "", + "<8>": "", + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "20", + "<9,1,3>": "C", + "<9,1,4>": "C", + "<9,1,5>": "DT4^S", + "<9,1,6>": "Loc DTM" + }, + "<9,2>": { + "<9,2,1>": "2", + "<9,2,2>": "12", + "<9,2,3>": "C", + "<9,2,4>": "C", + "<9,2,5>": "", + "<9,2,6>": "Event" + }, + "<9,3>": { + "<9,3,1>": "3", + "<9,3,2>": "12", + "<9,3,3>": "C", + "<9,3,4>": "C", + "<9,3,5>": "", + "<9,3,6>": "Slot ID" + }, + "<9,4>": { + "<9,4,1>": "4", + "<9,4,2>": "8", + "<9,4,3>": "C", + "<9,4,4>": "C", + "<9,4,5>": "", + "<9,4,6>": "NCR No" + }, + "<9,5>": { + "<9,5,1>": "5", + "<9,5,2>": "10", + "<9,5,3>": "C", + "<9,5,4>": "C", + "<9,5,5>": "", + "<9,5,6>": "TW Use" + }, + "<9,6>": { + "<9,6,1>": "6", + "<9,6,2>": "10", + "<9,6,3>": "C", + "<9,6,4>": "C", + "<9,6,5>": "", + "<9,6,6>": "Carr Slot" + }, + "<9,7>": { + "<9,7,1>": "7", + "<9,7,2>": "10", + "<9,7,3>": "C", + "<9,7,4>": "C", + "<9,7,5>": "", + "<9,7,6>": "Tool ID" + }, + "<9,8>": { + "<9,8,1>": "8", + "<9,8,2>": "10", + "<9,8,3>": "C", + "<9,8,4>": "C", + "<9,8,5>": "", + "<9,8,6>": "Loc" + }, + "<9,9>": { + "<9,9,1>": "", + "<9,9,2>": "", + "<9,9,3>": "", + "<9,9,4>": "", + "<9,9,5>": "", + "<9,9,6>": "" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "", + "<13>": "1", + "<14>": "F", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "", + "<29>": "0", + "<30>": "0", + "<31>": "0", + "<32>": "0", + "<33>": "0", + "<34>": "16777215", + "<35>": "16777215" + } + } +} \ No newline at end of file diff --git a/LSL2/POPUP/ZEBRA_PRINTER_OPTS.json b/LSL2/POPUP/ZEBRA_PRINTER_OPTS.json new file mode 100644 index 0000000..f647fd3 --- /dev/null +++ b/LSL2/POPUP/ZEBRA_PRINTER_OPTS.json @@ -0,0 +1,71 @@ +{ + "header": { + "version": 1, + "type": "record" + }, + "body": { + "record1": { + "<1>": "-1", + "<2>": "-1", + "<3>": "-1", + "<4>": "-1", + "<5>": "16777215", + "<6>": { + "<6,1>": { + "<6,1,1>": "MS Sans Serif", + "<6,1,2>": "-11", + "<6,1,3>": "700", + "<6,1,4>": "0", + "<6,1,5>": "0", + "<6,1,6>": "6", + "<6,1,7>": "0", + "<6,1,8>": "33", + "<6,1,9>": "0", + "<6,1,10>": "0", + "<6,1,11>": "0", + "<6,1,12>": "0", + "<6,1,13>": "11", + "<6,1,14>": "2", + "<6,1,15>": "0", + "<6,1,16>": "12" + } + }, + "<7>": "", + "<8>": { + "<8,1>": "Zebra 1 Shipping Cassette Labels", + "<8,2>": "Zebra 2 Shipping Box Labels", + "<8,3>": "Zebra 3 Receiving Cassette Labels", + "<8,4>": "Zebra 4 Receiving Cassette Labels" + }, + "<9>": { + "<9,1>": { + "<9,1,1>": "1", + "<9,1,2>": "25", + "<9,1,3>": "", + "<9,1,4>": "", + "<9,1,5>": "", + "<9,1,6>": "Option" + } + }, + "<10>": "L", + "<11>": "1", + "<12>": "Zebra Printer Choices", + "<13>": "", + "<14>": "P", + "<15>": "1", + "<16>": "1", + "<17>": "1", + "<18>": "1", + "<19>": "1", + "<20>": "1", + "<21>": "1", + "<22>": "0", + "<23>": "0", + "<24>": "0", + "<25>": "0", + "<26>": "", + "<27>": "", + "<28>": "" + } + } +} \ No newline at end of file diff --git a/LSL2/STPROCINS/AD_GROUP_VALIDATION_REQUESTS_EQUATES.txt b/LSL2/STPROCINS/AD_GROUP_VALIDATION_REQUESTS_EQUATES.txt new file mode 100644 index 0000000..8b0a957 --- /dev/null +++ b/LSL2/STPROCINS/AD_GROUP_VALIDATION_REQUESTS_EQUATES.txt @@ -0,0 +1,16 @@ +compile insert AD_GROUP_VALIDATION_REQUESTS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 13/02/2018 + Description : Insert for Table AD_GROUP_VALIDATION_REQUESTS +----------------------------------------*/ + + +Equ AD_GROUP_VALIDATION_REQUESTS.REQUEST_DATE$ To 0 +Equ AD_GROUP_VALIDATION_REQUESTS.REQUEST_TIME$ To 0 +Equ AD_GROUP_VALIDATION_REQUESTS.USERNAME$ To 0 +Equ AD_GROUP_VALIDATION_REQUESTS.ACCESS_LEVEL$ To 1 +Equ AD_GROUP_VALIDATION_REQUESTS.VALIDATION_DATE$ To 2 +Equ AD_GROUP_VALIDATION_REQUESTS.VALIDATION_TIME$ To 3 +Equ AD_GROUP_VALIDATION_REQUESTS.PASSWORD$ To 4 +Equ AD_GROUP_VALIDATION_REQUESTS.DOMAIN$ To 5 diff --git a/LSL2/STPROCINS/ANNUAL_CONTRACTS_EQU.txt b/LSL2/STPROCINS/ANNUAL_CONTRACTS_EQU.txt new file mode 100644 index 0000000..686df0f --- /dev/null +++ b/LSL2/STPROCINS/ANNUAL_CONTRACTS_EQU.txt @@ -0,0 +1,38 @@ +compile insert ANNUAL_CONTRACTS_EQU +* Equates for ANNUAL_CONTRACTS created on 12/01/97 09:45AM + +EQU ANNUAL_CONTRACTS_CUST_NO$ TO 1 +EQU ANNUAL_CONTRACTS_ENTRY_ID$ TO 2 +EQU ANNUAL_CONTRACTS_ENTRY_DATE$ TO 3 +EQU ANNUAL_CONTRACTS_PO$ TO 4 +EQU ANNUAL_CONTRACTS_STATUS$ TO 5 +EQU ANNUAL_CONTRACTS_CLOSE_DATE$ TO 6 +EQU ANNUAL_CONTRACTS_NAME_NO$ TO 7 +EQU ANNUAL_CONTRACTS_FROM_DATE$ TO 8 +EQU ANNUAL_CONTRACTS_THRU_DATE$ TO 9 +EQU ANNUAL_CONTRACTS_WSIZE$ TO 10 +EQU ANNUAL_CONTRACTS_DESCRIPTION$ TO 11 +EQU ANNUAL_CONTRACTS_CONTRACT_AMOUNT$ TO 12 +EQU ANNUAL_CONTRACTS_NOTES$ TO 13 +EQU ANNUAL_CONTRACTS_REL_NO$ TO 14 +EQU ANNUAL_CONTRACTS_REL_PO$ TO 15 +EQU ANNUAL_CONTRACTS_REL_DATE$ TO 16 +EQU ANNUAL_CONTRACTS_REL_WO$ TO 17 +EQU ANNUAL_CONTRACTS_REL_SETUP_CHARGE$ TO 18 +EQU ANNUAL_CONTRACTS_REL_QUANTITY$ TO 19 +EQU ANNUAL_CONTRACTS_REL_PRICE$ TO 20 +EQU ANNUAL_CONTRACTS_QUOTE_NUM$ TO 21 +EQU ANNUAL_CONTRACTS_MIN_BALANCE$ TO 22 + +EQU ANNUAL_CONTRACTS_PROD_ORD$ TO 24 +EQU ANNUAL_CONTRACTS_PART_NO$ TO 25 +EQU ANNUAL_CONTRACTS_CUST_SPEC$ TO 26 +EQU ANNUAL_CONTRACTS_PS_NO$ TO 27 +EQU ANNUAL_CONTRACTS_QUOTE_NO$ TO 28 +EQU ANNUAL_CONTRACTS_LAYER_SET$ TO 29 +EQU ANNUAL_CONTRACTS_CONT_EFF_DT$ TO 30 +EQU ANNUAL_CONTRACTS_CONT_END_DT$ TO 31 +EQU ANNUAL_CONTRACTS_CONT_QTY$ TO 32 +EQU ANNUAL_CONTRACTS_CONT_PRICE$ TO 33 +EQU ANNUAL_CONTRACTS_PO_LINE_NO$ TO 34 +EQU ANNUAL_CONTRACTS_PO_REL_NO$ TO 35 diff --git a/LSL2/STPROCINS/APPCOLORS.txt b/LSL2/STPROCINS/APPCOLORS.txt new file mode 100644 index 0000000..5bd5a7e --- /dev/null +++ b/LSL2/STPROCINS/APPCOLORS.txt @@ -0,0 +1,65 @@ +COMPILE INSERT AppColors + +EQU LTGREY$ TO 229 + (229*256) + (229*65536) +EQU GREY$ TO 192 + (192*256) + (192*65536) +EQU GREEN$ TO 192 + (220*256) + (192*65536) +EQU PINK$ TO 220 + (192*256) + (192*65536) +EQU RED$ TO 255 + (128*256) + (128*65536) +EQU BLUE$ TO 128 + (255*256) + (255*65536) +EQU WHITE$ TO 255 + (255*256) + (255*65536) +EQU YELLOW$ TO 255 + (255*256) + (202*65536) +EQU LTBLUE$ TO 152 + (157*256) + (255*65536) +EQU PURPLE$ TO 225 + (181*256) + (255*65536) +EQU ORANGE$ TO 255 + (176*256) + (0*65536) +EQU LTORANGE$ TO 255 + (220*256) + (128*65536) +EQU BLACK$ TO 5 + (5*256) + (5*65536) +EQU BGREEN$ TO 0 + (255*256) + (0*65536) +EQU BRED$ TO 255 + 0 + 0 +EQU BYELLOW$ TO 255 + (255*256) + 0 +EQU BBLUE$ TO 0 + (255*256) + (255*65536) + +EQU FONTGREEN$ TO 0 + (128*256) + (0*65536) + +EQU STATUS_YELLOW$ TO 252 + (251*256) + (222*65536) ;* Staus Line at bottom of screen * 1/8/2014 JCH + +EQU RCV_BLUE$ TO 228 + (239*256) + (252*65536) +EQU PRE_BLUE$ TO 198 + (221*256) + (249*65536) +EQU INP_BLUE$ TO 167 + (202*256) + (245*65536) +EQU POS_BLUE$ TO 136 + (184*256) + (242*65536) + +EQU LS1_GREEN$ TO 219 + (253*256) + (234*65536) ;* Layer Set spec table on EPI_PART Window +EQU LS2_GREEN$ TO 182 + (250*256) + (213*65536) +EQU LS3_GREEN$ TO 165 + (248*256) + (202*65536) +EQU CMB_YELLOW$ TO 243 + (249*256) + (147*65536) + +EQU PR1_RED$ TO 243 + (95*256) + (95*65536) ;* GaN Characterization Priorities +EQU PR2_RED$ TO 249 + (164*256) + (164*65536) +EQU PR3_RED$ TO 253 + (220*256) + (220*65536) + +EQU VL_RED$ TO 253 + (227*256) + (227*65536) ;* This matches RCV_BLUE$ in intensity this is also PINK! +EQU VL_YELLOW$ TO 250 + (252*256) + (228*65536) +EQU VL_GREEN$ TO 253 + (253*256) + (227*65536) ;* This matches RCV_BLUE$ in intensity + +EQU CI_GROUP_BLUE$ TO 116 + (186*256) + (186*65536) + +EQU MU_GREEN$ TO 176 + (238*256) + (176*65536) + +EQU KEY_YELLOW$ TO 255 + (255*256) + (128*65536) + +EQU SYSTEM_BACK$ TO 236 + (233*256) + (216*65536) + +EQU GAN_BLUE$ TO 203 + (254*256) + (254*65536) + +EQU SAP_TAN$ TO 255 + (240*256) + (158*65536) +EQU SAP_LT_BLUE$ TO 203 + (219*256) + (255*65536) +EQU SAP_DK_BLUE$ TO 174 + (206*256) + (219*65536) +EQU SAP_READ_ONLY$ TO 217 + (229*256) + (242*65536) + +EQU OI_BLUE$ TO 1 + (120*256) + (215*65536) ;* Matches the default blue of OI selection style in edit tables +EQU OI_GREY$ TO 225 + (225*256) + (225*65536) ;* Matches the default grey of OI push buttons when not hot +EQU OI_HOT_BLUE$ TO 229 + (241*256) + (251*65536) ;* Matches the default blue of OI push buttons when hot +EQU OI_CLICK_BLUE$ TO 205 + (228*256) + (246*65536) ;* Matches the default blue of OI push buttons when depressed + +EQU FORM_GRAY$ TO 15790320 + +EQU READONLY_GREEN$ TO 192 + (220*256) + (192*65536) diff --git a/LSL2/STPROCINS/APP_INSERTS.txt b/LSL2/STPROCINS/APP_INSERTS.txt new file mode 100644 index 0000000..60e7cdb --- /dev/null +++ b/LSL2/STPROCINS/APP_INSERTS.txt @@ -0,0 +1,252 @@ +Compile insert App_Inserts + +/*********************************************************************************************************************** + + This program is proprietary and is not to be used by or disclosed to others, nor is it to be copied without written + permission from SRP Computer Solutions, Inc. + + Name : App_Inserts + + Description : Common declarations and equates used by the application. + + Notes : App_Inserts is designed to be the most commonly used insert within SRP FrameWorks routines. + + History : (Date, Initials, Notes) + 07/23/98 dmb Original programmer. + 10/04/13 dmb Added insert for SystemFont$, SystemTypeface$, and SystemPoint$ to make it easier for + commuters to apply the FrameWorks default font. - [SRPFW-17] + +***********************************************************************************************************************/ + +Declare function Msg, PopUp, Set_Property, Get_Property, Utility, Send_Message, Dialog_Box, Start_Window +Declare function Start_MDIChild, Set_Printer, Get_Printer, SRP_Show_Window, MCP, GetTickCount +Declare function Form_Services, Error_Services, Memory_Services, MCP +Declare subroutine Set_Property, Utility, Send_Event, Send_Message, End_Dialog, Send_Info, Msg, SendMessage +Declare subroutine Forward_Event, Lock_Record, Post_Event, SRP_Show_Window, SRP_Set_Prop_Array +Declare subroutine Form_Services, Error_Services, SRP_Stopwatch, Memory_Services, MCP + +Equ SystemTable$ to 'APP_INFO' + +* Logical equates + +$insert LOGICAL + +Equ Success$ to 1 +Equ Failure$ to 0 +Equ Passed$ to 1 +Equ Failed$ to 0 +Equ Qualified$ to 1 +Equ Not_qualified$ to 0 +Equ Confirmed$ to 1 +Equ Not_confirmed$ to 0 +Equ OK$ to 1 + +* General equates + +Equ Tab$ to Char(9) +Equ Esc$ to \1B\ +Equ CRLF$ to \0D0A\ +Equ Lock$ to 1 +Equ Unlock$ to 2 +Equ ReadOnly$ to 0 +Equ FullWrite$ to 1 +Equ NoAccess$ to -1 + +* Font equates + +Equ Tahoma_8_Reg$ to 'Tahoma' : @SVM : -11 : @SVM : 400 : @SVM : 0 : @SVM : 0 : @SVM : 0 : @SVM : 0 : @SVM : 34 : @SVM : 0 : @SVM : 3 : @SVM : 2 : @SVM : 1 : @SVM : 0 : @SVM : 0 : @SVM : 0 : @SVM : 0 +Equ Tahoma_8_Reg_UL$ to 'Tahoma' : @SVM : -11 : @SVM : 400 : @SVM : 0 : @SVM : 1 : @SVM : 0 : @SVM : 0 : @SVM : 34 : @SVM : 0 : @SVM : 3 : @SVM : 2 : @SVM : 1 : @SVM : 0 : @SVM : 0 : @SVM : 0 : @SVM : 0 +Equ Tahoma_8_Bold$ to 'Tahoma' : @SVM : -11 : @SVM : 700 : @SVM : 0 : @SVM : 0 : @SVM : 0 : @SVM : 0 : @SVM : 34 : @SVM : 0 : @SVM : 3 : @SVM : 2 : @SVM : 1 : @SVM : 0 : @SVM : 0 : @SVM : 0 : @SVM : 0 + +Equ Tahoma_12_Reg$ to 'Tahoma' : @SVM : 12 : @SVM : 400 : @SVM : 0 : @SVM : 0 : @SVM : 0 : @SVM : 0 : @SVM : 34 : @SVM : 0 : @SVM : 3 : @SVM : 2 : @SVM : 1 : @SVM : 0 : @SVM : 0 : @SVM : 0 : @SVM : 0 +Equ Tahoma_12_Reg_UL$ to 'Tahoma' : @SVM : 12 : @SVM : 400 : @SVM : 0 : @SVM : 1 : @SVM : 0 : @SVM : 0 : @SVM : 34 : @SVM : 0 : @SVM : 3 : @SVM : 2 : @SVM : 1 : @SVM : 0 : @SVM : 0 : @SVM : 0 : @SVM : 0 +Equ Tahoma_12_Bold$ to 'Tahoma' : @SVM : 12 : @SVM : 700 : @SVM : 0 : @SVM : 0 : @SVM : 0 : @SVM : 0 : @SVM : 34 : @SVM : 0 : @SVM : 3 : @SVM : 2 : @SVM : 1 : @SVM : 0 : @SVM : 0 : @SVM : 0 : @SVM : 0 + +* Promoted Event equates + +Equ Create$ to 1 +Equ Activated$ to 2 +Equ Read_Pre_System$ to 3 +Equ Clear_Post_System$ to 4 +Equ Close_Post_System$ to 5 +Equ Size$ to 6 +Equ Delete_Post_System$ to 7 +Equ Winmsg$ to 8 +Equ Write_Pre_System$ to 9 +Equ Gotfocus$ to 10 +Equ Lostfocus$ to 11 +Equ Inactivated$ to 12 +Equ Read_Post_System$ to 13 +Equ Clear_Pre_System$ to 14 +Equ Poschanged$ to 15 +Equ Close_Pre_System$ to 16 +Equ Write_Post_System$ to 17 +Equ Delete_Pre_System$ to 18 +Equ InsertRow$ to 19 +Equ DeleteRow$ to 20 +Equ ColSize$ to 21 +Equ RightClickUp$ to 22 +Equ MouseOver$ to 23 +Equ MouseOff$ to 24 +Equ OLE$ to 25 +Equ Click$ to 26 +Equ Timer$ to 27 +Equ ContextMenu$ to 28 + +// General Windows API equates +Equ WM_USER to 1024 +Equ WM_CLOSE to 16 +Equ WM_COMMAND to 273 +Equ WM_LBUTTONDOWN to 513 ; // 0x0201 +Equ WM_LBUTTONUP to 514 ; // 0x0202 +Equ WM_LBUTTONDBLCLK to 515 ; // 0x0203 +Equ WM_RBUTTONDOWN to 516 ; // 0x0204 +Equ WM_RBUTTONUP to 517 ; // 0x0205 +Equ WM_PARENTNOTIFY to 528 ; // 0x0210 +Equ WM_SYSCOLORCHANGE to 21 ; // 0x0015 +Equ WM_SETCURSOR to 32 ; // 0x0020 +Equ WM_SIZE to 5 ; // 0x0005 +Equ WM_MOVE to 3 ; // 0x0003 +Equ WM_GETMINMAXINFO to 36 ; // 0x0024 +Equ WM_WINDOWPOSCHANGING to 70 + +// ShowWindow API equates +Equ SW_FORCEMINIMIZE to 11 +Equ SW_HIDE to 0 +Equ SW_MAXIMIZE to 3 +Equ SW_MINIMIZE to 6 +Equ SW_RESTORE to 9 +Equ SW_SHOW to 5 +Equ SW_SHOWDEFAULT to 10 +Equ SW_SHOWMAXIMIZED to 3 +Equ SW_SHOWMINIMIZED to 2 +Equ SW_SHOWMINNOACTIVE to 7 +Equ SW_SHOWNA to 8 +Equ SW_SHOWNOACTIVATE to 4 +Equ SW_SHOWNORMAL to 1 + + +Equ WS_CAPTION$ to 0x00C00000 +Equ WS_SYSMENU$ to 0x00080000 +Equ WS_THICKFRAME$ to 0x00040000 +Equ WS_EX_TOOLWINDOW$ to 0x00000080 +Equ WS_EX_CLIENTEDGE$ to 0x200 +Equ WS_CLIPCHILDREN$ to 0x02000000 + +Equ SM_CYCAPTION$ to 4 +Equ F4_VK_CODE to 115 ; // 115 is the virtual key code for F4. +Equ TAB_VK_CODE to 9 + +* Edittable/Datatable equates + +Equ DTN_ABORTEDIT to 17 +Equ DTM_EDITCURCELL to WM_USER + 95 ; * Change to Edit mode now +Equ DTM_SETEDITKEY to 1118 ; * Set key to change to Edit Mode +Equ DTM_SETCOLFORMAT to WM_USER + 18 + +Equ DT_BEGINEDIT to 1 ;* begin edit mode +Equ DT_ENDEDIT to 2 ;* end the edit +Equ DT_ABORTEDIT to 3 ;* Esc will undo changes +Equ DTS_EDIT to 4 +Equ DTCS_PROTECT to 8 + +* Help equates + +Equ HELP_CONTEXT to 1 +Equ HELP_QUIT to 2 +Equ HELP_INDEX to 3 +Equ HELP_CONTENTS to 3 +Equ HELP_HELPONHELP to 4 +Equ HELP_SETINDEX to 5 +Equ HELP_SETCONTENTS to 5 +Equ HELP_CONTEXTPOPUP to 8 +Equ HELP_FORCEFILE to 9 +Equ HELP_KEY to 257 +Equ HELP_COMMAND to 258 +Equ HELP_PARTIALKEY to 261 +Equ HELP_MULTIKEY to 513 +Equ HELP_SETWINPOS to 515 + +* Color equates + +Equ Msg_Light_Grey$ to 212:@VM:208:@VM:200 +Equ Msg_Dark_Grey$ to 127:@VM:127:@VM:127 +Equ Msg_Light_Blue$ to 0:@VM:255:@VM:255 +Equ Msg_Dark_Blue$ to 0:@VM:0:@VM:255 +Equ Msg_Red$ to 255:@VM:0:@VM:0 +Equ Msg_Green$ to 0:@VM:255:@VM:0 +Equ Msg_Purple$ to 255:@VM:0:@VM:255 +Equ Msg_Yellow$ to 255:@VM:255:@VM:0 +Equ Msg_Black$ to 0:@VM:0:@VM:0 +Equ Msg_White$ to 255:@VM:255:@VM:255 + +* RGB colors +EQU USEPARENT$ TO 0 ;* \000000\ +EQU BLACK$ TO 1 ;* \FFFFFF\ +EQU RED$ TO 255 ;* \0000FF\ +EQU ORANGE$ TO 33023 ;* \0080FF\ +EQU GREEN$ TO 65280 ;* \00FF00\ +EQU YELLOW$ TO 65535 ;* \00FFFF\ +EQU GREY$ TO 12632256 ;* \C0C0C0\ +EQU BLUE$ TO 16711680 ;* \FF0000\ +EQU PURPLE$ TO 16711808 ;* \FF0080\ +EQU MAGENTA$ TO 16711935 ;* \FF00FF\ +EQU CYAN$ TO 16776960 ;* \FFFF00\ +EQU WHITE$ TO 16777215 ;* \FFFFFF\ + +// The following color equates are used directly +// Example: Set_Property(CtrlEntID, "BACKCOLOR", COLOR_BTNFACE$) +EQU COLOR_SCROLLBAR$ TO 2147483648 ;* \80000000\ +EQU COLOR_BACKGROUND$ TO 2164260864 ;* \81000000\ +EQU COLOR_ACTIVECAPTION$ TO 2181038080 ;* \82000000\ +EQU COLOR_INACTIVECAPTION$ TO 2197815296 ;* \83000000\ +EQU COLOR_MENU$ TO 2214592512 ;* \84000000\ +EQU COLOR_WINDOW$ TO 2231369728 ;* \85000000\ +EQU COLOR_WINDOWFRAME$ TO 2248146944 ;* \86000000\ +EQU COLOR_MENUTEXT$ TO 2264924160 ;* \87000000\ +EQU COLOR_WINDOWTEXT$ TO 2281701376 ;* \88000000\ +EQU COLOR_CAPTIONTEXT$ TO 2298478592 ;* \89000000\ +EQU COLOR_ACTIVEBORDER$ TO 2315255808 ;* \8A000000\ +EQU COLOR_INACTIVEBORDER$ TO 2332033024 ;* \8B000000\ +EQU COLOR_APPWORKSPACE$ TO 2348810240 ;* \8C000000\ +EQU COLOR_HIGHLIGHT$ TO 2365587456 ;* \8D000000\ +EQU COLOR_HIGHLIGHTTEXT$ TO 2382364672 ;* \8E000000\ +EQU COLOR_BTNFACE$ TO 2399141888 ;* \8F000000\ +EQU COLOR_BTNSHADOW$ TO 2415919104 ;* \90000000\ +EQU COLOR_GRAYTEXT$ TO 2432696320 ;* \91000000\ +EQU COLOR_BTNTEXT$ TO 2449473536 ;* \92000000\ +EQU COLOR_INACTIVECAPTIONTEXT$ TO 2466250752 ;* \93000000\ +EQU COLOR_BTNHIGHLIGHT$ TO 2483027968 ;* \94000000\ + +// The following color equates are used with the GetSysColor WinAPI command +// Example: Set_Property(CtrlEntID, "BACKCOLOR", GetSysColor(API_COLOR_BTNFACE$)) +Equ API_COLOR_SCROLLBAR$ To 0 +Equ API_COLOR_BACKGROUND$ To 1 +Equ API_COLOR_ACTIVECAPTION$ To 2 +Equ API_COLOR_INACTIVECAPTION$ To 3 +Equ API_COLOR_MENU$ To 4 +Equ API_COLOR_WINDOW$ To 5 +Equ API_COLOR_WINDOWFRAME$ To 6 +Equ API_COLOR_MENUTEXT$ To 7 +Equ API_COLOR_WINDOWTEXT$ To 8 +Equ API_COLOR_CAPTIONTEXT$ To 9 +Equ API_COLOR_ACTIVEBORDER$ To 10 +Equ API_COLOR_INACTIVEBORDER$ To 11 +Equ API_COLOR_APPWORKSPACE$ To 12 +Equ API_COLOR_HIGHLIGHT$ To 13 +Equ API_COLOR_HIGHLIGHTTEXT$ To 14 +Equ API_COLOR_BTNFACE$ To 15 +Equ API_COLOR_BTNSHADOW$ To 16 +Equ API_COLOR_GRAYTEXT$ To 17 +Equ API_COLOR_BTNTEXT$ To 18 +Equ API_COLOR_INACTIVECAPTIONTEXT$ To 19 +Equ API_COLOR_BTNHIGHLIGHT$ To 20 + +// Preference Manager +Equ ImagePath$ to Memory_Services('GetValue', 'PM_CURRENT_IMAGE_PATH') : '\' +PMSystemFont = Memory_Services('GetValue', 'PM_SYSTEM_FONT') +Convert ',' to @SVM in PMSystemFont +Equ SystemFont$ to PMSystemFont +Equ SystemTypeface$ to SystemFont$[1, @SVM] +Equ SystemPoint$ to SystemFont$[Col2() + 1, @SVM] + diff --git a/LSL2/STPROCINS/ASM_PART_EQUATES.txt b/LSL2/STPROCINS/ASM_PART_EQUATES.txt new file mode 100644 index 0000000..d7ab4af --- /dev/null +++ b/LSL2/STPROCINS/ASM_PART_EQUATES.txt @@ -0,0 +1,15 @@ +compile insert ASM_PART_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 16/08/2006 + Description : Insert for Table ASM_PART +----------------------------------------*/ + + +Equ ASM_PART_PART_NO$ To 0 +Equ ASM_PART_PART_TYPE$ To 1 +Equ ASM_PART_RANGE$ To 2 +Equ ASM_PART_FLOW$ To 3 +Equ ASM_PART_GAS$ To 4 +Equ ASM_PART_INLET_PRESS$ To 5 +Equ ASM_PART_OUTLET_PRESS$ To 6 diff --git a/LSL2/STPROCINS/ATTENDANCE_EQUATES.txt b/LSL2/STPROCINS/ATTENDANCE_EQUATES.txt new file mode 100644 index 0000000..3095801 --- /dev/null +++ b/LSL2/STPROCINS/ATTENDANCE_EQUATES.txt @@ -0,0 +1,18 @@ +compile insert ATTENDANCE_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 22/02/2010 + Description : Insert for Table ATTENDANCE +----------------------------------------*/ + + +Equ ATTENDANCE_SEQ$ To 0 +Equ ATTENDANCE_EMPLOYEE$ To 1 +Equ ATTENDANCE_SHIFT$ To 2 +Equ ATTENDANCE_ENTRY_ID$ To 3 +Equ ATTENDANCE_ENTRY_DATE$ To 4 +Equ ATTENDANCE_DATE_ABSENT$ To 5 +Equ ATTENDANCE_TYPE$ To 6 +Equ ATTENDANCE_REASON$ To 7 +Equ ATTENDANCE_EXCUSED$ To 8 +Equ ATTENDANCE_SUPERVISOR$ To 9 diff --git a/LSL2/STPROCINS/AUDIT.txt b/LSL2/STPROCINS/AUDIT.txt new file mode 100644 index 0000000..ab297ac --- /dev/null +++ b/LSL2/STPROCINS/AUDIT.txt @@ -0,0 +1,14 @@ +COMPILE Insert AUDIT + +* Equates for COA table + +EQU AUDIT_TABLENAME$ TO 0.1 +EQU AUDIT_USERNAME$ TO 0.2 +EQU AUDIT_DATE_TIME$ TO 0.3 ;* Record key is in parts 0.4 through 0.n + +EQU AUDIT_ACTION$ TO 1 ;* New,Read, Write, Delete +EQU AUDIT_FIELDS$ TO 2 ;* Field name +EQU AUDIT_OLD_VALS$ TO 3 ;* Old values for each field +EQU AUDIT_NEW_VALS$ TO 4 ;* New values for each field +EQU AUDIT_ORG_RECORD TO 5 ;* complete record stored here on DELETE action + diff --git a/LSL2/STPROCINS/AUTHENTICATION_REQUESTS_EQUATES.txt b/LSL2/STPROCINS/AUTHENTICATION_REQUESTS_EQUATES.txt new file mode 100644 index 0000000..cf0a015 --- /dev/null +++ b/LSL2/STPROCINS/AUTHENTICATION_REQUESTS_EQUATES.txt @@ -0,0 +1,15 @@ +compile insert AUTHENTICATION_REQUESTS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 13/02/2018 + Description : Insert for Table AUTHENTICATION_REQUESTS +----------------------------------------*/ + + +Equ AUTHENTICATION_REQUESTS.REQUEST_DATE$ To 0 +Equ AUTHENTICATION_REQUESTS.REQUEST_TIME$ To 0 +Equ AUTHENTICATION_REQUESTS.USERNAME$ To 0 +Equ AUTHENTICATION_REQUESTS.PASSWORD$ To 1 +Equ AUTHENTICATION_REQUESTS.VALID$ To 2 +Equ AUTHENTICATION_REQUESTS.VALIDATION_DATE$ To 3 +Equ AUTHENTICATION_REQUESTS.VALIDATION_TIME$ To 4 diff --git a/LSL2/STPROCINS/CALIBRATION_EQUATES.txt b/LSL2/STPROCINS/CALIBRATION_EQUATES.txt new file mode 100644 index 0000000..3dbd18d --- /dev/null +++ b/LSL2/STPROCINS/CALIBRATION_EQUATES.txt @@ -0,0 +1,12 @@ +compile insert CALIBRATION_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 17/03/2010 + Description : Insert for Table CALIBRATION +----------------------------------------*/ + + +Equ CALIBRATION_CAL_DT$ To 0 +Equ CALIBRATION_CL_NO$ To 0 +Equ CALIBRATION_CAL_BY$ To 1 +Equ CALIBRATION_NOTES$ To 2 diff --git a/LSL2/STPROCINS/CALIB_LIST_EQUATES.txt b/LSL2/STPROCINS/CALIB_LIST_EQUATES.txt new file mode 100644 index 0000000..ffc9e0b --- /dev/null +++ b/LSL2/STPROCINS/CALIB_LIST_EQUATES.txt @@ -0,0 +1,24 @@ +compile insert CALIB_LIST_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 11/05/2010 + Description : Insert for Table CALIB_LIST +----------------------------------------*/ + + +Equ CALIB_LIST_CL_NO$ To 0 +Equ CALIB_LIST_CL_TYPE$ To 1 +Equ CALIB_LIST_EQ_DESC$ To 2 +Equ CALIB_LIST_EQ_SN$ To 3 +Equ CALIB_LIST_EQ_LOC$ To 4 +Equ CALIB_LIST_EQ_LEVEL$ To 5 +Equ CALIB_LIST_EQ_CAL_CLASS$ To 6 +Equ CALIB_LIST_STD_DESC$ To 7 +Equ CALIB_LIST_STD_SN$ To 8 +Equ CALIB_LIST_STD_LOC$ To 9 +Equ CALIB_LIST_CAL_INTERVAL$ To 10 +Equ CALIB_LIST_CAL_LOC$ To 11 +Equ CALIB_LIST_CALIBRATION$ To 12 +Equ CALIB_LIST_ORG_NEXT_CAL_DT$ To 13 +Equ CALIB_LIST_ENTER_DTM$ To 14 +Equ CALIB_LIST_DEPT$ To 15 diff --git a/LSL2/STPROCINS/CAR_EQU.txt b/LSL2/STPROCINS/CAR_EQU.txt new file mode 100644 index 0000000..b50c1e6 --- /dev/null +++ b/LSL2/STPROCINS/CAR_EQU.txt @@ -0,0 +1,45 @@ +* Equates for CAR created on 08/18/98 04:44AM + +equ CAR_ENTRY_ID$ to 1 +equ CAR_ENTRY_DATE$ to 2 +equ CAR_ISSUE_DATE$ to 3 +equ CAR_CUST_REF_NUM$ to 4 +equ CAR_RESP_USER_ID$ to 5 +equ CAR_CUST_ID$ to 6 +equ CAR_QUOTE_ID$ to 7 +equ CAR_WO$ to 8 +equ CAR_LOT_NOS$ to 9 +equ CAR_QUANTITY$ to 10 +equ CAR_PROBLEM$ to 11 +equ CAR_FINDINGS$ to 12 +equ CAR_CONTAIN_ACTIONS$ to 13 +equ CAR_CORRECT_ACTIONS$ to 14 +equ CAR_RESP_SIG$ to 15 +equ CAR_CAR_INPLACE_SIG$ to 16 +equ CAR_VIP_MFG_SIG$ to 17 +equ CAR_CAR_VERIFIED_SIG$ to 18 +equ CAR_VERIFIED_COMMENTS$ to 19 +equ CAR_STATUS$ to 21 +equ CAR_CONFIRM_STATUS$ to 22 +equ CAR_CAR_INPLACE_DATE$ to 23 +equ CAR_ANT_CAR_INPLACE_DATE$ to 24 +equ CAR_CUST_CONTACT_NOTES$ to 25 +equ CAR_NAMES_ID$ to 26 +equ CAR_PROD_SPEC_ID$ to 27 +equ CAR_FAX$ to 28 +equ CAR_IFAX$ to 29 +equ CAR_COMPLAINT_TYPE$ to 30 +equ CAR_RDS_IDS$ to 31 +equ CAR_EST_LOSS_VALUE$ to 32 +equ CAR_INVOICE_ID$ to 33 +equ CAR_CUST_FINDINGS$ to 35 +equ CAR_CUST_CORRECT_ACTIONS$ to 36 +equ CAR_RMA_PROD_RET$ to 37 +equ CAR_RMA_WAF_REC_DATE$ to 38 +equ CAR_RMA_WAF_GIVEN_TO$ to 39 +equ CAR_RMA_WAF_GIVEN_DATE$ to 40 +equ CAR_RMA_SPECIAL_INST$ to 41 +equ CAR_RMA_ENG_COMMENTS$ to 42 +equ CAR_RMA_ENG_SIGNATURE$ to 43 +equ CAR_RMA_LOT_NUM_RET$ to 44 +equ CAR_RMA_QTY_RET$ to 45 diff --git a/LSL2/STPROCINS/CLEAN_INSP_EQUATES.txt b/LSL2/STPROCINS/CLEAN_INSP_EQUATES.txt new file mode 100644 index 0000000..606956b --- /dev/null +++ b/LSL2/STPROCINS/CLEAN_INSP_EQUATES.txt @@ -0,0 +1,117 @@ +compile insert CLEAN_INSP_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 14/07/2014 + Description : Insert for Table CLEAN_INSP +----------------------------------------*/ + + +Equ CLEAN_INSP_CI_NO$ To 0 +Equ CLEAN_INSP_WO_NO$ To 1 +Equ CLEAN_INSP_WO_STEP$ To 2 +Equ CLEAN_INSP_CASS_NO$ To 3 +Equ CLEAN_INSP_STAGE$ To 4 +Equ CLEAN_INSP_RDS_NO$ To 5 +Equ CLEAN_INSP_SPEC_BRIGHTLIGHT$ To 6 +Equ CLEAN_INSP_SPEC_MICROSCOPE$ To 7 +Equ CLEAN_INSP_SPEC_SURFSCAN_REQ$ To 8 +Equ CLEAN_INSP_SPEC_SURFSCAN_RECIPE$ To 9 +Equ CLEAN_INSP_SPEC_CLEAN_SUBOXIDE$ To 10 +Equ CLEAN_INSP_SPEC_CLEAN_OXIDE_ANGSTROMS$ To 11 +Equ CLEAN_INSP_SPEC_CLEAN_TOOL$ To 12 +Equ CLEAN_INSP_SPEC_CLEAN_AKRION_RECIPE$ To 13 +Equ CLEAN_INSP_SPEC_CLEAN_RECIPE$ To 13 +Equ CLEAN_INSP_SPEC_SURF_HAZE$ To 14 +Equ CLEAN_INSP_SPEC_SURF_DEFECTS$ To 15 +Equ CLEAN_INSP_SPEC_PITS$ To 16 +Equ CLEAN_INSP_SPEC_MOUNDS$ To 17 +Equ CLEAN_INSP_SPEC_BL_DEFECTS$ To 18 +Equ CLEAN_INSP_SPEC_SPOTS$ To 19 +Equ CLEAN_INSP_SPEC_FOV$ To 20 +Equ CLEAN_INSP_SPEC_SCRATCHES$ To 21 +Equ CLEAN_INSP_SPEC_SCRATCH_LEN$ To 22 +Equ CLEAN_INSP_SPEC_LPD$ To 23 +Equ CLEAN_INSP_SPEC_STACK_FAULTS$ To 24 +Equ CLEAN_INSP_SPEC_SPIKES$ To 25 +Equ CLEAN_INSP_SPEC_FWI_LWI$ To 26 +Equ CLEAN_INSP_SPEC_SS_SAMP_QTY$ To 27 +Equ CLEAN_INSP_CLEAN_TOOL$ To 28 +Equ CLEAN_INSP_CLEAN_BOAT_ID$ To 29 +Equ CLEAN_INSP_CLEAN_SRD_NO$ To 30 +Equ CLEAN_INSP_CLEAN_SIG$ To 31 +Equ CLEAN_INSP_CLEAN_SIG_DTM$ To 32 +Equ CLEAN_INSP_INSP_PITS$ To 33 +Equ CLEAN_INSP_INSP_MOUNDS$ To 34 +Equ CLEAN_INSP_INSP_LPD$ To 35 +Equ CLEAN_INSP_INSP_LPD_IN$ To 35 +Equ CLEAN_INSP_INSP_LPD_OUT$ To 36 +Equ CLEAN_INSP_INSP_BL_DEFECTS$ To 37 +Equ CLEAN_INSP_INSP_STACK_FAULTS$ To 38 +Equ CLEAN_INSP_INSP_SPIKES$ To 39 +Equ CLEAN_INSP_INSP_SPOTS$ To 40 +Equ CLEAN_INSP_INSP_FOV$ To 41 +Equ CLEAN_INSP_INSP_SCRATCHES$ To 42 +Equ CLEAN_INSP_INSP_SCRATCH_LEN$ To 43 +Equ CLEAN_INSP_SCAN_TOOL$ To 44 +Equ CLEAN_INSP_SCAN_SIG_DTM$ To 45 +Equ CLEAN_INSP_SCAN_SUM_OF_DEF_MIN$ To 46 +Equ CLEAN_INSP_SCAN_SUM_OF_DEF_MAX$ To 47 +Equ CLEAN_INSP_SCAN_SUM_OF_DEF_AVG$ To 48 +Equ CLEAN_INSP_SCAN_HAZE_AVG_MIN$ To 49 +Equ CLEAN_INSP_SCAN_HAZE_AVG_MAX$ To 50 +Equ CLEAN_INSP_SCAN_HAZE_AVG_AVG$ To 51 +Equ CLEAN_INSP_COMMENTS$ To 52 +Equ CLEAN_INSP_SPC_DTM$ To 53 +Equ CLEAN_INSP_SCAN_SCRATCH_AVG$ To 54 +Equ CLEAN_INSP_SCAN_SCRATCH_MAX$ To 55 +Equ CLEAN_INSP_JCH_WAFER_CNT$ To 56 +Equ CLEAN_INSP_INSP_SIG$ To 57 +Equ CLEAN_INSP_INSP_SIG_DTM$ To 58 +Equ CLEAN_INSP_SCAN_SIG$ To 59 +Equ CLEAN_INSP_SHIFT$ To 60 +Equ CLEAN_INSP_CLEAN_VER_SIG$ To 61 +Equ CLEAN_INSP_CLEAN_VER_SIG_DTM$ To 62 +Equ CLEAN_INSP_INSP_VER_SIG$ To 63 +Equ CLEAN_INSP_INSP_VER_SIG_DTM$ To 64 +Equ CLEAN_INSP_SCAN_VER_SIG$ To 65 +Equ CLEAN_INSP_SCAN_VER_SIG_DTM$ To 66 +Equ CLEAN_INSP_INSP_TOOL$ To 67 +Equ CLEAN_INSP_SCAN_RECIPE$ To 68 +Equ CLEAN_INSP_SPEC_INSP_REQ$ To 69 +Equ CLEAN_INSP_SPEC_CLEAN_REQ$ To 70 +Equ CLEAN_INSP_ROTR_ACTION$ To 71 +Equ CLEAN_INSP_SPEC_BSIDE_SCRATCHES$ To 72 +Equ CLEAN_INSP_SPEC_BSIDE_SCRATCH_LEN$ To 73 +Equ CLEAN_INSP_SPEC_BSIDE_NODULES$ To 74 +Equ CLEAN_INSP_SPEC_BSIDE_SPIKES$ To 75 +Equ CLEAN_INSP_INSP_BSIDE_SCRATCHES$ To 76 +Equ CLEAN_INSP_INSP_BSIDE_SCRATCH_LEN$ To 77 +Equ CLEAN_INSP_INSP_BSIDE_NODULES$ To 78 +Equ CLEAN_INSP_INSP_BSIDE_SPIKES$ To 79 +Equ CLEAN_INSP_INSP_TEST_RUN_DTM$ To 80 +Equ CLEAN_INSP_SIGN_ROTR_SIGNATURE$ To 81 +Equ CLEAN_INSP_SIGN_ROTR_DTM$ To 82 +Equ CLEAN_INSP_SIGN_ROTR_REASON$ To 83 +Equ CLEAN_INSP_DCN_MM2$ To 84 +Equ CLEAN_INSP_ROTR_ACTION_REASON$ To 85 +Equ CLEAN_INSP_SCAN_SOD_PER_WAFER$ To 86 +Equ CLEAN_INSP_NUM_FAILED_WAFERS$ To 87 +Equ CLEAN_INSP_SCAN_RECIPE_MISMATCH$ To 88 +Equ CLEAN_INSP_SPEC_SUM_OF_DEF_AVG$ To 89 +Equ CLEAN_INSP_FAIL_SCAN_REQ$ To 90 +Equ CLEAN_INSP_SCAN_SUM_OF_DEF_AVG_FAIL$ To 91 +Equ CLEAN_INSP_SCAN_SAMPLE_QTY_MISMATCH$ To 92 +Equ CLEAN_INSP_ROTR_REACTOR_STATUS$ To 93 +Equ CLEAN_INSP_ROTR_REACTOR_STATUS_REASON$ To 94 +Equ CLEAN_INSP_ROTR_REACTOR_NCR_COUNT$ To 95 +Equ CLEAN_INSP_ROTR_REACTOR_ZERO_NCR_RUN_COUNT$ To 96 +Equ CLEAN_INSP_ROTR_REACTOR_UCL_EXCEEDED_RUN_COUNT$ To 97 +Equ CLEAN_INSP_ROTR_UPDATE_FLAG$ To 98 +Equ CLEAN_INSP_SCAN_RESULT$ To 99 +Equ CLEAN_INSP_SCAN_RESULT_REASON$ To 100 +Equ CLEAN_INSP_SCAN_SORT_PER_WAFER$ To 101 +Equ CLEAN_INSP_FAILED_WAFERS$ To 102 +Equ CLEAN_INSP_INSP_INTERVAL$ To 103 +Equ CLEAN_INSP_SPEC_EDGE$ To 104 +Equ CLEAN_INSP_WAFERS_REMOVED$ To 105 + diff --git a/LSL2/STPROCINS/COA.txt b/LSL2/STPROCINS/COA.txt new file mode 100644 index 0000000..f1c0984 --- /dev/null +++ b/LSL2/STPROCINS/COA.txt @@ -0,0 +1,24 @@ +COMPILE Insert COA + +* Equates for COA table + +EQU COA_COMP_NO TO 0.1 +EQU COA_LOT_NO$ TO 0.2 +EQU COA_LOT_DT$ TO 1 +EQU COA_LOT_QTY$ TO 2 +EQU COA_RX_DTM$ TO 3 +EQU COA_SPEC$ TO 4 +EQU COA_PART_NO$ TO 5 +EQU COA_PO_NO$ TO 6 +EQU COA_PARAMETER$ TO 7 +EQU COA_PARM_SPEC$ TO 8 +EQU COA_SAMPLE_SIZE$ TO 9 +EQU COA_MIN$ TO 10 +EQU COA_MAX$ TO 11 +EQU COA_MEAN$ TO 12 +EQU COA_STD_DEV$ TO 13 +EQU COA_SUB_GROWTH_METHOD$ TO 14 +EQU COA_SUB_ORIENTATION$ TO 15 +EQU COA_SUB_COND_TYPE$ TO 16 +EQU COA_SUB_DOPANT$ TO 17 + diff --git a/LSL2/STPROCINS/COA_COC.txt b/LSL2/STPROCINS/COA_COC.txt new file mode 100644 index 0000000..a0e6c23 --- /dev/null +++ b/LSL2/STPROCINS/COA_COC.txt @@ -0,0 +1,12 @@ +COMPILE Insert COA_COC + +* Equates for COA_COC table + +EQU COA_COC_PO_NO$ TO 1 +EQU COA_COC_SHIP_DT$ TO 2 +EQU COA_COC_SPEC$ TO 3 +EQU COA_COC_VEND_LOT_NO$ TO 4 +EQU COA_COC_VEND_LOT_QTY$ TO 5 +EQU COA_COC_PATH$ TO 6 +EQU COA_COC_XLFILENAME$ TO 7 + diff --git a/LSL2/STPROCINS/COC_EQU.txt b/LSL2/STPROCINS/COC_EQU.txt new file mode 100644 index 0000000..fd0e49c --- /dev/null +++ b/LSL2/STPROCINS/COC_EQU.txt @@ -0,0 +1,48 @@ +compile insert COC_EQU +* Equates for COC created on 01/29/01 10:17AM + +EQU COC_ENTRY_ID$ TO 1 +EQU COC_ENTRY_DATE$ TO 2 +EQU COC_PO$ TO 3 +EQU COC_WO$ TO 4 +EQU COC_PART_NUM$ TO 5 +EQU COC_LOT_NUM$ TO 6 +EQU COC_REACTOR$ TO 7 +EQU COC_RDS_NO$ TO 8 +EQU COC_WAFER_QTY$ TO 9 +EQU COC_CUST_NO$ TO 10 +EQU COC_SHIPMENT$ TO 11 +EQU COC_ORDER_NO$ TO 12 +EQU COC_ORDER_LINE$ TO 13 +EQU COC_REJECTS$ TO 14 +EQU COC_SHIP_VIA$ TO 15 +EQU COC_TRACKING_NOS$ TO 16 +EQU COC_PICK_BY$ TO 17 +EQU COC_PICK_DTM$ TO 18 +EQU COC_INVOICE_NO$ TO 19 +EQU COC_SHIP_VIA_ACCT_NO$ TO 20 +EQU COC_SHIP_DT$ TO 21 +EQU COC_VISION_DTM$ TO 22 +EQU COC_VISION_ORD_REL_NO$ TO 23 +EQU COC_SEND_DTM$ TO 24 +EQU COC_SEND_USER$ TO 25 +EQU COC_SEND_REASON$ TO 26 + +EQU COC_ORDER_ITEM$ TO 29 +EQU COC_ITEM_WFR_QTY$ TO 30 +EQU COC_ITEM_MISC_QTY$ TO 31 +EQU COC_ITEM_UNIT_PRICE$ TO 32 +EQU COC_WO_STEP$ TO 33 +EQU COC_CASS_NO$ TO 34 +EQU COC_TEST_REJ_WFR_QTY$ TO 35 +EQU COC_TEST_REJ_WFR_UNIT_PRICE$ TO 36 +EQU COC_TRACK_NO_BOX_CNT$ TO 37 +EQU COC_TRACK_NO_SHIP_WT$ TO 38 +EQU COC_TRACK_NO_LEN$ TO 39 +EQU COC_TRACK_NO_WIDTH$ TO 40 +EQU COC_TRACK_NO_HEIGHT$ TO 41 +EQU COC_CARTON_DATA$ TO 42 +EQU COC_CASS_RETURNED$ TO 43 +EQU COC_REACTOR_TYPE$ TO 44 + + diff --git a/LSL2/STPROCINS/COC_EQUATES.txt b/LSL2/STPROCINS/COC_EQUATES.txt new file mode 100644 index 0000000..2a946b5 --- /dev/null +++ b/LSL2/STPROCINS/COC_EQUATES.txt @@ -0,0 +1,59 @@ +compile insert COC_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 31/07/2015 + Description : Insert for Table COC +----------------------------------------*/ + + +Equ COC_SEQ$ To 0 +Equ COC_ENTRY_ID$ To 1 +Equ COC_ENTRY_DATE$ To 2 +Equ COC_PO$ To 3 +Equ COC_WO$ To 4 +Equ COC_WO_NO$ To 4 +Equ COC_PART_NUM$ To 5 +Equ COC_LOT_NUM$ To 6 +Equ COC_REACTOR$ To 7 +Equ COC_RDS_NO$ To 8 +Equ COC_WAFER_QTY$ To 9 +Equ COC_CUST_NO_ORG$ To 10 +Equ COC_SHIPMENT$ To 11 +Equ COC_ORDER_NO$ To 12 +Equ COC_ORDER_LINE$ To 13 +Equ COC_REJECTS$ To 14 +Equ COC_SHIP_VIA$ To 15 +Equ COC_TRACKING_NOS$ To 16 +Equ COC_PICK_BY$ To 17 +Equ COC_PICK_DTM$ To 18 +Equ COC_INVOICE_NO$ To 19 +Equ COC_SHIP_VIA_ACCT_NO$ To 20 +Equ COC_SHIP_DT$ To 21 +Equ COC_VISION_DTM$ To 22 +Equ COC_VISION_ORD_REL_NO$ To 23 +Equ COC_SEND_DTM$ To 24 +Equ COC_SEND_USER$ To 25 +Equ COC_SEND_REASON$ To 26 +Equ COC_PART_NO_LU$ To 27 +Equ COC_LOT_NO_LU$ To 28 +Equ COC_ORDER_ITEM$ To 29 +Equ COC_ITEM_WFR_QTY$ To 30 +Equ COC_ITEM_MISC_QTY$ To 31 +Equ COC_ITEM_UNIT_PRICE$ To 32 +Equ COC_WO_STEP$ To 33 +Equ COC_CASS_NO$ To 34 +Equ COC_TEST_REJ_WFR_QTY$ To 35 +Equ COC_TEST_REJ_WFR_UNIT_PRICE$ To 36 +Equ COC_TRACK_NO_BOX_CNT$ To 37 +Equ COC_TRACK_NO_SHIP_WT$ To 38 +Equ COC_TRACK_NO_LEN$ To 39 +Equ COC_TRACK_NO_WIDTH$ To 40 +Equ COC_TRACK_NO_HEIGHT$ To 41 +Equ COC_CARTON_DATA$ To 42 +Equ COC_CASS_RETURNED$ To 43 +Equ COC_REACTOR_TYPE$ To 44 +Equ COC_SAP_DEL_NO$ To 45 +Equ COC_TECH_DATA_DTM$ To 46 +Equ COC_EMAIL_DTM$ To 47 +Equ COC_EMAIL_USER$ To 48 +Equ COC_EMAIL_REASON$ To 49 diff --git a/LSL2/STPROCINS/COMPANY_CFG_EQU.txt b/LSL2/STPROCINS/COMPANY_CFG_EQU.txt new file mode 100644 index 0000000..042e7d3 --- /dev/null +++ b/LSL2/STPROCINS/COMPANY_CFG_EQU.txt @@ -0,0 +1,22 @@ +COMPILE INSERT COMPANY_CFG_EQU + +* Equates for "CONFIG" table 'COMPANY' record +* Holds information about the company at which the system is installed +* used for reports header and messages thruout the system + +EQU COMP_NAME$ TO 1 +EQU COMP_DIVISION$ TO 2 +EQU COMP_ADDR$ TO 3 ;* Multivalued +EQU COMP_CITY$ TO 4 +EQU COMP_ST$ TO 5 +EQU COMP_ZIP$ TO 6 +EQU COMP_COUNTRY$ TO 7 +EQU COMP_PHONE$ TO 8 ;* NOT iconv'd +EQU COMP_FAX$ TO 9 ;* NOT IConv'd +EQU COMP_WEB$ TO 10 ;* Website +EQU COMP_DUNS$ TO 11 +EQU COMP_EMAIL$ TO 12 + +EQU COMP_COLOR_BMP$ TO 15 ;* Color bitmap used on main menu screen (path) +EQU COMP_BW_BMP$ TO 16 ;* Black and White bitmap (path) +EQU COMP_ZEBRA_GRF$ TO 17 ;* Path to Zebra Printer specific bitmap. diff --git a/LSL2/STPROCINS/COMPANY_EQU.txt b/LSL2/STPROCINS/COMPANY_EQU.txt new file mode 100644 index 0000000..db7b930 --- /dev/null +++ b/LSL2/STPROCINS/COMPANY_EQU.txt @@ -0,0 +1,72 @@ +compile insert COMPANY_EQU +* Equates for COMPANY created on 09/13/00 10:07AM + +equ COMPANY_ENTRY_DATE$ to 1 +equ COMPANY_ENTRY_ID$ to 2 +equ COMPANY_CATEGORY$ to 3 +equ COMPANY_CO_NAME$ to 4 +equ COMPANY_ADDRESS$ to 5 +equ COMPANY_CITY$ to 6 +equ COMPANY_STATE$ to 7 +equ COMPANY_ZIP$ to 8 +equ COMPANY_PHONES$ to 9 +equ COMPANY_PHONE_TYPES$ to 10 +equ COMPANY_INTL_PHONES$ to 11 +equ COMPANY_INTL_PHONE_TYPES$ to 12 +equ COMPANY_NOTE$ to 13 +equ COMPANY_CO_TYPE$ to 14 +equ COMPANY_DIVISION$ to 15 +equ COMPANY_TERMS$ to 16 +equ COMPANY_SHIPPER_INFO$ to 17 +equ COMPANY_BILL_TO_ATTN$ to 18 +equ COMPANY_BILL_TO_CO$ to 19 +equ COMPANY_BILL_TO_ADDRESS$ to 20 +equ COMPANY_BILL_TO_CITY$ to 21 +equ COMPANY_BILL_TO_STATE$ to 22 +equ COMPANY_BILL_TO_ZIP$ to 23 +equ COMPANY_SHIP_TO_ATTN$ to 24 +equ COMPANY_SHIP_TO_CO$ to 25 +equ COMPANY_SHIP_TO_ADDRESS$ to 26 +equ COMPANY_SHIP_TO_CITY$ to 27 +equ COMPANY_SHIP_TO_STATE$ to 28 +equ COMPANY_SHIP_TO_ZIP$ to 29 +equ COMPANY_COUNTRY$ to 30 +equ COMPANY_ACCOUNT_NO$ to 31 +equ COMPANY_VREMIT_ADDR$ to 32 +equ COMPANY_VREMIT_CITY$ to 33 +equ COMPANY_VREMIT_STATE$ to 34 +equ COMPANY_VREMIT_ZIP$ to 35 +equ COMPANY_VREMIT_PHONE$ to 36 +equ COMPANY_VACCT_NO$ to 37 +equ COMPANY_VREMIT_PHONE_TYPES$ to 38 +equ COMPANY_VREMIT_COMPANY$ to 39 +equ COMPANY_INVOICE_NOTES$ to 40 +equ COMPANY_SALES_REP$ to 41 +equ COMPANY_ABBREV$ to 42 +equ COMPANY_BUSINESS_DESC$ to 43 +equ COMPANY_DIRECTIONS$ to 44 +equ COMPANY_CREDIT_LIMIT$ to 45 +equ COMPANY_CREDIT_APPROVED_BY$ to 46 +equ COMPANY_CREDIT_REVIEW_DATE$ to 47 +equ COMPANY_ACCT_REP$ to 48 +equ COMPANY_SALES_OFFICE$ to 49 +equ COMPANY_PRODUCT$ to 50 +equ COMPANY_APPLICATION$ to 51 +equ COMPANY_INDUSTRY$ to 52 +equ COMPANY_ENDUSER_CUST$ to 53 +equ COMPANY_CUST_COMPETITION$ to 54 +equ COMPANY_OUR_COMPETITION$ to 55 +equ COMPANY_MANUF_TYPE$ to 56 +equ COMPANY_STATUS$ to 57 +equ COMPANY_ORACLE_SITE_ID$ to 58 +equ COMPANY_SHIPPING_EXPORT_TEMPLATE$ to 59 +EQU COMPANY_COA_FOLDER$ TO 60 +EQU COMPANY_VISION_CUST_NO$ TO 61 +EQU COMPANY_BILL_TO_CUST_NO$ TO 62 +EQU COMPANY_SHIP_TO_CUST_NO$ TO 63 +EQU COMPANY_CAPTIVE$ TO 64 +EQU COMPANY_CONSIGNMENT$ TO 65 +EQU COMPANY_MU_WAFERS$ TO 66 +EQU COMPANY_REPORT_EXCLUDE$ TO 67 +EQU COMPANY_INCO_CODE$ TO 68 +EQU COMPANY_SAP_CUST_NO$ TO 69 diff --git a/LSL2/STPROCINS/COMPANY_EQUATES.txt b/LSL2/STPROCINS/COMPANY_EQUATES.txt new file mode 100644 index 0000000..1d96750 --- /dev/null +++ b/LSL2/STPROCINS/COMPANY_EQUATES.txt @@ -0,0 +1,109 @@ +compile insert COMPANY_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 21/10/2016 + Description : Insert for Table COMPANY +----------------------------------------*/ + + +Equ COMPANY_CO_NO$ To 0 +Equ COMPANY_ENTRY_DATE$ To 1 +Equ COMPANY_ENTRY_ID$ To 2 +Equ COMPANY_CATEGORY$ To 3 +Equ COMPANY_CO_NAME$ To 4 +Equ COMPANY_ADDRESS$ To 5 +Equ COMPANY_CITY$ To 6 +Equ COMPANY_STATE$ To 7 +Equ COMPANY_ZIP$ To 8 +Equ COMPANY_PHONES$ To 9 +Equ COMPANY_PHONE_TYPES$ To 10 +Equ COMPANY_INTL_PHONES$ To 11 +Equ COMPANY_INTL_PHONE_TYPES$ To 12 +Equ COMPANY_NOTE$ To 13 +Equ COMPANY_CO_TYPE$ To 14 +Equ COMPANY_DIVISION$ To 15 +Equ COMPANY_TERMS$ To 16 +Equ COMPANY_SHIPPER_INFO$ To 17 +Equ COMPANY_BILL_TO_ATTN$ To 18 +Equ COMPANY_BILL_TO_CO$ To 19 +Equ COMPANY_BILL_TO_ADDRESS$ To 20 +Equ COMPANY_BILL_TO_CITY$ To 21 +Equ COMPANY_BILL_TO_STATE$ To 22 +Equ COMPANY_BILL_TO_ZIP$ To 23 +Equ COMPANY_SHIP_TO_ATTN$ To 24 +Equ COMPANY_SHIP_TO_CO$ To 25 +Equ COMPANY_SHIP_TO_ADDRESS$ To 26 +Equ COMPANY_SHIP_TO_CITY$ To 27 +Equ COMPANY_SHIP_TO_STATE$ To 28 +Equ COMPANY_SHIP_TO_ZIP$ To 29 +Equ COMPANY_COUNTRY$ To 30 +Equ COMPANY_ACCOUNT_NO$ To 31 +Equ COMPANY_VREMIT_ADDR$ To 32 +Equ COMPANY_VREMIT_CITY$ To 33 +Equ COMPANY_VREMIT_STATE$ To 34 +Equ COMPANY_VREMIT_ZIP$ To 35 +Equ COMPANY_VREMIT_PHONE$ To 36 +Equ COMPANY_VACCT_NO$ To 37 +Equ COMPANY_VREMIT_PHONE_TYPES$ To 38 +Equ COMPANY_VREMIT_COMPANY$ To 39 +Equ COMPANY_INVOICE_NOTES$ To 40 +Equ COMPANY_SALES_REP$ To 41 +Equ COMPANY_ABBREV$ To 42 +Equ COMPANY_BUSINESS_DESC$ To 43 +Equ COMPANY_DIRECTIONS$ To 44 +Equ COMPANY_CREDIT_LIMIT$ To 45 +Equ COMPANY_CREDIT_APPROVED_BY$ To 46 +Equ COMPANY_CREDIT_REVIEW_DATE$ To 47 +Equ COMPANY_ACCT_REP$ To 48 +Equ COMPANY_SALES_OFFICE$ To 49 +Equ COMPANY_PRODUCT$ To 50 +Equ COMPANY_APPLICATION$ To 51 +Equ COMPANY_INDUSTRY$ To 52 +Equ COMPANY_ENDUSER_CUST$ To 53 +Equ COMPANY_CUST_COMPETITION$ To 54 +Equ COMPANY_OUR_COMPETITION$ To 55 +Equ COMPANY_MANUF_TYPE$ To 56 +Equ COMPANY_STATUS$ To 57 +Equ COMPANY_ORACLE_SITE_ID$ To 58 +Equ COMPANY_SHIPPING_EXPORT_TEMPLATE$ To 59 +Equ COMPANY_COA_FOLDER$ To 60 +Equ COMPANY_VISION_CUST_NO$ To 61 +Equ COMPANY_BILL_TO_CUST_NO$ To 62 +Equ COMPANY_SHIP_TO_CUST_NO$ To 63 +Equ COMPANY_CAPTIVE$ To 64 +Equ COMPANY_CONSIGNMENT$ To 65 +Equ COMPANY_MU_WAFERS$ To 66 +Equ COMPANY_REPORT_EXCLUDE$ To 67 +Equ COMPANY_INCO_CODE$ To 68 +Equ COMPANY_SAP_CUST_NO$ To 69 +Equ COMPANY_VEND_CD$ To 70 +Equ COMPANY_SCHED_NAME$ To 71 +Equ COMPANY_FTP_QUEUE$ To 72 +Equ COMPANY_SHIP_DATA_FLAG$ To 72 +Equ COMPANY_PROD_SPEC_NO$ To 73 +Equ COMPANY_SHIP_EMAIL_NAME$ To 74 +Equ COMPANY_SHIP_EMAIL_NOTIF$ To 75 +Equ COMPANY_SHIP_COC_FRONT_COPIES$ To 76 +Equ COMPANY_SHIP_COC_BACK_COPIES$ To 77 +Equ COMPANY_SHIP_CUST_RDS$ To 78 +Equ COMPANY_SHIP_NCR_REJ$ To 79 +Equ COMPANY_SHIP_VENDOR_COA$ To 80 +Equ COMPANY_SHIP_DOC_DIR$ To 81 +Equ COMPANY_SHIP_FOLDER_NAME$ To 81 +Equ COMPANY_EMAIL_SHIP_DOC$ To 82 +Equ COMPANY_SHIP_DOC_FLAG$ To 82 +Equ COMPANY_SHIP_DOC_FILE_NAME$ To 83 +Equ COMPANY_SHIP_DATA_DIR$ To 84 +Equ COMPANY_SHIP_DATA_HEADER$ To 85 +Equ COMPANY_SHIP_DATA_FILE_NAME_PREFIX$ To 86 +Equ COMPANY_SHIP_DATA_FILE_NAME_SUFFIX$ To 87 +Equ COMPANY_SHIP_DATA_EXPORT$ To 88 +Equ COMPANY_SHIP_DATA_ROUTINE$ To 89 +Equ COMPANY_WAFER_FLAT_WAFER_SIZE_INCH$ To 90 +Equ COMPANY_WAFER_FLAT_LENGTH_MIN$ To 91 +Equ COMPANY_WAFER_FLAT_LENGTH_MAX$ To 92 +Equ COMPANY_AUTO_FTP_FLAG$ to 93 +Equ COMPANY_AUTO_SHIP_DOC_FLAG$ to 94 +Equ COMPANY_STANDARD_COA$ to 95 +Equ COMPANY_FTP_SERVER$ to 96 +Equ COMPANY_FTP_DIRECTORY$ to 97 diff --git a/LSL2/STPROCINS/CONTEXTMENU_EQUATES.txt b/LSL2/STPROCINS/CONTEXTMENU_EQUATES.txt new file mode 100644 index 0000000..2d89026 --- /dev/null +++ b/LSL2/STPROCINS/CONTEXTMENU_EQUATES.txt @@ -0,0 +1,45 @@ +Compile Insert ContextMenu_Equates + +* Multi-valued fields +Equ CM_ITEMTEXT$ To 1 +Equ CM_ITEMNAME$ To 2 +Equ CM_HELPTEXT$ To 3 +Equ CM_STYLE$ To 4; * Unused +Equ CM_MSGTYPE$ To 5 +Equ CM_RECEIPIENT$ To 6 +Equ CM_MESSAGE$ To 7 +Equ CM_PARAMETERS$ To 8 +Equ CM_DISABLED$ To 9 +Equ CM_CHECKED$ To 10 +Equ CM_HIDDEN$ To 11 + +* Added for SRP Context Menus +Equ CM_STYLE_FUNCTION$ To 12 +Equ CM_STYLE_FUNC_PARAMS$ To 13 + +Equ CM_DISABLED_FUNCTION$ To 12 +Equ CM_DISABLED_PARAMS$ To 13 +Equ CM_HIDDEN_FUNCTION$ To 14 +Equ CM_HIDDEN_PARAMS$ To 15 +Equ CM_CHECKED_FUNCTION$ To 16 +Equ CM_CHECKED_PARAMS$ To 17 +Equ CM_VARIABLE_FUNCTION$ To 18 +Equ CM_VARIABLE_PARAMS$ To 19 + +* Single-value fields +*Equ CM_INCLUDE_OI_MENU$ To 14 +*Equ CM_INCLUDE_WIN_MENU$ To 15 +Equ CM_INCLUDE_OI_MENU$ To 20 +Equ CM_INCLUDE_WIN_MENU$ To 21 + +*Equ CM_NUM_MVFIELDS$ To 13 +*Equ CM_NUMFIELDS$ To 15 +Equ CM_NUM_MVFIELDS$ To 19 +Equ CM_NUMFIELDS$ To 21 + +* For Record 2 of Context Menu +*Equ CM_INCLUDE_OI_MENU$ To 1 +*Equ CM_INCLUDE_WIN_MENU$ To 2 + + + diff --git a/LSL2/STPROCINS/COPYRIGHT.txt b/LSL2/STPROCINS/COPYRIGHT.txt new file mode 100644 index 0000000..6037008 --- /dev/null +++ b/LSL2/STPROCINS/COPYRIGHT.txt @@ -0,0 +1,5 @@ +COMPILE Insert CopyRight + +* J.C. Henry, Inc. Copyright Notice + +CopyRight = 'Copyright 1996, 1997, 1998, 1999, 2000, 2001,2002, 2003 - J.C. Henry, Inc - All Rights Reserved' diff --git a/LSL2/STPROCINS/CUSTOMER_EQU.txt b/LSL2/STPROCINS/CUSTOMER_EQU.txt new file mode 100644 index 0000000..d1a05ab --- /dev/null +++ b/LSL2/STPROCINS/CUSTOMER_EQU.txt @@ -0,0 +1,29 @@ +COMPILE INSERT CUSTOMER_EQU + +EQU CUSTOMER_INV_NO$ TO 1 +EQU CUSTOMER_QUOTE_NO$ TO 2 +EQU CUSTOMER_PROD_SPEC_NO$ TO 3 +EQU CUSTOMER_ENTRY_DATE$ TO 4 +EQU CUSTOMER_ENTRY_ID$ TO 5 +EQU CUSTOMER_ATTENTION$ TO 6 +EQU CUSTOMER_COMPANY$ TO 7 +EQU CUSTOMER_ADDR$ TO 8 +EQU CUSTOMER_CITY$ TO 9 +EQU CUSTOMER_ST$ TO 10 +EQU CUSTOMER_ZIP$ TO 11 +EQU CUSTOMER_COUNTRY$ TO 12 +EQU CUSTOMER_ABBREV$ TO 13 +EQU CUSTOMER_PHONE$ TO 14 +EQU CUSTOMER_PHONE_DESC$ TO 15 +EQU CUSTOMER_INTL_PHONE$ TO 16 +EQU CUSTOMER_INTL_PHONE_DESC$ TO 17 +EQU CUSTOMER_SALES_REP$ TO 18 +EQU CUSTOMER_CARRIER_INFO$ TO 19 +EQU CUSTOMER_CARRIER_ACCT$ TO 20 +EQU CUSTOMER_NOTE$ TO 21 +EQU CUSTOMER_TERMS$ TO 22 +EQU CUSTOMER_BILL_TO_CUST_NO$ TO 23 +EQU CUSTOMER_SHIP_EXPORT_TEMP$ TO 25 +EQU CUSTOMER_COA_FOLDER$ TO 26 +EQU CUSTOMER_VISION_CUST_NO$ TO 27 + diff --git a/LSL2/STPROCINS/CUSTOMER_EQUATES.txt b/LSL2/STPROCINS/CUSTOMER_EQUATES.txt new file mode 100644 index 0000000..753ca07 --- /dev/null +++ b/LSL2/STPROCINS/CUSTOMER_EQUATES.txt @@ -0,0 +1,38 @@ +compile insert CUSTOMER_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 27/09/2011 + Description : Insert for Table CUSTOMER +----------------------------------------*/ + + +Equ CUSTOMER_CUST_NO$ To 0 +Equ CUSTOMER_INV_NO$ To 1 +Equ CUSTOMER_QUOTE_NO$ To 2 +Equ CUSTOMER_PROD_SPEC_NO$ To 3 +Equ CUSTOMER_ENTRY_DATE$ To 4 +Equ CUSTOMER_ENTRY_ID$ To 5 +Equ CUSTOMER_ATTENTION$ To 6 +Equ CUSTOMER_COMPANY$ To 7 +Equ CUSTOMER_ADDR$ To 8 +Equ CUSTOMER_CITY$ To 9 +Equ CUSTOMER_ST$ To 10 +Equ CUSTOMER_ZIP$ To 11 +Equ CUSTOMER_COUNTRY$ To 12 +Equ CUSTOMER_ABBREV$ To 13 +Equ CUSTOMER_PHONE$ To 14 +Equ CUSTOMER_PHONE_DESC$ To 15 +Equ CUSTOMER_INTL_PHONE$ To 16 +Equ CUSTOMER_INTL_PHONE_DESC$ To 17 +Equ CUSTOMER_SALES_REP$ To 18 +Equ CUSTOMER_CARRIER$ To 19 +Equ CUSTOMER_CARRIER_ACCT$ To 20 +Equ CUSTOMER_NOTE$ To 21 +Equ CUSTOMER_TERMS$ To 22 +Equ CUSTOMER_BILL_TO_CUST_NO$ To 23 +Equ CUSTOMER_SHIPPING_EXPORT_TEMPLATE$ To 25 +Equ CUSTOMER_COA_FOLDER$ To 26 +Equ CUSTOMER_VISION_CUST_NO$ To 27 +Equ CUSTOMER_VISION_BILL_TO_NO$ To 28 +Equ CUSTOMER_SAP_CUST_NO$ To 29 +Equ CUSTOMER_SAP_BILL_TO_NO$ To 30 diff --git a/LSL2/STPROCINS/CUST_EPI_PART_EQUATES.txt b/LSL2/STPROCINS/CUST_EPI_PART_EQUATES.txt new file mode 100644 index 0000000..30eeda2 --- /dev/null +++ b/LSL2/STPROCINS/CUST_EPI_PART_EQUATES.txt @@ -0,0 +1,52 @@ +compile insert CUST_EPI_PART_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 23/06/2015 + Description : Insert for Table CUST_EPI_PART +----------------------------------------*/ + + +Equ CUST_EPI_PART_CUST_NO$ To 0 +Equ CUST_EPI_PART_EPI_PN$ To 0 +Equ CUST_EPI_PART_SPEC_NO$ To 1 +Equ CUST_EPI_PART_SPEC_DESC$ To 2 +Equ CUST_EPI_PART_SPEC_REV$ To 3 +Equ CUST_EPI_PART_SPEC_REV_DT$ To 4 +Equ CUST_EPI_PART_SPEC_HARDCOPY$ To 5 +Equ CUST_EPI_PART_SALES_NOTES$ To 6 +Equ CUST_EPI_PART_SHIP_INST$ To 7 +Equ CUST_EPI_PART_SHIP_CUST_RDS$ To 8 +Equ CUST_EPI_PART_SHIP_COC_FRONT$ To 9 +Equ CUST_EPI_PART_SHIP_COC_BACK$ To 10 +Equ CUST_EPI_PART_SHIP_PARTIAL$ To 11 +Equ CUST_EPI_PART_SHIP_NCR_REJ$ To 15 +Equ CUST_EPI_PART_SHIP_FULL_TYPE$ To 16 +Equ CUST_EPI_PART_SHIP_BAG_REQ$ To 17 +Equ CUST_EPI_PART_SHIP_COC_FRONT_COPIES$ To 18 +Equ CUST_EPI_PART_SHIP_COC_BACK_COPIES$ To 19 +Equ CUST_EPI_PART_MONITOR_WAFER_LABEL$ To 20 +Equ CUST_EPI_PART_MAKEUP_WAFERS$ To 21 +Equ CUST_EPI_PART_TW_RET_INST$ To 22 +Equ CUST_EPI_PART_WMO_LOAD_CNT$ To 23 +Equ CUST_EPI_PART_RET_REJECTS$ To 24 +Equ CUST_EPI_PART_EPI_PRO_SHIP_SHORT$ To 25 +Equ CUST_EPI_PART_BILL_INST$ To 26 +Equ CUST_EPI_PART_CASS_SHIP_QTY$ To 27 +Equ CUST_EPI_PART_TR_SRP$ To 28 +Equ CUST_EPI_PART_TR_FTIR$ To 29 +Equ CUST_EPI_PART_TR_HGPROBE$ To 30 +Equ CUST_EPI_PART_TR_TENCOR$ To 31 +Equ CUST_EPI_PART_TR_STRESS$ To 32 +Equ CUST_EPI_PART_TR_TEST_WAFER$ To 33 +Equ CUST_EPI_PART_TR_SRP_WWAFER$ To 34 +Equ CUST_EPI_PART_TR_4PP$ To 35 +Equ CUST_EPI_PART_CUST_RDS_CLEANROOM_PAPER$ To 38 +Equ CUST_EPI_PART_CUST_PART_NO$ To 39 +Equ CUST_EPI_PART_CUST_PART_REV$ To 40 +Equ CUST_EPI_PART_CUST_PART_NO_INBOUND$ To 41 +Equ CUST_EPI_PART_CUST_PART_DESC$ To 42 +Equ CUST_EPI_PART_SUBSTRATE_PART_NO$ To 43 +Equ CUST_EPI_PART_SUBSTRATE_MFR$ To 44 +Equ CUST_EPI_PART_SHIP_EMAIL_NOTIF$ To 45 +Equ CUST_EPI_PART_SHIP_EMAIL_NAME$ To 46 +Equ CUST_EPI_PART_MIN_CASS_SHIP_QTY$ To 47 diff --git a/LSL2/STPROCINS/CUST_PART_EQUATES.txt b/LSL2/STPROCINS/CUST_PART_EQUATES.txt new file mode 100644 index 0000000..27fa193 --- /dev/null +++ b/LSL2/STPROCINS/CUST_PART_EQUATES.txt @@ -0,0 +1,29 @@ +compile insert CUST_PART_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 14/09/2010 + Description : Insert for Table CUST_PART +----------------------------------------*/ + + +Equ CUST_PART_CUST_NO$ To 0 +Equ CUST_PART_CUST_PART_NO$ To 0 +Equ CUST_PART_DESC$ To 1 +Equ CUST_PART_INBOUND_CUST_PART_NO$ To 2 +Equ CUST_PART_SPEC_NO$ To 3 +Equ CUST_PART_SPEC_REV$ To 4 +Equ CUST_PART_SPEC_REV_DT$ To 5 +Equ CUST_PART_SPEC_DESC$ To 6 +Equ CUST_PART_SPEC_HARDCOPY$ To 7 +Equ CUST_PART_PART_NO$ To 8 +Equ CUST_PART_WO_MIN_WFRS$ To 10 +Equ CUST_PART_WO_MAX_WFRS$ To 11 +Equ CUST_PART_SALES_NOTES$ To 12 +Equ CUST_PART_SCHEDULING_NOTES$ To 13 +Equ CUST_PART_SPEC_SHIP_INST$ To 14 +Equ CUST_PART_SHIP_BAG_REQ$ To 15 +Equ CUST_PART_SHIP_FULL_TYPE$ To 16 +Equ CUST_PART_SHIP_PARTIAL$ To 17 +Equ CUST_PART_SHIP_NCR_REJ$ To 18 +Equ CUST_PART_SHIP_EMAIL_NOTIF$ To 19 +Equ CUST_PART_PS_NO$ To 20 diff --git a/LSL2/STPROCINS/DAILY_METRICS_EQUATES.txt b/LSL2/STPROCINS/DAILY_METRICS_EQUATES.txt new file mode 100644 index 0000000..d85defa --- /dev/null +++ b/LSL2/STPROCINS/DAILY_METRICS_EQUATES.txt @@ -0,0 +1,19 @@ +compile insert DAILY_METRICS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 22/03/2022 + Description : Insert for Table DAILY_METRICS +----------------------------------------*/ + + +Equ DAILY_METRICS.DATE$ To 0 +Equ DAILY_METRICS.WAFERS_OUT$ To 1 +Equ DAILY_METRICS.YIELD$ To 2 +Equ DAILY_METRICS.PROJECTED$ To 3 +Equ DAILY_METRICS.SCRAP$ To 4 +Equ DAILY_METRICS.PROD_TEST$ To 5 +Equ DAILY_METRICS.TARGET$ To 6 +Equ DAILY_METRICS.TOTAL_THICKNESS$ To 7 +Equ DAILY_METRICS.PROJECTED_THICKNESS$ To 8 +Equ DAILY_METRICS.THICKNESS_WAFER_RATIO$ To 9 +Equ DAILY_METRICS.YIELD_PERCENT$ To 10 diff --git a/LSL2/STPROCINS/DAILY_PERFORMANCE_EQUATES.txt b/LSL2/STPROCINS/DAILY_PERFORMANCE_EQUATES.txt new file mode 100644 index 0000000..706dc84 --- /dev/null +++ b/LSL2/STPROCINS/DAILY_PERFORMANCE_EQUATES.txt @@ -0,0 +1,16 @@ +compile insert DAILY_PERFORMANCE_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 16/01/2023 + Description : Insert for Table DAILY_PERFORMANCE +----------------------------------------*/ + + +Equ DAILY_PERFORMANCE.DATE_OUT$ To 0 +Equ DAILY_PERFORMANCE.PART_NO$ To 0 +Equ DAILY_PERFORMANCE.PS_NO$ To 0 +Equ DAILY_PERFORMANCE.REACTOR$ To 0 +Equ DAILY_PERFORMANCE.WAFERS_OUT$ To 1 +Equ DAILY_PERFORMANCE.HOURS_ON_PART$ To 2 +Equ DAILY_PERFORMANCE.SCHED_DET_KEY_IDS$ To 3 + diff --git a/LSL2/STPROCINS/DAILY_PERFORMANCE_REPORT_EQUATES.txt b/LSL2/STPROCINS/DAILY_PERFORMANCE_REPORT_EQUATES.txt new file mode 100644 index 0000000..b6d92eb --- /dev/null +++ b/LSL2/STPROCINS/DAILY_PERFORMANCE_REPORT_EQUATES.txt @@ -0,0 +1,25 @@ +compile insert DAILY_PERFORMANCE_REPORT_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 05/01/2023 + Description : Insert for Table DAILY_PERFORMANCE_REPORT +----------------------------------------*/ + + +Equ DAILY_PERFORMANCE_REPORT.DATE_OUT$ To 0 +Equ DAILY_PERFORMANCE_REPORT.PART_NO$ To 0 +Equ DAILY_PERFORMANCE_REPORT.PS_NO$ To 0 +Equ DAILY_PERFORMANCE_REPORT.REACTOR$ To 0 +Equ DAILY_PERFORMANCE_REPORT.HOURS_ON_PART$ To 1 +Equ DAILY_PERFORMANCE_REPORT.ACTUAL_OUT$ To 2 +Equ DAILY_PERFORMANCE_REPORT.COMMENTS$ To 3 +Equ DAILY_PERFORMANCE_REPORT.START_DTM$ To 4 +Equ DAILY_PERFORMANCE_REPORT.STOP_DTM$ To 5 +Equ DAILY_PERFORMANCE_REPORT.TOTAL_PROD_PERCENT$ To 6 +Equ DAILY_PERFORMANCE_REPORT.TOTAL_PROD_MIN$ To 7 +Equ DAILY_PERFORMANCE_REPORT.TOTAL_UNSCHED_PERCENT$ To 8 +Equ DAILY_PERFORMANCE_REPORT.TOTAL_UNSCHED_MIN$ To 9 +Equ DAILY_PERFORMANCE_REPORT.TOTAL_SCHED_MIN$ To 10 +Equ DAILY_PERFORMANCE_REPORT.TOTAL_SCHED_PERCENT$ To 11 + + diff --git a/LSL2/STPROCINS/DATA_MODS_COMMON.txt b/LSL2/STPROCINS/DATA_MODS_COMMON.txt new file mode 100644 index 0000000..4ffa0ab --- /dev/null +++ b/LSL2/STPROCINS/DATA_MODS_COMMON.txt @@ -0,0 +1,3 @@ +compile insert data_mods_common +common /%DataModsCommon%/ OrigRecord@ + diff --git a/LSL2/STPROCINS/DISPOSITION_REQUESTS_EQUATES.txt b/LSL2/STPROCINS/DISPOSITION_REQUESTS_EQUATES.txt new file mode 100644 index 0000000..5fc7529 --- /dev/null +++ b/LSL2/STPROCINS/DISPOSITION_REQUESTS_EQUATES.txt @@ -0,0 +1,14 @@ +compile insert DISPOSITION_REQUESTS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 16/07/2020 + Description : Insert for Table DISPOSITION_REQUESTS +----------------------------------------*/ + + +Equ DISPOSITION_REQUESTS.RDS_NO$ To 0 +Equ DISPOSITION_REQUESTS.REQUEST_DATE$ To 0 +Equ DISPOSITION_REQUESTS.REQUEST_TIME$ To 0 +Equ DISPOSITION_REQUESTS.RESPONSE_DATE$ To 1 +Equ DISPOSITION_REQUESTS.RESPONSE_TIME$ To 2 +Equ DISPOSITION_REQUESTS.RESPONSE$ To 3 diff --git a/LSL2/STPROCINS/EA_REQUESTS_EQUATES.txt b/LSL2/STPROCINS/EA_REQUESTS_EQUATES.txt new file mode 100644 index 0000000..1aeeef0 --- /dev/null +++ b/LSL2/STPROCINS/EA_REQUESTS_EQUATES.txt @@ -0,0 +1,17 @@ +compile insert EA_REQUESTS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 31/08/2020 + Description : Insert for Table EA_REQUESTS +----------------------------------------*/ + + +Equ EA_REQUESTS.RDS_NO$ To 0 +Equ EA_REQUESTS.REQUEST_DATE$ To 0 +Equ EA_REQUESTS.REQUEST_TIME$ To 0 +Equ EA_REQUESTS.STAGE$ To 0 +Equ EA_REQUESTS.WFR_ID$ To 1 +Equ EA_REQUESTS.RESPONSE_DATE$ To 2 +Equ EA_REQUESTS.RESPONSE_TIME$ To 3 +Equ EA_REQUESTS.RESPONSE$ To 4 +Equ EA_REQUESTS.TOOL_ID$ To 5 diff --git a/LSL2/STPROCINS/EMAIL_BOX_EQUATES.txt b/LSL2/STPROCINS/EMAIL_BOX_EQUATES.txt new file mode 100644 index 0000000..eac15b4 --- /dev/null +++ b/LSL2/STPROCINS/EMAIL_BOX_EQUATES.txt @@ -0,0 +1,14 @@ +compile insert EMAIL_BOX_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 05/02/2010 + Description : Insert for Table EMAIL_BOX +----------------------------------------*/ + + +Equ EMAIL_BOX_NOTE_KEY$ To 0 +Equ EMAIL_BOX_USER_ID$ To 0 +Equ EMAIL_BOX_EMAIL_ADDR$ To 1 +Equ EMAIL_BOX_EMAIL_TEXT$ To 2 +Equ EMAIL_BOX_EMAIL_HEADER$ To 3 +Equ EMAIL_BOX_FROM_USER$ To 4 diff --git a/LSL2/STPROCINS/EMAIL_PENDING_EQU.txt b/LSL2/STPROCINS/EMAIL_PENDING_EQU.txt new file mode 100644 index 0000000..a38e564 --- /dev/null +++ b/LSL2/STPROCINS/EMAIL_PENDING_EQU.txt @@ -0,0 +1,16 @@ +* Equates for EMAIL_PENDING created on 01/25/02 11:01AM + +equ EMAIL_PENDING_SUBJECT$ to 1 +equ EMAIL_PENDING_MESSAGE_TEXT$ to 2 +equ EMAIL_PENDING_PRIORITY$ to 3 +equ EMAIL_PENDING_ATTACHMENTS$ to 4 +equ EMAIL_PENDING_ATTACHMENT_PATHS$ to 5 +equ EMAIL_PENDING_SEND_TO$ to 6 +equ EMAIL_PENDING_CC_TO$ to 7 +equ EMAIL_PENDING_BCC_TO$ to 8 +equ EMAIL_PENDING_SENT_FROM$ to 9 +equ EMAIL_PENDING_DELIVERY_DATE$ to 20 +equ EMAIL_PENDING_DELIVERY_TIME$ to 21 +equ EMAIL_PENDING_DELIVERY_FLAG$ to 22 +equ EMAIL_PENDING_DELIVERY_NOTES$ to 23 +equ EMAIL_PENDING_DELIVERY_EXPIRES$ to 24 diff --git a/LSL2/STPROCINS/EPI_PART_EQUATES.txt b/LSL2/STPROCINS/EPI_PART_EQUATES.txt new file mode 100644 index 0000000..1db9645 --- /dev/null +++ b/LSL2/STPROCINS/EPI_PART_EQUATES.txt @@ -0,0 +1,50 @@ +compile insert EPI_PART_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 15/05/2013 + Description : Insert for Table EPI_PART +----------------------------------------*/ + + +Equ EPI_PART_EPI_PN$ To 0 +Equ EPI_PART_QUOTE_NO$ To 1 +Equ EPI_PART_PROD_VER_NO$ To 2 +Equ EPI_PART_EPI_PART_DESC$ To 3 +Equ EPI_PART_SUB_SPEC_NO$ To 4 +Equ EPI_PART_INACTIVE_PROD_VER_NO$ To 5 +Equ EPI_PART_SUB_SUPP_BY$ To 6 +Equ EPI_PART_PRODUCT$ To 7 +Equ EPI_PART_SUB_WAFER_SIZE$ To 8 +Equ EPI_PART_SUB_ORIENTATION$ To 9 +Equ EPI_PART_SUB_DOPE_TYPE$ To 10 +Equ EPI_PART_SUB_RES$ To 11 +Equ EPI_PART_SUB_RES_UNITS$ To 12 +Equ EPI_PART_SUB_DOPANT$ To 13 +Equ EPI_PART_SUB_POLISH$ To 14 +Equ EPI_PART_SUB_THICK$ To 15 +Equ EPI_PART_SUB_OXIDE$ To 16 +Equ EPI_PART_SUB_BACKSEAL$ To 17 +Equ EPI_PART_SUB_OXIDE_ANGSTROMS$ To 18 +Equ EPI_PART_SUB_BL_DOPANT$ To 19 +Equ EPI_PART_SUB_MATERIAL$ To 20 +Equ EPI_PART_EPI_LAYER$ To 21 +Equ EPI_PART_EPI_STEP$ To 22 +Equ EPI_PART_EPI_STEP_LSID$ To 23 +Equ EPI_PART_EPI_DOPANT$ To 24 +Equ EPI_PART_EPI_THICK_MIN$ To 25 +Equ EPI_PART_EPI_THICK_MAX$ To 26 +Equ EPI_PART_EPI_RES_MIN$ To 27 +Equ EPI_PART_EPI_RES_MAX$ To 28 +Equ EPI_PART_SPEC_TYPE$ To 29 +Equ EPI_PART_SUB_PART_NO$ To 30 +Equ EPI_PART_SUB_PART_REV$ To 31 +Equ EPI_PART_SUB_MFR$ To 32 +Equ EPI_PART_CUST_EPI_PART_KEY$ To 33 +Equ EPI_PART_SAP_MATERIAL$ To 34 +Equ EPI_PART_FOUNDRY$ To 35 +Equ EPI_PART_EXPORT_CONTROL$ To 36 +Equ EPI_PART_MINUTES_PER_WAFER_SCHEDULER$ To 37 +Equ EPI_PART_SUB_WAFER_SIZE_MM$ To 38 +Equ EPI_PART_VARM_PART_NO$ To 39 +Equ EPI_PART_VARM_DESCRIPTION$ To 40 + diff --git a/LSL2/STPROCINS/EPI_SPEC_EQUATES.txt b/LSL2/STPROCINS/EPI_SPEC_EQUATES.txt new file mode 100644 index 0000000..d7a22ee --- /dev/null +++ b/LSL2/STPROCINS/EPI_SPEC_EQUATES.txt @@ -0,0 +1,32 @@ +compile insert EPI_SPEC_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 13/04/2011 + Description : Insert for Table EPI_SPEC +----------------------------------------*/ + + +Equ EPI_SPEC_ES_NO$ To 0 +Equ EPI_SPEC_ENTER_DTM$ To 1 +Equ EPI_SPEC_ENTER_BY$ To 2 +Equ EPI_SPEC_DESC$ To 3 +Equ EPI_SPEC_EPI_LAYER$ To 4 +Equ EPI_SPEC_EPI_THICK$ To 5 +Equ EPI_SPEC_EPI_THICK_TOL$ To 6 +Equ EPI_SPEC_EPI_RES$ To 7 +Equ EPI_SPEC_EPI_RES_TOL$ To 8 +Equ EPI_SPEC_EPI_DOPANT$ To 9 +Equ EPI_SPEC_SUB_SUPP_BY$ To 12 +Equ EPI_SPEC_SUB_PRODUCT$ To 13 +Equ EPI_SPEC_SUB_WAFER_SIZE$ To 14 +Equ EPI_SPEC_SUB_ORIENTATION$ To 15 +Equ EPI_SPEC_SUB_TYPE$ To 16 +Equ EPI_SPEC_SUB_MATERIAL$ To 17 +Equ EPI_SPEC_SUB_RES$ To 18 +Equ EPI_SPEC_SUB_RES_UNITS$ To 19 +Equ EPI_SPEC_SUB_DOPANT$ To 20 +Equ EPI_SPEC_SUB_POLISH$ To 21 +Equ EPI_SPEC_SUB_THICK$ To 22 +Equ EPI_SPEC_SUB_OXIDE$ To 23 +Equ EPI_SPEC_SUB_OXIDE_ANGSTROMS$ To 24 +Equ EPI_SPEC_SUB_BACKSEAL$ To 25 diff --git a/LSL2/STPROCINS/EPI_SUSCEPTOR_EQUATES.txt b/LSL2/STPROCINS/EPI_SUSCEPTOR_EQUATES.txt new file mode 100644 index 0000000..8263398 --- /dev/null +++ b/LSL2/STPROCINS/EPI_SUSCEPTOR_EQUATES.txt @@ -0,0 +1,16 @@ +compile insert EPI_SUSCEPTOR_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 08/11/2016 + Description : Insert for Table EPI_SUSCEPTOR +----------------------------------------*/ + + +Equ EPI_SUSCEPTOR_CONFIG_ID$ To 0 +Equ EPI_SUSCEPTOR_POCKET_NO$ To 1 +Equ EPI_SUSCEPTOR_POCKET_ZONE$ To 2 +Equ EPI_SUSCEPTOR_POCKET_TYPE$ To 3 +Equ EPI_SUSCEPTOR_CONFIG_DESC$ To 4 +Equ EPI_SUSCEPTOR_TEST_WFRS_RUN$ To 5 +Equ EPI_SUSCEPTOR_PROVEIN_WFRS_WO$ To 6 +Equ EPI_SUSCEPTOR_CARR_SLOT$ To 7 diff --git a/LSL2/STPROCINS/EQUIP_EQUATES.txt b/LSL2/STPROCINS/EQUIP_EQUATES.txt new file mode 100644 index 0000000..9261bcd --- /dev/null +++ b/LSL2/STPROCINS/EQUIP_EQUATES.txt @@ -0,0 +1,14 @@ +compile insert EQUIP_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 01/11/2013 + Description : Insert for Table EQUIP +----------------------------------------*/ + + +Equ EQUIP_EQ_NO$ To 0 +Equ EQUIP_DESC$ To 1 +Equ EQUIP_PART_OF$ To 2 +Equ EQUIP_COMPONENT$ To 3 +Equ EQUIP_EQ_TYPE$ To 4 +Equ EQUIP_EQ_CLASS$ To 5 diff --git a/LSL2/STPROCINS/EVENT_SETUP.txt b/LSL2/STPROCINS/EVENT_SETUP.txt new file mode 100644 index 0000000..86f684c --- /dev/null +++ b/LSL2/STPROCINS/EVENT_SETUP.txt @@ -0,0 +1,99 @@ +Compile insert Event_Setup + +/*********************************************************************************************************************** + + This program is proprietary and is not to be used by or disclosed to others, nor is it to be copied without written + permission from SRP Computer Solutions, Inc. + + Name : Event_Setup + + Description : Declarations and equates used by the form event commuters. + + Notes : Event_Setup also populates several variables that will often be useful within event handler code. + + History : (Date, Initials, Notes) + 08/13/10 dmb Original programmer. + +***********************************************************************************************************************/ + +Declare function Get_Property, Set_Property, Get_Current_Event, Get_Window_ID, Get_Record + +// Return values to indicate how the event flow should continue. +Equ EVENT_STOP$ to 0 ; // Event flow should stop +Equ EVENT_CONTINUE$ to 1 ; // Event flow should continue until a later process changes this value +Equ EVENT_CONTINUE_NO_PROMOTED$ to 2 ; // Event flow should by-pass the promoted (generic) logic but allow the system event handler to execute +Equ EVENT_CONTINUE_NO_SYSTEM$ to 3 ; // Event flow should execute the promoted (generic) logic but stop the system event handler from executing +Equ EVENT_SYSTEM_ONLY$ to 4 ; // Event flow should execute the system event handler only (normal option for third-party windows running in FrameWorks) + +// Make sure any event parameters which have not been assigned are nulled. +If Assigned(CtrlEntId) else CtrlEntId = '' +If Assigned(Event) else Event = '' +If Assigned(Param1) else Param1 = '' +If Assigned(Param2) else Param2 = '' +If Assigned(Param3) else Param3 = '' +If Assigned(Param4) else Param4 = '' +If Assigned(Param5) else Param5 = '' +If Assigned(Param6) else Param6 = '' +If Assigned(Param7) else Param7 = '' +If Assigned(Param8) else Param8 = '' +If Assigned(Param9) else Param9 = '' +If Assigned(Param10) else Param10 = '' +If Assigned(Param11) else Param11 = '' +If Assigned(Param12) else Param12 = '' +If Assigned(Param13) else Param13 = '' +If Assigned(Param14) else Param14 = '' +If Assigned(Param15) else Param15 = '' + +// Get the design time name of the window in case this is a multi-instance window. +Window = @Window[1, 'F*'] + +MDIFrame = Get_Property(@Window, 'MDIFRAME') +Parent = Get_Property(@Window, 'PARENT') +If MDIFrame EQ '' then MDIFrame = Parent ; // Dialog boxes won't set the MDIFRAME property so use the PARENT property. + +// Always get the CtrlClassID since we are not passing it through the event parameters. +CtrlClassId = Get_Property(CtrlEntId, 'TYPE') + +// Get the name of the control on the window based on the CtrlClassId. +Begin Case + Case CtrlClassId EQ 'WINDOW' + Control = Window + Case CtrlClassId EQ 'RADIOBUTTON' + Control = Field(CtrlEntId, '.', 2, 2) + Case CtrlClassId EQ 'MENU' + Control = CtrlEntId[-1, 'B.'] + Case 1 + Control = Field(CtrlEntId, '.', 2, 1) +End Case + +// If this is an OLE control, get the ProgID. +ProgID = '' +If CtrlClassId EQ 'OLECONTROL' then ProgID = Get_Property(CtrlEntId, 'ORIG_TEXT') + +// Get the Event Type so generic event functionality can be executed properly. +EventType = Get_Current_Event() + +// Combine the event type and control into an event action. +If EventType EQ 'OLE' then + // Because the Promoted_Events function transfers parameters, this will only appear correctly in a commuter module. + EventAction = Event : '.' : Control +end else + EventAction = EventType : '.' : Control +end + +// Get the current window's key ID. Strip off the @SVM if this window is ignoring self-locks. +KeyID = Get_Property(@Window, 'ID')[1, 'F' : @SVM] + +// If KeyID is null then check to see if the key controls are populated. If so, then this is probably a locked record. +// ID properties are null with locked records. +If KeyID EQ '' then + KeyID = Get_Window_ID(@Window) +end + +// Get the current window's record. +Record = Get_Property(@Window, 'ATRECORD') + +// If the window uses QuickEvents to call the commuter module, check for @EVENT in the event parameter. This is here for +// backwards compatability. OpenInsight 7.1 and higher automatically swaps @EVENT with the actual event. Prior versions +// of OpenInsight will just pass the literal through. Therefore, this will swap out @EVENT with the actual event. +If Event EQ '@EVENT' then Swap '@EVENT' with EventType in Event diff --git a/LSL2/STPROCINS/EXCEL_EQU.txt b/LSL2/STPROCINS/EXCEL_EQU.txt new file mode 100644 index 0000000..4b8d081 --- /dev/null +++ b/LSL2/STPROCINS/EXCEL_EQU.txt @@ -0,0 +1,64 @@ +compile insert Excel_equ + +* Excel programming constants + +equ xlTrue to -1 +equ xlFalse to 0 +equ xlSheetVisible to -1 +equ xlRangeAutoFormatSimple to -4154 +equ xlRangeAutoFormatClassic1 to 1 +equ xlCSV to 6 +equ xlWorkbookNormal to -4143 +equ xlTextMSDOS to 21 +equ xlCSVWindows to 23 +equ xlAutoOpen to 1 + +equ xlLandscape to 2 + +equ xlAutomatic to -4105 +equ xlNone to -4142 +equ xlContext to -5002 + +equ xlUnderlineStyleDouble to -4119 ;* Double Thick +equ xlUnderlineStyleDoubleAccounting to 5 ;* Two thin underlines placed close together +equ xlUnderlineStyleNone to -4142 +equ xlUnderlineStyleSingle to 2 +equ xlUnderlineStyleSingleAccounting to 4 ;* Not supported + +equ xlTop to -4160 ;* Vertical Alignment +equ xlCenter to -4108 +equ xlBottom to -4107 + +equ xlDiagonalDown to 5 ;* Border object members +equ xlDiagonalUp to 6 +equ xlEdgeBottom to 9 +equ xlEdgeLeft to 7 +equ xlEdgeRight to 10 +equ xlEdgeTop to 8 +equ xlInsideHorizontal to 12 +equ xlInsideVertical to 11 + +equ xlContinuous to 1 ;* xlBorderLineStyole +equ xlDash to -4115 +equ xlDashDot to 4 +equ xlDashDotDot to 5 +equ xlDot to -4118 +equ xlDouble to -4119 +equ xlLineStyleNone to -4142 +equ xlSlantDashDot to 13 + +equ xlHairline to 1 ;* xlBorderWeight +equ xlMedium to -4138 +equ xlThick to 4 +equ xlThin to 2 + +equ xlColorIndexAutomatic to -4105 ;* xlColorIndex +equ xlColorIndexNone to -4142 + +equ xlShiftDown to -4121 ;* XlInsertShiftDirection +equ xlShiftToRight to -4161 + +equ msoFalse to 0 +equ msoScaleFromTopLeft to 0 + + diff --git a/LSL2/STPROCINS/EXPORTS_EQU.txt b/LSL2/STPROCINS/EXPORTS_EQU.txt new file mode 100644 index 0000000..a5cc95a --- /dev/null +++ b/LSL2/STPROCINS/EXPORTS_EQU.txt @@ -0,0 +1,19 @@ +compile insert EXPORTS_EQU +* Equates for EXPORTS created on 09/10/98 01:58PM + +EQU EXPORTS_COLUMNS$ TO 1 +EQU EXPORTS_QUERY_COLUMNS$ TO 2 +EQU EXPORTS_QUERY_COL_FILTER$ TO 3 +EQU EXPORTS_PATH$ TO 4 +EQU EXPORTS_TABLE$ TO 5 +EQU EXPORTS_DESCRIPTION$ TO 6 +EQU EXPORTS_ENTRY_ID$ TO 7 +EQU EXPORTS_ENTRY_DATE$ TO 8 +EQU EXPORTS_SHARABLE$ TO 9 +EQU EXPORTS_NQUERY_COLUMNS$ TO 10 +EQU EXPORTS_NQUERY_COL_FILTER$ TO 11 +EQU EXPORTS_UTIL_START$ TO 12 +EQU EXPORTS_UTIL_END$ TO 13 +EQU EXPORTS_EXPAND_MV$ TO 14 +EQU EXPORTS_LAST_RUN_DATE$ TO 15 +EQU EXPORTS_LAST_RUN_USER$ TO 16 diff --git a/LSL2/STPROCINS/FILE_SERVICES_EQUATES.txt b/LSL2/STPROCINS/FILE_SERVICES_EQUATES.txt new file mode 100644 index 0000000..e3f2726 --- /dev/null +++ b/LSL2/STPROCINS/FILE_SERVICES_EQUATES.txt @@ -0,0 +1,53 @@ +Compile insert File_Services_Equates +#pragma precomp SRP_PreCompiler + +/*********************************************************************************************************************** + + This program is proprietary and is not to be used by or disclosed to others, nor is it to be copied without written + permission from SRP Computer Solutions, Inc. + + Name : File_Services_Equates + + Description : Common declarations and equates used by the File_Services service module. + + Notes : For more information visit: https://docs.microsoft.com/en-us/windows/win32/api/fileapi/ + For a list of Windows error messages visit: + https://docs.microsoft.com/en-us/windows/win32/debug/system-error-codes--0-499- + + History : (Date, Initials, Notes) + 09/04/20 djs Original programmer. + +***********************************************************************************************************************/ + +// File access constants +Equ GENERIC_READ$ to 2147483648 +Equ GENERIC_WRITE$ to 1073741824 +Equ GENERIC_EXECUTE$ to 536870912 +Equ GENERIC_ALL$ to 268435456 + +// File sharing constants +Equ FILE_SHARE_NONE$ to 0 +Equ FILE_SHARE_DELETE$ to 4 +Equ FILE_SHARE_READ$ to 1 +Equ FILE_SHARE_WRITE$ to 2 + +// File open/creation constants +Equ CREATE_ALWAYS$ to 2 +Equ CREATE_NEW$ to 1 +Equ OPEN_ALWAYS$ to 4 +Equ OPEN_EXISTING$ to 3 +Equ TRUNCATE_EXISTING$ to 5 + +// File attribute constants +Equ FILE_ATTRIBUTE_ARCHIVE$ to 32 +Equ FILE_ATTRIBUTE_ENCRYPTED$ to 16384 +Equ FILE_ATTRIBUTE_HIDDEN$ to 2 +Equ FILE_ATTRIBUTE_NORMAL$ to 128 +Equ FILE_ATTRIBUTE_OFFLINE$ to 4096 +Equ FILE_ATTRIBUTE_READONLY$ to 1 +Equ FILE_ATTRIBUTE_SYSTEM$ to 4 +Equ FILE_ATTRIBUTE_TEMPORARY$ to 256 + +// File IO error constants +Equ FILE_ERROR$ to 4294967295 + diff --git a/LSL2/STPROCINS/FISCAL_QTR_EQUATES.txt b/LSL2/STPROCINS/FISCAL_QTR_EQUATES.txt new file mode 100644 index 0000000..3fc45b1 --- /dev/null +++ b/LSL2/STPROCINS/FISCAL_QTR_EQUATES.txt @@ -0,0 +1,18 @@ +compile insert FISCAL_QTR_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 25/06/2013 + Description : Insert for Table FISCAL_QTR +----------------------------------------*/ + + +Equ FISCAL_QTR_FISCAL_QTR$ To 0 +Equ FISCAL_QTR_FISCAL_YR$ To 0 +Equ FISCAL_QTR_START_DT$ To 1 +Equ FISCAL_QTR_END_DT$ To 2 +Equ FISCAL_QTR_THRU_GROUP$ To 4 +Equ FISCAL_QTR_THRU_TARGET$ To 5 +Equ FISCAL_QTR_THRU_QTY$ To 6 +Equ FISCAL_QTR_THRU_PCNT$ To 7 +Equ FISCAL_QTR_PLAN_IDLE_DTS$ To 8 +Equ FISCAL_QTR_PLAN_IDLE_DTS_GAN$ To 9 diff --git a/LSL2/STPROCINS/FISCAL_YR_EQUATES.txt b/LSL2/STPROCINS/FISCAL_YR_EQUATES.txt new file mode 100644 index 0000000..d52b6db --- /dev/null +++ b/LSL2/STPROCINS/FISCAL_YR_EQUATES.txt @@ -0,0 +1,15 @@ +compile insert FISCAL_YR_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 25/06/2013 + Description : Insert for Table FISCAL_YR +----------------------------------------*/ + + +Equ FISCAL_YR_FISCAL_YR$ To 0 +Equ FISCAL_YR_START_DT$ To 1 +Equ FISCAL_YR_FISCAL_QTR_ORG$ To 2 +Equ FISCAL_YR_WEEKS_IN_YEAR$ To 3 +Equ FISCAL_YR_MONTH$ To 4 +Equ FISCAL_YR_QUARTER$ To 5 +Equ FISCAL_YR_FISCAL_QTR_KEY$ To 6 diff --git a/LSL2/STPROCINS/FORM_METRICS_EQUATES.txt b/LSL2/STPROCINS/FORM_METRICS_EQUATES.txt new file mode 100644 index 0000000..f1c0331 --- /dev/null +++ b/LSL2/STPROCINS/FORM_METRICS_EQUATES.txt @@ -0,0 +1,12 @@ +compile insert FORM_METRICS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 06/01/2022 + Description : Insert for Table FORM_METRICS +----------------------------------------*/ + + +Equ FORM_METRICS.FORM_NAME$ To 0 +Equ FORM_METRICS.EVENT$ To 1 +Equ FORM_METRICS.EVENT_DTM$ To 2 +Equ FORM_METRICS.USER$ To 3 diff --git a/LSL2/STPROCINS/FTP_PENDING_EQUATES.txt b/LSL2/STPROCINS/FTP_PENDING_EQUATES.txt new file mode 100644 index 0000000..5c5efdb --- /dev/null +++ b/LSL2/STPROCINS/FTP_PENDING_EQUATES.txt @@ -0,0 +1,10 @@ +compile insert FTP_PENDING_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 16/09/2014 + Description : Insert for Table FTP_PENDING +----------------------------------------*/ + + +Equ FTP_PENDING_SHIP_NO$ To 0 +Equ FTP_PENDING_SHIP_DTM$ To 1 diff --git a/LSL2/STPROCINS/FTP_QUEUE_EQUATES.txt b/LSL2/STPROCINS/FTP_QUEUE_EQUATES.txt new file mode 100644 index 0000000..0072df5 --- /dev/null +++ b/LSL2/STPROCINS/FTP_QUEUE_EQUATES.txt @@ -0,0 +1,10 @@ +compile insert FTP_QUEUE_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 17/09/2014 + Description : Insert for Table FTP_QUEUE +----------------------------------------*/ + + +Equ FTP_QUEUE_SHIP_NO$ To 0 +Equ FTP_QUEUE_SHIP_DTM$ To 1 diff --git a/LSL2/STPROCINS/FTP_REQUESTS_EQUATES.txt b/LSL2/STPROCINS/FTP_REQUESTS_EQUATES.txt new file mode 100644 index 0000000..4b745a7 --- /dev/null +++ b/LSL2/STPROCINS/FTP_REQUESTS_EQUATES.txt @@ -0,0 +1,31 @@ +compile insert FTP_REQUESTS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 25/07/2018 + Description : Insert for Table FTP_REQUESTS +----------------------------------------*/ + + +Equ FTP_REQUESTS.REQUEST_ID$ To 0 +Equ FTP_REQUESTS.REQUEST_DATE$ To 1 +Equ FTP_REQUESTS.REQUEST_TIME$ To 2 +Equ FTP_REQUESTS.FTP_COMMAND$ To 3 +Equ FTP_REQUESTS.HOST$ To 4 +Equ FTP_REQUESTS.LOCAL_FILE$ To 5 +Equ FTP_REQUESTS.ENCODED_DATA$ To 6 +Equ FTP_REQUESTS.USERNAME$ To 7 +Equ FTP_REQUESTS.PASSWORD$ To 8 +Equ FTP_REQUESTS.LOCAL_DIRECTORY$ To 9 +Equ FTP_REQUESTS.REMOTE_DIRECTORY$ To 10 +Equ FTP_REQUESTS.REMOTE_FILE$ To 11 +Equ FTP_REQUESTS.SCRIPT_PATH$ To 12 +Equ FTP_REQUESTS.DELETE_SCRIPT$ To 13 +Equ FTP_REQUESTS.SSH$ To 14 +Equ FTP_REQUESTS.PROCESS_DIRECTORY$ To 15 +Equ FTP_REQUESTS.SERVER$ To 16 +Equ FTP_REQUESTS.NUMBER_OF_ATTEMPTS$ To 17 +Equ FTP_REQUESTS.ATTEMPT_COUNT$ To 18 +Equ FTP_REQUESTS.ATTEMPT_DATE$ To 19 +Equ FTP_REQUESTS.ATTEMPT_TIME$ To 20 +Equ FTP_REQUESTS.RESULT$ To 21 +Equ FTP_REQUESTS.DELETE_LOCAL_FILE$ To 22 diff --git a/LSL2/STPROCINS/GAN_CYCLE_TIME_EQUATES.txt b/LSL2/STPROCINS/GAN_CYCLE_TIME_EQUATES.txt new file mode 100644 index 0000000..0916e0d --- /dev/null +++ b/LSL2/STPROCINS/GAN_CYCLE_TIME_EQUATES.txt @@ -0,0 +1,22 @@ +COMPILE INSERT GAN_CYCLE_TIME_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 10/05/2020 + Description : Insert for Table GAN_CYCLE_TIME +----------------------------------------*/ + +Equ GAN_CYCLE_TIME_WO_NO$ To 1 +Equ GAN_CYCLE_TIME_RUN_ID$ To 2 +Equ GAN_CYCLE_TIME_RDS_NO$ To 3 +Equ GAN_CYCLE_TIME_RECIPE$ To 4 +Equ GAN_CYCLE_TIME_PART_NO$ To 5 +Equ GAN_CYCLE_TIME_PSN_NO$ To 6 +Equ GAN_CYCLE_TIME_STAGE_NAME$ To 7 +Equ GAN_CYCLE_TIME_TOOL_CLASS$ To 8 +Equ GAN_CYCLE_TIME_TOOL$ To 9 +Equ GAN_CYCLE_TIME_START_DTM$ To 10 +Equ GAN_CYCLE_TIME_STOP_DTM$ To 11 +Equ GAN_CYCLE_TIME_OPERATOR_START$ To 12 +Equ GAN_CYCLE_TIME_OPERATOR_STOP$ To 13 +Equ GAN_CYCLE_TIME_WFR_SCRIBE$ To 14 +Equ GAN_CYCLE_TIME_REACTOR$ To 15 diff --git a/LSL2/STPROCINS/GAN_ETCH_EQUATES.txt b/LSL2/STPROCINS/GAN_ETCH_EQUATES.txt new file mode 100644 index 0000000..f5edc82 --- /dev/null +++ b/LSL2/STPROCINS/GAN_ETCH_EQUATES.txt @@ -0,0 +1,20 @@ +compile insert GAN_ETCH_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 04/01/2019 + Description : Insert for Table GAN_ETCH +----------------------------------------*/ + + +Equ GAN_ETCH_ETCH_ID$ To 0 +Equ GAN_ETCH_REACTOR$ To 1 +Equ GAN_ETCH_START_DTM$ To 2 +Equ GAN_ETCH_END_DTM$ To 3 +Equ GAN_ETCH_USER$ To 4 +Equ GAN_ETCH_AVAILABLE$ To 5 +Equ GAN_ETCH_LOC_DTM$ To 6 +Equ GAN_ETCH_LOC_BY$ To 7 +Equ GAN_ETCH_LOC_EVENT$ To 8 +Equ GAN_ETCH_GAN_RUN_ID$ To 9 +Equ GAN_ETCH_TOOL_ID$ To 10 +Equ GAN_ETCH_INV_LOC$ To 11 diff --git a/LSL2/STPROCINS/GAN_PARAMS_EQUATES.txt b/LSL2/STPROCINS/GAN_PARAMS_EQUATES.txt new file mode 100644 index 0000000..f48e11e --- /dev/null +++ b/LSL2/STPROCINS/GAN_PARAMS_EQUATES.txt @@ -0,0 +1,18 @@ +compile insert GAN_PARAMS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 03/12/2019 + Description : Insert for Table GAN_PARAMS +----------------------------------------*/ + + +Equ GAN_PARAMS.PART$ To 0*1 +Equ GAN_PARAMS.TYPE$ To 0*2 +Equ GAN_PARAMS.DTM$ To 0*3 +Equ GAN_PARAMS.MET_NAME$ To 1 +Equ GAN_PARAMS.PARAM_NAME$ To 2 +Equ GAN_PARAMS.LSL$ To 3 +Equ GAN_PARAMS.LCL$ To 4 +Equ GAN_PARAMS.TARGET$ To 5 +Equ GAN_PARAMS.UCL$ To 6 +Equ GAN_PARAMS.USL$ To 7 diff --git a/LSL2/STPROCINS/GAN_PARAM_CONFIG_EQUATES.txt b/LSL2/STPROCINS/GAN_PARAM_CONFIG_EQUATES.txt new file mode 100644 index 0000000..c649467 --- /dev/null +++ b/LSL2/STPROCINS/GAN_PARAM_CONFIG_EQUATES.txt @@ -0,0 +1,14 @@ +compile insert GAN_PARAM_CONFIG_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 06/12/2019 + Description : Insert for Table GAN_PARAM_CONFIG +----------------------------------------*/ + + +Equ GAN_PARAM_CONFIG.PSN$ To 0*1 +Equ GAN_PARAM_CONFIG.PART$ To 0*2 +Equ GAN_PARAM_CONFIG.STAGE$ To 0*3 +Equ GAN_PARAM_CONFIG.MET_NAME$ To 1 +Equ GAN_PARAM_CONFIG.PARAM_NAME$ To 2 +Equ GAN_PARAM_CONFIG.ENABLED$ To 3 diff --git a/LSL2/STPROCINS/GAN_RET_EQUATES.txt b/LSL2/STPROCINS/GAN_RET_EQUATES.txt new file mode 100644 index 0000000..a3ecfde --- /dev/null +++ b/LSL2/STPROCINS/GAN_RET_EQUATES.txt @@ -0,0 +1,11 @@ +compile insert GAN_RET_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 15/02/2017 + Description : Insert for Table GAN_RET +----------------------------------------*/ + + +Equ GAN_RET_GR_ID$ To 0 +Equ GAN_RET_SLOTS$ To 1 +Equ GAN_RET_WFR_ID$ To 2 diff --git a/LSL2/STPROCINS/GAN_RUN_INFO_REQUESTS_EQUATES.txt b/LSL2/STPROCINS/GAN_RUN_INFO_REQUESTS_EQUATES.txt new file mode 100644 index 0000000..01f097f --- /dev/null +++ b/LSL2/STPROCINS/GAN_RUN_INFO_REQUESTS_EQUATES.txt @@ -0,0 +1,20 @@ +compile insert GAN_RUN_INFO_REQUESTS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 30/05/2019 + Description : Insert for Table GAN_RUN_INFO_REQUESTS +----------------------------------------*/ + + +Equ GAN_RUN_INFO_REQUESTS.GAN_RUN_ID$ To 0*1 +Equ GAN_RUN_INFO_REQUESTS.REQUEST_DATE$ To 0*2 +Equ GAN_RUN_INFO_REQUESTS.REQUEST_TIME$ To 0*3 +Equ GAN_RUN_INFO_REQUESTS.USERNAME$ To 0*4 +Equ GAN_RUN_INFO_REQUESTS.RESPONSE_DATE$ To 1 +Equ GAN_RUN_INFO_REQUESTS.RESPONSE_TIME$ To 2 +Equ GAN_RUN_INFO_REQUESTS.RECIPE$ To 3 +Equ GAN_RUN_INFO_REQUESTS.GAN_SUSC_SERIAL$ To 4 +Equ GAN_RUN_INFO_REQUESTS.POCKET$ To 5 +Equ GAN_RUN_INFO_REQUESTS.WAFER_SCRIBE$ To 6 +Equ GAN_RUN_INFO_REQUESTS.PKT_SAT_ID$ To 7 +Equ GAN_RUN_INFO_REQUESTS.REACTOR$ To 8 diff --git a/LSL2/STPROCINS/GAN_SCHEDULE_EQUATES.txt b/LSL2/STPROCINS/GAN_SCHEDULE_EQUATES.txt new file mode 100644 index 0000000..16a3c6d --- /dev/null +++ b/LSL2/STPROCINS/GAN_SCHEDULE_EQUATES.txt @@ -0,0 +1,13 @@ +compile insert GAN_SCHEDULE_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 11/06/2019 + Description : Insert for Table GAN_SCHEDULE +----------------------------------------*/ + + +Equ GAN_SCHEDULE_RUN_ID$ To 0 +Equ GAN_SCHEDULE_RECIPE$ To 1 +Equ GAN_SCHEDULE_WAFER_TRACK_PART$ To 2 +Equ GAN_SCHEDULE_OPENINSIGHT_PART$ To 3 +Equ GAN_SCHEDULE_WORK_ORDER$ To 4 diff --git a/LSL2/STPROCINS/GAN_STAGE_CYCLE_TIME_EQUATES.txt b/LSL2/STPROCINS/GAN_STAGE_CYCLE_TIME_EQUATES.txt new file mode 100644 index 0000000..0707f6b --- /dev/null +++ b/LSL2/STPROCINS/GAN_STAGE_CYCLE_TIME_EQUATES.txt @@ -0,0 +1,19 @@ +compile insert GAN_STAGE_CYCLE_TIME_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 30/09/2020 + Description : Insert for Table GAN_STAGE_CYCLE_TIME +----------------------------------------*/ + + +Equ GAN_STAGE_CYCLE_TIME_ID$ To 0 +Equ GAN_STAGE_CYCLE_TIME_STAGE$ To 1 +Equ GAN_STAGE_CYCLE_TIME_START$ To 2 +Equ GAN_STAGE_CYCLE_TIME_STOP$ To 3 +Equ GAN_STAGE_CYCLE_TIME_WFR_ID$ To 4 +Equ GAN_STAGE_CYCLE_TIME_RUN_CREATION_DATE$ To 5 +Equ GAN_STAGE_CYCLE_TIME_OPERATOR_START$ To 6 +Equ GAN_STAGE_CYCLE_TIME_OPERATOR_STOP$ To 7 +Equ GAN_STAGE_CYCLE_TIME_TOOL$ To 8 +Equ GAN_STAGE_CYCLE_TIME_TOOL_CLASS$ To 9 +Equ GAN_STAGE_CYCLE_TIME_RDS_NO$ To 10 diff --git a/LSL2/STPROCINS/GAN_THEO_CYCLE_TIME_EQUATES.txt b/LSL2/STPROCINS/GAN_THEO_CYCLE_TIME_EQUATES.txt new file mode 100644 index 0000000..81a4659 --- /dev/null +++ b/LSL2/STPROCINS/GAN_THEO_CYCLE_TIME_EQUATES.txt @@ -0,0 +1,13 @@ +compile insert GAN_THEO_CYCLE_TIME_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 14/12/2020 + Description : Insert for Table GAN_THEO_CYCLE_TIME +----------------------------------------*/ + + +Equ GAN_THEO_CYCLE_TIME_PART_NO$ To 0 +Equ GAN_THEO_CYCLE_TIME_STAGE$ To 1 +Equ GAN_THEO_CYCLE_TIME_RECIPE_TIME$ To 2 +Equ GAN_THEO_CYCLE_TIME_OPERATOR_TOUCH_TIME$ To 3 +Equ GAN_THEO_CYCLE_TIME_RUNS_PER_WEEK$ To 4 diff --git a/LSL2/STPROCINS/GAS_SRC_EQUATES.txt b/LSL2/STPROCINS/GAS_SRC_EQUATES.txt new file mode 100644 index 0000000..24c1102 --- /dev/null +++ b/LSL2/STPROCINS/GAS_SRC_EQUATES.txt @@ -0,0 +1,19 @@ +compile insert GAS_SRC_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 16/08/2006 + Description : Insert for Table GAS_SRC +----------------------------------------*/ + + +Equ GAS_SRC_AREA$ To 0 +Equ GAS_SRC_CAB$ To 0 +Equ GAS_SRC_POS$ To 0 +Equ GAS_SRC_CURR_GAS$ To 1 +Equ GAS_SRC_CURR_SERIAL$ To 2 +Equ GAS_SRC_CURR_INSTALL_DTM$ To 3 +Equ GAS_SRC_REACTOR$ To 6 +Equ GAS_SRC_GAS_ID$ To 7 +Equ GAS_SRC_CONT_ID$ To 8 +Equ GAS_SRC_INSTALL_DTM$ To 9 +Equ GAS_SRC_REMOVE_DTM$ To 10 diff --git a/LSL2/STPROCINS/GRAPHITE_EQUATES.txt b/LSL2/STPROCINS/GRAPHITE_EQUATES.txt new file mode 100644 index 0000000..f795cc8 --- /dev/null +++ b/LSL2/STPROCINS/GRAPHITE_EQUATES.txt @@ -0,0 +1,37 @@ +compile insert GRAPHITE_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 20/04/2022 + Description : Insert for Table GRAPHITE +----------------------------------------*/ + + +Equ GRAPHITE_GR_NO$ To 0 +Equ GRAPHITE_MFR_CD$ To 1 +Equ GRAPHITE_MFR_PART_NO$ To 2 +Equ GRAPHITE_SERIAL$ To 3 +Equ GRAPHITE_ENTER_BY$ To 4 +Equ GRAPHITE_ENTER_DTM$ To 5 +Equ GRAPHITE_REACT_TYPE$ To 6 +Equ GRAPHITE_SUSC_SIZE$ To 7 +Equ GRAPHITE_PKT_QTY$ To 8 +Equ GRAPHITE_GR_TYPE$ To 9 +Equ GRAPHITE_DESC$ To 10 +Equ GRAPHITE_NOTES$ To 11 +Equ GRAPHITE_REACT_NO$ To 12 +Equ GRAPHITE_INST_DTM$ To 13 +Equ GRAPHITE_INST_REACT_WFRS$ To 14 +Equ GRAPHITE_INST_REACT_HRS$ To 15 +Equ GRAPHITE_INST_RL_ID$ To 16 +Equ GRAPHITE_RDS_WFR_CNT$ To 17 +Equ GRAPHITE_REM_DTM$ To 18 +Equ GRAPHITE_REM_REACT_HRS$ To 19 +Equ GRAPHITE_REM_REACT_WFRS$ To 20 +Equ GRAPHITE_REM_RL_ID$ To 21 +Equ GRAPHITE_PKT_SIZE$ To 24 +Equ GRAPHITE_INACTIVE_DT$ To 25 +Equ GRAPHITE_RETIRE_DT$ To 25 +Equ GRAPHITE_SERIAL_NO$ To 26 +Equ GRAPHITE_RETIRE_BY$ To 27 +Equ GRAPHITE_MFR_PART_NO_REV$ To 28 +Equ GRAPHITE_PPLUS_RUN_TYPE$ To 29 diff --git a/LSL2/STPROCINS/GRAPH_SER_EQUATES.txt b/LSL2/STPROCINS/GRAPH_SER_EQUATES.txt new file mode 100644 index 0000000..c546d64 --- /dev/null +++ b/LSL2/STPROCINS/GRAPH_SER_EQUATES.txt @@ -0,0 +1,10 @@ +compile insert GRAPH_SER_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 29/08/2013 + Description : Insert for Table GRAPH_SER +----------------------------------------*/ + + +Equ GRAPH_SER_GRAPH_SER_NO$ To 0 +Equ GRAPH_SER_GR_NO$ To 1 diff --git a/LSL2/STPROCINS/ICAR_EQU.txt b/LSL2/STPROCINS/ICAR_EQU.txt new file mode 100644 index 0000000..b756e61 --- /dev/null +++ b/LSL2/STPROCINS/ICAR_EQU.txt @@ -0,0 +1,21 @@ +* Equates for ICAR created on 12/14/01 03:03PM + +equ ICAR_ENTRY_ID$ to 1 +equ ICAR_ENTRY_DATE$ to 2 +equ ICAR_ISSUE_DATE$ to 3 +equ ICAR_RESP_SUPERVISOR_ID$ to 4 +equ ICAR_STATUS$ to 5 +equ ICAR_NON_CONF$ to 6 +equ ICAR_RDS_IDS$ to 9 +equ ICAR_PROBLEM$ to 11 +equ ICAR_FINDINGS$ to 12 +equ ICAR_CONTAIN_ACTIONS$ to 13 +equ ICAR_CORRECT_ACTIONS$ to 14 +equ ICAR_NOTES$ to 15 +equ ICAR_RESP_SUPERVISOR_SIG$ to 16 +equ ICAR_MFG_MGR_SIG$ to 18 +equ ICAR_ACTION_PLAN$ to 19 +equ ICAR_CONFIRM_STATUS$ to 20 +equ ICAR_DEPT_RESP$ to 21 +equ ICAR_USER_ID$ to 22 +equ ICAR_SHIFT$ to 23 diff --git a/LSL2/STPROCINS/ICAR_EQUATES.txt b/LSL2/STPROCINS/ICAR_EQUATES.txt new file mode 100644 index 0000000..8191bfc --- /dev/null +++ b/LSL2/STPROCINS/ICAR_EQUATES.txt @@ -0,0 +1,45 @@ +compile insert ICAR_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 17/01/2012 + Description : Insert for Table ICAR +----------------------------------------*/ + + +Equ ICAR_SEQ$ To 0 +Equ ICAR_ENTRY_ID$ To 1 +Equ ICAR_ENTRY_DATE$ To 2 +Equ ICAR_ISSUE_DATE$ To 3 +Equ ICAR_RESP_SUPERVISOR_ID$ To 4 +Equ ICAR_STATUS$ To 5 +Equ ICAR_NON_CONF$ To 6 +Equ ICAR_RDS_IDS$ To 9 +Equ ICAR_PROBLEM$ To 11 +Equ ICAR_FINDINGS$ To 12 +Equ ICAR_CONTAIN_ACTIONS$ To 13 +Equ ICAR_CORRECT_ACTIONS$ To 14 +Equ ICAR_NOTES$ To 15 +Equ ICAR_RESP_SUPERVISOR_SIG$ To 16 +Equ ICAR_MFG_MGR_SIG$ To 18 +Equ ICAR_ACTION_PLAN$ To 19 +Equ ICAR_CONFIRM_STATUS$ To 20 +Equ ICAR_DEPT_RESP$ To 21 +Equ ICAR_USER_ID$ To 22 +Equ ICAR_SHIFT$ To 23 +Equ ICAR_PROBLEM_TYPE$ To 24 +Equ ICAR_RESP_SUPERVISOR_SIG_DTM$ To 25 +Equ ICAR_EMP_REVIEW_ID$ To 26 +Equ ICAR_EMP_REVIEW_DTM$ To 27 +Equ ICAR_SEC_SUP_REVIEW_ID$ To 28 +Equ ICAR_SEC_SUP_REVIEW_DTM$ To 29 +Equ ICAR_MFG_MGR_SIG_DTM$ To 30 +Equ ICAR_RENG_SPEC_SIG_ID$ To 31 +Equ ICAR_RENG_SPEC_SIG_DTM$ To 32 +Equ ICAR_PS_NO$ To 33 +Equ ICAR_AWARD_AMT$ To 34 +Equ ICAR_MES_TASK$ To 35 +Equ ICAR_ROOT_CAUSE$ To 36 +Equ ICAR_DEPT_MGR_ID$ To 37 +Equ ICAR_DEPT_MGR_REVIEW_ID$ To 38 +Equ ICAR_DEPT_MGR_REVIEW_DTM$ To 39 + diff --git a/LSL2/STPROCINS/ICAR_NONCONFORMANCE_EQU.txt b/LSL2/STPROCINS/ICAR_NONCONFORMANCE_EQU.txt new file mode 100644 index 0000000..684ac2f --- /dev/null +++ b/LSL2/STPROCINS/ICAR_NONCONFORMANCE_EQU.txt @@ -0,0 +1,7 @@ +compile insert ICAR_NONCONFORMANCE_EQU +* equates for "CONFIG" "ICAR_NONCONFORMANCE" + +equ Proc$ to 1 +equ ProcDesc$ to 2 +equ ProcNoRev$ to 3 + diff --git a/LSL2/STPROCINS/INVOICE_EQU.txt b/LSL2/STPROCINS/INVOICE_EQU.txt new file mode 100644 index 0000000..1362e7a --- /dev/null +++ b/LSL2/STPROCINS/INVOICE_EQU.txt @@ -0,0 +1,51 @@ +compile insert INVOICE_EQU +* Equates for INVOICE created on 06/09/96 08:54AM + +equ INVOICE_ORDER_NO$ to 1 +equ INVOICE_CUST_NO$ to 2 +equ INVOICE_PO$ to 3 +equ INVOICE_ENTRY_ID$ to 4 +equ INVOICE_ENTRY_DATE$ to 5 +equ INVOICE_SHIP_DATE$ to 6 +equ INVOICE_DUE_DATE$ to 7 +equ INVOICE_STATUS$ to 8 +equ INVOICE_BILL_TO_ATTN$ to 9 +equ INVOICE_BILL_TO_ADDRESS$ to 10 +equ INVOICE_BILL_TO_CITY$ to 11 +equ INVOICE_BILL_TO_STATE$ to 12 +equ INVOICE_BILL_TO_ZIP$ to 13 +equ INVOICE_SHIP_TO_ATTN$ to 14 +equ INVOICE_SHIP_TO_ADDRESS$ to 15 +equ INVOICE_SHIP_TO_CITY$ to 16 +equ INVOICE_SHIP_TO_STATE$ to 17 +equ INVOICE_SHIP_TO_ZIP$ to 18 +equ INVOICE_TERMS$ to 19 +equ INVOICE_SHIP_VIA$ to 20 +equ INVOICE_ACCOUNT_NO$ to 21 +equ INVOICE_TRACKING_NO$ to 22 +equ INVOICE_INVOICE_NOTES$ to 23 +equ INVOICE_OTHER_NOTES$ to 24 +equ INVOICE_CHECK_NO$ to 25 +equ INVOICE_CHECK_DATE$ to 26 +equ INVOICE_CHECK_AMOUNT$ to 27 +equ INVOICE_QUOTE_IDS$ to 28 +equ INVOICE_SCHEDULE_IDS$ to 29 +equ INVOICE_WO$ to 30 +equ INVOICE_PART_NUM$ to 31 +equ INVOICE_LOT_NUM$ to 32 +equ INVOICE_SETUP_CHARGE$ to 33 +equ INVOICE_SRP_CHARGE$ to 34 +equ INVOICE_QUANTITY$ to 35 +equ INVOICE_PRICE$ to 36 +equ INVOICE_GL_ACCT$ to 37 +equ INVOICE_DISCOUNT_AMOUNT$ to 38 +equ INVOICE_FREIGHT_AMOUNT$ to 39 +equ INVOICE_REJECTS$ to 40 +equ INVOICE_UNPROCESSED$ to 41 +equ INVOICE_BOX_CNT$ to 42 +equ INVOICE_ORDER_LINE_ITEM$ to 43 +equ INVOICE_BILL_TO_COMPANY$ to 44 +equ INVOICE_SHIP_TO_COMPANY$ to 45 +equ INVOICE_PLANT$ to 46 +equ INVOICE_SHIP_NO$ to 47 +equ INVOICE_OD_ITEM_NO$ TO 48 diff --git a/LSL2/STPROCINS/INVOICE_SRL_EQU.txt b/LSL2/STPROCINS/INVOICE_SRL_EQU.txt new file mode 100644 index 0000000..fad34f3 --- /dev/null +++ b/LSL2/STPROCINS/INVOICE_SRL_EQU.txt @@ -0,0 +1,45 @@ +* Equates for INVOICE_SRL created on 04/03/96 07:30AM + +equ INVOICE_SRL_ORDER_NO$ to 1 +equ INVOICE_SRL_CUST_NO$ to 2 +equ INVOICE_SRL_PO$ to 3 +equ INVOICE_SRL_ENTRY_ID$ to 4 +equ INVOICE_SRL_ENTRY_DATE$ to 5 +equ INVOICE_SRL_SHIP_DATE$ to 6 +equ INVOICE_SRL_DUE_DATE$ to 7 +equ INVOICE_SRL_STATUS$ to 8 +equ INVOICE_SRL_BILL_TO_ATTN$ to 9 +equ INVOICE_SRL_BILL_TO_ADDRESS$ to 10 +equ INVOICE_SRL_BILL_TO_CITY$ to 11 +equ INVOICE_SRL_BILL_TO_STATE$ to 12 +equ INVOICE_SRL_BILL_TO_ZIP$ to 13 +equ INVOICE_SRL_SHIP_TO_ATTN$ to 14 +equ INVOICE_SRL_SHIP_TO_ADDRESS$ to 15 +equ INVOICE_SRL_SHIP_TO_CITY$ to 16 +equ INVOICE_SRL_SHIP_TO_STATE$ to 17 +equ INVOICE_SRL_SHIP_TO_ZIP$ to 18 +equ INVOICE_SRL_TERMS$ to 19 +equ INVOICE_SRL_SHIP_VIA$ to 20 +equ INVOICE_SRL_ACCOUNT_NO$ to 21 +equ INVOICE_SRL_TRACKING_NO$ to 22 +equ INVOICE_SRL_INVOICE_NOTES$ to 23 +equ INVOICE_SRL_OTHER_NOTES$ to 24 +equ INVOICE_SRL_CHECK_NO$ to 25 +equ INVOICE_SRL_CHECK_DATE$ to 26 +equ INVOICE_SRL_CHECK_AMOUNT$ to 27 +equ INVOICE_SRL_QUOTE_IDS$ to 28 +equ INVOICE_SRL_SCHEDULE_IDS$ to 29 +equ INVOICE_SRL_WO$ to 30 +equ INVOICE_SRL_DESCRIPTION$ to 31 +equ INVOICE_SRL_SETUP_CHARGE$ to 32 +equ INVOICE_SRL_QUANTITY$ to 33 +equ INVOICE_SRL_PRICE$ to 34 +equ INVOICE_SRL_GL_ACCT$ to 35 +equ INVOICE_SRL_DISCOUNT_AMOUNT$ to 36 +equ INVOICE_SRL_FREIGHT_AMOUNT$ to 37 +equ INVOICE_SRL_BOX_CNT$ to 38 +equ INVOICE_SRL_ORDER_LINE_ITEM$ to 39 +equ INVOICE_SRL_BILL_TO_COMPANY$ to 40 +equ INVOICE_SRL_SHIP_TO_COMPANY$ to 41 +equ INVOICE_SRL_REJECTS$ to 42 +equ INVOICE_SRL_UNPROCESSED$ to 43 diff --git a/LSL2/STPROCINS/IR_INSERTS.txt b/LSL2/STPROCINS/IR_INSERTS.txt new file mode 100644 index 0000000..ec5f44a --- /dev/null +++ b/LSL2/STPROCINS/IR_INSERTS.txt @@ -0,0 +1,3 @@ +Compile insert IR_INSERTS + +Equ User$ to @USER4 diff --git a/LSL2/STPROCINS/LABELS.txt b/LSL2/STPROCINS/LABELS.txt new file mode 100644 index 0000000..1e40061 --- /dev/null +++ b/LSL2/STPROCINS/LABELS.txt @@ -0,0 +1,45 @@ +COMPILE INSERT Labels + +* Equates for ZEBRA label printing parameter string. + + +EQU Label$CustPartNo TO 1 ;* Customer Part No - 18 alphanumeric +EQU Label$PartQty TO 2 ;* Part Qty - 6 numeric +EQU Label$RevLvl TO 3 ;* Engineering Change or Rev - 3 alpha +EQU Label$SerialNo TO 4 ;* EDI transaction serial no - 9 alpha +EQU Label$SupplierCd TO 5 ;* Customer supplied Vend ID - 12 alphanumeric +EQU Label$DeliveryLoc TO 6 ;* Delivery Location - 8 char (VARIOUS is OK) +EQU Label$PONo TO 7 ;* Purchase Order No - 12 alphanumeric +EQU Label$LotNo TO 8 ;* Vendor Lot Number - 10 character +EQU Label$PlantDock TO 9 ;* Plant & Dock designator - 7 character +EQU Label$StorageBin TO 10 ;* Storage Bin at Customer - 30 character +EQU Label$PlantName TO 11 ;* Ship to Plant Name - 30 character +EQU Label$PlantCity TO 12 ;* Ship to Plant City - 30 character +EQU Label$ShipDt TO 13 ;* Ship Date - MM/DD/YYYY +EQU Label$PartDesc TO 14 ;* Part Description - 25 character +EQU Label$Manufacturer TO 15 ;* Manufacturer - 30 character +EQU Label$City TO 16 ;* Mfr City - 20 character +EQU Label$ST TO 17 ;* Mfr State code - 2 character +EQU Label$ZIP TO 18 ;* ZIP code - 7 character +EQU Label$Country TO 19 ;* Country of origin - 10 character +EQU Label$MfgDt TO 20 ;* Date of Manufacture - MM/DD/YYYY + +EQU Label$ShipToName TO 21 ;* Customer ship to Name - 25 alphanumeric +EQU Label$ShipToAddr TO 22 ;* Customer ship to Address - 25 alphanumeric +EQU Label$ShipToCity TO 23 ;* Customer ship to City - 20 alphanumeric +EQU Label$ShipToST TO 24 ;* Customer ship to State - 2 alpha +EQU Label$ShipToZIP TO 25 ;* Customer ship to ZIP - 7 alphanumeric + +EQU Label$CustPartNos TO 26 ;* Customer Part No - 18 alphanumeric +EQU Label$CustPartQtys TO 27 ;* Part Qty - 6 numeric + +* ATMI subpack parms - not checked + +EQU Label$CustName TO 29 +EQU Label$CustLot TO 30 +EQU Label$Thickness TO 31 +EQU Label$Resistivity TO 32 +EQU Label$Conductivity TO 33 +EQU Label$ReqShipDt TO 34 +EQU Label$WONo TO 35 + diff --git a/LSL2/STPROCINS/LISTBOX_CONFIG_EQU.txt b/LSL2/STPROCINS/LISTBOX_CONFIG_EQU.txt new file mode 100644 index 0000000..82263ac --- /dev/null +++ b/LSL2/STPROCINS/LISTBOX_CONFIG_EQU.txt @@ -0,0 +1,4 @@ +* Equates for LISTBOX_CONFIG created on 03/22/99 08:26AM + +equ LISTBOX_CONFIG_CHOICES$ to 1 +equ LISTBOX_CONFIG_MFG_CHANGE$ to 2 diff --git a/LSL2/STPROCINS/LOCATION_EQUATES.txt b/LSL2/STPROCINS/LOCATION_EQUATES.txt new file mode 100644 index 0000000..4d72a6a --- /dev/null +++ b/LSL2/STPROCINS/LOCATION_EQUATES.txt @@ -0,0 +1,15 @@ +compile insert LOCATION_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 14/12/2016 + Description : Insert for Table LOCATION +----------------------------------------*/ + + +Equ LOCATION_LOC_CD$ To 0 +Equ LOCATION_WH_CD$ To 0 +Equ LOCATION_DESC$ To 1 +Equ LOCATION_CASS_ID$ To 2 +Equ LOCATION_WFR_ID$ To 3 +Equ LOCATION_CUST_NO$ To 4 +Equ LOCATION_ETCH_ID$ To 5 diff --git a/LSL2/STPROCINS/LOCKS_EQUATES.txt b/LSL2/STPROCINS/LOCKS_EQUATES.txt new file mode 100644 index 0000000..410a6ae --- /dev/null +++ b/LSL2/STPROCINS/LOCKS_EQUATES.txt @@ -0,0 +1,11 @@ +compile insert LOCKS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 30/11/2021 + Description : Insert for Table LOCKS +----------------------------------------*/ + + +Equ LOCKS.RECORD$ To 0 +Equ LOCKS.STATION$ To 0 +Equ LOCKS.TABLE$ To 0 diff --git a/LSL2/STPROCINS/LSL2_VERSION_EQUATES.txt b/LSL2/STPROCINS/LSL2_VERSION_EQUATES.txt new file mode 100644 index 0000000..00099a1 --- /dev/null +++ b/LSL2/STPROCINS/LSL2_VERSION_EQUATES.txt @@ -0,0 +1,11 @@ +compile insert LSL2_VERSION_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 25/10/2021 + Description : Insert for Table LSL2_VERSION +----------------------------------------*/ + + +Equ LSL2_VERSION.VERSION_NO$ To 0 +Equ LSL2_VERSION.DATE$ To 1 +Equ LSL2_VERSION.DESCRIPTION$ To 2 diff --git a/LSL2/STPROCINS/LSL_CLIENTS_EQUATES.txt b/LSL2/STPROCINS/LSL_CLIENTS_EQUATES.txt new file mode 100644 index 0000000..4af6c23 --- /dev/null +++ b/LSL2/STPROCINS/LSL_CLIENTS_EQUATES.txt @@ -0,0 +1,10 @@ +compile insert LSL_CLIENTS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 13/12/2021 + Description : Insert for Table LSL_CLIENTS +----------------------------------------*/ + + +Equ LSL_CLIENTS.CLIENT_NAME$ To 0 +Equ LSL_CLIENTS.LOCATION$ To 1 diff --git a/LSL2/STPROCINS/LSL_USERS_EQU.txt b/LSL2/STPROCINS/LSL_USERS_EQU.txt new file mode 100644 index 0000000..f941b06 --- /dev/null +++ b/LSL2/STPROCINS/LSL_USERS_EQU.txt @@ -0,0 +1,22 @@ +compile insert LSL_USERS_EQU +* Equates for LSL_USERS created on 10/06/99 01:49PM + +equ LSL_USERS_FIRST$ to 1 +equ LSL_USERS_LAST$ to 2 +equ LSL_USERS_TABLES$ to 3 +equ LSL_USERS_RIGHTS$ to 4 +equ LSL_USERS_ADMIN_USER$ to 5 +equ LSL_USERS_PASSWORD$ to 6 +equ LSL_USERS_RDS_MASTER$ to 7 +equ LSL_USERS_GROUPS$ to 8 +equ LSL_USERS_PROCESS_TECH$ to 9 +equ LSL_USERS_ACTIVE$ to 10 +equ LSL_USERS_MENU_XPOS$ to 11 +equ LSL_USERS_MENU_YPOS$ to 12 +equ LSL_USERS_MENU_XSIZE$ to 13 +equ LSL_USERS_MENU_YSIZE$ to 14 +equ LSL_USERS_DID$ to 15 +equ LSL_USERS_FAX$ to 16 +equ LSL_USERS_EMAIL$ to 17 +equ LSL_USERS_FWD_EMAIL$ to 18 +equ LSL_USERS_DOMAIN_USERNAME$ to 19 diff --git a/LSL2/STPROCINS/LSL_USERS_EQUATES.txt b/LSL2/STPROCINS/LSL_USERS_EQUATES.txt new file mode 100644 index 0000000..649ebb5 --- /dev/null +++ b/LSL2/STPROCINS/LSL_USERS_EQUATES.txt @@ -0,0 +1,34 @@ +compile insert LSL_USERS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 27/02/2012 + Description : Insert for Table LSL_USERS +----------------------------------------*/ + + +Equ LSL_USERS_USERNAME$ To 0 +Equ LSL_USERS_FIRST$ To 1 +Equ LSL_USERS_LAST$ To 2 +Equ LSL_USERS_TABLES$ To 3 +Equ LSL_USERS_RIGHTS$ To 4 +Equ LSL_USERS_ADMIN_USER$ To 5 +Equ LSL_USERS_PASSWORD$ To 6 +Equ LSL_USERS_RDS_MASTER$ To 7 +Equ LSL_USERS_GROUPS$ To 8 +Equ LSL_USERS_PROCESS_TECH$ To 9 +Equ LSL_USERS_ACTIVE$ To 10 +Equ LSL_USERS_MENU_XPOS$ To 11 +Equ LSL_USERS_MENU_YPOS$ To 12 +Equ LSL_USERS_MENU_XSIZE$ To 13 +Equ LSL_USERS_MENU_YSIZE$ To 14 +Equ LSL_USERS_DID$ To 15 +Equ LSL_USERS_FAX$ To 16 +Equ LSL_USERS_EMAIL$ To 17 +Equ LSL_USERS_FWD_EMAIL$ To 18 +Equ LSL_USERS_DOMAIN_USERNAME$ To 19 +Equ LSL_USERS_LAST_LOGIN$ To 20 +Equ LSL_USERS_LSL2_VERSION$ To 21 +Equ LSL_USERS_OCX_VERSION$ To 22 +Equ LSL_USERS_PROCESS_ID$ To 23 +Equ LSL_USERS_CLASSIFICATION$ To 24 +Equ LSL_USERS_SHIFT$ To 25 diff --git a/LSL2/STPROCINS/MAINT_ITEM_EQUATES.txt b/LSL2/STPROCINS/MAINT_ITEM_EQUATES.txt new file mode 100644 index 0000000..edcef65 --- /dev/null +++ b/LSL2/STPROCINS/MAINT_ITEM_EQUATES.txt @@ -0,0 +1,18 @@ +compile insert MAINT_ITEM_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 22/11/2013 + Description : Insert for Table MAINT_ITEM +----------------------------------------*/ + + +Equ MAINT_ITEM_PROB_CAT_ID$ To 0 +Equ MAINT_ITEM_RL_ID$ To 0 +Equ MAINT_ITEM_ENTER_BY$ To 1 +Equ MAINT_ITEM_ENTER_DTM$ To 2 +Equ MAINT_ITEM_REACT_SERV_ID$ To 3 +Equ MAINT_ITEM_ITEM_SERIAL$ To 5 +Equ MAINT_ITEM_COMP_BY$ To 6 +Equ MAINT_ITEM_COMP_DTM$ To 7 +Equ MAINT_ITEM_NOTES$ To 8 +Equ MAINT_ITEM_SCHED$ To 9 diff --git a/LSL2/STPROCINS/MAKEUP_WAFERS_EQUATES.txt b/LSL2/STPROCINS/MAKEUP_WAFERS_EQUATES.txt new file mode 100644 index 0000000..3bb9e96 --- /dev/null +++ b/LSL2/STPROCINS/MAKEUP_WAFERS_EQUATES.txt @@ -0,0 +1,24 @@ +compile insert MAKEUP_WAFERS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 16/12/2020 + Description : Insert for Table MAKEUP_WAFERS +----------------------------------------*/ + + +Equ MAKEUP_WAFERS.WO_NO$ To 0 +Equ MAKEUP_WAFERS.CASS_NO$ To 0 +Equ MAKEUP_WAFERS.SAP_BATCH_NO$ To 1 +Equ MAKEUP_WAFERS.PS_NO$ To 2 +Equ MAKEUP_WAFERS.CUST_NO$ To 3 +Equ MAKEUP_WAFERS.PROD_ORD_NO$ To 4 +Equ MAKEUP_WAFERS.WAFER_SIZE$ To 5 +Equ MAKEUP_WAFERS.EPI_PART_NO$ To 6 +Equ MAKEUP_WAFERS.RDS_NO$ To 7 +Equ MAKEUP_WAFERS.WM_OUT_NO$ To 8 +Equ MAKEUP_WAFERS.PROD_VER_NO$ To 9 +Equ MAKEUP_WAFERS.CUST_PART_NO$ To 10 +Equ MAKEUP_WAFERS.REACT_TYPE$ To 11 +Equ MAKEUP_WAFERS.CURR_STATUS_STATIC$ To 12 +Equ MAKEUP_WAFERS.UNLOAD_DTM$ To 13 +Equ MAKEUP_WAFERS.WFR_QTY$ To 14 diff --git a/LSL2/STPROCINS/MASTER_CALIB_LIST_EQU.txt b/LSL2/STPROCINS/MASTER_CALIB_LIST_EQU.txt new file mode 100644 index 0000000..facfeb4 --- /dev/null +++ b/LSL2/STPROCINS/MASTER_CALIB_LIST_EQU.txt @@ -0,0 +1,19 @@ +compile insert MASTER_CALIB_LIST_EQU +* Equates for MASTER_CALIB_LIST + +equ MasterCalibListInstrument$ to 1 +equ MasterCalibListEquipSN$ to 2 +equ MasterCalibListEquipLoc$ to 3 +equ MasterCalibListEquipClass$ to 4 +equ MasterCalibListEquipCalClass$ to 5 +equ MasterCalibListEquipCalInterval$ to 6 +equ MasterCalibListEquipIntExt$ to 7 +equ MasterCalibListEquipLastCalDate$ to 8 +equ MasterCalibListEquipNextCalDate$ to 9 +equ MasterCalibListNISTStandard$ TO 10 +equ MasterCalibListNISTSN$ to 11 +equ MasterCalibListNISTLoc$ to 12 +equ MasterCalibListNISTCalInterval$ to 13 +equ MasterCalibListNISTIntExt$ to 14 +equ MasterCalibListNISTLastCalDate$ to 15 +equ MasterCalibListNISTNextCalDate$ to 16 diff --git a/LSL2/STPROCINS/MCP_SETUP.txt b/LSL2/STPROCINS/MCP_SETUP.txt new file mode 100644 index 0000000..ca2a0ae --- /dev/null +++ b/LSL2/STPROCINS/MCP_SETUP.txt @@ -0,0 +1,41 @@ +Compile insert MCP_Setup + +/*********************************************************************************************************************** + + This program is proprietary and is not to be used by or disclosed to others, nor is it to be copied without written + permission from SRP Computer Solutions, Inc. + + Name : MCP_Setup + + Description : Declares and equates used by MCP. + + Notes : + + History : (Date, Initials, Notes) + 08/13/10 dmb Original programmer. + 07/24/14 dmb Add Error_Services as a declared function. - [SRPFW-77] + +***********************************************************************************************************************/ + +Declare function RetStack, MCP, Inet_QueryParam, Error_Services +Declare subroutine Error_Services, RTP27 + + +// Make sure any request parameters which have not been assigned are nulled. +If Assigned(ServiceHandler) else ServiceHandler = '' +If Assigned(Service) else Service = '' + +If Assigned(Param1) else Param1 = '' +If Assigned(Param2) else Param2 = '' +If Assigned(Param3) else Param3 = '' +If Assigned(Param4) else Param4 = '' +If Assigned(Param5) else Param5 = '' +If Assigned(Param6) else Param6 = '' +If Assigned(Param7) else Param7 = '' +If Assigned(Param8) else Param8 = '' +If Assigned(Param9) else Param9 = '' +If Assigned(Param10) else Param10 = '' +If Assigned(Response) else Response = '' + +// These are request parameters used by INET_MCP. +If Assigned(Payload) else Payload = '' diff --git a/LSL2/STPROCINS/MENU_EQUATES.txt b/LSL2/STPROCINS/MENU_EQUATES.txt new file mode 100644 index 0000000..e5a2ea8 --- /dev/null +++ b/LSL2/STPROCINS/MENU_EQUATES.txt @@ -0,0 +1,43 @@ +Compile Insert Menu_Equates + +* // These should have been in PS_EQUATES + +Equ MENUPOS_TYPE$ To 1 +Equ MENUPOS_END$ To 2 +Equ MENUPOS_ITEMNAME$ To 3 +Equ MENUPOS_TEXT$ To 4 +Equ MENUPOS_GREY$ To 5 +Equ MENUPOS_CHECK$ To 6 +Equ MENUPOS_HIDDEN$ To 7 +Equ MENUPOS_ACCEL$ To 8 +Equ MENUPOS_HELP_TEXT$ To 9 +Equ MENUPOS_HANDLER$ To 10 +Equ MENUPOS_STYLE$ To 11 + +* // These are used by CREATE_CONTEXT_MENU, and denote the structure of a menu item as passed in the +* // second parameter + +* Menu equates + +Equ MenuItem_Name$ to 1 +Equ MenuItem_Pos$ to 2 +Equ MenuItem_Text$ to 3 +Equ MenuItem_State$ to 4 + +Equ MF_ByCommand$ to 0x000 +Equ MF_ByPosition$ to 0x0400 +Equ MF_Separator$ to 2048 + +Equ MenuItemTypePos$ To 1 +Equ MenuItemTextPos$ To 2 +Equ MenuItemNamePos$ To 3 +Equ MenuItemGrayPos$ To 4 +Equ MenuItemCheckPos$ To 5 +Equ MenuItemStylePos$ To 6 +Equ MenuItemEndFlagPos$ To 7 + +Equ ContextMenuSuffix$ To ".CONTEXT_MENU" +Equ ContextMenuClass$ To "FLOATING" +Equ ContextMenuType$ To "MENU" + +Equ ContextMenuHeaderType$ To ".POPUP" diff --git a/LSL2/STPROCINS/MESSAGING_EQUATES.txt b/LSL2/STPROCINS/MESSAGING_EQUATES.txt new file mode 100644 index 0000000..5c9f29d --- /dev/null +++ b/LSL2/STPROCINS/MESSAGING_EQUATES.txt @@ -0,0 +1,26 @@ +Compile insert Messaging_Equates +/*********************************************************************************************************************** + + This program is proprietary and is not to be used by or disclosed to others, nor is it to be copied without written + permission from SRP Computer Solutions, Inc. + + Name : Messaging_Equates + + Description : Equates used by NDW_MESSAGING_PROCESSING_EVENTS and MESSAGING_SERVICES. + + Notes : See the comments added below. + + History : (Date, Initials, Notes) + 06/16/18 dmb Original programmer. + +***********************************************************************************************************************/ + +Declare function Error_Services, Messaging_Services, Memory_Services, SRP_JSON, SRP_COM +Declare function NDW_Messaging_Processor_Events, RetStack, SRP_Encode, SRP_Decode +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 'messa012' +Equ Server.Port$ to 25000 +Equ Server.KeepAlive$ to 60000 +Equ MessageProcessor$ to 'NDW_MESSAGING_PROCESSOR' diff --git a/LSL2/STPROCINS/MES_TASK_EQUATES.txt b/LSL2/STPROCINS/MES_TASK_EQUATES.txt new file mode 100644 index 0000000..b04251a --- /dev/null +++ b/LSL2/STPROCINS/MES_TASK_EQUATES.txt @@ -0,0 +1,29 @@ +compile insert MES_TASK_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 23/01/2012 + Description : Insert for Table MES_TASK +----------------------------------------*/ + + +Equ MES_TASK_MT_NO$ To 0 +Equ MES_TASK_DESC$ To 1 +Equ MES_TASK_ENTER_BY$ To 2 +Equ MES_TASK_ENTER_DTM$ To 3 +Equ MES_TASK_REPORT_BY$ To 4 +Equ MES_TASK_REPORT_DTM$ To 5 +Equ MES_TASK_REPORT_CONTACT$ To 6 +Equ MES_TASK_PART_OF$ To 7 +Equ MES_TASK_COMP_MT_NO$ To 8 +Equ MES_TASK_PROG_NAME$ To 9 +Equ MES_TASK_PROG_METHOD$ To 10 +Equ MES_TASK_PROG_CHANGE$ To 11 +Equ MES_TASK_BRIEF_DESC$ To 12 +Equ MES_TASK_COMP_DTM$ To 13 +Equ MES_TASK_COMP_BY$ To 14 +Equ MES_TASK_ICAR_NO$ To 15 +Equ MES_TASK_DEPT$ To 16 +Equ MES_TASK_DEV_SUPP$ To 17 +Equ MES_TASK_TASK_ORD$ To 18 +Equ MES_TASK_TASK_ORD_DTM$ To 19 +Equ MES_TASK_TASK_ORD_BY$ To 20 diff --git a/LSL2/STPROCINS/MFC_EQUATES.txt b/LSL2/STPROCINS/MFC_EQUATES.txt new file mode 100644 index 0000000..b5cc9c7 --- /dev/null +++ b/LSL2/STPROCINS/MFC_EQUATES.txt @@ -0,0 +1,35 @@ +compile insert MFC_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 16/08/2006 + Description : Insert for Table MFC +----------------------------------------*/ + + +Equ MFC_SER_NO$ To 0 +Equ MFC_ASM_PN$ To 1 +Equ MFC_MFR$ To 2 +Equ MFC_FLOW$ To 3 +Equ MFC_GAS$ To 4 +Equ MFC_INLET_PRESS$ To 5 +Equ MFC_OUTLET_PRESS$ To 6 +Equ MFC_CURR_REACT_NO$ To 10 +Equ MFC_CURR_MFC_LOC$ To 11 +Equ MFC_CURR_INSTALL_DTM$ To 12 +Equ MFC_CURR_TECH_SIG$ To 13 +Equ MFC_REACT_NO$ To 14 +Equ MFC_MFC_LOC$ To 15 +Equ MFC_INSTALL_DTM$ To 16 +Equ MFC_REMOVE_DTM$ To 17 +Equ MFC_TECH_SIG$ To 18 +Equ MFC_REASON$ To 19 +Equ MFC_STORES_LOC$ To 20 +Equ MFC_OTHER_LOC$ To 21 +Equ MFC_COMMENTS$ To 22 +Equ MFC_DECOM_DTM$ To 23 +Equ MFC_DECOM_BY$ To 24 +Equ MFC_DECOM_REASON$ To 25 +Equ MFC_DECOM_NOTE$ To 26 +Equ MFC_WAFER_CNT$ To 27 +Equ MFC_RUN_HRS$ To 28 +Equ MFC_RANGE$ To 29 diff --git a/LSL2/STPROCINS/MICROSOFT_ADO_EQUATES.txt b/LSL2/STPROCINS/MICROSOFT_ADO_EQUATES.txt new file mode 100644 index 0000000..765157b --- /dev/null +++ b/LSL2/STPROCINS/MICROSOFT_ADO_EQUATES.txt @@ -0,0 +1,265 @@ +Compile Insert Microsoft_Ado_Equates + +//-------------------------------------------------------------------- +// Microsoft ADO +// +// (c) 1996 Microsoft Corporation. All Rights Reserved. +// +// +// +// ADO equates include file for VBScript +// +//-------------------------------------------------------------------- + +//---- CursorTypeEnum Values ---- +equ adOpenForwardOnly to 0 +equ adOpenKeyset to 1 +equ adOpenDynamic to 2 +equ adOpenStatic to 3 + +//---- CursorOptionEnum Values ---- +equ adHoldRecords to 0x00000100 +equ adMovePrevious to 0x00000200 +equ adAddNew to 0x01000400 +equ adDelete to 0x01000800 +equ adUpdate to 0x01008000 +equ adBookmark to 0x00002000 +equ adApproxPosition to 0x00004000 +equ adUpdateBatch to 0x00010000 +equ adResync to 0x00020000 +equ adNotify to 0x00040000 + +//---- LockTypeEnum Values ---- +equ adLockReadOnly to 1 +equ adLockPessimistic to 2 +equ adLockOptimistic to 3 +equ adLockBatchOptimistic to 4 + +//---- ExecuteOptionEnum Values ---- +equ adRunAsync to 0x00000010 + +//---- ObjectStateEnum Values ---- +equ adStateClosed to 0x00000000 +equ adStateOpen to 0x00000001 +equ adStateConnecting to 0x00000002 +equ adStateExecuting to 0x00000004 + +//---- CursorLocationEnum Values ---- +equ adUseServer to 2 +equ adUseClient to 3 + +//---- DataTypeEnum Values ---- +equ adEmpty to 0 +equ adTinyInt to 16 +equ adSmallInt to 2 +equ adInteger to 3 +equ adBigInt to 20 +equ adUnsignedTinyInt to 17 +equ adUnsignedSmallInt to 18 +equ adUnsignedInt to 19 +equ adUnsignedBigInt to 21 +equ adSingle to 4 +equ adDouble to 5 +equ adCurrency to 6 +equ adDecimal to 14 +equ adNumeric to 131 +equ adBoolean to 11 +equ adError to 10 +equ adUserDefined to 132 +equ adVariant to 12 +equ adIDispatch to 9 +equ adIUnknown to 13 +equ adGUID to 72 +equ adDate to 7 +equ adDBDate to 133 +equ adDBTime to 134 +equ adDBTimeStamp to 135 +equ adBSTR to 8 +equ adChar to 129 +equ adVarChar to 200 +equ adLongVarChar to 201 +equ adWChar to 130 +equ adVarWChar to 202 +equ adLongVarWChar to 203 +equ adBinary to 128 +equ adVarBinary to 204 +equ adLongVarBinary to 205 + +//---- FieldAttributeEnum Values ---- +equ adFldMayDefer to 0x00000002 +equ adFldUpdatable to 0x00000004 +equ adFldUnknownUpdatable to 0x00000008 +equ adFldFixed to 0x00000010 +equ adFldIsNullable to 0x00000020 +equ adFldMayBeNull to 0x00000040 +equ adFldLong to 0x00000080 +equ adFldRowID to 0x00000100 +equ adFldRowVersion to 0x00000200 +equ adFldCacheDeferred to 0x00001000 + +//---- EditModeEnum Values ---- +equ adEditNone to 0x0000 +equ adEditInProgress to 0x0001 +equ adEditAdd to 0x0002 +equ adEditDelete to 0x0004 + +//---- RecordStatusEnum Values ---- +equ adRecOK to 0x0000000 +equ adRecNew to 0x0000001 +equ adRecModified to 0x0000002 +equ adRecDeleted to 0x0000004 +equ adRecUnmodified to 0x0000008 +equ adRecInvalid to 0x0000010 +equ adRecMultipleChanges to 0x0000040 +equ adRecPendingChanges to 0x0000080 +equ adRecCanceled to 0x0000100 +equ adRecCantRelease to 0x0000400 +equ adRecConcurrencyViolation to 0x0000800 +equ adRecIntegrityViolation to 0x0001000 +equ adRecMaxChangesExceeded to 0x0002000 +equ adRecObjectOpen to 0x0004000 +equ adRecOutOfMemory to 0x0008000 +equ adRecPermissionDenied to 0x0010000 +equ adRecSchemaViolation to 0x0020000 +equ adRecDBDeleted to 0x0040000 + +//---- GetRowsOptionEnum Values ---- +equ adGetRowsRest to -1 + +//---- PositionEnum Values ---- +equ adPosUnknown to -1 +equ adPosBOF to -2 +equ adPosEOF to -3 + +//---- enum Values ---- +equ adBookmarkCurrent to 0 +equ adBookmarkFirst to 1 +equ adBookmarkLast to 2 + +//---- MarshalOptionsEnum Values ---- +equ adMarshalAll to 0 +equ adMarshalModifiedOnly to 1 + +//---- AffectEnum Values ---- +equ adAffectCurrent to 1 +equ adAffectGroup to 2 +equ adAffectAll to 3 + +//---- FilterGroupEnum Values ---- +equ adFilterNone to 0 +equ adFilterPendingRecords to 1 +equ adFilterAffectedRecords to 2 +equ adFilterFetchedRecords to 3 +equ adFilterPredicate to 4 + +//---- SearchDirection Values ---- +equ adSearchForward to 1 +equ adSearchBackward to -1 + +//---- ConnectPromptEnum Values ---- +equ adPromptAlways to 1 +equ adPromptComplete to 2 +equ adPromptCompleteRequired to 3 +equ adPromptNever to 4 + +//---- ConnectModeEnum Values ---- +equ adModeUnknown to 0 +equ adModeRead to 1 +equ adModeWrite to 2 +equ adModeReadWrite to 3 +equ adModeShareDenyRead to 4 +equ adModeShareDenyWrite to 8 +equ adModeShareExclusive to 0xc +equ adModeShareDenyNone to 0x10 + +//---- IsolationLevelEnum Values ---- +equ adXactUnspecified to 0xffffffff +equ adXactChaos to 0x00000010 +equ adXactReadUncommitted to 0x00000100 +equ adXactBrowse to 0x00000100 +equ adXactCursorStability to 0x00001000 +equ adXactReadCommitted to 0x00001000 +equ adXactRepeatableRead to 0x00010000 +equ adXactSerializable to 0x00100000 +equ adXactIsolated to 0x00100000 + +//---- XactAttributeEnum Values ---- +equ adXactCommitRetaining to 0x00020000 +equ adXactAbortRetaining to 0x00040000 + +//---- PropertyAttributesEnum Values ---- +equ adPropNotSupported to 0x0000 +equ adPropRequired to 0x0001 +equ adPropOptional to 0x0002 +equ adPropRead to 0x0200 +equ adPropWrite to 0x0400 + +//---- ErrorValueEnum Values ---- +equ adErrInvalidArgument to 0xbb9 +equ adErrNoCurrentRecord to 0xbcd +equ adErrIllegalOperation to 0xc93 +equ adErrInTransaction to 0xcae +equ adErrFeatureNotAvailable to 0xcb3 +equ adErrItemNotFound to 0xcc1 +equ adErrObjectInCollection to 0xd27 +equ adErrObjectNotSet to 0xd5c +equ adErrDataConversion to 0xd5d +equ adErrObjectClosed to 0xe78 +equ adErrObjectOpen to 0xe79 +equ adErrProviderNotFound to 0xe7a +equ adErrBoundToCommand to 0xe7b +equ adErrInvalidParamInfo to 0xe7c +equ adErrInvalidConnection to 0xe7d +equ adErrStillExecuting to 0xe7f +equ adErrStillConnecting to 0xe81 + +//---- ParameterAttributesEnum Values ---- +equ adParamSigned to 0x0010 +equ adParamNullable to 0x0040 +equ adParamLong to 0x0080 + +//---- ParameterDirectionEnum Values ---- +equ adParamUnknown to 0x0000 +equ adParamInput to 0x0001 +equ adParamOutput to 0x0002 +equ adParamInputOutput to 0x0003 +equ adParamReturnValue to 0x0004 + +//---- CommandTypeEnum Values ---- +equ adCmdUnknown to 0x0008 +equ adCmdText to 0x0001 +equ adCmdTable to 0x0002 +equ adCmdStoredProc to 0x0004 + +//---- SchemaEnum Values ---- +equ adSchemaProviderSpecific to -1 +equ adSchemaAsserts to 0 +equ adSchemaCatalogs to 1 +equ adSchemaCharacterSets to 2 +equ adSchemaCollations to 3 +equ adSchemaColumns to 4 +equ adSchemaCheckequraints to 5 +equ adSchemaequraintColumnUsage to 6 +equ adSchemaequraintTableUsage to 7 +equ adSchemaKeyColumnUsage to 8 +equ adSchemaReferentialContraints to 9 +equ adSchemaTableequraints to 10 +equ adSchemaColumnsDomainUsage to 11 +equ adSchemaIndexes to 12 +equ adSchemaColumnPrivileges to 13 +equ adSchemaTablePrivileges to 14 +equ adSchemaUsagePrivileges to 15 +equ adSchemaProcedures to 16 +equ adSchemaSchemata to 17 +equ adSchemaSQLLanguages to 18 +equ adSchemaStatistics to 19 +equ adSchemaTables to 20 +equ adSchemaTranslations to 21 +equ adSchemaProviderTypes to 22 +equ adSchemaViews to 23 +equ adSchemaViewColumnUsage to 24 +equ adSchemaViewTableUsage to 25 +equ adSchemaProcedureParameters to 26 +equ adSchemaForeignKeys to 27 +equ adSchemaPrimaryKeys to 28 +equ adSchemaProcedureColumns to 29 diff --git a/LSL2/STPROCINS/MODS_COMMON.txt b/LSL2/STPROCINS/MODS_COMMON.txt new file mode 100644 index 0000000..466b8bd --- /dev/null +++ b/LSL2/STPROCINS/MODS_COMMON.txt @@ -0,0 +1,4 @@ +compile insert mods_common +common /%ModsCommon%/ Tablename@, Handle@ + + diff --git a/LSL2/STPROCINS/MSG_GROUPS_EQU.txt b/LSL2/STPROCINS/MSG_GROUPS_EQU.txt new file mode 100644 index 0000000..164492f --- /dev/null +++ b/LSL2/STPROCINS/MSG_GROUPS_EQU.txt @@ -0,0 +1,6 @@ +* Equates for MSG_GROUPS created on 02/05/99 07:28AM + +equ MSG_GROUPS_ENTRY_ID$ to 1 +equ MSG_GROUPS_ENTRY_DATE$ to 2 +equ MSG_GROUPS_USER_IDS$ to 3 +equ MSG_GROUPS_DESCRIPTION$ to 4 diff --git a/LSL2/STPROCINS/NAMES_EQU.txt b/LSL2/STPROCINS/NAMES_EQU.txt new file mode 100644 index 0000000..612812c --- /dev/null +++ b/LSL2/STPROCINS/NAMES_EQU.txt @@ -0,0 +1,24 @@ +* Equates for NAMES created on 10/12/98 03:39PM + +equ NAMES_SALUTATION$ to 1 +equ NAMES_FIRST$ to 2 +equ NAMES_LAST$ to 3 +equ NAMES_TITLE$ to 4 +equ NAMES_PHONE$ to 6 +equ NAMES_PHONE_TYPES$ to 7 +equ NAMES_PHONE_EXT$ to 8 +equ NAMES_INTL_PHONE$ to 9 +equ NAMES_INTL_PHONE_TYPES$ to 10 +equ NAMES_INTL_PHONE_EXT$ to 11 +equ NAMES_COMMENTS$ to 12 +equ NAMES_CO_ID$ to 13 +equ NAMES_ENTRY_ID$ to 14 +equ NAMES_ENTRY_DATE$ to 15 +equ NAMES_EMAIL$ to 16 +equ NAMES_REFERRAL_SOURCE$ to 17 +equ NAMES_SLS_MAIL_LIST$ to 18 +equ NAMES_XMAS_CARD$ to 19 +equ NAMES_MAILER_DATE$ to 20 +equ NAMES_MAILER_DESC$ to 21 +equ NAMES_MAIL_STOP$ to 24 +equ NAMES_STATUS$ to 25 diff --git a/LSL2/STPROCINS/NAMES_EQUATES.txt b/LSL2/STPROCINS/NAMES_EQUATES.txt new file mode 100644 index 0000000..ecaca90 --- /dev/null +++ b/LSL2/STPROCINS/NAMES_EQUATES.txt @@ -0,0 +1,31 @@ +compile insert NAMES_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 15/04/2022 + Description : Insert for Table NAMES +----------------------------------------*/ + + +Equ NAMES_SEQ$ To 0 +Equ NAMES_SALUTATION$ To 1 +Equ NAMES_FIRST$ To 2 +Equ NAMES_LAST$ To 3 +Equ NAMES_TITLE$ To 4 +Equ NAMES_PHONE$ To 6 +Equ NAMES_PHONE_TYPES$ To 7 +Equ NAMES_PHONE_EXT$ To 8 +Equ NAMES_INTL_PHONE$ To 9 +Equ NAMES_INTL_PHONE_TYPES$ To 10 +Equ NAMES_INTL_PHONE_EXT$ To 11 +Equ NAMES_COMMENTS$ To 12 +Equ NAMES_CO_ID$ To 13 +Equ NAMES_ENTRY_ID$ To 14 +Equ NAMES_ENTRY_DATE$ To 15 +Equ NAMES_EMAIL$ To 16 +Equ NAMES_REFERRAL_SOURCE$ To 17 +Equ NAMES_SLS_MAIL_LIST$ To 18 +Equ NAMES_XMAS_CARD$ To 19 +Equ NAMES_MAILER_DATE$ To 20 +Equ NAMES_MAILER_DESC$ To 21 +Equ NAMES_MAIL_STOP$ To 24 +Equ NAMES_STATUS$ To 25 diff --git a/LSL2/STPROCINS/NCR_EQU.txt b/LSL2/STPROCINS/NCR_EQU.txt new file mode 100644 index 0000000..17cce3f --- /dev/null +++ b/LSL2/STPROCINS/NCR_EQU.txt @@ -0,0 +1,83 @@ +compile insert NCR_EQU +* Equates for NCR created on 04/20/01 08:34AM + +EQU NCR_ENTRY_ID$ TO 1 +EQU NCR_ENTRY_DATE$ TO 2 +EQU NCR_ENTRY_TIME$ TO 3 +EQU NCR_DEPT$ TO 4 +EQU NCR_SHIFT$ TO 5 +EQU NCR_RDS_ID$ TO 6 +EQU NCR_STATUS$ TO 7 +EQU NCR_LOSS_COMMENTS$ TO 8 +EQU NCR_AC_COMMENTS$ TO 9 +EQU NCR_DEPT_RESP$ TO 10 +EQU NCR_DEPT_MGR_SIG$ TO 11 +EQU NCR_AUTH_SHIP_SIG$ TO 12 +EQU NCR_AUTH_REWORK_SIG$ TO 13 +EQU NCR_AUTH_REJ_SIG$ TO 14 +EQU NCR_AUTH_DEV_SIG$ TO 15 +EQU NCR_VP_SIG$ TO 16 +EQU NCR_REACTOR$ TO 17 +EQU NCR_REJ_CNT_FIELD$ TO 18 +EQU NCR_REJ_CNT_VALUE$ TO 19 +EQU NCR_GENERAL_COMMENTS$ TO 20 +EQU NCR_VERIFIED_COMMENTS$ TO 21 +EQU NCR_LOSS_CODE_ORIG$ TO 22 +EQU NCR_AC_CODE_ORIG$ TO 23 +EQU NCR_REJ_CNT_ORIG$ TO 24 +EQU NCR_DEPT_MGR_COMMENTS$ TO 25 +EQU NCR_CONTAIN_ACTIONS$ TO 26 +EQU NCR_THICK_READ$ TO 27 +EQU NCR_SHEETRHO_READ$ TO 28 +EQU NCR_TTHICK_AVG$ TO 29 +EQU NCR_TTHICK_STDEV$ TO 30 +EQU NCR_TTHICK_MAX$ TO 31 +EQU NCR_TTHICK_MIN$ TO 32 +EQU NCR_TTHICK_UNIF$ TO 33 +EQU NCR_TRES_AVG$ TO 34 +EQU NCR_TRES_STDEV$ TO 35 +EQU NCR_TRES_MAX$ TO 36 +EQU NCR_TRES_MIN$ TO 37 +EQU NCR_TRES_UNIF$ TO 38 +EQU NCR_LPD$ TO 39 +EQU NCR_PITS$ TO 40 +EQU NCR_MOUNDS$ TO 41 +EQU NCR_BL_DEFECTS$ TO 42 +EQU NCR_STACK_FAULTS$ TO 43 +EQU NCR_SPIKES$ TO 44 +EQU NCR_SPOTS$ TO 45 +EQU NCR_SPOT_FOV$ TO 46 +EQU NCR_SCRATCHES$ TO 47 +EQU NCR_SCRATCH_LEN$ TO 48 +EQU NCR_SURF_DEFECTS$ TO 49 +EQU NCR_SURF_HAZE$ TO 50 +EQU NCR_UNIT_TYPE$ TO 51 +EQU NCR_LOSS_BY$ TO 52 +EQU NCR_LOSS_STAGE$ TO 53 +EQU NCR_AC_CODE$ TO 54 +EQU NCR_LOSS_CODE$ TO 55 +EQU NCR_TREJ_CNT$ TO 56 +EQU NCR_SLOT_NO$ TO 57 +EQU NCR_CASS_NO$ TO 58 +EQU NCR_POCKET_NO$ TO 59 +EQU NCR_OUT_CASS_NO$ TO 60 +EQU NCR_OUT_SLOT_NO$ TO 61 +EQU NCR_WO_NO$ TO 62 +EQU NCR_WO_STEP$ TO 63 +EQU NCR_WO_MAT_CASS_NO$ TO 64 +EQU NCR_WM_RDS_NO$ TO 65 +EQU NCR_ZONE$ TO 66 +EQU NCR_REJ_WAFER_ID$ TO 67 +EQU NCR_PREV_NCR_NO$ TO 68 +EQU NCR_REJ_MET_NO$ TO 69 +EQU NCR_MU_WO_NO$ TO 70 +EQU NCR_MU_STEP$ TO 71 +EQU NCR_MU_CASS$ TO 72 +EQU NCR_MU_SLOT$ TO 73 + + + +EQU MPRE$ TO 1 ;* Used to return Sorted StageBy from obj_NCR +EQU MPOST$ TO 2 +EQU CPRE$ TO 3 +EQU CPOST$ TO 4 diff --git a/LSL2/STPROCINS/NCR_EQUATES.txt b/LSL2/STPROCINS/NCR_EQUATES.txt new file mode 100644 index 0000000..45427aa --- /dev/null +++ b/LSL2/STPROCINS/NCR_EQUATES.txt @@ -0,0 +1,90 @@ +compile insert NCR_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 06/07/2016 + Description : Insert for Table NCR +----------------------------------------*/ + + +Equ NCR_SEQ$ To 0 +Equ NCR_ENTRY_ID$ To 1 +Equ NCR_ENTRY_DATE$ To 2 +Equ NCR_ENTRY_TIME$ To 3 +Equ NCR_DEPT$ To 4 +Equ NCR_SHIFT$ To 5 +Equ NCR_RDS_ID$ To 6 +Equ NCR_STATUS$ To 7 +Equ NCR_LOSS_COMMENTS$ To 8 +Equ NCR_AC_COMMENTS$ To 9 +Equ NCR_DEPT_RESP$ To 10 +Equ NCR_DEPT_MGR_SIG$ To 11 +Equ NCR_AUTH_SHIP_SIG$ To 12 +Equ NCR_AUTH_REWORK_SIG$ To 13 +Equ NCR_AUTH_REJ_SIG$ To 14 +Equ NCR_AUTH_DEV_SIG$ To 15 +Equ NCR_VP_SIG$ To 16 +Equ NCR_REACTOR$ To 17 +Equ NCR_REJ_CNT_FIELD$ To 18 +Equ NCR_REJ_CNT_VALUE$ To 19 +Equ NCR_GENERAL_COMMENTS$ To 20 +Equ NCR_VERIFIED_COMMENTS$ To 21 +Equ NCR_LOSS_CODE_ORIG$ To 22 +Equ NCR_AC_CODE_ORIG$ To 23 +Equ NCR_REJ_CNT_ORIG$ To 24 +Equ NCR_DEPT_MGR_COMMENTS$ To 25 +Equ NCR_CONTAIN_ACTIONS$ To 26 +Equ NCR_THICK_READ$ To 27 +Equ NCR_SHEETRHO_READ$ To 28 +Equ NCR_TTHICK_AVG$ To 29 +Equ NCR_TTHICK_STDEV$ To 30 +Equ NCR_TTHICK_MAX$ To 31 +Equ NCR_TTHICK_MIN$ To 32 +Equ NCR_TTHICK_UNIF$ To 33 +Equ NCR_TRES_AVG$ To 34 +Equ NCR_TRES_STDEV$ To 35 +Equ NCR_TRES_MAX$ To 36 +Equ NCR_TRES_MIN$ To 37 +Equ NCR_TRES_UNIF$ To 38 +Equ NCR_LPD$ To 39 +Equ NCR_PITS$ To 40 +Equ NCR_MOUNDS$ To 41 +Equ NCR_BL_DEFECTS$ To 42 +Equ NCR_STACK_FAULTS$ To 43 +Equ NCR_SPIKES$ To 44 +Equ NCR_SPOTS$ To 45 +Equ NCR_SPOT_FOV$ To 46 +Equ NCR_SCRATCHES$ To 47 +Equ NCR_SCRATCH_LEN$ To 48 +Equ NCR_SURF_DEFECTS$ To 49 +Equ NCR_SURF_HAZE$ To 50 +Equ NCR_UNIT_TYPE$ To 51 +Equ NCR_LOSS_BY$ To 52 +Equ NCR_LOSS_STAGE$ To 53 +Equ NCR_AC_CODE$ To 54 +Equ NCR_LOSS_CODE$ To 55 +Equ NCR_TREJ_CNT$ To 56 +Equ NCR_SLOT_NO$ To 57 +Equ NCR_CASS_NO$ To 58 +Equ NCR_POCKET_NO$ To 59 +Equ NCR_OUT_CASS_NO$ To 60 +Equ NCR_OUT_SLOT_NO$ To 61 +Equ NCR_WO_NO$ To 62 +Equ NCR_WO_STEP$ To 63 +Equ NCR_WO_MAT_CASS_NO$ To 64 +Equ NCR_WM_RDS_NO$ To 65 +Equ NCR_ZONE$ To 66 +Equ NCR_REJ_WAFER_ID$ To 67 +Equ NCR_PREV_NCR_NO$ To 68 +Equ NCR_REJ_MET_NO$ To 69 +Equ NCR_MU_WO_NO$ To 70 +Equ NCR_MU_STEP$ To 71 +Equ NCR_MU_CASS$ To 72 +Equ NCR_MU_SLOT$ To 73 +Equ NCR_SPC_DTM$ To 74 +Equ NCR_REC_VER$ To 75 +Equ NCR_LAST_QTY_DTM$ To 76 +Equ NCR_WFR_ID$ To 78 +Equ NCR_CASS_SLOT_ID$ To 79 +Equ NCR_CARR_SLOT_ID$ To 80 +Equ NCR_SUSC_RPZ$ To 81 +Equ NCR_AUTH_SHIP_SIG_DTM$ To 82 diff --git a/LSL2/STPROCINS/NOTES_EQU.txt b/LSL2/STPROCINS/NOTES_EQU.txt new file mode 100644 index 0000000..0fbac54 --- /dev/null +++ b/LSL2/STPROCINS/NOTES_EQU.txt @@ -0,0 +1,27 @@ +compile insert NOTES_EQU +* Equates for NOTES created on 02/05/99 07:18AM + +equ NOTES_MESSAGE_TYPE$ to 1 +equ NOTES_ENTRY_DATE$ to 2 +equ NOTES_ENTRY_TIME$ to 3 +equ NOTES_SEND_TO$ to 4 +equ NOTES_FROM$ to 5 +equ NOTES_COMPANY$ to 6 +equ NOTES_PHONE$ to 7 +equ NOTES_INTL_PHONE$ to 8 +equ NOTES_MESSAGE$ to 9 +equ NOTES_ENTRY_ID$ to 10 +equ NOTES_PT_PHONED$ to 11 +equ NOTES_PT_CALL_BACK$ to 12 +equ NOTES_PT_RET_CALL$ to 13 +equ NOTES_PT_WANTS_SEE to 14 +equ NOTES_PT_WILL_CALL$ to 15 +equ NOTES_PT_WAS_IN$ to 16 +equ NOTES_PT_URGENT$ to 17 +equ NOTES_SUBJECT$ to 18 +equ NOTES_ATTACH_WINDOW$ to 19 + +equ NOTES_ATTACH_KEYS$ to 20 ;* Not used anymore +equ NOTES_ATTACH_KEY$ to 20 + +equ NOTES_MSG_GROUPS_IDS$ to 21 diff --git a/LSL2/STPROCINS/NOTES_SENT_EQUATES.txt b/LSL2/STPROCINS/NOTES_SENT_EQUATES.txt new file mode 100644 index 0000000..a791a72 --- /dev/null +++ b/LSL2/STPROCINS/NOTES_SENT_EQUATES.txt @@ -0,0 +1,11 @@ +compile insert NOTES_SENT_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 03/08/2006 + Description : Insert for Table NOTES_SENT +----------------------------------------*/ + + +Equ NOTES_SENT_NOTE_ID$ To 0 +Equ NOTES_SENT_USER_ID$ To 0 +Equ NOTES_SENT_TX_DTM$ To 1 diff --git a/LSL2/STPROCINS/NOTE_PTRS_EQU.txt b/LSL2/STPROCINS/NOTE_PTRS_EQU.txt new file mode 100644 index 0000000..cb0943c --- /dev/null +++ b/LSL2/STPROCINS/NOTE_PTRS_EQU.txt @@ -0,0 +1,14 @@ +compile insert NOTE_PTRS_EQU +* Equates for NOTE_PTRS created on 08/03/95 07:31AM + +equ NOTE_PTRS_SUBJECT$ to 1 +equ NOTE_PTRS_FROM$ to 2 +equ NOTE_PTRS_DATE$ to 3 +equ NOTE_PTRS_TIME$ to 4 +equ NOTE_PTRS_NEW$ to 5 +equ NOTE_PTRS_ATTACHMENT$ to 6 +equ NOTE_PTRS_NOTE_IDS$ to 7 +equ NOTE_PTRS_ARCHIVED$ to 8 +equ NOTE_PTRS_SNOOZE$ to 9 + + diff --git a/LSL2/STPROCINS/NOTIFICATION_EQU.txt b/LSL2/STPROCINS/NOTIFICATION_EQU.txt new file mode 100644 index 0000000..3f440f6 --- /dev/null +++ b/LSL2/STPROCINS/NOTIFICATION_EQU.txt @@ -0,0 +1,7 @@ +COMPILE Insert NOTIFICATION_EQU + +* Equates for NOTIFICATION table + +EQU NOTIFICATION_DESC$ TO 1 +EQU NOTIFICATION_USER_ID$ TO 2 + diff --git a/LSL2/STPROCINS/NOTIFICATION_EQUATES.txt b/LSL2/STPROCINS/NOTIFICATION_EQUATES.txt new file mode 100644 index 0000000..8a4173f --- /dev/null +++ b/LSL2/STPROCINS/NOTIFICATION_EQUATES.txt @@ -0,0 +1,11 @@ +compile insert NOTIFICATION_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 05/02/2013 + Description : Insert for Table NOTIFICATION +----------------------------------------*/ + + +Equ NOTIFICATION_NOTIFY_ID$ To 0 +Equ NOTIFICATION_DESC$ To 1 +Equ NOTIFICATION_USER_ID$ To 2 diff --git a/LSL2/STPROCINS/OEE_RESULTS.txt b/LSL2/STPROCINS/OEE_RESULTS.txt new file mode 100644 index 0000000..e8a796a --- /dev/null +++ b/LSL2/STPROCINS/OEE_RESULTS.txt @@ -0,0 +1,33 @@ +COMPILE INSERT OEE_Results_EQUATES + +* Data Structure of results from obj_OEE + +EQU OEE$REACTOR TO 1 +EQU OEE$REACTOR_MODE TO 2 ;* Multivalued list of reactor mode codes +EQU OEE$TOTAL_TIME TO 3 +EQU OEE$PRODUCTION_TIME TO 4 +EQU OEE$STANDBY_TIME TO 5 +EQU OEE$ENGINEERING_TIME TO 6 +EQU OEE$SCHED_DOWNTIME TO 7 +EQU OEE$UNSCHED_DOWNTIME TO 8 +EQU OEE$NONSCHED_TIME TO 9 +EQU OEE$OEE_TOTAL_TIME TO 10 +EQU OEE$MANUFACT_TIME TO 11 +EQU OEE$EQUIP_UPTIME TO 12 +EQU OEE$EQUIP_DOWNTIME TO 13 +EQU OEE$OPERATIONS_TIME TO 14 +EQU OEE$PRODUCTION_PCNT TO 15 +EQU OEE$STANDBY_PCNT TO 16 +EQU OEE$ENGINEERING_PCNT TO 17 +EQU OEE$SCHED_DOWN_PCNT TO 18 +EQU OEE$UNSCHED_DOWN_PCNT TO 19 +EQU OEE$NONSCHED_PCNT TO 20 +EQU OEE$MANUFACTURING_PCNT TO 21 +EQU OEE$EQUIP_UP_PCNT TO 22 +EQU OEE$EQUIP_DOWN_PCNT TO 23 +EQU OEE$OPERATIONS_PCNT TO 24 +EQU OEE$OPERATIONAL_UPTIME TO 25 +EQU OEE$OPERATIONAL_UTIL TO 26 +EQU OEE$TOTAL_UTIL TO 27 + + diff --git a/LSL2/STPROCINS/OEE_RESULTS_EQUATES.txt b/LSL2/STPROCINS/OEE_RESULTS_EQUATES.txt new file mode 100644 index 0000000..bf70b29 --- /dev/null +++ b/LSL2/STPROCINS/OEE_RESULTS_EQUATES.txt @@ -0,0 +1,40 @@ +COMPILE INSERT OEE_Results_Equates + +* Data Structure of results from obj_OEE + +EQU OEE$REACTOR TO 1 +EQU OEE$REACTOR_MODE TO 2 ;* Multivalued list of reactor mode codes +EQU OEE$TOTAL_TIME TO 3 +EQU OEE$PRODUCTION_TIME TO 4 +EQU OEE$STANDBY_TIME TO 5 +EQU OEE$ENGINEERING_TIME TO 6 +EQU OEE$SCHED_DOWNTIME TO 7 +EQU OEE$UNSCHED_DOWNTIME TO 8 +EQU OEE$NONSCHED_TIME TO 9 +EQU OEE$OEE_TOTAL_TIME TO 10 +EQU OEE$MANUFACT_TIME TO 11 +EQU OEE$EQUIP_UPTIME TO 12 +EQU OEE$EQUIP_DOWNTIME TO 13 +EQU OEE$OPERATIONS_TIME TO 14 +EQU OEE$PRODUCTION_PCNT TO 15 +EQU OEE$STANDBY_PCNT TO 16 +EQU OEE$ENGINEERING_PCNT TO 17 +EQU OEE$SCHED_DOWN_PCNT TO 18 +EQU OEE$UNSCHED_DOWN_PCNT TO 19 +EQU OEE$NONSCHED_PCNT TO 20 +EQU OEE$MANUFACTURING_PCNT TO 21 +EQU OEE$EQUIP_UP_PCNT TO 22 +EQU OEE$EQUIP_DOWN_PCNT TO 23 +EQU OEE$OPERATIONS_PCNT TO 24 +EQU OEE$OPERATIONAL_UPTIME TO 25 +EQU OEE$OPERATIONAL_UTIL TO 26 +EQU OEE$TOTAL_UTIL TO 27 +EQU OEE$MTBFP_HOURS TO 28 +EQU OEE$MTTR_HOURS TO 29 +EQU OEE$OPER_AVAIL_AO TO 30 +EQU OEE$OPER_UTIL_UO TO 31 +EQU OEE$QUAL_RATE_QS TO 32 +EQU OEE$EQUIP_EFF_E TO 33 +EQU OEE$OEE_BOTTLENECK TO 34 + + diff --git a/LSL2/STPROCINS/OIPI_FONTS.txt b/LSL2/STPROCINS/OIPI_FONTS.txt new file mode 100644 index 0000000..dda6be8 --- /dev/null +++ b/LSL2/STPROCINS/OIPI_FONTS.txt @@ -0,0 +1,126 @@ +Compile insert OIPI_FONTS +/******************************************************************************************************** + + FontInfo + <1> Font Name + <2> Point Size + <3> Justification + <4> FontBold + <5> Italics + <6> Underline + <7> Strikethrough + <8> ForeColor + <9> TextAngle - In tenth of degrees + <10> TextAlign - 0=Top, 1=Bottom, 2=Baseline + +********************************************************************************************************/ + +Declare function RGB + +Equ Bullet$ to Char(0149) +Equ Solid$ to RGB(0,0,1) + +Equ N% to 1 +Equ B% to 2 +Equ U% to 3 +Equ I% to 4 +Equ BR% to 5 +Equ VR% to 6 + +Dim Wasp(32,6) +Wasp(32,1) = "WASP 128 M":@FM:32:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0 + + +Dim Arial_Narrow(18,6) +// ARIAL NARROW 1 2 3 4 5 6 7 8 +Arial_Narrow(6,1) = "Arial Narrow":@FM:06:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0 +Arial_Narrow(8,1) = "Arial Narrow":@FM:08:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0 +Arial_Narrow(8,2) = "Arial Narrow":@FM:08:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0 +Arial_Narrow(8,5) = "Arial Narrow":@FM:08:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0:@FM:RGB(255,255,255) +Arial_Narrow(9,1) = "Arial Narrow":@FM:09:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0 +Arial_Narrow(10,5) = "Arial Narrow":@FM:10:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0:@FM:RGB(255,255,255) +Arial_Narrow(10,1) = "Arial Narrow":@FM:10:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0 +Arial_Narrow(10,2) = "Arial Narrow":@FM:10:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0 +Arial_Narrow(11,5) = "Arial Narrow":@FM:11:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0:@FM:RGB(255,255,255) +Arial_Narrow(12,1) = "Arial Narrow":@FM:12:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0 +Arial_Narrow(12,2) = "Arial Narrow":@FM:12:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0 +Arial_Narrow(12,5) = "Arial Narrow":@FM:12:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0:@FM:RGB(255,255,255) +Arial_Narrow(14,1) = "Arial Narrow":@FM:16:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0 +Arial_Narrow(16,1) = "Arial Narrow":@FM:16:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0 +Arial_Narrow(16,2) = "Arial Narrow":@FM:16:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0 + + +Dim Courier(18,6) +// COURIER 1 2 3 4 5 6 7 8 +Courier(8,1) = "Courier New":@FM:08:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0 +Courier(8,2) = "Courier New":@FM:08:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0 +Courier(10,5) = "Courier New":@FM:10:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0:@FM:RGB(255,255,255) +Courier(10,1) = "Courier New":@FM:10:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0 +Courier(11,1) = "Courier New":@FM:11:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0 +Courier(11,5) = "Courier New":@FM:11:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0:@FM:RGB(255,255,255) +Courier(12,1) = "Courier New":@FM:12:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0 +Courier(12,2) = "Courier New":@FM:12:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0 +Courier(12,5) = "Courier New":@FM:12:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0:@FM:RGB(255,255,255) +Courier(12,6) = "Courier New":@FM:12:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0:@FM:RGB(0,0,0):@FM:2700 +Courier(16,1) = "Courier New":@FM:16:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0 +Courier(16,2) = "Courier New":@FM:16:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0 + + +// ARIAL +Dim Arial(20,6) +Arial(08,1) = "Arial":@FM:08:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0 +Arial(09,1) = "Arial":@FM:09:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0 +Arial(09,2) = "Arial":@FM:09:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0 +Arial(10,1) = "Arial":@FM:10:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0 +Arial(11,1) = "Arial":@FM:11:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0 + + +Dim Tahoma(20,6) +// TAHOMA 1 2 3 4 5 6 7 8 +Tahoma(6,1) = "Tahoma":@FM:06:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0 +Tahoma(8,1) = "Tahoma":@FM:08:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0 +Tahoma(8,2) = "Tahoma":@FM:08:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0 +Tahoma(8,3) = "Tahoma":@FM:08:@FM:'':@FM:0:@FM:0:@FM:1:@FM:0 +Tahoma(8,4) = "Tahoma":@FM:08:@FM:'':@FM:0:@FM:1:@FM:0:@FM:0 +Tahoma(8,5) = "Tahoma":@FM:08:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0:@FM:RGB(255,255,255) +Tahoma(9,1) = "Tahoma":@FM:09:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0 +Tahoma(9,2) = "Tahoma":@FM:09:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0 +Tahoma(10,1) = "Tahoma":@FM:10:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0 +Tahoma(10,2) = "Tahoma":@FM:10:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0 +Tahoma(10,3) = "Tahoma":@FM:10:@FM:'':@FM:0:@FM:0:@FM:1:@FM:0 +Tahoma(10,4) = "Tahoma":@FM:10:@FM:'':@FM:0:@FM:1:@FM:0:@FM:0 +Tahoma(10,5) = "Tahoma":@FM:10:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0:@FM:RGB(255,255,255) +Tahoma(10,6) = "Tahoma":@FM:10:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0:@FM:RGB(255,255,255):@FM:900 +Tahoma(11,1) = "Tahoma":@FM:11:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0 +Tahoma(11,4) = "Tahoma":@FM:11:@FM:'':@FM:0:@FM:1:@FM:0:@FM:0 +Tahoma(12,1) = "Tahoma":@FM:12:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0 +Tahoma(12,2) = "Tahoma":@FM:12:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0 +Tahoma(12,3) = "Tahoma":@FM:12:@FM:'':@FM:0:@FM:0:@FM:1:@FM:0 +Tahoma(12,4) = "Tahoma":@FM:12:@FM:'':@FM:0:@FM:1:@FM:0:@FM:0 +Tahoma(14,1) = "Tahoma":@FM:14:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0 +Tahoma(14,2) = "Tahoma":@FM:14:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0 +Tahoma(14,5) = "Tahoma":@FM:14:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0:@FM:RGB(255,255,255) +Tahoma(16,1) = "Tahoma":@FM:16:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0 +Tahoma(16,2) = "Tahoma":@FM:16:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0 +Tahoma(17,1) = "Tahoma":@FM:17:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0 +Tahoma(18,1) = "Tahoma":@FM:18:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0 +Tahoma(18,2) = "Tahoma":@FM:18:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0 +Tahoma(20,1) = "Tahoma":@FM:20:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0 +Tahoma(20,2) = "Tahoma":@FM:20:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0 + + +// TIMES 1 2 3 4 5 6 7 8 +Dim Times(18,6) +Times(11,4) = "Times New Roman":@FM:11:@FM:'':@FM:0:@FM:1:@FM:0:@FM:0 +Times(12,1) = "Times New Roman":@FM:12:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0 +Times(12,2) = "Times New Roman":@FM:12:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0 +Times(12,3) = "Times New Roman":@FM:12:@FM:'':@FM:0:@FM:0:@FM:1:@FM:0 +Times(12,4) = "Times New Roman":@FM:12:@FM:'':@FM:0:@FM:1:@FM:0:@FM:0 + + +// OCR +Dim OCR(12,6) +OCR(10,1) = "OCR-A II":@FM:10:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0 +OCR(11,1) = "OCR-A II":@FM:11:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0 +OCR(12,1) = "OCR-A II":@FM:12:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0 + diff --git a/LSL2/STPROCINS/OI_WIZARD_EQUATES.txt b/LSL2/STPROCINS/OI_WIZARD_EQUATES.txt new file mode 100644 index 0000000..4ca42d9 --- /dev/null +++ b/LSL2/STPROCINS/OI_WIZARD_EQUATES.txt @@ -0,0 +1,17 @@ +compile insert OI_WIZARD_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 22/06/2022 + Description : Insert for Table OI_WIZARD +----------------------------------------*/ + + +Equ OI_WIZARD.SESSION_ID$ To 0 +Equ OI_WIZARD.TRANS_TYPE$ To 1 +Equ OI_WIZARD.CREATED_DATE$ To 2 +Equ OI_WIZARD.CREATED_TIME$ To 3 +Equ OI_WIZARD.TERMINATED$ To 4 +Equ OI_WIZARD.EMPLOYEE_ID$ To 5 +Equ OI_WIZARD.TRANSACTION_IDS$ To 6 +Equ OI_WIZARD.UPDATED_DATES$ To 7 +Equ OI_WIZARD.UPDATED_TIMES$ To 8 diff --git a/LSL2/STPROCINS/OI_WIZARD_TRANSACTIONS_EQUATES.txt b/LSL2/STPROCINS/OI_WIZARD_TRANSACTIONS_EQUATES.txt new file mode 100644 index 0000000..158e54b --- /dev/null +++ b/LSL2/STPROCINS/OI_WIZARD_TRANSACTIONS_EQUATES.txt @@ -0,0 +1,15 @@ +compile insert OI_WIZARD_TRANSACTIONS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 27/06/2022 + Description : Insert for Table OI_WIZARD_TRANSACTIONS +----------------------------------------*/ + + +Equ OI_WIZARD_TRANSACTIONS.TRANS_ID$ To 0 +Equ OI_WIZARD_TRANSACTIONS.OI_WIZARD_ID$ To 1 +Equ OI_WIZARD_TRANSACTIONS.TRANS_TYPE$ To 2 +Equ OI_WIZARD_TRANSACTIONS.COMPLETED$ To 3 +Equ OI_WIZARD_TRANSACTIONS.DATA$ To 4 +Equ OI_WIZARD_TRANSACTIONS.CREATE_DATE$ To 5 +Equ OI_WIZARD_TRANSACTIONS.CREATE_TIME$ To 6 diff --git a/LSL2/STPROCINS/OI_WIZARD_TRANS_TYPES_EQUATES.txt b/LSL2/STPROCINS/OI_WIZARD_TRANS_TYPES_EQUATES.txt new file mode 100644 index 0000000..aaa4510 --- /dev/null +++ b/LSL2/STPROCINS/OI_WIZARD_TRANS_TYPES_EQUATES.txt @@ -0,0 +1,14 @@ +compile insert OI_WIZARD_TRANS_TYPES_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 07/10/2022 + Description : Insert for Table OI_WIZARD_TRANS_TYPES +----------------------------------------*/ + + +Equ OI_WIZARD_TRANS_TYPES.TRANS_TYPE$ To 0 +Equ OI_WIZARD_TRANS_TYPES.REQUIRED_FIELDS$ To 1 +Equ OI_WIZARD_TRANS_TYPES.TITLE$ To 2 +Equ OI_WIZARD_TRANS_TYPES.PERMITTED_GROUPS$ To 3 +Equ OI_WIZARD_TRANS_TYPES.SERVICE_MODULE$ To 4 +Equ OI_WIZARD_TRANS_TYPES.UPDATE_SERVICE$ To 5 diff --git a/LSL2/STPROCINS/ORDER_CHANGE_EQU.txt b/LSL2/STPROCINS/ORDER_CHANGE_EQU.txt new file mode 100644 index 0000000..2ba1363 --- /dev/null +++ b/LSL2/STPROCINS/ORDER_CHANGE_EQU.txt @@ -0,0 +1,16 @@ +COMPILE Insert ORDER_CHANGE_EQU + +* Equates for ORDER_CHANGE table + +EQU ORDER_CHANGE_TABLE$ TO 1 +EQU ORDER_CHANGE_RECORD_KEY$ TO 2 +EQU ORDER_CHANGE_COLUMN$ TO 3 +EQU ORDER_CHANGE_VALUE$ TO 4 +EQU ORDER_CHANGE_OLD_VALUE$ TO 5 +EQU ORDER_CHANGE_NEW_VALUE$ TO 6 +EQU ORDER_CHANGE_REASON$ TO 7 +EQU ORDER_CHANGE_TIMESTAMP$ TO 8 +EQU ORDER_CHANGE_USER_NAME$ TO 9 +EQU ORDER_CHANGE_STATION_ID$ TO 10 +EQU ORDER_CHANGE_ORDER_NO$ TO 11 + diff --git a/LSL2/STPROCINS/ORDER_DET_EQU.txt b/LSL2/STPROCINS/ORDER_DET_EQU.txt new file mode 100644 index 0000000..b2c7ebc --- /dev/null +++ b/LSL2/STPROCINS/ORDER_DET_EQU.txt @@ -0,0 +1,33 @@ +compile insert ORDER_DET_EQU + +* Equates for ORDER_DET table + +EQU ORDER_DET_QUOTE_NO$ TO 1 + +EQU ORDER_DET_EPI_PN$ TO 3 +EQU ORDER_DET_ITEM_DESC$ TO 4 +EQU ORDER_DET_UNIT_PRICE$ TO 5 +EQU ORDER_DET_ITEM_QTY$ TO 6 +EQU ORDER_DET_WO_NO$ TO 7 +EQU ORDER_DET_CUST_PN$ TO 8 +EQU ORDER_DET_INBOUND_TRACKING_NO$ TO 9 +EQU ORDER_DET_SHIP_NO$ TO 10 +EQU ORDER_DET_PROMISE_DT$ TO 11 +EQU ORDER_DET_CUST_REQ_DT$ TO 12 +EQU ORDER_DET_REQ_SHIP_DT$ TO 13 +EQU ORDER_DET_SHIP_WIN_DT$ TO 14 +EQU ORDER_DET_CUST_LOT_NO$ TO 15 +EQU ORDER_DET_CUST_LOT_QTY$ TO 16 +EQU ORDER_DET_SUB_PART_NO$ TO 17 +EQU ORDER_DET_VISION_LINE_NO$ TO 18 +EQU ORDER_DET_VISION_ITEM_STATUS$ TO 19 +EQU ORDER_DET_VISION_PART_TYPE$ TO 20 +EQU ORDER_DET_VISION_SHIP_QTY$ TO 21 +EQU ORDER_DET_VISION_ATP$ TO 22 +EQU ORDER_DET_EXP_RX_DT$ TO 23 +EQU ORDER_DET_VISION_INVOICE_NO$ TO 24 +EQU ORDER_DET_VISION_INVOICE_ITEM$ TO 25 +EQU ORDER_DET_SUPPLIED_BY$ TO 26 +EQU ORDER_DET_INVOICE_NO$ TO 27 +EQU ORDER_DET_ENGINEERING_PART$ TO 28 + diff --git a/LSL2/STPROCINS/ORDER_DET_EQUATES.txt b/LSL2/STPROCINS/ORDER_DET_EQUATES.txt new file mode 100644 index 0000000..0446983 --- /dev/null +++ b/LSL2/STPROCINS/ORDER_DET_EQUATES.txt @@ -0,0 +1,42 @@ +compile insert ORDER_DET_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 24/08/2011 + Description : Insert for Table ORDER_DET +----------------------------------------*/ + + +Equ ORDER_DET_ITEM_NO$ To 0 +Equ ORDER_DET_ORDER_NO$ To 0 +Equ ORDER_DET_QUOTE_NO$ To 1 +Equ ORDER_DET_QUOTE_ITEM$ To 2 +Equ ORDER_DET_EPI_PN$ To 3 +Equ ORDER_DET_ITEM_DESC$ To 4 +Equ ORDER_DET_UNIT_PRICE$ To 5 +Equ ORDER_DET_ITEM_QTY$ To 6 +Equ ORDER_DET_WO_NO$ To 7 +Equ ORDER_DET_CUST_PN$ To 8 +Equ ORDER_DET_INBOUND_TRACKING_NO$ To 9 +Equ ORDER_DET_SHIP_NO$ To 10 +Equ ORDER_DET_PROMISE_DT$ To 11 +Equ ORDER_DET_CUST_REQ_DT$ To 12 +Equ ORDER_DET_REQ_SHIP_DT$ To 13 +Equ ORDER_DET_SHIP_WIN_DT$ To 14 +Equ ORDER_DET_CUST_LOT_NO$ To 15 +Equ ORDER_DET_CUST_LOT_QTY$ To 16 +Equ ORDER_DET_SUB_PART_NO$ To 17 +Equ ORDER_DET_VISION_LINE_NO$ To 18 +Equ ORDER_DET_VISION_ITEM_STATUS$ To 19 +Equ ORDER_DET_VISION_PART_TYPE$ To 20 +Equ ORDER_DET_VISION_SHIP_QTY$ To 21 +Equ ORDER_DET_VISION_ATP$ To 22 +Equ ORDER_DET_EXP_RX_DT$ To 23 +Equ ORDER_DET_VISION_INVOICE_NO$ To 24 +Equ ORDER_DET_VISION_INVOICE_ITEM$ To 25 +Equ ORDER_DET_SUPPLIED_BY$ To 26 +Equ ORDER_DET_INVOICE_NO$ To 27 +Equ ORDER_DET_ENGINEERING_PART$ To 28 +Equ ORDER_DET_PROD_VER_NO$ To 29 +Equ ORDER_DET_CUST_PART_NO_INBOUND$ To 30 +Equ ORDER_DET_CUST_SUB_PART_NO$ To 31 +Equ ORDER_DET_CUST_SUB_MFR$ To 32 diff --git a/LSL2/STPROCINS/ORDER_EQU.txt b/LSL2/STPROCINS/ORDER_EQU.txt new file mode 100644 index 0000000..46c2743 --- /dev/null +++ b/LSL2/STPROCINS/ORDER_EQU.txt @@ -0,0 +1,56 @@ +compile insert ORDER_EQU +* Equates for ORDER created on 03/02/01 03:42PM + +equ ORDER_PO$ to 1 +equ ORDER_CUST_NO$ to 2 +equ ORDER_NAME_NO$ to 3 +equ ORDER_ENTRY_ID$ to 4 +equ ORDER_ENTRY_DATE$ to 5 +equ ORDER_STATUS$ to 6 +equ ORDER_CLOSE_DATE$ to 7 +equ ORDER_SCHEDULE_IDS$ to 8 +equ ORDER_PART_NUM$ to 9 +equ ORDER_LOT_NUM$ to 10 +equ ORDER_QUANTITY$ to 11 +equ ORDER_PRICE$ to 12 +equ ORDER_WO$ to 13 +equ ORDER_TERMS$ to 14 +equ ORDER_SHIP_VIA$ to 15 +equ ORDER_ORDER_NOTES$ to 16 +equ ORDER_INVOICE_NOTES$ to 17 +equ ORDER_BILL_TO_ATTN$ to 18 +equ ORDER_BILL_TO_ADDRESS$ to 19 +equ ORDER_BILL_TO_CITY$ to 20 +equ ORDER_BILL_TO_STATE$ to 21 +equ ORDER_BILL_TO_ZIP$ to 22 +equ ORDER_SHIP_TO_ATTN$ to 23 +equ ORDER_SHIP_TO_ADDRESS$ to 24 +equ ORDER_SHIP_TO_CITY$ to 25 +equ ORDER_SHIP_TO_STATE$ to 26 +equ ORDER_SHIP_TO_ZIP$ to 27 +equ ORDER_QUOTE_IDS$ to 28 +equ ORDER_SETUP_CHARGE$ to 29 +equ ORDER_SRP_CHARGE$ to 30 +equ ORDER_ACCOUNT_NO$ to 31 +equ ORDER_BILL_TO_COMPANY$ to 32 +equ ORDER_SHIP_TO_COMPANY$ to 33 +equ ORDER_PROD_SPEC_IDS$ to 34 +equ ORDER_WAF_INV_IDS$ to 35 +equ ORDER_AC_ID$ to 36 +equ ORDER_SUB_PART_NUM$ to 37 +equ ORDER_BILL_TO_COUNTRY$ to 38 +equ ORDER_SHIP_TO_COUNTRY$ to 39 +equ ORDER_WO_KEYS$ to 40 +equ ORDER_PO_NO$ to 41 +equ ORDER_PO_LINE$ to 42 +equ ORDER_PO_REL$ to 43 +equ ORDER_SHIP_ID$ to 44 +equ ORDER_ORDER_DET_KEY$ to 45 +equ ORDER_SHIP_TO_CUST_NO$ to 46 +equ ORDER_BILL_TO_CUST_NO$ to 47 +EQU ORDER_VISION_ORDER_NO$ TO 48 +EQU ORDER_VISION_CUST_NAME$ TO 49 +EQU ORDER_ORDER_CHANGE_NO$ TO 50 +EQU ORDER_CAPTIVE$ TO 51 +EQU ORDER_CONSIGNMENT$ TO 52 +EQU ORDER_INCO_CODE$ TO 53 diff --git a/LSL2/STPROCINS/ORDER_RECON_EQU.txt b/LSL2/STPROCINS/ORDER_RECON_EQU.txt new file mode 100644 index 0000000..be88866 --- /dev/null +++ b/LSL2/STPROCINS/ORDER_RECON_EQU.txt @@ -0,0 +1,15 @@ +compile insert ORDER_RECON_EQU +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 13/06/2005 + Description : Insert for Table ORDER_RECON +----------------------------------------*/ + +Equ ORDER_RECON_VISION_ORDER_NO$ To 0 +Equ ORDER_RECON_ORDER_NO$ To 1 +Equ ORDER_RECON_TIMESTAMP$ To 2 +Equ ORDER_RECON_PROB_DESC$ To 3 +Equ ORDER_RECON_ITEM_NO$ To 4 +Equ ORDER_RECON_FIELD_NAME$ To 5 +Equ ORDER_RECON_VISION_VALUE$ To 6 +Equ ORDER_RECON_OI_VALUE$ To 7 diff --git a/LSL2/STPROCINS/OVERRIDE_EQUATES.txt b/LSL2/STPROCINS/OVERRIDE_EQUATES.txt new file mode 100644 index 0000000..6051dd4 --- /dev/null +++ b/LSL2/STPROCINS/OVERRIDE_EQUATES.txt @@ -0,0 +1,13 @@ +compile insert OVERRIDE_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 10/02/2022 + Description : Insert for Table OVERRIDE +----------------------------------------*/ + + +Equ OVERRIDE.KEY$ To 0 +Equ OVERRIDE.OVERRIDE_TYPE$ To 0 +Equ OVERRIDE.TABLE$ To 0 +Equ OVERRIDE.OVERRIDE_USER$ To 1 +Equ OVERRIDE.OVERRIDE_DTM$ To 2 diff --git a/LSL2/STPROCINS/OVERRIDE_LOG_EQUATES.txt b/LSL2/STPROCINS/OVERRIDE_LOG_EQUATES.txt new file mode 100644 index 0000000..637f366 --- /dev/null +++ b/LSL2/STPROCINS/OVERRIDE_LOG_EQUATES.txt @@ -0,0 +1,17 @@ +compile insert OVERRIDE_LOG_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 14/10/2020 + Description : Insert for Table OVERRIDE_LOG +----------------------------------------*/ + + +Equ OVERRIDE_LOG_ID$ To 0 +Equ OVERRIDE_LOG_TABLE$ To 1 +Equ OVERRIDE_LOG_KEY$ To 2 +Equ OVERRIDE_LOG_USER$ To 3 +Equ OVERRIDE_LOG_COMMENT$ To 4 +Equ OVERRIDE_LOG_DTM$ To 5 +Equ OVERRIDE_LOG_CATEGORY$ To 6 +Equ OVERRIDE_LOG_CAUSE$ To 7 + diff --git a/LSL2/STPROCINS/PART_EQUATES.txt b/LSL2/STPROCINS/PART_EQUATES.txt new file mode 100644 index 0000000..eda5ae6 --- /dev/null +++ b/LSL2/STPROCINS/PART_EQUATES.txt @@ -0,0 +1,59 @@ +compile insert PART_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 09/03/2011 + Description : Insert for Table PART +----------------------------------------*/ + + +Equ PART_PART_NO$ To 0 +Equ PART_DESC$ To 1 +Equ PART_EPI_PART_NO$ To 2 +Equ PART_PROC_STEP_NO$ To 3 +Equ PART_PROC_STEP_PSN$ To 4 +Equ PART_PROC_STEP_DESC$ To 6 +Equ PART_REACT_TYPE$ To 7 +Equ PART_REACT_OVERHEAD$ To 8 +Equ PART_CUST_NO$ To 11 +Equ PART_CUST_PART_NO$ To 12 +Equ PART_CUST_PART_DESC$ To 13 +Equ PART_CUST_PART_NO_INCOMING$ To 14 +Equ PART_SUB_PART_NO$ To 15 +Equ PART_SUB_PART_REV$ To 16 +Equ PART_SUB_SUPPLIER$ To 17 +Equ PART_SUB_TYPE$ To 18 +Equ PART_SUB_COST$ To 19 +Equ PART_ENGINEERING_PART$ To 20 +Equ PART_SPEC_PROCESSING$ To 21 +Equ PART_ORD_DET_KEY$ To 22 +Equ PART_PROC_LEAD_TIME$ To 23 +Equ PART_CYCLE_TIME$ To 24 +Equ PART_PRE_EPI_TIME$ To 25 +Equ PART_FAB_TIME$ To 26 +Equ PART_POST_TIME$ To 27 +Equ PART_PURCH_SPEC$ To 28 +Equ PART_PURCH_SPEC_REV$ To 29 +Equ PART_PART_YIELD$ To 30 +Equ PART_WO_SIZE_MIN$ To 31 +Equ PART_WO_SIZE_MAX$ To 32 +Equ PART_STATUS$ To 33 +Equ PART_SUB_CUST$ To 34 +Equ PART_SUB_SUPP_BY$ To 35 +Equ PART_SUB_WAFER_SIZE$ To 36 +Equ PART_SUB_ORIENTATION$ To 37 +Equ PART_SUB_UNK_TYPE$ To 38 +Equ PART_SUB_RES$ To 39 +Equ PART_SUB_RES_UNITS$ To 40 +Equ PART_SUB_DOPANT$ To 41 +Equ PART_SUB_SUBSTRATE$ To 43 +Equ PART_SUB_SPECTYPE$ To 44 +Equ PART_SUB_POLISH$ To 45 +Equ PART_SUB_THICK$ To 46 +Equ PART_SUB_OXIDE$ To 47 +Equ PART_SUB_BACKSEAL$ To 48 +Equ PART_SUB_OXIDE_ANGSTROMS$ To 49 +Equ PART_SUB_BL_DOPANT$ To 50 +Equ PART_BOM_VER$ To 51 +Equ PART_RET_REJECTS$ To 52 +Equ PART_CASS_SHIP_QTY$ To 53 +Equ PART_EPI_PRO_SHIP_SHORT$ To 54 diff --git a/LSL2/STPROCINS/PART_REACT_EQUATES.txt b/LSL2/STPROCINS/PART_REACT_EQUATES.txt new file mode 100644 index 0000000..c4efd2c --- /dev/null +++ b/LSL2/STPROCINS/PART_REACT_EQUATES.txt @@ -0,0 +1,18 @@ +compile insert PART_REACT_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 17/02/2011 + Description : Insert for Table PART_REACT +----------------------------------------*/ + + +Equ PART_REACT_EPI_PART_NO$ To 0 +Equ PART_REACT_REACT_TYPE$ To 0 +Equ PART_REACT_PROC_STEP_NO$ To 1 +Equ PART_REACT_PROC_STEP_PSN$ To 2 +Equ PART_REACT_PROC_STEP_DESC$ To 3 +Equ PART_REACT_SUB_PART_NO$ To 4 +Equ PART_REACT_SUB_PART_REV$ To 5 +Equ PART_REACT_SUB_SUPPLIER$ To 6 +Equ PART_REACT_SUB_TYPE$ To 7 +Equ PART_REACT_SUB_COST$ To 8 diff --git a/LSL2/STPROCINS/PART_WORK_EQUATES.txt b/LSL2/STPROCINS/PART_WORK_EQUATES.txt new file mode 100644 index 0000000..50c3b21 --- /dev/null +++ b/LSL2/STPROCINS/PART_WORK_EQUATES.txt @@ -0,0 +1,22 @@ +compile insert PART_WORK_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 07/07/2010 + Description : Insert for Table PART_WORK +----------------------------------------*/ + + +Equ PART_WORK_QUOTE_NO$ To 0 +Equ PART_WORK_PROC_STEP$ To 1 +Equ PART_WORK_PROC_STEP_PSN$ To 2 +Equ PART_WORK_CUST_NO$ To 3 +Equ PART_WORK_CUST_PART_NO$ To 4 +Equ PART_WORK_CUST_PART_DESC$ To 5 +Equ PART_WORK_CUST_PART_NO_INBOUND$ To 6 +Equ PART_WORK_EPI_PART_NO$ To 7 +Equ PART_WORK_ORDER_DET_KEY$ To 8 +Equ PART_WORK_OD_EPI_PART_NO$ To 9 +Equ PART_WORK_OD_CUST_PART_NO$ To 10 +Equ PART_WORK_OD_SUB_PART_NO$ To 11 +Equ PART_WORK_OD_SORTKEY$ To 20 +Equ PART_WORK_CUST_PN_SORT$ To 21 diff --git a/LSL2/STPROCINS/PEND_SHIP_LABELS_EQUATES.txt b/LSL2/STPROCINS/PEND_SHIP_LABELS_EQUATES.txt new file mode 100644 index 0000000..a5c7448 --- /dev/null +++ b/LSL2/STPROCINS/PEND_SHIP_LABELS_EQUATES.txt @@ -0,0 +1,10 @@ +compile insert PEND_SHIP_LABELS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 15/05/2015 + Description : Insert for Table PEND_SHIP_LABELS +----------------------------------------*/ + + +Equ PEND_SHIP_LABELS_WO_NO$ To 0 +Equ PEND_SHIP_LABELS_CASS_NO$ To 1 diff --git a/LSL2/STPROCINS/PM_EQUATES.txt b/LSL2/STPROCINS/PM_EQUATES.txt new file mode 100644 index 0000000..a742eee --- /dev/null +++ b/LSL2/STPROCINS/PM_EQUATES.txt @@ -0,0 +1,26 @@ +compile insert PM_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 29/11/2016 + Description : Insert for Table PM +----------------------------------------*/ + + +Equ PM_PM_NO$ To 0 +Equ PM_PMS_ID$ To 1 +Equ PM_ENTER_BY$ To 2 +Equ PM_ENTER_DTM$ To 3 +Equ PM_SCHED_DT$ To 4 +Equ PM_SCHED_TM$ To 5 +Equ PM_SCHED_QTY$ To 6 +Equ PM_NOTES$ To 8 +Equ PM_COMP_BY$ To 9 +Equ PM_COMP_DTM$ To 10 +Equ PM_START_BY$ To 11 +Equ PM_START_DTM$ To 12 +Equ PM_COMP_QTY$ To 13 +Equ PM_PASS_FAIL$ To 14 +Equ PM_EARLY_NOTIF_SENT$ To 15 +Equ PM_DUE_NOTIF_SENT$ To 16 +Equ PM_LATE_NOTIF_SENT$ To 17 + diff --git a/LSL2/STPROCINS/PM_HIST_EQUATES.txt b/LSL2/STPROCINS/PM_HIST_EQUATES.txt new file mode 100644 index 0000000..14c6af6 --- /dev/null +++ b/LSL2/STPROCINS/PM_HIST_EQUATES.txt @@ -0,0 +1,10 @@ +compile insert PM_HIST_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 29/08/2016 + Description : Insert for Table PM_HIST +----------------------------------------*/ + + +Equ PM_HIST_PMS_ID$ To 0 +Equ PM_HIST_PM_KEYS$ To 1 diff --git a/LSL2/STPROCINS/PM_SCHED_EQUATES.txt b/LSL2/STPROCINS/PM_SCHED_EQUATES.txt new file mode 100644 index 0000000..08b895b --- /dev/null +++ b/LSL2/STPROCINS/PM_SCHED_EQUATES.txt @@ -0,0 +1,28 @@ +compile insert PM_SCHED_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 31/08/2016 + Description : Insert for Table PM_SCHED +----------------------------------------*/ + + +Equ PM_SCHED_PMS_ID$ To 0 +Equ PM_SCHED_TOOL_ID$ To 1 +Equ PM_SCHED_DESC$ To 2 +Equ PM_SCHED_CHANGE_STAT$ To 3 +Equ PM_SCHED_UNITS$ To 4 +Equ PM_SCHED_INT_TIME_CD$ To 5 +Equ PM_SCHED_INTERVAL$ To 6 +Equ PM_SCHED_INT_DT$ To 6 +Equ PM_SCHED_INT_QTY$ To 6 +Equ PM_SCHED_INT_TM$ To 6 +Equ PM_SCHED_EARLY_START_DELTA$ To 7 +Equ PM_SCHED_EARLY_START_DT$ To 7 +Equ PM_SCHED_EARLY_START_QTY$ To 7 +Equ PM_SCHED_EARLY_START_TM$ To 7 +Equ PM_SCHED_LATE_START_DELTA$ To 8 +Equ PM_SCHED_LATE_START_DT$ To 8 +Equ PM_SCHED_LATE_START_QTY$ To 8 +Equ PM_SCHED_LATE_START_TM$ To 8 +Equ PM_SCHED_NOTES$ To 17 +Equ PM_SCHED_PM_KEYS$ To 18 diff --git a/LSL2/STPROCINS/PM_SPEC_EQUATES.txt b/LSL2/STPROCINS/PM_SPEC_EQUATES.txt new file mode 100644 index 0000000..6d1562f --- /dev/null +++ b/LSL2/STPROCINS/PM_SPEC_EQUATES.txt @@ -0,0 +1,36 @@ +compile insert PM_SPEC_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 31/10/2016 + Description : Insert for Table PM_SPEC +----------------------------------------*/ + + +Equ PM_SPEC_PMS_ID$ To 0 +Equ PM_SPEC_TOOL_ID$ To 1 +Equ PM_SPEC_DESC$ To 2 +Equ PM_SPEC_CHANGE_STAT$ To 3 +Equ PM_SPEC_UNITS$ To 4 +Equ PM_SPEC_INT_TIME_CD$ To 5 +Equ PM_SPEC_INTERVAL$ To 6 +Equ PM_SPEC_INT_DT$ To 6 +Equ PM_SPEC_INT_QTY$ To 6 +Equ PM_SPEC_INT_TM$ To 6 +Equ PM_SPEC_EARLY_START_DELTA$ To 7 +Equ PM_SPEC_EARLY_START_DT$ To 7 +Equ PM_SPEC_EARLY_START_QTY$ To 7 +Equ PM_SPEC_EARLY_START_TM$ To 7 +Equ PM_SPEC_LATE_START_DELTA$ To 8 +Equ PM_SPEC_LATE_START_DT$ To 8 +Equ PM_SPEC_LATE_START_QTY$ To 8 +Equ PM_SPEC_LATE_START_TM$ To 8 +Equ PM_SPEC_NOTES$ To 17 +Equ PM_SPEC_PM_KEYS$ To 18 +Equ PM_SPEC_PM_START_TIME$ To 19 +Equ PM_SPEC_PM_ARCHIVED$ To 20 +Equ PM_SPEC_FIVE_S_FLAG$ To 21 +Equ PM_SPEC_SEND_EARLY_NOTIFICATION$ TO 22 +Equ PM_SPEC_SEND_DUE_NOTIFICATION$ TO 23 +Equ PM_SPEC_SEND_LATE_NOTIFICATION$ TO 24 + + diff --git a/LSL2/STPROCINS/POST_LOG_EQUATES.txt b/LSL2/STPROCINS/POST_LOG_EQUATES.txt new file mode 100644 index 0000000..03149ac --- /dev/null +++ b/LSL2/STPROCINS/POST_LOG_EQUATES.txt @@ -0,0 +1,16 @@ +compile insert POST_LOG_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 13/05/2008 + Description : Insert for Table POST_LOG +----------------------------------------*/ + +Equ POST_LOG_TABLENAME$ To 0 +Equ POST_LOG_CREATE_DTM$ To 0 +Equ POST_LOG_REC_KEY1$ To 0 +Equ POST_LOG_REC_KEY2$ To 0 +Equ POST_LOG_REC_KEY3$ To 0 + +Equ POST_LOG_FIELD_NO$ To 1 +Equ POST_LOG_FIELD_VALUE$ To 2 +Equ POST_LOG_FIELD_ADD_MV_BY$ To 3 diff --git a/LSL2/STPROCINS/PROC_QUEUE_EQUATES.txt b/LSL2/STPROCINS/PROC_QUEUE_EQUATES.txt new file mode 100644 index 0000000..90776fe --- /dev/null +++ b/LSL2/STPROCINS/PROC_QUEUE_EQUATES.txt @@ -0,0 +1,13 @@ +compile insert PROC_QUEUE_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 15/01/2020 + Description : Insert for Table PROC_QUEUE +----------------------------------------*/ + + +Equ PROC_QUEUE.REQ_ID$ To 0 +Equ PROC_QUEUE.PROC_NAME$ To 1 +Equ PROC_QUEUE.PARAMS$ To 2 +Equ PROC_QUEUE.COMP_DTM$ To 3 +Equ PROC_QUEUE.ERROR$ To 4 diff --git a/LSL2/STPROCINS/PROD_SPEC_EQU.txt b/LSL2/STPROCINS/PROD_SPEC_EQU.txt new file mode 100644 index 0000000..9c43d21 --- /dev/null +++ b/LSL2/STPROCINS/PROD_SPEC_EQU.txt @@ -0,0 +1,133 @@ +compile insert PROD_SPEC_EQU +* Equates for PROD_SPEC created on 01/30/02 02:11PM + +equ PROD_SPEC_ENTRY_ID$ to 1 +equ PROD_SPEC_ENTRY_DATE$ to 2 +equ PROD_SPEC_SPEC_NUM$ to 3 +equ PROD_SPEC_REV_NUM$ to 4 +equ PROD_SPEC_PART_NUMS$ to 5 +equ PROD_SPEC_REV_DATE$ to 6 +equ PROD_SPEC_DESCRIPTION$ to 7 +equ PROD_SPEC_CUST_ID$ to 8 +equ PROD_SPEC_STATUS$ to 9 +equ PROD_SPEC_PRE_EPI_VER$ to 10 +equ PROD_SPEC_SPEC_NEW_DEV$ to 11 +equ PROD_SPEC_PROVEIN_MIN$ to 12 +equ PROD_SPEC_QUAL_REACTS$ to 13 +equ PROD_SPEC_SPEC_SUBSTRATE$ to 14 +equ PROD_SPEC_SPEC_EPI$ to 15 +equ PROD_SPEC_FIRST_VER_INST$ to 16 +equ PROD_SPEC_RECIPE_TYPE$ to 17 +equ PROD_SPEC_UNLOAD_VER_INST$ to 18 +equ PROD_SPEC_POST_EPI_VER_INST$ to 19 +equ PROD_SPEC_SCHEDULING_NOTES$ to 20 +equ PROD_SPEC_QUOTE_NO$ to 21 +equ PROD_SPEC_SALES_NOTES$ to 22 +equ PROD_SPEC_SPEC_BILL_INST$ to 23 +equ PROD_SPEC_SPEC_SHIP_INST$ to 24 +equ PROD_SPEC_SPEC_ADDTL$ to 25 +equ PROD_SPEC_LOAD_VER$ to 26 +equ PROD_SPEC_SHIP_CUST_RDS$ to 27 +equ PROD_SPEC_SHIP_COC_FRONT$ to 28 +equ PROD_SPEC_SHIP_COC_BACK$ to 29 +equ PROD_SPEC_SHIP_NCR_REJ$ to 30 +equ PROD_SPEC_FIRST_VER$ to 31 +equ PROD_SPEC_SHIP_PARTIAL$ to 32 +equ PROD_SPEC_SHIP_FULL_TYPE$ to 33 +equ PROD_SPEC_SHIP_BAG_REQ$ to 35 +equ PROD_SPEC_TR_SRP$ to 36 +equ PROD_SPEC_TR_FTIR$ to 37 +equ PROD_SPEC_TR_HGPROBE$ to 38 +equ PROD_SPEC_TR_TENCOR$ to 39 +equ PROD_SPEC_TR_STRESS$ to 40 +equ PROD_SPEC_TR_TEST_WAFER$ to 41 +equ PROD_SPEC_TR_SRP_WWAFER$ to 42 +equ PROD_SPEC_SHIP_COC_FRONT_COPIES$ to 43 +equ PROD_SPEC_SHIP_COC_BACK_COPIES$ to 44 +equ PROD_SPEC_UNLOAD_VER$ to 45 +equ PROD_SPEC_TR_4PP$ to 46 +equ PROD_SPEC_MOD_ID$ to 47 +equ PROD_SPEC_MOD_DATE$ to 48 +equ PROD_SPEC_HARD_COPY$ to 49 +equ PROD_SPEC_PRE_PITS$ to 50 +equ PROD_SPEC_PRE_MOUNDS$ to 51 +equ PROD_SPEC_PRE_BL_DEFECTS$ to 52 +equ PROD_SPEC_PRE_SPOTS$ to 53 +equ PROD_SPEC_PRE_FOV$ to 54 +equ PROD_SPEC_PRE_SCRATCHES$ to 55 +equ PROD_SPEC_PRE_SCRATCH_LEN$ to 56 +equ PROD_SPEC_PRE_LPD$ to 57 +equ PROD_SPEC_POST_PITS$ to 58 +equ PROD_SPEC_POST_MOUNDS$ to 59 +equ PROD_SPEC_POST_BL_DEFECTS$ to 60 +equ PROD_SPEC_POST_STACK_FAULTS$ to 61 +equ PROD_SPEC_POST_SPOTS$ to 62 +equ PROD_SPEC_POST_FOV$ to 63 +equ PROD_SPEC_POST_SPIKES$ to 64 +equ PROD_SPEC_POST_SCRATCHES$ to 65 +equ PROD_SPEC_POST_SCRATCH_LEN$ to 66 +equ PROD_SPEC_POST_LPD$ to 67 +equ PROD_SPEC_SURFACE_SPEC_NOTES$ to 68 +equ PROD_SPEC_PRE_BRIGHTLIGHT$ to 69 +equ PROD_SPEC_PRE_SURFSCAN$ to 70 +equ PROD_SPEC_PRE_MICROSCOPE$ to 71 +equ PROD_SPEC_FIRST_BRIGHTLIGHT$ to 72 +equ PROD_SPEC_FIRST_SURFSCAN$ to 73 +equ PROD_SPEC_FIRST_MICROSCOPE$ to 74 +equ PROD_SPEC_POST_CLEAN_BRIGHTLIGHT$ to 75 +equ PROD_SPEC_POST_CLEAN_SURFSCAN$ to 76 +equ PROD_SPEC_PRE_SURFSCAN_RECIPE$ to 77 +equ PROD_SPEC_FIRST_SURFSCAN_RECIPE$ to 78 +equ PROD_SPEC_POST_CLEAN_SURFSCAN_RECIPE$ to 79 +equ PROD_SPEC_REACTOR_TYPE$ to 80 +equ PROD_SPEC_POST_EPI_VER$ to 81 +equ PROD_SPEC_FINAL_VER$ to 82 +equ PROD_SPEC_PRE_EPI_VER_INST$ to 83 +equ PROD_SPEC_LOAD_VER_INST$ to 84 +equ PROD_SPEC_SUPPLIER_CODE$ to 85 +equ PROD_SPEC_SCANNED_IMG_PATH$ to 88 +equ PROD_SPEC_WAND_RESTRICTER$ to 89 +equ PROD_SPEC_RATIOS$ to 90 +equ PROD_SPEC_PINNED_SUSCEPTOR$ to 91 +equ PROD_SPEC_TUBE_PRESSURE_TYPE$ to 92 +equ PROD_SPEC_LAYER_TYPE$ to 93 +equ PROD_SPEC_SPEC_PRE_PROD$ to 94 +equ PROD_SPEC_FINAL_VER_INST$ to 95 +equ PROD_SPEC_MINUTES_PER_WAFER$ to 96 +equ PROD_SPEC_SUB_PART_NUMS$ to 97 +equ PROD_SPEC_SUB_WAFER_MFG$ to 98 +equ PROD_SPEC_MONITOR_WAFER_LABEL$ to 99 +equ PROD_SPEC_PRE_SURF_DEFECTS$ to 100 +equ PROD_SPEC_PRE_SURF_HAZE$ to 101 +equ PROD_SPEC_POST_SURF_DEFECTS$ to 102 +equ PROD_SPEC_POST_SURF_HAZE$ to 103 +equ PROD_SPEC_POST_CLEAN_SURF_DEFECTS$ to 104 +equ PROD_SPEC_POST_CLEAN_SURF_HAZE$ to 105 +equ PROD_SPEC_RDS_CLEANROOM_PAPER$ to 106 +equ PROD_SPEC_SHIP_EMAIL_NOTIF$ to 107 +equ PROD_SPEC_LW_RHO_MIN$ to 108 +equ PROD_SPEC_LW_RHO_MAX$ to 109 +equ PROD_SPEC_SUSCEPTOR_TYPE$ to 110 +equ PROD_SPEC_MAKEUP_WAFERS$ TO 111 +EQU PROD_SPEC_STD_OH_COST$ TO 112 +EQU PROD_SPEC_MTL_COST$ TO 113 +EQU PROD_SPEC_IR_FAB$ TO 114 +EQU PROD_SPEC_CUST_PART_NO$ TO 115 +EQU PROD_SPEC_CR_LABEL_INST$ TO 116 ;* Don't use this +EQU PROD_SPEC_PN_DESC$ TO 116 ;* Use this one +EQU PROD_SPEC_INBOUND_CUST_PN$ TO 117 +EQU PROD_SPEC_TW_RET_INST$ TO 118 +EQU PROD_SPEC_POST_FWI_LWI$ TO 119 +EQU PROD_SPEC_POST_CLEAN_SS_SAMP_QTY$ TO 120 +EQU PROD_SPEC_BLOCKED_REACTS$ TO 121 +EQU PROD_SPEC_VERIFY_INSP_REQ$ TO 122 +EQU PROD_SPEC_PI_PARTICLE_QUAL$ TO 123 +EQU PROD_SPEC_SPEC_DESC$ TO 124 +EQU PROD_SPEC_WMO_LOAD_CNT$ TO 125 +EQU PROD_SPEC_THICKFILM_MET$ TO 126 +EQU PROD_SPEC_TEST_POINT_MAP$ TO 127 +EQU PROD_SPEC_RET_REJECTS$ TO 128 +EQU PROD_SPEC_CASS_SHIP_QTY$ TO 129 +EQU PROD_SPEC_SMALL_REACTOR_DELTA$ TO 130 +EQU PROD_SPEC_DEP_TIME_RATIO$ TO 131 +EQU PROD_SPEC_EPI_PRO_SHIP_SHORT$ TO 132 diff --git a/LSL2/STPROCINS/PROD_SPEC_EQUATES.txt b/LSL2/STPROCINS/PROD_SPEC_EQUATES.txt new file mode 100644 index 0000000..7fd58e2 --- /dev/null +++ b/LSL2/STPROCINS/PROD_SPEC_EQUATES.txt @@ -0,0 +1,181 @@ +compile insert PROD_SPEC_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 20/06/2016 + Description : Insert for Table PROD_SPEC +----------------------------------------*/ + + +Equ PROD_SPEC_SEQ$ To 0 +Equ PROD_SPEC_ENTRY_ID$ To 1 +Equ PROD_SPEC_ENTRY_DATE$ To 2 +Equ PROD_SPEC_SPEC_NUM$ To 3 +Equ PROD_SPEC_REV_NUM$ To 4 +Equ PROD_SPEC_PART_NUMS$ To 5 +Equ PROD_SPEC_REV_DATE$ To 6 +Equ PROD_SPEC_DESCRIPTION$ To 7 +Equ PROD_SPEC_CUST_ID$ To 8 +Equ PROD_SPEC_STATUS$ To 9 +Equ PROD_SPEC_PRE_EPI_VER$ To 10 +Equ PROD_SPEC_SPEC_INST$ To 10 +Equ PROD_SPEC_SPEC_NEW_DEV$ To 11 +Equ PROD_SPEC_PROVEIN_MIN$ To 12 +Equ PROD_SPEC_QUAL_REACTS$ To 13 +Equ PROD_SPEC_SPEC_SUBSTRATE$ To 14 +Equ PROD_SPEC_SPEC_EPI$ To 15 +Equ PROD_SPEC_PROVE_IN_INST$ To 16 +Equ PROD_SPEC_RECIPE_TYPE$ To 17 +Equ PROD_SPEC_UNLOAD_VER_INST$ To 18 +Equ PROD_SPEC_POST_EPI_VER_INST$ To 19 +Equ PROD_SPEC_SCHEDULING_NOTES$ To 20 +Equ PROD_SPEC_QUOTE_NO$ To 21 +Equ PROD_SPEC_SALES_NOTES$ To 22 +Equ PROD_SPEC_SPEC_BILL_INST$ To 23 +Equ PROD_SPEC_SPEC_SHIP_INST$ To 24 +Equ PROD_SPEC_SPEC_ADDTL$ To 25 +Equ PROD_SPEC_LOAD_VER$ To 26 +Equ PROD_SPEC_SHIP_CUST_RDS$ To 27 +Equ PROD_SPEC_SHIP_COC_FRONT$ To 28 +Equ PROD_SPEC_SHIP_COC_BACK$ To 29 +Equ PROD_SPEC_SHIP_NCR_REJ$ To 30 +Equ PROD_SPEC_FIRST_VER$ To 31 +Equ PROD_SPEC_SHIP_PARTIAL$ To 32 +Equ PROD_SPEC_SHIP_FULL_TYPE$ To 33 +Equ PROD_SPEC_SHIP_BAG_REQ$ To 35 +Equ PROD_SPEC_TR_SRP$ To 36 +Equ PROD_SPEC_TR_FTIR$ To 37 +Equ PROD_SPEC_TR_HGPROBE$ To 38 +Equ PROD_SPEC_TR_TENCOR$ To 39 +Equ PROD_SPEC_TR_STRESS$ To 40 +Equ PROD_SPEC_TR_TEST_WAFER$ To 41 +Equ PROD_SPEC_TR_SRP_WWAFER$ To 42 +Equ PROD_SPEC_SHIP_COC_FRONT_COPIES$ To 43 +Equ PROD_SPEC_SHIP_COC_BACK_COPIES$ To 44 +Equ PROD_SPEC_UNLOAD_VER$ To 45 +Equ PROD_SPEC_TR_4PP$ To 46 +Equ PROD_SPEC_MOD_ID$ To 47 +Equ PROD_SPEC_MOD_DATE$ To 48 +Equ PROD_SPEC_HARD_COPY$ To 49 +Equ PROD_SPEC_PRE_PITS$ To 50 +Equ PROD_SPEC_PRE_MOUNDS$ To 51 +Equ PROD_SPEC_PRE_BL_DEFECTS$ To 52 +Equ PROD_SPEC_PRE_SPOTS$ To 53 +Equ PROD_SPEC_PRE_FOV$ To 54 +Equ PROD_SPEC_PRE_SCRATCHES$ To 55 +Equ PROD_SPEC_PRE_SCRATCH_LEN$ To 56 +Equ PROD_SPEC_PRE_LPD$ To 57 +Equ PROD_SPEC_POST_PITS$ To 58 +Equ PROD_SPEC_POST_MOUNDS$ To 59 +Equ PROD_SPEC_POST_BL_DEFECTS$ To 60 +Equ PROD_SPEC_POST_STACK_FAULTS$ To 61 +Equ PROD_SPEC_POST_SPOTS$ To 62 +Equ PROD_SPEC_POST_FOV$ To 63 +Equ PROD_SPEC_POST_SPIKES$ To 64 +Equ PROD_SPEC_POST_SCRATCHES$ To 65 +Equ PROD_SPEC_POST_SCRATCH_LEN$ To 66 +Equ PROD_SPEC_POST_LPD$ To 67 +Equ PROD_SPEC_SURFACE_SPEC_NOTES$ To 68 +Equ PROD_SPEC_PRE_BRIGHTLIGHT$ To 69 +Equ PROD_SPEC_PRE_SURFSCAN$ To 70 +Equ PROD_SPEC_PRE_MICROSCOPE$ To 71 +Equ PROD_SPEC_FIRST_BRIGHTLIGHT$ To 72 +Equ PROD_SPEC_FIRST_SURFSCAN$ To 73 +Equ PROD_SPEC_FIRST_MICROSCOPE$ To 74 +Equ PROD_SPEC_POST_CLEAN_BRIGHTLIGHT$ To 75 +Equ PROD_SPEC_POST_CLEAN_SURFSCAN$ To 76 +Equ PROD_SPEC_PRE_SURFSCAN_RECIPE$ To 77 +Equ PROD_SPEC_FIRST_SURFSCAN_RECIPE$ To 78 +Equ PROD_SPEC_POST_CLEAN_SURFSCAN_RECIPE$ To 79 +Equ PROD_SPEC_REACTOR_TYPE$ To 80 +Equ PROD_SPEC_REACTOR_TYPE_CODE$ To 80 +Equ PROD_SPEC_ND_INST$ To 81 +Equ PROD_SPEC_POST_EPI_VER$ To 81 +Equ PROD_SPEC_FINAL_VER$ To 82 +Equ PROD_SPEC_ND_EXP_PLAN$ To 82 +Equ PROD_SPEC_ND_TEST_RESULTS$ To 83 +Equ PROD_SPEC_PRE_EPI_VER_INST$ To 83 +Equ PROD_SPEC_LOAD_VER_INST$ To 84 +Equ PROD_SPEC_ND_SPEC_INST$ To 84 +Equ PROD_SPEC_SUPPLIER_CODE$ To 85 +Equ PROD_SPEC_SCANNED_IMG_PATH$ To 88 +Equ PROD_SPEC_WAND_RESTRICTER$ To 89 +Equ PROD_SPEC_RATIOS$ To 90 +Equ PROD_SPEC_PINNED_SUSCEPTOR$ To 91 +Equ PROD_SPEC_TUBE_PRESSURE_TYPE$ To 92 +Equ PROD_SPEC_LAYER_TYPE$ To 93 +Equ PROD_SPEC_SPEC_PRE_PROD$ To 94 +Equ PROD_SPEC_FINAL_VER_INST$ To 95 +Equ PROD_SPEC_MINUTES_PER_WAFER$ To 96 +Equ PROD_SPEC_SUB_PART_NUMS$ To 97 +Equ PROD_SPEC_SUB_WAFER_MFG$ To 98 +Equ PROD_SPEC_MONITOR_WAFER_LABEL$ To 99 +Equ PROD_SPEC_PRE_SURF_DEFECTS$ To 100 +Equ PROD_SPEC_PRE_SURF_HAZE$ To 101 +Equ PROD_SPEC_POST_SURF_DEFECTS$ To 102 +Equ PROD_SPEC_POST_SURF_HAZE$ To 103 +Equ PROD_SPEC_POST_CLEAN_SURF_DEFECTS$ To 104 +Equ PROD_SPEC_POST_CLEAN_SURF_HAZE$ To 105 +Equ PROD_SPEC_RDS_CLEANROOM_PAPER$ To 106 +Equ PROD_SPEC_SHIP_EMAIL_NOTIF$ To 107 +Equ PROD_SPEC_LW_RHO_MIN$ To 108 +Equ PROD_SPEC_LW_RHO_MAX$ To 109 +Equ PROD_SPEC_SUSCEPTOR_TYPE$ To 110 +Equ PROD_SPEC_MAKEUP_WAFERS$ To 111 +Equ PROD_SPEC_STD_OH_COST$ To 112 +Equ PROD_SPEC_MTL_COST$ To 113 +Equ PROD_SPEC_IR_FAB$ To 114 +Equ PROD_SPEC_CUST_PART_NO$ To 115 +Equ PROD_SPEC_PN_DESC$ To 116 +Equ PROD_SPEC_INBOUND_CUST_PART_NO$ To 117 +Equ PROD_SPEC_TW_RET_INST$ To 118 +Equ PROD_SPEC_POST_FWI_LWI$ To 119 +Equ PROD_SPEC_POST_CLEAN_SS_SAMP_QTY$ To 120 +Equ PROD_SPEC_BLOCKED_REACTS$ To 121 +Equ PROD_SPEC_VERIFY_INSP_REQ$ To 122 +Equ PROD_SPEC_PI_PARTICLE_QUAL$ To 123 +Equ PROD_SPEC_SPEC_DESC$ To 124 +Equ PROD_SPEC_WMO_LOAD_CNT$ To 125 +Equ PROD_SPEC_THICKFILM_MET$ To 126 +Equ PROD_SPEC_TEST_POINT_MAP$ To 127 +Equ PROD_SPEC_RET_REJECTS$ To 128 +Equ PROD_SPEC_CASS_SHIP_QTY$ To 129 +Equ PROD_SPEC_SMALL_REACTOR_DELTA$ To 130 +Equ PROD_SPEC_DEP_TIME_RATIO$ To 131 +Equ PROD_SPEC_EPI_PRO_SHIP_SHORT$ To 132 +Equ PROD_SPEC_EPI_PART_NO_ORG$ To 133 +Equ PROD_SPEC_BOM_NO_ORG$ To 134 +Equ PROD_SPEC_MET_TEST$ To 135 +Equ PROD_SPEC_MET_INTERVAL$ To 136 +Equ PROD_SPEC_MET_START$ To 137 +Equ PROD_SPEC_MET_SLOT$ To 138 +Equ PROD_SPEC_MET_RUN_STEP$ To 139 +Equ PROD_SPEC_MET_MIN$ To 140 +Equ PROD_SPEC_MET_MAX$ To 141 +Equ PROD_SPEC_MODE_CODE$ To 142 +Equ PROD_SPEC_MODE_SIG$ To 143 +Equ PROD_SPEC_MODE_SIG_DTM$ To 144 +Equ PROD_SPEC_PRS_LAYER_KEY$ To 145 +Equ PROD_SPEC_PRS_STAGE_KEY$ To 146 +Equ PROD_SPEC_MET_RECIPE$ To 147 +Equ PROD_SPEC_MET_RECIPE_PATTERN$ To 148 +Equ PROD_SPEC_GAN_SUSC_PKT_QTY$ To 149 +Equ PROD_SPEC_GAN_PARAM_KEYS$ To 150 +Equ PROD_SPEC_GAN_REV_CP_DTM$ To 151 +Equ PROD_SPEC_GAN_REV_OI_DTM$ To 152 +Equ PROD_SPEC_GAN_REV_USER$ To 153 +Equ PROD_SPEC_CHAR_INTERVAL$ To 154 +Equ PROD_SPEC_TECH_TYPE$ To 155 +Equ PROD_SPEC_THICK_LIMIT_SHIFT$ To 156 +Equ PROD_SPEC_RES_LIMIT_SHIFT$ To 157 +Equ PROD_SPEC_ANKO$ To 158 +Equ PROD_SPEC_CANDELA_SOURCE$ To 159 +Equ PROD_SPEC_CRITICAL_WARP_MIN$ To 160 +Equ PROD_SPEC_CRITICAL_WARP_MAX$ To 161 +Equ PROD_SPEC_CRITICAL_BOW_MIN$ To 162 +Equ PROD_SPEC_CRITICAL_BOW_MAX$ To 163 +Equ PROD_SPEC_THICK_SMILE_REQ$ To 164 +Equ PROD_SPEC_PRS_STAGE_ROUTE$ To 165 +Equ PROD_SPEC_ANKO_MET_POCKETS$ To 166 +Equ PROD_SPEC_ANKO_FULL_CHAR_POCKET$ To 167 +Equ PROD_SPEC_ANKO_WAFER_SELECTION$ To 168 +Equ PROD_SPEC_LOCKED_BY$ To 169 diff --git a/LSL2/STPROCINS/PROD_SPEC_LOG_EQU.txt b/LSL2/STPROCINS/PROD_SPEC_LOG_EQU.txt new file mode 100644 index 0000000..e077f39 --- /dev/null +++ b/LSL2/STPROCINS/PROD_SPEC_LOG_EQU.txt @@ -0,0 +1,7 @@ +* Equates for PROD_SPEC_LOG created on 10/09/01 09:12AM + +equ PROD_SPEC_LOG_ORIG_VALUES$ to 1 +equ PROD_SPEC_LOG_NEW_VALUES$ to 2 +equ PROD_SPEC_LOG_DATE$ to 3 +equ PROD_SPEC_LOG_TIME$ to 4 +equ PROD_SPEC_LOG_USER_ID$ to 5 diff --git a/LSL2/STPROCINS/PROD_SPEC_REV_HIST_EQUATES.txt b/LSL2/STPROCINS/PROD_SPEC_REV_HIST_EQUATES.txt new file mode 100644 index 0000000..4ba92c7 --- /dev/null +++ b/LSL2/STPROCINS/PROD_SPEC_REV_HIST_EQUATES.txt @@ -0,0 +1,13 @@ +compile insert PROD_SPEC_REV_HIST_EQUATES +/*------------------------------------------------ + Author : djs + Written : 06/27/18 + Description : Insert for Table PROD_SPEC_REV_HIST +--------------------------------------------------*/ + + +Equ PROD_SPEC_REV_HIST_SEQ$ To 0 +Equ PROD_SPEC_REV_HIST_MOD_USERNAME$ To 1 +Equ PROD_SPEC_REV_HIST_MOD_DATE$ To 2 +Equ PROD_SPEC_REV_HIST_MOD_TIME$ To 3 +Equ PROD_SPEC_REV_HIST_REVISION_DETAIL$ To 4 diff --git a/LSL2/STPROCINS/PROD_VER_EQUATES.txt b/LSL2/STPROCINS/PROD_VER_EQUATES.txt new file mode 100644 index 0000000..4e10b95 --- /dev/null +++ b/LSL2/STPROCINS/PROD_VER_EQUATES.txt @@ -0,0 +1,51 @@ +compile insert PROD_VER_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 19/07/2011 + Description : Insert for Table PROD_VER +----------------------------------------*/ + + +Equ PROD_VER_PROD_VER_NO$ To 0 +Equ PROD_VER_DESC$ To 1 +Equ PROD_VER_EPI_PART_NO$ To 2 +Equ PROD_VER_PROC_STEP_NO$ To 3 +Equ PROD_VER_PROC_STEP_PSN$ To 4 +Equ PROD_VER_PROC_STEP_DESC$ To 6 +Equ PROD_VER_REACT_TYPE$ To 7 +Equ PROD_VER_REACT_OVERHEAD$ To 8 +Equ PROD_VER_CUST_NO$ To 11 +Equ PROD_VER_CUST_PART_NO$ To 12 +Equ PROD_VER_CUST_PART_DESC$ To 13 +Equ PROD_VER_CUST_PART_NO_INCOMING$ To 14 +Equ PROD_VER_SUB_PART_NO$ To 15 +Equ PROD_VER_SUB_PART_REV$ To 16 +Equ PROD_VER_SUB_SUPPLIER$ To 17 +Equ PROD_VER_SUB_COST$ To 19 +Equ PROD_VER_ENGINEERING_PART$ To 20 +Equ PROD_VER_SPEC_PROCESSING$ To 21 +Equ PROD_VER_ORD_DET_KEY$ To 22 +Equ PROD_VER_PROC_LEAD_TIME$ To 23 +Equ PROD_VER_CYCLE_TIME$ To 24 +Equ PROD_VER_PRE_EPI_TIME$ To 25 +Equ PROD_VER_FAB_TIME$ To 26 +Equ PROD_VER_POST_TIME$ To 27 +Equ PROD_VER_SUB_PURCH_SPEC$ To 28 +Equ PROD_VER_SUB_PURCH_SPEC_REV$ To 29 +Equ PROD_VER_PART_YIELD$ To 30 +Equ PROD_VER_WO_SIZE_MIN$ To 31 +Equ PROD_VER_WO_SIZE_MAX$ To 32 +Equ PROD_VER_STATUS$ To 33 +Equ PROD_VER_SUB_CUST_SUPP$ To 34 +Equ PROD_VER_CREATE_DTM$ To 35 +Equ PROD_VER_CREATE_BY$ To 36 +Equ PROD_VER_PROD_VER_VER$ To 51 +Equ PROD_VER_RET_REJECTS$ To 52 +Equ PROD_VER_CASS_SHIP_QTY$ To 53 +Equ PROD_VER_EPI_PRO_SHIP_SHORT$ To 54 +Equ PROD_VER_XSAP_MAT_TYPE$ To 55 +Equ PROD_VER_CUST_PART_REV$ To 56 +Equ PROD_VER_QUAL_REACTS$ To 57 +Equ PROD_VER_BLOCKED_REACTS$ To 58 +Equ PROD_VER_SCHED_NOTES$ To 59 +Equ PROD_VER_REMARKS$ To 60 diff --git a/LSL2/STPROCINS/PRS_INSTRUCTION_EQU.txt b/LSL2/STPROCINS/PRS_INSTRUCTION_EQU.txt new file mode 100644 index 0000000..ade2b3c --- /dev/null +++ b/LSL2/STPROCINS/PRS_INSTRUCTION_EQU.txt @@ -0,0 +1,25 @@ +COMPILE INSERT PRS_INSTRUCTION_EQU + +* Equates for PRS_INSTRUCTION table + +EQU PRS_INST_PRE_EPI$ TO 1 +EQU PRS_INST_PRE_EPI_INST$ TO 2 +EQU PRS_INST_LOAD$ TO 3 +EQU PRS_INST_LOAD_INST$ TO 4 +EQU PRS_INST_FIRST$ TO 5 +EQU PRS_INST_FIRST_INST$ TO 6 +EQU PRS_INST_UNLOAD$ TO 7 +EQU PRS_INST_UNLOAD_INST$ TO 8 +EQU PRS_INST_POST_EPI$ TO 9 +EQU PRS_INST_POST_EPI_INST$ TO 10 +EQU PRS_INST_FINAL$ TO 11 +EQU PRS_INST_FINAL_INST$ TO 12 +EQU PRS_INST_RQ_INS_OBS$ TO 13 +EQU PRS_INST_RQ_SPECIAL$ TO 14 +EQU PRS_INST_RQ_EXP_PLAN$ TO 15 +EQU PRS_INST_RQ_RESULTS$ TO 16 +EQU PRS_INST_PRE_INS_OBS$ TO 17 +EQU PRS_INST_PRE_SPECIAL$ TO 18 +EQU PRS_INST_PRE_PROVEIN$ TO 19 +EQU PRS_INST_PROC_SPECIAL$ TO 20 +EQU PRS_INST_PROC_PROVEIN$ TO 21 diff --git a/LSL2/STPROCINS/PRS_LAYER_EQU.txt b/LSL2/STPROCINS/PRS_LAYER_EQU.txt new file mode 100644 index 0000000..b950480 --- /dev/null +++ b/LSL2/STPROCINS/PRS_LAYER_EQU.txt @@ -0,0 +1,49 @@ +COMPILE Insert PRS_LAYER_EQU + +* Equates for PRS_LAYER table + + +EQU PRS_LAYER_DOPANT$ TO 1 +EQU PRS_LAYER_RECIPE$ TO 2 +EQU PRS_LAYER_RECIPE_NAME$ TO 3 +EQU PRS_LAYER_CONC_MIN$ TO 4 +EQU PRS_LAYER_CONC_MAX$ TO 5 +EQU PRS_LAYER_CONC_UNITS$ TO 6 +EQU PRS_LAYER_CONC_MEASUREMENT$ TO 7 +EQU PRS_LAYER_RES_MIN$ TO 8 +EQU PRS_LAYER_RES_MAX$ TO 9 +EQU PRS_LAYER_RES_UNITS$ TO 10 +EQU PRS_LAYER_RES_MEASUREMENT$ TO 11 +EQU PRS_LAYER_THICK_MIN$ TO 12 +EQU PRS_LAYER_THICK_MAX$ TO 13 +EQU PRS_LAYER_THICK_UNITS$ TO 14 +EQU PRS_LAYER_THICK_MEASUREMENT$ TO 15 +EQU PRS_LAYER_STRESS_MIN$ TO 16 +EQU PRS_LAYER_STRESS_MAX$ TO 17 +EQU PRS_LAYER_STRESS_MEASUREMENT$ TO 18 +EQU PRS_LAYER_TRANS_SPEC$ TO 19 +EQU PRS_LAYER_TRANS_MEASUREMENT$ TO 20 +EQU PRS_LAYER_CRES_MIN$ TO 21 +EQU PRS_LAYER_CRES_MAX$ TO 22 +EQU PRS_LAYER_CRES_UNITS$ TO 23 +EQU PRS_LAYER_CRES_MEASUREMENT$ TO 24 +EQU PRS_LAYER_CRES_PHASE_MIN$ TO 25 + +EQU PRS_LAYER_CONC_TARGET$ TO 30 ;* These fields are used when returning data from obj_Prod_Spec +EQU PRS_LAYER_RES_TARGET$ TO 31 +EQU PRS_LAYER_THICK_TARGET$ TO 32 +EQU PRS_LAYER_STRESS_TARGET$ TO 33 +EQU PRS_LAYER_CRES_TARGET$ TO 34 + + +EQU PRS_MTOOL$ TO 1 +EQU PRS_MTYPE$ TO 2 +EQU PRS_MRECIPE$ TO 3 +EQU PRS_MFREQ$ TO 4 +EQU PRS_MPROVEIN$ TO 5 +EQU PRS_MFIRST$ TO 6 +EQU PRS_MLAST$ TO 7 +EQU PRS_MSPC$ TO 8 +EQU PRS_MOVERGROW$ TO 9 +EQU PRS_MEXP_TW_QTY$ TO 10 +EQU PRS_MPATTERN$ TO 11 diff --git a/LSL2/STPROCINS/PRS_LAYER_EQUATES.txt b/LSL2/STPROCINS/PRS_LAYER_EQUATES.txt new file mode 100644 index 0000000..4de5148 --- /dev/null +++ b/LSL2/STPROCINS/PRS_LAYER_EQUATES.txt @@ -0,0 +1,14 @@ +compile insert PRS_LAYER_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 21/05/2014 + Description : Insert for Table PRS_LAYER +----------------------------------------*/ + + +Equ PRS_LAYER_LAYER_NO$ To 0 +Equ PRS_LAYER_PS_NO$ To 0 +Equ PRS_LAYER_LS_ID$ To 1 +Equ PRS_LAYER_LAYER_TYPE$ To 2 +Equ PRS_LAYER_RECIPE_ID$ To 3 +Equ PRS_LAYER_PRS_PROP_KEY$ To 5 diff --git a/LSL2/STPROCINS/PRS_PROP_EQUATES.txt b/LSL2/STPROCINS/PRS_PROP_EQUATES.txt new file mode 100644 index 0000000..c8a9548 --- /dev/null +++ b/LSL2/STPROCINS/PRS_PROP_EQUATES.txt @@ -0,0 +1,54 @@ +compile insert PRS_PROP_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 16/04/2015 + Description : Insert for Table PRS_PROP +----------------------------------------*/ + +Equ PRS_PROP_PS_NO$ To 0.1 +Equ PRS_PROP_LAYER_NO$ To 0.2 +Equ PRS_PROP_PROP_CD$ To 0.3 +Equ PRS_PROP_RAW_MIN$ To 2 +Equ PRS_PROP_RAW_MAX$ To 3 +Equ PRS_PROP_UNITS_ORG$ To 4 +Equ PRS_PROP_TOOL$ To 5 +Equ PRS_PROP_MET_WFR_TYPE$ To 6 +Equ PRS_PROP_MET_RECIPE$ To 7 +Equ PRS_PROP_RECIPE$ To 7 +Equ PRS_PROP_FREQ$ To 8 +Equ PRS_PROP_PROVEIN_WFR_TYPE$ To 9 +Equ PRS_PROP_FIRST$ To 10 +Equ PRS_PROP_LAST$ To 11 +Equ PRS_PROP_SPC$ To 12 +Equ PRS_PROP_OVERGROW$ To 13 +Equ PRS_PROP_EXP_TW_QTY$ To 14 +Equ PRS_PROP_MET_RECIPE_PATTERN$ To 15 +Equ PRS_PROP_PATTERN$ To 15 +Equ PRS_PROP_MET_INTERVAL$ To 16 +Equ PRS_PROP_MET_START$ To 17 +Equ PRS_PROP_MET_SLOT$ To 18 +Equ PRS_PROP_PHASE_MIN$ To 19 + + + + + +EQU PRS_PROP_MTOOL$ TO 1 ;* Used with obj_PRS_Prop('GetMeasure' to return Measurement groups to data PROD_SPEC dictionary +EQU PRS_PROP_MTYPE$ TO 2 +EQU PRS_PROP_MRECIPE$ TO 3 +EQU PRS_PROP_MFREQ$ TO 4 +EQU PRS_PROP_MPROVEIN$ TO 5 +EQU PRS_PROP_MFIRST$ TO 6 +EQU PRS_PROP_MLAST$ TO 7 +EQU PRS_PROP_MSPC$ TO 8 +EQU PRS_PROP_MOVERGROW$ TO 9 +EQU PRS_PROP_MEXP_TW_QTY$ TO 10 +EQU PRS_PROP_MPATTERN$ TO 11 +EQU PRS_PROP_MINTERVAL TO 12 ;* New Interval field used on the new side +EQU PRS_PROP_MSTART TO 13 ;* Starting Cass + +/* + +obj_PRS_Prop('GetMinTarMax',@ID:@RM:@RECORD) returns 3 values OCONV'd and @FM separated. + +*/ diff --git a/LSL2/STPROCINS/PRS_REACTOR_EQU.txt b/LSL2/STPROCINS/PRS_REACTOR_EQU.txt new file mode 100644 index 0000000..955e74f --- /dev/null +++ b/LSL2/STPROCINS/PRS_REACTOR_EQU.txt @@ -0,0 +1,15 @@ +COMPILE INSERT PRS_REACTOR_EQU + +* Equates for PRS_REACTOR table + +EQU PRS_REACTOR_REACTOR_TYPE$ TO 1 +EQU PRS_REACTOR_QUAL_REACTOR$ TO 2 +EQU PRS_REACTOR_WAND_RESTRICTOR$ TO 3 +EQU PRS_REACTOR_SUSCEPTOR_TYPE$ TO 4 +EQU PRS_REACTOR_TUBE_PRESS_TYPE$ TO 5 +EQU PRS_REACTOR_MON_WAFER_LABEL$ TO 6 +EQU PRS_REACTOR_RATIOS$ TO 7 +EQU PRS_REACTOR_LW_SHEET_RHO_MIN$ TO 8 +EQU PRS_REACTOR_LW_SHEET_RHO_MAX$ TO 9 +EQU PRS_REACTOR_MIN_PER_WAFER$ TO 10 + diff --git a/LSL2/STPROCINS/PRS_SHIPPING_EQU.txt b/LSL2/STPROCINS/PRS_SHIPPING_EQU.txt new file mode 100644 index 0000000..062cf7f --- /dev/null +++ b/LSL2/STPROCINS/PRS_SHIPPING_EQU.txt @@ -0,0 +1,17 @@ +COMPILE INSERT PRS_SHIPPING_EQU + +* Equates for PRS_SHIPPING table + +EQU PRS_SHIP_BILL_INST$ TO 1 +EQU PRS_SHIP_SHIP_INST$ TO 2 +EQU PRS_SHIP_CUST_RDS$ TO 3 +EQU PRS_SHIP_COC_FRONT_QTY$ TO 4 +EQU PRS_SHIP_COC_BACK_QTY$ TO 5 +EQU PRS_SHIP_NCR_REJ_QTY$ TO 6 +EQU PRS_SHIP_PARTIAL$ TO 7 +EQU PRS_SHIP_FULL_TYPE$ TO 8 +EQU PRS_SHIP_BAG_REQ$ TO 9 +EQU PRS_SHIP_EMAIL_NOTIFY$ TO 10 +EQU PRS_SHIP_TEST_RESULTS$ TO 11 + + diff --git a/LSL2/STPROCINS/PRS_SIG_EQUATES.txt b/LSL2/STPROCINS/PRS_SIG_EQUATES.txt new file mode 100644 index 0000000..7ca2d82 --- /dev/null +++ b/LSL2/STPROCINS/PRS_SIG_EQUATES.txt @@ -0,0 +1,12 @@ +compile insert PRS_SIG_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 28/04/2016 + Description : Insert for Table PRS_SIG +----------------------------------------*/ + + +Equ PRS_SIG_PS_NO$ To 0 +Equ PRS_SIG_SIG_STAGE$ To 0 +Equ PRS_SIG_TOOL_CLASS$ To 1 +Equ PRS_SIG_ACTION$ To 2 diff --git a/LSL2/STPROCINS/PRS_STAGE_EQUATES.txt b/LSL2/STPROCINS/PRS_STAGE_EQUATES.txt new file mode 100644 index 0000000..41fbaf6 --- /dev/null +++ b/LSL2/STPROCINS/PRS_STAGE_EQUATES.txt @@ -0,0 +1,60 @@ +compile insert PRS_STAGE_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 07/07/2016 + Description : Insert for Table PRS_STAGE +----------------------------------------*/ + + +Equ PRS_STAGE_PS_NO$ To 0 +Equ PRS_STAGE_STAGE$ To 0 +Equ PRS_STAGE_INST$ To 1 +Equ PRS_STAGE_BRIGHTLIGHT$ To 2 +Equ PRS_STAGE_MICROSCOPE$ To 3 +Equ PRS_STAGE_SURFSCAN_SIG_REQ$ To 4 +Equ PRS_STAGE_SURFSCAN_RECIPE$ To 5 +Equ PRS_STAGE_CLEAN_SUBOXIDE$ To 6 +Equ PRS_STAGE_CLEAN_OXIDE_ANGSTROMS$ To 7 +Equ PRS_STAGE_CLEAN_TOOL$ To 8 +Equ PRS_STAGE_CLEAN_RECIPE$ To 9 +Equ PRS_STAGE_SURF_HAZE$ To 10 +Equ PRS_STAGE_SURF_DEFECTS$ To 11 +Equ PRS_STAGE_PITS$ To 12 +Equ PRS_STAGE_MOUNDS$ To 13 +Equ PRS_STAGE_BL_DEFECTS$ To 14 +Equ PRS_STAGE_SPOTS$ To 15 +Equ PRS_STAGE_FOV$ To 16 +Equ PRS_STAGE_SCRATCHES$ To 17 +Equ PRS_STAGE_SCRATCH_LEN$ To 18 +Equ PRS_STAGE_LPD$ To 19 +Equ PRS_STAGE_STACK_FAULTS$ To 20 +Equ PRS_STAGE_SPIKES$ To 21 +Equ PRS_STAGE_FWI_LWI$ To 22 +Equ PRS_STAGE_SS_SAMP_QTY$ To 23 +Equ PRS_STAGE_CLEAN_SIG_REQ$ To 24 +Equ PRS_STAGE_INSP_SIG_REQ$ To 25 +Equ PRS_STAGE_BSIDE_SCRATCHES$ To 26 +Equ PRS_STAGE_BSIDE_SCRATCH_LEN$ To 27 +Equ PRS_STAGE_BSIDE_NODULES$ To 28 +Equ PRS_STAGE_BSIDE_SPIKES$ To 29 +Equ PRS_STAGE_MET_TEST$ To 30 +Equ PRS_STAGE_MET_INTERVAL$ To 31 +Equ PRS_STAGE_MET_START$ To 32 +Equ PRS_STAGE_MET_SLOT$ To 33 +Equ PRS_STAGE_MET_MIN$ To 34 +Equ PRS_STAGE_MET_MAX$ To 35 +Equ PRS_STAGE_MET_RECIPE$ To 36 +Equ PRS_STAGE_MET_RECIPE_PATTERN$ To 37 +Equ PRS_STAGE_MET_PROP$ To 38 +Equ PRS_STAGE_MET_TOOL_CLASS$ To 39 +Equ PRS_STAGE_MET_REACT_SCHED$ To 40 +Equ PRS_STAGE_MET_WFR_TYPE$ To 41 +Equ PRS_STAGE_MET_WFR_QTY$ To 42 +Equ PRS_STAGE_MET_SHIP_DOC$ To 43 +Equ PRS_STAGE_PROC_TOOL_CLASS$ To 44 +Equ PRS_STAGE_PROC_INV_ACTION$ To 45 +Equ PRS_STAGE_PROC_INV_SIG_REQ$ To 46 +Equ PRS_STAGE_SHIP_WFR_GRADE$ To 47 +Equ PRS_STAGE_MET_PHASE_MIN$ To 48 +Equ PRS_STAGE_INSP_INTERVAL$ To 49 +Equ PRS_STAGE_EDGE$ To 50 diff --git a/LSL2/STPROCINS/PRS_SUBSTRATE_EQU.txt b/LSL2/STPROCINS/PRS_SUBSTRATE_EQU.txt new file mode 100644 index 0000000..c3691b8 --- /dev/null +++ b/LSL2/STPROCINS/PRS_SUBSTRATE_EQU.txt @@ -0,0 +1,26 @@ +COMPILE INSERT PRS_SUBSTRATE_EQU + +* Equates for PRS_SUBSTRATE table + +EQU PRS_SUBSTRATE_WAFER_TYPE$ TO 1 +EQU PRS_SUBSTRATE_WAFER_SIZE$ TO 2 + +EQU PRS_SUBSTRATE_WAFER_SUP_BY$ TO 4 +EQU PRS_SUBSTRATE_ORIENTATION$ TO 5 +EQU PRS_SUBSTRATE_RESISTIVITY$ TO 6 +EQU PRS_SUBSTRATE_RES_UNITS$ TO 7 +EQU PRS_SUBSTRATE_DOPANT$ TO 8 +EQU PRS_SUBSTRATE_PRE_CLEAN$ TO 9 +EQU PRS_SUBSTRATE_POST_CLEAN$ TO 10 +EQU PRS_SUBSTRATE_OXIDE_STRIP$ TO 11 +EQU PRS_SUBSTRATE_OXIDE_ANGSTROMS$ TO 12 +EQU PRS_SUBSTRATE_SUBSTRATE$ TO 13 +EQU PRS_SUBSTRATE_BACK_SEAL$ TO 14 +EQU PRS_SUBSTRATE_BL_DOPANT$ TO 15 +EQU PRS_SUBSTRATE_INSTRUCTIONS$ TO 16 +EQU PRS_SUBSTRATE_SPEC_TYPE$ TO 17 +EQU PRS_SUBSTRATE_POLISH$ TO 18 +EQU PRS_SUBSTRATE_PRODUCT$ TO 19 +EQU PRS_SUBSTRATE_PRE_AKRION_RECIPE$ TO 20 +EQU PRS_SUBSTRATE_POST_AKRION_RECIPE$ TO 21 + diff --git a/LSL2/STPROCINS/PRS_SURFACE_EQU.txt b/LSL2/STPROCINS/PRS_SURFACE_EQU.txt new file mode 100644 index 0000000..721c792 --- /dev/null +++ b/LSL2/STPROCINS/PRS_SURFACE_EQU.txt @@ -0,0 +1,23 @@ +COMPILE Insert PRS_SURFACE_EQU + +* Equates for PRS_SURFACE table + + +EQU PRS_SURFACE_PITS$ TO 1 +EQU PRS_SURFACE_MOUNDS$ TO 2 +EQU PRS_SURFACE_BL_DEFECTS$ TO 3 +EQU PRS_SURFACE_SPOTS$ TO 4 +EQU PRS_SURFACE_FOV$ TO 5 +EQU PRS_SURFACE_SCRATCHES$ TO 6 +EQU PRS_SURFACE_SCRATCH_LEN$ TO 7 +EQU PRS_SURFACE_LPD$ TO 8 +EQU PRS_SURFACE_STACK_FAULTS$ TO 9 +EQU PRS_SURFACE_SPIKES$ TO 10 +EQU PRS_SURFACE_BRIGHTLIGHT$ TO 11 +EQU PRS_SURFACE_SURFSCAN$ TO 12 +EQU PRS_SURFACE_MICROSCOPE$ TO 13 +EQU PRS_SURFACE_SURFSCAN_RECIPE$ TO 14 +EQU PRS_SURFACE_SURF_DEFECTS$ TO 15 +EQU PRS_SURFACE_SURF_HAZE$ TO 16 + + diff --git a/LSL2/STPROCINS/PR_SPEC_EQU.txt b/LSL2/STPROCINS/PR_SPEC_EQU.txt new file mode 100644 index 0000000..df58e0a --- /dev/null +++ b/LSL2/STPROCINS/PR_SPEC_EQU.txt @@ -0,0 +1,39 @@ +COMPILE Insert PR_SPEC_EQU + +* Equates for PR_SPEC table + + +EQU PR_SPEC_ENTER_BY$ TO 1 +EQU PR_SPEC_ENTER_DT$ TO 2 +EQU PR_SPEC_ACT_STATUS$ TO 3 +EQU PR_SPEC_CUST_NO$ TO 4 +EQU PR_SPEC_CUST_SPEC$ TO 5 +EQU PR_SPEC_CUST_SPEC_HARDCOPY$ TO 6 +EQU PR_SPEC_CUST_SPEC_REV$ TO 7 +EQU PR_SPEC_CUST_SPEC_REV_DT$ TO 8 +EQU PR_SPEC_CUST_PART_NO$ TO 9 +EQU PR_SPEC_MOD_DESC$ TO 10 +EQU PR_SPEC_MOD_BY$ TO 11 +EQU PR_SPEC_MOD_DTM$ TO 12 +EQU PR_SPEC_LAYER_TYPE$ TO 13 +EQU PR_SPEC_SUPPLIER_CD$ TO 14 +EQU PR_SPEC_GENERIC_RECIPE$ TO 15 +EQU PR_SPEC_CUST_SVC_NOTES$ TO 16 +EQU PR_SPEC_SCHED_NOTES$ TO 17 +EQU PR_SPEC_WAFER_PART_NO$ TO 18 +EQU PR_SPEC_WAFER_MFG$ TO 19 +EQU PR_SPEC_SCANNED_IMG_PATH$ TO 20 +EQU PR_SPEC_LAYER_KEYS$ TO 21 +EQU PR_SPEC_SURFACE_KEYS$ TO 22 +EQU PR_SPEC_PREQUAL_SIG$ TO 23 +EQU PR_SPEC_PREQUAL_DTM$ TO 24 +EQU PR_SPEC_QUAL_SIG$ TO 25 +EQU PR_SPEC_QUAL_DTM$ TO 26 +EQU PR_SPEC_PREPROD_SIG$ TO 27 +EQU PR_SPEC_PREPROD_DTM$ TO 28 +EQU PR_SPEC_PROD_SIG$ TO 29 +EQU PR_SPEC_PROD_DTM$ TO 30 +EQU PR_SPEC_SURF_SPEC_NOTES$ TO 31 + + + diff --git a/LSL2/STPROCINS/PURCH_SPEC_EQUATES.txt b/LSL2/STPROCINS/PURCH_SPEC_EQUATES.txt new file mode 100644 index 0000000..1358909 --- /dev/null +++ b/LSL2/STPROCINS/PURCH_SPEC_EQUATES.txt @@ -0,0 +1,15 @@ +compile insert PURCH_SPEC_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 07/10/2010 + Description : Insert for Table PURCH_SPEC +----------------------------------------*/ + + +Equ PURCH_SPEC_SPEC_NO$ To 0 +Equ PURCH_SPEC_SPEC_REV$ To 1 +Equ PURCH_SPEC_WFR_SIZE$ To 2 +Equ PURCH_SPEC_DESC$ To 3 +Equ PURCH_SPEC_VERSION$ To 4 +Equ PURCH_SPEC_MODIFY_DTM$ To 5 +Equ PURCH_SPEC_CREATE_DTM$ To 6 diff --git a/LSL2/STPROCINS/P_NAMES_EQU.txt b/LSL2/STPROCINS/P_NAMES_EQU.txt new file mode 100644 index 0000000..8646344 --- /dev/null +++ b/LSL2/STPROCINS/P_NAMES_EQU.txt @@ -0,0 +1,15 @@ +* Equates for P_NAMES created on 05/08/95 07:16AM + +equ P_NAMES_SALUTATION$ to 1 +equ P_NAMES_FIRST$ to 2 +equ P_NAMES_LAST$ to 3 +equ P_NAMES_TITLE$ to 4 +equ P_NAMES_PHONE$ to 6 +equ P_NAMES_PHONE_TYPES$ to 7 +equ P_NAMES_PHONE_EXT$ to 8 +equ P_NAMES_INTL_PHONE$ to 9 +equ P_NAMES_INTL_PHONE_TYPES$ to 10 +equ P_NAMES_INTL_PHONE_EXT$ to 11 +equ P_NAMES_COMMENTS$ to 12 +equ P_NAMES_ENTRY_ID$ to 14 +equ P_NAMES_ENTRY_DATE$ to 15 diff --git a/LSL2/STPROCINS/QA_MET_EQUATES.txt b/LSL2/STPROCINS/QA_MET_EQUATES.txt new file mode 100644 index 0000000..666a750 --- /dev/null +++ b/LSL2/STPROCINS/QA_MET_EQUATES.txt @@ -0,0 +1,30 @@ +compile insert QA_MET_EQUATES + +/*-------------------------------------------------- + Author : J.C. Henry + Written : 5/21/2015 + Description : Used with obj_Prod_Spec('GetQAMet' + routine for returned data structure +----------------------------------------------------*/ + +EQU COL$QA_MET_STAGE TO 1 +EQU COL$QA_MET_TEST TO 2 +EQU COL$QA_MET_PROP TO 3 +EQU COL$QA_MET_TOOL_CLASS TO 4 +EQU COL$QA_MET_RECIPE TO 5 +EQU COL$QA_MET_RECIPE_PATTERN TO 6 +EQU COL$QA_MET_MIN TO 7 +EQU COL$QA_MET_MAX TO 8 +EQU COL$QA_MET_SLOT TO 9 +EQU COL$QA_MET_REACT_SCHED TO 10 +EQU COL$QA_MET_INTERVAL TO 11 +EQU COL$QA_MET_START TO 12 +EQU COL$QA_MET_SEQUENCE TO 13 +EQU COL$QA_MET_WFR_QTY TO 14 +EQU COL$QA_MET_WFR_TYPE TO 15 +EQU COL$QA_MET_SHIP_DOC TO 16 +EQU COL$QA_MET_PHASE_MIN TO 17 + + + + diff --git a/LSL2/STPROCINS/QUARTZ_TC_LOG_EQU.txt b/LSL2/STPROCINS/QUARTZ_TC_LOG_EQU.txt new file mode 100644 index 0000000..b3edfcb --- /dev/null +++ b/LSL2/STPROCINS/QUARTZ_TC_LOG_EQU.txt @@ -0,0 +1,14 @@ +* Equates for QUARTZ_TC_LOG created on 01/12/01 02:39PM + +equ QUARTZ_TC_LOG_ENTRY_ID$ to 1 +equ QUARTZ_TC_LOG_ENTRY_DATE$ to 2 +equ QUARTZ_TC_LOG_ENTRY_TIME$ to 3 +equ QUARTZ_TC_LOG_REACTOR$ to 4 +equ QUARTZ_TC_LOG_REPLACED_ALL$ to 5 +equ QUARTZ_TC_LOG_SCHEDULED$ to 7 +equ QUARTZ_TC_LOG_NOTES$ to 8 +equ QUARTZ_TC_LOG_REPLACED_FRONT$ to 9 +equ QUARTZ_TC_LOG_REPLACED_SIDE$ to 10 +equ QUARTZ_TC_LOG_REPLACED_REAR$ to 11 +equ QUARTZ_TC_LOG_REPLACED_CENTER$ to 12 +equ QUARTZ_TC_LOG_TC_HOURS$ to 13 diff --git a/LSL2/STPROCINS/QUOTE_DET_EQU.txt b/LSL2/STPROCINS/QUOTE_DET_EQU.txt new file mode 100644 index 0000000..b36f5a4 --- /dev/null +++ b/LSL2/STPROCINS/QUOTE_DET_EQU.txt @@ -0,0 +1,13 @@ +COMPILE INSERT QUOTE_DET_EQU + +EQU QUOTE_DET_DESC$ TO 1 +EQU QUOTE_DET_CHG_DESC$ TO 2 +EQU QUOTE_DET_CHG_SETUP$ TO 3 +EQU QUOTE_DET_CHG_SRP$ TO 4 +EQU QUOTE_DET_ITEM_NOTES$ TO 5 +EQU QUOTE_DET_CHG_QTY$ TO 6 +EQU QUOTE_DET_DELIV_DT$ TO 7 +EQU QUOTE_DET_PROC_STEP$ TO 8 +EQU QUOTE_DET_PROC_PSN$ TO 9 +EQU QUOTE_DET_PROC_DESC$ TO 10 +EQU QUOTE_DET_CHG_PRICE$ TO 11 diff --git a/LSL2/STPROCINS/QUOTE_EQU.txt b/LSL2/STPROCINS/QUOTE_EQU.txt new file mode 100644 index 0000000..fd93fbd --- /dev/null +++ b/LSL2/STPROCINS/QUOTE_EQU.txt @@ -0,0 +1,57 @@ +compile insert QUOTE_EQU +* Equates for QUOTE created on 10/12/99 09:45AM + +EQU QUOTE_CUST_NO$ TO 1 +EQU QUOTE_NAME_NO$ TO 2 +EQU QUOTE_FAX$ TO 3 +EQU QUOTE_IFAX$ TO 4 +EQU QUOTE_ENTRY_ID$ TO 5 +EQU QUOTE_ENTRY_DATE$ TO 6 +EQU QUOTE_PROD_SPEC_ID$ TO 7 +EQU QUOTE_REQ_QUOTE_NUM$ TO 8 +EQU QUOTE_TERMS$ TO 9 +EQU QUOTE_STATUS$ TO 10 +EQU QUOTE_EXP_DATE$ TO 11 +EQU QUOTE_DETAIL$ TO 13 +EQU QUOTE_SETUP_CHARGE$ TO 14 +EQU QUOTE_QUANTITY$ TO 15 +EQU QUOTE_PRICE$ TO 16 +EQU QUOTE_SIGNATURES$ TO 17 +EQU QUOTE_COMMENTS$ TO 18 +EQU QUOTE_SPEC_BILL_INST$ TO 19 +EQU QUOTE_SPEC_SHIP_INST$ TO 20 +EQU QUOTE_SRP_CHARGE$ TO 21 +EQU QUOTE_DELIV_DATE$ TO 22 +EQU QUOTE_FINAL_LAYER$ TO 23 +EQU QUOTE_INQUIRY_STATUS$ TO 24 +EQU QUOTE_SALES_COMMENTS$ TO 25 +EQU QUOTE_QUOTE_OLD_ID$ TO 26 +EQU QUOTE_PRIOR_QUOTE_ID$ TO 27 +EQU QUOTE_PREV_PROD_SPEC_IDS$ TO 28 +EQU QUOTE_QUOTE_TYPE$ TO 29 +EQU QUOTE_OTHER_FOB_POINT$ TO 30 +EQU QUOTE_EXP_DATE_WARN$ TO 31 +EQU QUOTE_PROC_STEP$ TO 32 +EQU QUOTE_PROC_STEP_PSN$ TO 33 +EQU QUOTE_PROC_STEP_DESC$ TO 34 +EQU QUOTE_QUOTE_DET_KEY$ TO 35 +EQU QUOTE_ED_CHANGE_DT$ TO 36 +EQU QUOTE_ED_CURR_EXP_DT$ TO 37 +EQU QUOTE_ED_NEW_EXP_DT$ TO 38 +EQU QUOTE_ED_CHANGE_BY$ TO 39 +EQU QUOTE_ED_COMMENTS$ TO 40 +EQU QUOTE_NOTES$ TO 41 +EQU QUOTE_PROC_DESC$ TO 42 +EQU QUOTE_LABEL_DESC$ TO 43 +EQU QUOTE_QUOTE_PART_NO$ TO 44 +EQU QUOTE_EPI_PART_NO$ TO 45 + +EQU QUOTE_VISION_BILL_TO_CUST_NO$ TO 46 +EQU QUOTE_COMM_INVOICE_UNIT_PRICE$ TO 47 +EQU QUOTE_COMM_INVOICE_REJ_UNIT_PRICE$ TO 48 +EQU QUOTE_COMM_INVOICE_ADD_ITEM_DESC$ TO 49 +EQU QUOTE_COMM_INVOICE_ADD_ITEM_QTY$ TO 50 +EQU QUOTE_COMM_INVOICE_ADD_ITEM_UNIT_PRICE$ TO 51 +EQU QUOTE_COMM_INVOICE_TEST_WFR_QTY$ TO 52 +EQU QUOTE_COMM_INVOICE_TEST_WFR_DESC$ TO 53 +EQU QUOTE_COMM_INVOICE_TEST_WFR_UNIT_PRICE$ TO 54 diff --git a/LSL2/STPROCINS/QUOTE_EQUATES.txt b/LSL2/STPROCINS/QUOTE_EQUATES.txt new file mode 100644 index 0000000..16f9d67 --- /dev/null +++ b/LSL2/STPROCINS/QUOTE_EQUATES.txt @@ -0,0 +1,62 @@ +compile insert QUOTE_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 16/11/2011 + Description : Insert for Table QUOTE +----------------------------------------*/ + + +Equ QUOTE_SEQ$ To 0 +Equ QUOTE_CUST_NO$ To 1 +Equ QUOTE_NAME_NO$ To 2 +Equ QUOTE_FAX$ To 3 +Equ QUOTE_IFAX$ To 4 +Equ QUOTE_ENTRY_ID$ To 5 +Equ QUOTE_ENTRY_DATE$ To 6 +Equ QUOTE_PROD_SPEC_ID$ To 7 +Equ QUOTE_REQ_QUOTE_NUM$ To 8 +Equ QUOTE_TERMS$ To 9 +Equ QUOTE_STATUS$ To 10 +Equ QUOTE_EXP_DATE$ To 11 +Equ QUOTE_DETAIL$ To 13 +Equ QUOTE_SETUP_CHARGE$ To 14 +Equ QUOTE_QUANTITY$ To 15 +Equ QUOTE_PRICE$ To 16 +Equ QUOTE_SIGNATURES$ To 17 +Equ QUOTE_COMMENTS$ To 18 +Equ QUOTE_SPEC_BILL_INST$ To 19 +Equ QUOTE_SPEC_SHIP_INST$ To 20 +Equ QUOTE_SRP_CHARGE$ To 21 +Equ QUOTE_DELIV_DATE$ To 22 +Equ QUOTE_FINAL_LAYER$ To 23 +Equ QUOTE_INQUIRY_STATUS$ To 24 +Equ QUOTE_SALES_COMMENTS$ To 25 +Equ QUOTE_QUOTE_OLD_ID$ To 26 +Equ QUOTE_PRIOR_QUOTE_ID$ To 27 +Equ QUOTE_PREV_PROD_SPEC_IDS$ To 28 +Equ QUOTE_QUOTE_TYPE$ To 29 +Equ QUOTE_OTHER_FOB_POINT$ To 30 +Equ QUOTE_EXP_DATE_WARN$ To 31 +Equ QUOTE_PROC_STEP_ORG$ To 32 +Equ QUOTE_PROC_STEP_PSN_ORG$ To 33 +Equ QUOTE_PROC_STEP_DESC_ORG$ To 34 +Equ QUOTE_ED_CHANGE_DT$ To 36 +Equ QUOTE_ED_CURR_EXP_DT$ To 37 +Equ QUOTE_ED_NEW_EXP_DT$ To 38 +Equ QUOTE_ED_CHANGE_BY$ To 39 +Equ QUOTE_ED_COMMENTS$ To 40 +Equ QUOTE_NOTES$ To 41 +Equ QUOTE_PROC_DESC$ To 42 +Equ QUOTE_LABEL_DESC$ To 43 +Equ QUOTE_QUOTE_PART_NO$ To 44 +Equ QUOTE_EPI_PART_NO_ORG$ To 45 +Equ QUOTE_VISION_BILL_TO_CUST_NO$ To 46 +Equ QUOTE_COMM_INVOICE_UNIT_PRICE$ To 47 +Equ QUOTE_COMM_INVOICE_REJ_UNIT_PRICE$ To 48 +Equ QUOTE_COMM_INVOICE_ADD_ITEM_DESC$ To 49 +Equ QUOTE_COMM_INVOICE_ADD_ITEM_QTY$ To 50 +Equ QUOTE_COMM_INVOICE_ADD_ITEM_UNIT_PRICE$ To 51 +Equ QUOTE_COMM_INVOICE_TEST_WFR_QTY$ To 52 +Equ QUOTE_COMM_INVOICE_TEST_WFR_DESC$ To 53 +Equ QUOTE_COMM_INVOICE_TEST_WFR_UNIT_PRICE$ To 54 +Equ QUOTE_PROD_VER_NO$ To 55 diff --git a/LSL2/STPROCINS/QUOTE_OLD_EQU.txt b/LSL2/STPROCINS/QUOTE_OLD_EQU.txt new file mode 100644 index 0000000..70554bb --- /dev/null +++ b/LSL2/STPROCINS/QUOTE_OLD_EQU.txt @@ -0,0 +1,23 @@ +compile insert QUOTE_OLD_EQU +* Equates for QUOTE_OLD created on 10/25/95 09:00AM + +equ QUOTE_CUST_NO$ to 1 +equ QUOTE_NAME_NO$ to 2 +equ QUOTE_FAX$ to 3 +equ QUOTE_IFAX$ to 4 +equ QUOTE_ENTRY_ID$ to 5 +equ QUOTE_ENTRY_DATE$ to 6 +equ QUOTE_SUPPLIED_BY$ to 7 +equ QUOTE_REQ_QUOTE_NUM$ to 8 +equ QUOTE_TERMS$ to 9 +equ QUOTE_STATUS$ to 10 +equ QUOTE_EXP_DATE$ to 11 +equ QUOTE_CUST_PART_NUM$ to 13 +equ QUOTE_SETUP_CHARGE$ to 14 +equ QUOTE_QUANTITY$ to 15 +equ QUOTE_PRICE$ to 16 +equ QUOTE_SIGNATURES$ to 17 +equ QUOTE_COMMENTS$ to 18 +equ QUOTE_SPEC_SUBSTRATE$ to 19 +equ QUOTE_SPEC_EPI$ to 20 +equ QUOTE_SRP_CHARGE$ to 21 diff --git a/LSL2/STPROCINS/QUOTE_OLD_SPEC_EQU.txt b/LSL2/STPROCINS/QUOTE_OLD_SPEC_EQU.txt new file mode 100644 index 0000000..8d48cf4 --- /dev/null +++ b/LSL2/STPROCINS/QUOTE_OLD_SPEC_EQU.txt @@ -0,0 +1,52 @@ +compile insert QUOTE_OLD_SPEC_EQU +* These are equates for the spec_substrate field in the quote table +* so they are the @vm positions. This is used when defining spec information +* for a particular quote + +equ QSSubOrientation$ to 1 +equ QSSubType$ to 2 +equ QSSubWafersize$ to 3 +equ QSSubResistivity$ to 4 +equ QSSubResUnits$ to 5 +equ QSSubDopant$ to 6 +equ QSSubPreClean$ to 7 +equ QSSubBl1Dopant$ to 8 +equ QSSubBl2Dopant$ to 9 +equ QSSubOxide$ to 10 +equ QSSubPostClean$ to 11 +equ QSSubResRadGrad$ to 12 +equ QSSubCarbon$ to 13 +equ QSSubDisDensity$ to 14 +equ QSSubInstructions$ to 15 +equ QSSubOtherSpecs$ to 16 + + +* now these are the equates for the spec_epi field in the quote table +* so they are the @vm positions. +equ QSEpiConcMinThick$ to 1 ;* could have @svm +equ QSEpiConcMaxThick$ to 2 ;* could have @svm +equ QSEpiConcUnits$ to 3 +equ QSEpiResMinThick$ to 4 +equ QSEpiResMaxThick$ to 5 +equ QSEpiResUnits$ to 6 +equ QSEpiMinThick$ to 7 +equ QSEpiMaxThick$ to 8 +equ QSEpiThickUnits$ to 9 +equ QSEpiDopant$ to 10 +equ QSEpiRecipe$ to 11 +equ QSEpiRecipeName$ to 12 +* it is these twelve values delimited by char(247) for each seperate +* reactor layer then char(245) and then as follows as @vm +equ QSOEpiThickMeasure$ to 1 +equ QSOEpiResMeasure$ to 2 +equ QSOEpiThickTol$ to 3 ;* from 3 - 13 can go +equ QSOEpiThickWWTol$ to 4 +equ QSOEpiResTol$ to 5 +equ QSOEpiResWWTol$ to 6 +equ QSOEpiDopTrans$ to 7 +equ QSOEpiLpDef$ to 8 +equ QSOEpiSlip$ to 9 +equ QSOEpiStackFaults$ to 10 +equ QSOEpiStress$ to 11 +equ QSOEpiEdgeCrown$ to 12 +equ QSOEpiMContam$ to 13 diff --git a/LSL2/STPROCINS/QUOTE_SIGS_EQU.txt b/LSL2/STPROCINS/QUOTE_SIGS_EQU.txt new file mode 100644 index 0000000..674d2ca --- /dev/null +++ b/LSL2/STPROCINS/QUOTE_SIGS_EQU.txt @@ -0,0 +1,70 @@ +compile insert QUOTE_SIGS_EQU +* equates for "CONFIG" "QUOTE_SIGS" which is also used for Customer Inquiries + +equ QuoteSigners$ to 1 +equ QSPasswords$ to 2 +equ NumQuoteSigs$ to 3 + +equ RefreshWOMatSigProf$ to 4 + +equ QuoteFaxUser$ to 5 + +*equ MastSchedNotifyEnd$ to 6 + +equ Shift1Sup$ to 7 + +equ Shift1QTL$ to 8 +EQU Shift1Lead$ TO 8 + +equ Shift2Sup$ to 9 +equ VipMfg$ to 10 +equ VipMfgPwd$ to 11 + +equ Shift2QTL$ to 12 +EQU Shift2Lead$ to 12 + +equ Shift3Sup$ to 13 + +equ Shift3QTL$ to 14 +equ Shift3Lead$ to 14 + +equ Shift4Sup$ to 15 +equ MktMgr$ to 16 +equ MktMgrPwd$ to 17 +equ ProdMgr$ to 18 +equ EngMgr$ to 19 +equ MaintMgr$ to 20 +equ FacilMgr$ to 21 +equ ShipMgr$ to 22 +equ TrainSpec$ to 23 + +equ Shift4QTL$ to 24 +EQU Shift4Lead$ to 24 + +equ PSNPreQualSigs$ to 25 +equ PSNQualSigs$ to 26 +equ PSNPreProdSigs$ to 27 +equ PSNProdSigs$ to 28 + +equ WaferShipNotif$ to 29 +equ ACReminder$ to 30 +equ ExpiredQuotesNotif$ to 31 +equ WOEntryNotif$ to 32 +equ InvoiceNotif$ to 33 +equ OrderNotif$ to 34 +equ RecipeNotif$ to 35 +equ F4PPOutSpecNotif$ to 36 +equ FTIROutSpecNotif$ to 37 +equ ADEOutSpecNotif$ to 38 + +equ MtlsMgr$ to 39 +equ ProdCtrlMgr$ to 40 +equ QualityMgr$ to 41 +equ EpiPROLead$ to 42 +equ ReEngSpec$ to 43 +equ MetMgr$ to 44 +equ QualityMgr2$ to 45 + +equ RcvMgr$ to 46 + + diff --git a/LSL2/STPROCINS/QUOTE_SPEC_EQU.txt b/LSL2/STPROCINS/QUOTE_SPEC_EQU.txt new file mode 100644 index 0000000..c9ec031 --- /dev/null +++ b/LSL2/STPROCINS/QUOTE_SPEC_EQU.txt @@ -0,0 +1,83 @@ +compile insert QUOTE_SPEC_EQU +* These are equates for the spec_substrate field in the prod_spec table +* so they are the @vm positions. This is used when defining spec information +* for a particular prod_spec + +equ QSSubOrientation$ to 1 +equ QSSubType$ to 2 +equ QSSubWafersize$ to 3 +equ QSSubResistivity$ to 4 +equ QSSubResUnits$ to 5 +equ QSSubDopant$ to 6 +equ QSSubPreClean$ to 7 +equ QSSubBl1Dopant$ to 8 +equ QSSubBl2Dopant$ to 9 +equ QSSubOxide$ to 10 +equ QSSubPostClean$ to 11 +equ QSSubBackseal$ to 12 +equ QSSubMfg$ to 13 ;* appears dead 2/8/2011 JCH (no data found) +equ QSSubSubstrate$ to 14 +equ QSSubInstructions$ to 15 +equ QSSubNotUsed$ to 16 +equ QSSubWafersSupBy$ to 17 +equ QSSubSpecType$ to 18 +equ QSSubPolish$ to 19 +equ QSSubProduct$ to 20 +equ QSSubBl3Dopant$ to 21 +equ QSSubOxideAngstroms$ to 22 +equ QSSubPreAkrionRecipe$ to 23 +equ QSSubPostAkrionRecipe$ to 24 +equ QSSubThickness to 25 + +* each reactor layer is delimited by char(248) +* now these are the equates for the spec_epi field in the prod_spec table +* so they are the @vm positions. + +equ QSEpiConcMinThick$ to 1 ;* could have @svm - No @SVM's found or used in data. Fixing code as found 1/16/2009 JCH +equ QSEpiConcMaxThick$ to 2 ;* could have @svm +equ QSEpiConcUnits$ to 3 +equ QSEpiResMinThick$ to 4 +equ QSEpiResMaxThick$ to 5 +equ QSEpiResUnits$ to 6 +equ QSEpiMinThick$ to 7 +equ QSEpiMaxThick$ to 8 +equ QSEpiThickUnits$ to 9 +equ QSEpiDopant$ to 10 +equ QSEpiRecipe$ to 11 +equ QSEpiRecipeName$ to 12 +equ QSEpiThickMeasure$ to 13 ;* Further delimited with '~' into tool,type,recipe,freq,provein,first,last,spc,overgrow,exp_tw_qty,pattern +equ QSEpiResMeasure$ to 14 ;* Further delimited with '~' into tool,type,recipe,freq,provein,first,last,spc,overgrow +equ QSEpiConcMeasure$ to 15 ;* Further delimited with '~' into tool,type,recipe,freq,provein,first,last,spc,overgrow +equ QSEpiCresMin$ to 16 ;* Added 1/16/2009 JCH - HgCv1 measured resistance for calculation of Concentration +equ QSEpiCresMax$ to 17 ;* Added 1/16/2009 JCH - HgCv1 measured resistance for calculation of Concentration +equ QSEpiCresUnits$ to 18 ;* Added 1/16/2009 JCH - HgCv1 measured resistance for calculation of Concentration +equ QSEpiCresMeasure$ to 19 ;* Added 1/16/2009 JCH - HgCv1 measured resistance for calculation of Concentration +equ QSEpiCresPhaseMin$ to 20 + +* These are equates for the spec_addtl field in the prod_spec table +* so they are the @vm positions. This is used when defining spec information +* for a particular prod_spec + +equ QSAddProveInInst$ to 1 ;* Changed on 8/22/2012 JCH +equ QSAddStressMeasure$ to 2 +equ QSAddTransMeasure$ to 3 +equ QSAddStressMin$ to 4 +equ QSAddStressMax$ to 5 +equ QSAddTransSpec$ to 6 + +* These are the equates for the spec_new_dev field in the prod_spec table +* so they are the @vm postions. This is used when defining spec as +* new development +equ QSNewDevInst$ to 1 +equ QSNewDevExpPlan$ to 2 +equ QSNewDevTestResults$ to 3 +equ QSNewDevSpecialInst$ to 4 + +* These are the equates for the spec_pre_prod field in the prod_spec table +* so they are the @vm postions. This is used when defining spec as +* new pre production +equ QSPreProdInst$ to 1 +equ QSPreProdSpecialInst$ to 2 +equ QSPreProdProveIn$ to 3 + + diff --git a/LSL2/STPROCINS/QUOTE_SRL_EQU.txt b/LSL2/STPROCINS/QUOTE_SRL_EQU.txt new file mode 100644 index 0000000..7fc462b --- /dev/null +++ b/LSL2/STPROCINS/QUOTE_SRL_EQU.txt @@ -0,0 +1,17 @@ +* Equates for QUOTE_SRL created on 12/21/95 01:39PM + +equ QUOTE_SRL_CUST_NO$ to 1 +equ QUOTE_SRL_NAME_NO$ to 2 +equ QUOTE_SRL_FAX$ to 3 +equ QUOTE_SRL_IFAX$ to 4 +equ QUOTE_SRL_ENTRY_ID$ to 5 +equ QUOTE_SRL_ENTRY_DATE$ to 6 +equ QUOTE_SRL_SUPPLIED_BY$ to 7 +equ QUOTE_SRL_REQ_QUOTE_NUM$ to 8 +equ QUOTE_SRL_TERMS$ to 9 +equ QUOTE_SRL_STATUS$ to 10 +equ QUOTE_SRL_EXP_DATE$ to 11 +equ QUOTE_SRL_COMMENTS$ to 12 +equ QUOTE_SRL_SPEC_SUBSTRATE$ to 13 +equ QUOTE_SRL_SPEC_EPI$ to 14 +equ QUOTE_SRL_QUOTE_DETAIL$ to 15 diff --git a/LSL2/STPROCINS/RDS_AUDIT_EQU.txt b/LSL2/STPROCINS/RDS_AUDIT_EQU.txt new file mode 100644 index 0000000..6dc3dd1 --- /dev/null +++ b/LSL2/STPROCINS/RDS_AUDIT_EQU.txt @@ -0,0 +1,7 @@ +Compile Insert RDS_AUDIT_EQU + +EQU RDS_AUDIT_FIELD_NO$ TO 1 +EQU RDS_AUDIT_USER_NAME$ TO 2 +EQU RDS_AUDIT_LAST_DTM$ TO 3 +EQU RDS_AUDIT_WINDOW$ TO 4 + diff --git a/LSL2/STPROCINS/RDS_AUDIT_EQUATES.txt b/LSL2/STPROCINS/RDS_AUDIT_EQUATES.txt new file mode 100644 index 0000000..9620bce --- /dev/null +++ b/LSL2/STPROCINS/RDS_AUDIT_EQUATES.txt @@ -0,0 +1,18 @@ +compile insert RDS_AUDIT_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 21/03/2013 + Description : Insert for Table RDS_AUDIT +----------------------------------------*/ + + +Equ RDS_AUDIT_RDS_NO$ To 0 +Equ RDS_AUDIT_FIELD_NO$ To 1 +Equ RDS_AUDIT_USER_NAME$ To 2 +Equ RDS_AUDIT_LAST_DTM$ To 3 +Equ RDS_AUDIT_WINDOW$ To 4 +Equ RDS_AUDIT_MOD_DTM$ To 5 +Equ RDS_AUDIT_MOD_FIELD$ To 6 +Equ RDS_AUDIT_MOD_USER$ To 7 +Equ RDS_AUDIT_ORG_VAL$ To 8 +Equ RDS_AUDIT_NEW_VAL$ To 9 diff --git a/LSL2/STPROCINS/RDS_EPILOAD.txt b/LSL2/STPROCINS/RDS_EPILOAD.txt new file mode 100644 index 0000000..0e96891 --- /dev/null +++ b/LSL2/STPROCINS/RDS_EPILOAD.txt @@ -0,0 +1,13 @@ +COMPILE Insert RDS_EpiLoad + +* Equates for Dialog_EpiLoad and Dialog_EpiUnload collectors + +EQU POCKET$ TO 1 +EQU POCKET_CHAR$ TO 2 +EQU ZONE$ TO 3 +EQU IN_CASS_NO$ TO 4 +EQU IN_SLOT_NO$ TO 5 +EQU OUT_CASS_NO$ TO 6 +EQU OUT_SLOT_NO$ TO 7 + + diff --git a/LSL2/STPROCINS/RDS_EQU.txt b/LSL2/STPROCINS/RDS_EQU.txt new file mode 100644 index 0000000..1d64c87 --- /dev/null +++ b/LSL2/STPROCINS/RDS_EQU.txt @@ -0,0 +1,284 @@ +compile insert RDS_EQU +* Equates for RDS created on 11/08/01 11:11AM + +equ RDS_QUOTE_NO$ to 1 +equ RDS_REACTOR$ to 2 +equ RDS_ENTRY_ID$ to 3 +equ RDS_ENTRY_DATE$ to 4 +equ RDS_SCHEDULE_NO$ to 5 +equ RDS_WO$ to 6 +equ RDS_ORDER_NO$ to 7 +equ RDS_PO$ to 8 +equ RDS_CUST_NO$ to 9 +equ RDS_PART_NUM$ to 10 +equ RDS_EPI_PRO_UNLOAD_DTM$ to 11 ;* 4/4/2008 JCH +equ RDS_LOT_NUM$ to 12 +equ RDS_POST_EPI_COMMENTS$ to 13 +equ RDS_REACT_IDLE_TIME$ to 14 +equ RDS_DCS_FLOW$ to 15 +equ RDS_EPI_H2_FLOW$ to 16 +equ RDS_AUX1$ to 17 +equ RDS_DOPANT_FLOW$ to 18 +equ RDS_AUX2$ to 19 +equ RDS_LPD_POST_PRECLEAN$ to 20 +equ RDS_PRE_PITS$ to 21 +equ RDS_PRE_MOUNDS$ to 22 +equ RDS_BAKE_TIME$ to 23 +equ RDS_PRE_SCRATCHES$ to 24 +equ RDS_PRE_SPOTS$ to 25 +equ RDS_PRE_FOV$ to 26 +equ RDS_PRE_BL_DEFECTS$ to 27 +equ RDS_TW_PMINUS_TRANS$ to 28 +equ RDS_PRE_EPI_COMMENTS$ to 29 +equ RDS_TW_PROD_RHO$ to 30 +equ RDS_SPECIAL_INST$ to 31 +equ RDS_COMMENTS$ to 32 +equ RDS_LAYER_INFO$ to 33 +equ RDS_STATUS$ to 34 +equ RDS_DATE_IN$ to 35 +equ RDS_DATE_OUT$ to 36 +equ RDS_TIME_IN$ to 37 +equ RDS_TIME_OUT$ to 38 +equ RDS_OPERATOR_IN$ to 39 +equ RDS_OPERATOR_OUT$ to 40 +equ RDS_WAFERS_IN$ to 41 +equ RDS_WAFERS_OUT$ to 42 ;* converting to calculated value JCH 10/20/2004 +equ RDS_LPD_PRECLEAN$ to 43 +equ RDS_LPD_FIRSTWAFER$ to 44 +equ RDS_LSL_PRE_EPI_REJ$ to 45 +equ RDS_CUST_PRE_EPI_REJ$ to 46 +equ RDS_LSL_POST_EPI_REJ$ to 47 +equ RDS_CUST_POST_EPI_REJ$ to 48 +equ RDS_THICK_MIN$ to 49 +equ RDS_THICK_TARGET$ to 50 +equ RDS_THICK_MAX$ to 51 +equ RDS_THICK_UNITS$ to 52 +equ RDS_RES_MIN$ to 53 +equ RDS_RES_TARGET$ to 54 +equ RDS_RES_MAX$ to 55 +equ RDS_RES_UNITS$ to 56 +equ RDS_CON_MIN$ to 57 +equ RDS_CON_TARGET$ to 58 +equ RDS_CON_MAX$ to 59 +equ RDS_CON_UNITS$ to 60 +equ RDS_THICK_READ$ to 61 +equ RDS_SHEETRHO_READ$ to 62 +equ RDS_TTHICK_AVG$ to 63 +equ RDS_TRES_AVG$ to 64 +equ RDS_TTHICK_STDEV$ to 65 +equ RDS_TTHICK_MAX$ to 66 +equ RDS_TRES_MAX$ to 67 +equ RDS_TTHICK_MIN$ to 68 +equ RDS_TRES_MIN$ to 69 +equ RDS_TTHICK_UNIF$ to 70 +equ RDS_TRES_UNIF$ to 71 +equ RDS_UNHOLD_OPERATOR$ to 72 +equ RDS_UNHOLD_DATE$ to 73 +equ RDS_UNHOLD_TIME$ to 74 +equ RDS_TRES_STDEV$ to 76 +equ RDS_TW_PPLUS_TRANS$ to 77 +equ RDS_VERIFY_QTY$ to 78 +equ RDS_TW_PROD_STRESS$ to 79 +equ RDS_QXJ_POST$ to 80 +equ RDS_TW_PROD$ to 81 +equ RDS_MOD_ID$ to 82 +equ RDS_MOD_DATE$ to 83 +equ RDS_QXJ_PRE$ to 84 +equ RDS_L_PRE_REJ_LOSS$ to 85 +equ RDS_L_POST_REJ_LOSS$ to 86 +equ RDS_C_PRE_REJ_LOSS$ to 87 +equ RDS_C_POST_REJ_LOSS$ to 88 +equ RDS_L_PRE_REJ_CNT$ to 89 +equ RDS_L_POST_REJ_CNT$ to 90 +equ RDS_C_PRE_REJ_CNT$ to 91 +equ RDS_C_POST_REJ_CNT$ to 92 +equ RDS_L_PRE_REJ_AC$ to 93 +equ RDS_L_POST_REJ_AC$ to 94 +equ RDS_C_PRE_REJ_AC$ to 95 +equ RDS_C_POST_REJ_AC$ to 96 +equ RDS_WAF_BACK_TO_INVENTORY$ to 97 +equ RDS_INJECTORS$ to 98 +equ RDS_F_OFFSET$ to 99 +equ RDS_S_OFFSET$ to 100 +equ RDS_R_OFFSET$ to 101 +equ RDS_TW_PPLUS$ to 102 +equ RDS_TW_PMINUS$ to 103 +equ RDS_TW_NPLUS$ to 104 +equ RDS_TW_NMINUS$ to 105 +equ RDS_TW_PPLUS_CODE$ to 106 +equ RDS_TW_PMINUS_CODE$ to 107 +equ RDS_TW_NPLUS_CODE$ to 108 +equ RDS_TW_NMINUS_CODE$ to 109 +equ RDS_TW_PPLUS_CNT$ to 110 +equ RDS_TW_PMINUS_CNT$ to 111 +equ RDS_TW_NPLUS_CNT$ to 112 +equ RDS_TW_NMINUS_CNT$ to 113 +equ RDS_PROD_SPEC_ID$ to 114 +equ RDS_L_PRE_REJ_NCR_IDS$ to 115 +equ RDS_L_POST_REJ_NCR_IDS$ to 116 +equ RDS_C_PRE_REJ_NCR_IDS$ to 117 +equ RDS_C_POST_REJ_NCR_IDS$ to 118 +equ RDS_WO_VERIFY_ID$ to 119 +equ RDS_POST_PITS$ to 120 +equ RDS_POST_MOUNDS$ to 121 +equ RDS_POST_STACK_FAULTS$ to 122 +equ RDS_POST_SPOTS$ to 123 +equ RDS_POST_FOV$ to 124 +equ RDS_POST_BL_DEFECTS$ to 125 +equ RDS_PRE_CODE$ to 126 +equ RDS_PRE_BOAT_ID$ to 127 +equ RDS_PRE_SRD_NUM$ to 128 +equ RDS_POST_CODE$ to 129 +equ RDS_POST_BOAT_ID$ to 130 +equ RDS_POST_SRD_NUM$ to 131 +equ RDS_PRE_EPI_SIG$ to 132 +equ RDS_PRE_EPI_SIG_DATE$ to 133 +equ RDS_PRE_EPI_SIG_TIME$ to 134 +equ RDS_FIRST_WAF_SIG$ to 135 +equ RDS_FIRST_WAF_SIG_DATE$ to 136 +equ RDS_FIRST_WAF_SIG_TIME$ to 137 +equ RDS_TW_NMINUS_RHO$ to 138 +equ RDS_TW_NPLUS_RHO$ to 139 +equ RDS_TW_PMINUS_RHO$ to 140 +equ RDS_TW_PPLUS_RHO$ to 141 +equ RDS_TW_PROD_TRANS$ to 142 +equ RDS_TW_NMINUS_TRANS$ to 143 +equ RDS_POST_EPI_SIG$ to 144 +equ RDS_POST_EPI_SIG_DATE$ to 145 +equ RDS_POST_EPI_SIG_TIME$ to 146 +equ RDS_SUP_VER_SIG$ to 147 +equ RDS_SUP_VER_SIG_DATE$ to 148 +equ RDS_SUP_VER_SIG_TIME$ to 149 + +EQU RDS_RDS_LAYER_KEYS$ TO 150 +equ RDS_UNLOAD_MOD_FIELD$ to 150 ;* Dead JCH 2/25/2006 + +equ RDS_UNLOAD_MOD_ID$ to 151 +equ RDS_TW_NPLUS_TRANS$ to 152 +equ RDS_LPD_POSTCLEAN$ to 153 +equ RDS_PRE_SCRATCH_LEN$ to 154 +equ RDS_POST_SPIKES$ to 155 +equ RDS_POST_SCRATCHES$ to 156 +equ RDS_POST_SCRATCH_LEN$ to 157 +equ RDS_PRE_EPI_MOD_FIELD$ to 158 +equ RDS_PRE_EPI_MOD_ID$ to 159 +equ RDS_POST_EPI_MOD_FIELD$ to 160 +equ RDS_POST_EPI_MOD_ID$ to 161 +equ RDS_FIRST_WAFER_MOD_FIELD$ to 162 +equ RDS_FIRST_WAFER_MOD_ID$ to 163 +equ RDS_TW_PROD_CODE$ to 164 +equ RDS_TW_PROD_CNT$ to 165 +equ RDS_TW_PPLUS_TOOL$ to 166 +equ RDS_TW_PMINUS_TOOL$ to 167 +equ RDS_TW_NPLUS_TOOL$ to 168 +equ RDS_TW_NMINUS_TOOL$ to 169 +equ RDS_TW_PROD_TOOL$ to 170 +equ RDS_TW_PPLUS_THICK$ to 171 +equ RDS_TW_PMINUS_THICK$ to 172 +equ RDS_TW_NPLUS_THICK$ to 173 +equ RDS_TW_NMINUS_THICK$ to 174 +equ RDS_TW_PROD_THICK$ to 175 +equ RDS_TW_PPLUS_RES$ to 176 +equ RDS_TW_PMINUS_RES$ to 177 +equ RDS_TW_NPLUS_RES$ to 178 +equ RDS_TW_NMINUS_RES$ to 179 +equ RDS_TW_PROD_RES$ to 180 +equ RDS_TW_PPLUS_CON$ to 181 +equ RDS_TW_PMINUS_CON$ to 182 +equ RDS_TW_NPLUS_CON$ to 183 +equ RDS_TW_NMINUS_CON$ to 184 +equ RDS_TW_PROD_CON$ to 185 +equ RDS_TW_PPLUS_STRESS$ to 186 +equ RDS_TW_PMINUS_STRESS$ to 187 +equ RDS_TW_NPLUS_STRESS$ to 188 +equ RDS_TW_NMINUS_STRESS$ to 189 +equ RDS_TUBE_ID$ to 190 +equ RDS_TUBE_GRADE$ to 191 +equ RDS_SUSCEPTOR_ID$ to 192 +equ RDS_SRP_PROFILE_PATH$ to 193 +equ RDS_HOLD_DESC$ to 194 +equ RDS_HOLD$ to 195 +equ RDS_HOLD_OPERATOR$ to 196 +equ RDS_HOLD_DATE$ to 197 +equ RDS_HOLD_TIME$ to 198 +equ RDS_UNHOLD_DESC$ to 199 +equ RDS_SUPPLEMENT$ to 200 +equ RDS_SUPPL_INST$ to 201 +equ RDS_SUPPL_ENTRY_ID$ to 202 +equ RDS_SUPPL_ENTRY_DATE$ to 203 +equ RDS_SUPPL_SIG$ to 204 +equ RDS_SUPPL_SIG_DATE$ to 205 +equ RDS_SUPPL_ENTRY_TIME$ to 206 +equ RDS_SUPPL_SIG_TIME$ to 207 +equ RDS_DILUENT_ADJ_PARAM$ to 208 +equ RDS_HCL_FLOW$ to 209 +equ RDS_STANDARD_T$ to 210 +equ RDS_STANDARD_R$ to 211 +equ RDS_ENTRY_TIME$ to 212 +equ RDS_SHIP_DATE$ to 213 +equ RDS_SHIP_TIME$ to 214 +equ RDS_TCS_FLOW$ to 215 +equ RDS_THICK_OVR_GROWTH_AVG$ to 216 +equ RDS_SHIFT$ to 217 +equ RDS_LAST_WAFER_RHO$ to 218 +equ RDS_ETCH1$ to 219 +equ RDS_ETCH2$ to 220 +equ RDS_RESEARCH_SRP_BILLABLE$ to 221 +equ RDS_PRE_SURF_DEFECTS$ to 222 +equ RDS_PRE_SURF_HAZE$ to 223 +equ RDS_POST_SURF_DEFECTS$ to 224 +equ RDS_POST_SURF_HAZE$ to 225 +equ RDS_POST_CLEAN_SURF_DEFECTS$ to 226 +equ RDS_POST_CLEAN_SURF_HAZE$ to 227 +equ RDS_OP_OUT_EX1$ to 228 +equ RDS_OP_OUT_EX1_DATE$ to 229 +equ RDS_OP_OUT_EX1_TIME$ to 230 +equ RDS_OP_IN_EX2$ to 231 +equ RDS_OP_IN_EX2_DATE$ to 232 +equ RDS_OP_IN_EX2_TIME$ to 233 +equ RDS_OP_OUT_EX2$ to 234 +equ RDS_OP_OUT_EX2_DATE$ to 235 +equ RDS_OP_OUT_EX2_TIME$ to 236 +equ RDS_OP_IN_EX3$ to 237 +equ RDS_OP_IN_EX3_DATE$ to 238 +equ RDS_OP_IN_EX3_TIME$ to 239 +equ RDS_TW_RECLAIM$ to 240 +equ RDS_TW_RECLAIM_CODE$ to 241 +equ RDS_TW_RECLAIM_CNT$ to 242 +equ RDS_TW_RECLAIM_CON$ to 243 +equ RDS_TW_RECLAIM_RES$ to 244 +equ RDS_TW_RECLAIM_RHO$ to 245 +equ RDS_TW_RECLAIM_STRESS$ to 246 +equ RDS_TW_RECLAIM_THICK$ TO 247 +equ RDS_TW_RECLAIM_TOOL$ to 248 +equ RDS_TW_RECLAIM_TRANS$ to 249 +equ RDS_COMMIT_DATE_FINAL$ to 250 +equ RDS_SPEC_TYPE_ORIG$ to 251 +equ RDS_MAKEUP_BOX$ TO 252 +equ RDS_HOT_LOT$ TO 253 +EQU RDS_OVERGROW_REQ$ TO 254 +EQU RDS_SURFSCAN_KEYS$ TO 255 +EQU RDS_WO_STEP_KEY$ TO 256 +EQU RDS_NCR_KEYS$ TO 257 +EQU RDS_SUB_PART_NO$ TO 258 ;* Substrate Part Number for subtrate provided by Epi Services +EQU RDS_SHIP_NO$ TO 259 +EQU RDS_CASS_NO$ TO 260 +EQU RDS_ORDER_ITEM$ TO 261 +EQU RDS_CASS_WAFER_QTY$ TO 262 +EQU RDS_LAST_STEP$ TO 263 +EQU RDS_SUB_SUPPLIED_BY$ TO 264 +EQU RDS_SUB_PRE_CLEAN$ TO 265 +EQU RDS_SUB_POST_CLEAN$ TO 266 +EQU RDS_POCKET$ TO 267 +EQU RDS_POCKET_CHAR$ TO 268 +EQU RDS_ZONE$ TO 269 +EQU RDS_IN_CASS_NO$ TO 270 +EQU RDS_IN_SLOT_NO$ TO 271 +EQU RDS_OUT_CASS_NO$ TO 272 +EQU RDS_OUT_CASS_SLOT$ TO 273 +EQU RDS_ADE_READ$ TO 274 +EQU RDS_WAFER_CHAR$ TO 275 +EQU RDS_OUT_NCR$ TO 276 +EQU RDS_LOAD_LOCK_SIDE$ TO 277 +EQU RDS_ETCH3$ TO 303 + diff --git a/LSL2/STPROCINS/RDS_EQUATES.txt b/LSL2/STPROCINS/RDS_EQUATES.txt new file mode 100644 index 0000000..204cdea --- /dev/null +++ b/LSL2/STPROCINS/RDS_EQUATES.txt @@ -0,0 +1,262 @@ +compile insert RDS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 23/04/2015 + Description : Insert for Table RDS +----------------------------------------*/ + + +Equ RDS_SEQ$ To 0 +Equ RDS_QUOTE_NO$ To 1 +Equ RDS_REACTOR$ To 2 +Equ RDS_ENTRY_ID$ To 3 +Equ RDS_ENTRY_DATE$ To 4 +Equ RDS_SCHEDULE_NO$ To 5 +Equ RDS_WO$ To 6 +Equ RDS_ORDER_NO$ To 7 +Equ RDS_PO$ To 8 +Equ RDS_CUST_NO$ To 9 +Equ RDS_PART_NUM$ To 10 +Equ RDS_EPI_PRO_UNLOAD_DTM$ To 11 +Equ RDS_LOT_NUM$ To 12 +Equ RDS_POST_EPI_COMMENTS$ To 13 +Equ RDS_REACT_IDLE_TIME$ To 14 +Equ RDS_DCS_FLOW_ORG$ To 15 +Equ RDS_EPI_H2_FLOW_ORG$ To 16 +Equ RDS_AUX1_ORG$ To 17 +Equ RDS_DOPANT_FLOW_ORG$ To 18 +Equ RDS_AUX2_ORG$ To 19 +Equ RDS_LPD_POST_PRECLEAN$ To 20 +Equ RDS_PRE_PITS$ To 21 +Equ RDS_PRE_MOUNDS$ To 22 +Equ RDS_BAKE_TIME_ORG$ To 23 +Equ RDS_PRE_SCRATCHES$ To 24 +Equ RDS_PRE_SPOTS$ To 25 +Equ RDS_PRE_FOV$ To 26 +Equ RDS_PRE_BL_DEFECTS$ To 27 +Equ RDS_PRE_EPI_COMMENTS$ To 29 +Equ RDS_SPECIAL_INST$ To 31 +Equ RDS_COMMENTS$ To 32 +Equ RDS_LAYER_INFO$ To 33 +Equ RDS_STATUS$ To 34 +Equ RDS_DATE_IN$ To 35 +Equ RDS_DATE_OUT$ To 36 +Equ RDS_TIME_IN$ To 37 +Equ RDS_TIME_IN_24$ To 37 +Equ RDS_TIME_OUT$ To 38 +Equ RDS_TIME_OUT_24$ To 38 +Equ RDS_OPERATOR_IN$ To 39 +Equ RDS_OPERATOR_OUT$ To 40 +Equ RDS_WAFERS_IN$ To 41 +Equ RDS_WAFERS_OUT$ To 42 +Equ RDS_LPD_PRECLEAN$ To 43 +Equ RDS_LPD_FIRSTWAFER$ To 44 +Equ RDS_LSL_PRE_EPI_REJ_ORG$ To 45 +Equ RDS_CUST_PRE_EPI_REJ_ORG$ To 46 +Equ RDS_LSL_POST_EPI_REJ_ORG$ To 47 +Equ RDS_CUST_POST_EPI_REJ_ORG$ To 48 +Equ RDS_THICK_MIN_ORG$ To 49 +Equ RDS_THICK_TARGET_ORG$ To 50 +Equ RDS_THICK_MAX_ORG$ To 51 +Equ RDS_THICK_UNITS_ORG$ To 52 +Equ RDS_RES_MIN_ORG$ To 53 +Equ RDS_RES_TARGET_ORG$ To 54 +Equ RDS_RES_MAX_ORG$ To 55 +Equ RDS_RES_UNITS_ORG$ To 56 +Equ RDS_CON_MIN_ORG$ To 57 +Equ RDS_CON_TARGET_ORG$ To 58 +Equ RDS_CON_MAX_ORG$ To 59 +Equ RDS_CON_UNITS_ORG$ To 60 +Equ RDS_THICK_READ_ORG$ To 61 +Equ RDS_SHEETRHO_READ_ORG$ To 62 +Equ RDS_TTHICK_AVG_ORG$ To 63 +Equ RDS_TRES_AVG_ORG$ To 64 +Equ RDS_TTHICK_STDEV_ORG$ To 65 +Equ RDS_TTHICK_MAX_ORG$ To 66 +Equ RDS_TRES_MAX_ORG$ To 67 +Equ RDS_TTHICK_MIN_ORG$ To 68 +Equ RDS_TRES_MIN_ORG$ To 69 +Equ RDS_TTHICK_UNIF_ORG$ To 70 +Equ RDS_TRES_UNIF_ORG$ To 71 +Equ RDS_UNHOLD_OPERATOR$ To 72 +Equ RDS_UNHOLD_DATE$ To 73 +Equ RDS_UNHOLD_TIME$ To 74 +Equ RDS_TRES_STDEV_ORG$ To 76 +Equ RDS_VERIFY_QTY$ To 78 +Equ RDS_QXJ_POST$ To 80 +Equ RDS_MOD_ID$ To 82 +Equ RDS_MOD_DATE$ To 83 +Equ RDS_QXJ_PRE$ To 84 +Equ RDS_L_PRE_REJ_LOSS_ORG$ To 85 +Equ RDS_L_POST_REJ_LOSS_ORG$ To 86 +Equ RDS_C_PRE_REJ_LOSS_ORG$ To 87 +Equ RDS_C_POST_REJ_LOSS_ORG$ To 88 +Equ RDS_L_PRE_REJ_CNT_ORG$ To 89 +Equ RDS_L_POST_REJ_CNT_ORG$ To 90 +Equ RDS_C_PRE_REJ_CNT_ORG$ To 91 +Equ RDS_C_POST_REJ_CNT_ORG$ To 92 +Equ RDS_L_PRE_REJ_AC_ORG$ To 93 +Equ RDS_L_POST_REJ_AC_ORG$ To 94 +Equ RDS_C_PRE_REJ_AC_ORG$ To 95 +Equ RDS_C_POST_REJ_AC_ORG$ To 96 +Equ RDS_WAF_BACK_TO_INVENTORY$ To 97 +Equ RDS_INJECTORS$ To 98 +Equ RDS_F_OFFSET_ORG$ To 99 +Equ RDS_S_OFFSET_ORG$ To 100 +Equ RDS_R_OFFSET_ORG$ To 101 +Equ RDS_PROD_SPEC_ID$ To 114 +Equ RDS_L_PRE_REJ_NCR_IDS_ORG$ To 115 +Equ RDS_L_POST_REJ_NCR_IDS_ORG$ To 116 +Equ RDS_C_PRE_REJ_NCR_IDS_ORG$ To 117 +Equ RDS_C_POST_REJ_NCR_IDS_ORG$ To 118 +Equ RDS_WO_VERIFY_ID$ To 119 +Equ RDS_POST_PITS$ To 120 +Equ RDS_POST_MOUNDS$ To 121 +Equ RDS_POST_STACK_FAULTS$ To 122 +Equ RDS_POST_SPOTS$ To 123 +Equ RDS_POST_FOV$ To 124 +Equ RDS_POST_BL_DEFECTS$ To 125 +Equ RDS_PRE_CODE$ To 126 +Equ RDS_PRE_BOAT_ID$ To 127 +Equ RDS_PRE_SRD_NUM$ To 128 +Equ RDS_POST_CODE$ To 129 +Equ RDS_POST_BOAT_ID$ To 130 +Equ RDS_POST_SRD_NUM$ To 131 +Equ RDS_PRE_EPI_SIG$ To 132 +Equ RDS_PRE_EPI_SIG_DATE$ To 133 +Equ RDS_PRE_EPI_SIG_TIME$ To 134 +Equ RDS_FIRST_WAF_SIG$ To 135 +Equ RDS_FIRST_WAF_SIG_DATE$ To 136 +Equ RDS_FIRST_WAF_SIG_TIME$ To 137 +Equ RDS_POST_EPI_SIG$ To 144 +Equ RDS_POST_EPI_SIG_DATE$ To 145 +Equ RDS_POST_EPI_SIG_TIME$ To 146 +Equ RDS_POST_EPI_SIG_TIME_24$ To 146 +Equ RDS_SUP_VER_SIG$ To 147 +Equ RDS_SUP_VER_SIG_DATE$ To 148 +Equ RDS_SUP_VER_SIG_TIME$ To 149 +Equ RDS_RDS_LAYER_KEYS$ To 150 +Equ RDS_UNLOAD_MOD_ID$ To 151 +Equ RDS_TW_NPLUS_TRANS$ To 152 +Equ RDS_LPD_POSTCLEAN$ To 153 +Equ RDS_PRE_SCRATCH_LEN$ To 154 +Equ RDS_POST_SPIKES$ To 155 +Equ RDS_POST_SCRATCHES$ To 156 +Equ RDS_POST_SCRATCH_LEN$ To 157 +Equ RDS_PRE_EPI_MOD_FIELD$ To 158 +Equ RDS_PRE_EPI_MOD_ID$ To 159 +Equ RDS_POST_EPI_MOD_FIELD$ To 160 +Equ RDS_POST_EPI_MOD_ID$ To 161 +Equ RDS_FIRST_WAFER_MOD_FIELD$ To 162 +Equ RDS_FIRST_WAFER_MOD_ID$ To 163 +Equ RDS_TUBE_ID$ To 190 +Equ RDS_TUBE_GRADE$ To 191 +Equ RDS_SUSCEPTOR_ID$ To 192 +Equ RDS_SRP_PROFILE_PATH_ORG$ To 193 +Equ RDS_HOLD_DESC$ To 194 +Equ RDS_HOLD_ORG$ To 195 +Equ RDS_HOLD_OPERATOR$ To 196 +Equ RDS_HOLD_DATE_ORG$ To 197 +Equ RDS_HOLD_TIME_ORG$ To 198 +Equ RDS_UNHOLD_DESC$ To 199 +Equ RDS_SUPPLEMENT$ To 200 +Equ RDS_SUPPL_INST$ To 201 +Equ RDS_SUPPL_ENTRY_ID$ To 202 +Equ RDS_SUPPL_ENTRY_DATE$ To 203 +Equ RDS_SUPPL_SIG$ To 204 +Equ RDS_SUPPL_SIG_DATE$ To 205 +Equ RDS_SUPPL_ENTRY_TIME$ To 206 +Equ RDS_SUPPL_SIG_TIME$ To 207 +Equ RDS_DILUENT_ADJ_PARAM_ORG$ To 208 +Equ RDS_HCL_FLOW_ORG$ To 209 +Equ RDS_STANDARD_T$ To 210 +Equ RDS_STANDARD_R$ To 211 +Equ RDS_ENTRY_TIME$ To 212 +Equ RDS_SHIP_DATE$ To 213 +Equ RDS_SHIP_TIME$ To 214 +Equ RDS_TCS_FLOW_ORG$ To 215 +Equ RDS_THICK_OVR_GROWTH_AVG$ To 216 +Equ RDS_SHIFT$ To 217 +Equ RDS_LAST_WAFER_RHO$ To 218 +Equ RDS_ETCH1_ORG$ To 219 +Equ RDS_ETCH2_ORG$ To 220 +Equ RDS_RESEARCH_SRP_BILLABLE$ To 221 +Equ RDS_PRE_SURF_DEFECTS$ To 222 +Equ RDS_PRE_SURF_HAZE$ To 223 +Equ RDS_POST_SURF_DEFECTS$ To 224 +Equ RDS_POST_SURF_HAZE$ To 225 +Equ RDS_POST_CLEAN_SURF_DEFECTS$ To 226 +Equ RDS_POST_CLEAN_SURF_HAZE$ To 227 +Equ RDS_OP_OUT_EX1$ To 228 +Equ RDS_OP_OUT_EX1_DATE$ To 229 +Equ RDS_OP_OUT_EX1_TIME$ To 230 +Equ RDS_OP_IN_EX2$ To 231 +Equ RDS_OP_IN_EX2_DATE$ To 232 +Equ RDS_OP_IN_EX2_TIME$ To 233 +Equ RDS_OP_OUT_EX2$ To 234 +Equ RDS_OP_OUT_EX2_DATE$ To 235 +Equ RDS_OP_OUT_EX2_TIME$ To 236 +Equ RDS_OP_IN_EX3$ To 237 +Equ RDS_OP_IN_EX3_DATE$ To 238 +Equ RDS_OP_IN_EX3_TIME$ To 239 +Equ RDS_COMMIT_DATE_FINAL$ To 250 +Equ RDS_SPEC_TYPE_ORIG$ To 251 +Equ RDS_MAKEUP_BOX_ORG$ To 252 +Equ RDS_HOT_LOT_ORG$ To 253 +Equ RDS_OVERGROW_REQ$ To 254 +Equ RDS_SURFSCAN_KEYS$ To 255 +Equ RDS_WO_STEP_KEY$ To 256 +Equ RDS_NCR_KEYS$ To 257 +Equ RDS_SUB_PART_NO$ To 258 +Equ RDS_SHIP_NO$ To 259 +Equ RDS_CASS_NO$ To 260 +Equ RDS_ORDER_ITEM$ To 261 +Equ RDS_CASS_WAFER_QTY$ To 262 +Equ RDS_LAST_STEP$ To 263 +Equ RDS_SUB_SUPPLIED_BY$ To 264 +Equ RDS_SUB_PRE_CLEAN$ To 265 +Equ RDS_SUB_POST_CLEAN$ To 266 +Equ RDS_POCKET$ To 267 +Equ RDS_POCKET_CHAR$ To 268 +Equ RDS_ZONE$ To 269 +Equ RDS_IN_CASS_NO$ To 270 +Equ RDS_IN_SLOT_NO$ To 271 +Equ RDS_OUT_CASS_NO$ To 272 +Equ RDS_OUT_SLOT_NO$ To 273 +Equ RDS_ADE_READ$ To 274 +Equ RDS_WAFER_CHAR$ To 275 +Equ RDS_OUT_NCR$ To 276 +Equ RDS_LOAD_LOCK_SIDE$ To 277 +Equ RDS_UNLOAD_THICK_READ$ To 278 +Equ RDS_FLATFINDER_DTM$ To 279 +Equ RDS_FLATFINDER_WAFER_CNT$ To 280 +Equ RDS_FLATFINDER_FLAT_LENGTH$ To 281 +Equ RDS_WAFER_OUT_SIG$ To 282 +Equ RDS_WAFER_OUT_DATE$ To 283 +Equ RDS_WAFER_OUT_TIME$ To 284 +Equ RDS_FLATFINDER_ORIENTATION$ To 285 +Equ RDS_SUPPL_ACK$ To 286 +Equ RDS_RDS_LAYER_ACK$ To 287 +Equ RDS_PRE_INST_ACK$ To 288 +Equ RDS_FWI_INST_ACK$ To 289 +Equ RDS_LWI_INST_ACK$ To 290 +Equ RDS_QA_INST_ACK$ To 291 +Equ RDS_LOAD_INST_ACK$ To 292 +Equ RDS_UNLOAD_INST_ACK$ To 293 +Equ RDS_WAFER_COUNT_ACK$ To 294 +Equ RDS_OVERRIDE_KEYS$ To 295 +Equ RDS_REL_LWI_CI_NO$ To 296 +Equ RDS_BLOCK_LOAD$ To 297 +Equ RDS_BLOCK_UNLOAD$ To 298 +Equ RDS_LOCKED_BY$ To 299 +Equ RDS_NEXT_RUN_LOADED$ To 300 +Equ RDS_LOCKED_BY_STATION$ To 301 +Equ RDS_COMB_STATUS_STATIC$ To 302 +Equ RDS_ETCH3_ORG$ To 303 +Equ RDS_POST_INST_ACK$ To 304 +Equ RDS_COMMENT_DATE$ To 305 +Equ RDS_COMMENT_USER$ To 306 +Equ RDS_COMMENT_NOTE$ To 307 +Equ RDS_WAFER_COUNTER_QTY$ To 308 +Equ RDS_WAFER_COUNTER_DTM$ To 309 +Equ RDS_POST_SUPERCEDE$ To 310 diff --git a/LSL2/STPROCINS/RDS_EQUATES_CUTOVER_20191023.txt b/LSL2/STPROCINS/RDS_EQUATES_CUTOVER_20191023.txt new file mode 100644 index 0000000..414af73 --- /dev/null +++ b/LSL2/STPROCINS/RDS_EQUATES_CUTOVER_20191023.txt @@ -0,0 +1,237 @@ +compile insert RDS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 23/04/2015 + Description : Insert for Table RDS +----------------------------------------*/ + + +Equ RDS_SEQ$ To 0 +Equ RDS_QUOTE_NO$ To 1 +Equ RDS_REACTOR$ To 2 +Equ RDS_ENTRY_ID$ To 3 +Equ RDS_ENTRY_DATE$ To 4 +Equ RDS_SCHEDULE_NO$ To 5 +Equ RDS_WO$ To 6 +Equ RDS_ORDER_NO$ To 7 +Equ RDS_PO$ To 8 +Equ RDS_CUST_NO$ To 9 +Equ RDS_PART_NUM$ To 10 +Equ RDS_EPI_PRO_UNLOAD_DTM$ To 11 +Equ RDS_LOT_NUM$ To 12 +Equ RDS_POST_EPI_COMMENTS$ To 13 +Equ RDS_REACT_IDLE_TIME$ To 14 +Equ RDS_DCS_FLOW_ORG$ To 15 +Equ RDS_EPI_H2_FLOW_ORG$ To 16 +Equ RDS_AUX1_ORG$ To 17 +Equ RDS_DOPANT_FLOW_ORG$ To 18 +Equ RDS_AUX2_ORG$ To 19 +Equ RDS_LPD_POST_PRECLEAN$ To 20 +Equ RDS_PRE_PITS$ To 21 +Equ RDS_PRE_MOUNDS$ To 22 +Equ RDS_BAKE_TIME_ORG$ To 23 +Equ RDS_PRE_SCRATCHES$ To 24 +Equ RDS_PRE_SPOTS$ To 25 +Equ RDS_PRE_FOV$ To 26 +Equ RDS_PRE_BL_DEFECTS$ To 27 +Equ RDS_PRE_EPI_COMMENTS$ To 29 +Equ RDS_SPECIAL_INST$ To 31 +Equ RDS_COMMENTS$ To 32 +Equ RDS_LAYER_INFO$ To 33 +Equ RDS_STATUS$ To 34 +Equ RDS_DATE_IN$ To 35 +Equ RDS_DATE_OUT$ To 36 +Equ RDS_TIME_IN$ To 37 +Equ RDS_TIME_IN_24$ To 37 +Equ RDS_TIME_OUT$ To 38 +Equ RDS_TIME_OUT_24$ To 38 +Equ RDS_OPERATOR_IN$ To 39 +Equ RDS_OPERATOR_OUT$ To 40 +Equ RDS_WAFERS_IN$ To 41 +Equ RDS_WAFERS_OUT$ To 42 +Equ RDS_LPD_PRECLEAN$ To 43 +Equ RDS_LPD_FIRSTWAFER$ To 44 +Equ RDS_LSL_PRE_EPI_REJ_ORG$ To 45 +Equ RDS_CUST_PRE_EPI_REJ_ORG$ To 46 +Equ RDS_LSL_POST_EPI_REJ_ORG$ To 47 +Equ RDS_CUST_POST_EPI_REJ_ORG$ To 48 +Equ RDS_THICK_MIN_ORG$ To 49 +Equ RDS_THICK_TARGET_ORG$ To 50 +Equ RDS_THICK_MAX_ORG$ To 51 +Equ RDS_THICK_UNITS_ORG$ To 52 +Equ RDS_RES_MIN_ORG$ To 53 +Equ RDS_RES_TARGET_ORG$ To 54 +Equ RDS_RES_MAX_ORG$ To 55 +Equ RDS_RES_UNITS_ORG$ To 56 +Equ RDS_CON_MIN_ORG$ To 57 +Equ RDS_CON_TARGET_ORG$ To 58 +Equ RDS_CON_MAX_ORG$ To 59 +Equ RDS_CON_UNITS_ORG$ To 60 +Equ RDS_THICK_READ_ORG$ To 61 +Equ RDS_SHEETRHO_READ_ORG$ To 62 +Equ RDS_TTHICK_AVG_ORG$ To 63 +Equ RDS_TRES_AVG_ORG$ To 64 +Equ RDS_TTHICK_STDEV_ORG$ To 65 +Equ RDS_TTHICK_MAX_ORG$ To 66 +Equ RDS_TRES_MAX_ORG$ To 67 +Equ RDS_TTHICK_MIN_ORG$ To 68 +Equ RDS_TRES_MIN_ORG$ To 69 +Equ RDS_TTHICK_UNIF_ORG$ To 70 +Equ RDS_TRES_UNIF_ORG$ To 71 +Equ RDS_UNHOLD_OPERATOR$ To 72 +Equ RDS_UNHOLD_DATE$ To 73 +Equ RDS_UNHOLD_TIME$ To 74 +Equ RDS_TRES_STDEV_ORG$ To 76 +Equ RDS_VERIFY_QTY$ To 78 +Equ RDS_QXJ_POST$ To 80 +Equ RDS_MOD_ID$ To 82 +Equ RDS_MOD_DATE$ To 83 +Equ RDS_QXJ_PRE$ To 84 +Equ RDS_L_PRE_REJ_LOSS_ORG$ To 85 +Equ RDS_L_POST_REJ_LOSS_ORG$ To 86 +Equ RDS_C_PRE_REJ_LOSS_ORG$ To 87 +Equ RDS_C_POST_REJ_LOSS_ORG$ To 88 +Equ RDS_L_PRE_REJ_CNT_ORG$ To 89 +Equ RDS_L_POST_REJ_CNT_ORG$ To 90 +Equ RDS_C_PRE_REJ_CNT_ORG$ To 91 +Equ RDS_C_POST_REJ_CNT_ORG$ To 92 +Equ RDS_L_PRE_REJ_AC_ORG$ To 93 +Equ RDS_L_POST_REJ_AC_ORG$ To 94 +Equ RDS_C_PRE_REJ_AC_ORG$ To 95 +Equ RDS_C_POST_REJ_AC_ORG$ To 96 +Equ RDS_WAF_BACK_TO_INVENTORY$ To 97 +Equ RDS_INJECTORS$ To 98 +Equ RDS_F_OFFSET_ORG$ To 99 +Equ RDS_S_OFFSET_ORG$ To 100 +Equ RDS_R_OFFSET_ORG$ To 101 +Equ RDS_PROD_SPEC_ID$ To 114 +Equ RDS_L_PRE_REJ_NCR_IDS_ORG$ To 115 +Equ RDS_L_POST_REJ_NCR_IDS_ORG$ To 116 +Equ RDS_C_PRE_REJ_NCR_IDS_ORG$ To 117 +Equ RDS_C_POST_REJ_NCR_IDS_ORG$ To 118 +Equ RDS_WO_VERIFY_ID$ To 119 +Equ RDS_POST_PITS$ To 120 +Equ RDS_POST_MOUNDS$ To 121 +Equ RDS_POST_STACK_FAULTS$ To 122 +Equ RDS_POST_SPOTS$ To 123 +Equ RDS_POST_FOV$ To 124 +Equ RDS_POST_BL_DEFECTS$ To 125 +Equ RDS_PRE_CODE$ To 126 +Equ RDS_PRE_BOAT_ID$ To 127 +Equ RDS_PRE_SRD_NUM$ To 128 +Equ RDS_POST_CODE$ To 129 +Equ RDS_POST_BOAT_ID$ To 130 +Equ RDS_POST_SRD_NUM$ To 131 +Equ RDS_PRE_EPI_SIG$ To 132 +Equ RDS_PRE_EPI_SIG_DATE$ To 133 +Equ RDS_PRE_EPI_SIG_TIME$ To 134 +Equ RDS_FIRST_WAF_SIG$ To 135 +Equ RDS_FIRST_WAF_SIG_DATE$ To 136 +Equ RDS_FIRST_WAF_SIG_TIME$ To 137 +Equ RDS_POST_EPI_SIG$ To 144 +Equ RDS_POST_EPI_SIG_DATE$ To 145 +Equ RDS_POST_EPI_SIG_TIME$ To 146 +Equ RDS_POST_EPI_SIG_TIME_24$ To 146 +Equ RDS_SUP_VER_SIG$ To 147 +Equ RDS_SUP_VER_SIG_DATE$ To 148 +Equ RDS_SUP_VER_SIG_TIME$ To 149 +Equ RDS_RDS_LAYER_KEYS$ To 150 +Equ RDS_UNLOAD_MOD_ID$ To 151 +Equ RDS_TW_NPLUS_TRANS$ To 152 +Equ RDS_LPD_POSTCLEAN$ To 153 +Equ RDS_PRE_SCRATCH_LEN$ To 154 +Equ RDS_POST_SPIKES$ To 155 +Equ RDS_POST_SCRATCHES$ To 156 +Equ RDS_POST_SCRATCH_LEN$ To 157 +Equ RDS_PRE_EPI_MOD_FIELD$ To 158 +Equ RDS_PRE_EPI_MOD_ID$ To 159 +Equ RDS_POST_EPI_MOD_FIELD$ To 160 +Equ RDS_POST_EPI_MOD_ID$ To 161 +Equ RDS_FIRST_WAFER_MOD_FIELD$ To 162 +Equ RDS_FIRST_WAFER_MOD_ID$ To 163 +Equ RDS_TUBE_ID$ To 190 +Equ RDS_TUBE_GRADE$ To 191 +Equ RDS_SUSCEPTOR_ID$ To 192 +Equ RDS_SRP_PROFILE_PATH_ORG$ To 193 +Equ RDS_HOLD_DESC$ To 194 +Equ RDS_HOLD_ORG$ To 195 +Equ RDS_HOLD_OPERATOR$ To 196 +Equ RDS_HOLD_DATE_ORG$ To 197 +Equ RDS_HOLD_TIME_ORG$ To 198 +Equ RDS_UNHOLD_DESC$ To 199 +Equ RDS_SUPPLEMENT$ To 200 +Equ RDS_SUPPL_INST$ To 201 +Equ RDS_SUPPL_ENTRY_ID$ To 202 +Equ RDS_SUPPL_ENTRY_DATE$ To 203 +Equ RDS_SUPPL_SIG$ To 204 +Equ RDS_SUPPL_SIG_DATE$ To 205 +Equ RDS_SUPPL_ENTRY_TIME$ To 206 +Equ RDS_SUPPL_SIG_TIME$ To 207 +Equ RDS_DILUENT_ADJ_PARAM_ORG$ To 208 +Equ RDS_HCL_FLOW_ORG$ To 209 +Equ RDS_STANDARD_T$ To 210 +Equ RDS_STANDARD_R$ To 211 +Equ RDS_ENTRY_TIME$ To 212 +Equ RDS_SHIP_DATE$ To 213 +Equ RDS_SHIP_TIME$ To 214 +Equ RDS_TCS_FLOW_ORG$ To 215 +Equ RDS_THICK_OVR_GROWTH_AVG$ To 216 +Equ RDS_SHIFT$ To 217 +Equ RDS_LAST_WAFER_RHO$ To 218 +Equ RDS_ETCH1_ORG$ To 219 +Equ RDS_ETCH2_ORG$ To 220 +Equ RDS_RESEARCH_SRP_BILLABLE$ To 221 +Equ RDS_PRE_SURF_DEFECTS$ To 222 +Equ RDS_PRE_SURF_HAZE$ To 223 +Equ RDS_POST_SURF_DEFECTS$ To 224 +Equ RDS_POST_SURF_HAZE$ To 225 +Equ RDS_POST_CLEAN_SURF_DEFECTS$ To 226 +Equ RDS_POST_CLEAN_SURF_HAZE$ To 227 +Equ RDS_OP_OUT_EX1$ To 228 +Equ RDS_OP_OUT_EX1_DATE$ To 229 +Equ RDS_OP_OUT_EX1_TIME$ To 230 +Equ RDS_OP_IN_EX2$ To 231 +Equ RDS_OP_IN_EX2_DATE$ To 232 +Equ RDS_OP_IN_EX2_TIME$ To 233 +Equ RDS_OP_OUT_EX2$ To 234 +Equ RDS_OP_OUT_EX2_DATE$ To 235 +Equ RDS_OP_OUT_EX2_TIME$ To 236 +Equ RDS_OP_IN_EX3$ To 237 +Equ RDS_OP_IN_EX3_DATE$ To 238 +Equ RDS_OP_IN_EX3_TIME$ To 239 +Equ RDS_COMMIT_DATE_FINAL$ To 250 +Equ RDS_SPEC_TYPE_ORIG$ To 251 +Equ RDS_MAKEUP_BOX_ORG$ To 252 +Equ RDS_HOT_LOT_ORG$ To 253 +Equ RDS_OVERGROW_REQ$ To 254 +Equ RDS_SURFSCAN_KEYS$ To 255 +Equ RDS_WO_STEP_KEY$ To 256 +Equ RDS_NCR_KEYS$ To 257 +Equ RDS_SUB_PART_NO$ To 258 +Equ RDS_SHIP_NO$ To 259 +Equ RDS_CASS_NO$ To 260 +Equ RDS_ORDER_ITEM$ To 261 +Equ RDS_CASS_WAFER_QTY$ To 262 +Equ RDS_LAST_STEP$ To 263 +Equ RDS_SUB_SUPPLIED_BY$ To 264 +Equ RDS_SUB_PRE_CLEAN$ To 265 +Equ RDS_SUB_POST_CLEAN$ To 266 +Equ RDS_POCKET$ To 267 +Equ RDS_POCKET_CHAR$ To 268 +Equ RDS_ZONE$ To 269 +Equ RDS_IN_CASS_NO$ To 270 +Equ RDS_IN_SLOT_NO$ To 271 +Equ RDS_OUT_CASS_NO$ To 272 +Equ RDS_OUT_SLOT_NO$ To 273 +Equ RDS_ADE_READ$ To 274 +Equ RDS_WAFER_CHAR$ To 275 +Equ RDS_OUT_NCR$ To 276 +Equ RDS_LOAD_LOCK_SIDE$ To 277 +Equ RDS_UNLOAD_THICK_READ$ To 278 +Equ RDS_FLATFINDER_DTM$ To 279 +Equ RDS_FLATFINDER_WAFER_CNT$ To 280 +Equ RDS_FLATFINDER_FLAT_LENGTH$ To 281 +Equ RDS_WAFER_OUT_SIG$ To 282 +Equ RDS_WAFER_OUT_DATE$ To 283 +Equ RDS_WAFER_OUT_TIME$ To 284 +Equ RDS_FLATFINDER_ORIENTATION$ To 285 diff --git a/LSL2/STPROCINS/RDS_LAYER_EQUATES.txt b/LSL2/STPROCINS/RDS_LAYER_EQUATES.txt new file mode 100644 index 0000000..a6aed6f --- /dev/null +++ b/LSL2/STPROCINS/RDS_LAYER_EQUATES.txt @@ -0,0 +1,76 @@ +compile insert RDS_LAYER_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 13/09/2013 + Description : Insert for Table RDS_LAYER +----------------------------------------*/ + + +Equ RDS_LAYER_LS_ID$ To 0 +Equ RDS_LAYER_RDS_NO$ To 0 +Equ RDS_LAYER_DOPANT$ To 1 +Equ RDS_LAYER_EPI_DILUENT$ To 2 +Equ RDS_LAYER_RDS_TEST_KEYS$ To 3 +Equ RDS_LAYER_RECIPE_NO$ To 4 +Equ RDS_LAYER_EPI_TIME$ To 5 +Equ RDS_LAYER_DILUENT_ADJ_PARAM$ To 6 +Equ RDS_LAYER_DOPANT_FLOW$ To 7 +Equ RDS_LAYER_HCL_FLOW$ To 8 +Equ RDS_LAYER_BAKE_TIME$ To 9 +Equ RDS_LAYER_EPI_H2_FLOW$ To 10 +Equ RDS_LAYER_TCS_FLOW$ To 11 +Equ RDS_LAYER_DCS_FLOW$ To 12 +Equ RDS_LAYER_AUX1$ To 13 +Equ RDS_LAYER_AUX2$ To 14 +Equ RDS_LAYER_F_OFFSET$ To 15 +Equ RDS_LAYER_S_OFFSET$ To 16 +Equ RDS_LAYER_R_OFFSET$ To 17 +Equ RDS_LAYER_ETCH1$ To 18 +Equ RDS_LAYER_ETCH2$ To 19 +Equ RDS_LAYER_OVERGROW_REQ$ To 20 +Equ RDS_LAYER_MODIFY_USER$ To 21 +Equ RDS_LAYER_MODIFY_DTM$ To 22 +Equ RDS_LAYER_EPI_TIME_MIN$ To 23 +Equ RDS_LAYER_EPI_TIME_MAX$ To 24 +Equ RDS_LAYER_DILUENT_MIN$ To 25 +Equ RDS_LAYER_DILUENT_MAX$ To 26 +Equ RDS_LAYER_DOPANT_FLOW_MIN$ To 27 +Equ RDS_LAYER_DOPANT_FLOW_MAX$ To 28 +Equ RDS_LAYER_HCL_FLOW_MIN$ To 29 +Equ RDS_LAYER_HCL_FLOW_MAX$ To 30 +Equ RDS_LAYER_BAKE_TIME_MIN$ To 31 +Equ RDS_LAYER_BAKE_TIME_MAX$ To 32 +Equ RDS_LAYER_EPI_H2_FLOW_MIN$ To 33 +Equ RDS_LAYER_EPI_H2_FLOW_MAX$ To 34 +Equ RDS_LAYER_TCS_FLOW_MIN$ To 35 +Equ RDS_LAYER_TCS_FLOW_MAX$ To 36 +Equ RDS_LAYER_DCS_FLOW_MIN$ To 37 +Equ RDS_LAYER_DCS_FLOW_MAX$ To 38 +Equ RDS_LAYER_AUX1_MIN$ To 39 +Equ RDS_LAYER_AUX1_MAX$ To 40 +Equ RDS_LAYER_AUX2_MIN$ To 41 +Equ RDS_LAYER_AUX2_MAX$ To 42 +Equ RDS_LAYER_F_OFFSET_MIN$ To 43 +Equ RDS_LAYER_F_OFFSET_MAX$ To 44 +Equ RDS_LAYER_S_OFFSET_MIN$ To 45 +Equ RDS_LAYER_S_OFFSET_MAX$ To 46 +Equ RDS_LAYER_R_OFFSET_MIN$ To 47 +Equ RDS_LAYER_R_OFFSET_MAX$ To 48 +Equ RDS_LAYER_ETCH1_MIN$ To 49 +Equ RDS_LAYER_ETCH1_MAX$ To 50 +Equ RDS_LAYER_ETCH2_MIN$ To 51 +Equ RDS_LAYER_ETCH2_MAX$ To 52 +Equ RDS_LAYER_OVERRIDE_USER$ To 53 +Equ RDS_LAYER_OVERRIDE_DTM$ To 54 +Equ RDS_LAYER_OVERRIDE_REASON$ To 55 +Equ RDS_LAYER_NOT_SURE$ To 56 +Equ RDS_LAYER_SUSC_ETCH_MIN$ To 57 +Equ RDS_LAYER_SUSC_ETCH_MAX$ To 58 +Equ RDS_LAYER_SUSC_ETCH$ To 59 +Equ RDS_LAYER_UL_TEMP_MIN$ To 60 +Equ RDS_LAYER_UL_TEMP_MAX$ To 61 +Equ RDS_LAYER_UL_TEMP$ To 62 +Equ RDS_LAYER_TOOL_PARMS_KEY$ To 63 +Equ RDS_LAYER_ETCH3_MIN$ To 64 +Equ RDS_LAYER_ETCH3_MAX$ To 65 +Equ RDS_LAYER_ETCH3$ To 66 diff --git a/LSL2/STPROCINS/RDS_LAYER_INFO_EQU.txt b/LSL2/STPROCINS/RDS_LAYER_INFO_EQU.txt new file mode 100644 index 0000000..c1e5746 --- /dev/null +++ b/LSL2/STPROCINS/RDS_LAYER_INFO_EQU.txt @@ -0,0 +1,40 @@ +compile insert RDS_LAYER_INFO_EQU +* These are equates for the LAYER_INFO field in the RDS table +* so they are the @vm positions. This is used when there are +* same reactor layers. +* each layer is delimited by char(248) +* RL stands for RDS Layer +equ RLConMin$ to 1 ;* could be @svm +equ RLConTarget$ to 2 ;* could be @svm +equ RLConMax$ to 3 ;* could be @svm +equ RLConUnits$ to 4 +equ RLRecipeNo$ to 5 +equ RLThickRead$ to 6 ;* will be @svm +equ RLEpiTime$ to 7 +equ RLSheetRHORead$ to 8 ;* will be @svm +equ RLTThickAvg$ to 9 +equ RLTThickStdev$ to 10 +equ RLDopantFlow$ to 11 +equ RLTThickMax$ to 12 +equ RLTThickMin$ to 13 +equ RLTThickUnif$ to 14 +equ RLOvergrowReq$ to 15 +equ Avail2$ to 16 +equ RLTResAvg$ to 17 +equ RLTResStdev$ to 18 +equ RLTResMax$ to 19 +equ RLTResMin$ to 20 +equ RLTResUnif$ to 21 +equ Avail3$ to 22 +equ Avail4$ to 23 +equ RLThickMin$ to 24 +equ RLThickTarget$ to 25 +equ RLThickMax$ to 26 +equ RLThickUnits$ to 27 +equ RLResMin$ to 28 +equ RLResTarget$ to 29 +equ RLResMax$ to 30 +equ RLResUnits$ to 31 + + + diff --git a/LSL2/STPROCINS/RDS_MAKEUP_EQU.txt b/LSL2/STPROCINS/RDS_MAKEUP_EQU.txt new file mode 100644 index 0000000..71b4a84 --- /dev/null +++ b/LSL2/STPROCINS/RDS_MAKEUP_EQU.txt @@ -0,0 +1,14 @@ +COMPILE INSERT RDS_MAKEUP_EQU + +* Equates for RDS_MAKEUP created on 09/19/04 + + +EQU RDS_MAKEUP_CASS_SLOT$ TO 1 +EQU RDS_MAKEUP_SRC_RDS$ TO 2 +EQU RDS_MAKEUP_SRC_SLOT$ TO 3 +EQU RDS_MAKEUP_DEST_RDS$ TO 4 +EQU RDS_MAKEUP_DEST_SLOT$ TO 5 +EQU RDS_MAKEUP_MAKEUP_BY$ TO 6 +EQU RDS_MAKEUP_MAKEUP_DTM$ TO 7 +EQU RDS_MAKEUP_MAKEUP_NOTES$ TO 8 + diff --git a/LSL2/STPROCINS/RDS_MAT_EQUATES.txt b/LSL2/STPROCINS/RDS_MAT_EQUATES.txt new file mode 100644 index 0000000..2ffd01a --- /dev/null +++ b/LSL2/STPROCINS/RDS_MAT_EQUATES.txt @@ -0,0 +1,14 @@ +compile insert RDS_MAT_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 10/03/2006 + Description : Insert for Table RDS_MAT +----------------------------------------*/ + +Equ RDS_MAT_RDS_NO$ To 0 +Equ RDS_MAT_POCKET$ To 1 +Equ RDS_MAT_ZONE$ To 2 +Equ RDS_MAT_IN_CASS_NO$ To 3 +Equ RDS_MAT_IN_SLOT_NO$ To 4 +Equ RDS_MAT_OUT_CASS_NO$ To 5 +Equ RDS_MAT_OUT_SLOT_NO$ To 6 diff --git a/LSL2/STPROCINS/RDS_QUEUE_EQUATES.txt b/LSL2/STPROCINS/RDS_QUEUE_EQUATES.txt new file mode 100644 index 0000000..a1adf9c --- /dev/null +++ b/LSL2/STPROCINS/RDS_QUEUE_EQUATES.txt @@ -0,0 +1,10 @@ +compile insert RDS_QUEUE_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 18/01/2022 + Description : Insert for Table RDS_QUEUE +----------------------------------------*/ + + +Equ RDS_QUEUE.RDS_NO$ To 0 +Equ RDS_QUEUE.REQUEST_DTM$ To 1 diff --git a/LSL2/STPROCINS/RDS_TEST_EQUATES.txt b/LSL2/STPROCINS/RDS_TEST_EQUATES.txt new file mode 100644 index 0000000..2561654 --- /dev/null +++ b/LSL2/STPROCINS/RDS_TEST_EQUATES.txt @@ -0,0 +1,156 @@ +compile insert RDS_TEST_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 11/12/2010 + Description : Insert for Table RDS_TEST +----------------------------------------*/ + + +Equ RDS_TEST_MET_NO$ To 0 +Equ RDS_TEST_RDS_NO$ To 1 +Equ RDS_TEST_LS_ID$ To 2 +Equ RDS_TEST_ZONE$ To 3 +Equ RDS_TEST_SPEC_DOPANT$ To 4 +Equ RDS_TEST_SPEC_RECIPE$ To 5 +Equ RDS_TEST_SPEC_RECIPE_NAME$ To 6 +Equ RDS_TEST_SPEC_THICK_MIN$ To 7 +Equ RDS_TEST_SPEC_THICK_TARGET$ To 8 +Equ RDS_TEST_SPEC_THICK_MAX$ To 9 +Equ RDS_TEST_SPEC_THICK_UNITS$ To 10 +Equ RDS_TEST_SPEC_THICK_MTOOL$ To 11 +Equ RDS_TEST_SPEC_THICK_MTYPE$ To 12 +Equ RDS_TEST_SPEC_THICK_MRECIPE$ To 13 +Equ RDS_TEST_SPEC_THICK_MFREQ$ To 14 +Equ RDS_TEST_SPEC_THICK_MPROVEIN$ To 15 +Equ RDS_TEST_SPEC_THICK_MFIRST$ To 16 +Equ RDS_TEST_SPEC_THICK_MLAST$ To 17 +Equ RDS_TEST_SPEC_THICK_MSPC$ To 18 +Equ RDS_TEST_SPEC_THICK_MOVERGROW$ To 19 +Equ RDS_TEST_SPEC_RES_MIN$ To 20 +Equ RDS_TEST_SPEC_RES_TARGET$ To 21 +Equ RDS_TEST_SPEC_RES_MAX$ To 22 +Equ RDS_TEST_SPEC_RES_UNITS$ To 23 +Equ RDS_TEST_SPEC_RES_MTOOL$ To 24 +Equ RDS_TEST_SPEC_RES_MTYPE$ To 25 +Equ RDS_TEST_SPEC_RES_MRECIPE$ To 26 +Equ RDS_TEST_SPEC_RES_MFREQ$ To 27 +Equ RDS_TEST_SPEC_RES_MPROVEIN$ To 28 +Equ RDS_TEST_SPEC_RES_MFIRST$ To 29 +Equ RDS_TEST_SPEC_RES_MLAST$ To 30 +Equ RDS_TEST_SPEC_RES_MSPC$ To 31 +Equ RDS_TEST_SPEC_RES_MOVERGROW$ To 32 +Equ RDS_TEST_SPEC_CON_MIN$ To 33 +Equ RDS_TEST_SPEC_CON_TARGET$ To 34 +Equ RDS_TEST_SPEC_CON_MAX$ To 35 +Equ RDS_TEST_SPEC_CON_UNITS$ To 36 +Equ RDS_TEST_SPEC_CON_MTOOL$ To 37 +Equ RDS_TEST_SPEC_CON_MTYPE$ To 38 +Equ RDS_TEST_SPEC_CON_MRECIPE$ To 39 +Equ RDS_TEST_SPEC_CON_MFREQ$ To 40 +Equ RDS_TEST_SPEC_CON_MPROVEIN$ To 41 +Equ RDS_TEST_SPEC_CON_MFIRST$ To 42 +Equ RDS_TEST_SPEC_CON_MLAST$ To 43 +Equ RDS_TEST_SPEC_CON_MSPC$ To 44 +Equ RDS_TEST_SPEC_CON_MOVERGROW$ To 45 +Equ RDS_TEST_SPEC_STRESS_MIN$ To 46 +Equ RDS_TEST_SPEC_STRESS_TARGET$ To 47 +Equ RDS_TEST_SPEC_STRESS_MAX$ To 48 +Equ RDS_TEST_SPEC_STRESS_UNITS$ To 49 +Equ RDS_TEST_SPEC_STRESS_MTOOL$ To 50 +Equ RDS_TEST_SPEC_STRESS_MTYPE$ To 51 +Equ RDS_TEST_SPEC_STRESS_MRECIPE$ To 52 +Equ RDS_TEST_SPEC_STRESS_MFREQ$ To 53 +Equ RDS_TEST_SPEC_STRESS_MPROVEIN$ To 54 +Equ RDS_TEST_SPEC_STRESS_MFIRST$ To 55 +Equ RDS_TEST_SPEC_STRESS_MLAST$ To 56 +Equ RDS_TEST_SPEC_STRESS_MSPC$ To 57 +Equ RDS_TEST_SPEC_STRESS_MOVERGROW$ To 58 +Equ RDS_TEST_READ_THICK$ To 60 +Equ RDS_TEST_READ_SHEET_RHO$ To 61 +Equ RDS_TEST_READ_RES$ To 62 +Equ RDS_TEST_STRESS_BORON$ To 63 +Equ RDS_TEST_STRESS_GEH4$ To 64 +Equ RDS_TEST_STRESS_MPS$ To 65 +Equ RDS_TEST_SRP_PROFILE_PATH$ To 66 +Equ RDS_TEST_THICK_OVERGROW_AVG$ To 67 +Equ RDS_TEST_HGCV_MEAN$ To 68 +Equ RDS_TEST_HGCV_STDV$ To 69 +Equ RDS_TEST_TW_TYPE$ To 70 +Equ RDS_TEST_TW_CNT$ To 71 +Equ RDS_TEST_TW_CODE$ To 72 +Equ RDS_TEST_TW_CON$ To 73 +Equ RDS_TEST_TW_RES$ To 74 +Equ RDS_TEST_TW_RHO$ To 75 +Equ RDS_TEST_TW_STRESS$ To 76 +Equ RDS_TEST_TW_THICK$ To 77 +Equ RDS_TEST_TW_TOOL$ To 78 +Equ RDS_TEST_TW_TRANS$ To 79 +Equ RDS_TEST_THICK_AVG$ To 80 +Equ RDS_TEST_THICK_STDV$ To 81 +Equ RDS_TEST_THICK_UNIF$ To 82 +Equ RDS_TEST_THICK_MIN$ To 83 +Equ RDS_TEST_THICK_MAX$ To 84 +Equ RDS_TEST_SHEETRHO_AVG$ To 85 +Equ RDS_TEST_SHEETRHO_STDV$ To 86 +Equ RDS_TEST_SHEETRHO_UNIF$ To 87 +Equ RDS_TEST_SHEETRHO_MIN$ To 88 +Equ RDS_TEST_SHEETRHO_MAX$ To 89 +Equ RDS_TEST_RES_AVG$ To 90 +Equ RDS_TEST_RES_STDV$ To 91 +Equ RDS_TEST_RES_UNIF$ To 92 +Equ RDS_TEST_RES_MIN$ To 93 +Equ RDS_TEST_RES_MAX$ To 94 +Equ RDS_TEST_SPEC_TRANS$ To 95 +Equ RDS_TEST_SPEC_TRANS_MEASUREMENT$ To 96 +Equ RDS_TEST_WAFER_SIZE$ To 97 +Equ RDS_TEST_SUB_ORIENTATION$ To 98 +Equ RDS_TEST_ASET_RESULTS$ To 99 +Equ RDS_TEST_MODIFY_USER$ To 100 +Equ RDS_TEST_MODIFY_DTM$ To 101 +Equ RDS_TEST_REACTOR_TYPE$ To 102 +Equ RDS_TEST_READ_HGCV1_RES$ To 103 +Equ RDS_TEST_TEST_POINT_MAP$ To 105 +Equ RDS_TEST_HGCV1_RES_AVG$ To 106 +Equ RDS_TEST_HGCV1_RES_STDV$ To 107 +Equ RDS_TEST_HGCV1_RES_UNIF$ To 108 +Equ RDS_TEST_HGCV1_RES_MIN$ To 109 +Equ RDS_TEST_HGCV1_RES_MAX$ To 110 +Equ RDS_TEST_TW_SIG$ To 111 +Equ RDS_TEST_TW_SIG_DTM$ To 112 +Equ RDS_TEST_TW_HRS_SINCE_PROD$ To 113 +Equ RDS_TEST_TW_HRS_ESC$ To 114 +Equ RDS_TEST_TW_WAFER_ID$ To 115 +Equ RDS_TEST_SPC_DTM$ To 116 +Equ RDS_TEST_SPEC_CRES_MIN$ To 117 +Equ RDS_TEST_SPEC_CRES_TARGET$ To 118 +Equ RDS_TEST_SPEC_CRES_MAX$ To 119 +Equ RDS_TEST_SPEC_CRES_UNITS$ To 120 +Equ RDS_TEST_SPEC_CRES_MTOOL$ To 121 +Equ RDS_TEST_SPEC_CRES_MTYPE$ To 122 +Equ RDS_TEST_SPEC_CRES_MRECIPE$ To 123 +Equ RDS_TEST_SPEC_CRES_MFREQ$ To 124 +Equ RDS_TEST_SPEC_CRES_MPROVEIN$ To 125 +Equ RDS_TEST_SPEC_CRES_MFIRST$ To 126 +Equ RDS_TEST_SPEC_CRES_MLAST$ To 127 +Equ RDS_TEST_SPEC_CRES_MSPC$ To 128 +Equ RDS_TEST_SPEC_CRES_MOVERGROW$ To 129 +Equ RDS_TEST_SPEC_THICK_MPATTERN$ To 130 +Equ RDS_TEST_SPEC_RES_MPATTERN$ To 131 +Equ RDS_TEST_SPEC_CON_MPATTERN$ To 132 +Equ RDS_TEST_SPEC_STRESS_MPATTERN$ To 133 +Equ RDS_TEST_SPEC_CRES_MPATTERN$ To 134 +Equ RDS_TEST_TW_USE_ID$ To 135 +Equ RDS_TEST_THICK_RANGE$ To 136 +Equ RDS_TEST_THICK_RANGE_PCNT$ To 137 +Equ RDS_TEST_SHEETRHO_RANGE$ To 138 +Equ RDS_TEST_SHEETRHO_RANGE_PCNT$ To 139 +Equ RDS_TEST_RES_RANGE$ To 140 +Equ RDS_TEST_RES_RANGE_PCNT$ To 141 +Equ RDS_TEST_HGCV1_RES_RANGE$ To 142 +Equ RDS_TEST_HGCV1_RES_RANGE_PCNT$ To 143 +Equ RDS_TEST_TEST_RUN_THICKNESS_DTM$ To 144 +Equ RDS_TEST_TEST_RUN_SHEET_RHO_DTM$ To 145 +Equ RDS_TEST_TEST_RUN_HGCV_DTM$ To 146 +Equ RDS_TEST_MODIFY_OVERRIDE$ To 147 +Equ RDS_TEST_OVERRIDE_USERNAME$ To 148 +Equ RDS_TEST_OVERRIDE_DTM$ To 149 diff --git a/LSL2/STPROCINS/RDS_TEST_PROP_EQUATES.txt b/LSL2/STPROCINS/RDS_TEST_PROP_EQUATES.txt new file mode 100644 index 0000000..dcc8958 --- /dev/null +++ b/LSL2/STPROCINS/RDS_TEST_PROP_EQUATES.txt @@ -0,0 +1,32 @@ +compile insert RDS_TEST_PROP_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 06/06/2014 + Description : Insert for Table RDS_TEST_PROP +----------------------------------------*/ + + +Equ RDS_TEST_PROP_MET_NO$ To 0 +Equ RDS_TEST_PROP_PROP_CD$ To 0 +Equ RDS_TEST_PROP_SPEC_MIN$ To 1 +Equ RDS_TEST_PROP_SPEC_MAX$ To 2 +Equ RDS_TEST_PROP_SPEC_TARGET$ To 3 +Equ RDS_TEST_PROP_SPEC_UNITS$ To 4 +Equ RDS_TEST_PROP_SPEC_MTOOL$ To 5 +Equ RDS_TEST_PROP_SPEC_MTYPE$ To 6 +Equ RDS_TEST_PROP_SPEC_MRECIPE$ To 7 +Equ RDS_TEST_PROP_SPEC_MFREQ$ To 8 +Equ RDS_TEST_PROP_SPEC_MPROVEIN$ To 9 +Equ RDS_TEST_PROP_SPEC_MFIRST$ To 10 +Equ RDS_TEST_PROP_SPEC_MLAST$ To 11 +Equ RDS_TEST_PROP_SPEC_MSPC$ To 12 +Equ RDS_TEST_PROP_SPEC_MOVERGROW$ To 13 +Equ RDS_TEST_PROP_SPEC_MPATTERN$ To 14 +Equ RDS_TEST_PROP_READING$ To 15 +Equ RDS_TEST_PROP_RANGE$ To 16 +Equ RDS_TEST_PROP_RANGE_PCNT$ To 17 +Equ RDS_TEST_PROP_AVG$ To 18 +Equ RDS_TEST_PROP_STDV$ To 19 +Equ RDS_TEST_PROP_UNIF$ To 20 +Equ RDS_TEST_PROP_MIN$ To 21 +Equ RDS_TEST_PROP_MAX$ To 22 diff --git a/LSL2/STPROCINS/REACTOR_CHILD_KEY_IDS_EQUATES.txt b/LSL2/STPROCINS/REACTOR_CHILD_KEY_IDS_EQUATES.txt new file mode 100644 index 0000000..96e6e9e --- /dev/null +++ b/LSL2/STPROCINS/REACTOR_CHILD_KEY_IDS_EQUATES.txt @@ -0,0 +1,10 @@ +compile insert REACTOR_CHILD_KEY_IDS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 18/09/2017 + Description : Insert for Table REACTOR_CHILD_KEY_IDS +----------------------------------------*/ + + +Equ REACTOR_CHILD_KEY_IDS_REACTOR_NO$ To 0 +Equ REACTOR_CHILD_KEY_IDS_REACT_MODE_KEY_IDS$ To 1 diff --git a/LSL2/STPROCINS/REACTOR_EQUATES.txt b/LSL2/STPROCINS/REACTOR_EQUATES.txt new file mode 100644 index 0000000..6af5498 --- /dev/null +++ b/LSL2/STPROCINS/REACTOR_EQUATES.txt @@ -0,0 +1,77 @@ +compile insert REACTOR_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 08/11/2016 + Description : Insert for Table REACTOR +----------------------------------------*/ + + +Equ REACTOR_REACT_NO$ To 0 +Equ REACTOR_REACT_TYPE$ To 1 +Equ REACTOR_REDUCED_PRESS$ To 2 +Equ REACTOR_MFC_LOC$ To 3 +Equ REACTOR_MFC_SERIAL$ To 4 +Equ REACTOR_GAS_SRC$ To 5 +Equ REACTOR_REACT_ASSIGNMENT$ To 6 +Equ REACTOR_TEMP_TYPE$ To 7 +Equ REACTOR_MFC_LOC_PN$ To 8 +Equ REACTOR_ESC_START_DTM$ To 9 +Equ REACTOR_ACTIVE_ESCALATION$ To 10 +Equ REACTOR_REACT_DESC$ To 11 +Equ REACTOR_CURR_MODE_KEY$ To 12 +Equ REACTOR_HEAVY_DOPE$ To 13 +Equ REACTOR_ATV$ To 14 +Equ REACTOR_INJECT_TYPE$ To 15 +Equ REACTOR_SOS_SENSORS$ To 16 +Equ REACTOR_SERIAL_NO$ To 17 +Equ REACTOR_MFR_TYPE$ To 18 +Equ REACTOR_ASM_MFR_YEAR$ To 19 +Equ REACTOR_ARM_TYPE$ To 20 +Equ REACTOR_PROCESSOR$ To 21 +Equ REACTOR_CONFIG_NOTES$ To 22 +Equ REACTOR_EXT_TYPE$ To 23 +Equ REACTOR_HTHF$ To 24 +Equ REACTOR_LAST_READ_HRS_DTM$ To 25 +Equ REACTOR_LAST_READ_WFRS_DTM$ To 26 +Equ REACTOR_TUBE_SIZE$ To 27 +Equ REACTOR_WAFER_SIZE$ To 27 +Equ REACTOR_SUSC_POCKET_QTY$ To 28 +Equ REACTOR_SUSC_POCKET_SIZE$ To 29 +Equ REACTOR_PICK_PLACE$ To 30 +Equ REACTOR_VENDOR$ To 31 +Equ REACTOR_LOCATIONX$ To 32 +Equ REACTOR_TOOL_WHX$ To 33 +Equ REACTOR_TOOL_LOCX$ To 34 +Equ REACTOR_TOOL_ID$ To 35 +Equ REACTOR_INJECT_SETTING$ To 36 +Equ REACTOR_CURR_INST_GRAPHITE$ To 37 +Equ REACTOR_CURR_INST_ITEMS$ To 37 +Equ REACTOR_LL_DISABLED$ To 38 +Equ REACTOR_ACTIVE_LL_DISABLED$ To 39 +Equ REACTOR_SUSC_CONFIG_ID$ To 40 +Equ REACTOR_SECOND_CHAMBER$ To 41 +Equ REACTOR_X_PREV_RUNS$ To 42 +Equ REACTOR_NCR_LIMIT$ To 43 +Equ REACTOR_ZERO_NCR_MIN$ To 44 +Equ REACTOR_UCL_LIMIT$ To 45 +Equ REACTOR_ROTR_FAIL_LIMIT$ To 46 +Equ REACTOR_ROTR_STATUS$ To 47 +Equ REACTOR_ROTR_STATUS_REASON$ To 48 +Equ REACTOR_ENABLE_ROTR$ To 49 +Equ REACTOR_ROTR_STOP_RDS$ To 50 +Equ REACTOR_ROTR_MAINT_RESET$ To 51 +Equ REACTOR_SCHED_EVENTS$ To 52 +Equ REACTOR_NOT_REPAIRABLE$ To 53 +Equ REACTOR_0311_ACTIVE$ To 54 +Equ REACTOR_ROTR_OVERRIDE_COUNT$ To 55 +Equ REACTOR_PREVIOUS_ROTR_STATUS_REASON$ To 56 +Equ REACTOR_PREVIOUS_ROTR_OVERRIDE_RDS$ To 57 +Equ REACTOR_TUBE_BELL_JAR_THK$ TO 58 +Equ REACTOR_TUBE_BELL_JAR_WFR_CNT$ TO 59 +Equ REACTOR_SUSC_THK$ TO 60 +Equ REACTOR_SUSC_WFR_CNT$ TO 61 +Equ REACTOR_LOWER_QUARTZ_THK$ TO 62 +Equ REACTOR_LOWER_QUARTZ_WFR$ TO 63 +Equ REACTOR_ARMS_WFR_CNT$ TO 64 + + diff --git a/LSL2/STPROCINS/REACTOR_LOG_EQU.txt b/LSL2/STPROCINS/REACTOR_LOG_EQU.txt new file mode 100644 index 0000000..19a8385 --- /dev/null +++ b/LSL2/STPROCINS/REACTOR_LOG_EQU.txt @@ -0,0 +1,58 @@ +compile insert REACTOR_LOG_EQU +* Equates for REACTOR_LOG created on 06/14/01 10:44AM + +equ REACTOR_LOG_START_DATE$ to 1 +equ REACTOR_LOG_START_TIME$ to 2 +equ REACTOR_LOG_END_DATE$ to 3 +equ REACTOR_LOG_END_TIME$ to 4 +equ REACTOR_LOG_REACTOR$ to 5 +equ REACTOR_LOG_CATEGORY$ to 6 +equ REACTOR_LOG_REACT_HRS_START$ to 7 +equ REACTOR_LOG_NOTES$ to 8 +equ REACTOR_LOG_ENTRY_ID$ to 9 +equ REACTOR_LOG_ENTRY_DATE$ to 10 +equ REACTOR_LOG_CUST_NO$ to 11 +equ REACTOR_LOG_WO$ to 12 +equ REACTOR_LOG_RDS_NO$ to 14 +equ REACTOR_LOG_REACT_ITEM_IDS$ to 15 +equ REACTOR_LOG_TECH_SIG$ to 16 +equ REACTOR_LOG_REACT_PROB_ID$ to 17 +equ REACTOR_LOG_REACT_SERV_ID$ to 18 +equ REACTOR_LOG_REACT_ITEM_QTY$ to 19 +equ REACTOR_LOG_REACT_HRS_END$ to 20 +equ REACTOR_LOG_TOP_FLAT_IN$ to 21 +equ REACTOR_LOG_TOP_FLAT_OUT$ to 22 +equ REACTOR_LOG_LOW_BOTTOM_FLAT_IN$ to 23 +equ REACTOR_LOG_LOW_BOTTOM_FLAT_OUT$ to 24 +equ REACTOR_LOG_TUBE_GRADE$ to 25 +equ REACTOR_LOG_SCHEDULED$ to 26 +equ REACTOR_LOG_REACT_SERV_CAT_ID$ to 27 +equ REACTOR_LOG_REACT_PROB_CAT_ID$ to 28 +equ REACTOR_LOG_REACT_UTIL_ID$ to 29 +equ REACTOR_LOG_LL_TUBE_COND$ to 30 +equ REACTOR_LOG_LL_RECIRCULATION$ to 31 +equ REACTOR_LOG_LL_TUBE_LEAK$ to 32 +equ REACTOR_LOG_LL_GRAPHITE_PITS$ to 33 +equ REACTOR_LOG_LL_GOLD_COND$ to 34 +equ REACTOR_LOG_LL_ROTATION$ to 35 +equ REACTOR_LOG_LL_GRAPHITE_ADJ$ to 36 +equ REACTOR_LOG_LL_SHADOW$ to 37 +equ REACTOR_LOG_AW_EXTEND_HOME$ to 38 +equ REACTOR_LOG_AW_LEFT_EXTEND$ to 39 +equ REACTOR_LOG_AW_RIGHT_EXTEND$ to 40 +equ REACTOR_LOG_AW_LONG_EXTEND$ to 41 +equ REACTOR_LOG_AW_SHORT_EXTEND$ to 42 +equ REACTOR_LOG_AW_EDGE_EXTEND$ to 43 +equ REACTOR_LOG_AW_LSTEPS$ to 44 +equ REACTOR_LOG_AW_ROTATE_EDGE$ to 45 +equ REACTOR_LOG_AW_GSTEPS$ to 46 +equ REACTOR_LOG_AW_PICKUP_DELAY$ to 47 +equ REACTOR_LOG_AW_GAS_ON$ to 48 +equ REACTOR_LOG_AW_GAS_OFF$ to 49 +equ REACTOR_LOG_AW_DROPOFF_DELAY$ to 50 +equ REACTOR_LOG_AW_VELOCITY_EXTEND$ to 51 +equ REACTOR_LOG_AW_ACCELERATION_EXTEND$ to 52 +equ REACTOR_LOG_AW_VELOCITY_ROTATE$ to 53 +equ REACTOR_LOG_AW_ACCELERATION_ROTATE$ to 54 +equ REACTOR_LOG_REACTORHOURS$ to 55 +equ REACTOR_LOG_REACT_CYCLES_READ$ TO 56 diff --git a/LSL2/STPROCINS/REACTOR_LOG_EQUATES.txt b/LSL2/STPROCINS/REACTOR_LOG_EQUATES.txt new file mode 100644 index 0000000..dca1650 --- /dev/null +++ b/LSL2/STPROCINS/REACTOR_LOG_EQUATES.txt @@ -0,0 +1,86 @@ +compile insert REACTOR_LOG_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 25/04/2014 + Description : Insert for Table REACTOR_LOG +----------------------------------------*/ + + +Equ REACTOR_LOG_SEQ$ To 0 +Equ REACTOR_LOG_START_DATE$ To 1 +Equ REACTOR_LOG_START_TIME$ To 2 +Equ REACTOR_LOG_END_DATE$ To 3 +Equ REACTOR_LOG_END_TIME$ To 4 +Equ REACTOR_LOG_REACTOR$ To 5 +Equ REACTOR_LOG_CATEGORY$ To 6 +Equ REACTOR_LOG_REACT_HRS_START$ To 7 +Equ REACTOR_LOG_NOTES$ To 8 +Equ REACTOR_LOG_ENTRY_ID$ To 9 +Equ REACTOR_LOG_ENTRY_DATE$ To 10 +Equ REACTOR_LOG_CUST_NO$ To 11 +Equ REACTOR_LOG_WO$ To 12 +Equ REACTOR_LOG_RDS_NO$ To 14 +Equ REACTOR_LOG_REACT_ITEM_IDS$ To 15 +Equ REACTOR_LOG_TECH_SIG$ To 16 +Equ REACTOR_LOG_REACT_PROB_ID$ To 17 +Equ REACTOR_LOG_REACT_SERV_ID$ To 18 +Equ REACTOR_LOG_REACT_ITEM_QTY$ To 19 +Equ REACTOR_LOG_REACT_HRS_END$ To 20 +Equ REACTOR_LOG_TOP_FLAT_IN$ To 21 +Equ REACTOR_LOG_TOP_FLAT_OUT$ To 22 +Equ REACTOR_LOG_LOW_BOTTOM_FLAT_IN$ To 23 +Equ REACTOR_LOG_LOW_BOTTOM_FLAT_OUT$ To 24 +Equ REACTOR_LOG_TUBE_GRADE$ To 25 +Equ REACTOR_LOG_SCHEDULED$ To 26 +Equ REACTOR_LOG_REACT_SERV_CAT_ID$ To 27 +Equ REACTOR_LOG_REACT_PROB_CAT_ID$ To 28 +Equ REACTOR_LOG_REACT_UTIL_ID$ To 29 +Equ REACTOR_LOG_LL_TUBE_COND$ To 30 +Equ REACTOR_LOG_LL_RECIRCULATION$ To 31 +Equ REACTOR_LOG_LL_TUBE_LEAK$ To 32 +Equ REACTOR_LOG_LL_GRAPHITE_PITS$ To 33 +Equ REACTOR_LOG_LL_GOLD_COND$ To 34 +Equ REACTOR_LOG_LL_ROTATION$ To 35 +Equ REACTOR_LOG_LL_GRAPHITE_ADJ$ To 36 +Equ REACTOR_LOG_LL_SHADOW$ To 37 +Equ REACTOR_LOG_AW_EXTEND_HOME$ To 38 +Equ REACTOR_LOG_AW_LEFT_EXTEND$ To 39 +Equ REACTOR_LOG_AW_RIGHT_EXTEND$ To 40 +Equ REACTOR_LOG_AW_LONG_EXTEND$ To 41 +Equ REACTOR_LOG_AW_SHORT_EXTEND$ To 42 +Equ REACTOR_LOG_AW_EDGE_EXTEND$ To 43 +Equ REACTOR_LOG_AW_LSTEPS$ To 44 +Equ REACTOR_LOG_AW_ROTATE_EDGE$ To 45 +Equ REACTOR_LOG_AW_GSTEPS$ To 46 +Equ REACTOR_LOG_AW_PICKUP_DELAY$ To 47 +Equ REACTOR_LOG_AW_GAS_ON$ To 48 +Equ REACTOR_LOG_AW_GAS_OFF$ To 49 +Equ REACTOR_LOG_AW_DROPOFF_DELAY$ To 50 +Equ REACTOR_LOG_AW_VELOCITY_EXTEND$ To 51 +Equ REACTOR_LOG_AW_ACCELERATION_EXTEND$ To 52 +Equ REACTOR_LOG_AW_VELOCITY_ROTATE$ To 53 +Equ REACTOR_LOG_AW_ACCELERATION_ROTATE$ To 54 +Equ REACTOR_LOG_REACTORHOURS$ To 55 +Equ REACTOR_LOG_REACT_CYCLES_READ$ To 56 +Equ REACTOR_LOG_REACT_WAFER_CNT$ To 57 +Equ REACTOR_LOG_REACT_WFR_CNT_START$ To 57 +Equ REACTOR_LOG_INST_RI_NO$ To 58 +Equ REACTOR_LOG_REM_RIH_KEY$ To 59 +Equ REACTOR_LOG_REM_DISP_CD$ To 60 +Equ REACTOR_LOG_REM_PPLUS$ To 61 +Equ REACTOR_LOG_RI_POST_BY$ To 62 +Equ REACTOR_LOG_RI_POST_DTM$ To 63 +Equ REACTOR_LOG_REACT_WFR_CNT_END$ To 64 +Equ REACTOR_LOG_SHIFT_SIG$ To 65 +Equ REACTOR_LOG_SHIFT_DTM$ To 66 +Equ REACTOR_LOG_SHIFT_NOTE$ To 67 +Equ REACTOR_LOG_INJ_SETTING$ To 68 +Equ REACTOR_LOG_LO_REVIEWED$ To 69 +Equ REACTOR_LOG_LO_NA$ To 70 +Equ REACTOR_LOG_ROTR$ To 71 +Equ REACTOR_LOG_NOTES_DTMS$ To 72 +Equ REACTOR_LOG_NOTES_USERS$ To 73 +Equ REACTOR_LOG_WAFERS_REMOVED$ To 74 +Equ REACTOR_LOG_WAFERS_REMOVED_RDS$ To 75 + + diff --git a/LSL2/STPROCINS/REACTOR_MODES_EQUATES.txt b/LSL2/STPROCINS/REACTOR_MODES_EQUATES.txt new file mode 100644 index 0000000..e3da99d --- /dev/null +++ b/LSL2/STPROCINS/REACTOR_MODES_EQUATES.txt @@ -0,0 +1,21 @@ +compile insert REACTOR_MODES_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 24/04/2023 + Description : Insert for Table REACTOR_MODES +----------------------------------------*/ + + +Equ REACTOR_MODES_MODE$ To 0 +Equ REACTOR_MODES_E10_STATE$ To 1 +Equ REACTOR_MODES_DESCRIPTION$ To 2 +Equ REACTOR_MODES_SECURITY_LEVEL$ To 3 +Equ REACTOR_MODES_SERVICE_CATEGORIES$ To 4 +Equ REACTOR_MODES_SERVICE_CATEGORY_ID$ To 5 +Equ REACTOR_MODES_MODE_CATEGORY$ To 6 +Equ REACTOR_MODES_ICON$ To 7 +Equ REACTOR_MODES_GROUPS_ENTER$ To 8 +Equ REACTOR_MODES_GROUPS_RELEASE$ To 9 +Equ REACTOR_MODES_NOTIFICATION_ACTIVE$ To 10 +Equ REACTOR_MODES_NOTIFY_CLASS$ To 11 + diff --git a/LSL2/STPROCINS/REACTOR_PERFORMANCE_NG_EQUATES.txt b/LSL2/STPROCINS/REACTOR_PERFORMANCE_NG_EQUATES.txt new file mode 100644 index 0000000..7517590 --- /dev/null +++ b/LSL2/STPROCINS/REACTOR_PERFORMANCE_NG_EQUATES.txt @@ -0,0 +1,16 @@ +compile insert REACTOR_PERFORMANCE_NG_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 19/08/2021 + Description : Insert for Table REACTOR_PERFORMANCE_NG +----------------------------------------*/ + + +Equ REACTOR_PERFORMANCE_NG.EPI_PART_NO$ To 0 +Equ REACTOR_PERFORMANCE_NG.REACTOR_NO$ To 0 +Equ REACTOR_PERFORMANCE_NG.SCHEDULE_DATE$ To 0 +Equ REACTOR_PERFORMANCE_NG.WEEK_NO$ To 0 +Equ REACTOR_PERFORMANCE_NG.WEEK_YEAR$ To 0 +Equ REACTOR_PERFORMANCE_NG.CHILD_KEY_IDS$ To 1 +Equ REACTOR_PERFORMANCE_NG.WAFERS_EXPECTED$ To 2 +Equ REACTOR_PERFORMANCE_NG.WAFERS_PROCESSED$ To 3 diff --git a/LSL2/STPROCINS/REACTOR_PM_EQU.txt b/LSL2/STPROCINS/REACTOR_PM_EQU.txt new file mode 100644 index 0000000..7fa1085 --- /dev/null +++ b/LSL2/STPROCINS/REACTOR_PM_EQU.txt @@ -0,0 +1,14 @@ +COMPILE INSERT REACTOR_PM_EQU + +* Equates for REACTOR_PM + +EQU REACTOR_PM_REACT_SERV_ID$ TO 1 +EQU REACTOR_PM_LAST_DONE$ TO 2 +EQU REACTOR_PM_NEXT_DONE$ TO 3 +EQU REACTOR_PM_REACTOR$ TO 4 +EQU REACTOR_PM_ENTRY_ID$ TO 5 +EQU REACTOR_PM_ENTRY_DATE$ TO 6 +EQU REACTOR_PM_COMPLETE_DATE$ TO 7 +EQU REACTOR_PM_ENTRY_RL_NO$ TO 8 +EQU REACTOR_PM_COMP_RL_NO$ TO 9 + diff --git a/LSL2/STPROCINS/REACTOR_PM_EQUATES.txt b/LSL2/STPROCINS/REACTOR_PM_EQUATES.txt new file mode 100644 index 0000000..e80b645 --- /dev/null +++ b/LSL2/STPROCINS/REACTOR_PM_EQUATES.txt @@ -0,0 +1,24 @@ +compile insert REACTOR_PM_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 03/06/2013 + Description : Insert for Table REACTOR_PM +----------------------------------------*/ + + +Equ REACTOR_PM_SEQ$ To 0 +Equ REACTOR_PM_REACT_SERV_ID$ To 1 + +Equ REACTOR_PM_LAST_DONE$ To 2 +Equ REACTOR_PM_PREV_PM_COMP_DT$ To 2 + +Equ REACTOR_PM_DUE_DT$ To 3 +Equ REACTOR_PM_NEXT_DONE$ To 3 + +Equ REACTOR_PM_REACTOR$ To 4 +Equ REACTOR_PM_ENTRY_ID$ To 5 +Equ REACTOR_PM_ENTRY_DATE$ To 6 +Equ REACTOR_PM_COMPLETE_DATE$ To 7 +Equ REACTOR_PM_COMP_DT$ To 7 +Equ REACTOR_PM_ENTRY_RL_NO$ To 8 +Equ REACTOR_PM_COMP_RL_NO$ To 9 diff --git a/LSL2/STPROCINS/REACT_COMP_EQUATES.txt b/LSL2/STPROCINS/REACT_COMP_EQUATES.txt new file mode 100644 index 0000000..7ddad16 --- /dev/null +++ b/LSL2/STPROCINS/REACT_COMP_EQUATES.txt @@ -0,0 +1,13 @@ +compile insert REACT_COMP_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 01/11/2013 + Description : Insert for Table REACT_COMP +----------------------------------------*/ + + +Equ REACT_COMP_COMP_NO$ To 0 +Equ REACT_COMP_DESC$ To 1 +Equ REACT_COMP_PARENT$ To 2 +Equ REACT_COMP_SUB_COMP$ To 3 +Equ REACT_COMP_CLASS$ To 4 diff --git a/LSL2/STPROCINS/REACT_ESC_EQUATES.txt b/LSL2/STPROCINS/REACT_ESC_EQUATES.txt new file mode 100644 index 0000000..acc1d9b --- /dev/null +++ b/LSL2/STPROCINS/REACT_ESC_EQUATES.txt @@ -0,0 +1,16 @@ +compile insert REACT_ESC_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 27/09/2007 + Description : Insert for Table REACT_ESC +----------------------------------------*/ + + +Equ REACT_ESC_REACT_NO$ To 0.1 +Equ REACT_ESC_START_DTM$ To 0.2 +Equ REACT_ESC_START_USER$ To 1 +Equ REACT_ESC_START_REASON$ To 2 +Equ REACT_ESC_STOP_DTM$ To 3 +Equ REACT_ESC_STOP_USER$ To 4 +Equ REACT_ESC_STOP_REASON$ To 5 +Equ REACT_ESC_OUT_OF_PROD_DTM$ To 6 diff --git a/LSL2/STPROCINS/REACT_ESC_HIST_EQUATES.txt b/LSL2/STPROCINS/REACT_ESC_HIST_EQUATES.txt new file mode 100644 index 0000000..8d1e518 --- /dev/null +++ b/LSL2/STPROCINS/REACT_ESC_HIST_EQUATES.txt @@ -0,0 +1,15 @@ +compile insert REACT_ESC_HIST_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 24/09/2007 + Description : Insert for Table REACT_ESC_HIST +----------------------------------------*/ + + +Equ REACT_ESC_HIST_ESC_START_DTM$ To 0 +Equ REACT_ESC_HIST_REACT_NO$ To 0 +Equ REACT_ESC_HIST_ESC_START_USER$ To 1 +Equ REACT_ESC_HIST_ESC_START_REASON$ To 2 +Equ REACT_ESC_HIST_ESC_STOP_DTM$ To 3 +Equ REACT_ESC_HIST_ESC_STOP_USER$ To 4 +Equ REACT_ESC_HIST_ESC_STOP_REASON$ To 5 diff --git a/LSL2/STPROCINS/REACT_EVENT_EQUATES.txt b/LSL2/STPROCINS/REACT_EVENT_EQUATES.txt new file mode 100644 index 0000000..2654f96 --- /dev/null +++ b/LSL2/STPROCINS/REACT_EVENT_EQUATES.txt @@ -0,0 +1,33 @@ +compile insert REACT_EVENT_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 11/12/2013 + Description : Insert for Table REACT_EVENT +----------------------------------------*/ + + +Equ REACT_EVENT_EVENT_DTM$ To 0 +Equ REACT_EVENT_REACT_NO$ To 0 +Equ REACT_EVENT_COMMENT$ To 1 +Equ REACT_EVENT_LOGGED_BY$ To 2 +Equ REACT_EVENT_SPARE2$ To 3 +Equ REACT_EVENT_REACT_MODE$ To 4 +Equ REACT_EVENT_RDS_NO$ To 5 +Equ REACT_EVENT_REACT_PROB_CAT$ To 6 +Equ REACT_EVENT_REACT_LOG_KEY$ To 7 +Equ REACT_EVENT_REACT_UTIL_KEY$ To 8 +Equ REACT_EVENT_REACT_LOG_PD_KEY$ To 9 +Equ REACT_EVENT_REACT_MODE_KEY$ To 10 +Equ REACT_EVENT_REACT_ESC_KEY$ To 11 +Equ REACT_EVENT_STOP_DTM$ To 12 +Equ REACT_EVENT_WO_NO$ To 13 +Equ REACT_EVENT_SUP_COMMENT$ To 14 +Equ REACT_EVENT_REACT_ESC_START_KEY$ To 15 +Equ REACT_EVENT_REACT_ESC_STOP_KEY$ To 16 +Equ REACT_EVENT_EVENT_CD$ To 17 +Equ REACT_EVENT_REACT_ESC_HRS$ To 18 +Equ REACT_EVENT_AUTO_LOG$ To 20 +Equ REACT_EVENT_SRC_TABLE$ To 21 +Equ REACT_EVENT_SRC_KEY$ To 22 +Equ REACT_EVENT_LAST_READ_WFRS_DTM$ To 23 +Equ REACT_EVENT_LAST_READ_WFRS_VAL$ To 24 diff --git a/LSL2/STPROCINS/REACT_GRAPHITE_EQUATES.txt b/LSL2/STPROCINS/REACT_GRAPHITE_EQUATES.txt new file mode 100644 index 0000000..df3e8dc --- /dev/null +++ b/LSL2/STPROCINS/REACT_GRAPHITE_EQUATES.txt @@ -0,0 +1,22 @@ +compile insert REACT_GRAPHITE_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 20/04/2022 + Description : Insert for Table REACT_GRAPHITE +----------------------------------------*/ + + +Equ REACT_GRAPHITE_GR_TYPE$ To 0 +Equ REACT_GRAPHITE_INST_DTM$ To 0 +Equ REACT_GRAPHITE_REACT_NO$ To 0 +Equ REACT_GRAPHITE_GR_NO$ To 1 +Equ REACT_GRAPHITE_INST_RL_ID$ To 2 +Equ REACT_GRAPHITE_RDS_WAFER_CNT$ To 3 +Equ REACT_GRAPHITE_INST_REACT_WFR_CNT$ To 4 +Equ REACT_GRAPHITE_INST_REACT_HRS$ To 5 +Equ REACT_GRAPHITE_INST_REACT_CYCLES$ To 6 +Equ REACT_GRAPHITE_REM_DTM$ To 7 +Equ REACT_GRAPHITE_REM_RL_ID$ To 8 +Equ REACT_GRAPHITE_REM_REACT_HRS$ To 9 +Equ REACT_GRAPHITE_REM_REACT_CYCLES$ To 10 +Equ REACT_GRAPHITE_REM_REACT_WFR_CNT$ To 11 diff --git a/LSL2/STPROCINS/REACT_GR_TYPE_EQUATES.txt b/LSL2/STPROCINS/REACT_GR_TYPE_EQUATES.txt new file mode 100644 index 0000000..883acb8 --- /dev/null +++ b/LSL2/STPROCINS/REACT_GR_TYPE_EQUATES.txt @@ -0,0 +1,12 @@ +compile insert REACT_GR_TYPE_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 11/10/2013 + Description : Insert for Table REACT_GR_TYPE +----------------------------------------*/ + + +Equ REACT_GR_TYPE_GR_TYPE$ To 0 +Equ REACT_GR_TYPE_REACT_NO$ To 0 +Equ REACT_GR_TYPE_INST_DTM$ To 1 +Equ REACT_GR_TYPE_REM_DTM$ To 2 diff --git a/LSL2/STPROCINS/REACT_HRS_EQU.txt b/LSL2/STPROCINS/REACT_HRS_EQU.txt new file mode 100644 index 0000000..fc77058 --- /dev/null +++ b/LSL2/STPROCINS/REACT_HRS_EQU.txt @@ -0,0 +1,7 @@ +compile insert REACT_HRS_EQU +* Equates for REACT_HRS_EQU in CONFIG + +equ ReactHrsReactor$ to 1 +equ ReactHrsHours$ to 2 +equ ReactHrsTCHours$ to 3 + diff --git a/LSL2/STPROCINS/REACT_INJECTOR_EQUATES.txt b/LSL2/STPROCINS/REACT_INJECTOR_EQUATES.txt new file mode 100644 index 0000000..32a401f --- /dev/null +++ b/LSL2/STPROCINS/REACT_INJECTOR_EQUATES.txt @@ -0,0 +1,13 @@ +compile insert REACT_INJECTOR_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 11/02/2014 + Description : Insert for Table REACT_INJECTOR +----------------------------------------*/ + + +Equ REACT_INJECTOR_REACT_NO$ To 0 +Equ REACT_INJECTOR_INJ_TYPE$ To 1 +Equ REACT_INJECTOR_SET_DTM$ To 3 +Equ REACT_INJECTOR_SET_RL_ID$ To 4 +Equ REACT_INJECTOR_SETTING$ To 5 diff --git a/LSL2/STPROCINS/REACT_ITEMS_EQU.txt b/LSL2/STPROCINS/REACT_ITEMS_EQU.txt new file mode 100644 index 0000000..ddb6ac9 --- /dev/null +++ b/LSL2/STPROCINS/REACT_ITEMS_EQU.txt @@ -0,0 +1,8 @@ +* Equates for REACT_ITEMS created on 11/27/00 09:04AM + +equ REACT_ITEMS_DESCRIPTION$ to 1 +equ REACT_ITEMS_STATUS$ to 2 +equ REACT_ITEMS_ENTRY_ID$ to 3 +equ REACT_ITEMS_ENTRY_DATE$ to 4 +equ REACT_ITEMS_GRAPHITE_OR_TUBE$ to 5 +equ REACT_ITEMS_INACTIVE_DATE$ to 6 diff --git a/LSL2/STPROCINS/REACT_ITEMS_EQUATES.txt b/LSL2/STPROCINS/REACT_ITEMS_EQUATES.txt new file mode 100644 index 0000000..7eaf9c1 --- /dev/null +++ b/LSL2/STPROCINS/REACT_ITEMS_EQUATES.txt @@ -0,0 +1,18 @@ +compile insert REACT_ITEMS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 20/11/2013 + Description : Insert for Table REACT_ITEMS +----------------------------------------*/ + + +Equ REACT_ITEMS_ITEM_NO$ To 0 +Equ REACT_ITEMS_DESCRIPTION$ To 1 +Equ REACT_ITEMS_STATUS$ To 2 +Equ REACT_ITEMS_ENTRY_ID$ To 3 +Equ REACT_ITEMS_ENTRY_DATE$ To 4 +Equ REACT_ITEMS_GRAPHITE_OR_TUBE$ To 5 +Equ REACT_ITEMS_REACT_ITEM_TYPE$ To 5 +Equ REACT_ITEMS_INACTIVE_DATE$ To 6 +Equ REACT_ITEMS_UNKNOWN1$ To 7 +Equ REACT_ITEMS_UNKNOWN2$ To 8 diff --git a/LSL2/STPROCINS/REACT_ITEM_EQUATES.txt b/LSL2/STPROCINS/REACT_ITEM_EQUATES.txt new file mode 100644 index 0000000..4f25db2 --- /dev/null +++ b/LSL2/STPROCINS/REACT_ITEM_EQUATES.txt @@ -0,0 +1,30 @@ +compile insert REACT_ITEM_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 26/01/2023 + Description : Insert for Table REACT_ITEM +----------------------------------------*/ + + +Equ REACT_ITEM_RI_NO$ To 0 +Equ REACT_ITEM_DESC$ To 1 +Equ REACT_ITEM_ENTER_BY$ To 2 +Equ REACT_ITEM_ENTER_DTM$ To 3 +Equ REACT_ITEM_RETIRE_BY$ To 4 +Equ REACT_ITEM_RETIRE_DT$ To 5 +Equ REACT_ITEM_PART_TYPE$ To 6 +Equ REACT_ITEM_MFR_CD$ To 7 +Equ REACT_ITEM_MFR_PART_NO$ To 8 +Equ REACT_ITEM_MFR_PART_NO_REV$ To 9 +Equ REACT_ITEM_SERIAL_NO$ To 10 +Equ REACT_ITEM_RI_TYPE$ To 11 +Equ REACT_ITEM_SUSC_SIZE$ To 12 +Equ REACT_ITEM_PKT_QTY$ To 13 +Equ REACT_ITEM_PKT_SIZE$ To 14 +Equ REACT_ITEM_NOTES$ To 15 +Equ REACT_ITEM_PPLUS_RDS_NO$ To 16 +Equ REACT_ITEM_SERIAL$ To 17 +Equ REACT_ITEM_TUBE_GRADE$ To 18 +Equ REACT_ITEM_TUBE_PRESS$ To 19 +Equ REACT_ITEM_TUBE_STYLE$ To 20 +Equ REACT_ITEM_NEW_OR_REFURB$ To 21 diff --git a/LSL2/STPROCINS/REACT_ITEM_HIST_EQUATES.txt b/LSL2/STPROCINS/REACT_ITEM_HIST_EQUATES.txt new file mode 100644 index 0000000..8a7e3b3 --- /dev/null +++ b/LSL2/STPROCINS/REACT_ITEM_HIST_EQUATES.txt @@ -0,0 +1,20 @@ +compile insert REACT_ITEM_HIST_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 16/01/2014 + Description : Insert for Table REACT_ITEM_HIST +----------------------------------------*/ + + +Equ REACT_ITEM_HIST_INST_DTM$ To 0 +Equ REACT_ITEM_HIST_REACT_NO$ To 0 +Equ REACT_ITEM_HIST_RI_NO$ To 0 + +Equ REACT_ITEM_HIST_INST_RL_ID$ To 1 +Equ REACT_ITEM_HIST_INST_REACT_WFR_CNT$ To 2 +Equ REACT_ITEM_HIST_INST_REACT_HRS$ To 3 +Equ REACT_ITEM_HIST_REM_DTM$ To 6 +Equ REACT_ITEM_HIST_REM_RL_ID$ To 7 +Equ REACT_ITEM_HIST_REM_REACT_WFR_CNT$ To 8 +Equ REACT_ITEM_HIST_REM_REACT_HRS$ To 9 +Equ REACT_ITEM_HIST_REM_REASON$ To 10 diff --git a/LSL2/STPROCINS/REACT_LL_EQUATES.txt b/LSL2/STPROCINS/REACT_LL_EQUATES.txt new file mode 100644 index 0000000..5369f3f --- /dev/null +++ b/LSL2/STPROCINS/REACT_LL_EQUATES.txt @@ -0,0 +1,17 @@ +compile insert REACT_LL_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 17/08/2015 + Description : Insert for Table REACT_LL +----------------------------------------*/ + + +Equ REACT_LL_REACT_NO$ To 0 +Equ REACT_LL_START_DTM$ To 0 +Equ REACT_LL_START_USER$ To 1 +Equ REACT_LL_START_NOTE$ To 2 +Equ REACT_LL_DISABLED$ To 3 +Equ REACT_LL_QUAL_MODE$ To 4 +Equ REACT_LL_STOP_DTM$ To 5 +Equ REACT_LL_STOP_USER$ To 6 +Equ REACT_LL_STOP_NOTE$ To 7 diff --git a/LSL2/STPROCINS/REACT_LL_SERV_EQU.txt b/LSL2/STPROCINS/REACT_LL_SERV_EQU.txt new file mode 100644 index 0000000..b0f484f --- /dev/null +++ b/LSL2/STPROCINS/REACT_LL_SERV_EQU.txt @@ -0,0 +1,11 @@ +compile insert REACT_LL_SERV_EQU +* Equates for REACT_LL_SERV_CHG in CONFIG + +EQU LLReactor$ TO 1 +EQU LLLastDate$ TO 2 +EQU LLLastTime$ TO 3 +EQU LLLogID$ TO 4 +EQU LLHrsSinceLast$ TO 5 +EQU LLWfrsSinceLast$ TO 6 ;* Added 10/30/2005 JCH, J.C. Henry & Co., Inc. + + diff --git a/LSL2/STPROCINS/REACT_MAINT_EQUATES.txt b/LSL2/STPROCINS/REACT_MAINT_EQUATES.txt new file mode 100644 index 0000000..bce4c80 --- /dev/null +++ b/LSL2/STPROCINS/REACT_MAINT_EQUATES.txt @@ -0,0 +1,29 @@ +compile insert REACT_MAINT_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 22/10/2013 + Description : Insert for Table REACT_MAINT +----------------------------------------*/ + + +Equ REACT_MAINT_RM_NO$ To 0 +Equ REACT_MAINT_RL_ID$ To 1 +Equ REACT_MAINT_REACT_NO$ To 2 +Equ REACT_MAINT_REP_PROB_CAT_ID$ To 3 +Equ REACT_MAINT_DIAG_SERV_ID$ To 4 +Equ REACT_MAINT_NOTES$ To 5 +Equ REACT_MAINT_SCHED$ To 7 +Equ REACT_MAINT_OPEN_BY$ To 8 +Equ REACT_MAINT_OPEN_DTM$ To 9 +Equ REACT_MAINT_COMP_BY$ To 10 +Equ REACT_MAINT_COMP_DTM$ To 11 +Equ REACT_MAINT_INST_TUBE_ID$ To 12 +Equ REACT_MAINT_INST_GR_NO$ To 13 +Equ REACT_MAINT_INST_MFC$ To 15 +Equ REACT_MAINT_INST_MFC_LOC$ To 16 +Equ REACT_MAINT_REM_TUBE_ID$ To 17 +Equ REACT_MAINT_REM_GR_NO$ To 18 +Equ REACT_MAINT_REM_MFC$ To 19 +Equ REACT_MAINT_REM_MFC_LOC$ To 20 +Equ REACT_MAINT_MAINT_SERV_ID$ To 21 +Equ REACT_MAINT_MAINT_CAT_ID$ To 22 diff --git a/LSL2/STPROCINS/REACT_MODE_EQU.txt b/LSL2/STPROCINS/REACT_MODE_EQU.txt new file mode 100644 index 0000000..b29f68f --- /dev/null +++ b/LSL2/STPROCINS/REACT_MODE_EQU.txt @@ -0,0 +1,10 @@ +compile insert REACT_MODE_EQU +* equates for config records react_mode1-99999 +equ Mode$ to 1 +equ Username$ to 2 +equ Date$ to 3 +equ Time$ to 4 +equ Service$ to 5 +equ Note$ to 6 +equ ReactUtilID$ to 7 +equ ReactorLogID$ to 8 diff --git a/LSL2/STPROCINS/REACT_MODE_EQUATES.txt b/LSL2/STPROCINS/REACT_MODE_EQUATES.txt new file mode 100644 index 0000000..e9898c7 --- /dev/null +++ b/LSL2/STPROCINS/REACT_MODE_EQUATES.txt @@ -0,0 +1,21 @@ +compile insert REACT_MODE_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 04/12/2013 + Description : Insert for Table REACT_MODE +----------------------------------------*/ + + +Equ REACT_MODE_REACT_NO$ To 0 +Equ REACT_MODE_START_DTM$ To 0 +Equ REACT_MODE_START_USER$ To 1 +Equ REACT_MODE_START_NOTE$ To 2 +Equ REACT_MODE_START_RU_ID$ To 3 +Equ REACT_MODE_START_RL_ID$ To 4 +Equ REACT_MODE_MODE$ To 5 +Equ REACT_MODE_STOP_DTM$ To 6 +Equ REACT_MODE_STOP_USER$ To 7 +Equ REACT_MODE_STOP_NOTE$ To 8 +Equ REACT_MODE_STOP_RU_ID$ To 9 +Equ REACT_MODE_STOP_RL_ID$ To 10 +Equ REACT_MODE_SERVICE_DESC$ To 11 diff --git a/LSL2/STPROCINS/REACT_MODE_NG_EQUATES.txt b/LSL2/STPROCINS/REACT_MODE_NG_EQUATES.txt new file mode 100644 index 0000000..505c036 --- /dev/null +++ b/LSL2/STPROCINS/REACT_MODE_NG_EQUATES.txt @@ -0,0 +1,21 @@ +compile insert REACT_MODE_NG_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 15/09/2021 + Description : Insert for Table REACT_MODE_NG +----------------------------------------*/ + + +Equ REACT_MODE_NG_REACT_NO$ To 0 +Equ REACT_MODE_NG_START_DTM$ To 0 +Equ REACT_MODE_NG_START_USER$ To 1 +Equ REACT_MODE_NG_START_NOTE$ To 2 +Equ REACT_MODE_NG_START_RU_ID$ To 3 +Equ REACT_MODE_NG_START_RL_ID$ To 4 +Equ REACT_MODE_NG_MODE$ To 5 +Equ REACT_MODE_NG_STOP_DTM$ To 6 +Equ REACT_MODE_NG_STOP_USER$ To 7 +Equ REACT_MODE_NG_STOP_NOTE$ To 8 +Equ REACT_MODE_NG_STOP_RU_ID$ To 9 +Equ REACT_MODE_NG_STOP_RL_ID$ To 10 +Equ REACT_MODE_NG_SERVICE_DESC$ To 11 diff --git a/LSL2/STPROCINS/REACT_PROBS_EQUATES.txt b/LSL2/STPROCINS/REACT_PROBS_EQUATES.txt new file mode 100644 index 0000000..235a7e4 --- /dev/null +++ b/LSL2/STPROCINS/REACT_PROBS_EQUATES.txt @@ -0,0 +1,13 @@ +compile insert REACT_PROBS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 19/08/2013 + Description : Insert for Table REACT_PROBS +----------------------------------------*/ + + +Equ REACT_PROBS_PROB_ID$ To 0 +Equ REACT_PROBS_DESCRIPTION$ To 1 +Equ REACT_PROBS_ENTRY_ID$ To 3 +Equ REACT_PROBS_ENTRY_DATE$ To 4 +Equ REACT_PROBS_REACT_PROB_CAT_ID$ To 5 diff --git a/LSL2/STPROCINS/REACT_PROB_CAT_EQUATES.txt b/LSL2/STPROCINS/REACT_PROB_CAT_EQUATES.txt new file mode 100644 index 0000000..5fe4936 --- /dev/null +++ b/LSL2/STPROCINS/REACT_PROB_CAT_EQUATES.txt @@ -0,0 +1,15 @@ +compile insert REACT_PROB_CAT_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 14/04/2014 + Description : Insert for Table REACT_PROB_CAT +----------------------------------------*/ + + +Equ REACT_PROB_CAT_SEQ$ To 0 +Equ REACT_PROB_CAT_CAT_DESC$ To 1 +Equ REACT_PROB_CAT_REACTOR_PROBLEM_CATEGORY$ To 1 +Equ REACT_PROB_CAT_ENTRY_ID$ To 2 +Equ REACT_PROB_CAT_ENTRY_DATE$ To 3 +Equ REACT_PROB_CAT_REACT_PROB_ID$ To 4 +Equ REACT_PROB_CAT_NOTES$ To 5 diff --git a/LSL2/STPROCINS/REACT_READS_EQUATES.txt b/LSL2/STPROCINS/REACT_READS_EQUATES.txt new file mode 100644 index 0000000..21bb158 --- /dev/null +++ b/LSL2/STPROCINS/REACT_READS_EQUATES.txt @@ -0,0 +1,13 @@ +compile insert REACT_READS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 30/11/2012 + Description : Insert for Table REACT_READS +----------------------------------------*/ + + +Equ REACT_READS_REACT_NO$ To 0 +Equ REACT_READS_READ_DTM$ To 0 +Equ REACT_READS_HOURS$ To 1 +Equ REACT_READS_WAFER_CNT$ To 2 +Equ REACT_READS_READ_BY$ To 3 diff --git a/LSL2/STPROCINS/REACT_ROOT_CAUSE_EQUATES.txt b/LSL2/STPROCINS/REACT_ROOT_CAUSE_EQUATES.txt new file mode 100644 index 0000000..64f9495 --- /dev/null +++ b/LSL2/STPROCINS/REACT_ROOT_CAUSE_EQUATES.txt @@ -0,0 +1,21 @@ +compile insert REACT_ROOT_CAUSE_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 09/07/2015 + Description : Insert for Table REACT_ROOT_CAUSE +----------------------------------------*/ + + +Equ REACT_ROOT_CAUSE_RC_NO$ To 0 +Equ REACT_ROOT_CAUSE_REACT_NO$ To 1 +Equ REACT_ROOT_CAUSE_PROB_CAT_CODE$ To 2 +Equ REACT_ROOT_CAUSE_OPEN_DT$ To 3 +Equ REACT_ROOT_CAUSE_OPEN_BY$ To 4 +Equ REACT_ROOT_CAUSE_OPEN_NOTE$ To 5 +Equ REACT_ROOT_CAUSE_LOG_DTM$ To 6 +Equ REACT_ROOT_CAUSE_LOG_BY$ To 7 +Equ REACT_ROOT_CAUSE_LOG_NOTE$ To 8 +Equ REACT_ROOT_CAUSE_CLOSE_DT$ To 10 +Equ REACT_ROOT_CAUSE_CLOSE_BY$ To 11 +Equ REACT_ROOT_CAUSE_CLOSE_NOTE$ To 12 +Equ REACT_ROOT_CAUSE_RL_KEYS$ To 15 diff --git a/LSL2/STPROCINS/REACT_RUN_CI_EQUATES.txt b/LSL2/STPROCINS/REACT_RUN_CI_EQUATES.txt new file mode 100644 index 0000000..ef540c0 --- /dev/null +++ b/LSL2/STPROCINS/REACT_RUN_CI_EQUATES.txt @@ -0,0 +1,68 @@ +compile insert REACT_RUN_CI_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 02/09/2014 + Description : Insert for Table REACT_RUN_CI +----------------------------------------*/ + + +Equ REACT_RUN_CI_CASS_NO$ To 0 +Equ REACT_RUN_CI_STAGE$ To 0 +Equ REACT_RUN_CI_WO_NO$ To 0 +Equ REACT_RUN_CI_WO_STEP$ To 0 +Equ REACT_RUN_CI_SPEC_BRIGHTLIGHT$ To 1 +Equ REACT_RUN_CI_SPEC_MICROSCOPE$ To 2 +Equ REACT_RUN_CI_SPEC_SURFSCAN$ To 3 +Equ REACT_RUN_CI_SPEC_SURFSCAN_RECIPE$ To 4 +Equ REACT_RUN_CI_SPEC_CLEAN_SUBOXIDE$ To 5 +Equ REACT_RUN_CI_SPEC_CLEAN_OXIDE_ANGSTROMS$ To 6 +Equ REACT_RUN_CI_SPEC_CLEAN_TOOL$ To 7 +Equ REACT_RUN_CI_SPEC_CLEAN_AKRION_RECIPE$ To 8 +Equ REACT_RUN_CI_SPEC_SURF_HAZE$ To 9 +Equ REACT_RUN_CI_SPEC_SURF_DEFECTS$ To 10 +Equ REACT_RUN_CI_SPEC_PITS$ To 11 +Equ REACT_RUN_CI_SPEC_MOUNDS$ To 12 +Equ REACT_RUN_CI_SPEC_BL_DEFECTS$ To 13 +Equ REACT_RUN_CI_SPEC_SPOTS$ To 14 +Equ REACT_RUN_CI_SPEC_FOV$ To 15 +Equ REACT_RUN_CI_SPEC_SCRATCHES$ To 16 +Equ REACT_RUN_CI_SPEC_SCRATCH_LEN$ To 17 +Equ REACT_RUN_CI_SPEC_LPD$ To 18 +Equ REACT_RUN_CI_DUMMY$ To 19 +Equ REACT_RUN_CI_SPEC_STACK_FAULTS$ To 20 +Equ REACT_RUN_CI_SPEC_SPIKES$ To 21 +Equ REACT_RUN_CI_SPEC_FWI_LWI$ To 22 +Equ REACT_RUN_CI_SPEC_SS_SAMP_QTY$ To 23 +Equ REACT_RUN_CI_DUMMY2$ To 24 +Equ REACT_RUN_CI_DUMMY3$ To 25 +Equ REACT_RUN_CI_DUMMY4$ To 26 +Equ REACT_RUN_CI_RDS_NO$ To 27 +Equ REACT_RUN_CI_CLEAN_CODE$ To 28 +Equ REACT_RUN_CI_CLEAN_BOAT_ID$ To 29 +Equ REACT_RUN_CI_CLEAN_SRD_NO$ To 30 +Equ REACT_RUN_CI_CLEAN_SIG$ To 31 +Equ REACT_RUN_CI_CLEAN_SIG_DTM$ To 32 +Equ REACT_RUN_CI_PITS$ To 33 +Equ REACT_RUN_CI_MOUNDS$ To 34 +Equ REACT_RUN_CI_LPD_IN$ To 35 +Equ REACT_RUN_CI_LPD_OUT$ To 36 +Equ REACT_RUN_CI_BL_DEFECTS$ To 37 +Equ REACT_RUN_CI_STACK_FAULTS$ To 38 +Equ REACT_RUN_CI_SPIKES$ To 39 +Equ REACT_RUN_CI_SPOTS$ To 40 +Equ REACT_RUN_CI_FOV$ To 41 +Equ REACT_RUN_CI_SCRATCHES$ To 42 +Equ REACT_RUN_CI_SCRATCH_LEN$ To 43 +Equ REACT_RUN_CI_SS_SCAN_TOOL$ To 44 +Equ REACT_RUN_CI_SS_SCAN_DTM$ To 45 +Equ REACT_RUN_CI_SS_SUM_OF_DEF_MIN$ To 46 +Equ REACT_RUN_CI_SS_SUM_OF_DEF_MAX$ To 47 +Equ REACT_RUN_CI_SS_SUM_OF_DEF_AVG$ To 48 +Equ REACT_RUN_CI_SS_HAZE_AVG_MIN$ To 49 +Equ REACT_RUN_CI_SS_HAZE_AVG_MAX$ To 50 +Equ REACT_RUN_CI_SS_HAZE_AVG_AVG$ To 51 +Equ REACT_RUN_CI_COMMENTS$ To 52 +Equ REACT_RUN_CI_SPC_DTM$ To 53 +Equ REACT_RUN_CI_SS_SCRATCH_AVG$ To 54 +Equ REACT_RUN_CI_SS_SCRATCH_MAX$ To 55 +Equ REACT_RUN_CI_WAFER_SIZE$ To 56 diff --git a/LSL2/STPROCINS/REACT_RUN_EQUATES.txt b/LSL2/STPROCINS/REACT_RUN_EQUATES.txt new file mode 100644 index 0000000..f84b177 --- /dev/null +++ b/LSL2/STPROCINS/REACT_RUN_EQUATES.txt @@ -0,0 +1,145 @@ +compile insert REACT_RUN_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 15/02/2017 + Description : Insert for Table REACT_RUN +----------------------------------------*/ + + +Equ REACT_RUN_RDS_NO$ To 0 +Equ REACT_RUN_WO_NO$ To 1 +Equ REACT_RUN_WO_STEP$ To 2 +Equ REACT_RUN_CASS_NO$ To 3 +Equ REACT_RUN_REACTOR$ To 4 +Equ REACT_RUN_RDS_LAYER_KEYS$ To 5 +Equ REACT_RUN_CI_NO$ To 6 +Equ REACT_RUN_CI_STAGE$ To 7 +Equ REACT_RUN_POST_CI_KEY$ To 8 +Equ REACT_RUN_VER_WFR_CNT$ To 9 +Equ REACT_RUN_LOAD_WFR_CNT$ To 10 +Equ REACT_RUN_ENTER_BY$ To 11 +Equ REACT_RUN_ENTER_DTM$ To 12 +Equ REACT_RUN_VER_SIG$ To 13 +Equ REACT_RUN_VER_SIG_DTM$ To 14 +Equ REACT_RUN_PRE_SIG$ To 15 +Equ REACT_RUN_PRE_SIG_DTM$ To 16 +Equ REACT_RUN_LOAD_SIG$ To 17 +Equ REACT_RUN_LOAD_SIG_DTM$ To 18 +Equ REACT_RUN_WFR_SIG$ To 19 +Equ REACT_RUN_WFR_SIG_DTM$ To 20 +Equ REACT_RUN_UNLOAD_SIG$ To 21 +Equ REACT_RUN_UNLOAD_SIG_DTM$ To 22 +Equ REACT_RUN_POST_SIG$ To 23 +Equ REACT_RUN_POST_SIG_DTM$ To 24 +Equ REACT_RUN_FINAL_SIG$ To 25 +Equ REACT_RUN_FINAL_SIG_DTM$ To 26 +Equ REACT_RUN_SCHED_DT$ To 27 +Equ REACT_RUN_CLEAN_CODE$ To 28 +Equ REACT_RUN_POCKET$ To 29 +Equ REACT_RUN_POCKET_CHAR$ To 30 +Equ REACT_RUN_ZONE$ To 31 +Equ REACT_RUN_IN_CASS_NO$ To 32 +Equ REACT_RUN_IN_SLOT_NO$ To 33 +Equ REACT_RUN_OUT_CASS_NO$ To 34 +Equ REACT_RUN_OUT_SLOT_NO$ To 35 +Equ REACT_RUN_WAFER_CHAR$ To 36 +Equ REACT_RUN_BL_DEFECTS$ To 37 +Equ REACT_RUN_STACK_FAULTS$ To 38 +Equ REACT_RUN_SPIKES$ To 39 +Equ REACT_RUN_SPECIAL_INST$ To 40 +Equ REACT_RUN_REACT_IDLE_TIME$ To 41 +Equ REACT_RUN_SHIFT$ To 42 +Equ REACT_RUN_LAST_WAFER_RHO$ To 43 +Equ REACT_RUN_LOAD_LOCK_SIDE$ To 44 +Equ REACT_RUN_ADE_READ$ To 45 +Equ REACT_RUN_FIN_WFR_CNT$ To 46 +Equ REACT_RUN_EX_UNLOAD$ To 47 +Equ REACT_RUN_EX_UNLOAD_DTM$ To 48 +Equ REACT_RUN_EX_UNLOAD_REASON$ To 49 +Equ REACT_RUN_EX_LOAD$ To 50 +Equ REACT_RUN_EX_LOAD_DTM$ To 51 +Equ REACT_RUN_INJECTORS$ To 52 +Equ REACT_RUN_TUBE_ID$ To 53 +Equ REACT_RUN_TUBE_GRADE$ To 54 +Equ REACT_RUN_SUSCEPTOR_ID$ To 55 +Equ REACT_RUN_SUPP_INST$ To 56 +Equ REACT_RUN_SUPP_ENTRY_ID$ To 57 +Equ REACT_RUN_SUPP_ENTRY_DTM$ To 58 +Equ REACT_RUN_SUPP_SIG$ To 59 +Equ REACT_RUN_SUPP_SIG_DTM$ To 60 +Equ REACT_RUN_OUT_NCR$ To 61 +Equ REACT_RUN_REACT_ACT_ESC_DTM$ To 62 +Equ REACT_RUN_CANCELLED$ To 63 +Equ REACT_RUN_VOID$ To 64 +Equ REACT_RUN_PRE_CI_NO$ To 65 +Equ REACT_RUN_WFR_CI_NO$ To 66 +Equ REACT_RUN_POST_CI_NO$ To 67 +Equ REACT_RUN_SCHED_WFR_QTY$ To 68 +Equ REACT_RUN_BACK_SEAL$ To 69 +Equ REACT_RUN_BURIED_LAYER$ To 70 +Equ REACT_RUN_WAFER_SCRIBE$ To 71 +Equ REACT_RUN_PHOS_DOPED_SUBSTRATE$ To 72 +Equ REACT_RUN_VER_COMMENT$ To 73 +Equ REACT_RUN_LOAD_COMMENT$ To 74 +Equ REACT_RUN_UNLOAD_COMMENT$ To 75 +Equ REACT_RUN_FINAL_COMMENT$ To 76 +Equ REACT_RUN_FQA_LPD$ To 77 +Equ REACT_RUN_CHAR_WFR_ID$ To 78 +Equ REACT_RUN_GAN_RUN_ID$ To 79 +Equ REACT_RUN_IN_SLOT_ID$ To 80 +Equ REACT_RUN_IN_WFR_ID$ To 81 +Equ REACT_RUN_RUN_PKT$ To 82 +Equ REACT_RUN_RUN_ZONE$ To 83 +Equ REACT_RUN_OUT_SLOT_ID$ To 84 +Equ REACT_RUN_PKT_CHAR$ To 85 +Equ REACT_RUN_IN_WFR_CHAR$ To 86 +Equ REACT_RUN_CARR_SLOT_ID$ To 87 +Equ REACT_RUN_CARR_LBL_DTM$ To 88 +Equ REACT_RUN_CARR_WFR_ID$ To 89 +Equ REACT_RUN_CARR_PREV_WFR_ID$ To 90 +Equ REACT_RUN_CARR_NCR_NO$ To 91 +Equ REACT_RUN_CARR_WFR_GRADE$ To 92 +Equ REACT_RUN_CHAR_SPLIT_BY$ To 96 +Equ REACT_RUN_CHAR_SPLIT_DTM$ To 97 +Equ REACT_RUN_CHAR_TW_NO$ To 98 +Equ REACT_RUN_CARR_WFR_SHIP$ To 99 +Equ REACT_RUN_PKT_SAT_ID$ To 100 +Equ REACT_RUN_CARR_SLOT_NO$ To 101 +Equ REACT_RUN_RUN_STAGE_KEY$ To 102 +Equ REACT_RUN_GAN_RECIPE$ To 103 +Equ REACT_RUN_GAN_SUSC_SERIAL$ To 104 +Equ REACT_RUN_CHAR_RETURN_BY$ To 105 +Equ REACT_RUN_CHAR_RETURN_DTM$ To 106 +Equ REACT_RUN_WFR_STAGE$ To 107 +Equ REACT_RUN_CHAR_WFR_PRI$ To 108 +Equ REACT_RUN_CHAR_WFR_FLAG$ To 109 +Equ REACT_RUN_RUN_PRI$ To 110 +Equ REACT_RUN_GAN_RET_KEY$ To 112 +Equ REACT_RUN_GAN_RET_SLOT$ To 113 +Equ REACT_RUN_GAN_RET_WFR$ To 114 +Equ REACT_RUN_SAP_REPORTED_DTM$ To 115 +Equ REACT_RUN_LAST_UPDATED_DTM$ To 116 +Equ REACT_RUN_GAN_ETCH_ID$ To 117 +Equ REACT_RUN_GAN_ETCH_RECIPE$ To 118 +Equ REACT_RUN_UNPRESCRIBED_WFR_STAGE$ To 119 +Equ REACT_RUN_INTERNAL$ To 120 +Equ REACT_RUN_EXTERNAL$ To 121 +Equ REACT_RUN_CASS_COMMENTS$ To 122 +Equ REACT_RUN_DISP_COMPLETE$ To 123 +Equ REACT_RUN_WFRS_DISP_READY$ To 124 +Equ REACT_RUN_NCR_REQ$ To 125 +Equ REACT_RUN_DISP_REASON$ To 126 +Equ REACT_RUN_GAN_PARAM_KEYS$ To 127 +Equ REACT_RUN_MISSING_DATA_VALID_DISABLED$ To 128 +Equ REACT_RUN_MISSING_DATA_VALID_USER$ To 129 +Equ REACT_RUN_MISSING_DATA_VALID_DTM$ To 130 +Equ REACT_RUN_GAN_CRITICAL_STAGES$ To 131 +Equ REACT_RUN_DATA_MISSING$ To 132 +Equ REACT_RUN_DATA_OUT_OF_SPEC$ To 133 +Equ REACT_RUN_RUN_SCRAPPED$ To 134 +Equ REACT_RUN_CHAR_LIST$ To 135 +Equ REACT_RUN_CANDELA_SOURCE$ To 136 +Equ REACT_RUN_EA_ROW_INDEX$ To 137 +Equ REACT_RUN_GAN_STAGE_ROUTE$ To 138 +Equ REACT_RUN_TEST_WAFER$ To 139 +Equ REACT_RUN_SCRIBE_ERROR$ To 140 diff --git a/LSL2/STPROCINS/REACT_SERVS_EQU.txt b/LSL2/STPROCINS/REACT_SERVS_EQU.txt new file mode 100644 index 0000000..0580770 --- /dev/null +++ b/LSL2/STPROCINS/REACT_SERVS_EQU.txt @@ -0,0 +1,13 @@ +* Equates for REACT_SERVS created on 06/13/01 01:54PM + +equ REACT_SERVS_DESCRIPTION$ to 1 +equ REACT_SERVS_ENTRY_ID$ to 3 +equ REACT_SERVS_ENTRY_DATE$ to 4 +equ REACT_SERVS_INJECTOR_CHANGE$ to 5 +equ REACT_SERVS_PM_DAYS$ to 7 +equ REACT_SERVS_REACT_SERV_CAT_ID$ to 8 +equ REACT_SERVS_GRAPHITE_OR_TUBE$ to 9 +equ REACT_SERVS_STATUS$ to 10 +equ REACT_SERVS_INACTIVE_DATE$ to 11 +equ REACT_SERVS_TC_CHANGE_SERVICE$ to 12 +equ REACT_SERVS_REQ_ARM_WAND_DATA$ to 13 diff --git a/LSL2/STPROCINS/REACT_SERVS_EQUATES.txt b/LSL2/STPROCINS/REACT_SERVS_EQUATES.txt new file mode 100644 index 0000000..8700221 --- /dev/null +++ b/LSL2/STPROCINS/REACT_SERVS_EQUATES.txt @@ -0,0 +1,31 @@ +compile insert REACT_SERVS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 14/04/2014 + Description : Insert for Table REACT_SERVS +----------------------------------------*/ + + +Equ REACT_SERVS_SERV_ID$ To 0 +Equ REACT_SERVS_DESCRIPTION$ To 1 +Equ REACT_SERVS_ACTION$ To 2 +Equ REACT_SERVS_ENTRY_ID$ To 3 +Equ REACT_SERVS_ENTRY_DATE$ To 4 +Equ REACT_SERVS_INJECTOR_CHANGE$ To 5 +Equ REACT_SERVS_PM_DAYS$ To 7 +Equ REACT_SERVS_REACT_SERV_CAT_ID$ To 8 +Equ REACT_SERVS_GRAPHITE_OR_TUBE$ To 9 +Equ REACT_SERVS_REACT_ITEM_DESC$ To 9 +Equ REACT_SERVS_REACT_ITEM_TYPE$ To 9 +Equ REACT_SERVS_STATUS$ To 10 +Equ REACT_SERVS_INACTIVE_DATE$ To 11 +Equ REACT_SERVS_TC_CHANGE_SERVICE$ To 12 +Equ REACT_SERVS_REQ_ARM_WAND_DATA$ To 13 +Equ REACT_SERVS_SVC_DESC$ To 14 +Equ REACT_SERVS_REACT_ITEM$ To 15 +Equ REACT_SERVS_REACT_GAS$ To 16 +Equ REACT_SERVS_REACT_TYPE$ To 17 +Equ REACT_SERVS_REACT_SYSTEM$ To 18 +Equ REACT_SERVS_NOTE_REQ$ To 19 +Equ REACT_SERVS_ASSOC_METRICS$ To 20 + diff --git a/LSL2/STPROCINS/REACT_SERV_CAT_EQUATES.txt b/LSL2/STPROCINS/REACT_SERV_CAT_EQUATES.txt new file mode 100644 index 0000000..d51b568 --- /dev/null +++ b/LSL2/STPROCINS/REACT_SERV_CAT_EQUATES.txt @@ -0,0 +1,14 @@ +compile insert REACT_SERV_CAT_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 09/11/2007 + Description : Insert for Table REACT_SERV_CAT +----------------------------------------*/ + + +Equ REACT_SERV_CAT_SEQ$ To 0 +Equ REACT_SERV_CAT_REACTOR_SERVICE_CATEGORY$ To 1 +EQU REACT_SERV_CAT_DESC TO 1 +Equ REACT_SERV_CAT_ENTRY_ID$ To 2 +Equ REACT_SERV_CAT_ENTRY_DATE$ To 3 +Equ REACT_SERV_CAT_REACT_SVC_KEY$ To 4 diff --git a/LSL2/STPROCINS/REACT_SHIFT_TARG_EQUATES.txt b/LSL2/STPROCINS/REACT_SHIFT_TARG_EQUATES.txt new file mode 100644 index 0000000..662a6c5 --- /dev/null +++ b/LSL2/STPROCINS/REACT_SHIFT_TARG_EQUATES.txt @@ -0,0 +1,13 @@ +compile insert REACT_SHIFT_TARG_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 09/12/2013 + Description : Insert for Table REACT_SHIFT_TARG +----------------------------------------*/ + + +Equ REACT_SHIFT_TARG_SHIFT$ To 0 +Equ REACT_SHIFT_TARG_TARG_DT$ To 0 +Equ REACT_SHIFT_TARG_REACT_NO$ To 1 +Equ REACT_SHIFT_TARG_TARG_OUTPUT$ To 2 +Equ REACT_SHIFT_TARG_NOTE$ To 3 diff --git a/LSL2/STPROCINS/REACT_STATE_EQUATES.txt b/LSL2/STPROCINS/REACT_STATE_EQUATES.txt new file mode 100644 index 0000000..fa6181a --- /dev/null +++ b/LSL2/STPROCINS/REACT_STATE_EQUATES.txt @@ -0,0 +1,27 @@ +compile insert REACT_STATE_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 13/02/2014 + Description : Insert for Table REACT_STATE +----------------------------------------*/ + + +Equ REACT_STATE_REACT_NO$ To 0 +Equ REACT_STATE_MODE$ To 1 +Equ REACT_STATE_USER_ID$ To 2 +Equ REACT_STATE_SERVICE$ To 3 +Equ REACT_STATE_NOTE$ To 4 +Equ REACT_STATE_REACT_UTIL_ID$ To 5 +Equ REACT_STATE_REACT_LOG_ID$ To 6 +Equ REACT_STATE_SCHED_WO_NO$ To 7 +Equ REACT_STATE_PINNED_SUSCEPTOR$ To 8 +Equ REACT_STATE_DOPANT$ To 9 +Equ REACT_STATE_GRAPH_NO$ To 10 +Equ REACT_STATE_CURR_INJ_RL_ID$ To 11 +Equ REACT_STATE_RATIOS$ To 12 +Equ REACT_STATE_HRS_LAST_READ$ To 13 +Equ REACT_STATE_LL_SVC$ To 14 +Equ REACT_STATE_RESTRICTOR$ To 15 +Equ REACT_STATE_LAST_RDS_NO$ To 16 +Equ REACT_STATE_LAST_UNLOAD_DTM$ To 17 +Equ REACT_STATE_TUBE_PRESSURE$ To 18 diff --git a/LSL2/STPROCINS/REACT_STATUS_EQUATES.txt b/LSL2/STPROCINS/REACT_STATUS_EQUATES.txt new file mode 100644 index 0000000..58ea82c --- /dev/null +++ b/LSL2/STPROCINS/REACT_STATUS_EQUATES.txt @@ -0,0 +1,18 @@ +compile insert REACT_STATUS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 14/11/2008 + Description : Insert for Table REACT_STATUS +----------------------------------------*/ + + +Equ REACT_STATUS_REACT_NO$ To 0 +Equ REACT_STATUS_OUT_OF_PROD_DTM$ To 1 +Equ REACT_STATUS_UNLOAD_DTM$ To 2 +Equ REACT_STATUS_LOAD_CASS_ID$ To 3 +Equ REACT_STATUS_LOAD_DTM$ To 4 +Equ REACT_STATUS_UNLOAD_CASS_ID$ To 5 +Equ REACT_STATUS_LOAD_RDS$ To 6 +Equ REACT_STATUS_LOAD_RDS_DTM$ To 7 +Equ REACT_STATUS_UNLOAD_RDS$ To 8 +Equ REACT_STATUS_UNLOAD_RDS_DTM$ To 9 diff --git a/LSL2/STPROCINS/REACT_TARG_EQUATES.txt b/LSL2/STPROCINS/REACT_TARG_EQUATES.txt new file mode 100644 index 0000000..d40eca8 --- /dev/null +++ b/LSL2/STPROCINS/REACT_TARG_EQUATES.txt @@ -0,0 +1,14 @@ +compile insert REACT_TARG_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 12/12/2013 + Description : Insert for Table REACT_TARG +----------------------------------------*/ + + +Equ REACT_TARG_TARG_DT$ To 0 +Equ REACT_TARG_REACT_NO$ To 1 +Equ REACT_TARG_TARGET$ To 2 +Equ REACT_TARG_NOTE$ To 3 +Equ REACT_TARG_UPDATE_BY$ To 4 +Equ REACT_TARG_UPDATE_DTM$ To 5 diff --git a/LSL2/STPROCINS/REACT_TUBE_CHG_EQU.txt b/LSL2/STPROCINS/REACT_TUBE_CHG_EQU.txt new file mode 100644 index 0000000..d421aff --- /dev/null +++ b/LSL2/STPROCINS/REACT_TUBE_CHG_EQU.txt @@ -0,0 +1,8 @@ +compile insert REACT_TUBE_CHG_EQU +* Equates for REACT_TUBE_CHG in CONFIG + +equ RTCReactor$ to 1 +equ RTCLastDone$ to 2 +equ RTCReactorLogID$ to 3 + + diff --git a/LSL2/STPROCINS/REACT_TUBE_EQUATES.txt b/LSL2/STPROCINS/REACT_TUBE_EQUATES.txt new file mode 100644 index 0000000..60e9906 --- /dev/null +++ b/LSL2/STPROCINS/REACT_TUBE_EQUATES.txt @@ -0,0 +1,21 @@ +compile insert REACT_TUBE_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 11/04/2022 + Description : Insert for Table REACT_TUBE +----------------------------------------*/ + + +Equ REACT_TUBE_REACT_NO$ To 0 +Equ REACT_TUBE_INST_DTM$ To 1 +Equ REACT_TUBE_TUBE_ID$ To 2 +Equ REACT_TUBE_INST_RL_ID$ To 3 +Equ REACT_TUBE_RDS_WAFER_CNT$ To 4 +Equ REACT_TUBE_INST_REACT_WFR_CNT$ To 5 +Equ REACT_TUBE_INST_REACT_HRS$ To 6 +Equ REACT_TUBE_INST_REACT_CYCLES$ To 7 +Equ REACT_TUBE_REM_DTM$ To 8 +Equ REACT_TUBE_REM_RL_ID$ To 9 +Equ REACT_TUBE_REM_REACT_HRS$ To 10 +Equ REACT_TUBE_REM_REACT_CYCLES$ To 11 +Equ REACT_TUBE_REM_REACT_WFR_CNT$ To 12 diff --git a/LSL2/STPROCINS/REACT_UTIL.txt b/LSL2/STPROCINS/REACT_UTIL.txt new file mode 100644 index 0000000..780055b --- /dev/null +++ b/LSL2/STPROCINS/REACT_UTIL.txt @@ -0,0 +1,14 @@ +COMPILE INSERT React_Util + +EQU REACT_UTIL_REACTOR$ TO 1 +EQU REACT_UTIL_MODE$ TO 2 +EQU REACT_UTIL_START_DATE$ TO 3 +EQU REACT_UTIL_START_TIME$ TO 4 +EQU REACT_UTIL_END_DATE$ TO 5 +EQU REACT_UTIL_END_TIME$ TO 6 +EQU REACT_UTIL_MODE_START_USER$ TO 7 +EQU REACT_UTIL_MODE_FINISH_USER$ TO 8 +EQU REACT_UTIL_WO$ TO 9 +EQU REACT_UTIL_CUST_NO$ TO 10 +EQU REACT_UTIL_REACTOR_LOG_ID$ TO 11 + diff --git a/LSL2/STPROCINS/REACT_UTIL_EQU.txt b/LSL2/STPROCINS/REACT_UTIL_EQU.txt new file mode 100644 index 0000000..f9b63c0 --- /dev/null +++ b/LSL2/STPROCINS/REACT_UTIL_EQU.txt @@ -0,0 +1,15 @@ +compile insert REACT_UTIL_EQU +* Equates for REACT_UTIL created on 11/15/00 12:46PM + +equ REACT_UTIL_REACTOR$ to 1 +equ REACT_UTIL_MODE$ to 2 +equ REACT_UTIL_START_DATE$ to 3 +equ REACT_UTIL_START_TIME$ to 4 +equ REACT_UTIL_END_DATE$ to 5 +equ REACT_UTIL_END_TIME$ to 6 +equ REACT_UTIL_MODE_START_USER$ to 7 +equ REACT_UTIL_MODE_FINISH_USER$ to 8 +equ REACT_UTIL_WO$ to 9 +equ REACT_UTIL_CUST_NO$ to 10 +equ REACT_UTIL_REACTOR_LOG_ID$ to 11 +equ REACT_UTIL_NOTES$ to 12 diff --git a/LSL2/STPROCINS/REACT_WAND_EQUATES.txt b/LSL2/STPROCINS/REACT_WAND_EQUATES.txt new file mode 100644 index 0000000..d379541 --- /dev/null +++ b/LSL2/STPROCINS/REACT_WAND_EQUATES.txt @@ -0,0 +1,18 @@ +compile insert REACT_WAND_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 08/01/2014 + Description : Insert for Table REACT_WAND +----------------------------------------*/ + + +Equ REACT_WAND_REACT_NO$ To 0 +Equ REACT_WAND_INST_DTM$ To 1 +Equ REACT_WAND_WAND_ID$ To 2 +Equ REACT_WAND_INST_RL_ID$ To 3 +Equ REACT_WAND_INST_REACT_WFR_CNT$ To 4 +Equ REACT_WAND_INST_REACT_HRS$ To 5 +Equ REACT_WAND_REM_DTM$ To 6 +Equ REACT_WAND_REM_RL_ID$ To 7 +Equ REACT_WAND_REM_REACT_WFR_CNT$ To 8 +Equ REACT_WAND_REM_REACT_HRS$ To 9 diff --git a/LSL2/STPROCINS/RECIPE_EQU.txt b/LSL2/STPROCINS/RECIPE_EQU.txt new file mode 100644 index 0000000..932201e --- /dev/null +++ b/LSL2/STPROCINS/RECIPE_EQU.txt @@ -0,0 +1,55 @@ +* Equates for RECIPE created on 03/26/01 10:03AM + +equ RECIPE_EPI_DOPANT$ to 1 +equ RECIPE_EPI_TEMP$ to 2 +equ RECIPE_REACTOR_TYPE$ to 3 +equ RECIPE_EPI_DILUENT$ to 4 +equ RECIPE_EPI_GASES$ to 5 +equ RECIPE_EPI_GASES_UNIT$ to 6 +equ RECIPE_DEP_TIME_MIN$ to 7 +equ RECIPE_DEP_TIME_MAX$ to 8 +equ RECIPE_DOPANT_FLOW_MIN$ to 9 +equ RECIPE_DOPANT_FLOW_MAX$ to 10 +equ RECIPE_ETCH_TIME$ to 11 +equ RECIPE_BAKE_TIME_MAX$ to 12 +equ RECIPE_H2_FLOW_MIN$ to 13 +equ RECIPE_H2_FLOW_MAX$ to 14 +equ RECIPE_DCS_FLOW_MIN$ to 15 +equ RECIPE_NOTES$ to 16 +equ RECIPE_RECIPE_NAME$ to 17 +equ RECIPE_ENTRY_ID$ to 18 +equ RECIPE_ENTRY_DATE$ to 19 +equ RECIPE_EPI_GAS_RATE$ to 20 +equ RECIPE_LAYER_INFO$ to 21 +equ RECIPE_MOD_ID$ to 22 +equ RECIPE_MOD_DATE$ to 23 +equ RECIPE_DCS_FLOW_MAX$ to 24 +equ RECIPE_AUX1_MIN$ to 25 +equ RECIPE_AUX1_MAX$ to 26 +equ RECIPE_AUX2_MIN$ to 27 +equ RECIPE_AUX2_MAX$ to 28 +equ RECIPE_F_OFFSET_MIN$ to 29 +equ RECIPE_F_OFFSET_MAX$ to 30 +equ RECIPE_S_OFFSET_MIN$ to 31 +equ RECIPE_S_OFFSET_MAX$ to 32 +equ RECIPE_R_OFFSET_MIN$ to 33 +equ RECIPE_R_OFFSET_MAX$ to 34 +equ RECIPE_BAKE_TIME_MIN$ to 35 +equ RECIPE_DISK$ to 36 +equ RECIPE_DILUENT_MIN$ to 37 +equ RECIPE_DILUENT_MAX$ to 38 +equ RECIPE_HCL_FLOW_MIN$ to 39 +equ RECIPE_HCL_FLOW_MAX$ to 40 +equ RECIPE_TCS_FLOW_MIN$ to 41 +equ RECIPE_TCS_FLOW_MAX$ to 42 +equ RECIPE_CAP_BURST$ to 43 +equ RECIPE_CAP_BURST_GASES$ to 44 +equ RECIPE_PROD_SPEC_IDS$ to 45 +equ RECIPE_RMOD_FIELD$ to 46 +equ RECIPE_RMOD_ID$ to 47 +equ RECIPE_STATUS$ to 48 +equ RECIPE_ENG_SIG$ to 49 +equ RECIPE_ETCH1_MIN$ to 50 +equ RECIPE_ETCH1_MAX$ to 51 +equ RECIPE_ETCH2_MIN$ to 52 +equ RECIPE_ETCH2_MAX$ to 53 diff --git a/LSL2/STPROCINS/RECIPE_EQUATES.txt b/LSL2/STPROCINS/RECIPE_EQUATES.txt new file mode 100644 index 0000000..f2b8cee --- /dev/null +++ b/LSL2/STPROCINS/RECIPE_EQUATES.txt @@ -0,0 +1,68 @@ +compile insert RECIPE_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 13/09/2013 + Description : Insert for Table RECIPE +----------------------------------------*/ + + +Equ RECIPE_SEQ$ To 0 +Equ RECIPE_EPI_DOPANT$ To 1 +Equ RECIPE_EPI_TEMP$ To 2 +Equ RECIPE_REACTOR_TYPE$ To 3 +Equ RECIPE_EPI_DILUENT$ To 4 +Equ RECIPE_EPI_GASES$ To 5 +Equ RECIPE_EPI_GASES_UNIT$ To 6 +Equ RECIPE_DEP_TIME_MIN$ To 7 +Equ RECIPE_DEP_TIME_MAX$ To 8 +Equ RECIPE_DOPANT_FLOW_MIN$ To 9 +Equ RECIPE_DOPANT_FLOW_MAX$ To 10 +Equ RECIPE_ETCH_TIME$ To 11 +Equ RECIPE_BAKE_TIME_MAX$ To 12 +Equ RECIPE_H2_FLOW_MIN$ To 13 +Equ RECIPE_H2_FLOW_MAX$ To 14 +Equ RECIPE_DCS_FLOW_MIN$ To 15 +Equ RECIPE_NOTES$ To 16 +Equ RECIPE_RECIPE_NAME$ To 17 +Equ RECIPE_ENTRY_ID$ To 18 +Equ RECIPE_ENTRY_DATE$ To 19 +Equ RECIPE_EPI_GAS_RATE$ To 20 +Equ RECIPE_LAYER_INFO$ To 21 +Equ RECIPE_MOD_ID$ To 22 +Equ RECIPE_MOD_DATE$ To 23 +Equ RECIPE_DCS_FLOW_MAX$ To 24 +Equ RECIPE_AUX1_MIN$ To 25 +Equ RECIPE_AUX1_MAX$ To 26 +Equ RECIPE_AUX2_MIN$ To 27 +Equ RECIPE_AUX2_MAX$ To 28 +Equ RECIPE_F_OFFSET_MIN$ To 29 +Equ RECIPE_F_OFFSET_MAX$ To 30 +Equ RECIPE_S_OFFSET_MIN$ To 31 +Equ RECIPE_S_OFFSET_MAX$ To 32 +Equ RECIPE_R_OFFSET_MIN$ To 33 +Equ RECIPE_R_OFFSET_MAX$ To 34 +Equ RECIPE_BAKE_TIME_MIN$ To 35 +Equ RECIPE_DISK$ To 36 +Equ RECIPE_DILUENT_MIN$ To 37 +Equ RECIPE_DILUENT_MAX$ To 38 +Equ RECIPE_HCL_FLOW_MIN$ To 39 +Equ RECIPE_HCL_FLOW_MAX$ To 40 +Equ RECIPE_TCS_FLOW_MIN$ To 41 +Equ RECIPE_TCS_FLOW_MAX$ To 42 +Equ RECIPE_CAP_BURST$ To 43 +Equ RECIPE_CAP_BURST_GASES$ To 44 +Equ RECIPE_PROD_SPEC_IDS$ To 45 +Equ RECIPE_RMOD_FIELD$ To 46 +Equ RECIPE_RMOD_ID$ To 47 +Equ RECIPE_STATUS$ To 48 +Equ RECIPE_ENG_SIG$ To 49 +Equ RECIPE_ETCH1_MIN$ To 50 +Equ RECIPE_ETCH1_MAX$ To 51 +Equ RECIPE_ETCH2_MIN$ To 52 +Equ RECIPE_ETCH2_MAX$ To 53 +Equ RECIPE_SUSC_ETCH_MIN$ To 54 +Equ RECIPE_SUSC_ETCH_MAX$ To 55 +Equ RECIPE_UL_TEMP_MIN$ To 56 +Equ RECIPE_UL_TEMP_MAX$ To 57 +Equ RECIPE_ETCH3_MIN$ To 58 +Equ RECIPE_ETCH3_MAX$ To 59 diff --git a/LSL2/STPROCINS/RECIPE_INFO_ARRAY_EQU.txt b/LSL2/STPROCINS/RECIPE_INFO_ARRAY_EQU.txt new file mode 100644 index 0000000..1c5eece --- /dev/null +++ b/LSL2/STPROCINS/RECIPE_INFO_ARRAY_EQU.txt @@ -0,0 +1,22 @@ +compile insert RECIPE_INFO_ARRAY_EQU +* THESE ARE THE EQUATED POSITIONS FOR THE RECIPE_INFO EDITTABLE IN +* RDS "First Wafer Inspection" area + +equ RecInfoDepTime$ to 1 +equ RecInfoDiluentFlow$ to 2 +equ RecInfoDopantFlow$ to 3 +equ RecInfoHCLFlow$ to 4 +equ RecInfoBake$ to 5 +equ RecInfoH2$ to 6 +equ RecInfoTCS$ to 7 +equ RecInfoDCS$ to 8 +equ RecInfoAux1$ to 9 +equ RecInfoAux2$ to 10 +equ RecInfoFOffset$ to 11 +equ RecInfoSOffset$ to 12 +equ RecInfoROffset$ to 13 +equ RecInfoEtch1$ to 14 +equ RecInfoEtch2$ to 15 +equ RecInfoEtch3$ to 16 + + diff --git a/LSL2/STPROCINS/RECIPE_LAYER_INFO_EQU.txt b/LSL2/STPROCINS/RECIPE_LAYER_INFO_EQU.txt new file mode 100644 index 0000000..1ba9833 --- /dev/null +++ b/LSL2/STPROCINS/RECIPE_LAYER_INFO_EQU.txt @@ -0,0 +1,25 @@ +compile insert RECIPE_LAYER_INFO_EQU +* These are equates for the LAYER_INFO field in the RECIPE table +* so they are the @vm positions. This is used when there are +* same reactor layers. +* each layer is delimited by char(248) +* RecL stands for RECIPE Layer + +equ RecLEpiDopant$ to 1 +equ RecLEpiDepTimeMin$ to 2 +equ RecLEpiDepTimeMax$ to 3 +equ RecLEpiDiluent$ to 4 +equ RecLEpiDopantFlowMin$ to 5 +equ RecLEpiDopantFlowMax$ to 6 +equ RecLEpiFrontOffestMin$ to 7 +equ RecLEpiFrontOffestMax$ to 8 +equ RecLEpiSideOffestMin$ to 9 +equ RecLEpiSideOffestMax$ to 10 +equ RecLEpiRearOffestMin$ to 11 +equ RecLEpiRearOffestMax$ to 12 +equ RecLEpiH2FlowMin$ to 13 +equ RecLEpiH2FlowMax$ to 14 +equ RecLEpiTCSFlowMin$ to 15 +equ RecLEpiTCSFlowMax$ to 16 + + diff --git a/LSL2/STPROCINS/RECIPE_PARMS_EQU.txt b/LSL2/STPROCINS/RECIPE_PARMS_EQU.txt new file mode 100644 index 0000000..0a46f17 --- /dev/null +++ b/LSL2/STPROCINS/RECIPE_PARMS_EQU.txt @@ -0,0 +1,43 @@ +COMPILE INSERT Recipe_Parms_Equ + +* Equates for obj_Recipe return data structure + +EQU RP_DEPOSIT_TIME_MIN$ TO 1 +EQU RP_DEPOSIT_TIME_MAX$ TO 2 +EQU RP_DILUENT_FLOW_MIN$ TO 3 +EQU RP_DILUENT_FLOW_MAX$ TO 4 +EQU RP_DOPANT_FLOW_MIN$ TO 5 +EQU RP_DOPANT_FLOW_MAX$ TO 6 +EQU RP_HCL_FLOW_MIN$ TO 7 +EQU RP_HCL_FLOW_MAX$ TO 8 +EQU RP_BAKE_TIME_MIN$ TO 9 +EQU RP_BAKE_TIME_MAX$ TO 10 +EQU RP_H2_FLOW_MIN$ TO 11 +EQU RP_H2_FLOW_MAX$ TO 12 +EQU RP_TCS_FLOW_MIN$ TO 13 +EQU RP_TCS_FLOW_MAX$ TO 14 +EQU RP_DCS_FLOW_MIN$ TO 15 +EQU RP_DCS_FLOW_MAX$ TO 16 +EQU RP_AUX1_FLOW_MIN$ TO 17 +EQU RP_AUX1_FLOW_MAX$ TO 18 +EQU RP_AUX2_FLOW_MIN$ TO 19 +EQU RP_AUX2_FLOW_MAX$ TO 20 +EQU RP_FOFFSET_MIN$ TO 21 +EQU RP_FOFFSET_MAX$ TO 22 +EQU RP_SOFFSET_MIN$ TO 23 +EQU RP_SOFFSET_MAX$ TO 24 +EQU RP_ROFFSET_MIN$ TO 25 +EQU RP_ROFFSET_MAX$ TO 26 +EQU RP_ETCH1_MIN$ TO 27 +EQU RP_ETCH1_MAX$ TO 28 +EQU RP_ETCH2_MIN$ TO 29 +EQU RP_ETCH2_MAX$ TO 30 +EQU RP_DOPANT$ TO 31 +EQU RP_EPI_DILUENT$ TO 32 +EQU RP_SUSC_ETCH_MIN$ TO 33 +EQU RP_SUSC_ETCH_MAX$ TO 34 +EQU RP_UL_TEMP_MIN$ TO 35 +EQU RP_UL_TEMP_MAX$ TO 36 +EQU RP_ETCH3_MIN$ TO 37 +EQU RP_ETCH3_MAX$ TO 38 + diff --git a/LSL2/STPROCINS/REPORT_CONFIG_EQUATES.txt b/LSL2/STPROCINS/REPORT_CONFIG_EQUATES.txt new file mode 100644 index 0000000..880d5c9 --- /dev/null +++ b/LSL2/STPROCINS/REPORT_CONFIG_EQUATES.txt @@ -0,0 +1,13 @@ +compile insert REPORT_CONFIG_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 03/11/2020 + Description : Insert for Table REPORT_CONFIG +----------------------------------------*/ + + +Equ REPORT_CONFIG.LSL_USER$ To 0 +Equ REPORT_CONFIG.REPORT_NAME$ To 0 +Equ REPORT_CONFIG.REPORT_COLUMNS$ To 1 +Equ REPORT_CONFIG.NO_MAT_FOUND$ To 2 +Equ REPORT_CONFIG.LOCATION_FILTER$ To 3 diff --git a/LSL2/STPROCINS/RETAINED_WAFERS_EQUATES.txt b/LSL2/STPROCINS/RETAINED_WAFERS_EQUATES.txt new file mode 100644 index 0000000..6d068e9 --- /dev/null +++ b/LSL2/STPROCINS/RETAINED_WAFERS_EQUATES.txt @@ -0,0 +1,28 @@ +compile insert RETAINED_WAFERS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 24/03/2020 + Description : Insert for Table RETAINED_WAFERS +----------------------------------------*/ + + +Equ RETAINED_WAFERS.CASS_NO$ To 0 +Equ RETAINED_WAFERS.SLOT$ To 0 +Equ RETAINED_WAFERS.WFR_KEY$ To 0 +Equ RETAINED_WAFERS.WO_NO$ To 0 +Equ RETAINED_WAFERS.RUN_ID$ To 1 +Equ RETAINED_WAFERS.RECIPE$ To 2 +Equ RETAINED_WAFERS.POCKET$ To 3 +Equ RETAINED_WAFERS.SCRIBE$ To 4 +Equ RETAINED_WAFERS.GRADE$ To 5 +Equ RETAINED_WAFERS.PART_NO$ To 6 +Equ RETAINED_WAFERS.RETAIN_BOX$ To 7 +Equ RETAINED_WAFERS.RETAIN_SLOT$ To 8 +Equ RETAINED_WAFERS.RETAIN_SIG$ To 9 +Equ RETAINED_WAFERS.RETAIN_DT$ To 10 +Equ RETAINED_WAFERS.DESTROY_SIG$ To 11 +Equ RETAINED_WAFERS.DESTROY_DT$ To 12 +Equ RETAINED_WAFERS.LOCATION$ To 13 +Equ RETAINED_WAFERS.STATUS$ To 14 +Equ RETAINED_WAFERS.COMMENT$ To 15 +Equ RETAINED_WAFERS.WAFER_SIZE$ To 16 diff --git a/LSL2/STPROCINS/ROTR_EQUATES.txt b/LSL2/STPROCINS/ROTR_EQUATES.txt new file mode 100644 index 0000000..bb99118 --- /dev/null +++ b/LSL2/STPROCINS/ROTR_EQUATES.txt @@ -0,0 +1,14 @@ +compile insert ROTR_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 03/12/2020 + Description : Insert for Table ROTR +----------------------------------------*/ + + +Equ ROTR.CLEAN_INSP_KEY$ To 0 +Equ ROTR.REACTOR_STATUS$ To 1 +Equ ROTR.REACTOR_STATUS_REASON$ To 2 +Equ ROTR.REACTOR_NCR_COUNT$ To 3 +Equ ROTR.REACTOR_ZERO_NCR_RUN_COUNT$ To 4 +Equ ROTR.REACTOR_UCL_EXCEEDED_RUN_COUNT$ To 5 diff --git a/LSL2/STPROCINS/ROTR_OVERRIDE_COMMENT_OPTIONS_EQUATES.txt b/LSL2/STPROCINS/ROTR_OVERRIDE_COMMENT_OPTIONS_EQUATES.txt new file mode 100644 index 0000000..3105752 --- /dev/null +++ b/LSL2/STPROCINS/ROTR_OVERRIDE_COMMENT_OPTIONS_EQUATES.txt @@ -0,0 +1,12 @@ +compile insert ROTR_OVERRIDE_COMMENT_OPTIONS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 09/08/2023 + Description : Insert for Table ROTR_OVERRIDE_COMMENT_OPTIONS +----------------------------------------*/ + + +Equ ROTR_OVERRIDE_COMMENT_OPTIONS_CAUSE$ To 0 +Equ ROTR_OVERRIDE_COMMENT_OPTIONS_COMMENT_OPTIONS$ To 1 + + diff --git a/LSL2/STPROCINS/ROTR_PARM_REV_HIST_EQUATES.txt b/LSL2/STPROCINS/ROTR_PARM_REV_HIST_EQUATES.txt new file mode 100644 index 0000000..c186e52 --- /dev/null +++ b/LSL2/STPROCINS/ROTR_PARM_REV_HIST_EQUATES.txt @@ -0,0 +1,13 @@ +compile insert ROTR_PARM_REV_HIST_EQUATES +/*------------------------------------------------ + Author : djs + Written : 10/19/18 + Description : Insert for Table ROTR_PARM_REV_HIST +--------------------------------------------------*/ + + +Equ ROTR_PARM_REV_HIST_SEQ$ To 0 +Equ ROTR_PARM_REV_HIST_MOD_USERNAME$ To 1 +Equ ROTR_PARM_REV_HIST_MOD_DATE$ To 2 +Equ ROTR_PARM_REV_HIST_MOD_TIME$ To 3 +Equ ROTR_PARM_REV_HIST_REVISION_DETAIL$ To 4 diff --git a/LSL2/STPROCINS/ROTR_REQUESTS_EQUATES.txt b/LSL2/STPROCINS/ROTR_REQUESTS_EQUATES.txt new file mode 100644 index 0000000..ee4a614 --- /dev/null +++ b/LSL2/STPROCINS/ROTR_REQUESTS_EQUATES.txt @@ -0,0 +1,14 @@ +compile insert ROTR_REQUESTS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 30/09/2020 + Description : Insert for Table ROTR_REQUESTS +----------------------------------------*/ + + +Equ ROTR_REQUESTS.RDS_NO$ To 0 +Equ ROTR_REQUESTS.REQUEST_DATE$ To 0 +Equ ROTR_REQUESTS.REQUEST_TIME$ To 0 +Equ ROTR_REQUESTS.RESPONSE$ To 1 +Equ ROTR_REQUESTS.RESPONSE_DATE$ To 2 +Equ ROTR_REQUESTS.RESPONSE_TIME$ To 3 diff --git a/LSL2/STPROCINS/RPT_CFG_EQU.txt b/LSL2/STPROCINS/RPT_CFG_EQU.txt new file mode 100644 index 0000000..8c7f985 --- /dev/null +++ b/LSL2/STPROCINS/RPT_CFG_EQU.txt @@ -0,0 +1,51 @@ +compile insert RPT_CFG_EQU +* equates for "CONFIG" "FOR ALL SLIST REPORTS" example "RDS_SRPT1_RPTCFG" which is also used for Customer Inquiries + +equ TableName$ to 1 ;* NAME OF THE DATATABLE TO REPORT +equ Width$ to 2 ;* WIDTH OF THE REPORT HEADER +equ Title$ to 3 ;* LITERAL REPORT TITLE +equ TitleFontType$ to 4 ;* FONT FOR THE REPORT TITLE +equ TitleFontSize$ to 5 ;* FONT SIZE FOR THE REPORT TITLE +equ TitleFontBold$ to 6 ;* FONT BOLD FOR THE REPORT TITLE +equ TitleFontItalic$ to 7 ;* FONT ITALIC FOR THE REPORT TITLE +equ ColHeadFontType$ to 8 ;* FONT TYPE FOR THE COLUMN HEADERS +equ ColHeadFontSize$ to 9 ;* FONT SIZE FOR THE COLUMN HEADERS +equ ColHeadFontBold$ to 10 ;* FONT BOLD FOR THE COLUMN HEADERS +equ ColHeadFontItalic$ to 11 ;* FONT ITALIC FOR THE COLUMN HEADERS +equ DefFontType$ to 12 ;* DEFAULT FONT TYPE THE DATA IN THE COLUMNS +equ DefFontSize$ to 13 ;* DEFAULT FONT SIZE THE DATA IN THE COLUMNS +equ DefFontBold$ to 14 ;* DEFAULT FONT BOLD FOR THE DATA IN THE COLUMNS +equ DefFontItalic$ to 15 ;* DEFAULT FONT ITALIC FOR THE DATA IN THE COLUMNS +equ Field$ to 16 ;* START OF AMV - ARE FIELDS FROM TABLE THAT WILL BE COLUMNS IN THE REPORT +equ Header$ to 17 ;* THE HEADER OF EACH COLUMN +equ ColLength$ to 18 ;* THE WIDTH OF EACH COLUMN +equ DataFontType$ to 19 ;* COLUMN FONT TYPES - IF NOT THERE DefColDataFontType$ WILL BE USED +equ DataFontSize$ to 20 ;* COLUMN FONT SIZES - IF NOT THERE DefColDataFontSize$ WILL BE USED +equ DataFontBold$ to 21 ;* COLUMN FONT BOLD - IF NOT THERE DefColDataFontBold$ WILL BE USED +equ DataFontItalic$ to 22 ;* COLUMN FONT ITALIC - IF NOT THERE DefColDataFontItalic$ WILL BE USED +equ BreakOn$ to 23 ;* BOOLEAN FOR BREAK-ON FLAG +equ BreakOnValue$ to 24 ;* BOOLEAN TO SHOW VALUE OF BREAK-ON FIELD +equ Total$ to 25 ;* END OF AMV +equ ByStmt$ to 26 ;* WITH STMT +equ Grid$ to 27 ;* +equ SlistScript$ to 28 ;* +equ WithStmt$ to 29 ;* +equ Landscape$ to 30 ;* +equ NoPage$ to 31 ;* +equ DoubleSpace$ to 32 ;* +equ IdSupp$ to 33 ;* +equ DetailSupp$ to 34 ;* +equ ColumnHeaderSupp$ to 35 ;* +equ HeaderSupp$ to 36 ;* +equ Title2$ to 37 ;* +equ Title3$ to 38 ;* +equ Title4$ to 39 ;* +equ Footer$ to 40 ;* +equ Limit$ to 41 ;* +equ PageNumber$ to 42 ;* +equ ReportProcedure$ to 43 ;* +equ TitleFontUnderline$ to 44 ;* +equ ColHeadFontUnderline$ to 45 ;* +equ DefFontUnderline$ to 46 ;* +equ DataFontUnderline$ to 47 ;* ADDITIONAL MV FOR DATA FONT UNDERLINE; ASSOCIATED WITH COLUMN AMV's (19-22) + diff --git a/LSL2/STPROCINS/RUN_STAGE_EQUATES.txt b/LSL2/STPROCINS/RUN_STAGE_EQUATES.txt new file mode 100644 index 0000000..29e1a47 --- /dev/null +++ b/LSL2/STPROCINS/RUN_STAGE_EQUATES.txt @@ -0,0 +1,23 @@ +compile insert RUN_STAGE_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 27/09/2016 + Description : Insert for Table RUN_STAGE +----------------------------------------*/ + + +Equ RUN_STAGE_RDS_NO$ To 0 +Equ RUN_STAGE_STAGE$ To 0 +Equ RUN_STAGE_SPEC_TOOL_CLASS$ To 1 +Equ RUN_STAGE_SPEC_INV_ACTION$ To 2 +Equ RUN_STAGE_WFR_CNT$ To 3 +Equ RUN_STAGE_TOOL_ID$ To 4 +Equ RUN_STAGE_COMMENT$ To 5 +Equ RUN_STAGE_COMP_BY$ To 6 +Equ RUN_STAGE_COMP_DTM$ To 7 +Equ RUN_STAGE_STAGE_BYPASSED$ To 8 +Equ RUN_STAGE_SIA_COMP_BY$ To 9 +Equ RUN_STAGE_SIA_COMP_DTM$ To 10 +Equ RUN_STAGE_STATUS$ To 11 +Equ RUN_STAGE_ENTER_DTM$ To 12 +Equ RUN_STAGE_ETCH_IDS$ To 13 diff --git a/LSL2/STPROCINS/RUN_STAGE_WFR_EQUATES.txt b/LSL2/STPROCINS/RUN_STAGE_WFR_EQUATES.txt new file mode 100644 index 0000000..216f1d6 --- /dev/null +++ b/LSL2/STPROCINS/RUN_STAGE_WFR_EQUATES.txt @@ -0,0 +1,24 @@ +compile insert RUN_STAGE_WFR_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 25/06/2016 + Description : Insert for Table RUN_STAGE_WFR +----------------------------------------*/ + + +Equ RUN_STAGE_WFR_RDS_NO$ To 0 +Equ RUN_STAGE_WFR_STAGE$ To 0 +Equ RUN_STAGE_WFR_WFR_ID$ To 0 +Equ RUN_STAGE_WFR_SPEC_TOOL_CLASS$ To 1 +Equ RUN_STAGE_WFR_SPEC_INV_ACTION$ To 2 +Equ RUN_STAGE_WFR_TOOL_ID$ To 3 +Equ RUN_STAGE_WFR_COMMENT$ To 4 +Equ RUN_STAGE_WFR_COMP_BY$ To 5 +Equ RUN_STAGE_WFR_COMP_DTM$ To 6 +Equ RUN_STAGE_WFR_SIA_COMP_BY$ To 7 +Equ RUN_STAGE_WFR_SIA_COMP_DTM$ To 8 +Equ RUN_STAGE_WFR_STAGE_BYPASSED$ To 9 +Equ RUN_STAGE_WFR_ENTER_DTM$ To 10 +Equ RUN_STAGE_WFR_STATUS$ To 11 +Equ RUN_STAGE_WFR_MET_PARAM_VALUES$ To 12 +Equ RUN_STAGE_WFR_PARAM_OUT_OF_SPEC$ To 13 diff --git a/LSL2/STPROCINS/SAP_BATCH_EQUATES.txt b/LSL2/STPROCINS/SAP_BATCH_EQUATES.txt new file mode 100644 index 0000000..3da8b18 --- /dev/null +++ b/LSL2/STPROCINS/SAP_BATCH_EQUATES.txt @@ -0,0 +1,11 @@ +compile insert SAP_BATCH_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 17/05/2011 + Description : Insert for Table SAP_BATCH +----------------------------------------*/ + + +Equ SAP_BATCH_WO_NO$ To 0 +Equ SAP_BATCH_WO_MAT_KEY$ To 1 +Equ SAP_BATCH_SAP_BATCH_NO$ To 2 diff --git a/LSL2/STPROCINS/SAP_COMM_LOG_EQUATES.txt b/LSL2/STPROCINS/SAP_COMM_LOG_EQUATES.txt new file mode 100644 index 0000000..01a095c --- /dev/null +++ b/LSL2/STPROCINS/SAP_COMM_LOG_EQUATES.txt @@ -0,0 +1,15 @@ +compile insert SAP_COMM_LOG_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 13/12/2011 + Description : Insert for Table SAP_COMM_LOG +----------------------------------------*/ + + +Equ SAP_COMM_LOG_SEQ$ To 0 +Equ SAP_COMM_LOG_LOG_DTM$ To 1 +Equ SAP_COMM_LOG_TYPE$ To 2 +Equ SAP_COMM_LOG_DOS_PATH$ To 3 +Equ SAP_COMM_LOG_FILENAME$ To 4 +Equ SAP_COMM_LOG_DOS_FILE$ To 5 +Equ SAP_COMM_LOG_TRANS$ To 6 diff --git a/LSL2/STPROCINS/SAP_HOLD_EQUATES.txt b/LSL2/STPROCINS/SAP_HOLD_EQUATES.txt new file mode 100644 index 0000000..21dbbf2 --- /dev/null +++ b/LSL2/STPROCINS/SAP_HOLD_EQUATES.txt @@ -0,0 +1,14 @@ +compile insert SAP_HOLD_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 17/11/2022 + Description : Insert for Table SAP_HOLD +----------------------------------------*/ + + +Equ SAP_HOLD.SEQ$ To 0 +Equ SAP_HOLD.TRANS_ACTION$ To 1 +Equ SAP_HOLD.WO_MAT_KEY$ To 2 +Equ SAP_HOLD.S_LOC$ To 3 +Equ SAP_HOLD.HOLD_FLAG$ To 4 +Equ SAP_HOLD.TRANS_DTM$ To 5 diff --git a/LSL2/STPROCINS/SAP_LOG_EQUATES.txt b/LSL2/STPROCINS/SAP_LOG_EQUATES.txt new file mode 100644 index 0000000..11199ea --- /dev/null +++ b/LSL2/STPROCINS/SAP_LOG_EQUATES.txt @@ -0,0 +1,15 @@ +compile insert SAP_LOG_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 08/03/2011 + Description : Insert for Table SAP_LOG +----------------------------------------*/ + + +Equ SAP_LOG_LOG_NO$ To 0 +Equ SAP_LOG_TIMESTAMP$ To 1 +Equ SAP_LOG_LOG_DESC$ To 2 +Equ SAP_LOG_PROD_ORD_NO$ To 3 +Equ SAP_LOG_FIELD_NAME$ To 4 +Equ SAP_LOG_ERR_DESC$ To 5 +Equ SAP_LOG_SAP_VALUE$ To 6 diff --git a/LSL2/STPROCINS/SAP_MU_TRANS_EQUATES.txt b/LSL2/STPROCINS/SAP_MU_TRANS_EQUATES.txt new file mode 100644 index 0000000..e2c0afb --- /dev/null +++ b/LSL2/STPROCINS/SAP_MU_TRANS_EQUATES.txt @@ -0,0 +1,13 @@ +compile insert SAP_MU_TRANS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 27/09/2011 + Description : Insert for Table SAP_MU_TRANS +----------------------------------------*/ + + +Equ SAP_MU_TRANS_CASS_NO$ To 0 +Equ SAP_MU_TRANS_WO_NO$ To 0 +Equ SAP_MU_TRANS_MU_CASS_ID$ To 1 +Equ SAP_MU_TRANS_MU_CASS_QTY$ To 2 +Equ SAP_MU_TRANS_PRINT_DTM$ To 3 diff --git a/LSL2/STPROCINS/SCANS_EQUATES.txt b/LSL2/STPROCINS/SCANS_EQUATES.txt new file mode 100644 index 0000000..5c3bdb5 --- /dev/null +++ b/LSL2/STPROCINS/SCANS_EQUATES.txt @@ -0,0 +1,38 @@ +compile insert SCANS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 03/09/2018 + Description : Insert for Table SCANS +----------------------------------------*/ + + +Equ SCANS.SCAN_ID$ To 0 +Equ SCANS.CREATED_DATE$ To 1 +Equ SCANS.CREATED_TIME$ To 2 +Equ SCANS.SCAN_TYPE$ To 3 +Equ SCANS.EMPLOYEE_ID$ To 4 +Equ SCANS.CASSETTE_IDS$ To 5 +Equ SCANS.LOCATION_ID$ To 6 +Equ SCANS.TOOL_ID$ To 7 +Equ SCANS.ACCEPTED$ To 8 +Equ SCANS.ACCEPTED_DATE$ To 9 +Equ SCANS.ACCEPTED_TIME$ To 10 +Equ SCANS.SCANNED_DATES$ To 11 +Equ SCANS.SCANNED_TIMES$ To 12 +Equ SCANS.SCANNED_DATA$ To 13 +Equ SCANS.ACTION$ To 14 +Equ SCANS.WAFER_COUNT_CONFIRMED$ To 15 +Equ SCANS.BOAT_ID$ To 16 +Equ SCANS.PL_NUMBER$ To 17 +Equ SCANS.UNLOAD_PL_CONFIRMED$ To 18 +Equ SCANS.LOAD_LOCK$ To 19 +Equ SCANS.TRANSFER_TOOL_ID$ To 20 +Equ SCANS.ACCEPTABLE$ To 21 +Equ SCANS.NOT_ACCEPTABLE_REASON$ To 22 +Equ SCANS.RESULT$ To 23 +Equ SCANS.SUPPLIER_LOT$ To 24 +Equ SCANS.ERROR_CASS_IDS$ To 25 +Equ SCANS.OVERRIDE_REQD$ To 26 +Equ SCANS.OVERRIDE_REASON$ To 27 +Equ SCANS.AUTHENTICATED$ To 28 +Equ SCANS.OVERRIDE_TYPE$ To 29 diff --git a/LSL2/STPROCINS/SCAN_SETUP.txt b/LSL2/STPROCINS/SCAN_SETUP.txt new file mode 100644 index 0000000..65ae9ad --- /dev/null +++ b/LSL2/STPROCINS/SCAN_SETUP.txt @@ -0,0 +1,6 @@ +Compile insert Scan_Setup + +Declare subroutine Scan_Services + +Scan_Services('ClearNotAcceptableReasons') + diff --git a/LSL2/STPROCINS/SCHEDULER_EQUATES.txt b/LSL2/STPROCINS/SCHEDULER_EQUATES.txt new file mode 100644 index 0000000..60b2d35 --- /dev/null +++ b/LSL2/STPROCINS/SCHEDULER_EQUATES.txt @@ -0,0 +1,23 @@ +compile insert SCHEDULER_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 18/09/2017 + Description : Insert for Table SCHEDULER +----------------------------------------*/ + + +Equ SCHEDULER.REACTOR_NO$ To 0*1 +Equ SCHEDULER.START_DATE$ To 0*2 +Equ SCHEDULER.EVENT_ID$ To 0*3 +Equ SCHEDULER.END_DATE$ To 1 +Equ SCHEDULER.WO_STEP$ To 2 +Equ SCHEDULER.CASSETTE_NO$ To 3 +Equ SCHEDULER.DESCRIPTION$ To 4 +Equ SCHEDULER.MODIFIED$ To 5 +Equ SCHEDULER.BLOCK_OUT$ To 6 +Equ SCHEDULER.BLOCK_OUT_TYPE$ To 7 +Equ SCHEDULER.BACKCOLOR$ To 8 +Equ SCHEDULER.FORECOLOR$ To 9 +Equ SCHEDULER.START_TIME$ To 10 +Equ SCHEDULER.END_TIME$ To 11 +Equ SCHEDULER.WAFER_COUNT$ To 12 diff --git a/LSL2/STPROCINS/SCHEDULE_EQU.txt b/LSL2/STPROCINS/SCHEDULE_EQU.txt new file mode 100644 index 0000000..846a4d9 --- /dev/null +++ b/LSL2/STPROCINS/SCHEDULE_EQU.txt @@ -0,0 +1,41 @@ +compile insert SCHEDULE_EQU +* Equates for SCHEDULE created on 11/09/98 08:22AM + +equ SCHEDULE_PO$ to 1 +equ SCHEDULE_ORDER_NO$ to 2 +equ SCHEDULE_CUST_NO$ to 3 +equ SCHEDULE_ENTRY_ID$ to 4 +equ SCHEDULE_STATUS$ to 5 +equ SCHEDULE_ENTRY_DATE$ to 6 +equ SCHEDULE_CLOSE_DATE$ to 7 +equ SCHEDULE_ORDER_LINE$ to 8 +equ SCHEDULE_PART_NUM$ to 9 +equ SCHEDULE_LOT_NUM$ to 10 +equ SCHEDULE_WO$ to 11 +equ SCHEDULE_RUN_ORDER_NUM$ to 12 +equ SCHEDULE_RDS_IDS$ to 13 +equ SCHEDULE_WAFERS_IN$ to 14 +equ SCHEDULE_QUOTE_NUM$ to 15 +equ SCHEDULE_WAFER_REC_DATE$ to 16 +equ SCHEDULE_SCHED_QTY$ to 17 +equ SCHEDULE_SCHED_DATE$ to 18 +equ SCHEDULE_SHIP_QTY$ to 19 +equ SCHEDULE_SHIP_DATE$ to 20 +equ SCHEDULE_NOTES$ to 21 +equ SCHEDULE_INVOICE_IDS$ to 22 +equ SCHEDULE_SHIP_VIA$ to 23 +equ SCHEDULE_TRACKING_NO$ to 24 +equ SCHEDULE_SHIP_SETUP_CHARGE$ to 25 +equ SCHEDULE_SHIP_SRP_CHARGE$ to 26 +equ SCHEDULE_SHIP_PRICE$ to 27 +equ SCHEDULE_REJECTS$ to 28 +equ SCHEDULE_UNPROCESSED$ to 29 +equ SCHEDULE_BOX_CNT$ to 30 +equ SCHEDULE_QXJ$ to 31 +equ SCHEDULE_PROD_SPEC_ID$ to 32 +equ SCHEDULE_LOT_QTY$ TO 33 +equ SCHEDULE_HOT_LOT$ TO 34 +equ SCHEDULE_XSCHED_DT$ TO 35 +equ SCHEDULE_SHIP_NO$ TO 36 +equ SCHEDULE_MAKEUP_BOX$ TO 37 +equ SCHEDULE_WO_STEP_KEY$ TO 38 diff --git a/LSL2/STPROCINS/SCHEDULE_EVENT_SUMMMARY_EQUATES.txt b/LSL2/STPROCINS/SCHEDULE_EVENT_SUMMMARY_EQUATES.txt new file mode 100644 index 0000000..9f34153 --- /dev/null +++ b/LSL2/STPROCINS/SCHEDULE_EVENT_SUMMMARY_EQUATES.txt @@ -0,0 +1,34 @@ +compile insert SCHEDULE_EVENT_SUMMMARY_EQUATES +/*------------------------------------------------------------ + Author : Infineon + Written : 07/25/2017 + Description : Equates for the GetScheduleEventSummary service. +-------------------------------------------------------------*/ + + +Equ SES_TYPE$ to 1 +Equ SES_SUSCEPTOR$ to 2 +Equ SES_CUSTNAME$ to 3 +Equ SES_CUSTNAMESHORT$ to 4 +Equ SES_EPIPARTNO$ to 5 +Equ SES_STARTDATE$ to 6 +Equ SES_ENDDATE$ to 7 +Equ SES_TOTALDAYS$ to 8 +Equ SES_TOTALWAFERS$ to 9 +Equ SES_REMAINING$ to 10 +Equ SES_COMPLETE$ to 11 +Equ SES_WOCLOSEDFLAG$ to 12 +Equ SES_HOTLOTFLAG$ to 13 +Equ SES_CURRENTFLAG$ to 14 +Equ SES_NOTEFLAG$ to 15 +Equ SES_STARTDTM$ to 16 +Equ SES_ENDDTM$ to 17 +Equ SES_TITLE$ to 18 +Equ SES_DESCRIPTION$ to 19 +Equ SES_BACKCOLOR$ to 20 +Equ SES_FORECOLOR$ to 21 +Equ SES_PSN$ to 22 +Equ SES_RECIPE$ to 23 +Equ SES_DAYLENGTHCODE$ to 24 +Equ SES_BLOCK_OUT$ to 25 +Equ SES_BLOCK_TYPE$ to 26 diff --git a/LSL2/STPROCINS/SCHEDULE_SRL_EQU.txt b/LSL2/STPROCINS/SCHEDULE_SRL_EQU.txt new file mode 100644 index 0000000..2465181 --- /dev/null +++ b/LSL2/STPROCINS/SCHEDULE_SRL_EQU.txt @@ -0,0 +1,29 @@ +* Equates for SCHEDULE_SRL created on 04/03/96 07:41AM + +equ SCHEDULE_SRL_PO$ to 1 +equ SCHEDULE_SRL_ORDER_NO$ to 2 +equ SCHEDULE_SRL_CUST_NO$ to 3 +equ SCHEDULE_SRL_ENTRY_ID$ to 4 +equ SCHEDULE_SRL_STATUS$ to 5 +equ SCHEDULE_SRL_ENTRY_DATE$ to 6 +equ SCHEDULE_SRL_CLOSE_DATE$ to 7 +equ SCHEDULE_SRL_ORDER_LINE$ to 8 +equ SCHEDULE_SRL_WO$ to 9 +equ SCHEDULE_SRL_RUN_ORDER_NUM$ to 10 +equ SCHEDULE_SRL_RDS_IDS$ to 11 +equ SCHEDULE_SRL_WAFERS_IN$ to 12 +equ SCHEDULE_SRL_QUOTE_NUM$ to 13 +equ SCHEDULE_SRL_WAFER_REC_DATE$ to 14 +equ SCHEDULE_SRL_SCHED_QTY$ to 15 +equ SCHEDULE_SRL_SCHED_DATE$ to 16 +equ SCHEDULE_SRL_SHIP_QTY$ to 17 +equ SCHEDULE_SRL_SHIP_DATE$ to 18 +equ SCHEDULE_SRL_NOTES$ to 19 +equ SCHEDULE_SRL_INVOICE_IDS$ to 20 +equ SCHEDULE_SRL_SHIP_VIA$ to 21 +equ SCHEDULE_SRL_TRACKING_NO$ to 22 +equ SCHEDULE_SRL_SHIP_SETUP_CHARGE$ to 23 +equ SCHEDULE_SRL_SHIP_PRICE$ to 24 +equ SCHEDULE_SRL_BOX_CNT$ to 25 +equ SCHEDULE_SRL_REJECTS$ to 26 +equ SCHEDULE_SRL_UNPROCESSED$ to 27 diff --git a/LSL2/STPROCINS/SCHED_DET_EQUATES.txt b/LSL2/STPROCINS/SCHED_DET_EQUATES.txt new file mode 100644 index 0000000..26198a6 --- /dev/null +++ b/LSL2/STPROCINS/SCHED_DET_EQUATES.txt @@ -0,0 +1,23 @@ +compile insert SCHED_DET_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 02/07/2014 + Description : Insert for Table SCHED_DET +----------------------------------------*/ + + +Equ SCHED_DET_REACT_NO$ To 0 +Equ SCHED_DET_SCHED_DT$ To 0 +Equ SCHED_DET_SCHED_SEQ$ To 0 +Equ SCHED_DET_WO_NO$ To 1 +Equ SCHED_DET_WO_STEP$ To 2 +Equ SCHED_DET_CASS_NO$ To 3 +Equ SCHED_DET_DESC$ To 4 +Equ SCHED_DET_MODIFIED$ To 5 +Equ SCHED_DET_BLOCK_OUT$ To 6 +Equ SCHED_DET_BLOCK_OUT_TYPE$ To 7 +Equ SCHED_DET_BACKCOLOR$ To 8 +Equ SCHED_DET_FORECOLOR$ To 9 +Equ SCHED_DET_DAY_LENGTH_CODE$ To 10 +Equ SCHED_DET_START_TIME$ To 11 +Equ SCHED_DET_END_TIME$ To 12 diff --git a/LSL2/STPROCINS/SCHED_DET_KEY_IDS_EQUATES.txt b/LSL2/STPROCINS/SCHED_DET_KEY_IDS_EQUATES.txt new file mode 100644 index 0000000..3ca481c --- /dev/null +++ b/LSL2/STPROCINS/SCHED_DET_KEY_IDS_EQUATES.txt @@ -0,0 +1,14 @@ +compile insert SCHED_DET_KEY_IDS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 29/08/2017 + Description : Insert for Table SCHED_DET_KEY_IDS +----------------------------------------*/ + + +Equ SCHED_DET_KEY_IDS_BLOCK_OUT$ To 0 +Equ SCHED_DET_KEY_IDS_EPI_PART_NO$ To 0 +Equ SCHED_DET_KEY_IDS_REACTOR_NO$ To 0 +Equ SCHED_DET_KEY_IDS_SCHEDULE_DATE$ To 0 +Equ SCHED_DET_KEY_IDS_WORK_ORDER_NO$ To 0 +Equ SCHED_DET_KEY_IDS_KEY_IDS$ To 1 diff --git a/LSL2/STPROCINS/SCHED_DET_NG_EQUATES.txt b/LSL2/STPROCINS/SCHED_DET_NG_EQUATES.txt new file mode 100644 index 0000000..99de15a --- /dev/null +++ b/LSL2/STPROCINS/SCHED_DET_NG_EQUATES.txt @@ -0,0 +1,28 @@ +compile insert SCHED_DET_NG_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 06/01/2021 + Description : Insert for Table SCHED_DET_NG +----------------------------------------*/ + + +Equ SCHED_DET_NG.EVENT_ID$ To 0 +Equ SCHED_DET_NG.PREV_EVENT_ID$ To 1 +Equ SCHED_DET_NG.NEXT_EVENT_ID$ To 2 +Equ SCHED_DET_NG.REACT_NO$ To 3 +Equ SCHED_DET_NG.WO_NO$ To 4 +Equ SCHED_DET_NG.START_DTM$ To 5 +Equ SCHED_DET_NG.STOP_DTM$ To 6 +Equ SCHED_DET_NG.DESC$ To 7 +Equ SCHED_DET_NG.MODIFIED$ To 8 +Equ SCHED_DET_NG.BLOCK_OUT$ To 9 +Equ SCHED_DET_NG.BLOCK_OUT_TYPE$ To 10 +Equ SCHED_DET_NG.BACKCOLOR$ To 11 +Equ SCHED_DET_NG.FORECOLOR$ To 12 +Equ SCHED_DET_NG.EVENT_TOTAL_WFRS$ To 13 +Equ SCHED_DET_NG.EVENT_REMAINING_WFRS$ To 14 +Equ SCHED_DET_NG.UNPROCESSED_CASS$ To 15 +Equ SCHED_DET_NG.PROCESSED_CASS$ To 16 +Equ SCHED_DET_NG.EVENT_COMP$ To 17 + + diff --git a/LSL2/STPROCINS/SCHED_EQUATES.txt b/LSL2/STPROCINS/SCHED_EQUATES.txt new file mode 100644 index 0000000..0900b98 --- /dev/null +++ b/LSL2/STPROCINS/SCHED_EQUATES.txt @@ -0,0 +1,11 @@ +compile insert SCHED_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 30/06/2014 + Description : Insert for Table SCHED +----------------------------------------*/ + + +Equ SCHED_REACT_NO$ To 0 +Equ SCHED_SCHED_DT$ To 0 +Equ SCHED_SCHED_DET_KEYS$ To 1 diff --git a/LSL2/STPROCINS/SCHED_HIST_EQUATES.txt b/LSL2/STPROCINS/SCHED_HIST_EQUATES.txt new file mode 100644 index 0000000..bdf3af2 --- /dev/null +++ b/LSL2/STPROCINS/SCHED_HIST_EQUATES.txt @@ -0,0 +1,13 @@ +compile insert SCHED_HIST_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 10/11/2021 + Description : Insert for Table SCHED_HIST +----------------------------------------*/ + + +Equ SCHED_HIST.SEQ$ To 0 +Equ SCHED_HIST.SCHED_DET_NG_KEY$ To 1 +Equ SCHED_HIST.REACTOR$ To 2 +Equ SCHED_HIST.ACTION$ To 3 +Equ SCHED_HIST.USER$ To 4 diff --git a/LSL2/STPROCINS/SCHED_WO_EQUATES.txt b/LSL2/STPROCINS/SCHED_WO_EQUATES.txt new file mode 100644 index 0000000..13882dc --- /dev/null +++ b/LSL2/STPROCINS/SCHED_WO_EQUATES.txt @@ -0,0 +1,12 @@ +compile insert SCHED_WO_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 26/06/2014 + Description : Insert for Table SCHED_WO +----------------------------------------*/ + + +Equ SCHED_WO_REACT_NO$ To 0 +Equ SCHED_WO_SCHED_DT$ To 0 +Equ SCHED_WO_WO_NO$ To 0 +Equ SCHED_WO_CASS_NO$ To 1 diff --git a/LSL2/STPROCINS/SECURITY_EQUATES.txt b/LSL2/STPROCINS/SECURITY_EQUATES.txt new file mode 100644 index 0000000..cc3b984 --- /dev/null +++ b/LSL2/STPROCINS/SECURITY_EQUATES.txt @@ -0,0 +1,3 @@ +compile insert SECURITY_EQUATES + +Common /Application Security/ Username%, Login%, AccessLevel%, SecurityUnused4%, SecurityUnused5%, SecurityUnused6%, SecurityUnused7%, SecurityUnused8% diff --git a/LSL2/STPROCINS/SECURITY_RIGHTS_EQU.txt b/LSL2/STPROCINS/SECURITY_RIGHTS_EQU.txt new file mode 100644 index 0000000..f993ab3 --- /dev/null +++ b/LSL2/STPROCINS/SECURITY_RIGHTS_EQU.txt @@ -0,0 +1,8 @@ +compile insert SECURITY_RIGHTS_EQU + +equ Read$ to 1 +equ Write$ to 2 +equ Delete$ to 3 +equ Edit$ to 4 +equ Print$ to 5 + diff --git a/LSL2/STPROCINS/SEC_GROUPS_EQU.txt b/LSL2/STPROCINS/SEC_GROUPS_EQU.txt new file mode 100644 index 0000000..275d03d --- /dev/null +++ b/LSL2/STPROCINS/SEC_GROUPS_EQU.txt @@ -0,0 +1,5 @@ +* Equates for SEC_GROUPS created on 12/24/95 08:16AM + +equ SEC_GROUPS_GROUP_NAME$ to 1 +equ SEC_GROUPS_TABLES$ to 2 +equ SEC_GROUPS_RIGHTS$ to 3 diff --git a/LSL2/STPROCINS/SEC_GROUPS_EQUATES.txt b/LSL2/STPROCINS/SEC_GROUPS_EQUATES.txt new file mode 100644 index 0000000..7d8443f --- /dev/null +++ b/LSL2/STPROCINS/SEC_GROUPS_EQUATES.txt @@ -0,0 +1,13 @@ +compile insert SEC_GROUPS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 29/02/2012 + Description : Insert for Table SEC_GROUPS +----------------------------------------*/ + + +Equ SEC_GROUPS_GROUP$ To 0 +Equ SEC_GROUPS_GROUP_NAME$ To 1 +Equ SEC_GROUPS_TABLES$ To 2 +Equ SEC_GROUPS_RIGHTS$ To 3 +Equ SEC_GROUPS_USER$ To 4 diff --git a/LSL2/STPROCINS/SEMI_VEND_CODE_EQUATES.txt b/LSL2/STPROCINS/SEMI_VEND_CODE_EQUATES.txt new file mode 100644 index 0000000..26cbe6c --- /dev/null +++ b/LSL2/STPROCINS/SEMI_VEND_CODE_EQUATES.txt @@ -0,0 +1,12 @@ +compile insert SEMI_VEND_CODE_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 02/09/2011 + Description : Insert for Table SEMI_VEND_CODE +----------------------------------------*/ + + +Equ SEMI_VEND_CODE_VEND_CD$ To 0 +Equ SEMI_VEND_CODE_VENDOR_NAME$ To 1 +Equ SEMI_VEND_CODE_LOCATION$ To 2 +Equ SEMI_VEND_CODE_EPI_VEND_CD$ To 3 diff --git a/LSL2/STPROCINS/SERVICES_EQUATES.txt b/LSL2/STPROCINS/SERVICES_EQUATES.txt new file mode 100644 index 0000000..359fdf5 --- /dev/null +++ b/LSL2/STPROCINS/SERVICES_EQUATES.txt @@ -0,0 +1,17 @@ +compile insert SERVICES_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 30/01/2018 + Description : Insert for Table SERVICES +----------------------------------------*/ + + +Equ SERVICES.NAME$ To 0 +Equ SERVICES.DESCRIPTION$ To 1 +Equ SERVICES.PROCEDURES$ To 2 +Equ SERVICES.ARGUMENTS$ To 3 +Equ SERVICES.FREQUENCY$ To 4 +Equ SERVICES.SCHEDULE$ To 5 +Equ SERVICES.SERVER$ To 6 +Equ SERVICES.ACTIVE$ To 7 +Equ SERVICES.LAST_RUN_DTM$ To 8 diff --git a/LSL2/STPROCINS/SERVICE_INSERT.txt b/LSL2/STPROCINS/SERVICE_INSERT.txt new file mode 100644 index 0000000..5276f7d --- /dev/null +++ b/LSL2/STPROCINS/SERVICE_INSERT.txt @@ -0,0 +1,19 @@ +Compile insert SERVICE_INSERT + +Ans = "" +rv = "" + +// Make sure any request parameters which have not been assigned are nulled. +If Assigned(Service) else Service = '' +If Assigned(Error) else Error = '' +If Assigned(Param1) else Param1 = '' +If Assigned(Param2) else Param2 = '' +If Assigned(Param3) else Param3 = '' +If Assigned(Param4) else Param4 = '' +If Assigned(Param5) else Param5 = '' +If Assigned(Param6) else Param6 = '' +If Assigned(Param7) else Param7 = '' +If Assigned(Param8) else Param8 = '' +If Assigned(Param9) else Param9 = '' +If Assigned(Param10) else Param10 = '' +If Assigned(Response) else Response = '' diff --git a/LSL2/STPROCINS/SERVICE_SETUP.txt b/LSL2/STPROCINS/SERVICE_SETUP.txt new file mode 100644 index 0000000..d4de932 --- /dev/null +++ b/LSL2/STPROCINS/SERVICE_SETUP.txt @@ -0,0 +1,43 @@ +Compile insert Service_Setup + +/*********************************************************************************************************************** + + This program is proprietary and is not to be used by or disclosed to others, nor is it to be copied without written + permission from SRP Computer Solutions, Inc. + + Name : Service_Setup + + Description : Equates used by the Service modules. + + Notes : + + History : (Date, Initials, Notes) + 08/13/10 dmb Original programmer. + +***********************************************************************************************************************/ + +Declare function RetStack, Error_Services +Declare subroutine Error_Services + + +// Make sure any request parameters which have not been assigned are nulled. +If Assigned(Service) else Service = '' +If Assigned(Error) else Error = '' +If Assigned(Param1) else Param1 = '' +If Assigned(Param2) else Param2 = '' +If Assigned(Param3) else Param3 = '' +If Assigned(Param4) else Param4 = '' +If Assigned(Param5) else Param5 = '' +If Assigned(Param6) else Param6 = '' +If Assigned(Param7) else Param7 = '' +If Assigned(Param8) else Param8 = '' +If Assigned(Param9) else Param9 = '' +If Assigned(Param10) else Param10 = '' +If Assigned(Response) else Response = '' + +// Create the service Key ID in case Memory_Services is used. +ServiceModule = RetStack()<1> +ServiceKeyID = ServiceModule : '*' : Service + +// Clear any error conditions. +Error_Services('Clear') diff --git a/LSL2/STPROCINS/SHIPPING_INFO_EQU.txt b/LSL2/STPROCINS/SHIPPING_INFO_EQU.txt new file mode 100644 index 0000000..84f1147 --- /dev/null +++ b/LSL2/STPROCINS/SHIPPING_INFO_EQU.txt @@ -0,0 +1,22 @@ +compile insert SHIPPING_INFO_EQU +* THESE ARE THE EQUATED POSITIONS FOR THE SHIPPING_INFO EDITTABLE IN +* PROD_SPEC + +equ SIHGProbe$ to 1 +equ SIFTIR$ to 2 +equ SITestWafer$ to 3 +equ SISRP$ to 4 +equ SISRPWWafer$ to 5 +equ SISurfscan$ to 6 +equ SIStress$ to 7 +equ SI4PP$ to 8 +equ SICustRDS$ to 9 +equ SICOCFront$ to 10 +equ SICOCFrontCopies$ to 11 +equ SICOCBack$ to 12 +equ SICOCBackCopies$ to 13 +equ SIPartial$ to 14 +equ SIFullType$ to 15 +equ SINCRRej$ to 16 +equ SIBagRequirements$ to 17 +equ SIRDSCleanroomPaper$ to 18 diff --git a/LSL2/STPROCINS/SHIP_CARTON_EQUATES.txt b/LSL2/STPROCINS/SHIP_CARTON_EQUATES.txt new file mode 100644 index 0000000..abd5198 --- /dev/null +++ b/LSL2/STPROCINS/SHIP_CARTON_EQUATES.txt @@ -0,0 +1,19 @@ +compile insert SHIP_CARTON_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 14/12/2007 + Description : Insert for Table SHIP_CARTON +----------------------------------------*/ + + +Equ SHIP_CARTON_CART_NO$ To 0 +Equ SHIP_CARTON_SHIP_NO$ To 0 +Equ SHIP_CARTON_ORDER_NO$ To 1 +Equ SHIP_CARTON_LINE_NO$ To 2 +Equ SHIP_CARTON_STEP_NO$ To 3 +Equ SHIP_CARTON_CASS_NO$ To 4 +Equ SHIP_CARTON_RDS_NO$ To 5 +Equ SHIP_CARTON_PART_NO$ To 6 +Equ SHIP_CARTON_LOT_NO$ To 7 +Equ SHIP_CARTON_REJECT$ To 8 +Equ SHIP_CARTON_WAFER_QTY$ To 9 diff --git a/LSL2/STPROCINS/SPC_CLEAN_HF_AKRION_EQU.txt b/LSL2/STPROCINS/SPC_CLEAN_HF_AKRION_EQU.txt new file mode 100644 index 0000000..fab150d --- /dev/null +++ b/LSL2/STPROCINS/SPC_CLEAN_HF_AKRION_EQU.txt @@ -0,0 +1,13 @@ +* Equates for SPC_CLEAN_HF_AKRION created on 04/27/01 09:54AM + +equ SPC_CLEAN_HF_AKRION_TEST_TYPE$ to 1 +equ SPC_CLEAN_HF_AKRION_ENTRY_ID$ to 2 +equ SPC_CLEAN_HF_AKRION_ENTRY_DATE$ to 3 +equ SPC_CLEAN_HF_AKRION_SHIFT$ to 4 +equ SPC_CLEAN_HF_AKRION_PRE$ to 5 +equ SPC_CLEAN_HF_AKRION_POST$ to 6 +equ SPC_CLEAN_HF_AKRION_COMMENTS$ to 7 +equ SPC_CLEAN_HF_AKRION_TERM_NO$ to 8 +equ SPC_CLEAN_HF_AKRION_DATE_TESTED$ to 9 +equ SPC_CLEAN_HF_AKRION_TIME_TESTED$ to 10 +equ SPC_CLEAN_HF_AKRION_TECH_SIG$ to 11 diff --git a/LSL2/STPROCINS/SPC_CLEAN_HF_EQU.txt b/LSL2/STPROCINS/SPC_CLEAN_HF_EQU.txt new file mode 100644 index 0000000..50085bb --- /dev/null +++ b/LSL2/STPROCINS/SPC_CLEAN_HF_EQU.txt @@ -0,0 +1,13 @@ +* Equates for SPC_CLEAN_HF created on 09/01/99 08:09AM + +equ SPC_CLEAN_HF_CODE$ to 1 +equ SPC_CLEAN_HF_ENTRY_ID$ to 2 +equ SPC_CLEAN_HF_ENTRY_DATE$ to 3 +equ SPC_CLEAN_HF_SHIFT$ to 4 +equ SPC_CLEAN_HF_PRE$ to 5 +equ SPC_CLEAN_HF_POST$ to 6 +equ SPC_CLEAN_HF_COMMENTS$ to 7 +equ SPC_CLEAN_HF_TERM_NO$ to 8 +equ SPC_CLEAN_HF_DATE_TESTED$ to 9 +equ SPC_CLEAN_HF_TIME_TESTED$ to 10 +equ SPC_CLEAN_HF_TECH_SIG$ to 11 diff --git a/LSL2/STPROCINS/SPC_CLEAN_HF_ETCH_AKRION_EQU.txt b/LSL2/STPROCINS/SPC_CLEAN_HF_ETCH_AKRION_EQU.txt new file mode 100644 index 0000000..6955d08 --- /dev/null +++ b/LSL2/STPROCINS/SPC_CLEAN_HF_ETCH_AKRION_EQU.txt @@ -0,0 +1,13 @@ +* Equates for SPC_CLEAN_HF_ETCH_AKRION created on 04/26/01 04:03PM + +equ SPC_CLEAN_HF_ETCH_AKRION_ENTRY_ID$ to 1 +equ SPC_CLEAN_HF_ETCH_AKRION_ENTRY_DATE$ to 2 +equ SPC_CLEAN_HF_ETCH_AKRION_SHIFT$ to 3 +equ SPC_CLEAN_HF_ETCH_AKRION_PRE$ to 4 +equ SPC_CLEAN_HF_ETCH_AKRION_POST$ to 5 +equ SPC_CLEAN_HF_ETCH_AKRION_COMMENTS$ to 6 +equ SPC_CLEAN_HF_ETCH_AKRION_TERM_NO$ to 7 +equ SPC_CLEAN_HF_ETCH_AKRION_DATE_TESTED$ to 8 +equ SPC_CLEAN_HF_ETCH_AKRION_TIME_TESTED$ to 9 +equ SPC_CLEAN_HF_ETCH_AKRION_TECH_SIG$ to 10 +equ SPC_CLEAN_HF_ETCH_AKRION_TEST_TYPE$ to 11 diff --git a/LSL2/STPROCINS/SPC_CLEAN_HF_ETCH_EQU.txt b/LSL2/STPROCINS/SPC_CLEAN_HF_ETCH_EQU.txt new file mode 100644 index 0000000..47e364d --- /dev/null +++ b/LSL2/STPROCINS/SPC_CLEAN_HF_ETCH_EQU.txt @@ -0,0 +1,12 @@ +* Equates for SPC_CLEAN_HF_ETCH created on 09/02/99 02:37PM + +equ SPC_CLEAN_HF_ETCH_ENTRY_ID$ to 1 +equ SPC_CLEAN_HF_ETCH_ENTRY_DATE$ to 2 +equ SPC_CLEAN_HF_ETCH_SHIFT$ to 3 +equ SPC_CLEAN_HF_ETCH_PRE$ to 4 +equ SPC_CLEAN_HF_ETCH_POST$ to 5 +equ SPC_CLEAN_HF_ETCH_COMMENTS$ to 6 +equ SPC_CLEAN_HF_ETCH_TERM_NO$ to 7 +equ SPC_CLEAN_HF_ETCH_DATE_TESTED$ to 8 +equ SPC_CLEAN_HF_ETCH_TIME_TESTED$ to 9 +equ SPC_CLEAN_HF_ETCH_TECH_SIG$ to 10 diff --git a/LSL2/STPROCINS/SPC_CLEAN_SC1_EQU.txt b/LSL2/STPROCINS/SPC_CLEAN_SC1_EQU.txt new file mode 100644 index 0000000..d7ad5f3 --- /dev/null +++ b/LSL2/STPROCINS/SPC_CLEAN_SC1_EQU.txt @@ -0,0 +1,13 @@ +* Equates for SPC_CLEAN_SC1 created on 08/31/99 08:03AM + +equ SPC_CLEAN_SC1_CODE$ to 1 +equ SPC_CLEAN_SC1_ENTRY_ID$ to 2 +equ SPC_CLEAN_SC1_ENTRY_DATE$ to 3 +equ SPC_CLEAN_SC1_SHIFT$ to 4 +equ SPC_CLEAN_SC1_PRE$ to 5 +equ SPC_CLEAN_SC1_POST$ to 6 +equ SPC_CLEAN_SC1_COMMENTS$ to 7 +equ SPC_CLEAN_SC1_TERM_NO$ to 8 +equ SPC_CLEAN_SC1_DATE_TESTED$ to 9 +equ SPC_CLEAN_SC1_TIME_TESTED$ to 10 +equ SPC_CLEAN_SC1_TECH_SIG$ to 11 diff --git a/LSL2/STPROCINS/SPC_CLEAN_SRD_EQU.txt b/LSL2/STPROCINS/SPC_CLEAN_SRD_EQU.txt new file mode 100644 index 0000000..9985dea --- /dev/null +++ b/LSL2/STPROCINS/SPC_CLEAN_SRD_EQU.txt @@ -0,0 +1,13 @@ +* Equates for SPC_CLEAN_SRD created on 08/17/99 11:33AM + +equ SPC_CLEAN_SRD_SRD$ to 1 +equ SPC_CLEAN_SRD_ENTRY_ID$ to 2 +equ SPC_CLEAN_SRD_ENTRY_DATE$ to 3 +equ SPC_CLEAN_SRD_SHIFT$ to 4 +equ SPC_CLEAN_SRD_PRE$ to 5 +equ SPC_CLEAN_SRD_POST$ to 6 +equ SPC_CLEAN_SRD_COMMENTS$ to 7 +equ SPC_CLEAN_SRD_TERM_NO$ to 8 +equ SPC_CLEAN_SRD_DATE_TESTED$ to 9 +equ SPC_CLEAN_SRD_TIME_TESTED$ to 10 +equ SPC_CLEAN_SRD_TECH_SIG$ to 11 diff --git a/LSL2/STPROCINS/SPC_EVAL_4PP_EQU.txt b/LSL2/STPROCINS/SPC_EVAL_4PP_EQU.txt new file mode 100644 index 0000000..178e754 --- /dev/null +++ b/LSL2/STPROCINS/SPC_EVAL_4PP_EQU.txt @@ -0,0 +1,15 @@ +* Equates for SPC_EVAL_4PP created on 02/21/00 10:52AM + +equ SPC_EVAL_4PP_ENTRY_ID$ to 1 +equ SPC_EVAL_4PP_ENTRY_DATE$ to 2 +equ SPC_EVAL_4PP_SHIFT$ to 3 +equ SPC_EVAL_4PP_SHEET_RHO$ to 4 +equ SPC_EVAL_4PP_STDEV$ to 5 +equ SPC_EVAL_4PP_COMMENTS$ to 6 +equ SPC_EVAL_4PP_TERM_NO$ to 7 +equ SPC_EVAL_4PP_DATE_TESTED$ to 8 +equ SPC_EVAL_4PP_TIME_TESTED$ to 9 +equ SPC_EVAL_4PP_TECH_SIG$ to 10 +equ SPC_EVAL_4PP_TOOL_NUMBER$ to 11 +equ SPC_EVAL_4PP_RANGE$ to 12 +equ SPC_EVAL_4PP_WAFER_ID$ to 13 diff --git a/LSL2/STPROCINS/SPC_EVAL_ADE_EQU.txt b/LSL2/STPROCINS/SPC_EVAL_ADE_EQU.txt new file mode 100644 index 0000000..5992493 --- /dev/null +++ b/LSL2/STPROCINS/SPC_EVAL_ADE_EQU.txt @@ -0,0 +1,16 @@ +compile insert SPC_EVAL_ADE_EQU +* Equates for SPC_EVAL_ADE created on 02/21/00 10:57AM + +equ SPC_EVAL_ADE_ENTRY_ID$ to 1 +equ SPC_EVAL_ADE_ENTRY_DATE$ to 2 +equ SPC_EVAL_ADE_SHIFT$ to 3 +equ SPC_EVAL_ADE_THICK$ to 4 +equ SPC_EVAL_ADE_STDEV$ to 5 +equ SPC_EVAL_ADE_COMMENTS$ to 6 +equ SPC_EVAL_ADE_TERM_NO$ to 7 +equ SPC_EVAL_ADE_DATE_TESTED$ to 8 +equ SPC_EVAL_ADE_TIME_TESTED$ to 9 +equ SPC_EVAL_ADE_TECH_SIG$ to 10 +equ SPC_EVAL_ADE_TOOL_NUMBER$ to 11 +equ SPC_EVAL_ADE_RANGE$ to 12 +equ SPC_EVAL_ADE_WAFER_ID$ to 13 diff --git a/LSL2/STPROCINS/SPC_EVAL_FTIR_EQU.txt b/LSL2/STPROCINS/SPC_EVAL_FTIR_EQU.txt new file mode 100644 index 0000000..8c9d2c2 --- /dev/null +++ b/LSL2/STPROCINS/SPC_EVAL_FTIR_EQU.txt @@ -0,0 +1,15 @@ +* Equates for SPC_EVAL_FTIR created on 02/21/00 10:57AM + +equ SPC_EVAL_FTIR_ENTRY_ID$ to 1 +equ SPC_EVAL_FTIR_ENTRY_DATE$ to 2 +equ SPC_EVAL_FTIR_SHIFT$ to 3 +equ SPC_EVAL_FTIR_THICK$ to 4 +equ SPC_EVAL_FTIR_STDEV$ to 5 +equ SPC_EVAL_FTIR_COMMENTS$ to 6 +equ SPC_EVAL_FTIR_TERM_NO$ to 7 +equ SPC_EVAL_FTIR_DATE_TESTED$ to 8 +equ SPC_EVAL_FTIR_TIME_TESTED$ to 9 +equ SPC_EVAL_FTIR_TECH_SIG$ to 10 +equ SPC_EVAL_FTIR_TOOL_NUMBER$ to 11 +equ SPC_EVAL_FTIR_RANGE$ to 12 +equ SPC_EVAL_FTIR_WAFER_ID$ to 13 diff --git a/LSL2/STPROCINS/SPC_LIMITS_EQU.txt b/LSL2/STPROCINS/SPC_LIMITS_EQU.txt new file mode 100644 index 0000000..f7408b1 --- /dev/null +++ b/LSL2/STPROCINS/SPC_LIMITS_EQU.txt @@ -0,0 +1,108 @@ +compile insert SPC_LIMITS_EQU +* equates for "CONFIG" "SPC_LIMITS" + +equ SRDParticleMin$ to 1 +equ SRDParticleMax$ to 2 +equ SRDParticleDate$ to 3 +equ SC1ParticleMin$ to 4 +equ SC1ParticleMax$ to 5 +equ SC1ParticleDate$ to 6 +equ HFParticleMin$ to 7 +equ HFParticleMax$ to 8 +equ HFParticleDate$ to 9 +equ HFEtchRemMin$ to 10 +equ HFEtchRemMax$ to 11 +equ HFEtchRemDate$ to 12 +equ WafEtchMin$ to 13 +equ WafEtchMax$ to 14 +equ WafEtchDate$ to 15 +equ Eval4PPHMin$ to 16 +equ Eval4PPHMax$ to 17 +equ Eval4PPHDate$ to 18 +equ Eval4PPHStdevMin$ to 19 +equ Eval4PPHStdevMax$ to 20 +equ Eval4PPHStdevDate$ to 21 +equ EvalFTIRHMin$ to 22 +equ EvalFTIRHMax$ to 23 +equ EvalFTIRHDate$ to 24 +equ EvalFTIRHStdevMin$ to 25 +equ EvalFTIRHStdevMax$ to 26 +equ EvalFTIRHStdevDate$ to 27 +equ Eval4PPMMin$ to 28 +equ Eval4PPMMax$ to 29 +equ Eval4PPMDate$ to 30 +equ Eval4PPMStdevMin$ to 31 +equ Eval4PPMStdevMax$ to 32 +equ Eval4PPMStdevDate$ to 33 +equ EvalFTIRMMin$ to 34 +equ EvalFTIRMMax$ to 35 +equ EvalFTIRMDate$ to 36 +equ EvalFTIRMStdevMin$ to 37 +equ EvalFTIRMStdevMax$ to 38 +equ EvalFTIRMStdevDate$ to 39 +equ Eval4PPLMin$ to 40 +equ Eval4PPLMax$ to 41 +equ Eval4PPLDate$ to 42 +equ Eval4PPLStdevMin$ to 43 +equ Eval4PPLStdevMax$ to 44 +equ Eval4PPLStdevDate$ to 45 +equ EvalFTIRLMin$ to 46 +equ EvalFTIRLMax$ to 47 +equ EvalFTIRLDate$ to 48 +equ EvalFTIRLStdevMin$ to 49 +equ EvalFTIRLStdevMax$ to 50 +equ EvalFTIRLStdevDate$ to 51 +equ Eval4PPHWaferID$ to 52 +equ Eval4PPMWaferID$ to 53 +equ Eval4PPLWaferID$ to 54 +equ Eval4PPHStdevWaferID$ to 55 +equ Eval4PPMStdevWaferID$ to 56 +equ Eval4PPLStdevWaferID$ to 57 +equ EvalFTIRHWaferID$ to 58 +equ EvalFTIRMWaferID$ to 59 +equ EvalFTIRLWaferID$ to 60 +equ EvalFTIRHStdevWaferID$ to 61 +equ EvalFTIRMStdevWaferID$ to 62 +equ EvalFTIRLStdevWaferID$ to 63 +equ ReactPartMin$ to 64 +equ ReactPartMax$ to 65 +equ ReactPartDate$ to 66 +equ ReactHazeMin$ to 67 +equ ReactHazeMax$ to 68 +equ ReactHazeDate$ to 69 +equ HFEtchAkrionRemEtchMin$ to 70 +equ HFEtchAkrionRemEtchMax$ to 71 +equ HFEtchAkrionRemEtchDate$ to 72 +equ HFParticleAkrionQualMin$ to 73 +equ HFParticleAkrionQualMax$ to 74 +equ HFParticleAkrionQualDate$ to 75 +equ HFParticleAkrionHFLastMin$ to 76 +equ HFParticleAkrionHFLastMax$ to 77 +equ HFParticleAkrionHFLastDate$ to 78 +equ HFEtchAkrionRemDiluteMin$ to 79 +equ HFEtchAkrionRemDiluteMax$ to 80 +equ HFEtchAkrionRemDiluteDate$ to 81 +equ EvalADEHMin$ to 82 +equ EvalADEHMax$ to 83 +equ EvalADEHDate$ to 84 +equ EvalADEHStdevMin$ to 85 +equ EvalADEHStdevMax$ to 86 +equ EvalADEHStdevDate$ to 87 +equ EvalADEMMin$ to 88 +equ EvalADEMMax$ to 89 +equ EvalADEMDate$ to 90 +equ EvalADEMStdevMin$ to 91 +equ EvalADEMStdevMax$ to 92 +equ EvalADEMStdevDate$ to 93 +equ EvalADELMin$ to 94 +equ EvalADELMax$ to 95 +equ EvalADELDate$ to 96 +equ EvalADELStdevMin$ to 97 +equ EvalADELStdevMax$ to 98 +equ EvalADELStdevDate$ to 99 +equ EvalADEHWaferID$ to 100 +equ EvalADEMWaferID$ to 101 +equ EvalADELWaferID$ to 102 +equ EvalADEHStdevWaferID$ to 103 +equ EvalADEMStdevWaferID$ to 104 +equ EvalADELStdevWaferID$ to 105 diff --git a/LSL2/STPROCINS/SPC_QUEUE_EQUATES.txt b/LSL2/STPROCINS/SPC_QUEUE_EQUATES.txt new file mode 100644 index 0000000..44b5ab8 --- /dev/null +++ b/LSL2/STPROCINS/SPC_QUEUE_EQUATES.txt @@ -0,0 +1,13 @@ +compile insert SPC_QUEUE_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 10/24/2018 + Description : Insert for Table SPC_QUEUE +----------------------------------------*/ + + +Equ SPC_QUEUE.REQUEST_DATE$ To 0*1 +Equ SPC_QUEUE.REQUEST_TIME$ To 0*2 +Equ SPC_QUEUE.REQUEST_USER$ To 0*3 +Equ SPC_QUEUE.SPC_FILENAME$ To 1 +Equ SPC_QUEUE.SPC_DOC$ To 2 diff --git a/LSL2/STPROCINS/SPC_REACTOR_PARTICLES_EQU.txt b/LSL2/STPROCINS/SPC_REACTOR_PARTICLES_EQU.txt new file mode 100644 index 0000000..53bd3a1 --- /dev/null +++ b/LSL2/STPROCINS/SPC_REACTOR_PARTICLES_EQU.txt @@ -0,0 +1,14 @@ +* Equates for SPC_REACTOR_PARTICLES created on 05/03/00 11:27AM + +equ SPC_REACTOR_PARTICLES_REACTOR$ to 1 +equ SPC_REACTOR_PARTICLES_ENTRY_ID$ to 2 +equ SPC_REACTOR_PARTICLES_ENTRY_DATE$ to 3 +equ SPC_REACTOR_PARTICLES_SHIFT$ to 4 +equ SPC_REACTOR_PARTICLES_PRE$ to 5 +equ SPC_REACTOR_PARTICLES_POST$ to 6 +equ SPC_REACTOR_PARTICLES_COMMENTS$ to 7 +equ SPC_REACTOR_PARTICLES_TERM_NO$ to 8 +equ SPC_REACTOR_PARTICLES_DATE_TESTED$ to 9 +equ SPC_REACTOR_PARTICLES_TIME_TESTED$ to 10 +equ SPC_REACTOR_PARTICLES_TECH_SIG$ to 11 +equ SPC_REACTOR_PARTICLES_HAZE$ to 12 diff --git a/LSL2/STPROCINS/SPC_WAFER_ETCH_EQU.txt b/LSL2/STPROCINS/SPC_WAFER_ETCH_EQU.txt new file mode 100644 index 0000000..4ed32d0 --- /dev/null +++ b/LSL2/STPROCINS/SPC_WAFER_ETCH_EQU.txt @@ -0,0 +1,13 @@ +* Equates for SPC_WAFER_ETCH created on 09/07/99 02:15PM + +equ SPC_WAFER_ETCH_REACTOR$ to 1 +equ SPC_WAFER_ETCH_ENTRY_ID$ to 2 +equ SPC_WAFER_ETCH_ENTRY_DATE$ to 3 +equ SPC_WAFER_ETCH_SHIFT$ to 4 +equ SPC_WAFER_ETCH_PRE$ to 5 +equ SPC_WAFER_ETCH_POST$ to 6 +equ SPC_WAFER_ETCH_COMMENTS$ to 7 +equ SPC_WAFER_ETCH_TERM_NO$ to 8 +equ SPC_WAFER_ETCH_DATE_TESTED$ to 9 +equ SPC_WAFER_ETCH_TIME_TESTED$ to 10 +equ SPC_WAFER_ETCH_TECH_SIG$ to 11 diff --git a/LSL2/STPROCINS/SQL_BACKLOG_WO_LOG_EQUATES.txt b/LSL2/STPROCINS/SQL_BACKLOG_WO_LOG_EQUATES.txt new file mode 100644 index 0000000..83efd04 --- /dev/null +++ b/LSL2/STPROCINS/SQL_BACKLOG_WO_LOG_EQUATES.txt @@ -0,0 +1,11 @@ +compile insert SQL_BACKLOG_WO_LOG_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 07/04/2021 + Description : Insert for Table SQL_BACKLOG_WO_LOG +----------------------------------------*/ + + +Equ SQL_BACKLOG_WO_LOG.RECORD$ To 0 +Equ SQL_BACKLOG_WO_LOG.TABLE$ To 0 +Equ SQL_BACKLOG_WO_LOG.DTM$ To 1 diff --git a/LSL2/STPROCINS/SQL_BACKLOG_WO_MAT_EQUATES.txt b/LSL2/STPROCINS/SQL_BACKLOG_WO_MAT_EQUATES.txt new file mode 100644 index 0000000..b22b8dd --- /dev/null +++ b/LSL2/STPROCINS/SQL_BACKLOG_WO_MAT_EQUATES.txt @@ -0,0 +1,11 @@ +compile insert SQL_BACKLOG_WO_MAT_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 07/04/2021 + Description : Insert for Table SQL_BACKLOG_WO_MAT +----------------------------------------*/ + + +Equ SQL_BACKLOG_WO_MAT.RECORD$ To 0 +Equ SQL_BACKLOG_WO_MAT.TABLE$ To 0 +Equ SQL_BACKLOG_WO_MAT.DTM$ To 1 diff --git a/LSL2/STPROCINS/SQL_LOG_EQUATES.txt b/LSL2/STPROCINS/SQL_LOG_EQUATES.txt new file mode 100644 index 0000000..b79a79b --- /dev/null +++ b/LSL2/STPROCINS/SQL_LOG_EQUATES.txt @@ -0,0 +1,11 @@ +compile insert SQL_LOG_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 07/02/2023 + Description : Insert for Table SQL_LOG +----------------------------------------*/ + + +Equ SQL_LOG.RECORD$ To 0 +Equ SQL_LOG.TABLE$ To 0 +Equ SQL_LOG.TRANS_DTM$ To 1 diff --git a/LSL2/STPROCINS/SQL_PENDING_EQUATES.txt b/LSL2/STPROCINS/SQL_PENDING_EQUATES.txt new file mode 100644 index 0000000..662c0f8 --- /dev/null +++ b/LSL2/STPROCINS/SQL_PENDING_EQUATES.txt @@ -0,0 +1,10 @@ +compile insert SQL_PENDING_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 07/02/2023 + Description : Insert for Table SQL_PENDING +----------------------------------------*/ + + +Equ SQL_PENDING.RECORD$ To 0 +Equ SQL_PENDING.TABLE$ To 0 diff --git a/LSL2/STPROCINS/SQL_REQUESTS_EQUATES.txt b/LSL2/STPROCINS/SQL_REQUESTS_EQUATES.txt new file mode 100644 index 0000000..7628a1f --- /dev/null +++ b/LSL2/STPROCINS/SQL_REQUESTS_EQUATES.txt @@ -0,0 +1,16 @@ +compile insert SQL_REQUESTS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 30/05/2019 + Description : Insert for Table SQL_REQUESTS +----------------------------------------*/ + + +Equ SQL_REQUESTS.REQUEST_DATE$ To 0*1 +Equ SQL_REQUESTS.REQUEST_TIME$ To 0*2 +Equ SQL_REQUESTS.USERNAME$ To 0*3 +Equ SQL_REQUESTS.RESPONSE_DATE$ To 1 +Equ SQL_REQUESTS.RESPONSE_TIME$ To 2 +Equ SQL_REQUESTS.DB_PATH$ To 3 +Equ SQL_REQUESTS.QUERY$ To 4 +Equ SQL_REQUESTS.RESPONSE$ To 5 diff --git a/LSL2/STPROCINS/SRP_APP_INSERTS.txt b/LSL2/STPROCINS/SRP_APP_INSERTS.txt new file mode 100644 index 0000000..bd38171 --- /dev/null +++ b/LSL2/STPROCINS/SRP_APP_INSERTS.txt @@ -0,0 +1,204 @@ +Compile insert SRP_APP_INSERTS + +Declare function Msg, PopUp, Set_Property, Get_Property, Utility, Send_Message, Dialog_Box, Start_Window, Start_MDIChild, Set_Printer, Get_Printer +Declare subroutine Set_Property, Utility, Send_Event, Send_Message, End_Dialog, Send_Info, Msg, SendMessage, Forward_Event, Lock_Record, Post_Event + +* Logical equates + +$Insert LOGICAL + +Equ Success$ to 1 +Equ Failure$ to 0 +Equ Passed$ to 1 +Equ Failed$ to 0 +Equ Qualified$ to 1 +Equ Not_qualified$ to 0 +Equ Confirmed$ to 1 +Equ Not_confirmed$ to 0 +Equ OK$ to 1 + +* General equates + +Equ Tab$ to Char(9) +Equ Esc$ to \1B\ +* Equ CRLF$ to \0D0A\ +Equ Lock$ to 1 +Equ Unlock$ to 2 +Equ ReadOnly$ to 0 +Equ FullWrite$ to 1 +Equ NoAccess$ to -1 + +* Font equates + +Equ Tahoma_8_Reg$ to "Tahoma":@SVM:-11:@SVM:400:@SVM:0:@SVM:0:@SVM:0:@SVM:0:@SVM:34:@SVM:0:@SVM:3:@SVM:2:@SVM:1:@SVM:0:@SVM:0:@SVM:0:@SVM:0 +Equ Tahoma_8_Reg_UL$ to "Tahoma":@SVM:-11:@SVM:400:@SVM:0:@SVM:1:@SVM:0:@SVM:0:@SVM:34:@SVM:0:@SVM:3:@SVM:2:@SVM:1:@SVM:0:@SVM:0:@SVM:0:@SVM:0 +Equ Tahoma_8_Bold$ to "Tahoma":@SVM:-11:@SVM:700:@SVM:0:@SVM:0:@SVM:0:@SVM:0:@SVM:34:@SVM:0:@SVM:3:@SVM:2:@SVM:1:@SVM:0:@SVM:0:@SVM:0:@SVM:0 + +* Promoted Event equates + +Equ Create$ to 1 +Equ Activated$ to 2 +Equ Read_Pre_System$ to 3 +Equ Clear_Post_System$ to 4 +Equ Close_Post_System$ to 5 +Equ Size$ to 6 +Equ Delete_Post_System$ to 7 +Equ Winmsg$ to 8 +Equ Write_Pre_System$ to 9 +Equ Gotfocus$ to 10 +Equ Lostfocus$ to 11 +Equ Inactivated$ to 12 +Equ Read_Post_System$ to 13 +Equ Clear_Pre_System$ to 14 +Equ Poschanged$ to 15 +Equ Close_Pre_System$ to 16 +Equ Write_Post_System$ to 17 +Equ Delete_Pre_System$ to 18 +Equ InsertRow$ to 19 +Equ DeleteRow$ to 20 +Equ ColSize$ to 21 +Equ RightClickUp$ to 22 +Equ MouseOver$ to 23 +Equ MouseOff$ to 24 +Equ OLE$ to 25 +Equ Click$ to 26 +Equ Timer$ to 27 +Equ ContextMenu$ to 28 + +* General Windows API equates + +Equ WM_USER to 1024 +Equ WM_CLOSE to 16 +Equ WM_COMMAND to 273 +Equ WM_LBUTTONDOWN to 513 ; // 0x0201 +Equ WM_LBUTTONUP to 514 ; // 0x0202 +Equ WM_LBUTTONDBLCLK to 515 ; // 0x0203 +Equ WM_RBUTTONDOWN to 516 ; // 0x0204 +Equ WM_RBUTTONUP to 517 ; // 0x0205 +Equ WM_SYSCOLORCHANGE to 21 ; // 0x0015 +Equ WM_SETCURSOR to 32 ; // 0x0020 +Equ WM_SIZE to 5 ; // 0x0005 +Equ WM_MOVE to 3 ; // 0x0003 +Equ WM_GETMINMAXINFO to 36 ; // 0x0024 +Equ WM_WINDOWPOSCHANGING to 70 + +Equ WS_CAPTION$ to 0x00C00000 +Equ WS_SYSMENU$ to 0x00080000 +Equ WS_THICKFRAME$ to 0x00040000 +Equ WS_EX_TOOLWINDOW$ to 0x00000080 +Equ WS_EX_CLIENTEDGE$ to 0x200 +Equ WS_CLIPCHILDREN$ to 0x02000000 + +Equ SM_CYCAPTION$ to 4 +Equ F4_VK_CODE to 115 ; // 115 is the virtual key code for F4. +Equ TAB_VK_CODE to 9 + +* Edittable/Datatable equates + +Equ DTN_ABORTEDIT to 17 +Equ DTM_EDITCURCELL to WM_USER + 95 ; * Change to Edit mode now +Equ DTM_SETEDITKEY to 1118 ; * Set key to change to Edit Mode +Equ DTM_SETCOLFORMAT to WM_USER + 18 + +Equ DT_BEGINEDIT to 1 ;* begin edit mode +Equ DT_ENDEDIT to 2 ;* end the edit +Equ DT_ABORTEDIT to 3 ;* Esc will undo changes +Equ DTS_EDIT to 4 +Equ DTCS_PROTECT to 8 + +* Help equates + +Equ HELP_CONTEXT to 1 +Equ HELP_QUIT to 2 +Equ HELP_INDEX to 3 +Equ HELP_CONTENTS to 3 +Equ HELP_HELPONHELP to 4 +Equ HELP_SETINDEX to 5 +Equ HELP_SETCONTENTS to 5 +Equ HELP_CONTEXTPOPUP to 8 +Equ HELP_FORCEFILE to 9 +Equ HELP_KEY to 257 +Equ HELP_COMMAND to 258 +Equ HELP_PARTIALKEY to 261 +Equ HELP_MULTIKEY to 513 +Equ HELP_SETWINPOS to 515 + +* Color equates + +Equ Msg_Light_Grey$ to 212:@VM:208:@VM:200 +Equ Msg_Dark_Grey$ to 127:@VM:127:@VM:127 +Equ Msg_Light_Blue$ to 0:@VM:255:@VM:255 +Equ Msg_Dark_Blue$ to 0:@VM:0:@VM:255 +Equ Msg_Red$ to 255:@VM:0:@VM:0 +Equ Msg_Green$ to 0:@VM:255:@VM:0 +Equ Msg_Purple$ to 255:@VM:0:@VM:255 +Equ Msg_Yellow$ to 255:@VM:255:@VM:0 +Equ Msg_Black$ to 0:@VM:0:@VM:0 +Equ Msg_White$ to 255:@VM:255:@VM:255 + +* RGB colors +EQU USEPARENT$ TO 0 ;* \000000\ +EQU BLACK$ TO 1 ;* \FFFFFF\ +EQU RED$ TO 255 ;* \0000FF\ +EQU ORANGE$ TO 33023 ;* \0080FF\ +EQU GREEN$ TO 65280 ;* \00FF00\ +EQU YELLOW$ TO 65535 ;* \00FFFF\ +EQU GREY$ TO 12632256 ;* \C0C0C0\ +EQU BLUE$ TO 16711680 ;* \FF0000\ +EQU PURPLE$ TO 16711808 ;* \FF0080\ +EQU MAGENTA$ TO 16711935 ;* \FF00FF\ +EQU CYAN$ TO 16776960 ;* \FFFF00\ +EQU WHITE$ TO 16777215 ;* \FFFFFF\ + +// The following color equates are used directly +// Example: Set_Property(CtrlEntID, "BACKCOLOR", COLOR_BTNFACE$) +EQU COLOR_SCROLLBAR$ TO 2147483648 ;* \80000000\ +EQU COLOR_BACKGROUND$ TO 2164260864 ;* \81000000\ +EQU COLOR_ACTIVECAPTION$ TO 2181038080 ;* \82000000\ +EQU COLOR_INACTIVECAPTION$ TO 2197815296 ;* \83000000\ +EQU COLOR_MENU$ TO 2214592512 ;* \84000000\ +EQU COLOR_WINDOW$ TO 2231369728 ;* \85000000\ +EQU COLOR_WINDOWFRAME$ TO 2248146944 ;* \86000000\ +EQU COLOR_MENUTEXT$ TO 2264924160 ;* \87000000\ +EQU COLOR_WINDOWTEXT$ TO 2281701376 ;* \88000000\ +EQU COLOR_CAPTIONTEXT$ TO 2298478592 ;* \89000000\ +EQU COLOR_ACTIVEBORDER$ TO 2315255808 ;* \8A000000\ +EQU COLOR_INACTIVEBORDER$ TO 2332033024 ;* \8B000000\ +EQU COLOR_APPWORKSPACE$ TO 2348810240 ;* \8C000000\ +EQU COLOR_HIGHLIGHT$ TO 2365587456 ;* \8D000000\ +EQU COLOR_HIGHLIGHTTEXT$ TO 2382364672 ;* \8E000000\ +EQU COLOR_BTNFACE$ TO 2399141888 ;* \8F000000\ +EQU COLOR_BTNSHADOW$ TO 2415919104 ;* \90000000\ +EQU COLOR_GRAYTEXT$ TO 2432696320 ;* \91000000\ +EQU COLOR_BTNTEXT$ TO 2449473536 ;* \92000000\ +EQU COLOR_INACTIVECAPTIONTEXT$ TO 2466250752 ;* \93000000\ +EQU COLOR_BTNHIGHLIGHT$ TO 2483027968 ;* \94000000\ + +// The following color equates are used with the GetSysColor WinAPI command +// Example: Set_Property(CtrlEntID, "BACKCOLOR", GetSysColor(API_COLOR_BTNFACE$)) +Equ API_COLOR_SCROLLBAR$ To 0 +Equ API_COLOR_BACKGROUND$ To 1 +Equ API_COLOR_ACTIVECAPTION$ To 2 +Equ API_COLOR_INACTIVECAPTION$ To 3 +Equ API_COLOR_MENU$ To 4 +Equ API_COLOR_WINDOW$ To 5 +Equ API_COLOR_WINDOWFRAME$ To 6 +Equ API_COLOR_MENUTEXT$ To 7 +Equ API_COLOR_WINDOWTEXT$ To 8 +Equ API_COLOR_CAPTIONTEXT$ To 9 +Equ API_COLOR_ACTIVEBORDER$ To 10 +Equ API_COLOR_INACTIVEBORDER$ To 11 +Equ API_COLOR_APPWORKSPACE$ To 12 +Equ API_COLOR_HIGHLIGHT$ To 13 +Equ API_COLOR_HIGHLIGHTTEXT$ To 14 +Equ API_COLOR_BTNFACE$ To 15 +Equ API_COLOR_BTNSHADOW$ To 16 +Equ API_COLOR_GRAYTEXT$ To 17 +Equ API_COLOR_BTNTEXT$ To 18 +Equ API_COLOR_INACTIVECAPTIONTEXT$ To 19 +Equ API_COLOR_BTNHIGHLIGHT$ To 20 + +* Last update - 08/17/2005 + + + diff --git a/LSL2/STPROCINS/SRP_COC_RESULTS_EQU.txt b/LSL2/STPROCINS/SRP_COC_RESULTS_EQU.txt new file mode 100644 index 0000000..d3ab4b6 --- /dev/null +++ b/LSL2/STPROCINS/SRP_COC_RESULTS_EQU.txt @@ -0,0 +1,11 @@ +* Equates for SRP_COC_RESULTS created on 05/12/00 10:11AM + +equ SRP_COC_RESULTS_ENTRY_ID$ to 1 +equ SRP_COC_RESULTS_ENTRY_DATE$ to 2 +equ SRP_COC_RESULTS_CUST_ID$ to 3 +equ SRP_COC_RESULTS_PROD_SPEC_ID$ to 4 +equ SRP_COC_RESULTS_REACTOR$ to 5 +equ SRP_COC_RESULTS_SRP_DATE$ to 6 +equ SRP_COC_RESULTS_THICK$ to 7 +equ SRP_COC_RESULTS_CON$ to 8 +equ SRP_COC_RESULTS_TRANS$ to 9 diff --git a/LSL2/STPROCINS/SRP_EDITOR_TEMP_LOGON32_EQUATES_SYSPROG.txt b/LSL2/STPROCINS/SRP_EDITOR_TEMP_LOGON32_EQUATES_SYSPROG.txt new file mode 100644 index 0000000..3bb7f23 --- /dev/null +++ b/LSL2/STPROCINS/SRP_EDITOR_TEMP_LOGON32_EQUATES_SYSPROG.txt @@ -0,0 +1,57 @@ +Compile insert SRP_EDITOR_TEMP_LOGON32_EQUATES_SYSPROG + +/*********************************************************************************************************************** + + This program is proprietary and is not to be used by or disclosed to others, nor is it to be copied without written + permission from SRP Computer Solutions, Inc. + + Name : Logon32_Equates + + Description : Used with the LogonUser Windows API function. + + Notes : The LogonUser function has been prototyped as SRP_LogonUser. See DLL_ADVAPI32_SRP. + + History : (Date, Initials, Notes) + 01/25/13 dmb Original programmer. - [FRWOI-6] + +***********************************************************************************************************************/ + +// This logon type is intended for users who will be interactively using the computer, such as a user being logged on +// by a terminal server, remote shell, or similar process. +// This logon type has the additional expense of caching logon information for disconnected operations; +// therefore, it is inappropriate for some client/server applications, +// such as a mail server. +Equ LOGON32_LOGON_INTERACTIVE$ to 2 +// This logon type is intended for high performance servers to authenticate plaintext passwords. +// The LogonUser function does not cache credentials for this logon type. +Equ LOGON32_LOGON_NETWORK$ to 3 +// This logon type is intended for batch servers, where processes may be executing on behalf of a user without +// their direct intervention. This type is also for higher performance servers that process many plaintext +// authentication attempts at a time, such as mail or Web servers. +// The LogonUser function does not cache credentials for this logon type. +Equ LOGON32_LOGON_BATCH$ to 4 +// Indicates a service-type logon. The account provided must have the service privilege enabled. +Equ LOGON32_LOGON_SERVICE$ to 5 +// This logon type is for GINA DLLs that log on users who will be interactively using the computer. +// This logon type can generate a unique audit record that shows when the workstation was unlocked. +Equ LOGON32_LOGON_UNLOCK$ to 7 +// This logon type preserves the name and password in the authentication package, which allows the server to make +// connections to other network servers while impersonating the client. A server can accept plaintext credentials +// from a client, call LogonUser, verify that the user can access the system across the network, and still +// communicate with other servers. +// NOTE: Windows NT: This value is not supported. +Equ LOGON32_LOGON_NETWORK_CLEARTEXT$ to 8 +// This logon type allows the caller to clone its current token and specify new credentials for outbound connections. +// The new logon session has the same local identifier but uses different credentials for other network connections. +// NOTE: This logon type is supported only by the LOGON32_PROVIDER_WINNT50 logon provider. +// NOTE: Windows NT: This value is not supported. +Equ LOGON32_LOGON_NEW_CREDENTIALS$ to 9 + +// Use the standard logon provider for the system. +// The default security provider is negotiate, unless you pass NULL for the domain name and the user name +// is not in UPN format. In this case, the default provider is NTLM. +// NOTE: Windows 2000/NT: The default security provider is NTLM. +Equ LOGON32_PROVIDER_DEFAULT$ to 0 +Equ LOGON32_PROVIDER_WINNT35$ to 1 +Equ LOGON32_PROVIDER_WINNT40$ to 2 +Equ LOGON32_PROVIDER_WINNT50$ to 3 diff --git a/LSL2/STPROCINS/SRP_EDITOR_TEMP_MESSAGE_BOX_EQUATES_SYSPROG.txt b/LSL2/STPROCINS/SRP_EDITOR_TEMP_MESSAGE_BOX_EQUATES_SYSPROG.txt new file mode 100644 index 0000000..926ff0e --- /dev/null +++ b/LSL2/STPROCINS/SRP_EDITOR_TEMP_MESSAGE_BOX_EQUATES_SYSPROG.txt @@ -0,0 +1,35 @@ +compile insert SRP_EDITOR_TEMP_MESSAGE_BOX_EQUATES_SYSPROG + +* button arrangement +equ MSG_BTN_OK$ to 0 +equ MSG_BTN_OKCAN$ to 1 +equ MSG_BTN_ABORT$ to 2 +equ MSG_BTN_YESNOCAN$ to 3 +equ MSG_BTN_YESNO$ to 4 +equ MSG_BTN_RETRYCAN$ to 5 + +* default button +equ MSG_DEFAULT1$ to 0 +equ MSG_DEFAULT2$ to 256 +equ MSG_DEFAULT3$ to 512 + +* message icon +equ MSG_ICON_NONE$ to 0 +equ MSG_ICON_STOP$ to 16 +equ MSG_ICON_QUESTION$ to 32 +equ MSG_ICON_EXCLAM$ to 48 +equ MSG_ICON_INFO$ to 64 + +* return values +equ MSG_RET_OK$ to 1 +equ MSG_RET_CAN$ to 2 +equ MSG_RET_ABORT$ to 3 +equ MSG_RET_RETRY$ to 4 +equ MSG_RET_IGNORE$ to 5 +equ MSG_RET_YES$ to 6 +equ MSG_RET_NO$ to 7 + +* new line (carriage return/line feed) +equ MSG_NL$ to \0D0A\ + +* Source Date: 18:30:59 26 APR 1995 Build ID: OINOTES*2.5.45 Level: 2.5 diff --git a/LSL2/STPROCINS/SRP_EVENT_SETUP.txt b/LSL2/STPROCINS/SRP_EVENT_SETUP.txt new file mode 100644 index 0000000..956e63c --- /dev/null +++ b/LSL2/STPROCINS/SRP_EVENT_SETUP.txt @@ -0,0 +1,73 @@ +Compile insert SRP_EVENT_SETUP + +Declare function Get_Property, Set_Property, Get_Current_Event, Get_Window_ID, Get_Record + +// Return values to indicate how the event flow should continue. +Equ EVENT_STOP$ to 0 ; // Event flow should stop +Equ EVENT_CONTINUE$ to 1 ; // Event flow should continue until a later process changes this value +Equ EVENT_CONTINUE_NO_PROMOTED$ to 2 ; // Event flow should by-pass the promoted (generic) logic but allow the system event handler to execute +Equ EVENT_CONTINUE_NO_SYSTEM$ to 3 ; // Event flow should execute the promoted (generic) logic but stop the system event handler from executing + +// Make sure any event parameters which have not been assigned are nulled. +If Assigned(CtrlEntId) else CtrlEntId = "" +If Assigned(Event) else Event = "" +If Assigned(Param1) else Param1 = "" +If Assigned(Param2) else Param2 = "" +If Assigned(Param3) else Param3 = "" +If Assigned(Param4) else Param4 = "" +If Assigned(Param5) else Param5 = "" +If Assigned(Param6) else Param6 = "" +If Assigned(Param7) else Param7 = "" +If Assigned(Param8) else Param8 = "" +If Assigned(Param9) else Param9 = "" +If Assigned(Param10) else Param10 = "" +If Assigned(Param11) else Param11 = "" +If Assigned(Param12) else Param12 = "" +If Assigned(Param13) else Param13 = "" +If Assigned(Param14) else Param14 = "" +If Assigned(Param15) else Param15 = "" + +// Get the design time name of the window in case this is a multi-instance window. +Window = @Window[1, "F*"] + +// Get the name of the control on the window. Get all reasonable parts of the control name. +Control = Field(CtrlEntId, ".", 2, 3) + +// If there is no control then assume the window is the control. +If Control EQ "" then Control = Window + +// Always get the CtrlClassID since we are not passing it through the event parameters. +CtrlClassId = Get_Property(CtrlEntId, "TYPE") + +// If this is an OLE control, get the ProgID. +ProgID = "" +If CtrlClassId EQ "OLECONTROL" then ProgID = Get_Property(CtrlEntId, "ORIG_TEXT") + +// Get the Event Type so generic event functionality can be executed properly. +EventType = Get_Current_Event() + +// Combine the event type and control into an event action +If EventType EQ "OLE" then + // Because the Promoted_Events function transfers parameters, this will only appear correctly in a commuter module. + EventAction = Event:".":Control +end else + EventAction = EventType:".":Control +end + +// Get the current window's key ID. Strip off the @SVM if this window is ignoring self-locks. +KeyID = Get_Property(@Window, "ID")[1, "F":@SVM] + +// If KeyID is null then check to see if the key controls are populated. If so, then this is +// probably a locked record. ID properties are null with locked records. +* If KeyID EQ "" then +* KeyID = Get_Window_ID(@Window) +* end + +// Get the current window's record. +Record = Get_Property(@Window, "RECORD") + +// If the window uses QuickEvents to call the commuter module, check for @EVENT in the +// event parameter. This is here for backwards compatability. OpenInsight 7.1 and higher +// automatically swaps @EVENT with the actual event. Prior versions of OpenInsight will +// just pass the literal through. Therefore, this will swap out @EVENT with the actual event. +If Event EQ "@EVENT" then Swap "@EVENT" with EventType in Event diff --git a/LSL2/STPROCINS/SRP_IO_EQUATES.txt b/LSL2/STPROCINS/SRP_IO_EQUATES.txt new file mode 100644 index 0000000..4f670b1 --- /dev/null +++ b/LSL2/STPROCINS/SRP_IO_EQUATES.txt @@ -0,0 +1,53 @@ +Compile insert SRP_IO_Equates +#pragma precomp SRP_PreCompiler + +/*********************************************************************************************************************** + + This program is proprietary and is not to be used by or disclosed to others, nor is it to be copied without written + permission from SRP Computer Solutions, Inc. + + Name : SRP_IO_Equates + + Description : Common declarations and equates used by SRP_IO library. + + Notes : For more information visit: https://docs.microsoft.com/en-us/windows/win32/api/fileapi/ + For a list of Windows error messages visit: + https://docs.microsoft.com/en-us/windows/win32/debug/system-error-codes--0-499- + + History : (Date, Initials, Notes) + 09/04/20 djs Original programmer. + +***********************************************************************************************************************/ + +// File access constants +Equ GENERIC_READ$ to 2147483648 +Equ GENERIC_WRITE$ to 1073741824 +Equ GENERIC_EXECUTE$ to 536870912 +Equ GENERIC_ALL$ to 268435456 + +// File sharing constants +Equ FILE_SHARE_NONE$ to 0 +Equ FILE_SHARE_DELETE$ to 4 +Equ FILE_SHARE_READ$ to 1 +Equ FILE_SHARE_WRITE$ to 2 + +// File open/creation constants +Equ CREATE_ALWAYS$ to 2 +Equ CREATE_NEW$ to 1 +Equ OPEN_ALWAYS$ to 4 +Equ OPEN_EXISTING$ to 3 +Equ TRUNCATE_EXISTING$ to 5 + +// File attribute constants +Equ FILE_ATTRIBUTE_ARCHIVE$ to 32 +Equ FILE_ATTRIBUTE_ENCRYPTED$ to 16384 +Equ FILE_ATTRIBUTE_HIDDEN$ to 2 +Equ FILE_ATTRIBUTE_NORMAL$ to 128 +Equ FILE_ATTRIBUTE_OFFLINE$ to 4096 +Equ FILE_ATTRIBUTE_READONLY$ to 1 +Equ FILE_ATTRIBUTE_SYSTEM$ to 4 +Equ FILE_ATTRIBUTE_TEMPORARY$ to 256 + +// File IO error constants +Equ FILE_ERROR$ to 4294967295 + diff --git a/LSL2/STPROCINS/SRP_LSL2_INSERTS.txt b/LSL2/STPROCINS/SRP_LSL2_INSERTS.txt new file mode 100644 index 0000000..3446089 --- /dev/null +++ b/LSL2/STPROCINS/SRP_LSL2_INSERTS.txt @@ -0,0 +1,3 @@ +Compile insert SRP_LSL2_INSERTS + +Equ SRP$ to @STATION EQ "MESIRWAP001" diff --git a/LSL2/STPROCINS/SRP_OBJ_INSERTS.txt b/LSL2/STPROCINS/SRP_OBJ_INSERTS.txt new file mode 100644 index 0000000..680fcb0 --- /dev/null +++ b/LSL2/STPROCINS/SRP_OBJ_INSERTS.txt @@ -0,0 +1,24 @@ +Compile insert SRP_OBJ_INSERTS + +If Assigned(Method) else Method = "" +If Assigned(Params) else Params = "" + +Param1 = Params[1, @RM] +Param2 = Params[Col2()+1, @RM] +Param3 = Params[Col2()+1, @RM] +Param4 = Params[Col2()+1, @RM] +Param5 = Params[Col2()+1, @RM] +Param6 = Params[Col2()+1, @RM] +Param7 = Params[Col2()+1, @RM] +Param8 = Params[Col2()+1, @RM] +Param9 = Params[Col2()+1, @RM] + +If Assigned(Param1) else Param1 = "" +If Assigned(Param2) else Param2 = "" +If Assigned(Param3) else Param3 = "" +If Assigned(Param4) else Param4 = "" +If Assigned(Param5) else Param5 = "" +If Assigned(Param6) else Param6 = "" +If Assigned(Param7) else Param7 = "" +If Assigned(Param8) else Param8 = "" +If Assigned(Param9) else Param9 = "" diff --git a/LSL2/STPROCINS/SRP_POPUP_EQUATES.txt b/LSL2/STPROCINS/SRP_POPUP_EQUATES.txt new file mode 100644 index 0000000..204d682 --- /dev/null +++ b/LSL2/STPROCINS/SRP_POPUP_EQUATES.txt @@ -0,0 +1,9 @@ +Compile Insert SRP_POPUP_EQUATES + +Equ SRP_POPUP.RECTANGLE To 1 +Equ SRP_POPUP.CAPTION To 2 +Equ SRP_POPUP.COLORS To 3 +Equ SRP_POPUP.FONT To 4 +Equ SRP_POPUP.ALIGNMENT To 5 +Equ SRP_POPUP.HYPERLINK To 6 +Equ SRP_POPUP.BUTTON To 7 diff --git a/LSL2/STPROCINS/STAGE_EQUATES.txt b/LSL2/STPROCINS/STAGE_EQUATES.txt new file mode 100644 index 0000000..aae888f --- /dev/null +++ b/LSL2/STPROCINS/STAGE_EQUATES.txt @@ -0,0 +1,10 @@ +compile insert STAGE_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 05/10/2021 + Description : Insert for Table STAGE +----------------------------------------*/ + + +Equ STAGE.STAGE_ID$ To 0 +Equ STAGE.DESC$ To 1 diff --git a/LSL2/STPROCINS/STAT.txt b/LSL2/STPROCINS/STAT.txt new file mode 100644 index 0000000..febdb8d --- /dev/null +++ b/LSL2/STPROCINS/STAT.txt @@ -0,0 +1,9 @@ +compile insert STAT +* top of loop +NumKeys = @reccount +Cnt = 0 +* after iteration +Cnt += 1 +Percent = oconv( iconv(Cnt/NumKeys, 'MD2'), 'MD0' ):'%' +Void = send_info( Percent:' Complete importing filename...' ) + diff --git a/LSL2/STPROCINS/SUB_PART_EQUATES.txt b/LSL2/STPROCINS/SUB_PART_EQUATES.txt new file mode 100644 index 0000000..887e7ce --- /dev/null +++ b/LSL2/STPROCINS/SUB_PART_EQUATES.txt @@ -0,0 +1,12 @@ +compile insert SUB_PART_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 01/03/2011 + Description : Insert for Table SUB_PART +----------------------------------------*/ + + +Equ SUB_PART_SUB_PART_NO$ To 0 +Equ SUB_PART_DESC$ To 1 +Equ SUB_PART_SUPP_QUAL$ To 2 +Equ SUB_PART_PART_NO$ To 5 diff --git a/LSL2/STPROCINS/SUB_SPEC_EQUATES.txt b/LSL2/STPROCINS/SUB_SPEC_EQUATES.txt new file mode 100644 index 0000000..1c477eb --- /dev/null +++ b/LSL2/STPROCINS/SUB_SPEC_EQUATES.txt @@ -0,0 +1,10 @@ +compile insert SUB_SPEC_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 01/03/2011 + Description : Insert for Table SUB_SPEC +----------------------------------------*/ + + +Equ SUB_SPEC_SUB_SPEC_NO$ To 0 +Equ SUB_SPEC_SUB_PART_NO$ To 1 diff --git a/LSL2/STPROCINS/SUPPL_INFO_ARRAY_EQU.txt b/LSL2/STPROCINS/SUPPL_INFO_ARRAY_EQU.txt new file mode 100644 index 0000000..d000226 --- /dev/null +++ b/LSL2/STPROCINS/SUPPL_INFO_ARRAY_EQU.txt @@ -0,0 +1,12 @@ +compile insert SUPPL_INFO_ARRAY_EQU +* THESE ARE THE EQUATED POSITIONS FOR THE SUPPL_INFO EDITTABLE IN +* ALL RDS WINDOWS RDS_PRE_EPI, RDS, RDS_UNLOAD, RDS_POST_EPI + +equ SupEntryID$ to 1 +equ SupEntryDate$ to 2 +equ SupEntryTime$ to 3 +equ SupOpSig$ to 4 +equ SupOpSigDate$ to 5 +equ SupOpSigTime$ to 6 +equ SupFlag$ to 7 + diff --git a/LSL2/STPROCINS/SURFACE_SCAN_EQUATES.txt b/LSL2/STPROCINS/SURFACE_SCAN_EQUATES.txt new file mode 100644 index 0000000..f6cb894 --- /dev/null +++ b/LSL2/STPROCINS/SURFACE_SCAN_EQUATES.txt @@ -0,0 +1,64 @@ +compile insert SURFACE_SCAN_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 16/01/2008 + Description : Insert for Table SURFACE_SCAN +----------------------------------------*/ + + +Equ SURFACE_SCAN_CASS_NO$ To 0 +Equ SURFACE_SCAN_STAGE$ To 0 +Equ SURFACE_SCAN_WO_NO$ To 0 +Equ SURFACE_SCAN_WO_STEP$ To 0 +Equ SURFACE_SCAN_RDS_NO$ To 1 +Equ SURFACE_SCAN_SCAN_DTM$ To 2 +Equ SURFACE_SCAN_LOT_ID$ To 3 +Equ SURFACE_SCAN_ID_NO$ To 4 +Equ SURFACE_SCAN_LPD_CNT$ To 5 +Equ SURFACE_SCAN_LPD_AREA$ To 6 +Equ SURFACE_SCAN_AREA_CNT$ To 7 +Equ SURFACE_SCAN_AREA_TOT$ To 8 +Equ SURFACE_SCAN_SCRATCH_CNT$ To 9 +Equ SURFACE_SCAN_SCRATCH_TOT$ To 10 +Equ SURFACE_SCAN_SUM_OF_DEFECTS$ To 11 +Equ SURFACE_SCAN_HAZE_RGN$ To 12 +Equ SURFACE_SCAN_HAZE_AVG$ To 13 +Equ SURFACE_SCAN_SRT$ To 14 +Equ SURFACE_SCAN_LPD_CNT_MIN$ To 15 +Equ SURFACE_SCAN_LPD_CNT_MAX$ To 16 +Equ SURFACE_SCAN_LPD_CNT_AVG$ To 17 +Equ SURFACE_SCAN_LPD_CNT_STDV$ To 18 +Equ SURFACE_SCAN_LPD_AREA_MIN$ To 19 +Equ SURFACE_SCAN_LPD_AREA_MAX$ To 20 +Equ SURFACE_SCAN_LPD_AREA_AVG$ To 21 +Equ SURFACE_SCAN_LPD_AREA_STDV$ To 22 +Equ SURFACE_SCAN_AREA_CNT_MIN$ To 23 +Equ SURFACE_SCAN_AREA_CNT_MAX$ To 24 +Equ SURFACE_SCAN_AREA_CNT_AVG$ To 25 +Equ SURFACE_SCAN_AREA_CNT_STDV$ To 26 +Equ SURFACE_SCAN_AREA_TOT_MIN$ To 27 +Equ SURFACE_SCAN_AREA_TOT_MAX$ To 28 +Equ SURFACE_SCAN_AREA_TOT_AVG$ To 29 +Equ SURFACE_SCAN_AREA_TOT_STDV$ To 30 +Equ SURFACE_SCAN_SCRATCH_CNT_MIN$ To 31 +Equ SURFACE_SCAN_SCRATCH_CNT_MAX$ To 32 +Equ SURFACE_SCAN_SCRATCH_CNT_AVG$ To 33 +Equ SURFACE_SCAN_SCRATCH_CNT_STDV$ To 34 +Equ SURFACE_SCAN_SCRATCH_TOT_MIN$ To 35 +Equ SURFACE_SCAN_SCRATCH_TOT_MAX$ To 36 +Equ SURFACE_SCAN_SCRATCH_TOT_AVG$ To 37 +Equ SURFACE_SCAN_SCRATCH_TOT_STDV$ To 38 +Equ SURFACE_SCAN_SUM_OF_DEF_MIN$ To 39 +Equ SURFACE_SCAN_SUM_OF_DEF_MAX$ To 40 +Equ SURFACE_SCAN_SUM_OF_DEF_AVG$ To 41 +Equ SURFACE_SCAN_SUM_OF_DEF_STDV$ To 42 +Equ SURFACE_SCAN_HAZE_RGN_MIN$ To 43 +Equ SURFACE_SCAN_HAZE_RGN_MAX$ To 44 +Equ SURFACE_SCAN_HAZE_RGN_AVG$ To 45 +Equ SURFACE_SCAN_HAZE_RGN_STDV$ To 46 +Equ SURFACE_SCAN_HAZE_AVG_MIN$ To 47 +Equ SURFACE_SCAN_HAZE_AVG_MAX$ To 48 +Equ SURFACE_SCAN_HAZE_AVG_AVG$ To 49 +Equ SURFACE_SCAN_HAZE_AVG_STDV$ To 50 +Equ SURFACE_SCAN_SCAN_TOOL$ To 51 +Equ SURFACE_SCAN_SCAN_USER$ To 52 diff --git a/LSL2/STPROCINS/SURF_SCAN.txt b/LSL2/STPROCINS/SURF_SCAN.txt new file mode 100644 index 0000000..e4e3d66 --- /dev/null +++ b/LSL2/STPROCINS/SURF_SCAN.txt @@ -0,0 +1,59 @@ +COMPILE Insert SURF_SCAN + +* Equates for SURF_SCAN table + +EQU SS_SCAN_DTM TO 1 +EQU SS_RECIPE$ TO 2 +EQU SS_LOT_ID$ TO 3 +EQU SS_ID_NO$ TO 4 +EQU SS_LPD_CNT$ TO 5 +EQU SS_LPD_AREA$ TO 6 +EQU SS_AREA_CNT$ TO 7 +EQU SS_AREA_TOT$ TO 8 +EQU SS_SCRATCH_CNT$ TO 9 +EQU SS_SCRATCH_TOT$ TO 10 +EQU SS_SUM_OF_DEFECTS$ TO 11 +EQU SS_HAZE_RGN$ TO 12 +EQU SS_HAZE_AVG$ TO 13 +EQU SS_SRT$ TO 14 +EQU SS_LPD_CNT_MIN$ TO 15 +EQU SS_LPD_CNT_MAX$ TO 16 +EQU SS_LPD_CNT_AVG$ TO 17 +EQU SS_LPD_CNT_STDV$ TO 18 +EQU SS_LPD_AREA_MIN$ TO 19 +EQU SS_LPD_AREA_MAX$ TO 20 +EQU SS_LPD_AREA_AVG$ TO 21 +EQU SS_LPD_AREA_STDV$ TO 22 +EQU SS_AREA_CNT_MIN$ TO 23 +EQU SS_AREA_CNT_MAX$ TO 24 +EQU SS_AREA_CNT_AVG$ TO 25 +EQU SS_AREA_CNT_STDV$ TO 26 +EQU SS_AREA_TOT_MIN$ TO 27 +EQU SS_AREA_TOT_MAX$ TO 28 +EQU SS_AREA_TOT_AVG$ TO 29 +EQU SS_AREA_TOT_STDV$ TO 30 +EQU SS_SCRATCH_CNT_MIN$ TO 31 +EQU SS_SCRATCH_CNT_MAX$ TO 32 +EQU SS_SCRATCH_CNT_AVG$ TO 33 +EQU SS_SCRATCH_CNT_STDV$ TO 34 +EQU SS_SCRATCH_TOT_MIN$ TO 35 +EQU SS_SCRATCH_TOT_MAX$ TO 36 +EQU SS_SCRATCH_TOT_AVG$ TO 37 +EQU SS_SCRATCH_TOT_STDV$ TO 38 +EQU SS_SUM_OF_DEF_MIN$ TO 39 +EQU SS_SUM_OF_DEF_MAX$ TO 40 +EQU SS_SUM_OF_DEF_AVG$ TO 41 +EQU SS_SUM_OF_DEF_STDV$ TO 42 +EQU SS_HAZE_RGN_MIN$ TO 43 +EQU SS_HAZE_RGN_MAX$ TO 44 +EQU SS_HAZE_RGN_AVG$ TO 45 +EQU SS_HAZE_RGN_STDV$ TO 46 +EQU SS_HAZE_AVG_MIN$ TO 47 +EQU SS_HAZE_AVG_MAX$ TO 48 +EQU SS_HAZE_AVG_AVG$ TO 49 +EQU SS_HAZE_AVG_STDV$ TO 50 +EQU SS_SCAN_TOOL$ TO 51 +EQU SS_SCAN_USER$ TO 52 + + + diff --git a/LSL2/STPROCINS/SURF_SCAN_EQUATES.txt b/LSL2/STPROCINS/SURF_SCAN_EQUATES.txt new file mode 100644 index 0000000..e7b7c8b --- /dev/null +++ b/LSL2/STPROCINS/SURF_SCAN_EQUATES.txt @@ -0,0 +1,61 @@ +compile insert SURF_SCAN_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 15/11/2007 + Description : Insert for Table SURF_SCAN +----------------------------------------*/ + + +Equ SURF_SCAN_RDS_NO$ To 0 +Equ SURF_SCAN_STAGE$ To 0 +Equ SURF_SCAN_SCAN_DTM$ To 1 +Equ SURF_SCAN_LOT_ID$ To 3 +Equ SURF_SCAN_ID_NO$ To 4 +Equ SURF_SCAN_LPD_CNT$ To 5 +Equ SURF_SCAN_LPD_AREA$ To 6 +Equ SURF_SCAN_AREA_CNT$ To 7 +Equ SURF_SCAN_AREA_TOT$ To 8 +Equ SURF_SCAN_SCRATCH_CNT$ To 9 +Equ SURF_SCAN_SCRATCH_TOT$ To 10 +Equ SURF_SCAN_SUM_OF_DEFECTS$ To 11 +Equ SURF_SCAN_HAZE_RGN$ To 12 +Equ SURF_SCAN_HAZE_AVG$ To 13 +Equ SURF_SCAN_SRT$ To 14 +Equ SURF_SCAN_LPD_CNT_MIN$ To 15 +Equ SURF_SCAN_LPD_CNT_MAX$ To 16 +Equ SURF_SCAN_LPD_CNT_AVG$ To 17 +Equ SURF_SCAN_LPD_CNT_STDV$ To 18 +Equ SURF_SCAN_LPD_AREA_MIN$ To 19 +Equ SURF_SCAN_LPD_AREA_MAX$ To 20 +Equ SURF_SCAN_LPD_AREA_AVG$ To 21 +Equ SURF_SCAN_LPD_AREA_STDV$ To 22 +Equ SURF_SCAN_AREA_CNT_MIN$ To 23 +Equ SURF_SCAN_AREA_CNT_MAX$ To 24 +Equ SURF_SCAN_AREA_CNT_AVG$ To 25 +Equ SURF_SCAN_AREA_CNT_STDV$ To 26 +Equ SURF_SCAN_AREA_TOT_MIN$ To 27 +Equ SURF_SCAN_AREA_TOT_MAX$ To 28 +Equ SURF_SCAN_AREA_TOT_AVG$ To 29 +Equ SURF_SCAN_AREA_TOT_STDV$ To 30 +Equ SURF_SCAN_SCRATCH_CNT_MIN$ To 31 +Equ SURF_SCAN_SCRATCH_CNT_MAX$ To 32 +Equ SURF_SCAN_SCRATCH_CNT_AVG$ To 33 +Equ SURF_SCAN_SCRATCH_CNT_STDV$ To 34 +Equ SURF_SCAN_SCRATCH_TOT_MIN$ To 35 +Equ SURF_SCAN_SCRATCH_TOT_MAX$ To 36 +Equ SURF_SCAN_SCRATCH_TOT_AVG$ To 37 +Equ SURF_SCAN_SCRATCH_TOT_STDV$ To 38 +Equ SURF_SCAN_SUM_OF_DEF_MIN$ To 39 +Equ SURF_SCAN_SUM_OF_DEF_MAX$ To 40 +Equ SURF_SCAN_SUM_OF_DEF_AVG$ To 41 +Equ SURF_SCAN_SUM_OF_DEF_STDV$ To 42 +Equ SURF_SCAN_HAZE_RGN_MIN$ To 43 +Equ SURF_SCAN_HAZE_RGN_MAX$ To 44 +Equ SURF_SCAN_HAZE_RGN_AVG$ To 45 +Equ SURF_SCAN_HAZE_RGN_STDV$ To 46 +Equ SURF_SCAN_HAZE_AVG_MIN$ To 47 +Equ SURF_SCAN_HAZE_AVG_MAX$ To 48 +Equ SURF_SCAN_HAZE_AVG_AVG$ To 49 +Equ SURF_SCAN_HAZE_AVG_STDV$ To 50 +Equ SURF_SCAN_SCAN_TOOL$ To 51 +Equ SURF_SCAN_SCAN_USER$ To 52 diff --git a/LSL2/STPROCINS/TEST_POINT_MAP_EQUATES.txt b/LSL2/STPROCINS/TEST_POINT_MAP_EQUATES.txt new file mode 100644 index 0000000..d2636cf --- /dev/null +++ b/LSL2/STPROCINS/TEST_POINT_MAP_EQUATES.txt @@ -0,0 +1,11 @@ +compile insert TEST_POINT_MAP_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 17/05/2006 + Description : Insert for Table TEST_POINT_MAP +----------------------------------------*/ + +Equ TEST_POINT_MAP_TP_ID$ To 0 +Equ TEST_POINT_MAP_TP_DESC$ To 1 +Equ TEST_POINT_MAP_POINT_ID$ To 2 +Equ TEST_POINT_MAP_RESULT_NO$ To 3 diff --git a/LSL2/STPROCINS/TEST_RUN_EQUATES.txt b/LSL2/STPROCINS/TEST_RUN_EQUATES.txt new file mode 100644 index 0000000..7a2a57a --- /dev/null +++ b/LSL2/STPROCINS/TEST_RUN_EQUATES.txt @@ -0,0 +1,18 @@ +compile insert TEST_RUN_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 01/12/2023 + Description : Insert for Table TEST_RUN +----------------------------------------*/ + + +Equ TEST_RUN_TEST_RUN_ID$ To 0 +Equ TEST_RUN_RUN_DTM$ To 1 +Equ TEST_RUN_RUN_TYPE_ID$ To 2 +Equ TEST_RUN_EQUIPMENT_ID$ To 3 +Equ TEST_RUN_EQUIPMENT_TYPE$ To 4 +Equ TEST_RUN_PROD_SPEC_ID$ To 5 +Equ TEST_RUN_LSL_USER_ID$ To 6 +Equ TEST_RUN_RDS_ID$ To 7 +Equ TEST_RUN_TEST_RUN_WAFER_IDS$ To 8 + diff --git a/LSL2/STPROCINS/TEST_RUN_OBJ_EQUATES.txt b/LSL2/STPROCINS/TEST_RUN_OBJ_EQUATES.txt new file mode 100644 index 0000000..8f65873 --- /dev/null +++ b/LSL2/STPROCINS/TEST_RUN_OBJ_EQUATES.txt @@ -0,0 +1,18 @@ +compile insert TEST_RUN_OBJ_EQUATES +/*---------------------------------------- + Author : Object Return Insert Routine + Written : 01/12/2023 - JRO + Description : Insert for Table TEST_RUN +----------------------------------------*/ + +Equ TEST_RUN_OBJ_TEST_RUN_ID$ To 1 +Equ TEST_RUN_OBJ_RUN_DTM$ To 2 +Equ TEST_RUN_OBJ_RUN_TYPE$ To 3 +Equ TEST_RUN_OBJ_EQUIPMENT_ID$ To 4 +Equ TEST_RUN_OBJ_EQUIPMENT_TYPE$ To 5 +Equ TEST_RUN_OBJ_PROD_SPEC_ID$ To 6 +Equ TEST_RUN_OBJ_LSL_USER_ID$ To 7 +Equ TEST_RUN_OBJ_RDS_ID$ To 8 +Equ TEST_RUN_OBJ_TEST_RUN_WAFER_PRODS$ To 9 +Equ TEST_RUN_OBJ_TEST_RUN_WAFER_PRODS_QTYS$ To 10 + diff --git a/LSL2/STPROCINS/TEST_RUN_TYPE_EQUATES.txt b/LSL2/STPROCINS/TEST_RUN_TYPE_EQUATES.txt new file mode 100644 index 0000000..855ea47 --- /dev/null +++ b/LSL2/STPROCINS/TEST_RUN_TYPE_EQUATES.txt @@ -0,0 +1,11 @@ +compile insert TEST_RUN_TYPE_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 17/11/2023 + Description : Insert for Table TEST_RUN_TYPE +----------------------------------------*/ + + +Equ TEST_RUN_TYPE_RUN_TYPE_ID$ To 0 +Equ TEST_RUN_TYPE_RUN_TYPE$ To 1 + diff --git a/LSL2/STPROCINS/TEST_RUN_WAFER_EQUATES.txt b/LSL2/STPROCINS/TEST_RUN_WAFER_EQUATES.txt new file mode 100644 index 0000000..762e1ae --- /dev/null +++ b/LSL2/STPROCINS/TEST_RUN_WAFER_EQUATES.txt @@ -0,0 +1,15 @@ +compile insert TEST_RUN_WAFER_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 01/12/2023 + Description : Insert for Table TEST_RUN_WAFER +----------------------------------------*/ + + +Equ TEST_RUN_WAFER_TEST_RUN_WAFER_ID$ To 0 +Equ TEST_RUN_WAFER_TEST_RUN_ID$ To 1 +Equ TEST_RUN_WAFER_TEST_WAFER_PROD_ID$ To 2 +Equ TEST_RUN_WAFER_TEST_USAGE_TYPE_ID$ To 3 +Equ TEST_RUN_WAFER_SOURCE_LOT_ID$ To 4 +Equ TEST_RUN_WAFER_DESTINATION_LOT_ID$ To 5 + diff --git a/LSL2/STPROCINS/TEST_WAFER_EQUATES.txt b/LSL2/STPROCINS/TEST_WAFER_EQUATES.txt new file mode 100644 index 0000000..e40da92 --- /dev/null +++ b/LSL2/STPROCINS/TEST_WAFER_EQUATES.txt @@ -0,0 +1,23 @@ +compile insert TEST_WAFER_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 07/07/2016 + Description : Insert for Table TEST_WAFER +----------------------------------------*/ + + +Equ TEST_WAFER_TW_NO$ To 0 +Equ TEST_WAFER_TW_QTY$ To 1 +Equ TEST_WAFER_TW_USE_CODE$ To 2 +Equ TEST_WAFER_DESC$ To 3 +Equ TEST_WAFER_TOOL$ To 4 +Equ TEST_WAFER_TW_TYPE$ To 5 +Equ TEST_WAFER_SIGNATURE$ To 6 +Equ TEST_WAFER_SIG_DTM$ To 7 +Equ TEST_WAFER_HRS_SINCE_PROD$ To 8 +Equ TEST_WAFER_HRS_ESC$ To 9 +Equ TEST_WAFER_CUST_TW_PART_NO$ To 10 +Equ TEST_WAFER_SLOT_ID$ To 11 +Equ TEST_WAFER_WFR_ID$ To 12 +Equ TEST_WAFER_RDS_NO$ To 13 +Equ TEST_WAFER_MET_NO$ To 14 diff --git a/LSL2/STPROCINS/TEST_WAFER_PROD_EQUATES.txt b/LSL2/STPROCINS/TEST_WAFER_PROD_EQUATES.txt new file mode 100644 index 0000000..f4c9c43 --- /dev/null +++ b/LSL2/STPROCINS/TEST_WAFER_PROD_EQUATES.txt @@ -0,0 +1,15 @@ +compile insert TEST_WAFER_PROD_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 17/11/2023 + Description : Insert for Table TEST_WAFER_PROD +----------------------------------------*/ + + +Equ TEST_WAFER_PROD_TEST_WAFER_PROD_ID$ To 0 +Equ TEST_WAFER_PROD_PART_NAME$ To 1 +Equ TEST_WAFER_PROD_WAFER_DISPO_IDS$ To 2 +Equ TEST_WAFER_PROD_USAGE$ To 3 +Equ TEST_WAFER_PROD_SORT_ORDER$ To 4 + + diff --git a/LSL2/STPROCINS/TEST_WAFER_TYPES_DISPO_OPTIONS_EQUATES.txt b/LSL2/STPROCINS/TEST_WAFER_TYPES_DISPO_OPTIONS_EQUATES.txt new file mode 100644 index 0000000..f7fcf0e --- /dev/null +++ b/LSL2/STPROCINS/TEST_WAFER_TYPES_DISPO_OPTIONS_EQUATES.txt @@ -0,0 +1,12 @@ +compile insert TEST_WAFER_TYPES_DISPO_OPTIONS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 17/11/2023 + Description : Insert for Table TEST_WAFER_TYPES_DISPO_OPTIONS +----------------------------------------*/ + + +Equ TEST_WAFER_TYPES_DISPO_OPTIONS_DISPO_OPTION_ID$ To 0 +Equ TEST_WAFER_TYPES_DISPO_OPTIONS_TEST_WAFER_PROD_ID$ To 1 +Equ TEST_WAFER_TYPES_DISPO_OPTIONS_DISPO_DESCRIPTION$ To 2 + diff --git a/LSL2/STPROCINS/TOOL_CLASS_EQUATES.txt b/LSL2/STPROCINS/TOOL_CLASS_EQUATES.txt new file mode 100644 index 0000000..1d8970d --- /dev/null +++ b/LSL2/STPROCINS/TOOL_CLASS_EQUATES.txt @@ -0,0 +1,23 @@ +compile insert TOOL_CLASS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 22/07/2016 + Description : Insert for Table TOOL_CLASS +----------------------------------------*/ + + +Equ TOOL_CLASS_CLASS_CD$ To 0 +Equ TOOL_CLASS_PROP_CD$ To 1 +Equ TOOL_CLASS_RECIPES$ To 2 +Equ TOOL_CLASS_TOOL_TYPE$ To 3 +Equ TOOL_CLASS_PATTERN$ To 4 +Equ TOOL_CLASS_STAGE_KEY$ To 5 +Equ TOOL_CLASS_TOOL$ To 6 +Equ TOOL_CLASS_QIN_WH$ To 7 +Equ TOOL_CLASS_QIN_LOC$ To 8 +Equ TOOL_CLASS_QOUT_WH$ To 9 +Equ TOOL_CLASS_QOUT_LOC$ To 10 +Equ TOOL_CLASS_CLASS_PROC$ To 11 +Equ TOOL_CLASS_CLASS_DESC$ To 12 +Equ TOOL_CLASS_DEST_TEST$ To 13 +Equ TOOL_CLASS_PATTERN_SIZE$ To 14 diff --git a/LSL2/STPROCINS/TOOL_EQUATES.txt b/LSL2/STPROCINS/TOOL_EQUATES.txt new file mode 100644 index 0000000..0717428 --- /dev/null +++ b/LSL2/STPROCINS/TOOL_EQUATES.txt @@ -0,0 +1,33 @@ +compile insert TOOL_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 25/10/2016 + Description : Insert for Table TOOL +----------------------------------------*/ + + +Equ TOOL_TOOL_ID$ To 0 +Equ TOOL_TOOL_DESC$ To 1 +Equ TOOL_TOOL_TYPE$ To 2 +Equ TOOL_ACTIVE_ESCALATION$ To 3 +Equ TOOL_CURR_MODE_KEY$ To 4 +Equ TOOL_VENDOR$ To 5 +Equ TOOL_LOCATIONX$ To 6 +Equ TOOL_OUT_OF_SERVICE$ To 7 +Equ TOOL_CLASS$ To 8 +Equ TOOL_TOOL_WH$ To 9 +Equ TOOL_TOOL_LOC$ To 10 +Equ TOOL_REACTOR$ To 11 +Equ TOOL_BATCH$ To 12 +Equ TOOL_RECIPE$ To 13 +Equ TOOL_RECIPE_PATTERN$ To 14 +Equ TOOL_QIN_WH$ To 15 +Equ TOOL_QIN_LOC$ To 16 +Equ TOOL_QOUT_WH$ To 17 +Equ TOOL_QOUT_LOC$ To 18 +Equ TOOL_TOOL_PROC$ To 19 +Equ TOOL_CYCLE_CNT$ To 20 +Equ TOOL_ABBREVIATION$ To 21 +Equ TOOL_SHOW_ON_WIP$ To 22 +Equ TOOL_IQS_ID$ To 23 +Equ TOOL_PM_STATUS$ To 24 diff --git a/LSL2/STPROCINS/TOOL_ESC_EQUATES.txt b/LSL2/STPROCINS/TOOL_ESC_EQUATES.txt new file mode 100644 index 0000000..3ed5292 --- /dev/null +++ b/LSL2/STPROCINS/TOOL_ESC_EQUATES.txt @@ -0,0 +1,15 @@ +compile insert TOOL_ESC_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 17/10/2007 + Description : Insert for Table TOOL_ESC +----------------------------------------*/ + + +Equ TOOL_ESC_START_DTM$ To 0 +Equ TOOL_ESC_TOOL_ID$ To 0 +Equ TOOL_ESC_START_USER$ To 1 +Equ TOOL_ESC_START_REASON$ To 2 +Equ TOOL_ESC_STOP_DTM$ To 3 +Equ TOOL_ESC_STOP_USER$ To 4 +Equ TOOL_ESC_STOP_REASON$ To 5 diff --git a/LSL2/STPROCINS/TOOL_ETCH_EQUATES.txt b/LSL2/STPROCINS/TOOL_ETCH_EQUATES.txt new file mode 100644 index 0000000..cbd74e2 --- /dev/null +++ b/LSL2/STPROCINS/TOOL_ETCH_EQUATES.txt @@ -0,0 +1,10 @@ +compile insert TOOL_ETCH_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 17/11/2020 + Description : Insert for Table TOOL_ETCH +----------------------------------------*/ + + +Equ TOOL_ETCH.TOOL_ID$ To 0 +Equ TOOL_ETCH.ETCH_ID$ To 1 diff --git a/LSL2/STPROCINS/TOOL_LOG_EQUATES.txt b/LSL2/STPROCINS/TOOL_LOG_EQUATES.txt new file mode 100644 index 0000000..5574822 --- /dev/null +++ b/LSL2/STPROCINS/TOOL_LOG_EQUATES.txt @@ -0,0 +1,15 @@ +compile insert TOOL_LOG_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 01/06/2012 + Description : Insert for Table TOOL_LOG +----------------------------------------*/ + + +Equ TOOL_LOG_START_DTM$ To 0 +Equ TOOL_LOG_TOOL_ID$ To 0 +Equ TOOL_LOG_START_USER$ To 1 +Equ TOOL_LOG_START_REASON$ To 2 +Equ TOOL_LOG_TOOL_MODE$ To 3 +Equ TOOL_LOG_STOP_DTM$ To 4 +Equ TOOL_LOG_STOP_USER$ To 5 diff --git a/LSL2/STPROCINS/TOOL_PARMS_EQUATES.txt b/LSL2/STPROCINS/TOOL_PARMS_EQUATES.txt new file mode 100644 index 0000000..6870c2c --- /dev/null +++ b/LSL2/STPROCINS/TOOL_PARMS_EQUATES.txt @@ -0,0 +1,33 @@ +compile insert TOOL_PARMS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 08/31/2018 + Description : Insert for Table TOOL_PARMS +----------------------------------------*/ + +Equ TOOL_PARMS.PSN$ To 0 +Equ TOOL_PARMS.REACTOR$ To 0 +Equ TOOL_PARMS.DATETIME$ To 0 +Equ TOOL_PARMS.LS_ID$ To 1 +Equ TOOL_PARMS.DOPANT$ To 2 +Equ TOOL_PARMS.EPI_DILUENT$ To 3 +Equ TOOL_PARMS.EPI_TIME$ To 4 +Equ TOOL_PARMS.DILUENT_ADJ_PARAM$ To 5 +Equ TOOL_PARMS.DOPANT_FLOW$ To 6 +Equ TOOL_PARMS.HCL_FLOW$ To 7 +Equ TOOL_PARMS.BAKE_TIME$ To 8 +Equ TOOL_PARMS.EPI_H2_FLOW$ To 9 +Equ TOOL_PARMS.TCS_FLOW$ To 10 +Equ TOOL_PARMS.DCS_FLOW$ To 11 +Equ TOOL_PARMS.AUX1$ To 12 +Equ TOOL_PARMS.AUX2$ To 13 +Equ TOOL_PARMS.F_OFFSET$ To 14 +Equ TOOL_PARMS.S_OFFSET$ To 15 +Equ TOOL_PARMS.R_OFFSET$ To 16 +Equ TOOL_PARMS.ETCH1$ To 17 +Equ TOOL_PARMS.ETCH2$ To 18 +Equ TOOL_PARMS.OVERGROW_REQ$ To 19 +Equ TOOL_PARMS.ENTRY_USERNAME$ To 20 +Equ TOOL_PARMS.SUSC_ETCH$ To 21 +Equ TOOL_PARMS.UNLOAD_TEMP$ To 22 +Equ TOOL_PARMS.ETCH3$ To 23 diff --git a/LSL2/STPROCINS/TOOL_PROP_EQUATES.txt b/LSL2/STPROCINS/TOOL_PROP_EQUATES.txt new file mode 100644 index 0000000..7c7ab51 --- /dev/null +++ b/LSL2/STPROCINS/TOOL_PROP_EQUATES.txt @@ -0,0 +1,11 @@ +compile insert TOOL_PROP_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 11/10/2012 + Description : Insert for Table TOOL_PROP +----------------------------------------*/ + + +Equ TOOL_PROP_CLASS_CD$ To 0 +Equ TOOL_PROP_PROP_CD$ To 0 +Equ TOOL_PROP_PI_WFR_TYPE$ To 1 diff --git a/LSL2/STPROCINS/TOOL_STAGE_EQUATES.txt b/LSL2/STPROCINS/TOOL_STAGE_EQUATES.txt new file mode 100644 index 0000000..47c5936 --- /dev/null +++ b/LSL2/STPROCINS/TOOL_STAGE_EQUATES.txt @@ -0,0 +1,11 @@ +compile insert TOOL_STAGE_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 16/10/2012 + Description : Insert for Table TOOL_STAGE +----------------------------------------*/ + + +Equ TOOL_STAGE_CLASS_CD$ To 0 +Equ TOOL_STAGE_STAGE$ To 0 +Equ TOOL_STAGE_RECIPE$ To 1 diff --git a/LSL2/STPROCINS/TOOL_WFR_EQUATES.txt b/LSL2/STPROCINS/TOOL_WFR_EQUATES.txt new file mode 100644 index 0000000..2f8e050 --- /dev/null +++ b/LSL2/STPROCINS/TOOL_WFR_EQUATES.txt @@ -0,0 +1,10 @@ +compile insert TOOL_WFR_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : o4/06/2016 + Description : Insert for Table TOOL_WFR +----------------------------------------*/ + + +Equ TOOL_WFR_TOOL_ID$ To 0 +Equ TOOL_WFR_WFR_ID$ To 1 diff --git a/LSL2/STPROCINS/TUBE_EQUATES.txt b/LSL2/STPROCINS/TUBE_EQUATES.txt new file mode 100644 index 0000000..262435b --- /dev/null +++ b/LSL2/STPROCINS/TUBE_EQUATES.txt @@ -0,0 +1,26 @@ +compile insert TUBE_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 11/04/2022 + Description : Insert for Table TUBE +----------------------------------------*/ + + +Equ TUBE_TUBE_ID$ To 0 +Equ TUBE_DESC$ To 1 +Equ TUBE_STATUS$ To 2 +Equ TUBE_NOTES$ To 3 +Equ TUBE_REACT_NO$ To 4 +Equ TUBE_INST_DTM$ To 5 +Equ TUBE_INST_REACT_HRS$ To 6 +Equ TUBE_INST_REACT_WFRS$ To 7 +Equ TUBE_INST_RL_ID$ To 8 +Equ TUBE_RDS_WFR_CNT$ To 9 +Equ TUBE_REM_DTM$ To 10 +Equ TUBE_REM_REACT_HRS$ To 11 +Equ TUBE_REM_REACT_WFRS$ To 12 +Equ TUBE_REM_RL_ID$ To 13 +Equ TUBE_RETIRE_DT$ To 14 +Equ TUBE_RETIRE_BY$ To 15 +Equ TUBE_ENTER_DTM$ To 16 +Equ TUBE_ENTER_BY$ To 17 diff --git a/LSL2/STPROCINS/TW_CODES_EQU.txt b/LSL2/STPROCINS/TW_CODES_EQU.txt new file mode 100644 index 0000000..a9b4a9c --- /dev/null +++ b/LSL2/STPROCINS/TW_CODES_EQU.txt @@ -0,0 +1,7 @@ +* Equates for TW_CODES created on 02/22/99 03:27PM + +equ TW_CODES_DESC$ to 1 +equ TW_CODES_ENTRY_ID$ to 2 +equ TW_CODES_ENTRY_DATE$ to 3 +equ TW_CODES_NON_PROD$ to 4 +equ TW_CODES_RUN_DATA_REQUIRED$ to 5 diff --git a/LSL2/STPROCINS/TW_INFO_ARRAY_EQU.txt b/LSL2/STPROCINS/TW_INFO_ARRAY_EQU.txt new file mode 100644 index 0000000..bcc8ebe --- /dev/null +++ b/LSL2/STPROCINS/TW_INFO_ARRAY_EQU.txt @@ -0,0 +1,14 @@ +compile insert TW_INFO_ARRAY_EQU +* THESE ARE THE EQUATED POSITIONS FOR THE TW_INFO EDITTABLE IN +* RDS_TW + +equ TWInfoArrayCnt$ to 1 +equ TWInfoArrayCode$ to 2 +equ TWInfoArrayDesc$ to 3 +equ TWInfoArrayTool$ to 4 +equ TWInfoArrayThick$ to 5 +equ TWInfoArrayRes$ to 6 +equ TWInfoArrayConc$ to 7 +equ TWInfoArrayStress$ to 8 +equ TWInfoArrayTrans$ to 9 +equ TWInfoArrayRHO$ to 10 diff --git a/LSL2/STPROCINS/TW_USE_EQUATES.txt b/LSL2/STPROCINS/TW_USE_EQUATES.txt new file mode 100644 index 0000000..477f275 --- /dev/null +++ b/LSL2/STPROCINS/TW_USE_EQUATES.txt @@ -0,0 +1,22 @@ +compile insert TW_USE_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 04/04/2012 + Description : Insert for Table TW_USE +----------------------------------------*/ + + +Equ TW_USE_MET_NO$ To 0 +Equ TW_USE_TW_NO$ To 0 +Equ TW_USE_TW_QTY$ To 1 +Equ TW_USE_TW_USE_CODE$ To 2 +Equ TW_USE_DESC$ To 3 +Equ TW_USE_TOOL$ To 4 +Equ TW_USE_TW_TYPE$ To 5 +Equ TW_USE_SIGNATURE$ To 6 +Equ TW_USE_SIG_DTM$ To 7 +Equ TW_USE_HRS_SINCE_PROD$ To 8 +Equ TW_USE_HRS_ESC$ To 9 +Equ TW_USE_CUST_TW_PART_NO$ To 10 +Equ TW_USE_SLOT_ID$ To 11 +Equ TW_USE_WAFER_ID$ To 19 diff --git a/LSL2/STPROCINS/UCL_REQUESTS_EQUATES.txt b/LSL2/STPROCINS/UCL_REQUESTS_EQUATES.txt new file mode 100644 index 0000000..f940ca3 --- /dev/null +++ b/LSL2/STPROCINS/UCL_REQUESTS_EQUATES.txt @@ -0,0 +1,14 @@ +compile insert UCL_REQUESTS_EQUATES +/*------------------------------------------------ + Author : Daniel Stieber + Written : 09/13/2018 + Description : Insert for Table UCL_REQUESTS Table +------------------------------------------------*/ + +Equ UCL_REQUESTS.REQUEST_DATE$ To 0 +Equ UCL_REQUESTS.REQUEST_TIME$ To 0 +Equ UCL_REQUESTS.RDS$ To 0 +Equ UCL_REQUESTS.UCL$ To 1 +Equ UCL_REQUESTS.RESPONSE_DATE$ To 2 +Equ UCL_REQUESTS.RESPONSE_TIME$ To 3 +Equ UCL_REQUESTS.TENCOR_RECIPE$ To 4 diff --git a/LSL2/STPROCINS/USER_CONFIG_EQUATES.txt b/LSL2/STPROCINS/USER_CONFIG_EQUATES.txt new file mode 100644 index 0000000..6a6303f --- /dev/null +++ b/LSL2/STPROCINS/USER_CONFIG_EQUATES.txt @@ -0,0 +1,12 @@ +compile insert USER_CONFIG_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 27/04/2021 + Description : Insert for Table USER_CONFIG +----------------------------------------*/ + + +Equ USER_CONFIG.ENTITY$ To 0 +Equ USER_CONFIG.LSL_USERNAME$ To 0 +Equ USER_CONFIG.PROPERTY$ To 1 +Equ USER_CONFIG.VALUE$ To 2 diff --git a/LSL2/STPROCINS/VISION_LOG_EQUATES.txt b/LSL2/STPROCINS/VISION_LOG_EQUATES.txt new file mode 100644 index 0000000..9aaea74 --- /dev/null +++ b/LSL2/STPROCINS/VISION_LOG_EQUATES.txt @@ -0,0 +1,17 @@ +compile insert VISION_LOG_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 14/06/2005 + Description : Insert for Table VISION_LOG +----------------------------------------*/ + +Equ VISION_LOG_LOG_NO$ To 0 +Equ VISION_LOG_TIMESTAMP$ To 1 +Equ VISION_LOG_LOG_DESC$ To 2 +Equ VISION_LOG_VISION_ORDER$ To 3 +Equ VISION_LOG_VISION_LINE$ To 4 +Equ VISION_LOG_ORDER_NO$ To 5 +Equ VISION_LOG_ITEM_NO$ To 6 +Equ VISION_LOG_FIELD_NAME$ To 7 +Equ VISION_LOG_VISION_VALUE$ To 8 +Equ VISION_LOG_OI_VALUE$ To 9 diff --git a/LSL2/STPROCINS/WAFER_IMAGE_QUEUE_EQUATES.txt b/LSL2/STPROCINS/WAFER_IMAGE_QUEUE_EQUATES.txt new file mode 100644 index 0000000..f03f573 --- /dev/null +++ b/LSL2/STPROCINS/WAFER_IMAGE_QUEUE_EQUATES.txt @@ -0,0 +1,12 @@ +compile insert WAFER_IMAGE_QUEUE_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 08/30/2018 + Description : Insert for Table WAFER_IMAGE_QUEUE +----------------------------------------*/ + + +Equ WAFER_IMAGE_QUEUE.RDS_NO$ To 0*1 +Equ WAFER_IMAGE_QUEUE.WAFER_NO$ To 0*2 +Equ WAFER_IMAGE_QUEUE.TENCOR_RECIPE$ To 0*3 +Equ WAFER_IMAGE_QUEUE.PDF_DATA$ To 1 diff --git a/LSL2/STPROCINS/WAFER_IMAGE_REQUESTS_EQUATES.txt b/LSL2/STPROCINS/WAFER_IMAGE_REQUESTS_EQUATES.txt new file mode 100644 index 0000000..9a13a56 --- /dev/null +++ b/LSL2/STPROCINS/WAFER_IMAGE_REQUESTS_EQUATES.txt @@ -0,0 +1,17 @@ +compile insert WAFER_IMAGE_REQUESTS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 08/30/2018 + Description : Insert for Table WAFER_IMAGE_REQUESTS +----------------------------------------*/ + + +Equ WAFER_IMAGE_REQUESTS.REQUEST_DATE$ To 0*1 +Equ WAFER_IMAGE_REQUESTS.REQUEST_TIME$ To 0*2 +Equ WAFER_IMAGE_REQUESTS.RESPONSE_BODY$ To 1 +Equ WAFER_IMAGE_REQUESTS.RESPONSE_DATE$ To 2 +Equ WAFER_IMAGE_REQUESTS.RESPONSE_TIME$ To 3 +Equ WAFER_IMAGE_REQUESTS.RDS_NO$ To 4 +Equ WAFER_IMAGE_REQUESTS.WAFER_NO$ To 5 +Equ WAFER_IMAGE_REQUESTS.TENCOR_RECIPE$ To 6 +Equ WAFER_IMAGE_REQUESTS.RETURN_PDF$ To 7 diff --git a/LSL2/STPROCINS/WAFER_INV_EQU.txt b/LSL2/STPROCINS/WAFER_INV_EQU.txt new file mode 100644 index 0000000..6d65841 --- /dev/null +++ b/LSL2/STPROCINS/WAFER_INV_EQU.txt @@ -0,0 +1,26 @@ +* Equates for WAFER_INV created on 11/11/98 08:47AM + +equ WAFER_INV_ENTRY_DATE$ to 1 +equ WAFER_INV_ENTRY_ID$ to 2 +equ WAFER_INV_STATUS$ to 3 +equ WAFER_INV_CUST_NO$ to 4 +equ WAFER_INV_CUST_PO_MFG$ to 5 +equ WAFER_INV_POLISH$ to 6 +equ WAFER_INV_QTY_RECEIVED$ to 7 +equ WAFER_INV_MFG$ to 8 +equ WAFER_INV_MFG_SPEC_NO$ to 9 +equ WAFER_INV_MFG_SALES_ORD$ to 10 +equ WAFER_INV_LSL_PO$ to 11 +equ WAFER_INV_MFG_LOT_NO$ to 12 +equ WAFER_INV_LSL_INVOICE_NO$ to 13 +equ WAFER_INV_LSL_WO$ to 14 +equ WAFER_INV_SHIP_DATE$ to 15 +equ WAFER_INV_SHIP_QTY$ to 16 +equ WAFER_INV_REJECTS$ to 17 +equ WAFER_INV_NOTES$ to 18 +equ WAFER_INV_PACKING_NO$ to 19 +equ WAFER_INV_IN_PROCESS$ to 20 +equ WAFER_INV_ORDER_NO$ to 21 +equ WAFER_INV_ORDER_LINE$ to 22 +equ WAFER_INV_INVENTORY_LOT_NUM$ to 23 +equ WAFER_INV_INVENTORY_LOT_NUM_QTY$ to 24 diff --git a/LSL2/STPROCINS/WAND_EQUATES.txt b/LSL2/STPROCINS/WAND_EQUATES.txt new file mode 100644 index 0000000..4629776 --- /dev/null +++ b/LSL2/STPROCINS/WAND_EQUATES.txt @@ -0,0 +1,28 @@ +compile insert WAND_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 15/01/2014 + Description : Insert for Table WAND +----------------------------------------*/ + + +Equ WAND_WAND_ID$ To 0 +Equ WAND_DESC$ To 1 +Equ WAND_STATUS$ To 2 +Equ WAND_REACT_NO$ To 3 +Equ WAND_INST_DTM$ To 4 +Equ WAND_INST_REACT_HRS$ To 5 +Equ WAND_INST_REACT_WFRS$ To 6 +Equ WAND_INST_RL_ID$ To 7 +Equ WAND_REM_DTM$ To 8 +Equ WAND_REM_REACT_HRS$ To 9 +Equ WAND_REM_REACT_WFRS$ To 10 +Equ WAND_REM_RL_ID$ To 11 +Equ WAND_REM_REASON$ To 12 +Equ WAND_RETIRE_DT$ To 13 +Equ WAND_RETIRE_BY$ To 14 +Equ WAND_ENTER_DTM$ To 15 +Equ WAND_ENTER_BY$ To 16 +Equ WAND_SERIAL$ To 17 +Equ WAND_INACTIVE_DT$ To 18 +Equ WAND_ENTER_DT$ To 19 diff --git a/LSL2/STPROCINS/WAREHOUSE_EQUATES.txt b/LSL2/STPROCINS/WAREHOUSE_EQUATES.txt new file mode 100644 index 0000000..07592bb --- /dev/null +++ b/LSL2/STPROCINS/WAREHOUSE_EQUATES.txt @@ -0,0 +1,13 @@ +compile insert WAREHOUSE_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 20/10/2006 + Description : Insert for Table WAREHOUSE +----------------------------------------*/ + + +Equ WAREHOUSE_WH_CD$ To 0 +Equ WAREHOUSE_DESC$ To 1 +Equ WAREHOUSE_RESP_USER$ To 2 +Equ WAREHOUSE_COMP_LOC$ To 3 +Equ WAREHOUSE_LOC_KEY$ To 4 diff --git a/LSL2/STPROCINS/WMI_WFRS_EQUATES.txt b/LSL2/STPROCINS/WMI_WFRS_EQUATES.txt new file mode 100644 index 0000000..b44be7d --- /dev/null +++ b/LSL2/STPROCINS/WMI_WFRS_EQUATES.txt @@ -0,0 +1,15 @@ +compile insert WMI_WFRS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 23/01/2007 + Description : Insert for Table WMI_WFRS +----------------------------------------*/ + + +Equ WMI_WFRS_CASS_NO$ To 0 +Equ WMI_WFRS_PROC_STEP_NO$ To 0 +Equ WMI_WFRS_SLOT_NO$ To 0 +Equ WMI_WFRS_WO_NO$ To 0 +Equ WMI_WFRS_USER_NAME$ To 1 +Equ WMI_WFRS_WORKSTATION_ID$ To 2 +Equ WMI_WFRS_LOCKED_AT$ To 3 diff --git a/LSL2/STPROCINS/WMO_WFRS_EQUATES.txt b/LSL2/STPROCINS/WMO_WFRS_EQUATES.txt new file mode 100644 index 0000000..9dbabc7 --- /dev/null +++ b/LSL2/STPROCINS/WMO_WFRS_EQUATES.txt @@ -0,0 +1,15 @@ +compile insert WMO_WFRS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 23/01/2007 + Description : Insert for Table WMO_WFRS +----------------------------------------*/ + + +Equ WMO_WFRS_CASS_NO$ To 0 +Equ WMO_WFRS_PROC_STEP_NO$ To 0 +Equ WMO_WFRS_SLOT_NO$ To 0 +Equ WMO_WFRS_WO_NO$ To 0 +Equ WMO_WFRS_USER_NAME$ To 1 +Equ WMO_WFRS_WORKSTATION_ID$ To 2 +Equ WMO_WFRS_LOCKED_AT$ To 3 diff --git a/LSL2/STPROCINS/WM_IN_EQUATES.txt b/LSL2/STPROCINS/WM_IN_EQUATES.txt new file mode 100644 index 0000000..f8e0fd3 --- /dev/null +++ b/LSL2/STPROCINS/WM_IN_EQUATES.txt @@ -0,0 +1,46 @@ +compile insert WM_IN_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 07/12/2010 + Description : Insert for Table WM_IN +----------------------------------------*/ + + +Equ WM_IN_IN_CASS_NO$ To 0 +Equ WM_IN_PROC_STEP_NO$ To 0 +Equ WM_IN_WO_NO$ To 0 +Equ WM_IN_SLOT_NO$ To 1 +Equ WM_IN_RDS_NO$ To 2 +Equ WM_IN_POCKET_NO$ To 3 +Equ WM_IN_ZONE$ To 4 +Equ WM_IN_NCR_NO$ To 5 +Equ WM_IN_PRE_CODE$ To 6 +Equ WM_IN_PRE_BOAT_ID$ To 7 +Equ WM_IN_PRE_SRD_NO$ To 8 +Equ WM_IN_PRE_EPI_SIG$ To 9 +Equ WM_IN_PRE_EPI_SIG_DTM$ To 10 +Equ WM_IN_LPD_PRECLEAN$ To 11 +Equ WM_IN_LPD_POST_PRECLEAN$ To 12 +Equ WM_IN_PRE_PITS$ To 13 +Equ WM_IN_PRE_MOUNDS$ To 14 +Equ WM_IN_PRE_SCRATCHES$ To 15 +Equ WM_IN_PRE_SCRATCH_LEN$ To 16 +Equ WM_IN_PRE_SPOTS$ To 17 +Equ WM_IN_PRE_FOV$ To 18 +Equ WM_IN_PRE_BL_DEFECTS$ To 19 +Equ WM_IN_HOLD_ORG$ To 20 +Equ WM_IN_HOT_LOT$ To 21 +Equ WM_IN_SLOT_NCR$ To 27 +Equ WM_IN_HOLD_START_DTM_ORG$ To 28 +Equ WM_IN_HOLD_START_USER_ORG$ To 29 +Equ WM_IN_HOLD_START_REASON_ORG$ To 30 +Equ WM_IN_HOLD_STOP_DTM_ORG$ To 31 +Equ WM_IN_HOLD_STOP_USER_ORG$ To 32 +Equ WM_IN_HOLD_STOP_REASON_ORG$ To 33 +Equ WM_IN_VOID$ To 34 +Equ WM_IN_SLOT_MET_NO$ To 35 +Equ WM_IN_LOCKED_BY$ To 36 +Equ WM_IN_EPP_COMMENT_DATE$ To 37 +Equ WM_IN_EPP_COMMENT_USER$ To 38 +Equ WM_IN_EPP_COMMENT_NOTE$ To 39 + diff --git a/LSL2/STPROCINS/WM_OUT_EQUATES.txt b/LSL2/STPROCINS/WM_OUT_EQUATES.txt new file mode 100644 index 0000000..0be16b6 --- /dev/null +++ b/LSL2/STPROCINS/WM_OUT_EQUATES.txt @@ -0,0 +1,71 @@ +compile insert WM_OUT_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 04/10/2010 + Description : Insert for Table WM_OUT +----------------------------------------*/ + + +Equ WM_OUT_OUT_CASS_NO$ To 0 +Equ WM_OUT_PROC_STEP_NO$ To 0 +Equ WM_OUT_WO_NO$ To 0 +Equ WM_OUT_SLOT_NO$ To 1 +Equ WM_OUT_RDS$ To 2 +Equ WM_OUT_POCKET$ To 3 +Equ WM_OUT_ZONE$ To 4 +Equ WM_OUT_IN_CASS_NO$ To 5 +Equ WM_OUT_IN_SLOT_NO$ To 6 +Equ WM_OUT_POST_CODE$ To 7 +Equ WM_OUT_POST_BOAT_ID$ To 8 +Equ WM_OUT_POST_SRD_NO$ To 9 +Equ WM_OUT_POST_EPI_SIG$ To 10 +Equ WM_OUT_POST_EPI_SIG_DTM$ To 11 +Equ WM_OUT_POST_PITS$ To 12 +Equ WM_OUT_POST_MOUNDS$ To 13 +Equ WM_OUT_POST_STACK_FAULTS$ To 14 +Equ WM_OUT_POST_SPOTS$ To 15 +Equ WM_OUT_POST_FOV$ To 16 +Equ WM_OUT_POST_BL_DEFECTS$ To 17 +Equ WM_OUT_POST_SPIKES$ To 18 +Equ WM_OUT_POST_SCRATCHES$ To 19 +Equ WM_OUT_POST_SCRATCH_LEN$ To 20 +Equ WM_OUT_LPD_FIRSTWAFER$ To 21 +Equ WM_OUT_LPD_POSTCLEAN$ To 22 +Equ WM_OUT_SHIFT$ To 23 +Equ WM_OUT_SUP_VER_SIG$ To 24 +Equ WM_OUT_SUP_VER_SIG_DTM$ To 25 +Equ WM_OUT_SHIP_NO$ To 26 +Equ WM_OUT_NCR_KEYS$ To 33 +Equ WM_OUT_POST_CLEAN$ To 35 +Equ WM_OUT_MAKEUP_BOX$ To 36 +Equ WM_OUT_ADE_READ$ To 37 +Equ WM_OUT_MU_WO_NO$ To 38 +Equ WM_OUT_MU_WO_STEP$ To 39 +Equ WM_OUT_MU_CASS_NO$ To 40 +Equ WM_OUT_MU_SLOT_NO$ To 41 +Equ WM_OUT_SLOT_NCR$ To 42 +Equ WM_OUT_PROMISE_SHIP_DT$ To 45 +Equ WM_OUT_UMW_CASS_ID$ To 46 +Equ WM_OUT_UMW_SLOT_NO$ To 47 +Equ WM_OUT_IN_CLEANROOM$ To 48 +Equ WM_OUT_VOID$ To 49 +Equ WM_OUT_IN_PTO$ To 50 +Equ WM_OUT_CI_NO$ To 51 +Equ WM_OUT_MU_BY$ To 52 +Equ WM_OUT_WMO_COMMENTS$ To 53 +Equ WM_OUT_MU_WAFER_THK_RESULT$ To 54 +Equ WM_OUT_FLATFINDER_DTM$ To 55 +Equ WM_OUT_FLATFINDER_WAFER_CNT$ To 56 +Equ WM_OUT_FLATFINDER_FLAT_LENGTH$ To 57 +Equ WM_OUT_MU_WAFER_ADDED_DTM$ To 58 +Equ WM_OUT_MU_WAFER_REMOVED_DTM$ To 59 +Equ WM_OUT_FLATFINDER_ORIENTATION$ To 60 +Equ WM_OUT_CURR_STATUS_STATIC$ To 61 +Equ WM_OUT_FAILED_WAFERS$ To 62 +Equ WM_OUT_LOCKED_BY$ To 63 +Equ WM_OUT_EPP_COMMENT_DATE$ To 64 +Equ WM_OUT_EPP_COMMENT_USER$ To 65 +Equ WM_OUT_EPP_COMMENT_NOTE$ To 66 +Equ WM_OUT_WAFER_COUNTER_QTY$ To 67 +Equ WM_OUT_WAFER_COUNTER_DTM$ To 68 + diff --git a/LSL2/STPROCINS/WM_OUT_QUEUE_EQUATES.txt b/LSL2/STPROCINS/WM_OUT_QUEUE_EQUATES.txt new file mode 100644 index 0000000..c662547 --- /dev/null +++ b/LSL2/STPROCINS/WM_OUT_QUEUE_EQUATES.txt @@ -0,0 +1,12 @@ +compile insert WM_OUT_QUEUE_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 20/05/2021 + Description : Insert for Table WM_OUT_QUEUE +----------------------------------------*/ + + +Equ WM_OUT_QUEUE.SLOT_NO$ To 0 +Equ WM_OUT_QUEUE.STEP_NO$ To 0 +Equ WM_OUT_QUEUE.WO_NO$ To 0 +Equ WM_OUT_QUEUE.REQUEST_DTM$ To 1 diff --git a/LSL2/STPROCINS/WORKSTATION_EQUATES.txt b/LSL2/STPROCINS/WORKSTATION_EQUATES.txt new file mode 100644 index 0000000..efff487 --- /dev/null +++ b/LSL2/STPROCINS/WORKSTATION_EQUATES.txt @@ -0,0 +1,12 @@ +compile insert WORKSTATION_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 23/03/2010 + Description : Insert for Table WORKSTATION +----------------------------------------*/ + + +Equ WORKSTATION_WORKSTATION_ID$ To 0 +Equ WORKSTATION_DESC$ To 1 +Equ WORKSTATION_PHONE_EXT$ To 2 +Equ WORKSTATION_LOCATION$ To 3 diff --git a/LSL2/STPROCINS/WORK_ORDER_CHILD_KEY_IDS_EQUATES.txt b/LSL2/STPROCINS/WORK_ORDER_CHILD_KEY_IDS_EQUATES.txt new file mode 100644 index 0000000..3875414 --- /dev/null +++ b/LSL2/STPROCINS/WORK_ORDER_CHILD_KEY_IDS_EQUATES.txt @@ -0,0 +1,10 @@ +compile insert WORK_ORDER_CHILD_KEY_IDS_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 21/09/2017 + Description : Insert for Table WORK_ORDER_CHILD_KEY_IDS +----------------------------------------*/ + + +Equ WORK_ORDER_CHILD_KEY_IDS.WORK_ORDER_NO$ To 0 +Equ WORK_ORDER_CHILD_KEY_IDS.SCHEDULER_KEY_IDS$ To 1 diff --git a/LSL2/STPROCINS/WO_DAILY_SCHED_EQU.txt b/LSL2/STPROCINS/WO_DAILY_SCHED_EQU.txt new file mode 100644 index 0000000..bc28756 --- /dev/null +++ b/LSL2/STPROCINS/WO_DAILY_SCHED_EQU.txt @@ -0,0 +1,9 @@ +compile insert WO_DAILY_SCHED_EQU +* equates for "CONFIG" "WO_DAILY_SCHED_":REACTOR + +equ Reactor$ to 1 +equ WOCust$ to 2 +equ BoxInfo$ to 3 +equ Size$ to 4 +equ ReactorType$ to 5 + diff --git a/LSL2/STPROCINS/WO_LOC_EQUATES.txt b/LSL2/STPROCINS/WO_LOC_EQUATES.txt new file mode 100644 index 0000000..ec3ded4 --- /dev/null +++ b/LSL2/STPROCINS/WO_LOC_EQUATES.txt @@ -0,0 +1,14 @@ +compile insert WO_LOC_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 09/11/2022 + Description : Insert for Table WO_LOC +----------------------------------------*/ + + +Equ WO_LOC.LOC$ To 0 +Equ WO_LOC.WH$ To 0 +Equ WO_LOC.WO$ To 0 +Equ WO_LOC.LOC_INFO$ To 1 +Equ WO_LOC.NUM_CASS$ To 2 +Equ WO_LOC.CASS_LIST$ To 3 diff --git a/LSL2/STPROCINS/WO_LOG_EQU.txt b/LSL2/STPROCINS/WO_LOG_EQU.txt new file mode 100644 index 0000000..23e61e0 --- /dev/null +++ b/LSL2/STPROCINS/WO_LOG_EQU.txt @@ -0,0 +1,66 @@ +compile insert WO_LOG_EQU +* Equates for WO_LOG created on 01/21/00 07:52AM + +equ WO_LOG_ENTRY_ID$ to 1 +equ WO_LOG_ENTRY_DATE$ to 2 +equ WO_LOG_CUST_NO$ to 3 +equ WO_LOG_QTY$ to 4 +equ WO_LOG_PROD_SPEC_ID$ to 5 +equ WO_LOG_NOTES$ to 6 +equ WO_LOG_CUST_SHIP_DATE$ to 7 +equ WO_LOG_STATUS$ to 8 +equ WO_LOG_SCHEDULED$ to 9 +equ WO_LOG_RECEIVED_DATE$ to 10 +equ WO_LOG_CLOSE_DATE$ to 11 +equ WO_LOG_REACTORS$ to 12 +equ WO_LOG_RECEIVED_TIME$ to 13 + +equ WO_LOG_COMMIT_DATE$ to 14 +equ WO_LOG_PROMISE_SHIP_DT$ to 14 + +equ WO_LOG_CYCLE_TIME$ to 15 +EQU WO_LOG_CASS_NO$ TO 16 ;* deprecated +EQU WO_LOG_CASS_LOT_NO$ TO 17 ;* deprecated +EQU WO_LOG_CASS_WAFER_QTY$ TO 18 ;* deprecated +EQU WO_LOG_CASS_PART_NO$ TO 19 ;* deprecated +EQU WO_LOG_CASS_SUB_PART_NO$ TO 20 ;* deprecated +EQU WO_LOG_CASS_DTM$ TO 21 ;* deprecated +EQU WO_LOG_CASS_USER$ TO 22 ;* deprecated +EQU WO_LOG_CASS_SUB_INV_ID$ TO 23 ;* deprecated +equ WO_LOG_ADD_CHG_DESC$ to 24 +equ WO_LOG_ADD_CHG_AMT$ to 25 + +EQU WO_LOG_AC_ORD_ITEM$ TO 26 +EQU WO_LOG_ADD_CHG_ORD_ITEM$ TO 26 + +equ WO_LOG_QUOTE_NO$ to 27 +equ WO_LOG_UNIT_PRICE$ to 28 +equ WO_LOG_ORDER_NO$ to 29 +equ WO_LOG_ORDER_ITEM$ to 30 +EQU WO_LOG_WO_MAT_KEY$ TO 31 + +EQU WO_LOG_SHIP_NO$ TO 33 +EQU WO_LOG_WO_STEP_KEY$ TO 34 +EQU WO_LOG_CASS_ORDER_ITEM$ TO 35 + +EQU WO_LOG_WO_STEP_STATUS$ TO 37 +EQU WO_LOG_CASS_REL_DTM$ TO 38 ;* deprecated +EQU WO_LOG_CASS_REL_BY$ TO 39 ;* deprecated +EQU WO_LOG_REL_BY$ TO 40 +EQU WO_LOG_SHIP_DT$ TO 41 +EQU WO_LOG_OUT_CASS_LOAD_QTY$ TO 42 + +EQU WO_LOG_PART_NO$ TO 43 +EQU WO_LOG_PROD_ORD_NO$ TO 44 +EQU WO_LOG_WO_START_DTM$ TO 45 +EQU WO_LOG_WO_STOP_DTM$ TO 46 +EQU WO_LOG_WO_HOLD$ TO 47 + +EQU WO_LOG_EXP_VEND_CD$ TO 64 + +*EQU WO_LOG_ORDER_ITEM_CUST_PN$ TO 38 + + +EQU WO_CP$LOT_NO TO 1 ;* These are used when using the obj_WO_Log 'GetCassProps' method +EQU WO_CP$PART_NO TO 2 +EQU WO_CP$SUB_PART_NO TO 3 diff --git a/LSL2/STPROCINS/WO_LOG_EQUATES.txt b/LSL2/STPROCINS/WO_LOG_EQUATES.txt new file mode 100644 index 0000000..aae034d --- /dev/null +++ b/LSL2/STPROCINS/WO_LOG_EQUATES.txt @@ -0,0 +1,94 @@ +compile insert WO_LOG_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 12/09/2016 + Description : Insert for Table WO_LOG +----------------------------------------*/ + + +Equ WO_LOG_WO$ To 0 +Equ WO_LOG_ENTRY_ID$ To 1 +Equ WO_LOG_ENTRY_DATE$ To 2 +Equ WO_LOG_CUST_NO$ To 3 +Equ WO_LOG_QTY$ To 4 +Equ WO_LOG_WO_QTY$ To 4 +Equ WO_LOG_PROD_SPEC_ID$ To 5 +Equ WO_LOG_NOTES$ To 6 +Equ WO_LOG_CUST_SHIP_DATE$ To 7 +Equ WO_LOG_STATUS$ To 8 +Equ WO_LOG_ORG_SCHEDULED$ To 9 +Equ WO_LOG_RECEIVED_DATE$ To 10 +Equ WO_LOG_CLOSE_DATE$ To 11 +Equ WO_LOG_REACTORS$ To 12 +Equ WO_LOG_RECEIVED_TIME$ To 13 +Equ WO_LOG_COMMIT_DATE$ To 14 +Equ WO_LOG_PROMISE_SHIP_DT$ To 14 +Equ WO_LOG_CYCLE_TIME$ To 15 +Equ WO_LOG_CASS_NO$ To 16 +Equ WO_LOG_CASS_LOT_NO$ To 17 +Equ WO_LOG_CASS_WAFER_QTY$ To 18 +Equ WO_LOG_CASS_PART_NO$ To 19 +Equ WO_LOG_CASS_SUB_PART_NO$ To 20 +Equ WO_LOG_CASS_DTM$ To 21 +Equ WO_LOG_CASS_USER$ To 22 +Equ WO_LOG_CASS_SUB_INV_ID$ To 23 +Equ WO_LOG_ADD_CHG_DESC$ To 24 +Equ WO_LOG_ADD_CHG_AMT$ To 25 +Equ WO_LOG_ADD_CHG_ORD_ITEM$ To 26 +Equ WO_LOG_QUOTE_NO$ To 27 +Equ WO_LOG_UNIT_PRICE$ To 28 +Equ WO_LOG_ORDER_NO$ To 29 +Equ WO_LOG_ORDER_ITEM$ To 30 +Equ WO_LOG_WO_MAT_KEY$ To 31 +Equ WO_LOG_RX_DTM$ To 32 +Equ WO_LOG_SHIP_NO_ORG$ To 33 +Equ WO_LOG_WO_STEP_KEY$ To 34 +Equ WO_LOG_CASS_ORDER_ITEM$ To 35 +Equ WO_LOG_RX_BY$ To 36 +Equ WO_LOG_WO_STEP_STATUS$ To 37 +Equ WO_LOG_CASS_REL_DTM$ To 38 +Equ WO_LOG_CASS_REL_BY$ To 39 +Equ WO_LOG_LOT_SHIP_DT$ To 41 +Equ WO_LOG_OUT_CASS_LOAD_QTY$ To 42 +Equ WO_LOG_BOM_NO$ To 43 +Equ WO_LOG_PART_NO$ To 43 +Equ WO_LOG_PROD_VER_NO$ To 43 +Equ WO_LOG_PROD_ORD_NO$ To 44 +Equ WO_LOG_WO_START_DTM$ To 45 +Equ WO_LOG_WO_STOP_DTM$ To 46 +Equ WO_LOG_WO_HOLD$ To 47 +Equ WO_LOG_EPI_PART_NO$ To 48 +Equ WO_LOG_ORD_SUB_PART_NO$ To 49 +Equ WO_LOG_ORD_SUB_PART_REV$ To 50 +Equ WO_LOG_CUST_PO_NO$ To 51 +Equ WO_LOG_SAP_ORD_QTY$ To 52 +Equ WO_LOG_SAP_BATCH_NO_ORG$ To 53 +Equ WO_LOG_CUST_PART_NO$ To 54 +Equ WO_LOG_CUST_PART_INBOUND$ To 55 +Equ WO_LOG_CUST_SUB_PART_NO$ To 56 +Equ WO_LOG_CUST_SUB_MFR$ To 57 +Equ WO_LOG_PROD_ORD_NO_TMP$ To 58 +Equ WO_LOG_ORIGIN$ To 59 +Equ WO_LOG_CUST_LOT_NO$ To 60 +Equ WO_LOG_CUST_LOT_QTY$ To 61 +Equ WO_LOG_INCO_CODE$ To 62 +Equ WO_LOG_PRIORITY$ To 63 +Equ WO_LOG_EXP_VEND_CD$ To 64 +Equ WO_LOG_LOAD_CASS_NO$ To 65 +Equ WO_LOG_LOAD_QTY$ To 66 +Equ WO_LOG_REACT_TYPE$ To 67 +Equ WO_LOG_EPI_STRUCTURE$ To 68 +Equ WO_LOG_GAN_COST_TYPE$ To 69 +Equ WO_LOG_WO_MAT_KEY_HOTLOT$ To 70 ; // DEPRECATED - Use HOT_LOT_FLAG (field 78) instead! +Equ WO_LOG_SCHED_DET_KEYIDS$ To 71 +Equ WO_LOG_WAFER_TRACK_PART$ To 72 +Equ WO_LOG_LAST_CHAR_RUN$ To 73 +Equ WO_LOG_NEXT_OUT_SLOT$ To 74 +Equ WO_LOG_EVENT_IDS$ To 75 +Equ WO_LOG_STATIC_SHIP_QTY$ To 76 +Equ WO_LOG_STATIC_AVAIL_MU_WFRS$ To 77 +Equ WO_LOG_HOT_FLAG$ To 78 +Equ WO_LOG_RX_QTY_STATIC$ To 79 +Equ WO_LOG_REL_QTY_STATIC$ To 80 +Equ WO_LOG_UNREL_QTY_STATIC$ To 81 +Equ WO_LOG_SHIP_QTY_STATIC$ To 82 diff --git a/LSL2/STPROCINS/WO_MASTER_SCHED_EQU.txt b/LSL2/STPROCINS/WO_MASTER_SCHED_EQU.txt new file mode 100644 index 0000000..ef86f5f --- /dev/null +++ b/LSL2/STPROCINS/WO_MASTER_SCHED_EQU.txt @@ -0,0 +1,38 @@ +compile insert WO_MASTER_SCHED_EQU +* equates for "CONFIG" "WO_MASTER_SCHED" + +EQU Dates$ to 1 +EQU Month$ to 2 +EQU MaxReacts$ to 3 +EQU Day1$ to 4 +EQU Day2$ to 5 +EQU Day3$ to 6 +EQU Day4$ to 7 +EQU Day5$ to 8 +EQU Day6$ to 9 +EQU Day7$ to 10 +EQU Day8$ to 11 +EQU Day9$ to 12 +EQU Day10$ to 13 +EQU Day11$ to 14 +EQU Day12$ to 15 +EQU Day13$ to 16 +EQU Day14$ to 17 +EQU Day15$ to 18 +EQU Day16$ to 19 +EQU Day17$ to 20 +EQU Day18$ to 21 +EQU Day19$ to 22 +EQU Day20$ to 23 +EQU Day21$ to 24 +EQU Day22$ to 25 +EQU Day23$ to 26 +EQU Day24$ to 27 +EQU Day25$ to 28 +EQU Day26$ to 29 +EQU Day27$ to 30 +EQU Day28$ to 31 +EQU Day29$ to 32 +EQU Day30$ to 33 +EQU Day31$ to 34 + diff --git a/LSL2/STPROCINS/WO_MAT_EQUATES.txt b/LSL2/STPROCINS/WO_MAT_EQUATES.txt new file mode 100644 index 0000000..6940ea8 --- /dev/null +++ b/LSL2/STPROCINS/WO_MAT_EQUATES.txt @@ -0,0 +1,155 @@ +compile insert WO_MAT_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 30/01/2017 + Description : Insert for Table WO_MAT +----------------------------------------*/ + + +Equ WO_MAT_CASS_NO$ To 0 +Equ WO_MAT_WO_NO$ To 0 +Equ WO_MAT_LOT_NO$ To 1 +Equ WO_MAT_WAFER_QTY$ To 2 +Equ WO_MAT_CUST_PART_NO$ To 3 +Equ WO_MAT_SUB_PART_NO$ To 4 +Equ WO_MAT_ORDER_ITEM$ To 5 +Equ WO_MAT_INV_WH$ To 6 +Equ WO_MAT_INV_LOCATION$ To 7 +Equ WO_MAT_INV_ACTION$ To 8 +Equ WO_MAT_INV_DTM$ To 9 +Equ WO_MAT_INV_USER$ To 10 +Equ WO_MAT_SUB_SUPPL_BY$ To 11 +Equ WO_MAT_RDS_NO$ To 12 +Equ WO_MAT_SHIP_NO$ To 13 +Equ WO_MAT_SLOT_NO$ To 14 +Equ WO_MAT_SLOT_NCR$ To 15 +Equ WO_MAT_SLOT_MET_NO$ To 16 +Equ WO_MAT_SLOT_MOVED_TO$ To 17 +Equ WO_MAT_SLOT_REP_WAFER_ID$ To 18 +Equ WO_MAT_SLOT_RUN_ID$ To 19 +Equ WO_MAT_SLOT_REP_BY$ To 20 +Equ WO_MAT_SLOT_REP_WAFER_THICK$ To 21 +Equ WO_MAT_BOM_NO$ To 22 +Equ WO_MAT_PART_NO$ To 22 +Equ WO_MAT_PROD_VER_NO$ To 22 +Equ WO_MAT_MAKEUP_BOX$ To 23 +Equ WO_MAT_HOT_LOT$ To 24 +Equ WO_MAT_RX_DTM$ To 25 +Equ WO_MAT_RX_BY$ To 26 +Equ WO_MAT_REL_DTM$ To 27 +Equ WO_MAT_REL_BY$ To 28 +Equ WO_MAT_ORG_COMMIT_DT$ To 29 +Equ WO_MAT_NCR_KEYS$ To 30 +Equ WO_MAT_INV_TAG$ To 31 +Equ WO_MAT_WMI_KEY$ To 32 +Equ WO_MAT_WMO_KEY$ To 33 +Equ WO_MAT_HOLD$ To 34 +Equ WO_MAT_HOLD_START_DTM$ To 35 +Equ WO_MAT_HOLD_START_USER$ To 36 +Equ WO_MAT_HOLD_START_REASON$ To 37 +Equ WO_MAT_HOLD_STOP_DTM$ To 38 +Equ WO_MAT_HOLD_STOP_USER$ To 39 +Equ WO_MAT_HOLD_STOP_REASON$ To 40 +Equ WO_MAT_HOLD_ENTITY$ To 41 +Equ WO_MAT_HOLD_ENTITY_ID$ To 42 +Equ WO_MAT_CASS_FINAL_SIG$ To 43 +Equ WO_MAT_RDS_FINAL_SIG_ORG$ To 43 +Equ WO_MAT_CASS_FINAL_SIG_DTM$ To 44 +Equ WO_MAT_RDS_FINAL_SIG_DTM_ORG$ To 44 +Equ WO_MAT_NCR_FINAL_SIG$ To 45 +Equ WO_MAT_NCR_FINAL_SIG_DTM$ To 46 +Equ WO_MAT_MU_WAFER_FLAG$ To 47 +Equ WO_MAT_WMI_CURR_STATUS$ To 48 +Equ WO_MAT_WMO_CURR_STATUS$ To 49 +Equ WO_MAT_VOID$ To 50 +Equ WO_MAT_CANCELLED$ To 51 +Equ WO_MAT_EPO_MAKEUP_BOX$ To 52 +Equ WO_MAT_RET_REJECTS$ To 53 +Equ WO_MAT_SIG_PROFILE$ To 54 +Equ WO_MAT_SIGNATURE$ To 55 +Equ WO_MAT_SIG_DTM$ To 56 +Equ WO_MAT_REPROCESSED_MAT$ To 57 +Equ WO_MAT_CASS_SHIP_QTY$ To 58 +Equ WO_MAT_SHIP_SHORT$ To 59 +Equ WO_MAT_CLEAN_INSP_KEY$ To 60 +Equ WO_MAT_EPO_SLOT$ To 61 +Equ WO_MAT_EPOS_WFR_IN$ To 62 +Equ WO_MAT_EPOS_RUN_ID$ To 63 +Equ WO_MAT_EPOS_NCR$ To 64 +Equ WO_MAT_EPOS_MET_NO$ To 65 +Equ WO_MAT_EPOS_MOVED_TO$ To 66 +Equ WO_MAT_EPOS_REP_WAFER_ID$ To 67 +Equ WO_MAT_EPOS_CLEAN_INSP_KEY$ To 68 +Equ WO_MAT_EPI_PRO$ To 69 +Equ WO_MAT_EPI_CI_NO$ To 70 +Equ WO_MAT_EPO_CI_NO$ To 71 +Equ WO_MAT_EPO_SHIP_HOLD$ To 72 +Equ WO_MAT_EPOS_REP_BY$ To 73 +Equ WO_MAT_SHIP_HOLD$ To 80 +Equ WO_MAT_SHIP_HOLD_START_DTM$ To 81 +Equ WO_MAT_SHIP_HOLD_START_USER$ To 82 +Equ WO_MAT_SHIP_HOLD_START_REASON$ To 83 +Equ WO_MAT_SHIP_HOLD_STOP_DTM$ To 84 +Equ WO_MAT_SHIP_HOLD_STOP_USER$ To 85 +Equ WO_MAT_SHIP_HOLD_STOP_REASON$ To 86 +Equ WO_MAT_SAP_BATCH_NO$ To 87 +Equ WO_MAT_CUST_PART_REV_FUT$ To 88 +Equ WO_MAT_SUB_VEND_CD$ To 89 +Equ WO_MAT_SAP_TX_DTM$ To 90 +Equ WO_MAT_ORG_SAP_BATCH_NO$ To 91 +Equ WO_MAT_SLOT_WFR_ID$ To 92 +Equ WO_MAT_MET_PROFILE$ To 93 +Equ WO_MAT_MET_RUN_STEP$ To 94 +Equ WO_MAT_MET_MIN$ To 95 +Equ WO_MAT_MET_MAX$ To 96 +Equ WO_MAT_MET_RESULT$ To 97 +Equ WO_MAT_MET_SLOT$ To 98 +Equ WO_MAT_MET_SIG$ To 99 +Equ WO_MAT_MET_SIG_DTM$ To 100 +Equ WO_MAT_WMO_LOAD_DTM$ To 101 +Equ WO_MAT_MET_SLOT_TEST$ To 102 +Equ WO_MAT_INV_TOOL_ID$ To 103 +Equ WO_MAT_REC_VER$ To 104 +Equ WO_MAT_SIG_VER$ To 105 +Equ WO_MAT_WIP_START_DTM$ To 106 +Equ WO_MAT_WIP_STOP_DTM$ To 107 +Equ WO_MAT_MET_STD_MAX$ To 108 +Equ WO_MAT_MET_STD_RESULT$ To 109 +Equ WO_MAT_PRIORITY$ To 110 +Equ WO_MAT_SLOT_MOVED_FROM$ To 111 +Equ WO_MAT_HOLD_EXTENDED$ To 112 +Equ WO_MAT_SHIP_HOLD_EXTENDED$ To 113 +Equ WO_MAT_RESHIP_CUST_PO$ To 114 +Equ WO_MAT_RESHIP_DT$ To 115 +Equ WO_MAT_RESHIP_REASON$ To 116 +Equ WO_MAT_RESHIP_CUST_NO$ To 117 +Equ WO_MAT_RESHIP_CUST_PART_NO$ To 118 +Equ WO_MAT_RESHIP_CUST_EPI_PART_NO$ To 119 +Equ WO_MAT_MET_RECIPE$ To 120 +Equ WO_MAT_MET_RECIPE_PATTERN$ To 121 +Equ WO_MAT_MET_PROP$ To 122 +Equ WO_MAT_MET_TOOL_CLASS$ To 123 +Equ WO_MAT_MET_REACT_SCHED$ To 124 +Equ WO_MAT_MET_WFR_QTY$ To 125 +Equ WO_MAT_MET_WFR_TYPE$ To 126 +Equ WO_MAT_GAN_RUN_ID$ To 127 +Equ WO_MAT_WFR_SIG_PROFILE$ To 128 +Equ WO_MAT_WFR_SIG_TOOL_CLASS$ To 129 +Equ WO_MAT_WFR_SIG_INV_ACTION$ To 130 +Equ WO_MAT_TEST_SHIP_BIN_NO$ To 131 +Equ WO_MAT_MU_WAFER_THK_RESULT$ To 132 +Equ WO_MAT_MIN_CASS_SHIP_QTY$ To 133 +Equ WO_MAT_MU_WAFER_ADDED_DTM$ To 134 +Equ WO_MAT_MU_WAFER_REMOVED_DTM$ To 135 +Equ WO_MAT_LOC_DTM$ To 136 +Equ WO_MAT_LOC_BY$ To 137 +Equ WO_MAT_LOC_EVENT$ To 138 +Equ WO_MAT_INV_LOC$ To 139 +Equ WO_MAT_FQA_DT$ To 140 +Equ WO_MAT_FQA_DTM$ To 141 +Equ WO_MAT_INV_SCAN_ENTRY$ To 142 +Equ WO_MAT_CURR_STATUS_STATIC$ To 143 +Equ WO_MAT_FAILED_WAFERS$ To 144 +Equ WO_MAT_LOCKED_BY$ To 145 +Equ WO_MAT_CONVERTED_MATERIAL$ To 146 + diff --git a/LSL2/STPROCINS/WO_MAT_EVENT_EQUATES.txt b/LSL2/STPROCINS/WO_MAT_EVENT_EQUATES.txt new file mode 100644 index 0000000..4302094 --- /dev/null +++ b/LSL2/STPROCINS/WO_MAT_EVENT_EQUATES.txt @@ -0,0 +1,17 @@ +compile insert WO_MAT_EVENT_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 22/11/2012 + Description : Insert for Table WO_MAT_EVENT +----------------------------------------*/ + + +Equ WO_MAT_EVENT_CASS_NO$ To 0 +Equ WO_MAT_EVENT_WO_NO$ To 0 +Equ WO_MAT_EVENT_INV_DTM$ To 1 +Equ WO_MAT_EVENT_INV_ACTION$ To 2 +Equ WO_MAT_EVENT_INV_WH$ To 3 +Equ WO_MAT_EVENT_INV_LOC$ To 4 +Equ WO_MAT_EVENT_INV_USER$ To 5 +Equ WO_MAT_EVENT_INV_TAG$ To 6 +Equ WO_MAT_EVENT_INV_TOOL_ID$ To 7 diff --git a/LSL2/STPROCINS/WO_MAT_LOG_EQUATES.txt b/LSL2/STPROCINS/WO_MAT_LOG_EQUATES.txt new file mode 100644 index 0000000..0a72d76 --- /dev/null +++ b/LSL2/STPROCINS/WO_MAT_LOG_EQUATES.txt @@ -0,0 +1,19 @@ +compile insert WO_MAT_LOG_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 16/08/2012 + Description : Insert for Table WO_MAT_LOG +----------------------------------------*/ + + +Equ WO_MAT_LOG_ACTION$ To 0 +Equ WO_MAT_LOG_LOC_CD$ To 0 +Equ WO_MAT_LOG_LOG_FILE$ To 0 +Equ WO_MAT_LOG_TRANS_DTM$ To 0 +Equ WO_MAT_LOG_WH_CD$ To 0 +Equ WO_MAT_LOG_WO_NO$ To 1 +Equ WO_MAT_LOG_CASS_NO$ To 2 +Equ WO_MAT_LOG_USER_ID$ To 3 +Equ WO_MAT_LOG_TAG$ To 4 +Equ WO_MAT_LOG_TOOL_ID$ To 5 +Equ WO_MAT_LOG_SCAN_ENTRY$ To 6 diff --git a/LSL2/STPROCINS/WO_MAT_MET_EQUATES.txt b/LSL2/STPROCINS/WO_MAT_MET_EQUATES.txt new file mode 100644 index 0000000..fad5901 --- /dev/null +++ b/LSL2/STPROCINS/WO_MAT_MET_EQUATES.txt @@ -0,0 +1,25 @@ +compile insert WO_MAT_MET_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 04/05/2015 + Description : Insert for Table WO_MAT_MET +----------------------------------------*/ + + +Equ WO_MAT_MET_CASS_NO$ To 0 +Equ WO_MAT_MET_WO_NO$ To 0 +Equ WO_MAT_MET_STAGE$ To 1 +Equ WO_MAT_MET_PROFILE$ To 2 +Equ WO_MAT_MET_PROP$ To 3 +Equ WO_MAT_MET_TOOL_CLASS$ To 4 +Equ WO_MAT_MET_RECIPE$ To 5 +Equ WO_MAT_MET_RECIPE_PATTERN$ To 6 +Equ WO_MAT_MET_MIN$ To 7 +Equ WO_MAT_MET_MAX$ To 8 +Equ WO_MAT_MET_SLOT$ To 9 +Equ WO_MAT_MET_SLOT_TEST$ To 10 +Equ WO_MAT_MET_RESULT$ To 11 +Equ WO_MAT_MET_SIG$ To 12 +Equ WO_MAT_MET_SIG_DTM$ To 13 +Equ WO_MAT_MET_STD_MAX$ To 14 +Equ WO_MAT_MET_STD_RESULT$ To 15 diff --git a/LSL2/STPROCINS/WO_MAT_QA_EQUATES.txt b/LSL2/STPROCINS/WO_MAT_QA_EQUATES.txt new file mode 100644 index 0000000..07fbc37 --- /dev/null +++ b/LSL2/STPROCINS/WO_MAT_QA_EQUATES.txt @@ -0,0 +1,38 @@ +compile insert WO_MAT_QA_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 03/12/2015 + Description : Insert for Table WO_MAT_QA +----------------------------------------*/ + + +Equ WO_MAT_QA_CASS_NO$ To 0 +Equ WO_MAT_QA_WO_NO$ To 0 +Equ WO_MAT_QA_STAGE$ To 1 +Equ WO_MAT_QA_PROFILE$ To 2 +Equ WO_MAT_QA_PROP$ To 3 +Equ WO_MAT_QA_TOOL_CLASS$ To 4 +Equ WO_MAT_QA_RECIPE$ To 5 +Equ WO_MAT_QA_RECIPE_PATTERN$ To 6 +Equ WO_MAT_QA_MIN$ To 7 +Equ WO_MAT_QA_MAX$ To 8 +Equ WO_MAT_QA_SLOT$ To 9 +Equ WO_MAT_QA_SLOT_TEST$ To 10 +Equ WO_MAT_QA_RESULT$ To 11 +Equ WO_MAT_QA_SIG$ To 12 +Equ WO_MAT_QA_SIG_DTM$ To 13 +Equ WO_MAT_QA_STD_MAX$ To 14 +Equ WO_MAT_QA_STD_RESULT$ To 15 +Equ WO_MAT_QA_WFR_QTY$ To 16 +Equ WO_MAT_QA_WFR_TYPE$ To 17 +Equ WO_MAT_QA_REACT_SCHED$ To 18 +Equ WO_MAT_QA_SHIP_DOC$ To 19 +Equ WO_MAT_QA_DATA_POINTS$ To 20 +Equ WO_MAT_QA_MIN_RESULT$ To 21 +Equ WO_MAT_QA_MAX_RESULT$ To 22 +Equ WO_MAT_QA_RANGE_PCT_RESULT$ To 23 +Equ WO_MAT_QA_EDGE_MEAN_RESULT$ To 24 +Equ WO_MAT_QA_5MM_PCT_RESULT$ To 25 +Equ WO_MAT_QA_OUT_OF_SPEC$ To 26 +Equ WO_MAT_QA_PHASE_MIN$ To 27 +Equ WO_MAT_QA_FAIL_REASON$ To 28 diff --git a/LSL2/STPROCINS/WO_MAT_QUEUE_EQUATES.txt b/LSL2/STPROCINS/WO_MAT_QUEUE_EQUATES.txt new file mode 100644 index 0000000..40c6aac --- /dev/null +++ b/LSL2/STPROCINS/WO_MAT_QUEUE_EQUATES.txt @@ -0,0 +1,11 @@ +compile insert WO_MAT_QUEUE_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 20/05/2021 + Description : Insert for Table WO_MAT_QUEUE +----------------------------------------*/ + + +Equ WO_MAT_QUEUE.CASS_NO$ To 0 +Equ WO_MAT_QUEUE.WO_NO$ To 0 +Equ WO_MAT_QUEUE.REQUEST_DTM$ To 1 diff --git a/LSL2/STPROCINS/WO_MAT_SIG_EQUATES.txt b/LSL2/STPROCINS/WO_MAT_SIG_EQUATES.txt new file mode 100644 index 0000000..c22e6c9 --- /dev/null +++ b/LSL2/STPROCINS/WO_MAT_SIG_EQUATES.txt @@ -0,0 +1,13 @@ +compile insert WO_MAT_SIG_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 28/04/2016 + Description : Insert for Table WO_MAT_SIG +----------------------------------------*/ + + +Equ WO_MAT_SIG_CASS_NO$ To 0 +Equ WO_MAT_SIG_SIG_STAGE$ To 0 +Equ WO_MAT_SIG_WO_NO$ To 0 +Equ WO_MAT_SIG_TOOL_CLASS$ To 1 +Equ WO_MAT_SIG_ACTION$ To 2 diff --git a/LSL2/STPROCINS/WO_MAT_WFR_EQUATES.txt b/LSL2/STPROCINS/WO_MAT_WFR_EQUATES.txt new file mode 100644 index 0000000..0715ff9 --- /dev/null +++ b/LSL2/STPROCINS/WO_MAT_WFR_EQUATES.txt @@ -0,0 +1,18 @@ +compile insert WO_MAT_WFR_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 28/05/2016 + Description : Insert for Table WO_MAT_WFR +----------------------------------------*/ + + +Equ WO_MAT_WFR_CASS_NO$ To 0 +Equ WO_MAT_WFR_WO_NO$ To 0 +Equ WO_MAT_WFR_OUT_WFR_ID$ To 1 +Equ WO_MAT_WFR_WFR_ID$ To 1 + +Equ WO_MAT_WFR_OUT_PREV_WFR_ID$ To 2 +Equ WO_MAT_WFR_PREV_WFR_ID$ To 2 + +Equ WO_MAT_WFR_IN_WFR_ID$ To 3 +Equ WO_MAT_WFR_IN_PREV_WFR_ID$ To 4 diff --git a/LSL2/STPROCINS/WO_MAT_WIP_EQUATES.txt b/LSL2/STPROCINS/WO_MAT_WIP_EQUATES.txt new file mode 100644 index 0000000..81c3582 --- /dev/null +++ b/LSL2/STPROCINS/WO_MAT_WIP_EQUATES.txt @@ -0,0 +1,13 @@ +compile insert WO_MAT_WIP_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 28/04/2016 + Description : Insert for Table WO_MAT_WIP +----------------------------------------*/ + + +Equ WO_MAT_WIP_CASS_NO$ To 0 +Equ WO_MAT_WIP_WIP_STAGE$ To 0 +Equ WO_MAT_WIP_WO_NO$ To 0 +Equ WO_MAT_WIP_TOOL$ To 1 +Equ WO_MAT_WIP_ACTION$ To 2 diff --git a/LSL2/STPROCINS/WO_REACT_EQUATES.txt b/LSL2/STPROCINS/WO_REACT_EQUATES.txt new file mode 100644 index 0000000..a3b77a5 --- /dev/null +++ b/LSL2/STPROCINS/WO_REACT_EQUATES.txt @@ -0,0 +1,13 @@ +compile insert WO_REACT_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 12/05/2015 + Description : Insert for Table WO_REACT +----------------------------------------*/ + + +Equ WO_REACT_REACT_NO$ To 0 +Equ WO_REACT_WO_NO$ To 0 +Equ WO_REACT_WO_STEP$ To 0 +Equ WO_REACT_RDS_NO$ To 1 +Equ WO_REACT_CASS_NO$ To 2 diff --git a/LSL2/STPROCINS/WO_SCHEDULER_INSERTS.txt b/LSL2/STPROCINS/WO_SCHEDULER_INSERTS.txt new file mode 100644 index 0000000..7020e74 --- /dev/null +++ b/LSL2/STPROCINS/WO_SCHEDULER_INSERTS.txt @@ -0,0 +1,13 @@ +Compile insert WO_SCHEDULER_INSERTS + +Equ Version$ to Xlate("CONFIG", "MSC_CONFIGURATION", 15, "X")<0,2> +Equ Auth.All$ to Xlate("CONFIG", "MSC_CONFIGURATION", 16, "X")<0,2> + +Equ SRP$ to @USER4 EQ "SRP_FRANK" +Equ CRLF$ to \0D0A\ +Equ Sched_Win$ to "WO_MASTER_SCHEDULER" +Equ Ctrl$ to Sched_Win$:".OLE_SCHEDULE" + + +Equ Wafer.Check.On$ to 1 +Equ Gas.Check.On$ to 0 diff --git a/LSL2/STPROCINS/WO_SCHEDULE_EQUATES.txt b/LSL2/STPROCINS/WO_SCHEDULE_EQUATES.txt new file mode 100644 index 0000000..7f34a0e --- /dev/null +++ b/LSL2/STPROCINS/WO_SCHEDULE_EQUATES.txt @@ -0,0 +1,11 @@ +compile insert WO_SCHEDULE_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 08/14/2017 + Description : Insert for Table WO_SCHEDULE +----------------------------------------*/ + + +Equ WO_SCHEDULE_WORK_ORDER_NO$ To 0 +Equ WO_SCHEDULE_SCHED_DET_KEY_IDS$ To 1 +Equ WO_SCHEDULE_UNSCHED_QTY$ To 2 diff --git a/LSL2/STPROCINS/WO_SCHEDULE_NG_EQUATES.txt b/LSL2/STPROCINS/WO_SCHEDULE_NG_EQUATES.txt new file mode 100644 index 0000000..7316423 --- /dev/null +++ b/LSL2/STPROCINS/WO_SCHEDULE_NG_EQUATES.txt @@ -0,0 +1,11 @@ +compile insert WO_SCHEDULE_NG_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 06/01/2021 + Description : Insert for Table WO_SCHEDULE_NG +----------------------------------------*/ + + +Equ WO_SCHEDULE_NG.WO_NO$ To 0 +Equ WO_SCHEDULE_NG.SCHED_DET_NG_KEYS$ To 1 +Equ WO_SCHEDULE_NG.UNSCHED_QTY$ To 2 diff --git a/LSL2/STPROCINS/WO_STEP_EQU.txt b/LSL2/STPROCINS/WO_STEP_EQU.txt new file mode 100644 index 0000000..bc4c335 --- /dev/null +++ b/LSL2/STPROCINS/WO_STEP_EQU.txt @@ -0,0 +1,26 @@ +compile insert WO_STEP_EQU + +* Equates for WO_STEP + +EQU WO_STEP_PROD_SPEC_ID$ TO 1 +EQU WO_STEP_REACTORS$ TO 2 +EQU WO_STEP_CYCLE_TIME$ TO 3 +EQU WO_STEP_SCHED_ID$ TO 4 +EQU WO_STEP_NOTES$ TO 5 +EQU WO_STEP_RDS_KEY$ TO 6 +EQU WO_STEP_ORG_WO$ TO 7 +EQU WO_STEP_PROC_STEP_DESC$ TO 8 +EQU WO_STEP_HOT_LOT$ TO 9 +EQU WO_STEP_MAKEUP_BOX$ TO 10 + +EQU WO_STEP_SCHED_DT$ TO 11 ;* Old name +EQU WO_STEP_TARGET_DT$ TO 11 ;* New name + +EQU WO_STEP_CUST_PART_NO$ TO 12 +EQU WO_STEP_RDS_CURR_STATUS$ TO 13 +EQU WO_STEP_SCHEDULED$ TO 14 +EQU WO_STEP_WM_IN_KEYS$ TO 15 +EQU WO_STEP_WM_OUT_KEYS$ TO 16 +EQU WO_STEP_SCHED_DTM$ TO 17 +EQU WO_STEP_BLOCKED_REACTORS$ TO 18 + diff --git a/LSL2/STPROCINS/WO_STEP_EQUATES.txt b/LSL2/STPROCINS/WO_STEP_EQUATES.txt new file mode 100644 index 0000000..d904cff --- /dev/null +++ b/LSL2/STPROCINS/WO_STEP_EQUATES.txt @@ -0,0 +1,34 @@ +compile insert WO_STEP_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 02/07/2014 + Description : Insert for Table WO_STEP +----------------------------------------*/ + + +Equ WO_STEP_PROC_STEP_NO$ To 0 +Equ WO_STEP_WO_NO$ To 0 +Equ WO_STEP_PROD_SPEC_ID$ To 1 +Equ WO_STEP_REACTORS$ To 2 +Equ WO_STEP_CYCLE_TIME$ To 3 +Equ WO_STEP_SCHED_ID$ To 4 +Equ WO_STEP_NOTES$ To 5 +Equ WO_STEP_RDS_KEY$ To 6 +Equ WO_STEP_ORG_WO$ To 7 +Equ WO_STEP_PROC_STEP_DESC$ To 8 +Equ WO_STEP_HOT_LOT$ To 9 +Equ WO_STEP_MAKEUP_BOX$ To 10 +Equ WO_STEP_SCHED_DT$ To 11 +Equ WO_STEP_TARGET_DT$ To 11 +Equ WO_STEP_CUST_PART_NO$ To 12 +Equ WO_STEP_RDS_CURR_STATUS$ To 13 +Equ WO_STEP_SCHEDULED$ To 14 +Equ WO_STEP_WM_IN_KEYS$ To 15 +Equ WO_STEP_WM_OUT_KEYS$ To 16 +Equ WO_STEP_SCHED_DTM$ To 17 +Equ WO_STEP_BLOCKED_REACTORS$ To 18 +Equ WO_STEP_PRE_SURFSCAN_RECIPE$ To 19 +Equ WO_STEP_FIRST_SURFSCAN_RECIPE$ To 20 +Equ WO_STEP_POST_CLEAN_SURFSCAN_RECIPE$ To 21 +Equ WO_STEP_SCHED_DET_KEYS$ To 22 +Equ WO_STEP_CURR_STATUS_STATIC$ To 23 diff --git a/LSL2/STPROCINS/WO_STEP_QUEUE_EQUATES.txt b/LSL2/STPROCINS/WO_STEP_QUEUE_EQUATES.txt new file mode 100644 index 0000000..d55a51a --- /dev/null +++ b/LSL2/STPROCINS/WO_STEP_QUEUE_EQUATES.txt @@ -0,0 +1,11 @@ +compile insert WO_STEP_QUEUE_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 20/05/2021 + Description : Insert for Table WO_STEP_QUEUE +----------------------------------------*/ + + +Equ WO_STEP_QUEUE.PROC_STEP_NO$ To 0 +Equ WO_STEP_QUEUE.WO_NO$ To 0 +Equ WO_STEP_QUEUE.REQUEST_DTM$ To 1 diff --git a/LSL2/STPROCINS/WO_VERIFY_EQU.txt b/LSL2/STPROCINS/WO_VERIFY_EQU.txt new file mode 100644 index 0000000..2cca1f3 --- /dev/null +++ b/LSL2/STPROCINS/WO_VERIFY_EQU.txt @@ -0,0 +1,15 @@ +compile insert WO_VERIFY_EQU +* Equates for WO_VERIFY created on 12/16/98 12:59PM + +equ WO_VERIFY_ENTRY_ID$ to 1 +equ WO_VERIFY_ENTRY_DATE$ to 2 +equ WO_VERIFY_DOPANT_CHK$ to 3 +equ WO_VERIFY_RECIPE_CHK$ to 4 +equ WO_VERIFY_INSTRUCTIONS_CHK$ to 5 +equ WO_VERIFY_SPC_CHK$ to 6 +equ WO_VERIFY_RECIPE_PARAM_CHK$ to 7 +equ WO_VERIFY_TECH_SIG$ to 8 +equ WO_VERIFY_TECH_SIG_TIME$ to 9 +equ WO_VERIFY_NOTES$ to 10 +equ WO_VERIFY_RDS_ID$ to 11 +equ WO_VERIFY_STATUS$ to 12 diff --git a/LSL2/STPROCINS/WO_WFR_EQUATES.txt b/LSL2/STPROCINS/WO_WFR_EQUATES.txt new file mode 100644 index 0000000..5671049 --- /dev/null +++ b/LSL2/STPROCINS/WO_WFR_EQUATES.txt @@ -0,0 +1,46 @@ +compile insert WO_WFR_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 25/08/2016 + Description : Insert for Table WO_WFR +----------------------------------------*/ + + +Equ WO_WFR_CASS_NO$ To 0 +Equ WO_WFR_SLOT$ To 0 +Equ WO_WFR_WO_NO$ To 0 +Equ WO_WFR_LOC_DTM$ To 1 +Equ WO_WFR_LOC_BY$ To 2 +Equ WO_WFR_LOC_EVENT$ To 3 +Equ WO_WFR_SLOT_ID$ To 4 +Equ WO_WFR_RUN_LOC$ To 5 +Equ WO_WFR_WMI_NCR_NO$ To 6 +Equ WO_WFR_TW_USE$ To 7 +Equ WO_WFR_CARR_SLOT$ To 8 +Equ WO_WFR_BROKEN$ To 9 +Equ WO_WFR_SHIP_FLAG$ To 10 +Equ WO_WFR_GRADE$ To 11 +Equ WO_WFR_GAN_RUN_ID$ To 13 +Equ WO_WFR_TOOL_ID$ To 14 +Equ WO_WFR_INV_LOC$ To 15 +Equ WO_WFR_WFR_SIDE$ To 17 +Equ WO_WFR_COMMENTS$ To 18 +Equ WO_WFR_RDS_NCR_NO$ To 19 +Equ WO_WFR_WMO_NCR_NO$ To 20 +Equ WO_WFR_WMI_NCR_SAP_DTM$ To 21 +Equ WO_WFR_RDS_NCR_SAP_DTM$ To 22 +Equ WO_WFR_WMO_NCR_SAP_DTM$ To 23 +Equ WO_WFR_TW_SAP_DTM$ To 24 +Equ WO_WFR_POCKET$ To 25 +Equ WO_WFR_SCRIBE$ To 26 +Equ WO_WFR_RETAIN_BOX$ To 27 +Equ WO_WFR_RETAIN_SLOT$ To 28 +Equ WO_WFR_RETAIN_LOC$ To 29 +Equ WO_WFR_RETAIN_COMMENT$ To 30 +Equ WO_WFR_RETAIN_STATUS$ To 31 +Equ WO_WFR_RETAIN_SIG$ To 32 +Equ WO_WFR_RETAIN_DT$ To 33 +Equ WO_WFR_DESTROY_SIG$ To 34 +Equ WO_WFR_DESTROY_DT$ To 35 +Equ WO_WFR_STATUS$ To 36 +Equ WO_WFR_CRITICAL_FAILURE$ To 37 diff --git a/LSL2/STPROCINS/WO_WFR_WIP_EQUATES.txt b/LSL2/STPROCINS/WO_WFR_WIP_EQUATES.txt new file mode 100644 index 0000000..d4a7264 --- /dev/null +++ b/LSL2/STPROCINS/WO_WFR_WIP_EQUATES.txt @@ -0,0 +1,15 @@ +compile insert WO_WFR_WIP_EQUATES +/*---------------------------------------- + Author : Table Create Insert Routine + Written : 13/06/2016 + Description : Insert for Table WO_WFR_WIP +----------------------------------------*/ + + +Equ WO_WFR_WIP_CASS_NO$ To 0 +Equ WO_WFR_WIP_SLOT$ To 0 +Equ WO_WFR_WIP_WO_NO$ To 0 +Equ WO_WFR_WIP_SIG_PROFILE$ To 2 +Equ WO_WFR_WIP_SIGNATURE$ To 3 +Equ WO_WFR_WIP_SIG_DTM$ To 4 +Equ WO_WFR_WIP_SIG_COMMENT$ To 5