phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added remaining LSL2 entities

Browse Source
This commit is contained in:
Infineon\StieberD
2024-03-25 15:12:53 -07:00
parent 15b25a611c
commit 81e4baccb1
4474 changed files with 99825 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
LSL2/OIEVENT/READ/ANNUAL_CONTRACTS..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'ANNUAL_CONTRACTS', .contract_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'Annual Contracts', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Annual Contracts', Write$ )\t \r\n\t ReadOk = false$\r\n\t .contract_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n ContractNo = .contract_no->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/CUST_NAME/DIVISION/CONTACT_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'ANNUAL_CONTRACTS', ContractNo ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'Annual Contracts', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t \r\n\t end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/ANN_CONT..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "DECLARE SUBROUTINE Comm_Ann_Cont\r\n\r\nComm_Ann_Cont('Read')\t;* Triggers PreRead Method and forwards read event\r\n\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/ASSIGN_CAUSE..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists, scroll_enable\r\ndeclare function fieldcount, send_event\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'ASSIGN_CAUSE', .assign_cause_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'Assign Cause', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Assign Cause', Write$ )\t \r\n\t ReadOk = false$\r\n\t .assign_cause_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n AssignId = .assign_cause_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/DESIG_ERR_GRP_DESC'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'ASSIGN_CAUSE', AssignId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'Assign Cause', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\nend\r\nRETURN 0\r\n"
}
}
}

11
LSL2/OIEVENT/READ/ATTENDANCE..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'ATTENDANCE', .absent_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new, do they have write rights?\r\n if security_check( 'Attendance', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Attendance', Write$ )\t \r\n\t ReadOk = false$\r\n\t .absent_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n AbsentId = .absent_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/EMPLOYEE_NAME/SUPERVISOR_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'ATTENDANCE', AbsentId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'Attendance', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/CALL_VISIT..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'CALL_VISIT', .call_visit_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'Call Visit', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Call Visit', Write$ )\t \r\n\t ReadOk = false$\r\n\t .call_visit_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n CallVisitID = .call_visit_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/CUST_NAME/DIVISION'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'CALL_VISIT', CallVisitID ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n AtArray = @user4:@vm\r\n AtArray<-1> = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):@vm\r\n .attended_by->array = AtArray\r\n end \r\n if NewRecord else\r\n\t if security_check( 'Call Visit', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/CAR..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists, scroll_enable\r\ndeclare function fieldcount, send_event\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert quote_sigs_equ\r\n\r\nNewRecord = false$\r\nif rowexists( 'CAR', .car_ref_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'CAR', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'CAR', Write$ )\t \r\n\t ReadOk = false$\r\n\t .car_ref_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n CarRefId = .car_ref_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/CUST_NAME/DIVISION/STATUS/'\r\n ProtectVar:= 'RESP_USER_NAME/RESP_SIGNATURE/RESP_SIGNATURE_NAME/CAR_INPLACE_SIGNATURE/'\r\n ProtectVar:= 'CAR_INPLACE_SIGNATURE_NAME/VIP_MFG_SIGNATURE/VIP_MFG_SIGNATURE_NAME/'\r\n ProtectVar:= 'CAR_VERIFIED_SIGNATURE/CAR_VERIFIED_SIGNATURE_NAME/CUST_REV/CUST_SPEC/'\r\n ProtectVar:= 'CONTACT_NAME/CAR_INPLACE_DATE/RMA_SPECIAL_INST/RMA_ENG_COMMENTS/RMA_INFO1/'\r\n ProtectVar:= 'RMA_INFO2/ACCT_REP'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n Void = set_property( @window, '@OrigEstLossValue', .est_loss_value->text )\r\n *Void = set_property( @window, '@OrigServRep', .accountreps->text )\r\n if ( .rma_info2->array<1,1> <> '' ) then\r\n * there is rma info in the CAR so change button to Edit RMA Info...\r\n .rma_button->text = 'Edit RMA Info...'\r\n end else\r\n .rma_button->text = 'Define RMA Info...' \r\n end\r\n if NewRecord then\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n .confirm_status->value = '' \r\n end else\r\n Void = set_property( @window, '@OrigRespUserID', .resp_user_id->text ) \r\n if .ant_car_inplace_date->text <> '' then\r\n * there is an inplace date protect unless it is the vp of manufacturing\r\n SignatureInfo = xlate( 'CONFIG', 'QUOTE_SIGS', '', 'X' )\r\n\t VipMfg = SignatureInfo<VipMfg$>\r\n if @user4 = VipMfg else\r\n .ant_car_inplace_date->enabled = false$ \r\n end\r\n end else\r\n .ant_car_inplace_date->enabled = true$\r\n end\r\n end \r\n if .resp_user_id->text <> '' and ( oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ) <> .entry_id->text ) then\r\n * if there is a responsible user defined and this is not the person who entered it then\r\n * protect the responsible person, so someone cannot change\r\n .resp_user_id->enabled = 0\r\n end \r\n if .status->value = 'V' then\r\n * it is verified do not let them change the confirm or unconfirm status\r\n .confirm_status->enabled = false$\r\n end else\r\n .confirm_status->enabled = true$\r\n end\r\n if NewRecord else\r\n\t if security_check( 'CAR', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/CDM_LOG..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\nNewRecord = false$\r\nif rowexists( 'CDM_LOG', .log_no->text ) then\r\n ReadOk = true$; *anyone can look at the log\r\nend else\r\n * user is trying to add new, do they have write rights?\r\n if security_check( 'CDM Log', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'CDM Log', Write$ )\t \r\n\t ReadOk = false$\r\n\t .log_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n LogNumber = .log_no->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/TECH_SIG/TECH_SIG_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'CDM_LOG', LogNumber ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'CDM Log', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/COC..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert msg_equates\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'COC', .coc_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new don't allow ( only create via order )\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'COC records are only created when shipping.'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\t \r\n ReadOk = false$\r\n .coc_no->text = ''\r\n Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n COCNo = .coc_no->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/CUST_NO/CUST_NAME/DIVISION/'\r\n ProtectVar:= 'PO/WO/SHIPMENT'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 ) \r\n * add all other protected fields\r\n if rowexists( 'COC', COCNo ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'COC', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/COMPANY..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\nNewRecord = false$\r\nif rowexists( 'COMPANY', .co_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'Company', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Company', Write$ )\t \r\n\t ReadOk = false$\r\n\t .co_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n if rowexists( 'COMPANY', .co_no->text ) then\r\n if .co_type->value = 'O' THEN\r\n .co_type->enabled = 1 \r\n end else\r\n .co_type->enabled = 0\r\n end\r\n end else\r\n .co_type->enabled = 1\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n .entry_id->enabled = 0\r\n .entry_date->enabled = 0\r\n Void = company_comm( 'SET_FIELDS' )\r\n if NewRecord else\r\n\t if security_check( 'Company', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = set_property( @window:'.CONTACT_NAMES', 'ENABLED', 1 )\r\n\t Void = set_property( @window:'.QUOTE_BUTTON', 'ENABLED', 1 ) \r\n\t Void = set_property( @window:'.AC_BUTTON', 'ENABLED', 1 )\r\n\t Void = set_property( @window:'.WI_BUTTON', 'ENABLED', 1 )\r\n\t Void = set_property( @window:'.ORDER_BUTTON', 'ENABLED', 1 )\r\n\t Void = set_property( @window:'.INVOICE_BUTTON', 'ENABLED', 1 )\r\n\t Void = set_property( @window:'.CALL_VISIT_BUTTON', 'ENABLED', 1 )\r\n\t Void = set_property( @window:'.PROD_SPEC_BUTTON', 'ENABLED', 1 )\r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\nend\r\nreturn 0"
}
}
}

