added remaining LSL2 entities
This commit is contained in:
11
LSL2/OIEVENT/DELETE/ANNUAL_CONTRACTS..json
Normal file
11
LSL2/OIEVENT/DELETE/ANNUAL_CONTRACTS..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/ANN_CONT..json
Normal file
11
LSL2/OIEVENT/DELETE/ANN_CONT..json
Normal file
@ -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')"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/ASM_PART..json
Normal file
11
LSL2/OIEVENT/DELETE/ASM_PART..json
Normal file
@ -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')"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/ASSIGN_CAUSE..json
Normal file
11
LSL2/OIEVENT/DELETE/ASSIGN_CAUSE..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/ATTENDANCE..json
Normal file
11
LSL2/OIEVENT/DELETE/ATTENDANCE..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/CALL_VISIT..json
Normal file
11
LSL2/OIEVENT/DELETE/CALL_VISIT..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/CAR..json
Normal file
11
LSL2/OIEVENT/DELETE/CAR..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/CDM_LOG..json
Normal file
11
LSL2/OIEVENT/DELETE/CDM_LOG..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/COA..json
Normal file
11
LSL2/OIEVENT/DELETE/COA..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "DECLARE FUNCTION Comm_COA\r\nRETURN Comm_COA('Delete')"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/COC..json
Normal file
11
LSL2/OIEVENT/DELETE/COC..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/COMPANY..json
Normal file
11
LSL2/OIEVENT/DELETE/COMPANY..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/CUSTOMER_EPI..json
Normal file
11
LSL2/OIEVENT/DELETE/CUSTOMER_EPI..json
Normal file
@ -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')"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/CUST_INQUIRY..json
Normal file
11
LSL2/OIEVENT/DELETE/CUST_INQUIRY..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/DBW_WO_LOG..json
Normal file
11
LSL2/OIEVENT/DELETE/DBW_WO_LOG..json
Normal file
@ -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')"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/DESIG_ERR_GRP..json
Normal file
11
LSL2/OIEVENT/DELETE/DESIG_ERR_GRP..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/EPI_SUSCEPTOR..json
Normal file
11
LSL2/OIEVENT/DELETE/EPI_SUSCEPTOR..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "DECLARE FUNCTION Comm_Epi_Susceptor\r\nRETURN Comm_Epi_Susceptor('Delete')"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/GAN_PROD_SPEC..json
Normal file
11
LSL2/OIEVENT/DELETE/GAN_PROD_SPEC..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/GAS_SRC..json
Normal file
11
LSL2/OIEVENT/DELETE/GAS_SRC..json
Normal file
@ -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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/HOTH2O2_LOG..json
Normal file
11
LSL2/OIEVENT/DELETE/HOTH2O2_LOG..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/ICAR..json
Normal file
11
LSL2/OIEVENT/DELETE/ICAR..json
Normal file
@ -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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/INVOICE..json
Normal file
11
LSL2/OIEVENT/DELETE/INVOICE..json
Normal file
@ -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<I,3>\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<N,SchedNo$>\r\n\t\t\t\t\tSetupCharge\t\t= DeletedRows<N,Setup$>\r\n\t\t\t\t\tSRPCharge\t\t= DeletedRows<N,Srp$>\r\n\t\t\t\t\tShipQty\t\t\t= DeletedRows<N,Qty$>\r\n\t\t\t\t\tShipPrice\t\t= DeletedRows<N,Price$>\r\n\t\t\t\t\tRejects\t\t\t= DeletedRows<N,Rejects$>\r\n\t\t\t\t\tUnprocessed\t\t= DeletedRows<N,Unprocessed$>\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<I>\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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/LAST_WFR_CI_GROUP..json
Normal file
11
LSL2/OIEVENT/DELETE/LAST_WFR_CI_GROUP..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/LOSS_CODES..json
Normal file
11
LSL2/OIEVENT/DELETE/LOSS_CODES..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/MASTER_DISK_LOG..json
Normal file
11
LSL2/OIEVENT/DELETE/MASTER_DISK_LOG..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/MEG_LOG..json
Normal file
11
LSL2/OIEVENT/DELETE/MEG_LOG..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/MFC..json
Normal file
11
LSL2/OIEVENT/DELETE/MFC..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "DECLARE FUNCTION Comm_MFC\r\n\r\nRETURN Comm_MFC('Delete')"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/MSG_GROUPS..json
Normal file
11
LSL2/OIEVENT/DELETE/MSG_GROUPS..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/NAMES..json
Normal file
11
LSL2/OIEVENT/DELETE/NAMES..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/NCR..json
Normal file
11
LSL2/OIEVENT/DELETE/NCR..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "DECLARE Function Comm_NCR\r\n\r\nRETURN Comm_NCR('Delete')"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/NDA..json
Normal file
11
LSL2/OIEVENT/DELETE/NDA..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/ORDER..json
Normal file
11
LSL2/OIEVENT/DELETE/ORDER..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/ORDER2..json
Normal file
11
LSL2/OIEVENT/DELETE/ORDER2..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "DECLARE Function Comm_Order\r\n\r\nRETURN Comm_Order('Delete')"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/ORDER_DET..json
Normal file
11
LSL2/OIEVENT/DELETE/ORDER_DET..json
Normal file
@ -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')"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/PHOTOFLO_LOG..json
Normal file
11
LSL2/OIEVENT/DELETE/PHOTOFLO_LOG..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/PROD_ORD..json
Normal file
11
LSL2/OIEVENT/DELETE/PROD_ORD..json
Normal file
@ -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')"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/PROD_SPEC..json
Normal file
11
LSL2/OIEVENT/DELETE/PROD_SPEC..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/PROD_SPEC_BACKUP..json
Normal file
11
LSL2/OIEVENT/DELETE/PROD_SPEC_BACKUP..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/PROD_SPEC_COSTING..json
Normal file
11
LSL2/OIEVENT/DELETE/PROD_SPEC_COSTING..json
Normal file
@ -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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/PROD_SPEC_JCH..json
Normal file
11
LSL2/OIEVENT/DELETE/PROD_SPEC_JCH..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/PROD_SPEC_JRO..json
Normal file
11
LSL2/OIEVENT/DELETE/PROD_SPEC_JRO..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/PRS_LAYER..json
Normal file
11
LSL2/OIEVENT/DELETE/PRS_LAYER..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "DECLARE FUNCTION Comm_PRS_Layer\r\nRETURN Comm_PRS_Layer(CtrlEntID,'DELETE')"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/PRS_PROP..json
Normal file
11
LSL2/OIEVENT/DELETE/PRS_PROP..json
Normal file
@ -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')"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/PRS_STAGE..json
Normal file
11
LSL2/OIEVENT/DELETE/PRS_STAGE..json
Normal file
@ -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')"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/QUARTZ_TC_LOG..json
Normal file
11
LSL2/OIEVENT/DELETE/QUARTZ_TC_LOG..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/QUARTZ_WAND_LOG..json
Normal file
11
LSL2/OIEVENT/DELETE/QUARTZ_WAND_LOG..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/QUOTE..json
Normal file
11
LSL2/OIEVENT/DELETE/QUOTE..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/QUOTE2..json
Normal file
11
LSL2/OIEVENT/DELETE/QUOTE2..json
Normal file
@ -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')"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/QUOTE_OLD..json
Normal file
11
LSL2/OIEVENT/DELETE/QUOTE_OLD..json
Normal file
@ -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<micon$> = 'H'\r\nMsgInfo<mtext$> = 'Deletion is not allowed on \"OLD QUOTES\"'\r\nVoid = msg( '', MsgInfo )\r\nreturn 0\r\n"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/QUOTE_SRL..json
Normal file
11
LSL2/OIEVENT/DELETE/QUOTE_SRL..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/RDS..json
Normal file
11
LSL2/OIEVENT/DELETE/RDS..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/RDS_LAYER..json
Normal file
11
LSL2/OIEVENT/DELETE/RDS_LAYER..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "DECLARE FUNCTION Comm_RDS_Layer\r\nRETURN Comm_RDS_Layer('Delete')"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/RDS_POST_EPI..json
Normal file
11
LSL2/OIEVENT/DELETE/RDS_POST_EPI..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/RDS_PRE_EPI..json
Normal file
11
LSL2/OIEVENT/DELETE/RDS_PRE_EPI..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/RDS_PRE_EPI_ORG..json
Normal file
11
LSL2/OIEVENT/DELETE/RDS_PRE_EPI_ORG..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/RDS_TEST..json
Normal file
11
LSL2/OIEVENT/DELETE/RDS_TEST..json
Normal file
@ -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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/RDS_UNLOAD..json
Normal file
11
LSL2/OIEVENT/DELETE/RDS_UNLOAD..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/REACTOR..json
Normal file
11
LSL2/OIEVENT/DELETE/REACTOR..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "DECLARE FUNCTION Comm_Reactor\r\n\r\nRETURN Comm_Reactor('Delete')"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/REACTOR_LOG..json
Normal file
11
LSL2/OIEVENT/DELETE/REACTOR_LOG..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "DECLARE FUNCTION Comm_Reactor_Log\r\nRETURN Comm_Reactor_Log(CtrlEntId,'DELETE')"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/REACTOR_LOG_AREV..json
Normal file
11
LSL2/OIEVENT/DELETE/REACTOR_LOG_AREV..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/REACTOR_PM..json
Normal file
11
LSL2/OIEVENT/DELETE/REACTOR_PM..json
Normal file
@ -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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/REACTOR_RO..json
Normal file
11
LSL2/OIEVENT/DELETE/REACTOR_RO..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "DECLARE FUNCTION Comm_Reactor\r\n\r\nRETURN Comm_Reactor('Delete')"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/REACT_EVENT..json
Normal file
11
LSL2/OIEVENT/DELETE/REACT_EVENT..json
Normal file
@ -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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/REACT_ITEMS..json
Normal file
11
LSL2/OIEVENT/DELETE/REACT_ITEMS..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/REACT_PROBS..json
Normal file
11
LSL2/OIEVENT/DELETE/REACT_PROBS..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/REACT_PROB_CAT..json
Normal file
11
LSL2/OIEVENT/DELETE/REACT_PROB_CAT..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/REACT_SERVS..json
Normal file
11
LSL2/OIEVENT/DELETE/REACT_SERVS..json
Normal file
@ -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')"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/REACT_TUBE..json
Normal file
11
LSL2/OIEVENT/DELETE/REACT_TUBE..json
Normal file
@ -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')"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/RECIPE..json
Normal file
11
LSL2/OIEVENT/DELETE/RECIPE..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/RECIPE_PARMS..json
Normal file
11
LSL2/OIEVENT/DELETE/RECIPE_PARMS..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "DECLARE FUNCTION Comm_RDS_Layer\r\nRETURN Comm_RDS_Layer('Delete')"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/SAP_SHIPMENT..json
Normal file
11
LSL2/OIEVENT/DELETE/SAP_SHIPMENT..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "DECLARE Function Comm_SAP_Shipment\r\nRETURN Comm_SAP_Shipment('Delete')"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/SCHEDULE..json
Normal file
11
LSL2/OIEVENT/DELETE/SCHEDULE..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/SCHEDULE_SRL..json
Normal file
11
LSL2/OIEVENT/DELETE/SCHEDULE_SRL..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/SEMI_LOG..json
Normal file
11
LSL2/OIEVENT/DELETE/SEMI_LOG..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/SHIPMENT..json
Normal file
11
LSL2/OIEVENT/DELETE/SHIPMENT..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "DECLARE Function Comm_Shipment\r\nRETURN Comm_Shipment('Delete')"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/SPC_CLEAN_HF..json
Normal file
11
LSL2/OIEVENT/DELETE/SPC_CLEAN_HF..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/SPC_CLEAN_HF_AKRION..json
Normal file
11
LSL2/OIEVENT/DELETE/SPC_CLEAN_HF_AKRION..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/SPC_CLEAN_HF_ETCH..json
Normal file
11
LSL2/OIEVENT/DELETE/SPC_CLEAN_HF_ETCH..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/SPC_CLEAN_HF_ETCH_AKRION..json
Normal file
11
LSL2/OIEVENT/DELETE/SPC_CLEAN_HF_ETCH_AKRION..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/SPC_CLEAN_SC1..json
Normal file
11
LSL2/OIEVENT/DELETE/SPC_CLEAN_SC1..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/SPC_CLEAN_SRD..json
Normal file
11
LSL2/OIEVENT/DELETE/SPC_CLEAN_SRD..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/SPC_EVAL_4PP..json
Normal file
11
LSL2/OIEVENT/DELETE/SPC_EVAL_4PP..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/SPC_EVAL_ADE..json
Normal file
11
LSL2/OIEVENT/DELETE/SPC_EVAL_ADE..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/SPC_EVAL_FTIR..json
Normal file
11
LSL2/OIEVENT/DELETE/SPC_EVAL_FTIR..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/SPC_REACTOR_PARTICLES..json
Normal file
11
LSL2/OIEVENT/DELETE/SPC_REACTOR_PARTICLES..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/SPC_WAFER_ETCH..json
Normal file
11
LSL2/OIEVENT/DELETE/SPC_WAFER_ETCH..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/SRP_COC_RESULTS..json
Normal file
11
LSL2/OIEVENT/DELETE/SRP_COC_RESULTS..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/SRP_INCOMING_LOG..json
Normal file
11
LSL2/OIEVENT/DELETE/SRP_INCOMING_LOG..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/SUB_REC_LOG..json
Normal file
11
LSL2/OIEVENT/DELETE/SUB_REC_LOG..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/TW_CODES..json
Normal file
11
LSL2/OIEVENT/DELETE/TW_CODES..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/TW_PRIME_USAGE..json
Normal file
11
LSL2/OIEVENT/DELETE/TW_PRIME_USAGE..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/TW_USAGE..json
Normal file
11
LSL2/OIEVENT/DELETE/TW_USAGE..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/TW_USE..json
Normal file
11
LSL2/OIEVENT/DELETE/TW_USE..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "DECLARE FUNCTION Comm_TW_Use\r\nRETURN Comm_TW_Use(CtrlEntID,'DELETE')"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/WAFER_INV..json
Normal file
11
LSL2/OIEVENT/DELETE/WAFER_INV..json
Normal file
@ -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<i>\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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/WM_IN..json
Normal file
11
LSL2/OIEVENT/DELETE/WM_IN..json
Normal file
@ -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"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/WM_OUT..json
Normal file
11
LSL2/OIEVENT/DELETE/WM_OUT..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "DECLARE FUNCTION Comm_WM_Out\r\nRETURN Comm_WM_Out('Delete')"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/WO_LOG..json
Normal file
11
LSL2/OIEVENT/DELETE/WO_LOG..json
Normal file
@ -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<i>\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*/"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/WO_LOG2..json
Normal file
11
LSL2/OIEVENT/DELETE/WO_LOG2..json
Normal file
@ -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')"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/WO_LOG2_DPC..json
Normal file
11
LSL2/OIEVENT/DELETE/WO_LOG2_DPC..json
Normal file
@ -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')"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/WO_MAT..json
Normal file
11
LSL2/OIEVENT/DELETE/WO_MAT..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "DECLARE FUNCTION COMM_WO_MAT\r\nRETURN Comm_WO_Mat('Delete')"
|
||||
}
|
||||
}
|
||||
}
|
11
LSL2/OIEVENT/DELETE/WO_MAT_GAN..json
Normal file
11
LSL2/OIEVENT/DELETE/WO_MAT_GAN..json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "DECLARE FUNCTION WO_Mat_Gan\r\nRETURN WO_MAT_GAN(@WINDOW,'DELETE')"
|
||||
}
|
||||
}
|
||||
}
|
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user