added remaining LSL2 entities

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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<mtext$> = 'No records found meeting your criteria...' \r\n       MsgInfo<micon$> = '!'\r\n       Void = msg( '', MsgInfo )\r\n    end\r\n    Void = utility( 'CURSOR', 'A' )\r\nend else\r\n    MsgInfo = ''\r\n    MsgInfo<mtext$> = 'You have not entered any search criteria...' \r\n    MsgInfo<micon$> = '!'\r\n    Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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<mtext$> = 'No records found meeting your criteria...' \r\n       MsgInfo<micon$> = '!'\r\n       Void = msg( '', MsgInfo )\r\n    end\r\n    Void = utility( 'CURSOR', 'A' )\r\nend else\r\n    MsgInfo = ''\r\n    MsgInfo<mtext$> = 'You have not entered any search criteria...' \r\n    MsgInfo<micon$> = '!'\r\n    Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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<mtext$> = 'You must enter a date from and thru...'\r\n    MsgInfo<micon$> = '!'\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<mtext$> = 'Date From can not be greater than Date Thru...'\r\n    MsgInfo<micon$> = '!'\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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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<mtext$> = 'No records found meeting your criteria...' \r\n       MsgInfo<micon$> = '!'\r\n       Void = msg( '', MsgInfo )\r\n    end\r\n    Void = utility( 'CURSOR', 'A' )\r\nend else\r\n    MsgInfo = ''\r\n    MsgInfo<mtext$> = 'You have not entered any search criteria...' \r\n    MsgInfo<micon$> = '!'\r\n    Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n"
+        }
+    }
+}

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<mtext$> = '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<micon$> = '!'\r\nVoid = msg( '', MsgInfo )\r\nRETURN 0"
+        }
+    }
+}

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<mtext$> = 'This CAR has already been signed by the responsible person, as being in place.'\r\n    MsgInfo<micon$> = '!'\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<mtext$> = 'This CAR must be signed by you and the VP of Manufacturing, before being in place.'\r\n\t\t\tMsgInfo<micon$> = 'H'\r\n\t\t\tVoid = msg( '', MsgInfo )\r\n\t\tend\r\n\tend else\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo<mtext$> = 'You are not the responsible person...'\r\n\t\tMsgInfo<micon$> = 'H'\r\n\t\tVoid = msg( '', MsgInfo )\r\n\tend\r\nend\r\nreturn 0\r\n"
+        }
+    }
+}

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<mtext$> = 'This CAR has already been signed by the responsible person.'\r\n    MsgInfo<micon$> = '!'\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<VipMfg$>\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<mtext$> = 'You must select a confirmation status of \"Confirmed\" or \"Unconfirmed\"...'\r\n\t\t\tMsgInfo<micon$> = 'H'\r\n\t\t\tVoid = msg( '', MsgInfo )\r\n\t\tend\r\n\tend else\r\n\t\tMsgInfo = ''\r\n\t\tMsgInfo<mtext$> = 'You are not the responsible person...'\r\n\t\tMsgInfo<micon$> = 'H'\r\n\t\tVoid = msg( '', MsgInfo )\r\n\tend\r\nend\r\nreturn 0\r\n"
+        }
+    }
+}

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<mtext$> = 'This CAR has already been verified by the VP of manufacturing.'\r\n    MsgInfo<micon$> = '!'\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<VipMfg$>\r\n\t   VipPwd          = SignatureInfo<VipMfgPwd$>\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<mtext$> = 'You are not the VP of manufacturing...'\r\n\t\t  MsgInfo<micon$> = 'H'\r\n\t\t  Void = msg( '', MsgInfo )\r\n       end\r\n    end else\r\n       MsgInfo = ''\r\n\t   MsgInfo<mtext$> = 'You can not verify the CAR until it has been in place.'\r\n       MsgInfo<micon$> = 'H'\r\n       Void = msg( '', MsgInfo )\r\n    end\r\nend\r\nreturn 0"
+        }
+    }
+}

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<mtext$> = 'This CAR has already been signed by the VP of manufacturing.'\r\n    MsgInfo<micon$> = '!'\r\n    Void = msg( '', MsgInfo )\r\nend else\r\n\tSignatureInfo = xlate( 'CONFIG', 'QUOTE_SIGS', '', 'X' )\r\n\tVipMfg          = SignatureInfo<VipMfg$>\r\n\tVipPwd          = SignatureInfo<VipMfgPwd$>\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<mtext$> = 'You must select a confirmation status of \"Confirmed\" or \"Unconfirmed\"...'\r\n\t\t\tMsgInfo<micon$> = '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<mtext$> = 'You are not the VP of manufacturing...'\r\n\t\tMsgInfo<micon$> = 'H'\r\n\t\tVoid = msg( '', MsgInfo )\r\n\tend\r\nend\r\nreturn 0"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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<mtext$> = 'This RMA has already been signed by an engineer or production personnel.'\r\n    MsgInfo<micon$> = '!'\r\n    Void = msg( '', MsgInfo )\r\nend else\r\n\tSignatureInfo = xlate( 'CONFIG', 'QUOTE_SIGS', '', 'X' )\r\n\tUsers         = SignatureInfo<PSNPreProdSigs$>\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<mtext$> = 'You are not an authorized Engineering/Production signer...'\r\n\t\tMsgInfo<micon$> = 'H'\r\n\t\tVoid = msg( '', MsgInfo )\r\n\tend\r\nend\r\nreturn 0\r\n"
+        }
+    }
+}

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<mtext$> = 'Are you sure you wish to remove ALL RMA information???'\r\nMsgInfo<mtype$> = 'BNY'\r\nMsgInfo<micon$> = '?'\r\nResp = msg( '', MsgInfo )\r\nif Resp = 1 then\r\n   end_dialog( @window, 'REMOVEALL' )\r\nend\r\nRETURN 0"
+        }
+    }
+}

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"
+        }
+    }
+}

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<mtext$> = 'You must select either \"Sample\" or \"Lot\" under product returned.'\r\n   MsgInfo<micon$> = '!'\r\n   Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
+        }
+    }
+}

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<mtext$> = 'No records found meeting your criteria...' \r\n       MsgInfo<micon$> = '!'\r\n       Void = msg( '', MsgInfo )\r\n    end\r\n    Void = utility( 'CURSOR', 'A' )\r\nend else\r\n    MsgInfo = ''\r\n    MsgInfo<mtext$> = 'You have not entered any search criteria...' \r\n    MsgInfo<micon$> = '!'\r\n    Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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<mtext$> = 'You must have a from date or a thru date.'\r\n    MsgInfo<micon$> = '!'\r\n    Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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<mtext$> = 'You must have a from date or a thru date.'\r\n    MsgInfo<micon$> = '!'\r\n    Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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<mtext$> = 'This log has already been signed.'\r\n    MsgInfo<micon$> = '!'\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"
+        }
+    }
+}

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"
+        }
+    }
+}

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<mtext$> = 'No records found meeting your criteria...' \r\n       MsgInfo<micon$> = '!'\r\n       Void = msg( '', MsgInfo )\r\n    end\r\n    Void = utility( 'CURSOR', 'A' )\r\nend else\r\n    MsgInfo = ''\r\n    MsgInfo<mtext$> = 'You have not entered any search criteria...' \r\n    MsgInfo<micon$> = '!'\r\n    Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n"
+        }
+    }
+}

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"
+        }
+    }
+}

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<mtext$> = 'You need to save this COC before printing.'\r\n\t   MsgInfo<micon$> = '!'\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"
+        }
+    }
+}

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<mtext$> = 'You need to save this COC before printing.'\r\n\t   MsgInfo<micon$> = '!'\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"
+        }
+    }
+}

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<mtext$> = 'You need to save this COC before printing.'\r\n\t   MsgInfo<micon$> = '!'\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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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<CocNo$>\r\n   CustNo = TextFields<CustNo$>\r\n   CustName = TextFields<CustName$>\r\n   Division = TextFields<Division$>\r\n   Po       = TextFields<Po$>\r\n   Wo       = TextFields<Wo$>\r\n   Shipment = TextFields<Shipment$>\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*===========================================================================*"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}

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<mtext$> = 'No records found meeting your criteria...' \r\n       MsgInfo<micon$> = '!'\r\n       Void = msg( '', MsgInfo )\r\n    end\r\n    Void = utility( 'CURSOR', 'A' )\r\nend else\r\n    MsgInfo = ''\r\n    MsgInfo<mtext$> = 'You have not entered any search criteria...' \r\n    MsgInfo<micon$> = '!'\r\n    Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n"
+        }
+    }
+}

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"
+        }
+    }
+}

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"
+        }
+    }
+}