11
LSL2/OIEVENT/READ/CUSTOMER_EPI..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "DECLARE Subroutine Comm_Customer_EPI\r\nComm_Customer_EPI('Read')\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/CUST_INQUIRY..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'CUST_INQUIRY', .cust_inquiry_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'Cust Inquiry', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Cust Inquiry', Write$ )\t \r\n\t ReadOk = false$\r\n\t .cust_inquiry_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n CustInquiryID = .cust_inquiry_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/CUST_NAME/DIVISION/CUST_PART_NUM/CUST_SPEC_NUM/CUST_REV_NUM/'\r\n ProtectVar:= 'ENG_SIGNATURE/MKT_SIGNATURE'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'CUST_INQUIRY', CustInquiryID ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n Void = set_property( @window, '@OrigEngSig', .eng_signature->text ) \r\n if NewRecord else\r\n\t if security_check( 'Cust Inquiry', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/DESIG_ERR_GRP..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'DESIG_ERR_GRP', .desig_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'Desig Err Grp', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Desig Err Grp', Write$ )\t \r\n\t ReadOk = false$\r\n\t .desig_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n DesigId = .desig_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'DESIG_ERR_GRP', DesigId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'Desig Err Grp', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/EXPORT3..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, rlist\r\ndeclare function msg, rowexists, post_event, fieldcount\r\n$insert rlist_equates\r\n$insert msg_equates\r\n$insert logical\r\n$insert exports_equ\r\n\r\nEid = .export_name->text\r\nif rowexists( 'EXPORTS', Eid ) then\r\n * ok now did this user enter it or is Heather trying to snoop\r\n Erec = xlate( 'EXPORTS', Eid, '', '' )\r\n ReadOk = false$\r\n if Erec<exports_sharable$> or get_property( @window, '@SystemGenerated' ) then\r\n ReadOk = true$\r\n end else\r\n if @user4 = xlate( 'EXPORTS', Eid, exports_entry_id$, '' ) then\r\n ReadOk = true$\r\n end\r\n end\r\n if ReadOk then\r\n forward_event() \r\n if .exporttablenames->text = 'REACT_UTIL' then\r\n .UTIL_START->VISIBLE = 1\r\n .UTIL_END->VISIBLE = 1\r\n .UTIL_START_LABEL->VISIBLE = 1\r\n .UTIL_END_LABEL->VISIBLE = 1\r\n end else\r\n .UTIL_START->VISIBLE = 0\r\n .UTIL_END->VISIBLE = 0\r\n .UTIL_START_LABEL->VISIBLE = 0\r\n .UTIL_END_LABEL->VISIBLE = 0\r\n end \r\n\t\tTtable = .exporttablenames->text\r\n \tColumns = ''\t\t\r\n\t\tif Ttable then\r\n\t\t\tDictTable = 'DICT.':Ttable\r\n\t\t\tVoid = utility( 'CURSOR', 'H' )\r\n\t\t\tCmd = \"SELECT \":DictTable:\" BY @ID WITH F1 = 'F' 'S'\"\r\n\t\t\trlist( Cmd, target_activelist$, '', '', '' )\r\n\t\t\tif @reccount then\r\n\t\t\t Eof = false$\r\n\t\t\t loop\r\n\t\t\t readnext DictId else Eof = true$\r\n\t\t\t until Eof\r\n\t\t\t Columns := DictId:@vm\r\n\t\t\t repeat\r\n\t\t\t Columns[-1,1] = ''\r\n\t\t\t Void = set_property( @window, '@Columns', Columns )\r\n\t\t\tend \r\n\t\t\tCmd = \"SELECT \":DictTable:\" USING EXPORTS BY @ID WITH F6 = 1\"\r\n\t\t\trlist( Cmd, target_activelist$, '', '', '' )\r\n\t\t\tBtreeColumns = ''\r\n\t\t\tif @reccount then\r\n\t\t\t Eof = false$\r\n\t\t\t\tloop\r\n\t\t\t\t readnext DictId else Eof = true$\r\n\t\t\t\t until Eof\r\n\t\t\t\t BtreeColumns := DictId:@vm\r\n\t\t\t\trepeat\r\n\t\t\t\tBtreeColumns[-1,1] = ''\r\n\t\t\t\tVoid = set_property( @window, '@BtreeColumns', BtreeColumns )\r\n\t\t\tend else\r\n\t\t\t * no btree columns\r\n\t\t\tend\r\n\t\t\tVoid = utility( 'CURSOR', 'A' )\r\n\t\tend\r\n QColumns = Columns\r\n BcCnt = fieldcount( BtreeColumns, @vm )\r\n for i = 1 to BcCnt\r\n locate BtreeColumns<1,i> in QColumns using @vm setting Rpos then\r\n QColumns = delete( QColumns, 1, Rpos, 0 )\r\n end\r\n next i\r\n Void = set_property( @window, '@QColumns', QColumns )\r\n end else\r\n Message = 'You are only allowed to view sharable or your own Export Templates...' \r\n Message<micon$> = 'H'\r\n Void = msg( '', Message )\r\n .export_name->text = ''\r\n void = post_event( @window:'.EXPORT_NAME', 'GOTFOCUS', '' )\r\n void = set_property( @window:'.EXPORT_NAME', 'FOCUS', 1 )\r\n end\r\nend else\r\n forward_event( CtrlEntID, CtrlClassID )\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/EXPORTS..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, rlist, Set_Property, Send_Event\r\ndeclare function msg, rowexists, post_event, fieldcount\r\n\r\n$insert rlist_equates\r\n$insert msg_equates\r\n$insert logical\r\n$insert exports_equ\r\n\r\nEid = .export_name->text\r\nif rowexists( 'EXPORTS', Eid ) then\r\n * ok now did this user enter it or is Heather trying to snoop\r\n Erec = xlate( 'EXPORTS', Eid, '', '' )\r\n ReadOk = false$\r\n if Erec<exports_sharable$> or get_property( @window, '@SystemGenerated' ) OR (@USERNAME = 'BRYCE_BARB') then\r\n ReadOk = true$\r\n end else\r\n if @user4 = xlate( 'EXPORTS', Eid, exports_entry_id$, '' ) then\r\n ReadOk = true$\r\n end\r\n end\r\n if ReadOk then\r\n forward_event() \r\n if .exporttablenames->text = 'REACT_UTIL' then\r\n .UTIL_START->VISIBLE = 1\r\n .UTIL_END->VISIBLE = 1\r\n .UTIL_START_LABEL->VISIBLE = 1\r\n .UTIL_END_LABEL->VISIBLE = 1\r\n end else\r\n .UTIL_START->VISIBLE = 0\r\n .UTIL_END->VISIBLE = 0\r\n .UTIL_START_LABEL->VISIBLE = 0\r\n .UTIL_END_LABEL->VISIBLE = 0\r\n end \r\n\t\tTtable = .exporttablenames->text\r\n\t\tIF Ttable = '' AND (@USERNAME NE 'BRYCE_BARB') THEN\r\n\t\t\tCall ErrMsg('You do not have Read rights to the Table used in this export.')\r\n\t\t\tSet_Property(@WINDOW,'SAVEWARN',0)\r\n\t\t\tSend_Event(@WINDOW,'CLEAR')\r\n\t\t\tRETURN 0\r\n\t\tEND\r\n\t\t\r\n \tColumns = ''\r\n \tBtreeColumns = ''\t\t\r\n\t\tif Ttable then\r\n\t\t\tDictTable = 'DICT.':Ttable\r\n\t\t\tVoid = utility( 'CURSOR', 'H' )\r\n\t\t\tCmd = \"SELECT \":DictTable:\" BY @ID WITH F1 = 'F' 'S'\"\r\n\t\t\trlist( Cmd, target_activelist$, '', '', '' )\r\n\t\t\tif @reccount then\r\n\t\t\t Eof = false$\r\n\t\t\t loop\r\n\t\t\t readnext DictId else Eof = true$\r\n\t\t\t until Eof\r\n\t\t\t Columns := DictId:@vm\r\n\t\t\t repeat\r\n\t\t\t Columns[-1,1] = ''\r\n\t\t\t Void = set_property( @window, '@Columns', Columns )\r\n\t\t\tend \r\n\t\t\tCmd = \"SELECT \":DictTable:\" USING EXPORTS BY @ID WITH F6 = 1\"\r\n\t\t\trlist( Cmd, target_activelist$, '', '', '' )\r\n\t\t\t\r\n\t\t\tif @reccount then\r\n\t\t\t Eof = false$\r\n\t\t\t\tloop\r\n\t\t\t\t readnext DictId else Eof = true$\r\n\t\t\t\t until Eof\r\n\t\t\t\t BtreeColumns := DictId:@vm\r\n\t\t\t\trepeat\r\n\t\t\t\tBtreeColumns[-1,1] = ''\r\n\t\t\t\tVoid = set_property( @window, '@BtreeColumns', BtreeColumns )\r\n\t\t\tend else\r\n\t\t\t * no btree columns\r\n\t\t\tend\r\n\t\t\tVoid = utility( 'CURSOR', 'A' )\r\n\t\tend\r\n QColumns = Columns\r\n BcCnt = fieldcount( BtreeColumns, @vm )\r\n for i = 1 to BcCnt\r\n locate BtreeColumns<1,i> in QColumns using @vm setting Rpos then\r\n QColumns = delete( QColumns, 1, Rpos, 0 )\r\n end\r\n next i\r\n Void = set_property( @window, '@QColumns', QColumns )\r\n end else\r\n Message = 'You are only allowed to view sharable or your own Export Templates...' \r\n Message<micon$> = 'H'\r\n Void = msg( '', Message )\r\n .export_name->text = ''\r\n void = post_event( @window:'.EXPORT_NAME', 'GOTFOCUS', '' )\r\n void = set_property( @window:'.EXPORT_NAME', 'FOCUS', 1 )\r\n end\r\nend else\r\n forward_event( CtrlEntID, CtrlClassID )\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/GAN_PROD_SPEC..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg, Set_Property\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, memberof, prod_spec_comm, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'PROD_SPEC', .prod_spec_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'Prod Spec', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Prod Spec', Write$ )\t \r\n\t ReadOk = false$\r\n\t .prod_spec_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n\r\n \r\n end\r\n \r\n ProdSpecID = .prod_spec_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/CUST_NAME/DIVISION/CTO_SIGNATURE/CTO_SIGNATURE_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'PROD_SPEC', ProdSpecID ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n *\r\n TMod = .mod_info->array\r\n InMod = Tmod<1>\r\n TMod<2> = oconv( InMod, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .mod_info->array = TMod\r\n \r\n if memberof( @user4, 'SALES' ) or memberof( @user4, 'MASTER' ) then\r\n .scan_button->visible = 1 \r\n end else\r\n .scan_button->visible = 0\r\n end\r\n *\r\n if NewRecord then\r\n .rtype->value = ''\r\n end else\r\n\t if security_check( 'Prod Spec', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t \r\n\t \r\n\t .spec_button_fix->enabled = 1\r\n\t .view_quotes_fix->enabled = 1\r\n Void = scroll_enable()\t \r\n\t end\r\n end\r\n Void = prod_spec_comm('SET_SCANNED_IMAGE') \r\nend\r\nSet_Property(@WINDOW,'VPOSITION', 1)\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/HOTH2O2_LOG..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\nNewRecord = false$\r\nif rowexists( 'HOTH2O2_LOG', .log_no->text ) then\r\n ReadOk = true$; *anyone can look at the log\r\nend else\r\n * user is trying to add new, do they have write rights?\r\n if security_check( 'Hot H2O2 Log', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Hot H2O2 Log', Write$ )\t \r\n\t ReadOk = false$\r\n\t .log_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n LogNumber = .log_no->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/TECH_SIG/TECH_SIG_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'HOTH2O2_LOG', LogNumber ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'Hot H2O2 Log', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/INVOICE..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, scroll_enable\r\n\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert msg_equates\r\n\r\nNewRecord = false$\r\nif rowexists( 'INVOICE', .invoice_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * security check is done from the order\r\n * cannot create an invoice unless going through order\r\n if get_property( @window, '@AutoCreate' ) then\r\n ReadOk = true$ \r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You can only create invoices from order.'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\t \r\n\t ReadOk = false$\r\n\t .order_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n Void = set_property( @window, '@OrigInvoiceDetail', .invoice_detail->array )\r\n InvoiceNo = .invoice_no->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/STATUS/CUST_NO/CUST_NAME/CUST_DIVISION/'\r\n ProtectVar:= 'PO/ORDER_NO/WAF_SIZE/PLANT'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'INVOICE', InvoiceNo ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'Invoice', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t .print_invoice->enabled = 1\r\n\t * WAS A TEMPORARY FIX CAUSE OF SHIPPING AND RECEIVING IN TEMPE AND DARLA IN MESA\r\n\t *if @user4 = 'MIKE_M' or @user4 = 'LINDA_R' then\r\n\t * .tracking_no->enabled = 1\r\n\t * .force_update->enabled = 1\r\n\t * .box_cnt->enabled = 1\r\n\t *end\r\n\t Void = scroll_enable()\r\n\t end\r\n end\r\nend\r\n\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/LAST_WFR_CI_GROUP..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg, Comm_RDS\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, scroll_enable, rds_comm, rds_comm2, memberof\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert rds_equ\r\n$insert msg_equates\r\n$insert prod_spec_equ\r\n$insert quote_spec_equ\r\n\r\nNewRecord = false$\r\nif rowexists( 'RDS', .rds_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new don't allow ( only create via schedule )\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'Last Wafer - You can only create run data sheets from schedule.'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\t \r\n ReadOk = false$\r\n .rds_no->text = ''\r\n Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n Void = set_property( @window, '@TotRej', ((.cust_rej_tot->text ) + (.lsl_rej_tot->text)) ) \r\n Void = set_property( @window, '@NCRMustSave', false$ )\r\n RejAcct = .reject_info->array\r\n Void = set_property( @window, '@OrigRejAcct', RejAcct ) \r\n RdsNo = .rds_no->text\r\n .thick_all_label->text = xlate( 'RDS', RdsNo, 'THICK_MIN_TAR_MAX', 'X' )\r\n .res_all_label->text = xlate( 'RDS', RdsNo, 'RES_MIN_TAR_MAX', 'X' )\r\n .con_all_label->text = xlate( 'RDS', RdsNo, 'CON_MIN_TAR_MAX', 'X' ) \r\n TMod = .mod_info->array\r\n InMod = Tmod<1>\r\n TMod<2> = oconv( InMod, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .mod_info->array = TMod\r\n DisFields = 'REACTOR/LOT_NUM/QUOTE_NO/CUST_INFO/STATUS/PO_WO_PARTNUM/LOT_NUM_VERIFY/' \r\n DisFields:= 'RUN_ORDER_NUM/WAFERS_SCHEDULED/OP_OUT/OP_OUT_NAME/UNLOAD_BUTTON/WAFERS_IN/'\r\n DisFields:= 'OP_OUT_DATE/OP_OUT_TIME/LSL_REJ_TOT/CUST_REJ_TOT/PSN'\r\n swap '/' with @rm:@window:'.' in DisFields\r\n DisFields = @window:'.':DisFields\r\n void = set_property( DisFields, 'ENABLED', 0 )\r\n if memberof( @user4, 'ENGINEERING' ) or memberof( @user4, 'MASTER' ) then\r\n .srpcfg_button->visible = 1 \r\n end else\r\n .srpcfg_button->visible = 0\r\n end\r\n if NewRecord else\r\n\t if security_check( 'RDS', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n Void = scroll_enable()\t \t \r\n\t end\r\n end\r\n Void = rds_comm2('SET_SRP_PROFILE') \r\n Void = rds_comm( \"READ_STORE\" )\r\n Void = rds_comm2( \"HOLD_CHECK\" )\r\n Void = rds_comm2( \"SUPPL_CHECK\" ) \r\n \r\n Comm_RDS('Refresh') ;* Added 09/23/2004 JCH\r\nend\r\nreturn 0 "
}
}
}

11
LSL2/OIEVENT/READ/LISTBOX_CONFIG..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function admin_user, msg, send_event, post_event\r\ndeclare subroutine forward_event\r\n$insert listbox_config_equ\r\n$insert logical\r\n$insert quote_sigs_equ\r\n$insert msg_equates\r\n\r\nif admin_user( @user4 ) then\r\n * OK THEY ARE AN ADMINISTRATOR\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\nend else\r\n ProdMgr = xlate( 'CONFIG', 'QUOTE_SIGS', ProdMgr$, 'X' )\r\n if ( @user4 = ProdMgr ) OR ( @USER4 = 'PAUL_W' ) OR ( @user4 = 'DARYL_H' ) or ( @user4 = 'PETER_Z' ) then\r\n * IT IS THE MFG MGR - ON READ NEED TO CHECK TO SEE IF \r\n * THE RECORD IS CHECKED FOR MANUF_CHECK OTHERWISE DISALLOW\r\n ID = .item->text\r\n LBRec = xlate( 'LISTBOX_CONFIG', ID, '', 'X' )\r\n if ( LBRec <> '' ) and ( LBRec<listbox_config_mfg_change$> = 1 ) then\r\n\t\t if get_property( @window, '@NoRead' ) then\r\n\t\t Void = set_property( @window, '@NoRead', 0 )\r\n\t\t end else\r\n\t\t * no qbf active do the read\r\n\t\t * if it is active the read already took place\r\n\t\t forward_event()\r\n\t\t end\r\n end else\r\n Void = send_event( CtrlEntId, 'CLEAR', False$, True$ )\t\t\t \r\n\t\t\tMessage = 'You do not have the proper security to view/modify ' :quote(ID):'.'\r\n\t\t\tMessage<micon$> = 'H'\r\n\t\t\tVoid = msg( '', Message )\r\n end\r\n end else\r\n * SHOULD NEVER GET HERE CAUSE CREATE CODE WILL CLOSE THE WINDOW\r\n\t\tVoid = send_event( @window, 'CLOSE' )\r\n\tend\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/LOSS_CODES..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'LOSS_CODES', .loss_code->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'Loss Codes', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Loss Codes', Write$ )\t \r\n\t ReadOk = false$\r\n\t .loss_code->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n LossCode = .loss_code->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'LOSS_CODES', LossCode ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'Loss Codes', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/MASTER_DISK_LOG..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\nNewRecord = false$\r\nif rowexists( 'MASTER_DISK_LOG', .log_no->text ) then\r\n ReadOk = true$; *anyone can look at the log\r\nend else\r\n * user is trying to add new, do they have write rights?\r\n if security_check( 'Master Disk Log', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Master Disk Log', Write$ )\t \r\n\t ReadOk = false$\r\n\t .log_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n LogNumber = .log_no->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/TECH_SIG/TECH_SIG_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'MASTER_DISK_LOG', LogNumber ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'Master Disk Log', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/MEG_LOG..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\nNewRecord = false$\r\nif rowexists( 'MEG_LOG', .log_no->text ) then\r\n ReadOk = true$; *anyone can look at the log\r\nend else\r\n * user is trying to add new, do they have write rights?\r\n if security_check( 'Meg Log', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Meg Log', Write$ )\t \r\n\t ReadOk = false$\r\n\t .log_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n LogNumber = .log_no->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/TECH_SIG/TECH_SIG_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'MEG_LOG', LogNumber ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'Meg Log', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/MSG_GROUPS..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event\r\ndeclare function msg, post_event, rowexists\r\ndeclare function set_property, get_property\r\n$insert msg_groups_equ\r\n$insert msg_equates\r\n\r\nTempGroupName = .group_name->text; *converting any spaces into underscores\r\nconvert ' ' to '_' in TempGroupName\r\n.group_name->text = TempGroupName\r\n\r\nGroupName = Get_Property(@WINDOW:'.GROUP_NAME','DEFPROP')\r\n\r\nif rowexists( 'MSG_GROUPS', GroupName ) then\r\n if @user4 = xlate( 'MSG_GROUPS', GroupName, msg_groups_entry_id$, '' ) OR GroupName = 'ALL_ACTIVE_USERS' then\r\n if get_property( @window, '@NoRead' ) <> 1 then\r\n \tforward_event(); *this reads & displays the record\r\n end\r\n end else\r\n Message = 'You are only allowed to view your own groups.' \r\n Message<micon$> = 'H'\r\n Void = msg( '', Message )\r\n .group_name->text = ''\r\n void = post_event( @window:'.GROUP_NAME', 'GOTFOCUS', '' )\r\n void = set_property( @window:'.GROUP_NAME', 'FOCUS', 1 )\r\n end\r\nend else; *new record\r\n\tforward_event()\r\n\t.entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t.entry_date->text = oconv( date(), 'D2/' )\r\nend\r\n\r\nProtectVar = 'ENTRY_ID/ENTRY_DATE'\r\nswap '/' with @rm:@window:'.' in ProtectVar\r\nProtectVar = @window:'.':ProtectVar\r\nVoid = set_property( ProtectVar, 'ENABLED', 0 )\r\n\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/NAMES..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function rowexists, security_check, end_window, post_event, fieldcount, scroll_enable\r\n\r\n$insert logical\r\n$insert security_rights_equ\r\nNewRecord = false$\r\nif rowexists( 'NAMES', .seq->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have the rights\r\n if security_check( 'Names', Write$ ) then\r\n ReadOk = true$\r\n end else\r\n security_err_msg( 'Names', Write$ )\r\n ReadOk = false$\r\n Void = post_event( CtrlEntId, 'CLOSE' )\r\n *Void = end_window( @window, '' ) \r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else ;* QBF meaning the read already took place\r\n forward_event()\r\n end\r\n\tif .co_id->text = '' then\r\n\t .co_id->text = .co_id->misc\r\n\tend\r\n\tif RowExists( 'NAMES', .seq->text ) then\r\n\t .co_id->text = .co_id->misc\r\n\tend else \r\n\t .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t .entry_date->text = oconv( date(), 'D2/' )\r\n\tend\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/ACCT_REP'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\t\r\n\tif NewRecord else\r\n\t if security_check( 'Names', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm )\r\n\t for i = 1 to Acnt\r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t Void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end\r\n\t next i\r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n\tend\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/NDA..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'NDA', .nda_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'NDA', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'NDA', Write$ )\t \r\n\t ReadOk = false$\r\n\t .nda_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n NDAId = .nda_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/CUST_NAME/DIVISION'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'NDA', NDAId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n \r\n if NewRecord else\r\n\t if security_check( 'NDA', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n Void = scroll_enable()\t \t \t \r\n\t end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/NDW_RDS_PROC_STAT_NEPP..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "\r\nIf @User4 EQ 'DANIEL_ST' then debug\r\n\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/NOTES..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, notes_comm, yield\r\ndeclare function rowexists\r\n$insert notes_equ\r\n\r\nforward_event()\r\n\r\n*CODE FOR \"REPLYING\"\r\nSendTo = get_property( @window, '@SendTo' )\r\nSubject = get_property( @window, '@Subject' )\r\nMessage = get_property( @window, '@Message' )\r\nif SendTo then\r\n .send_to_internal->array = SendTo\r\n .subject->text = Subject\r\n .message_internal->text = Message\r\n .from_internal->text = @user4\r\n .from_internal_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n AttachArray = ''\r\n AttachArray<1> = get_property( @window, '@AttachWin' )\r\n AttachArray<2> = get_property( @window, '@AttachKeys' )\r\n .attach_info->array = AttachArray\r\n Void = set_property( @window, '@SendTo', '' )\r\n Void = set_property( @window, '@Subject', '' )\r\n Void = set_property( @window, '@Message', '' )\r\n Void = set_property( @window, '@AttachWin', '' )\r\n Void = set_property( @window, '@AttachKeys', '' )\r\n .SEND_TO_PHONE->TEXT = SendTo<1,1> ;* PUT A VALUE CAUSE IT WAS \r\n .FROM_PHONE->TEXT = @USER4 ;* SAYING REQUIRED WHEN INVISIBLE\r\n ;* APPEARS THAT THE WINDOW USES FROM\r\n ;* PHONE ON THE WRITE EVEN THOUGH IT\r\n ;* IS NOT VISIBLE\r\n @@window->savewarn = 1\r\nend\r\n\r\nAttachInfo = .attach_info->array\r\nAttachWin = AttachInfo<1,1>\r\nAttachKeys = AttachInfo<2>\r\nif AttachWin and AttachKeys then\r\n .view_attach_button->visible=1\r\nend\r\n\r\n*notes_comm( 'SET_FIELDS' )\r\n\r\nif get_property( @window, '@called' ) then\r\n Tarray = .send_to_internal->array\r\n Tarray<2> = oconv( Tarray<1>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .send_to_internal->array = Tarray\r\nend\r\nif rowexists( 'NOTES', .seq->text ) then\r\n\t*WE'RE ONLY GOING TO SHOW THE GROUP NAME IF THE SENDER OF THE NOTE IS ALSO THE RECEIVER\r\n\tif oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ) = .entry_id->text else\r\n\t\t.send_to_group_int->visible = 0\r\n\t\t.send_to_group_text->visible = 0\r\n\tend\t\r\n .seq->enabled = 0\r\nend else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' )\r\n .entry_time->text = oconv( time(), 'MTH' )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/ORDER..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\nNewRecord = false$\r\nif rowexists( 'ORDER', .order_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'Order', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Order', Write$ )\t \r\n\t ReadOk = false$\r\n\t .order_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n Void = set_property( @window, '@OrigOrderDetail', .order_detail->array )\r\n Void = set_property( @window, '@OrigPo', .po->text )\r\n Void = set_property( @window, '@OrigCustNo', .cust_no->text )\r\n Void = send_event( @window:'.ORDER_DETAIL', 'CALCULATE', 13 )\r\n OrderNo = .order_no->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/STATUS/CLOSE_DATE/CONTACT_NAME/CUST_NAME/'\r\n ProtectVar:= 'DIVISION'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'ORDER', OrderNo ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n IF @USER4 = 'BRYCE_M' THEN\r\n .ENTRY_DATE->ENABLED = 1\r\n END \r\n if NewRecord else\r\n\t if security_check( 'Order', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\r\n\t .print_button->enabled = 1\r\n\t .button_2->enabled = 1\r\n\t end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/PHOTOFLO_LOG..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\nNewRecord = false$\r\nif rowexists( 'PHOTOFLO_LOG', .log_no->text ) then\r\n ReadOk = true$; *anyone can look at the log\r\nend else\r\n * user is trying to add new, do they have write rights?\r\n if security_check( 'PhotoFlo Log', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'PhotoFlo Log', Write$ )\t \r\n\t ReadOk = false$\r\n\t .log_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n LogNumber = .log_no->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/TECH_SIG/TECH_SIG_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'PHOTOFLO_LOG', LogNumber ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'PhotoFlo Log', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/PROD_SPEC..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg, unlock, start_window, set_property, post_event\r\ndeclare subroutine DBW_PROD_SPEC_GAN_EVENTS, Msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, memberof, prod_spec_comm, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\t\r\n\tPSNo = Get_Property(@Window:'.PROD_SPEC_ID', 'TEXT')\r\n\tReactType = Xlate('PROD_SPEC', PSNo, 'REACTOR_TYPE', 'X')\r\n\tIf ReactType EQ 'GAN' then\r\n\t\t*locktype = ''\r\n\t\t*Unlock('PROD_SPEC', PSNo, '', locktype)\r\n\t\tParentWindow = Get_Property(@Window, \"PARENT\")\r\n\t\tStart_Window('DBW_PROD_SPEC_GAN', ParentWindow, PSNo)\r\n\t\t* determine which control has focus\r\n *GotFocus_Control = Get_Property(@window,\"GOTFOCUS_CONTROL\")\r\n \r\n * force the matching of the GOTFOCUS and DEFPROP properties on the control which has focus\r\n *Set_Property( GotFocus_Control, \"FOCUS\", 1)\r\n \r\n * Turn the SAVEWARN message off\r\n *Set_Property(@window,\"SAVEWARN\",0)\r\n\t\t*Post_Event(@Window, 'CLOSE')\t\t\t\t\r\n\tend else\r\n\r\n\r\n\tNewRecord = false$\r\n\tif rowexists( 'PROD_SPEC', PSNo ) then\r\n\t ReadOk = true$\r\n\tend else\r\n\r\n // Block user from reserving their own key out of sequence.\r\n ErrorMsg = 'PROD_SPEC ':PSNo:' does not exist! You must use the \"Create New PSN\" button in order to create a '\r\n ErrorMsg := 'brand new PROD_SPEC record.'\r\n Msg(@Window, '', 'OK', '', 'Error':@FM:ErrorMsg)\r\n .prod_spec_id->text = ''\r\n ReadOK = False$\r\n\t\tVoid = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n\t\t\r\n\t\t// Deprecated code - DJS - 3/8/2022\t\r\n\t\t// Some of this logic has been moved to the PUB_CREATE_NEW_PSN.CLICK() event within PROD_SPEC_EVENTS\r\n\t * user is trying to add new do they have write rights\r\n\t *if security_check( 'Prod Spec', Write$ ) then\r\n\t *ReadOk = true$ \r\n\t *end else\r\n\t *security_err_msg( 'Prod Spec', Write$ )\t \r\n\t\t *ReadOk = false$\r\n\t\t *.prod_spec_id->text = ''\r\n\t\t *Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n\t *end\r\n\t *NewRecord = true$\r\n\tend\r\n\r\n\r\n\r\n\tif ReadOk then\r\n\t if get_property( @window, '@NoRead' ) then\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t * no qbf active do the read\r\n\t * if it is active the read already took place\r\n\t forward_event()\r\n\r\n\t \r\n\t end\r\n\t \r\n\t ProdSpecID = .prod_spec_id->text\r\n\t ProtectVar = 'ENTRY_ID/ENTRY_DATE/CUST_NAME/DIVISION/CTO_SIGNATURE/CTO_SIGNATURE_NAME'\r\n\t swap '/' with @rm:@window:'.' in ProtectVar\r\n\t ProtectVar = @window:'.':ProtectVar\r\n\t Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n\t if rowexists( 'PROD_SPEC', ProdSpecID ) else\r\n\t .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t .entry_date->text = oconv( date(), 'D2/' ) \r\n\t end \r\n\t *\r\n\t TMod = .mod_info->array\r\n\t InMod = Tmod<1>\r\n\t TMod<2> = oconv( InMod, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t .mod_info->array = TMod\r\n\t \r\n\t if memberof( @user4, 'SALES' ) or memberof( @user4, 'MASTER' ) then\r\n\t .scan_button->visible = 1 \r\n\t end else\r\n\t .scan_button->visible = 0\r\n\t end\r\n\t *\r\n\t if NewRecord then\r\n\t .rtype->value = ''\r\n\t end else\r\n\t\t if security_check( 'Prod Spec', Edit$ ) else\r\n\t\t * protect all fields\r\n\t\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t\t \r\n\t\t \r\n\t\t .spec_button_fix->enabled = 1\r\n\t\t .view_quotes_fix->enabled = 1\r\n\t Void = scroll_enable()\t \r\n\t\t end\r\n\t end\r\n\t Void = prod_spec_comm('SET_SCANNED_IMAGE') \r\n\tend\r\n\r\n\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/PROD_SPEC_BACKUP..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, memberof, prod_spec_comm, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'PROD_SPEC', .prod_spec_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'Prod Spec', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Prod Spec', Write$ )\t \r\n\t ReadOk = false$\r\n\t .prod_spec_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n\r\n \r\n end\r\n \r\n ProdSpecID = .prod_spec_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/CUST_NAME/DIVISION/CTO_SIGNATURE/CTO_SIGNATURE_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'PROD_SPEC', ProdSpecID ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n *\r\n TMod = .mod_info->array\r\n InMod = Tmod<1>\r\n TMod<2> = oconv( InMod, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .mod_info->array = TMod\r\n \r\n if memberof( @user4, 'SALES' ) or memberof( @user4, 'MASTER' ) then\r\n .scan_button->visible = 1 \r\n end else\r\n .scan_button->visible = 0\r\n end\r\n *\r\n if NewRecord then\r\n .rtype->value = ''\r\n end else\r\n\t if security_check( 'Prod Spec', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t \r\n\t \r\n\t .spec_button_fix->enabled = 1\r\n\t .view_quotes_fix->enabled = 1\r\n Void = scroll_enable()\t \r\n\t end\r\n end\r\n Void = prod_spec_comm('SET_SCANNED_IMAGE') \r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/PROD_SPEC_JCH..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, memberof, prod_spec_comm, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'PROD_SPEC', .prod_spec_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'Prod Spec', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Prod Spec', Write$ )\t \r\n\t ReadOk = false$\r\n\t .prod_spec_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n\r\n \r\n end\r\n \r\n ProdSpecID = .prod_spec_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/CUST_NAME/DIVISION/CTO_SIGNATURE/CTO_SIGNATURE_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'PROD_SPEC', ProdSpecID ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n *\r\n TMod = .mod_info->array\r\n InMod = Tmod<1>\r\n TMod<2> = oconv( InMod, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .mod_info->array = TMod\r\n \r\n if memberof( @user4, 'SALES' ) or memberof( @user4, 'MASTER' ) then\r\n .scan_button->visible = 1 \r\n end else\r\n .scan_button->visible = 0\r\n end\r\n *\r\n if NewRecord then\r\n .rtype->value = ''\r\n end else\r\n\t if security_check( 'Prod Spec', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t \r\n\t \r\n\t .spec_button_fix->enabled = 1\r\n\t .view_quotes_fix->enabled = 1\r\n Void = scroll_enable()\t \r\n\t end\r\n end\r\n Void = prod_spec_comm('SET_SCANNED_IMAGE') \r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/PROD_SPEC_JRO..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, memberof, prod_spec_comm, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'PROD_SPEC', .prod_spec_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'Prod Spec', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Prod Spec', Write$ )\t \r\n\t ReadOk = false$\r\n\t .prod_spec_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n\r\n \r\n end\r\n \r\n ProdSpecID = .prod_spec_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/CUST_NAME/DIVISION/CTO_SIGNATURE/CTO_SIGNATURE_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'PROD_SPEC', ProdSpecID ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n *\r\n TMod = .mod_info->array\r\n InMod = Tmod<1>\r\n TMod<2> = oconv( InMod, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .mod_info->array = TMod\r\n \r\n if memberof( @user4, 'SALES' ) or memberof( @user4, 'MASTER' ) then\r\n .scan_button->visible = 1 \r\n end else\r\n .scan_button->visible = 0\r\n end\r\n *\r\n if NewRecord then\r\n .rtype->value = ''\r\n end else\r\n\t if security_check( 'Prod Spec', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t \r\n\t \r\n\t .spec_button_fix->enabled = 1\r\n\t .view_quotes_fix->enabled = 1\r\n Void = scroll_enable()\t \r\n\t end\r\n end\r\n Void = prod_spec_comm('SET_SCANNED_IMAGE') \r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/P_NAMES..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function rowexists, msg, post_event, set_property\r\ndeclare subroutine forward_event\r\n$insert msg_equates\r\n$insert p_names_equ\r\n\r\nif rowexists( 'P_NAMES', .seq->text ) then\r\n * ok now did this user enter it or is Heather trying to snoop\r\n if @user4 = xlate( 'P_NAMES', .seq->text, p_names_entry_id$, '' ) then\r\n forward_event()\r\n end else\r\n Message = 'You are only allowed to view your own Personal Names.' \r\n Message<micon$> = 'H'\r\n Void = msg( '', Message )\r\n .seq->text = ''\r\n void = post_event( @window:'.SEQ', 'GOTFOCUS', '' )\r\n void = set_property( @window:'.SEQ', 'FOCUS', 1 )\r\n end\r\nend else\r\n forward_event()\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' )\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/QUARTZ_TC_LOG..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable, quartz_tc_log_comm\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'QUARTZ_TC_LOG', .tc_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new, do they have write rights?\r\n if security_check( 'Quartz TC Log', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Quartz TC Log', Write$ )\t \r\n\t ReadOk = false$\r\n\t .tc_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n TCNO = .tc_no->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/ENTRY_TIME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'QUARTZ_TC_LOG', TCNO ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n .entry_time->text = oconv( time(), 'MTH' )\r\n end \r\n if NewRecord else\r\n\t if security_check( 'Quartz TC Log', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\n Void = quartz_tc_log_comm('TC_CHG_TYPE')\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/QUARTZ_WAND_LOG..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\nNewRecord = false$\r\n\r\nif rowexists( 'QUARTZ_WAND_LOG', .wand_log_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new, do they have write rights?\r\n if security_check( 'Quartz Wand Log', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Quartz Wand Log', Write$ )\t \r\n\t ReadOk = false$\r\n\t .wand_log_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n WandLogNo = .wand_log_no->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/ENTRY_TIME/STATUS/TECH_SIG/TECH_SIG_NAME/QUARTZ_SIG/QUARTZ_SIG_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'QUARTZ_WAND_LOG', WandLogNo ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n .entry_time->text = oconv( time(), 'MTH' )\r\n end \r\n if NewRecord else\r\n\t if security_check( 'Quartz Wand Log', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\n ***********Void = Quartz_Wand_Log_comm('WAND_CHG_TYPE')\r\nend\r\nRETURN 0\r\n\r\n"
}
}
}

11
LSL2/OIEVENT/READ/QUOTE..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert quote_equ\r\n\r\nNewRecord = false$\r\nif rowexists( 'QUOTE', .quote_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'Quote', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Quote', Write$ )\t \r\n\t ReadOk = false$\r\n\t .quote_no->text = ''\r\n\t Void = post_event( CtrlEntID, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n QuoteNo = .quote_no->text\r\n TSig = .signatures->array<1>\r\n TSigOut = oconv( TSig, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .signatures->array = TSig:@fm:TSigOut\r\n CurSigs = TSig:@fm:TSigOut\r\n ProtectVar = 'STATUS/ENTRY_ID/ENTRY_DATE/CUST_NAME/CONTACT_NAME/'\r\n ProtectVar:= 'DIVISION/CUST_REV/CUST_SPEC/ACCT_REP'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'QUOTE', QuoteNo ) then\r\n TPSNs = .prev_psns->array\r\n if ( TPSNs = '' ) then\r\n .prev_psns->array = @vm\r\n end\r\n end else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n .final_layer->check = true$\r\n .prev_psns->array = @vm ;* SO IT DOESN'T BLANK OUT\r\n end \r\n Void = set_property( @window, '@OrigInqStatus', .inquiry_status->value )\r\n if NewRecord else\r\n\t if security_check( 'Quote', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i\r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n\t .psn_view->enabled = 1\r\n end\r\nend\r\nreturn 0 \r\n"
}
}
}

11
LSL2/OIEVENT/READ/QUOTE_SRL..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert quote_equ\r\n\r\nNewRecord = false$\r\nif rowexists( 'QUOTE_SRL', .quote_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'Quote SRL', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Quote SRL', Write$ )\t \r\n\t ReadOk = false$\r\n\t .quote_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event( CtrlEntId, CtrlClassId )\r\n end\r\n QuoteNo = .quote_no->text\r\n ProtectVar = 'STATUS/ENTRY_ID/ENTRY_DATE/CUST_NAME/CONTACT_NAME/WAFER_DESC/'\r\n ProtectVar:= 'DIVISION'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'QUOTE_SRL', QuoteNo ) else\r\n .entry_id->text = oconv( @username, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'Quote SRL', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t end\r\n end\r\nend\r\nreturn 0 \r\n"
}
}
}

11
LSL2/OIEVENT/READ/RDS..json Normal file
View File

File diff suppressed because one or more lines are too long

11
LSL2/OIEVENT/READ/RDS_POST_EPI..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg, Comm_RDS\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, scroll_enable, rds_comm, rds_comm2\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert rds_equ\r\n$insert msg_equates\r\n$insert prod_spec_equates\r\n$insert quote_spec_equ\r\n\r\nNewRecord = false$\r\nRDSNo = .rds_no->text\r\nswap '1T' with '' in RDSNo\r\n.rds_no->text = RDSNo\r\n\r\nif rowexists( 'RDS', RDSNo ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new don't allow ( only create via schedule )\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'Post Epi - You can only create run data sheets from schedule.'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\t \r\n ReadOk = false$\r\n .rds_no->text = ''\r\n Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n if .post_clean->text = 'No' then\r\n * NO POST CLEAN REQUIRED SO PROTECT THE PROPER FIELDS\r\n .postcleansrd->enabled = 0\r\n .postcleancassid->enabled = 0\r\n .postcleancode->enabled = 0\r\n end else\r\n .postcleansrd->enabled = 1\r\n .postcleancassid->enabled = 1\r\n .postcleancode->enabled = 1\r\n end \r\n \r\n\t* Added by JCH on 4/17/2004 - Update for SURF_SCAN table addition * * * * * * * * * * *\r\n\t\r\n\tIF Get_Property(@WINDOW:'.SURFSCAN','CHECK') THEN\r\n\t\tstat = Set_Property(@WINDOW:'.SURF_SCAN_BUTTON','ENABLED',1)\r\n\tEND ELSE\r\n\t\tstat = Set_Property(@WINDOW:'.SURF_SCAN_BUTTON','ENABLED',0)\r\n\tEND\r\n\t\r\n\tComm_RDS('Refresh')\r\n \r\n * End of mod by JCH \r\n \r\n .thick_all_label->text = xlate( 'RDS', RdsNo, 'THICK_MIN_TAR_MAX', 'X' )\r\n .res_all_label->text = xlate( 'RDS', RdsNo, 'RES_MIN_TAR_MAX', 'X' )\r\n .con_all_label->text = xlate( 'RDS', RdsNo, 'CON_MIN_TAR_MAX', 'X' ) \r\n TMod = .mod_info->array\r\n InMod = Tmod<1>\r\n TMod<2> = oconv( InMod, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .mod_info->array = TMod\r\n DisFields = 'REACTOR/LOT_NUM/QUOTE_NO/CUST_INFO/STATUS/PO_WO_PARTNUM/LOT_NUM_VERIFY/' \r\n DisFields:= 'RUN_ORDER_NUM/WAFERS_SCHEDULED/POST_EPI_SIG/POST_EPI_SIG_NAME/'\r\n DisFields:= 'POST_EPI_SIG_DATE/POST_EPI_SIG_TIME/POST_EPI_SUP_SIG/POST_EPI_SUP_SIG_NAME/'\r\n DisFields:= 'POST_EPI_SUP_SIG_DATE/POST_EPI_SUP_SIG_TIME/POST_CLEAN/POST_EPI_BUTTON/SHIP_BAG_REQ/'\r\n DisFields:= 'BRIGHTLIGHT/SURFSCAN/SURFSCAN_RECIPE/WAFERS_OUT'\r\n swap '/' with @rm:@window:'.' in DisFields\r\n DisFields = @window:'.':DisFields\r\n void = set_property( DisFields, 'ENABLED', 0 )\r\n if NewRecord else\r\n\t if security_check( 'RDS', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n Void = scroll_enable()\t \t \r\n\t end\r\n end\r\n \r\n Void = rds_comm( \"READ_STORE\" )\r\n Void = rds_comm2('HOLD_CHECK')\r\n Void = rds_comm2( \"SUPPL_CHECK\" ) \r\nend\r\n* SET A VARIABLE TO THE SUPERVISOR SIGNATURE SO WHEN THEY SAVE\r\n* IF THERE WASN'T A SIGNATURE AND THERE IS ON THE WRITE TO \r\n* AUTOMATICALLY PRINT A SHIPPING LABEL\r\nVoid = set_property( @window, '@PostEpiSupSig', .post_epi_sup_sig->text )\r\nreturn 0 \r\n"
}
}
}

11
LSL2/OIEVENT/READ/RDS_PRE_EPI..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg, Comm_RDS\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, scroll_enable, rds_comm, rds_comm2\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert rds_equ\r\n$insert msg_equates\r\n$insert prod_spec_equates\r\n$insert quote_spec_equ\r\n\r\nNewRecord = false$\r\nRDSNo = .rds_no->text\r\nswap '1T' with '' in RDSNo\r\n.rds_no->text = RDSNo\r\n\r\nif rowexists( 'RDS', RDSNo ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new don't allow ( only create via schedule )\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'Pre Epi - You can only create run data sheets from schedule.'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\t \r\n ReadOk = false$\r\n .rds_no->text = ''\r\n Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n if .pre_clean->text = 'No' then\r\n * NO PRE CLEAN REQUIRED SO PROTECT THE PROPER FIELDS\r\n .precleansrd->enabled = 0\r\n .precleancassid->enabled = 0\r\n .precleancode->enabled = 0\r\n end else\r\n .precleansrd->enabled = 1\r\n .precleancassid->enabled = 1\r\n .precleancode->enabled = 1\r\n end\r\n \r\n\t* Section added by JCH on 4/17/2004 - Mods for SURFACE_SCAN table \r\n\t\r\n\tIF Get_Property(@WINDOW:'.SURFSCAN','CHECK') THEN\r\n\t\tstat = Set_Property(@WINDOW:'.SURF_SCAN_BUTTON','ENABLED',1)\r\n\tEND ELSE\r\n\t\tstat = Set_Property(@WINDOW:'.SURF_SCAN_BUTTON','ENABLED',0)\r\n\tEND\r\n\t\r\n\t* End of modifications\r\n\t\r\n .thick_all_label->text = xlate( 'RDS', RdsNo, 'THICK_MIN_TAR_MAX', 'X' )\r\n .res_all_label->text = xlate( 'RDS', RdsNo, 'RES_MIN_TAR_MAX', 'X' )\r\n .con_all_label->text = xlate( 'RDS', RdsNo, 'CON_MIN_TAR_MAX', 'X' ) \r\n TMod = .mod_info->array\r\n InMod = Tmod<1>\r\n TMod<2> = oconv( InMod, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .mod_info->array = TMod\r\n DisFields = 'LOT_NUM/QUOTE_NO/CUST_INFO/STATUS/PO_WO_PARTNUM/LOT_NUM_VERIFY/'\r\n DisFields:= 'RUN_ORDER_NUM/WAFERS_SCHEDULED/PRE_EPI_SIG/PRE_EPI_SIG_NAME/'\r\n DisFields:= 'PRE_CLEAN/OXIDE_STRIP/PRE_EPI_BUTTON/'\r\n DisFields:= 'BRIGHTLIGHT/MICROSCOPE/SURFSCAN/SURFSCAN_RECIPE/PSN'\r\n swap '/' with @rm:@window:'.' in DisFields\r\n DisFields = @window:'.':DisFields\r\n void = set_property( DisFields, 'ENABLED', 0 )\r\n if NewRecord else\r\n\t if security_check( 'RDS', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n Void = scroll_enable()\t \t \r\n\t end\r\n end\r\n Void = rds_comm( \"READ_STORE\" )\r\n *Void = rds_comm2( \"HOLD_CHECK\" )\r\n Void = rds_comm2( \"SUPPL_CHECK\" )\r\n \r\n Comm_RDS('Refresh')\t\t\t\t\t;* Added by JCH 11/9/2004\r\n \r\n CustID = field( .cust_info->text, ' ', 1 )\r\n if ( CustID = '621' ) and ( .run_order_num->text = 1 ) then ;* IF IT IS SILICON SYSTEMS AND \r\n * IT IS RUN ORDER NUMBER ONE\r\n .menu.edit.ssi_standards->enabled = 1\r\n end else\r\n .menu.edit.ssi_standards->enabled = 0 \r\n end\r\n Void = set_property( @window, '@OrigReactor', .reactor->text ) \r\n * HOLY HARD CODING ACTION\r\n IF ( @USER4 = 'JONATHAN_F' ) OR ( @USER4 = 'ELIZABETH_G' ) OR ( @USER4 = 'BRYCE_M' ) OR ( @USER4 = 'KELLY_S' ) THEN\r\n .COMMIT_DATE_FINAL->ENABLED = 1\r\n END ELSE\r\n .COMMIT_DATE_FINAL->ENABLED = 0\r\n END\r\nend\r\nreturn 0 "
}
}
}

11
LSL2/OIEVENT/READ/RDS_PRE_EPI_ORG..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg, Comm_RDS\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, scroll_enable, rds_comm, rds_comm2\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert rds_equ\r\n$insert msg_equates\r\n$insert prod_spec_equates\r\n$insert quote_spec_equ\r\n\r\nNewRecord = false$\r\nif rowexists( 'RDS', .rds_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new don't allow ( only create via schedule )\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'Pre Epi Org - You can only create run data sheets from schedule.'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\t \r\n ReadOk = false$\r\n .rds_no->text = ''\r\n Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n if .pre_clean->text = 'No' then\r\n * NO PRE CLEAN REQUIRED SO PROTECT THE PROPER FIELDS\r\n .precleansrd->enabled = 0\r\n .precleancassid->enabled = 0\r\n .precleancode->enabled = 0\r\n end else\r\n .precleansrd->enabled = 1\r\n .precleancassid->enabled = 1\r\n .precleancode->enabled = 1\r\n end\r\n \r\n\t* Section added by JCH on 4/17/2004 - Mods for SURFACE_SCAN table \r\n\t\r\n\tIF Get_Property(@WINDOW:'.SURFSCAN','CHECK') THEN\r\n\t\tstat = Set_Property(@WINDOW:'.SURF_SCAN_BUTTON','ENABLED',1)\r\n\tEND ELSE\r\n\t\tstat = Set_Property(@WINDOW:'.SURF_SCAN_BUTTON','ENABLED',0)\r\n\tEND\r\n\t\r\n\t* End of modifications\r\n\t\r\n RdsNo = .rds_no->text\r\n .thick_all_label->text = xlate( 'RDS', RdsNo, 'THICK_MIN_TAR_MAX', 'X' )\r\n .res_all_label->text = xlate( 'RDS', RdsNo, 'RES_MIN_TAR_MAX', 'X' )\r\n .con_all_label->text = xlate( 'RDS', RdsNo, 'CON_MIN_TAR_MAX', 'X' ) \r\n TMod = .mod_info->array\r\n InMod = Tmod<1>\r\n TMod<2> = oconv( InMod, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .mod_info->array = TMod\r\n DisFields = 'LOT_NUM/QUOTE_NO/CUST_INFO/STATUS/PO_WO_PARTNUM/LOT_NUM_VERIFY/'\r\n DisFields:= 'RUN_ORDER_NUM/WAFERS_SCHEDULED/PRE_EPI_SIG/PRE_EPI_SIG_NAME/'\r\n DisFields:= 'PRE_CLEAN/OXIDE_STRIP/PRE_EPI_BUTTON/'\r\n DisFields:= 'BRIGHTLIGHT/MICROSCOPE/SURFSCAN/SURFSCAN_RECIPE/PSN'\r\n swap '/' with @rm:@window:'.' in DisFields\r\n DisFields = @window:'.':DisFields\r\n void = set_property( DisFields, 'ENABLED', 0 )\r\n if NewRecord else\r\n\t if security_check( 'RDS', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n Void = scroll_enable()\t \t \r\n\t end\r\n end\r\n Void = rds_comm( \"READ_STORE\" )\r\n *Void = rds_comm2( \"HOLD_CHECK\" )\r\n Void = rds_comm2( \"SUPPL_CHECK\" )\r\n \r\n Comm_RDS('Refresh')\t\t\t\t\t;* Added by JCH 11/9/2004\r\n \r\n CustID = field( .cust_info->text, ' ', 1 )\r\n if ( CustID = '621' ) and ( .run_order_num->text = 1 ) then ;* IF IT IS SILICON SYSTEMS AND \r\n * IT IS RUN ORDER NUMBER ONE\r\n .menu.edit.ssi_standards->enabled = 1\r\n end else\r\n .menu.edit.ssi_standards->enabled = 0 \r\n end\r\n Void = set_property( @window, '@OrigReactor', .reactor->text ) \r\n * HOLY HARD CODING ACTION\r\n IF ( @USER4 = 'JONATHAN_F' ) OR ( @USER4 = 'ELIZABETH_G' ) OR ( @USER4 = 'BRYCE_M' ) OR ( @USER4 = 'KELLY_S' ) THEN\r\n .COMMIT_DATE_FINAL->ENABLED = 1\r\n END ELSE\r\n .COMMIT_DATE_FINAL->ENABLED = 0\r\n END\r\nend\r\nreturn 0 "
}
}
}

11
LSL2/OIEVENT/READ/RDS_UNLOAD..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg, Comm_RDS\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, scroll_enable, rds_comm, rds_comm2, memberof\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert rds_equ\r\n$insert msg_equates\r\n$insert prod_spec_equ\r\n$insert quote_spec_equ\r\n\r\nNewRecord = false$\r\nRDSNo = .rds_no->text\r\nswap '1T' with '' in RDSNo\r\n.rds_no->text = RDSNo\r\n\r\nif rowexists( 'RDS', RDSNo ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new don't allow ( only create via schedule )\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You can only create run data sheets from schedule.'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\t \r\n ReadOk = false$\r\n .rds_no->text = ''\r\n Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n Void = set_property( @window, '@TotRej', ((.cust_rej_tot->text ) + (.lsl_rej_tot->text)) ) \r\n Void = set_property( @window, '@NCRMustSave', false$ )\r\n RejAcct = .reject_info->array\r\n Void = set_property( @window, '@OrigRejAcct', RejAcct ) \r\n //RdsNo = .rds_no->text\r\n .thick_all_label->text = xlate( 'RDS', RdsNo, 'THICK_MIN_TAR_MAX', 'X' )\r\n .res_all_label->text = xlate( 'RDS', RdsNo, 'RES_MIN_TAR_MAX', 'X' )\r\n .con_all_label->text = xlate( 'RDS', RdsNo, 'CON_MIN_TAR_MAX', 'X' ) \r\n TMod = .mod_info->array\r\n InMod = Tmod<1>\r\n TMod<2> = oconv( InMod, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .mod_info->array = TMod\r\n DisFields = 'REACTOR/LOT_NUM/QUOTE_NO/CUST_INFO/STATUS/PO_WO_PARTNUM/LOT_NUM_VERIFY/' \r\n DisFields:= 'RUN_ORDER_NUM/WAFERS_SCHEDULED/OP_OUT/OP_OUT_NAME/UNLOAD_BUTTON/WAFERS_IN/'\r\n DisFields:= 'OP_OUT_DATE/OP_OUT_TIME/LSL_REJ_TOT/CUST_REJ_TOT/PSN'\r\n swap '/' with @rm:@window:'.' in DisFields\r\n DisFields = @window:'.':DisFields\r\n void = set_property( DisFields, 'ENABLED', 0 )\r\n if memberof( @user4, 'ENGINEERING' ) or memberof( @user4, 'MASTER' ) then\r\n .srpcfg_button->visible = 1 \r\n end else\r\n .srpcfg_button->visible = 0\r\n end\r\n if NewRecord else\r\n\t if security_check( 'RDS', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n Void = scroll_enable()\t \t \r\n\t end\r\n end\r\n Void = rds_comm2('SET_SRP_PROFILE') \r\n Void = rds_comm( \"READ_STORE\" )\r\n Void = rds_comm2( \"HOLD_CHECK\" )\r\n Void = rds_comm2( \"SUPPL_CHECK\" ) \r\n \r\n Comm_RDS('Refresh') ;* Added 09/23/2004 JCH\r\nend\r\nreturn 0 "
}
}
}

11
LSL2/OIEVENT/READ/REACTOR_LOG_AREV..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'REACTOR_LOG', .reactor_log_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'Reactor Log', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Reactor Log', Write$ )\t \r\n\t ReadOk = false$\r\n\t .waf_inv_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event( CtrlEntId, CtrlClassId )\r\n end\r\n RLNo = .reactor_log_no->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/ELAPSED_HOURS'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'REACTOR_LOG', RLNo ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'Reactor Log', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/REACT_ITEMS..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'REACT_ITEMS', .item_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'React Items', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'React Items', Write$ )\t \r\n\t ReadOk = false$\r\n\t .item_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n ItemNo = .item_no->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'REACT_ITEMS', ItemNo ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n .graphite_or_tube->value = ''\r\n end \r\n if NewRecord else\r\n\t if security_check( 'React Items', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n Void = scroll_enable()\t \t \r\n\t end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/REACT_PROBS..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'REACT_PROBS', .problem_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'React Probs', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'React Probs', Write$ )\t \r\n\t ReadOk = false$\r\n\t .problem_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n ProblemId = .problem_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/PROB_CAT_DESC'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'REACT_PROBS', ProblemId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'React Probs', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n Void = scroll_enable()\t \t \r\n\t end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/REACT_PROB_CAT..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'REACT_PROB_CAT', .cat_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'React Prob Cat', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'React Prob Cat', Write$ )\t \r\n\t ReadOk = false$\r\n\t .cat_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n CatId = .cat_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'REACT_PROB_CAT', CatId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'React Prob Cat', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n Void = scroll_enable()\t \t \t \r\n\t end\r\n end\r\nend\r\nRETURN 0\r\n"
}
}
}

11
LSL2/OIEVENT/READ/REACT_SERVS..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'REACT_SERVS', .serv_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'React Servs', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'React Servs', Write$ )\t \r\n\t ReadOk = false$\r\n\t .serv_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n ServId = .serv_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/SERV_CAT_DESC'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'REACT_SERVS', ServId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n .graphite_or_tube->value = ''\r\n end \r\n if NewRecord else\r\n\t if security_check( 'React Servs', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n Void = scroll_enable()\t \t \t \r\n\t end\r\n end\r\nend\r\nRETURN 0\r\n"
}
}
}

11
LSL2/OIEVENT/READ/RECIPE..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, scroll_enable, recipe_comm\r\n\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert recipe_equ\r\n\r\nNewRecord = false$\r\nif rowexists( 'RECIPE', .recipe_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'Recipe', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Recipe', Write$ )\t \r\n\t ReadOk = false$\r\n\t .recipe_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n RecipeNo = .Recipe_no->text\r\n *\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/PRINT_RECIPE/ENG_SIG/ENG_SIG_NAME/STATUS'\r\n * DISABLING THE PRINT BUTTON CAUSE IT WOULD PRINT THE OLD STYLE\r\n * NEED TO ASK DARYL IF HE NEEDS TO PRINT\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n *\r\n if .cap_burst->check then\r\n .cap_burst_gases->enabled = 1\r\n end else\r\n .cap_burst_gases->enabled = 0 \r\n end\r\n if rowexists( 'RECIPE', RecipeNo ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end\r\n TMod = .mod_info->array\r\n InMod = Tmod<1>\r\n TMod<2> = oconv( InMod, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .mod_info->array = TMod\r\n LayerInfo = .layer_info->text\r\n Tlay = trim( .layer_button->text )\r\n convert '0123456789' to '' in Tlay\r\n Tlay := ' ':fieldcount( LayerInfo, char(248) )\r\n .layer_button->text = Tlay\r\n if NewRecord else\r\n\t if security_check( 'Recipe', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n Void = scroll_enable()\t \t \t \r\n\t end\r\n end\r\nend\r\nVoid = recipe_comm( 'READ_STORE' )\r\nreturn 0 \r\n"
}
}
}

11
LSL2/OIEVENT/READ/REPORT_SLIST_CFG..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/SCHEDULE..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert msg_equates\r\n$insert order_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'SCHEDULE', .schedule_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new don't allow ( only create via order )\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You can only create schedules from order.'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\t \r\n ReadOk = false$\r\n .schedule_no->text = ''\r\n Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n ****************\r\n Tcust = .cust_no->text\r\n if ( Tcust = '615' ) or ( Tcust = '6443' ) or ( Tcust = 621 ) then ;* FIRST TWO ARE PHILIPS AND LAST IS SSI\r\n .qxj->visible = 1\r\n end else\r\n .qxj->visible = 0\r\n end\r\n ****************\r\n ScheduleNo = .schedule_no->text\r\n ProtectVar = 'PO/ENTRY_ID/ENTRY_DATE/CUST_NO/CUST_NAME/'\r\n ProtectVar:= 'WO/WAFER_SIZE/QUOTE_NO/RDS_CNT/ORDER_NO/TOT_SCHED/TOT_NOT_SCHED/'\r\n ProtectVar:= 'TOTAL_SHIP_QTY/TOTAL_REJECTS/TOTAL_NOT_SHIP_QTY/TOTAL_SHIP_AMOUNT/SEP_LAYER_CNT/'\r\n ProtectVar:= 'BOX_COUNT/TOT_WAF_IN/PSN'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 ) \r\n * add all other protected fields\r\n if rowexists( 'SCHEDULE', ScheduleNo ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n Void = set_property( @window, '@OrigRDSDetail', .rds_detail->array ) \r\n if NewRecord else\r\n\t if security_check( 'Schedule', Edit$ ) then\r\n\t RdsDetail = .rds_detail->array\r\n\t RDSCol = RdsDetail<2>\r\n\t OrderDetail = .order_detail_line->array\r\n\t Qty = OrderDetail<6>\r\n\t if RDSCol = @vm:@vm:@vm and ( Qty > 0 and Qty < 26 ) then ;* meaning there have been no rds createdare no rds \r\n\t OrderRec = xlate( 'ORDER', .order_no->text, '', 'X' )\r\n\t Wo = .wo->text\r\n OrderWos = OrderRec<order_wo$>\r\n OrderQty = OrderRec<order_quantity$>\r\n OrderLineNo = OrderDetail<1>\r\n WoHitCnt = 0\r\n if OrderLineNo = 1 then\r\n * do nothing, cause you know it is run order one\r\n end else\r\n\t OrderWos = field( OrderWos, @vm, 1, OrderLineNo-1 )\r\n\t * TAKE ALL ORDER LINES PRIOR TO THIS ONE AND COUNT HOW MANY TIMES THAT \r\n\t * WORK ORDER IS FOUND AND ADD ONE AND THAT IS YOUR RUN ORDER\r\n\t OlCnt = fieldcount( OrderWos, @vm )\r\n\t for i = 1 to OlCnt\r\n\t if ( OrderWos<1,i> = Wo ) and ( OrderQty<1,i> > 0 ) then\r\n\t WoHitCnt += 1\r\n\t end\r\n\t next i\r\n\t end\r\n * ADD ONE TO WOHITCNT FOR THE NEXT RUN ORDER\r\n WoHitCnt += 1\r\n NewRdsDetail = WoHitCnt:@fm:@fm:Qty\r\n .rds_detail->array = NewRdsDetail\r\n .date_wafers_received->text = oconv( date(), 'D2/' )\r\n WSS = .wafer_sched_ship->array\r\n WSS<1,1> = Qty\r\n .wafer_sched_ship->array = WSS\r\n *\r\n * SET THE CALCULATED FIELDS MANUALLY IT IS JUST AS EASY\r\n .tot_waf_in->text = Qty\r\n .tot_sched->text = Qty\r\n .tot_not_sched->text = 0\r\n * SET FOCUS TO THE RDS DETAIL\r\n Void = set_property( @window:'.RDS_DETAIL', 'FOCUS', 1 )\r\n Void = post_event( @window:'.RDS_DETAIL', 'GOTFOCUS' )\r\n .rds_detail->selpos = 1:@fm:1\r\n @@window->savewarn = 1\r\n\t end\r\n\t end else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n Void = scroll_enable()\t \t \t \r\n\t end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/SCHEDULE_SRL..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert msg_equates\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'SCHEDULE_SRL', .schedule_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new don't allow ( only create via order )\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You can only create schedules from order.'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\t \r\n ReadOk = false$\r\n .schedule_no->text = ''\r\n Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event( CtrlEntId, CtrlClassId )\r\n end\r\n ScheduleNo = .schedule_no->text\r\n ProtectVar = 'PO/ENTRY_ID/ENTRY_DATE/CUST_NO/CUST_NAME/'\r\n ProtectVar:= 'WO/WAFER_SIZE/QUOTE_NO/RDS_CNT/ORDER_NO/TOT_SCHED/TOT_NOT_SCHED/'\r\n ProtectVar:= 'TOTAL_SHIP_QTY/TOTAL_NOT_SHIP_QTY/TOTAL_REJ/TOTAL_SHIP_AMOUNT/SEP_LAYER_CNT/'\r\n ProtectVar:= 'BOX_COUNT/TOT_WAF_IN'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 ) \r\n * add all other protected fields\r\n if rowexists( 'SCHEDULE_SRL', ScheduleNo ) else\r\n .entry_id->text = oconv( @username, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n Void = set_property( @window, '@OrigRDSDetail', .rds_detail->array ) \r\n if NewRecord else\r\n\t if security_check( 'Schedule SRL', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/SEMI_LOG..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\nNewRecord = false$\r\nif rowexists( 'SEMI_LOG', .log_no->text ) then\r\n ReadOk = true$; *anyone can look at the log\r\nend else\r\n * user is trying to add new, do they have write rights?\r\n if security_check( 'Semi Log', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Semi Log', Write$ )\t \r\n\t ReadOk = false$\r\n\t .log_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n LogNumber = .log_no->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/TECH_SIG/TECH_SIG_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'SEMI_LOG', LogNumber ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'Semi Log', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/SPC_CLEAN_HF..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'SPC_CLEAN_HF', .control_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'SPC Clean HF', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'SPC Clean HF', Write$ )\t \r\n\t ReadOk = false$\r\n\t .control_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n ControlId = .control_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/TERM_NO/DELTA/TECH_SIG/TECH_SIG_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'SPC_CLEAN_HF', ControlId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n \r\n if NewRecord else\r\n\t *if security_check( 'SPC Clean HF', Edit$ ) else\r\n\t * PROTECT ALL FIELDS EVEN IF THEY HAVE EDIT RIGHTS\r\n\t * CAUSE WE DO NOT WANT ANYTHING CHANGED ONCE SAVED\r\n\t * IF THE USER MADE A MISTAKE THEN THE USER WILL HAVE\r\n\t * TO DELETE AND START OVER\r\n\t * so rem the if above out and end at the bottom\r\n\t * protect all fields\r\n * ALLOW THE KEY AND COMMENTS TO BE ENABLED \t \t \r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if index( ThisControl, 'COMMENTS', 1 ) or index( ThisControl, 'CONTROL_ID', 1 ) or ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t if index( ThisControl, 'PHX', 1 ) or index( ThisControl, 'BTN_GRP', 1 ) else\r\n\t \t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t \tend\r\n\t end \r\n\t next i \r\n *Void = scroll_enable()\t \t \t \r\n\t *end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/SPC_CLEAN_HF_AKRION..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'SPC_CLEAN_HF_AKRION', .control_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'SPC Clean HF Akrion', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'SPC Clean HF Akrion', Write$ )\t \r\n\t ReadOk = false$\r\n\t .control_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n ControlId = .control_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/TERM_NO/DELTA/TECH_SIG/TECH_SIG_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'SPC_CLEAN_HF_AKRION', ControlId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n \r\n if NewRecord else\r\n\t *if security_check( 'SPC Clean HF Akrion', Edit$ ) else\r\n\t * PROTECT ALL FIELDS EVEN IF THEY HAVE EDIT RIGHTS\r\n\t * CAUSE WE DO NOT WANT ANYTHING CHANGED ONCE SAVED\r\n\t * IF THE USER MADE A MISTAKE THEN THE USER WILL HAVE\r\n\t * TO DELETE AND START OVER\r\n\t * so rem the if above out and end at the bottom\r\n\t * protect all fields\r\n * ALLOW THE KEY AND COMMENTS TO BE ENABLED \t \t \r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if index( ThisControl, 'COMMENTS', 1 ) or index( ThisControl, 'CONTROL_ID', 1 ) or ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t if index( ThisControl, 'PHX', 1 ) or index( ThisControl, 'BTN_GRP', 1 ) else\r\n\t \t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t \tend\r\n\t end \r\n\t next i \r\n *Void = scroll_enable()\t \t \t \r\n\t *end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/SPC_CLEAN_HF_ETCH..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'SPC_CLEAN_HF_ETCH', .control_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'SPC Clean HF Etch', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'SPC Clean HF Etch', Write$ )\t \r\n\t ReadOk = false$\r\n\t .control_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n ControlId = .control_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/TERM_NO/DELTA/TECH_SIG/TECH_SIG_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'SPC_CLEAN_HF_ETCH', ControlId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n \r\n if NewRecord else\r\n\t *if security_check( 'SPC Clean HF Etch', Edit$ ) else\r\n\t * PROTECT ALL FIELDS EVEN IF THEY HAVE EDIT RIGHTS\r\n\t * CAUSE WE DO NOT WANT ANYTHING CHANGED ONCE SAVED\r\n\t * IF THE USER MADE A MISTAKE THEN THE USER WILL HAVE\r\n\t * TO DELETE AND START OVER\r\n\t * so rem the if above out and end at the bottom\r\n\t * protect all fields\r\n * ALLOW THE KEY FIELD TO BE ENABLED \t \t \r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if index( ThisControl, 'COMMENTS', 1 ) or index( ThisControl, 'CONTROL_ID', 1 ) or ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t if index( ThisControl, 'PHX', 1 ) or index( ThisControl, 'BTN_GRP', 1 ) else\r\n\t \t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t \tend\r\n\t end \r\n\t next i \r\n *Void = scroll_enable()\t \t \t \r\n\t *end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/SPC_CLEAN_HF_ETCH_AKRION..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'SPC_CLEAN_HF_ETCH_AKRION', .control_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'SPC Clean HF Etch Akrion', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'SPC Clean HF Etch Akrion', Write$ )\t \r\n\t ReadOk = false$\r\n\t .control_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n ControlId = .control_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/TERM_NO/DELTA/TECH_SIG/TECH_SIG_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'SPC_CLEAN_HF_ETCH_AKRION', ControlId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n \r\n if NewRecord else\r\n\t *if security_check( 'SPC Clean HF Etch Akrion', Edit$ ) else\r\n\t * PROTECT ALL FIELDS EVEN IF THEY HAVE EDIT RIGHTS\r\n\t * CAUSE WE DO NOT WANT ANYTHING CHANGED ONCE SAVED\r\n\t * IF THE USER MADE A MISTAKE THEN THE USER WILL HAVE\r\n\t * TO DELETE AND START OVER\r\n\t * so rem the if above out and end at the bottom\r\n\t * protect all fields\r\n * ALLOW THE KEY FIELD TO BE ENABLED \t \t \r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if index( ThisControl, 'COMMENTS', 1 ) or index( ThisControl, 'CONTROL_ID', 1 ) or ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t if index( ThisControl, 'PHX', 1 ) or index( ThisControl, 'BTN_GRP', 1 ) else\r\n\t \t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t \tend\r\n\t end \r\n\t next i \r\n *Void = scroll_enable()\t \t \t \r\n\t *end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/SPC_CLEAN_SC1..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'SPC_CLEAN_SC1', .control_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'SPC Clean SC1', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'SPC Clean SC1', Write$ )\t \r\n\t ReadOk = false$\r\n\t .control_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n ControlId = .control_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/TERM_NO/DELTA/TECH_SIG/TECH_SIG_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'SPC_CLEAN_SC1', ControlId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n \r\n if NewRecord else\r\n\t *if security_check( 'SPC Clean SC1', Edit$ ) else\r\n\t * PROTECT ALL FIELDS EVEN IF THEY HAVE EDIT RIGHTS\r\n\t * CAUSE WE DO NOT WANT ANYTHING CHANGED ONCE SAVED\r\n\t * IF THE USER MADE A MISTAKE THEN THE USER WILL HAVE\r\n\t * TO DELETE AND START OVER\r\n\t * so rem the if above out and end at the bottom\r\n\t * protect all fields\r\n * ALLOW THE KEY FIELD TO BE ENABLED \t \t \r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if index( ThisControl, 'COMMENTS', 1 ) or index( ThisControl, 'CONTROL_ID', 1 ) or ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t if index( ThisControl, 'PHX', 1 ) or index( ThisControl, 'BTN_GRP', 1 ) else\r\n\t \t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t \tend\r\n\t end \r\n\t next i \r\n *Void = scroll_enable()\t \t \t \r\n\t *end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/SPC_CLEAN_SRD..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'SPC_CLEAN_SRD', .control_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'SPC Clean SRD', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'SPC Clean SRD', Write$ )\t \r\n\t ReadOk = false$\r\n\t .control_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n ControlId = .control_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/TERM_NO/DELTA/TECH_SIG/TECH_SIG_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'SPC_CLEAN_SRD', ControlId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n \r\n if NewRecord else\r\n\t *if security_check( 'SPC Clean SRD', Edit$ ) else\r\n\t * PROTECT ALL FIELDS EVEN IF THEY HAVE EDIT RIGHTS\r\n\t * CAUSE WE DO NOT WANT ANYTHING CHANGED ONCE SAVED\r\n\t * IF THE USER MADE A MISTAKE THEN THE USER WILL HAVE\r\n\t * TO DELETE AND START OVER\r\n\t * so rem the if above out and end at the bottom\r\n\t * protect all fields\r\n * ALLOW THE KEY FIELD TO BE ENABLED \t \r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if index( ThisControl, 'COMMENTS', 1 ) or index( ThisControl, 'CONTROL_ID', 1 ) or ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t if index( ThisControl, 'PHX', 1 ) or index( ThisControl, 'BTN_GRP', 1 ) else\r\n\t \t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t \tend\r\n\t end \r\n\t next i \r\n *Void = scroll_enable()\t \t \t \r\n\t *end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/SPC_EVAL_4PP..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'SPC_EVAL_4PP', .control_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'SPC Eval 4PP', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'SPC Eval 4PP', Write$ )\t \r\n\t ReadOk = false$\r\n\t .control_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n ControlId = .control_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/TERM_NO/TECH_SIG/TECH_SIG_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'SPC_EVAL_4PP', ControlId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n \r\n if NewRecord else\r\n\t *if security_check( 'SPC Eval 4PP', Edit$ ) else\r\n\t * PROTECT ALL FIELDS EVEN IF THEY HAVE EDIT RIGHTS\r\n\t * CAUSE WE DO NOT WANT ANYTHING CHANGED ONCE SAVED\r\n\t * IF THE USER MADE A MISTAKE THEN THE USER WILL HAVE\r\n\t * TO DELETE AND START OVER\r\n\t * so rem the if above out and end at the bottom\r\n\t * protect all fields\r\n * ALLOW THE KEY FIELD TO BE ENABLED \t \t \r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if index( ThisControl, 'COMMENTS', 1 ) or index( ThisControl, 'CONTROL_ID', 1 ) or ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t if index( ThisControl, 'PHX', 1 ) or index( ThisControl, 'BTN_GRP', 1 ) else\r\n\t \t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t \tend\r\n\t end \r\n\t next i \r\n *Void = scroll_enable()\t \t \t \r\n\t *end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/SPC_EVAL_ADE..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'SPC_EVAL_ADE', .control_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'SPC Eval ADE', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'SPC Eval ADE', Write$ )\t \r\n\t ReadOk = false$\r\n\t .control_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n ControlId = .control_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/TERM_NO/TECH_SIG/TECH_SIG_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'SPC_EVAL_ADE', ControlId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n \r\n if NewRecord else\r\n\t *if security_check( 'SPC Eval ADE', Edit$ ) else\r\n\t * PROTECT ALL FIELDS EVEN IF THEY HAVE EDIT RIGHTS\r\n\t * CAUSE WE DO NOT WANT ANYTHING CHANGED ONCE SAVED\r\n\t * IF THE USER MADE A MISTAKE THEN THE USER WILL HAVE\r\n\t * TO DELETE AND START OVER\r\n\t * so rem the if above out and end at the bottom\r\n\t * protect all fields\r\n * ALLOW THE KEY FIELD TO BE ENABLED \t \t \r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if index( ThisControl, 'COMMENTS', 1 ) or index( ThisControl, 'CONTROL_ID', 1 ) or ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t if index( ThisControl, 'PHX', 1 ) or index( ThisControl, 'BTN_GRP', 1 ) else\r\n\t \t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t \tend\r\n\t end \r\n\t next i \r\n *Void = scroll_enable()\t \t \t \r\n\t *end\r\n end\r\nend\r\nRETURN 0\r\n"
}
}
}

11
LSL2/OIEVENT/READ/SPC_EVAL_FTIR..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'SPC_EVAL_FTIR', .control_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'SPC Eval FTIR', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'SPC Eval FTIR', Write$ )\t \r\n\t ReadOk = false$\r\n\t .control_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n ControlId = .control_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/TERM_NO/TECH_SIG/TECH_SIG_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'SPC_EVAL_FTIR', ControlId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n \r\n if NewRecord else\r\n\t *if security_check( 'SPC Eval FTIR', Edit$ ) else\r\n\t * PROTECT ALL FIELDS EVEN IF THEY HAVE EDIT RIGHTS\r\n\t * CAUSE WE DO NOT WANT ANYTHING CHANGED ONCE SAVED\r\n\t * IF THE USER MADE A MISTAKE THEN THE USER WILL HAVE\r\n\t * TO DELETE AND START OVER\r\n\t * so rem the if above out and end at the bottom\r\n\t * protect all fields\r\n * ALLOW THE KEY FIELD TO BE ENABLED \t \t \r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if index( ThisControl, 'COMMENTS', 1 ) or index( ThisControl, 'CONTROL_ID', 1 ) or ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t if index( ThisControl, 'PHX', 1 ) or index( ThisControl, 'BTN_GRP', 1 ) else\r\n\t \t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t \tend\r\n\t end \r\n\t next i \r\n *Void = scroll_enable()\t \t \t \r\n\t *end\r\n end\r\nend\r\nRETURN 0\r\n"
}
}
}

11
LSL2/OIEVENT/READ/SPC_REACTOR_PARTICLES..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'SPC_REACTOR_PARTICLES', .control_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'SPC Reactor Particles', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'SPC Reactor Particles', Write$ )\t \r\n\t ReadOk = false$\r\n\t .control_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n ControlId = .control_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/TERM_NO/DELTA/TECH_SIG/TECH_SIG_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'SPC_REACTOR_PARTICLES', ControlId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n \r\n if NewRecord else\r\n\t *if security_check( 'SPC Reactor Particles', Edit$ ) else\r\n\t * PROTECT ALL FIELDS EVEN IF THEY HAVE EDIT RIGHTS\r\n\t * CAUSE WE DO NOT WANT ANYTHING CHANGED ONCE SAVED\r\n\t * IF THE USER MADE A MISTAKE THEN THE USER WILL HAVE\r\n\t * TO DELETE AND START OVER\r\n\t * so rem the if above out and end at the bottom\r\n\t * protect all fields\r\n * ALLOW THE KEY FIELD TO BE ENABLED \t \r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if index( ThisControl, 'COMMENTS', 1 ) or index( ThisControl, 'CONTROL_ID', 1 ) or ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t if index( ThisControl, 'PHX', 1 ) or index( ThisControl, 'BTN_GRP', 1 ) else\r\n\t \t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t \tend\r\n\t end \r\n\t next i \r\n *Void = scroll_enable()\t \t \t \r\n\t *end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/SPC_WAFER_ETCH..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'SPC_WAFER_ETCH', .control_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'SPC Wafer Etch', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'SPC Wafer Etch', Write$ )\t \r\n\t ReadOk = false$\r\n\t .control_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n ControlId = .control_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/TERM_NO/DELTA/TECH_SIG/TECH_SIG_NAME'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'SPC_WAFER_ETCH', ControlId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n \r\n if NewRecord else\r\n\t *if security_check( 'SPC Wafer Etch', Edit$ ) else\r\n\t * PROTECT ALL FIELDS EVEN IF THEY HAVE EDIT RIGHTS\r\n\t * CAUSE WE DO NOT WANT ANYTHING CHANGED ONCE SAVED\r\n\t * IF THE USER MADE A MISTAKE THEN THE USER WILL HAVE\r\n\t * TO DELETE AND START OVER\r\n\t * so rem the if above out and end at the bottom\r\n\t * protect all fields\r\n * ALLOW THE KEY FIELD TO BE ENABLED \t \t \r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if index( ThisControl, 'COMMENTS', 1 ) or index( ThisControl, 'CONTROL_ID', 1 ) or ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t if index( ThisControl, 'PHX', 1 ) or index( ThisControl, 'BTN_GRP', 1 ) else\r\n\t \t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t \tend\r\n\t end \r\n\t next i\r\n\t *Void = scroll_enable()\t \t \t \r\n\t *end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/SRP_COC_RESULTS..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'SRP_COC_RESULTS', .control_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'SRP COC Results', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'SRP COC Results', Write$ )\t \r\n\t ReadOk = false$\r\n\t .control_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n ControlId = .control_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/CUST_NAME/DIVISION/THICK/REST/THICK_UNITS/REST_UNITS'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'SRP_COC_RESULTS', ControlId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n \r\n if NewRecord else\r\n\t if security_check( 'SRP COC Results', Edit$ ) else\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ( ThisControl[-6,6] = '_LABEL' ) or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n Void = scroll_enable()\t \t \t \r\n\t end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/SRP_INCOMING_LOG..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\nNewRecord = false$\r\nif rowexists( 'SRP_INCOMING_LOG', .log_no->text ) then\r\n ReadOk = true$; *anyone can look at the log\r\nend else\r\n * user is trying to add new, do they have write rights?\r\n if security_check( 'SRP Incoming Log', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'SRP Incoming Log', Write$ )\t \r\n\t ReadOk = false$\r\n\t .log_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n LogNumber = .log_no->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/ENG_SIG/ENG_SIG_NAME/CUST_NAME/DIVISION'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'SRP_INCOMING_LOG', LogNumber ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'SRP Incoming Log', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/SUB_REC_LOG..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\nNewRecord = false$\r\nif rowexists( 'SUB_REC_LOG', .log_no->text ) then\r\n ReadOk = true$; *anyone can look at the log\r\nend else\r\n * user is trying to add new, do they have write rights?\r\n if security_check( 'Sub Rec Log', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Sub Rec Log', Write$ )\t \r\n\t ReadOk = false$\r\n\t .log_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n LogNumber = .log_no->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/RECEIVER_SIG/RECEIVER_SIG_NAME/CUST_NAME/DIVISION'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'SUB_REC_LOG', LogNumber ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'Sub Rec Log', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t Void = scroll_enable()\t\t \r\n\t end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/TEST..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event\r\nforward_event( CtrlEntId, CtrlClassId )\r\n.entry_date->invalue = 11000\r\n.title->invalue = 'Please Work'\r\n.phones->invalue = '8408614':@vm:'4819530':@fm:'TEST':@VM:'junk':@fm:'234':@vm:'339'\r\n\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/TW_CODES..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'TW_CODES', .tw_code->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'TW Codes', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'TW Codes', Write$ )\t \r\n\t ReadOk = false$\r\n\t .tw_code->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n TWCode = .tw_code->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'TW_CODES', TWCode ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'TW Codes', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n Void = scroll_enable()\t \t \t \r\n\t end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/TW_PRIME_USAGE..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'TW_PRIME_USAGE', .twu_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'TW Prime Usage', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'TW Prime Usage', Write$ )\t \r\n\t ReadOk = false$\r\n\t .twu_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n TWUId = .twu_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'TW_PRIME_USAGE', TWUId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n .type->value = '' ;* set to nothing on a new entry so they don't overlook \r\n ;* and save using the default without realizing it for type and orient\r\n .orientation->value = '' \r\n end \r\n if NewRecord else\r\n\t if security_check( 'TW Prime Usage', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n Void = scroll_enable()\t \t \t \r\n\t end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/TW_USAGE..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'TW_USAGE', .twu_id->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'TW Usage', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'TW Usage', Write$ )\t \r\n\t ReadOk = false$\r\n\t .twu_id->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n TWUId = .twu_id->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'TW_USAGE', TWUId ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n .type->value = '' ;* set to nothing on a new entry so they don't overlook \r\n ;* and save using the default without realizing it for type and orient\r\n .orientation->value = '' \r\n end \r\n if NewRecord else\r\n\t if security_check( 'TW Usage', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n Void = scroll_enable()\t \t \t \r\n\t end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/WAFER_INV..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'WAFER_INV', .waf_inv_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'Wafer Inventory', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Wafer Inventory', Write$ )\t \r\n\t ReadOk = false$\r\n\t .waf_inv_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n WafInvNo = .waf_inv_no->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/CUST_NAME/DIVISION'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'WAFER_INV', WafInvNo ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'Wafer Inventory', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n Void = scroll_enable()\t \t \t \r\n\t end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/WO_LOG..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert msg_equates\r\n\r\nNewRecord = false$\r\nif rowexists( 'WO_LOG', .wo_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'WO Log', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'WO Log', Write$ )\t \r\n\t ReadOk = false$\r\n\t .wo_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n WONo = .wo_no->text\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/CUST_NAME/DIVISION/STATUS/CLOSE_DATE/'\r\n ProtectVar:= 'THICK/REST/THICK_UNITS/REST_UNITS/DOPANT/SIZE'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n *IF @USER4 = 'BRYCE_M' THEN\r\n * .STATUS->ENABLED = 1\r\n *END\r\n if rowexists( 'WO_LOG', WONo ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n Void = set_property( @window, '@OrigPSN', '' ) \r\n if NewRecord else\r\n\t if security_check( 'WO Log', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i\r\n Void = scroll_enable()\t \t \t \r\n\t .view_quote->enabled = 1 \r\n\t end\r\n end\r\nend\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/WO_PROD_EPI..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "$Insert MSG_EQUATES\r\nDeclare subroutine Forward_Event\r\n\r\n Def = \"\"\r\n Def<MTEXT$> = \"Loading work order production status. Please wait...\"\r\n Def<MTYPE$> = \"U\"\r\n MsgUp = Msg(@window, Def) ;* display the processing message\r\n\r\n\tForward_Event()\r\n\tMsg(@WINDOW,MsgUp) ;* Take message down\r\n\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/READ/WO_VERIFY..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, send_event, scroll_enable\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert msg_equates\r\n\r\nVerifyNo = .verify_no->text\r\nOnlyVerifyNo = get_property( @window, '@WOVerifyID' )\r\nif VerifyNo = OnlyVerifyNo then\r\n ReadOk = true$\r\nend else\r\n * user is trying to view another work order verification ( only allow view from rds )\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You may only view Work Order Verifications from RDS...'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\t \r\n ReadOk = false$\r\n Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n ProtectVar = 'ENTRY_ID/ENTRY_DATE/STATUS/RECIPE/NEW_DOPANT/TECH_SIG/TECH_SIG_NAME/TECH_SIG_TIME/'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if security_check( 'WO Verify', Edit$ ) else\r\n * protect all fields\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n Acnt = fieldcount( AllControls, @fm ) \r\n for i = 1 to Acnt \r\n ThisControl = AllControls<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', 0 )\r\n end \r\n next i \r\n Void = scroll_enable()\t\t \r\n end\r\n Void = set_property( @window:'.DOPANT_CHK', \"FOCUS\", 1 )\r\n Void = post_event( @window:'.DOPANT_CHK', \"GOTFOCUS\", 1 )\r\nend\r\nRETURN 0"
}
}
}